void executePrivate( ) { /* GeneXus formulas */ /* Output device settings */ AV20Options = (GxSimpleCollection <String>)(new GxSimpleCollection <String>()); AV23OptionsDesc = (GxSimpleCollection <String>)(new GxSimpleCollection <String>()); AV25OptionIndexes = (GxSimpleCollection <String>)(new GxSimpleCollection <String>()); GXt_boolean1 = AV8IsAuthorized; new GeneXus.Programs.wwpbaseobjects.secisauthbyfunctionalitykey(context).execute("Check_Encounter", out GXt_boolean1); AV8IsAuthorized = GXt_boolean1; if (AV8IsAuthorized) { new GeneXus.Programs.wwpbaseobjects.loadwwpcontext(context).execute(out AV9WWPContext); /* Execute user subroutine: 'LOADGRIDSTATE' */ S111(); if (returnInSub) { this.cleanup(); if (true) { return; } } if (StringUtil.StrCmp(StringUtil.Upper(AV17DDOName), "DDO_BR_ENCOUNTER_DEPARTMENTADM") == 0) { /* Execute user subroutine: 'LOADBR_ENCOUNTER_DEPARTMENTADMOPTIONS' */ S121(); if (returnInSub) { this.cleanup(); if (true) { return; } } } else if (StringUtil.StrCmp(StringUtil.Upper(AV17DDOName), "DDO_BR_ENCOUNTER_DEPARTMENTDISCH") == 0) { /* Execute user subroutine: 'LOADBR_ENCOUNTER_DEPARTMENTDISCHOPTIONS' */ S131(); if (returnInSub) { this.cleanup(); if (true) { return; } } } } AV21OptionsJson = AV20Options.ToJSonString(false); AV24OptionsDescJson = AV23OptionsDesc.ToJSonString(false); AV26OptionIndexesJson = AV25OptionIndexes.ToJSonString(false); this.cleanup(); }
protected void S131( ) { /* 'LOADBR_ENCOUNTER_DEPARTMENTDISCHOPTIONS' Routine */ AV13TFBR_Encounter_Departmentdisch = AV15SearchTxt; AV14TFBR_Encounter_Departmentdisch_Sel = ""; pr_default.dynParam(1, new Object[] { new Object[] { AV33BR_EncounterID, AV12TFBR_Encounter_Departmentadm_Sel, AV11TFBR_Encounter_Departmentadm, AV14TFBR_Encounter_Departmentdisch_Sel, AV13TFBR_Encounter_Departmentdisch, A19BR_EncounterID, A570BR_Encounter_Departmentadm, A572BR_Encounter_Departmentdisch, A360BAS_TenantTenantCode, AV35tCurrentCode, AV34BR_Information_ID, A85BR_Information_ID }, new int[] { TypeConstants.STRING, TypeConstants.STRING, TypeConstants.STRING, TypeConstants.STRING, TypeConstants.STRING, TypeConstants.LONG, TypeConstants.STRING, TypeConstants.BOOLEAN, TypeConstants.STRING, TypeConstants.BOOLEAN, TypeConstants.STRING, TypeConstants.BOOLEAN, TypeConstants.STRING, TypeConstants.LONG, TypeConstants.LONG, TypeConstants.BOOLEAN } }); lV33BR_EncounterID = StringUtil.Concat(StringUtil.RTrim(AV33BR_EncounterID), "%", ""); lV11TFBR_Encounter_Departmentadm = StringUtil.Concat(StringUtil.RTrim(AV11TFBR_Encounter_Departmentadm), "%", ""); lV13TFBR_Encounter_Departmentdisch = StringUtil.Concat(StringUtil.RTrim(AV13TFBR_Encounter_Departmentdisch), "%", ""); /* Using cursor P004R3 */ pr_default.execute(1, new Object[] { AV34BR_Information_ID, AV35tCurrentCode, lV33BR_EncounterID, lV11TFBR_Encounter_Departmentadm, AV12TFBR_Encounter_Departmentadm_Sel, lV13TFBR_Encounter_Departmentdisch, AV14TFBR_Encounter_Departmentdisch_Sel }); while ((pr_default.getStatus(1) != 101)) { BRK4R4 = false; A85BR_Information_ID = P004R3_A85BR_Information_ID[0]; n85BR_Information_ID = P004R3_n85BR_Information_ID[0]; A360BAS_TenantTenantCode = P004R3_A360BAS_TenantTenantCode[0]; n360BAS_TenantTenantCode = P004R3_n360BAS_TenantTenantCode[0]; A572BR_Encounter_Departmentdisch = P004R3_A572BR_Encounter_Departmentdisch[0]; n572BR_Encounter_Departmentdisch = P004R3_n572BR_Encounter_Departmentdisch[0]; A570BR_Encounter_Departmentadm = P004R3_A570BR_Encounter_Departmentadm[0]; n570BR_Encounter_Departmentadm = P004R3_n570BR_Encounter_Departmentadm[0]; A19BR_EncounterID = P004R3_A19BR_EncounterID[0]; AV27count = 0; while ((pr_default.getStatus(1) != 101) && (P004R3_A85BR_Information_ID[0] == A85BR_Information_ID) && (StringUtil.StrCmp(P004R3_A572BR_Encounter_Departmentdisch[0], A572BR_Encounter_Departmentdisch) == 0)) { BRK4R4 = false; A19BR_EncounterID = P004R3_A19BR_EncounterID[0]; AV27count = (long)(AV27count + 1); BRK4R4 = true; pr_default.readNext(1); } if (!String.IsNullOrEmpty(StringUtil.RTrim(A572BR_Encounter_Departmentdisch))) { AV19Option = A572BR_Encounter_Departmentdisch; AV20Options.Add(AV19Option, 0); AV25OptionIndexes.Add(StringUtil.Trim(context.localUtil.Format((decimal)(AV27count), "Z,ZZZ,ZZZ,ZZ9")), 0); } if (AV20Options.Count == 50) { /* Exit For each command. Update data (if necessary), close cursors & exit. */ if (true) { break; } } if (!BRK4R4) { BRK4R4 = true; pr_default.readNext(1); } } pr_default.close(1); }