Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25">
<Class name="EDIGW.TXNSETX">
<IncludeCode>EDIGW</IncludeCode>
<Super>%Persistent,%XML.Adaptor,Ens.Util.RequestBodyMethods</Super>
<TimeCreated>64957,56568.011436</TimeCreated>
<Property name="TXNSET">
<Type>CREPOS.TXNSET</Type>
</Property>
<Property name="Loop1000A">
<Type>Loop1000A</Type>
</Property>
<Property name="Loop1000B">
<Type>Loop1000B</Type>
</Property>
<Property name="Loop2000A">
<Type>Loop2000A</Type>
<Collection>array</Collection>
</Property>
<Property name="IIterator">
<Description>
Subscript used in Operation SQL</Description>
<Type>%Integer</Type>
</Property>
<Method name="AddLoop2000B">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2000B:EDIGW.Loop2000B</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If $IsObject(oLP2000B.HL) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.HRCHL_LEVEL",oLP2000B.HL.%Id())
If $IsObject(oLP2000B.SBR) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.SUBSCRIBER_INFO",oLP2000B.SBR.%Id())
If $IsObject(oLP2000B.PAT) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PATIENT_INFO",oLP2000B.PAT.%Id())
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2010AX">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2010AX:EDIGW.Loop2010AX</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2010AX) Quit II
If $IsObject(oLP2010AX.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",oLP2010AX.NM1.%Id())
If $IsObject(oLP2010AX.N34) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADDRESS",oLP2010AX.N34.%Id())
If $IsObject(oLP2010AX.DMG) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DEMOGRAPHIC_INFO",oLP2010AX.DMG.%Id())
Set kk=""
For {
Set objREF=oLP2010AX.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
For {
Set objCNTCPER=oLP2010AX.CNTCPER.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CNTC_INFO",objCNTCPER.%Id())
}
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2010BX">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2010BX:EDIGW.Loop2010BX</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2010BX) Quit II
If $IsObject(oLP2010BX.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",oLP2010BX.NM1.%Id())
If $IsObject(oLP2010BX.N34) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADDRESS",oLP2010BX.N34.%Id())
If $IsObject(oLP2010BX.DMG) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DEMOGRAPHIC_INFO",oLP2010BX.DMG.%Id())
Set kk=""
For {
Set objREF=oLP2010BX.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
If $IsObject(oLP2010BX.PER) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CNTC_INFO",oLP2010BX.PER.%Id())
Quit II
For {
Set objPER=oLP2010BX.PER.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CNTC_INFO",objPER.%Id())
}
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2010CA">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2010CA:EDIGW.Loop2010CA</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2010CA) Quit II
If $IsObject(oLP2010CA.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",oLP2010CA.NM1.%Id())
If $IsObject(oLP2010CA.N34) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADDRESS",oLP2010CA.N34.%Id())
If $IsObject(oLP2010CA.DMG) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DEMOGRAPHIC_INFO",oLP2010CA.DMG.%Id())
Set kk=""
For {
Set objREF=oLP2010CA.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
If $IsObject(oLP2010CA.PER) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CNTC_INFO",oLP2010CA.PER.%Id())
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2300">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2300:EDIGW.Loop2300</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2300) Quit II
If $IsObject(oLP2300.CLM) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM",oLP2300.CLM.%Id())
If $IsObject(oLP2300.AMT) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_AMOUNT",oLP2300.AMT.%Id())
If $IsObject(oLP2300.CL1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.INST_CLAIM_CODE",oLP2300.CL1.%Id())
If $IsObject(oLP2300.CN1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CONTRACT_INFO",oLP2300.CN1.%Id())
If $IsObject(oLP2300.CR1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.AMBLN_TRNPT_INFO",oLP2300.CR1.%Id())
If $IsObject(oLP2300.CR2) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.SPNL_MPLT_SVC_INFO",oLP2300.CR2.%Id())
Set kk=""
For {
Set objCRC=oLP2300.CRC.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CRC_SEGMENT",objCRC.%Id())
}
If $IsObject(oLP2300.DN1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ORTHODONTIC_INFO",oLP2300.DN1.%Id())
For {
Set objDN2=oLP2300.DN2.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.TOOTH_STATUS",objDN2.%Id())
}
For {
Set objDTP=oLP2300.DTP.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_DT",objDTP.%Id())
}
If $IsObject(oLP2300.HCP) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_PRC_REPRC",oLP2300.HCP.%Id())
For {
Set objHI=oLP2300.HI.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.HI_CODES",objHI.%Id())
}
For {
Set objK3=oLP2300.K3.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.FILE_INFORMATION",objK3.%Id())
}
For {
Set objNTE=oLP2300.NTE.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_NOTE",objNTE.%Id())
}
For {
Set objPWK=oLP2300.PWK.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_SUPL_INFO",objPWK.%Id())
}
For {
Set objREF=oLP2300.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
For {
Set oLP2310A=oLP2300.Loop2310A.GetNext(.kk) If kk="" Quit
Set II=..AddLoop2310X(FN,ii,II,oLP2310A)
}
Set II=..AddLoop2310X(FN,ii,II,oLP2300.Loop2310B)
Set II=..AddLoop2310X(FN,ii,II,oLP2300.Loop2310C)
Set II=..AddLoop2310X(FN,ii,II,oLP2300.Loop2310D)
Set II=..AddLoop2310X(FN,ii,II,oLP2300.Loop2310E)
Set II=..AddLoop2310X(FN,ii,II,oLP2300.Loop2310F)
For {
Set oLP2320=oLP2300.Loop2320.GetNext(.kk) If kk="" Quit
Set II=..AddLoop2320(FN,ii,II,oLP2320)
}
For {
Set oLP2400=oLP2300.Loop2400.GetNext(.kk) If kk="" Quit
Set II=..AddLoop2400(FN,ii,II,oLP2400)
}
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2310X">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2310X:EDIGW.Loop2310X</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2310X) Quit II
If $IsObject(oLP2310X.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",oLP2310X.NM1.%Id())
If $IsObject(oLP2310X.N34) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADDRESS",oLP2310X.N34.%Id())
If $IsObject(oLP2310X.PRV) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PRV_SPCL_INFO",oLP2310X.PRV.%Id())
Set kk=""
For {
Set objREF=oLP2310X.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
If $IsObject(oLP2310X.PER) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CNTC_INFO",oLP2310X.PER.%Id())
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2320">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2320:EDIGW.Loop2320</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2320) Quit II
If $IsObject(oLP2320.SBR) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.SUBSCRIBER_INFO",oLP2320.SBR.%Id())
Set kk=""
For {
Set objCAS=oLP2320.CAS.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CASES",objCAS.%Id())
}
For {
Set objAMT=oLP2320.AMT.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_AMOUNT",objAMT.%Id())
}
If $IsObject(oLP2320.OI) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.OT_INSURANCE_COV",oLP2320.OI.%Id())
If $IsObject(oLP2320.MIA) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.MEDI_INPT_ADJDCT",oLP2320.MIA.%Id())
If $IsObject(oLP2320.MOA) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.MEDI_OUTPT_ADJDCT",oLP2320.MOA.%Id())
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330A)
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330B)
For {
Set oLP2330X=oLP2320.Loop2330C.GetNext(.kk) If kk="" Quit
Set II=..AddLoop2330X(FN,ii,II,oLP2330X)
}
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330D)
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330E)
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330F)
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330G)
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330H)
Set II=..AddLoop2330X(FN,ii,II,oLP2320.Loop2330I)
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2330X">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2330X:EDIGW.Loop2330X</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2330X) Quit II
If $IsObject(oLP2330X.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",oLP2330X.NM1.%Id())
If $IsObject(oLP2330X.N34) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADDRESS",oLP2330X.N34.%Id())
If $IsObject(oLP2330X.DTP) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_DT",oLP2330X.DTP.%Id())
Set kk=""
For {
Set objREF=oLP2330X.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2400">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2400:EDIGW.Loop2400</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2400) Quit II
If $IsObject(oLP2400.LXSV1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PRFSN_SVC_LINE",oLP2400.LXSV1.%Id())
If $IsObject(oLP2400.LXSV2) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.INST_SVC_LINE",oLP2400.LXSV2.%Id())
If $IsObject(oLP2400.LXSV3) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DENTAL_SVC_LINE",oLP2400.LXSV3.%Id())
Set kk=""
For {
Set objAMT=oLP2400.AMT.GetNext(.kk)
If '$IsObject(objAMT) Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_AMOUNT",objAMT.%Id())
}
If $IsObject(oLP2400.CN1) {
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CONTRACT_INFO",oLP2400.CN1.%Id())
}
If $IsObject(oLP2400.CR1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.AMBLN_TRNPT_INFO",oLP2400.CR1.%Id())
If $IsObject(oLP2400.CR3) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DBL_MDCL_EQP_CERT",oLP2400.CR3.%Id())
For {
Set objCRC=oLP2400.CRC.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CRC_SEGMENT",objCRC.%Id())
}
For {
Set objDTP=oLP2400.DTP.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_DT",objDTP.%Id())
}
If $IsObject(oLP2400.HCP) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_PRC_REPRC",oLP2400.HCP.%Id())
For {
Set objK3=oLP2400.K3.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.FILE_INFORMATION",objK3.%Id())
}
For {
Set objMEA=oLP2400.MEA.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.TEST_RESULT_MEA",objMEA.%Id())
}
For {
Set objNTE=oLP2400.NTE.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_NOTE",objNTE.%Id())
}
If $IsObject(oLP2400.PS1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PURCH_SERVICE_INFO",oLP2400.PS1.%Id())
For {
Set objPWK=oLP2400.PWK.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_SUPL_INFO",objPWK.%Id())
}
For {
Set objQTY=oLP2400.QTY.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_QUANTITY",objQTY.%Id())
}
For {
Set objREF=oLP2400.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
If $IsObject(oLP2400.SV5) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DBL_MED_EQP_SVC",oLP2400.SV5.%Id())
For {
Set objTOO=oLP2400.TOO.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.TOOTH_INFORMATION",objTOO.%Id())
}
If $IsObject(oLP2400.Loop2410.LIN) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DRUG_ID",oLP2400.Loop2410.LIN.%Id())
If $IsObject(oLP2400.Loop2410.CTP) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.DRUG_PRICING",oLP2400.Loop2410.CTP.%Id())
If $IsObject(oLP2400.Loop2410.REF) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",oLP2400.Loop2410.REF.%Id())
Set II=..AddLoop2420X(FN,ii,II,oLP2400.Loop2420A)
Set II=..AddLoop2420X(FN,ii,II,oLP2400.Loop2420B)
Set II=..AddLoop2420X(FN,ii,II,oLP2400.Loop2420C)
Set II=..AddLoop2420X(FN,ii,II,oLP2400.Loop2420D)
Set II=..AddLoop2420X(FN,ii,II,oLP2400.Loop2420E)
For {
Set oLP2420X=oLP2400.Loop2420F.GetNext(.kk) If kk="" Quit
Set II=..AddLoop2420X(FN,ii,II,oLP2420X)
}
Set II=..AddLoop2420X(FN,ii,II,oLP2400.Loop2420G)
Set II=..AddLoop2420X(FN,ii,II,oLP2400.Loop2420H)
For {
Set oLP2430=oLP2400.Loop2430.GetNext(.kk) If kk="" Quit
Set II=..AddLoop2430(FN,ii,II,oLP2430)
}
For {
Set oLP2440=oLP2400.Loop2440.GetNext(.kk) If kk="" Quit
Set II=..AddLoop2440(FN,ii,II,oLP2440)
}
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2420X">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2420X:EDIGW.Loop2420X</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2420X) Quit II
If $IsObject(oLP2420X.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",oLP2420X.NM1.%Id())
If $IsObject(oLP2420X.N34) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADDRESS",oLP2420X.N34.%Id())
If $IsObject(oLP2420X.PER) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CNTC_INFO",oLP2420X.PER.%Id())
If $IsObject(oLP2420X.PRV) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PRV_SPCL_INFO",oLP2420X.PRV.%Id())
Set kk=""
For {
Set objREF=oLP2420X.REF.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_ADTL_ID",objREF.%Id())
}
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2430">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2430:EDIGW.Loop2430</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2430) Quit II
If $IsObject(oLP2430.AMT) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_AMOUNT",oLP2430.AMT.%Id())
Set kk=""
For {
Set objCAS=oLP2430.CAS.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CASES",objCAS.%Id())
}
If $IsObject(oLP2430.DTP) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CLAIM_DT",oLP2430.DTP.%Id())
If $IsObject(oLP2430.SVD) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.SVC_LINE_ADJDCT",oLP2430.SVD.%Id())
Quit II
]]></Implementation>
</Method>
<Method name="AddLoop2440">
<FormalSpec>FN:%String,ii:%Integer,II:%Integer,oLP2440:EDIGW.Loop2440</FormalSpec>
<ReturnType>%Integer</ReturnType>
<Implementation><![CDATA[
If '$IsObject(oLP2440) Quit II
Set kk=""
For {
Set objFRM=oLP2440.FRM.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.SUPTNG_DOC",objFRM.%Id())
}
If $IsObject(oLP2440.LQ) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.FORM_LQ_ID",oLP2440.LQ.%Id())
Quit II
]]></Implementation>
</Method>
<UDLText name="T">
<Content><![CDATA[
/*
Method %OnAddToSaveSet(
depth As %Integer,
insert As %Integer,
callcount As %Integer) As %Status [ Private, ServerOnly = 1 ]
{
Set ..IIterator = $Increment($$$sqlGl)
//If %OnAddToSaveSet() modifies another object, then it is the responsibility of %OnAddToSaveSet()
// to invoke %AddToSaveSet() on that modified object. When calling %AddToSaveSet() from %OnAddToSaveSet(),
// pass the depth as the first argument and 1 (literal one) as the second argument.
Set argRefresh = 1
Set status = ..%AddToSaveSet(depth,argRefresh)
Quit $$$OK
}
*/
]]></Content>
</UDLText>
<Method name="%OnAfterSave">
<FormalSpec>insert:%Boolean</FormalSpec>
<Private>1</Private>
<ReturnType>%Status</ReturnType>
<ServerOnly>1</ServerOnly>
<Implementation><![CDATA[
try {
Set FN=..TXNSET.FILENUMBER
Set ii=..IIterator
Set $$$sqlGl(ii)=FN
Set sc=..TXNSET.%Save()
If 'sc {
Do ##class(EDIGW.Utility).DebugBPL("EDIGW.TXNSETX:..TXNSET.%Save()="_$S(sc:"OK",1:$system.Status.GetOneErrorText(sc)))
}
Set II=0
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.TXN_SET",..TXNSET.%Id())
If $IsObject(..Loop1000A.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",..Loop1000A.NM1.%Id())
Set kk=""
For {
Set objPER=..Loop1000A.PER.GetNext(.kk) If kk="" Quit
Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.CNTC_INFO",objPER.%Id())
}
If $IsObject(..Loop1000B.NM1) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.ENTITY_NAME",..Loop1000B.NM1.%Id())
Set k1=""
For {
Set oLP2000A=..Loop2000A.GetNext(.k1) If k1="" Quit
If $IsObject(oLP2000A.HL) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.HRCHL_LEVEL",oLP2000A.HL.%Id())
If $IsObject(oLP2000A.PRV) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PRV_SPCL_INFO",oLP2000A.PRV.%Id())
If $IsObject(oLP2000A.CUR) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.FOREIGN_CURRENCY",oLP2000A.CUR.%Id())
Set II=..AddLoop2010AX(FN,ii,II,oLP2000A.Loop2010AA)
Set II=..AddLoop2010AX(FN,ii,II,oLP2000A.Loop2010AB)
Set II=..AddLoop2010AX(FN,ii,II,oLP2000A.Loop2010AC)
Set k2=""
For {
Set oLP2000B=oLP2000A.Loop2000B.GetNext(.k2) If k2="" Quit
If $IsObject(oLP2000B.HL) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.HRCHL_LEVEL",oLP2000B.HL.%Id())
If $IsObject(oLP2000B.SBR) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.SUBSCRIBER_INFO",oLP2000B.SBR.%Id())
If $IsObject(oLP2000B.PAT) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PATIENT_INFO",oLP2000B.PAT.%Id())
Set II=..AddLoop2010BX(FN,ii,II,oLP2000B.Loop2010BA)
Set II=..AddLoop2010BX(FN,ii,II,oLP2000B.Loop2010BB)
Set k3=""
For {
Set oLP2300=oLP2000B.Loop2300.GetNext(.k3) If k3="" Quit
Set II=..AddLoop2300(FN,ii,II,oLP2300)
}
Set k3=""
For {
Set oLP2000C=oLP2000B.Loop2000C.GetNext(.k3) If k3="" Quit
If $IsObject(oLP2000C.HL) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.HRCHL_LEVEL",oLP2000C.HL.%Id())
If $IsObject(oLP2000C.PAT) Set $$$sqlGl(ii,$I(II))=$LB("CREPOS.PATIENT_INFO",oLP2000C.PAT.%Id())
Set II=..AddLoop2010CA(FN,ii,II,oLP2000C.Loop2010CA)
Set k4=""
For {
Set oLP2300=oLP2000C.Loop2300.GetNext(.k4)
If '$IsObject(oLP2300) Quit
Set II=..AddLoop2300(FN,ii,II,oLP2300)
}
}
}
}
}
catch ex {
Do ##class(EDIGW.Utility).DebugBPL("EDIGW.TXNSETX:catch ex="_ex)
Do ##class(EDIGW.Utility).DebugBPL("EDIGW.TXNSETX:catch ex.DisplayString()="_ex.DisplayString())
}
Quit 1
]]></Implementation>
</Method>
<Storage name="Default">
<Type>%Library.CacheStorage</Type>
<DataLocation>^EDIGW.TXNSETXD</DataLocation>
<DefaultData>TXNSETXDefaultData</DefaultData>
<IdLocation>^EDIGW.TXNSETXD</IdLocation>
<IndexLocation>^EDIGW.TXNSETXI</IndexLocation>
<StreamLocation>^EDIGW.TXNSETXS</StreamLocation>
<Data name="TXNSETXDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>TXNSET</Value>
</Value>
<Value name="3">
<Value>Loop1000A</Value>
</Value>
<Value name="4">
<Value>Loop1000B</Value>
</Value>
<Value name="5">
<Value>Loop2000A</Value>
</Value>
<Value name="6">
<Value>IIterator</Value>
</Value>
</Data>
</Storage>
</Class>
</Export>