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);
}