30060. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 6/20/2018 10:19:49 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

30060.1 Files compared

# Location File Last Modified
1 CCRS.zip\CCRS\ETL-v1.5.1.zip\ETL-master-ae881c8d32afd1c87f5cc1386e6734eba258f1ae 837P_CLAIM_CONDITION_DIAGNOSIS_02-26-2018.dsx Tue Apr 10 17:09:48 2018 UTC
2 CCRS.zip\CCRS\ETL-v1.5.1.zip\ETL-master-ae881c8d32afd1c87f5cc1386e6734eba258f1ae 837P_CLAIM_CONDITION_DIAGNOSIS_02-26-2018.dsx Thu Jun 14 15:38:36 2018 UTC

30060.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 47414
Changed 1 2
Inserted 0 0
Removed 0 0

30060.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

30060.4 Active regular expressions

No regular expressions were active.

30060.5 Comparison detail

  1   BEGIN HEAD ER
  2      Charact erSet "ENG LISH"
  3      Exporti ngTool "IB M InfoSphe re DataSta ge Export"
  4      ToolVer sion "8"
  5        ServerName  "
D NS .  P ORT
  6      ToolIns tanceID "c crs"
  7      MDISVer sion "1.0"
  8      Date "2 018-02-26"
  9      Time "1 7.16.07"
  10      ServerV ersion "11 .5"
  11   END HEADER
  12   BEGIN DSJO B
  13      Identif ier "EDI83 7P_CLAIM_C ONDITION_C ODE_load"
  14      DateMod ified "201 8-02-26"
  15      TimeMod ified "16. 40.40"
  16      BEGIN D SRECORD
  17         Iden tifier "RO OT"
  18         OLET ype "CJobD efn"
  19         Read only "0"
  20         Name  "EDI837P_ CLAIM_COND ITION_CODE _load"
  21         Desc ription "I nserts 837 P records  into CLAIM _CONDITION "
  22         Next ID "113"
  23         Cont ainer "V0"
  24         JobV ersion "56 .0.0"
  25         Cont rolAfterSu br "0"
  26         Para meters "CP arameters"
  27         BEGI N DSSUBREC ORD
  28            N ame "$SQL_ DB_UID"
  29            P rompt "MSS QL DB User -id"
  30            D efault "$P ROJDEF"
  31            P aramType " 0"
  32            P aramLength  "0"
  33            P aramScale  "0"
  34         END  DSSUBRECOR D
  35         BEGI N DSSUBREC ORD
  36            N ame "$SQL_ DB_PWD"
  37            P rompt "MSS QL DB Pass word"
  38            D efault "HD I@IJV8O9JN 064IL:JD1K 95"
  39            P aramType " 1"
  40            P aramLength  "0"
  41            P aramScale  "0"
  42         END  DSSUBRECOR D
  43         BEGI N DSSUBREC ORD
  44            N ame "$PROJ _DATA_DS"
  45            P rompt "Pro ject Data  directory  (datasets) "
  46            D efault "$P ROJDEF"
  47            P aramType " 0"
  48            P aramLength  "0"
  49            P aramScale  "0"
  50         END  DSSUBRECOR D
  51         BEGI N DSSUBREC ORD
  52            N ame "$SQL_ DB"
  53            P rompt "Dev elopment D atabase"
  54            D efault "$P ROJDEF"
  55            P aramType " 0"
  56            P aramLength  "0"
  57            P aramScale  "0"
  58         END  DSSUBRECOR D
  59         BEGI N DSSUBREC ORD
  60            N ame "Batch ClaimType"
  61            P rompt "Cla ims Group"
  62            D efault "83 7P"
  63            P aramType " 0"
  64            P aramLength  "0"
  65            P aramScale  "0"
  66         END  DSSUBRECOR D
  67         BEGI N DSSUBREC ORD
  68            N ame "$SQL_ DB_DSN"
  69            P rompt "MSS QL DB Data  Source Na me (DSN)"
  70            D efault "$P ROJDEF"
  71            P aramType " 0"
  72            P aramLength  "0"
  73            P aramScale  "0"
  74         END  DSSUBRECOR D
  75         Meta Bag "CMeta Property"
  76         BEGI N DSSUBREC ORD
  77            O wner "APT"
  78            N ame "Advan cedRuntime Options"
  79            V alue "#DSP rojectARTO ptions#"
  80         END  DSSUBRECOR D
  81         BEGI N DSSUBREC ORD
  82            O wner "APT"
  83            N ame "Trace Mode"
  84            V alue "0"
  85         END  DSSUBRECOR D
  86         BEGI N DSSUBREC ORD
  87            O wner "APT"
  88            N ame "Trace Seq"
  89            V alue "1"
  90         END  DSSUBRECOR D
  91         BEGI N DSSUBREC ORD
  92            O wner "APT"
  93            N ame "Trace Records"
  94            V alue "100"
  95         END  DSSUBRECOR D
  96         BEGI N DSSUBREC ORD
  97            O wner "APT"
  98            N ame "Trace Skip"
  99            V alue "0"
  100         END  DSSUBRECOR D
  101         BEGI N DSSUBREC ORD
  102            O wner "APT"
  103            N ame "Trace Period"
  104            V alue "1"
  105         END  DSSUBRECOR D
  106         BEGI N DSSUBREC ORD
  107            O wner "APT"
  108            N ame "Recor dJobPerfor manceData"
  109            V alue "0"
  110         END  DSSUBRECOR D
  111         BEGI N DSSUBREC ORD
  112            O wner "APT"
  113            N ame "Ident List"
  114            V alue "Xfrm _ClaimCond ition|Ins_ ClaimCondi tion"
  115         END  DSSUBRECOR D
  116         BEGI N DSSUBREC ORD
  117            O wner "APT"
  118            N ame "Clien tCodePage"
  119            V alue "1252 "
  120         END  DSSUBRECOR D
  121         NULL IndicatorP osition "0 "
  122         Orch estrateCod e =+=+=+=
  123   ########## ########## ########## ########## ########## ########## #####
  124   #### STAGE : Xfrm_Cla imConditio n
  125   ## Operato r
  126   transform
  127   ## Operato r options
  128   -flag run
  129   -name 'V0S 9_EDI837P_ CLAIM_COND ITION_CODE _load_Xfrm _ClaimCond ition'
  130  
  131   ## General  options
  132   [ident('Xf rm_ClaimCo ndition');  jobmon_id ent('Xfrm_ ClaimCondi tion')]
  133   ## Inputs
  134   0< [] 'Ds_ ClaimCondi tion:ClmCo nd.v'
  135   ## Outputs
  136   0> [] 'Xfr m_ClaimCon dition:Ins _ClaimCond .v'
  137   ;
  138  
  139   ########## ########## ########## ########## ########## ########## #####
  140   #### STAGE : Ins_Clai mCondition
  141   ## Operato r
  142   pxbridge
  143   ## Operato r options
  144   -Orientati on link
  145   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>2</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>-1</ PartitionT ype><RCP t ype=\\'int \\'>0</RCP ></Common> <Connectio n><DataSou rce modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_D SN"]]]></D ataSource> <Username  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB_UID"] ]]></Usern ame><Passw ord modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_P WD"]]]></P assword></ Connection ><Usage><W riteMode m odified=\\ '1\\' type =\\'int\\' ><![CDATA[ 0]]></Writ eMode><Gen erateSQL m odified=\\ '1\\' type =\\'bool\\ '><![CDATA [1]]></Gen erateSQL>< TableName  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB"].dbo .CLAIM_CON DITION_COD E]]></Tabl eName><Ena bleQuotedI Ds modifie d=\\'1\\'  type=\\'bo ol\\'><![C DATA[1]]>< /EnableQuo tedIDs><SQ L></SQL><T ableAction  collapsed =\\'1\\' t ype=\\'int \\'><![CDA TA[0]]></T ableAction ><Transact ion><Recor dCount typ e=\\'int\\ '><![CDATA [2000]]></ RecordCoun t></Transa ction><Ses sion><Isol ationLevel  type=\\'i nt\\'><![C DATA[1]]>< /Isolation Level><Aut ocommitMod e type=\\' int\\'><![ CDATA[0]]> </Autocomm itMode><Ar raySize ty pe=\\'int\ \'><![CDAT A[2000]]>< /ArraySize ><SchemaRe conciliati on><FailOn SizeMismat ch type=\\ 'bool\\'>< ![CDATA[1] ]></FailOn SizeMismat ch><FailOn TypeMismat ch type=\\ 'bool\\'>< ![CDATA[1] ]></FailOn TypeMismat ch><FailOn CodePageMi smatch typ e=\\'bool\ \'><![CDAT A[0]]></Fa ilOnCodePa geMismatch ><DropUnma tchedField s type=\\' bool\\'><! [CDATA[1]] ></DropUnm atchedFiel ds></Schem aReconcili ation><Cod ePage coll apsed=\\'1 \\' type=\ \'int\\'>< ![CDATA[0] ]></CodePa ge><FailOn RowErrorPX  type=\\'b ool\\'><![ CDATA[1]]> </FailOnRo wErrorPX>< /Session>< Logging><L ogColumnVa lues colla psed=\\'1\ \' type=\\ 'bool\\'>< ![CDATA[0] ]></LogCol umnValues> </Logging> <BeforeAft er collaps ed=\\'1\\'  type=\\'b ool\\'><![ CDATA[0]]> </BeforeAf ter></Usag e></Proper ties >'
  146   -connector  '{
  147      variant =\\'3.5\\'
  148      library =ccodbc, 
  149      version =1.0, 
  150      variant list=\\'V1 ;3.5::ccod bc\\', 
  151      version list=\\'1. 0\\', 
  152      name=OD BCConnecto r
  153   }'
  154   -target 0  '{
  155         DSSQ LType={cla im_key=4,  code=12, s ource_enti ty=12, is_ current=1,  start_dat e=9, sourc e_system=1 2}, 
  156         DSDe rivation={ claim_key= \\'ClmCond \\.claim_k ey\\', cod e=\\'ClmCo nd\\.condi tion_code\ \', source _entity=\\ 'ClmCond\\ .source_en tity\\', i s_current= \\'\\\\\\' Y\\\\\\'\\ ', start_d ate=\\'DSJ obStartDat e\\', sour ce_system= \\'\\\\\\' EDI\\\\\\' \\'}, 
  157         DSSQ LPrecision ={claim_ke y=4, code= 30, source _entity=50 , is_curre nt=1, star t_date=10,  source_sy stem=20}, 
  158         DSNa tiveType={ claim_key= \\'int\\',  source_en tity=\\'va rchar\\'},  
  159         DSSc hema=\\'re cord
  160            (
  161               claim_key \\:nullabl e int32\\;
  162               code\\:nu llable str ing\\[max\ \=30\\]\\;
  163               source_en tity\\:nul lable stri ng\\[max\\ =50\\]\\;
  164               is_curren t\\:string \\[1\\]\\;
  165               start_dat e\\:nullab le date\\;
  166               source_sy stem\\:nul lable stri ng\\[max\\ =20\\]\\;
  167            ) \\'
  168   }'
  169      
  170  
  171   ## General  options
  172   [ident('In s_ClaimCon dition');  jobmon_ide nt('Ins_Cl aimConditi on')]
  173   ## Inputs
  174   0< [] 'Xfr m_ClaimCon dition:Ins _ClaimCond .v'
  175   ;
  176  
  177   ########## ########## ########## ########## ########## ########## #####
  178   #### STAGE : Ds_Claim Condition
  179   ## Operato r
  180   copy
  181   ## General  options
  182   [ident('Ds _ClaimCond ition')]
  183   ## Inputs
  184   0< [ds] '[ &"$PROJ_DA TA_DS"][&" BatchClaim Type"]_Cla imConditio nCode.ds'
  185   ## Outputs
  186   0> [modify  (
  187     claim_ke y:nullable  int32=cla im_key;
  188     conditio n_qualif:n ullable st ring[max=1 0]=conditi on_qualif;
  189     conditio n_code:nul lable stri ng[max=30] =condition _code;
  190     source_e ntity:null able strin g[max=50]= source_ent ity;
  191   keep
  192     claim_ke y,conditio n_qualif,c ondition_c ode,source _entity;
  193   )] 'Ds_Cla imConditio n:ClmCond. v'
  194   ;
  195  
  196  
  197   =+=+=+=
  198         IsTe mplate "0"
  199         NLSL ocale ",,, ,"
  200         JobT ype "3"
  201         Cate gory "\\Jo bs\\PIT\\C P&E_EDI\\L oad"
  202         Cent uryBreakYe ar "30"
  203         Next AliasID "2 "
  204         Para meterFileD DName "DD0 0001"
  205         Rese rvedWordCh eck "1"
  206         Tran sactionSiz e "0"
  207         Vali dationStat us "0"
  208         Uplo adable "0"
  209         PgmC ustomizati onFlag "0"
  210         JobR eportFlag  "0"
  211         Allo wMultipleI nvocations  "0"
  212         Act2 ActOveride Defaults " 0"
  213         Act2 ActEnableR owBuffer " 0"
  214         Act2 ActUseIPC  "0"
  215         Act2 ActBufferS ize "0"
  216         Act2 ActIPCTime out "0"
  217         Expr essionSema nticCheckF lag "0"
  218         Trac eOption "0 "
  219         Enab leCacheSha ring "0"
  220         Runt imeColumnP ropagation  "0"
  221         RelS tagesInJob Status "-1 "
  222         WebS erviceEnab led "0"
  223         MFPr ocessMetaD ata "0"
  224         MFPr ocessMetaD ataXMLFile ExchangeMe thod "0"
  225         IMSP rogType "0 "
  226         Copy LibPrefix  "ARDT"
  227         Reco rdPerforma nceResults  "0"
  228      END DSR ECORD
  229      BEGIN D SRECORD
  230         Iden tifier "V0 "
  231         OLET ype "CCont ainerView"
  232         Read only "0"
  233         Name  "Job"
  234         Next ID "1"
  235         IsTo pLevel "0"
  236         Stag eList "V0S 9|V0S15|V1 12S0|V0A50 "
  237         Stag eXPos "360 |576|144|1 24"
  238         Stag eYPos "144 |144|144|3 5"
  239         Stag eTypes "CT ransformer Stage|CCus tomStage.C C_GUI|CCus tomStage|I D_PALETTEJ OBANNOTATI ON"
  240         Next StageID "5 1"
  241         Snap ToGrid "1"
  242         Grid Lines "0"
  243         Zoom Value "100 "
  244         Stag eXSize "48 |48|48|198 "
  245         Stag eYSize "48 |48|48|72"
  246         Cont ainerViewS izing "003 4 0050 087 5 0457 000 0 0001 000 0 0000"
  247         Stag eNames "Xf rm_ClaimCo ndition|In s_ClaimCon dition|Ds_ ClaimCondi tion| "
  248         Stag eTypeIDs " CTransform erStage|OD BCConnecto rPX|PxData Set| "
  249         Link Names "Ins _ClaimCond | |ClmCond | "
  250         Link HasMetaDat as "True|  |True| "
  251         Link Types "1|  |1| "
  252         Link NamePositi onXs "416|  |234| "
  253         Link NamePositi onYs "168|  |173| "
  254         Targ etStageIDs  "V0S15| | V0S9| "
  255         Sour ceStageEff ectiveExec utionModes  "2| |2| "
  256         Sour ceStageRun timeExecut ionModes " 2| |2| "
  257         Targ etStageEff ectiveExec utionModes  "2| |2| "
  258         Targ etStageRun timeExecut ionModes " 2| |2| "
  259         Link IsSingleOp eratorLook up "False|  |False| "
  260         Link IsSortSequ ential "Fa lse| |Fals e| "
  261         Link SortMode " 0| |0| "
  262         Link PartColMod e "1| |1|  "
  263         Link SourcePinI Ds "V0S9P1 8| |V112S0 P2| "
  264      END DSR ECORD
  265      BEGIN D SRECORD
  266         Iden tifier "V0 A50"
  267         OLET ype "CAnno tation"
  268         Read only "0"
  269         Name  "V0A50"
  270         Next ID "0"
  271         Anno tationType  "1"
  272         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  273         Text Horizontal Justificat ion "1"
  274         Text VerticalJu stificatio n "1"
  275         Text Color "0"
  276         Back groundColo r "1271398 3"
  277         Back groundTran sparent "0 "
  278         Bord erVisible  "1"
  279      END DSR ECORD
  280      BEGIN D SRECORD
  281         Iden tifier "V0 S15"
  282         OLET ype "CCust omStage"
  283         Read only "0"
  284         Name  "Ins_Clai mCondition "
  285         Next ID "4"
  286         Inpu tPins "V0S 15P3"
  287         Stag eType "ODB CConnector PX"
  288         Allo wColumnMap ping "0"
  289         Prop erties "CC ustomPrope rty"
  290         BEGI N DSSUBREC ORD
  291            N ame "Varia ntName"
  292            V alue "3.5"
  293         END  DSSUBRECOR D
  294         BEGI N DSSUBREC ORD
  295            N ame "Varia ntLibrary"
  296            V alue "ccod bc"
  297         END  DSSUBRECOR D
  298         BEGI N DSSUBREC ORD
  299            N ame "Varia ntVersion"
  300            V alue "1.0"
  301         END  DSSUBRECOR D
  302         BEGI N DSSUBREC ORD
  303            N ame "Suppo rtedVarian ts"
  304            V alue "V1;3 .5::ccodbc "
  305         END  DSSUBRECOR D
  306         BEGI N DSSUBREC ORD
  307            N ame "Suppo rtedVarian tsLibrarie s"
  308            V alue "ccod bc"
  309         END  DSSUBRECOR D
  310         BEGI N DSSUBREC ORD
  311            N ame "Suppo rtedVarian tsVersions "
  312            V alue "1.0"
  313         END  DSSUBRECOR D
  314         BEGI N DSSUBREC ORD
  315            N ame "Orien tation"
  316            V alue "link "
  317         END  DSSUBRECOR D
  318         BEGI N DSSUBREC ORD
  319            N ame "Rejec tFromLink"
  320            V alue "-1"
  321         END  DSSUBRECOR D
  322         BEGI N DSSUBREC ORD
  323            N ame "Rejec tThreshold "
  324            V alue "0"
  325         END  DSSUBRECOR D
  326         BEGI N DSSUBREC ORD
  327            N ame "Rejec tNumber"
  328            V alue "0"
  329         END  DSSUBRECOR D
  330         BEGI N DSSUBREC ORD
  331            N ame "Rejec tUsesPerce ntage"
  332            V alue "fals e"
  333         END  DSSUBRECOR D
  334         BEGI N DSSUBREC ORD
  335            N ame "Conne ctorName"
  336            V alue "ODBC Connector"
  337         END  DSSUBRECOR D
  338         BEGI N DSSUBREC ORD
  339            N ame "Engin e"
  340            V alue "EE"
  341         END  DSSUBRECOR D
  342         BEGI N DSSUBREC ORD
  343            N ame "Conte xt"
  344            V alue "targ et"
  345         END  DSSUBRECOR D
  346         BEGI N DSSUBREC ORD
  347            N ame "Conne ctionStrin g"
  348            V alue "/Con nection/Da taSource"
  349         END  DSSUBRECOR D
  350         BEGI N DSSUBREC ORD
  351            N ame "Usern ame"
  352            V alue "/Con nection/Us ername"
  353         END  DSSUBRECOR D
  354         BEGI N DSSUBREC ORD
  355            N ame "Passw ord"
  356            V alue "/Con nection/Pa ssword"
  357         END  DSSUBRECOR D
  358         BEGI N DSSUBREC ORD
  359            N ame "XMLPr operties"
  360            V alue "<?xm l version= '1.0' enco ding='UTF- 16'?><Prop erties ver sion='1.1' ><Common>< Context ty pe='int'>2 </Context> <Variant t ype='strin g'>3.5</Va riant><Des criptorVer sion type= 'string'>1 .0</Descri ptorVersio n><Partiti onType typ e='int'>-1 </Partitio nType><RCP  type='int '>0</RCP>< /Common><C onnection> <DataSourc e modified ='1' type= 'string'>< ![CDATA[#$ SQL_DB_DSN #]]></Data Source><Us ername mod ified='1'  type='stri ng'><![CDA TA[#$SQL_D B_UID#]]>< /Username> <Password  modified=' 1' type='s tring'><![ CDATA[#$SQ L_DB_PWD#] ]></Passwo rd></Conne ction><Usa ge><WriteM ode modifi ed='1' typ e='int'><! [CDATA[0]] ></WriteMo de><Genera teSQL modi fied='1' t ype='bool' ><![CDATA[ 1]]></Gene rateSQL><T ableName m odified='1 ' type='st ring'><![C DATA[#$SQL _DB#.dbo.C LAIM_CONDI TION_CODE] ]></TableN ame><Enabl eQuotedIDs  modified= '1' type=' bool'><![C DATA[1]]>< /EnableQuo tedIDs><SQ L></SQL><T ableAction  collapsed ='1' type= 'int'><![C DATA[0]]>< /TableActi on><Transa ction><Rec ordCount t ype='int'> <![CDATA[2 000]]></Re cordCount> </Transact ion><Sessi on><Isolat ionLevel t ype='int'> <![CDATA[1 ]]></Isola tionLevel> <Autocommi tMode type ='int'><![ CDATA[0]]> </Autocomm itMode><Ar raySize ty pe='int'>< ![CDATA[20 00]]></Arr aySize><Sc hemaReconc iliation>< FailOnSize Mismatch t ype='bool' ><![CDATA[ 1]]></Fail OnSizeMism atch><Fail OnTypeMism atch type= 'bool'><![ CDATA[1]]> </FailOnTy peMismatch ><FailOnCo dePageMism atch type= 'bool'><![ CDATA[0]]> </FailOnCo dePageMism atch><Drop UnmatchedF ields type ='bool'><! [CDATA[1]] ></DropUnm atchedFiel ds></Schem aReconcili ation><Cod ePage coll apsed='1'  type='int' ><![CDATA[ 0]]></Code Page><Fail OnRowError PX type='b ool'><![CD ATA[1]]></ FailOnRowE rrorPX></S ession><Lo gging><Log ColumnValu es collaps ed='1' typ e='bool'>< ![CDATA[0] ]></LogCol umnValues> </Logging> <BeforeAft er collaps ed='1' typ e='bool'>< ![CDATA[0] ]></Before After></Us age></Prop erties >"
  361         END  DSSUBRECOR D
  362         BEGI N DSSUBREC ORD
  363            N ame "suppo rtedTransa ctionModel "
  364            V alue "loca l"
  365         END  DSSUBRECOR D
  366         Next RecordID " 0"
  367      END DSR ECORD
  368      BEGIN D SRECORD
  369         Iden tifier "V0 S15P3"
  370         OLET ype "CCust omInput"
  371         Read only "0"
  372         Name  "Ins_Clai mCond"
  373         Part ner "V0S9| V0S9P18"
  374         Link Type "1"
  375         Cond itionNotMe t "fail"
  376         Look upFail "fa il"
  377         Prop erties "CC ustomPrope rty"
  378         BEGI N DSSUBREC ORD
  379            N ame "Varia ntName"
  380            V alue "3.5"
  381         END  DSSUBRECOR D
  382         BEGI N DSSUBREC ORD
  383            N ame "Varia ntLibrary"
  384            V alue "ccod bc"
  385         END  DSSUBRECOR D
  386         BEGI N DSSUBREC ORD
  387            N ame "Varia ntVersion"
  388            V alue "1.0"
  389         END  DSSUBRECOR D
  390         BEGI N DSSUBREC ORD
  391            N ame "Rejec tFromLink"
  392            V alue "-1"
  393         END  DSSUBRECOR D
  394         BEGI N DSSUBREC ORD
  395            N ame "Rejec tThreshold "
  396            V alue "0"
  397         END  DSSUBRECOR D
  398         BEGI N DSSUBREC ORD
  399            N ame "Rejec tNumber"
  400            V alue "0"
  401         END  DSSUBRECOR D
  402         BEGI N DSSUBREC ORD
  403            N ame "Rejec tUsesPerce ntage"
  404            V alue "fals e"
  405         END  DSSUBRECOR D
  406         BEGI N DSSUBREC ORD
  407            N ame "Conne ctorName"
  408            V alue "ODBC Connector"
  409         END  DSSUBRECOR D
  410         Meta Bag "CMeta Property"
  411         BEGI N DSSUBREC ORD
  412            O wner "APT"
  413            N ame "RTCol umnProp"
  414            V alue "0"
  415         END  DSSUBRECOR D
  416         Tran sactionSiz e "0"
  417         TXNB ehaviour " 0"
  418         Enab leTxGroup  "0"
  419         Link Minimised  "0"
  420      END DSR ECORD
  421      BEGIN D SRECORD
  422         Iden tifier "V0 S9"
  423         OLET ype "CTran sformerSta ge"
  424         Read only "0"
  425         Name  "Xfrm_Cla imConditio n"
  426         Next ID "28"
  427         Inpu tPins "V0S 9P27"
  428         Outp utPins "V0 S9P18"
  429         Meta Bag "CMeta Property"
  430         BEGI N DSSUBREC ORD
  431            O wner "APT"
  432            N ame "TrxGe nCode"
  433            V alue =+=+= +=
  434   //
  435   // Generat ed file to  implement  the V0S9_ EDI837P_CL AIM_CONDIT ION_CODE_l oad_Xfrm_C laimCondit ion transf orm operat or.
  436   //
  437  
  438   // define  our input/ output lin k names
  439   inputname  0 ClmCond;
  440   outputname  0 Ins_Cla imCond;
  441  
  442   global {
  443    string DS JobStartDa te;
  444   }
  445  
  446   initialize  {
  447    // define  our contr ol variabl es
  448    int8 RowR ejected0;
  449    int8 Null SetVar0;
  450  
  451    // declar e our inte rmediate v ariables f or this se ction (1)
  452    string In terVar0_0;
  453    string In terVar0_1;
  454  
  455    // initia lise const ant values  which req uire conve rsion
  456    InterVar0 _0 = "Y";
  457    InterVar0 _1 = "EDI" ;
  458   }
  459  
  460   mainloop {
  461  
  462    // initia lise the r ejected ro w variable
  463    RowReject ed0 = 1;
  464  
  465    // evalua te columns  (no const raints) fo r link: In s_ClaimCon d
  466    Ins_Claim Cond.code  = ClmCond. condition_ code;
  467    Ins_Claim Cond.is_cu rrent = In terVar0_0;
  468    Ins_Claim Cond.start _date = da te_from_st ring(DSJob StartDate) ;
  469    Ins_Claim Cond.sourc e_system =  InterVar0 _1;
  470    writereco rd 0;
  471    RowReject ed0 = 0;
  472   }
  473  
  474   finish {
  475   }
  476  
  477   =+=+=+=
  478         END  DSSUBRECOR D
  479         BEGI N DSSUBREC ORD
  480            O wner "APT"
  481            N ame "TrxGe nCache"
  482            V alue "0"
  483         END  DSSUBRECOR D
  484         BEGI N DSSUBREC ORD
  485            O wner "APT"
  486            N ame "TrxCl assName"
  487            V alue "V0S9 _EDI837P_C LAIM_CONDI TION_CODE_ load_Xfrm_ ClaimCondi tion"
  488         END  DSSUBRECOR D
  489         Vali dationStat us "0"
  490         Stag eType "CTr ansformerS tage"
  491         Bloc kSize "0"
  492         SKKe ySourceTyp e "file"
  493         Stag eVarsMinim ised "0"
  494         Loop VarsMaximi sed "0"
  495         MaxL oopIterati ons "0"
  496      END DSR ECORD
  497      BEGIN D SRECORD
  498         Iden tifier "V0 S9P18"
  499         OLET ype "CTrxO utput"
  500         Read only "0"
  501         Name  "Ins_Clai mCond"
  502         Part ner "V0S15 |V0S15P3"
  503         Reje ct "0"
  504         Erro rPin "0"
  505         RowL imit "0"
  506         Colu mns "COutp utColumn"
  507         BEGI N DSSUBREC ORD
  508            N ame "claim _key"
  509            S qlType "4"
  510            P recision " 4"
  511            S cale "0"
  512            N ullable "1 "
  513            K eyPosition  "0"
  514            D isplaySize  "0"
  515            D erivation  "ClmCond.c laim_key"
  516            G roup "0"
  517            P arsedDeriv ation "Clm Cond.claim _key"
  518            S ourceColum n "ClmCond .claim_key "
  519            S ortKey "0"
  520            S ortType "0 "
  521            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  522            F ieldPos "2 "
  523            A llowCRLF " 0"
  524            L evelNo "0"
  525            N ativeType  "int"
  526            O ccurs "0"
  527            P adNulls "0 "
  528            S ignOption  "0"
  529            S ortingOrde r "0"
  530            A rrayHandli ng "0"
  531            S yncIndicat or "0"
  532            P adChar ""
  533            C olumnRefer ence "clai m_key"
  534            E xtendedPre cision "0"
  535            T aggedSubre c "0"
  536            O ccursVaryi ng "0"
  537            P KeyIsCasel ess "0"
  538            S CDPurpose  "0"
  539         END  DSSUBRECOR D
  540         BEGI N DSSUBREC ORD
  541            N ame "code"
  542            S qlType "12 "
  543            P recision " 30"
  544            S cale "0"
  545            N ullable "1 "
  546            K eyPosition  "0"
  547            D isplaySize  "0"
  548            D erivation  "ClmCond.c ondition_c ode"
  549            G roup "0"
  550            P arsedDeriv ation "Clm Cond.condi tion_code"
  551            S ourceColum n "ClmCond .condition _code"
  552            S ortKey "0"
  553            S ortType "0 "
  554            A llowCRLF " 0"
  555            L evelNo "0"
  556            O ccurs "0"
  557            P adNulls "0 "
  558            S ignOption  "0"
  559            S ortingOrde r "0"
  560            A rrayHandli ng "0"
  561            S yncIndicat or "0"
  562            P adChar ""
  563            E xtendedPre cision "0"
  564            T aggedSubre c "0"
  565            O ccursVaryi ng "0"
  566            P KeyIsCasel ess "0"
  567            S CDPurpose  "0"
  568         END  DSSUBRECOR D
  569         BEGI N DSSUBREC ORD
  570            N ame "sourc e_entity"
  571            S qlType "12 "
  572            P recision " 50"
  573            S cale "0"
  574            N ullable "1 "
  575            K eyPosition  "0"
  576            D isplaySize  "0"
  577            D erivation  "ClmCond.s ource_enti ty"
  578            G roup "0"
  579            P arsedDeriv ation "Clm Cond.sourc e_entity"
  580            S ourceColum n "ClmCond .source_en tity"
  581            S ortKey "0"
  582            S ortType "0 "
  583            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  584            F ieldPos "2 0"
  585            A llowCRLF " 0"
  586            L evelNo "0"
  587            N ativeType  "varchar"
  588            O ccurs "0"
  589            P adNulls "0 "
  590            S ignOption  "0"
  591            S ortingOrde r "0"
  592            A rrayHandli ng "0"
  593            S yncIndicat or "0"
  594            P adChar ""
  595            C olumnRefer ence "sour ce_entity"
  596            E xtendedPre cision "0"
  597            T aggedSubre c "0"
  598            O ccursVaryi ng "0"
  599            P KeyIsCasel ess "0"
  600            S CDPurpose  "0"
  601         END  DSSUBRECOR D
  602         BEGI N DSSUBREC ORD
  603            N ame "is_cu rrent"
  604            S qlType "1"
  605            P recision " 1"
  606            S cale "0"
  607            N ullable "0 "
  608            K eyPosition  "0"
  609            D isplaySize  "0"
  610            D erivation  "'Y'"
  611            G roup "0"
  612            P arsedDeriv ation "'Y' "
  613            S ortKey "0"
  614            S ortType "0 "
  615            A llowCRLF " 0"
  616            L evelNo "0"
  617            O ccurs "0"
  618            P adNulls "0 "
  619            S ignOption  "0"
  620            S ortingOrde r "0"
  621            A rrayHandli ng "0"
  622            S yncIndicat or "0"
  623            P adChar ""
  624            E xtendedPre cision "0"
  625            T aggedSubre c "0"
  626            O ccursVaryi ng "0"
  627            P KeyIsCasel ess "0"
  628            S CDPurpose  "0"
  629         END  DSSUBRECOR D
  630         BEGI N DSSUBREC ORD
  631            N ame "start _date"
  632            S qlType "9"
  633            P recision " 10"
  634            S cale "0"
  635            N ullable "1 "
  636            K eyPosition  "0"
  637            D isplaySize  "0"
  638            D erivation  "DSJobStar tDate"
  639            G roup "0"
  640            P arsedDeriv ation "DSJ obStartDat e"
  641            S ortKey "0"
  642            S ortType "0 "
  643            A llowCRLF " 0"
  644            L evelNo "0"
  645            O ccurs "0"
  646            P adNulls "0 "
  647            S ignOption  "0"
  648            S ortingOrde r "0"
  649            A rrayHandli ng "0"
  650            S yncIndicat or "0"
  651            P adChar ""
  652            E xtendedPre cision "0"
  653            T aggedSubre c "0"
  654            O ccursVaryi ng "0"
  655            P KeyIsCasel ess "0"
  656            S CDPurpose  "0"
  657         END  DSSUBRECOR D
  658         BEGI N DSSUBREC ORD
  659            N ame "sourc e_system"
  660            S qlType "12 "
  661            P recision " 20"
  662            S cale "0"
  663            N ullable "1 "
  664            K eyPosition  "0"
  665            D isplaySize  "0"
  666            D erivation  "'EDI'"
  667            G roup "0"
  668            P arsedDeriv ation "'ED I'"
  669            S ortKey "0"
  670            S ortType "0 "
  671            A llowCRLF " 0"
  672            L evelNo "0"
  673            O ccurs "0"
  674            P adNulls "0 "
  675            S ignOption  "0"
  676            S ortingOrde r "0"
  677            A rrayHandli ng "0"
  678            S yncIndicat or "0"
  679            P adChar ""
  680            E xtendedPre cision "0"
  681            T aggedSubre c "0"
  682            O ccursVaryi ng "0"
  683            P KeyIsCasel ess "0"
  684            S CDPurpose  "0"
  685         END  DSSUBRECOR D
  686         Meta Bag "CMeta Property"
  687         BEGI N DSSUBREC ORD
  688            O wner "APT"
  689            N ame "DiskW riteInc"
  690            V alue "1048 576"
  691         END  DSSUBRECOR D
  692         BEGI N DSSUBREC ORD
  693            O wner "APT"
  694            N ame "BufFr eeRun"
  695            V alue "50"
  696         END  DSSUBRECOR D
  697         BEGI N DSSUBREC ORD
  698            O wner "APT"
  699            N ame "MaxMe mBufSize"
  700            V alue "3145 728"
  701         END  DSSUBRECOR D
  702         BEGI N DSSUBREC ORD
  703            O wner "APT"
  704            N ame "Queue UpperSize"
  705            V alue "0"
  706         END  DSSUBRECOR D
  707         BEGI N DSSUBREC ORD
  708            O wner "APT"
  709            N ame "Schem a"
  710            V alue =+=+= +=
  711   record
  712   (
  713     claim_ke y:nullable  int32;
  714     code:nul lable stri ng[max=30] ;
  715     source_e ntity:null able strin g[max=50];
  716     is_curre nt:string[ 1];
  717     start_da te:nullabl e date;
  718     source_s ystem:null able strin g[max=20];
  719   )
  720   =+=+=+=
  721         END  DSSUBRECOR D
  722         Left TextPos "4 16"
  723         TopT extPos "16 8"
  724         Link Minimised  "0"
  725      END DSR ECORD
  726      BEGIN D SRECORD
  727         Iden tifier "V0 S9P27"
  728         OLET ype "CTrxI nput"
  729         Read only "0"
  730         Name  "ClmCond"
  731         Part ner "V112S 0|V112S0P2 "
  732         Link Type "1"
  733         Meta Bag "CMeta Property"
  734         BEGI N DSSUBREC ORD
  735            O wner "APT"
  736            N ame "RTCol umnProp"
  737            V alue "0"
  738         END  DSSUBRECOR D
  739         BEGI N DSSUBREC ORD
  740            O wner "APT"
  741            N ame "Schem a"
  742            V alue =+=+= +=
  743   record
  744   (
  745     claim_ke y:nullable  int32;
  746     conditio n_qualif:n ullable st ring[max=1 0];
  747     conditio n_code:nul lable stri ng[max=30] ;
  748     source_e ntity:null able strin g[max=50];
  749   )
  750   =+=+=+=
  751         END  DSSUBRECOR D
  752         Mult iRow "0"
  753         Link Minimised  "0"
  754      END DSR ECORD
  755      BEGIN D SRECORD
  756         Iden tifier "V1 12S0"
  757         OLET ype "CCust omStage"
  758         Read only "0"
  759         Name  "Ds_Claim Condition"
  760         Next ID "3"
  761         Outp utPins "V1 12S0P2"
  762         Stag eType "PxD ataSet"
  763         Allo wColumnMap ping "0"
  764         Next RecordID " 0"
  765      END DSR ECORD
  766      BEGIN D SRECORD
  767         Iden tifier "V1 12S0P2"
  768         OLET ype "CCust omOutput"
  769         Read only "0"
  770         Name  "ClmCond"
  771         Part ner "V0S9| V0S9P27"
  772         Prop erties "CC ustomPrope rty"
  773         BEGI N DSSUBREC ORD
  774            N ame "datas et"
  775            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Cl aimConditi onCode.ds"
  776         END  DSSUBRECOR D
  777         BEGI N DSSUBREC ORD
  778            N ame "missi ngcolmode"
  779            V alue " "
  780         END  DSSUBRECOR D
  781         Colu mns "COutp utColumn"
  782         BEGI N DSSUBREC ORD
  783            N ame "claim _key"
  784            D escription  =+=+=+=
  785   <none>
  786   Searchable ? N 
  787   =+=+=+=
  788            S qlType "4"
  789            P recision " 4"
  790            S cale "0"
  791            N ullable "1 "
  792            K eyPosition  "0"
  793            D isplaySize  "11"
  794            G roup "0"
  795            S ortKey "0"
  796            S ortType "0 "
  797            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  798            A llowCRLF " 0"
  799            L evelNo "0"
  800            N ativeType  "int"
  801            O ccurs "0"
  802            P adNulls "0 "
  803            S ignOption  "0"
  804            S ortingOrde r "0"
  805            A rrayHandli ng "0"
  806            S yncIndicat or "0"
  807            P adChar ""
  808            C olumnRefer ence "clai m_key"
  809            E xtendedPre cision "0"
  810            T aggedSubre c "0"
  811            O ccursVaryi ng "0"
  812            P KeyIsCasel ess "0"
  813            S CDPurpose  "0"
  814         END  DSSUBRECOR D
  815         BEGI N DSSUBREC ORD
  816            N ame "condi tion_quali f"
  817            S qlType "12 "
  818            P recision " 10"
  819            S cale "0"
  820            N ullable "1 "
  821            K eyPosition  "0"
  822            D isplaySize  "0"
  823            G roup "0"
  824            S ortKey "0"
  825            S ortType "0 "
  826            A llowCRLF " 0"
  827            L evelNo "0"
  828            O ccurs "0"
  829            P adNulls "0 "
  830            S ignOption  "0"
  831            S ortingOrde r "0"
  832            A rrayHandli ng "0"
  833            S yncIndicat or "0"
  834            P adChar ""
  835            E xtendedPre cision "0"
  836            T aggedSubre c "0"
  837            O ccursVaryi ng "0"
  838            P KeyIsCasel ess "0"
  839            S CDPurpose  "0"
  840         END  DSSUBRECOR D
  841         BEGI N DSSUBREC ORD
  842            N ame "condi tion_code"
  843            S qlType "12 "
  844            P recision " 30"
  845            S cale "0"
  846            N ullable "1 "
  847            K eyPosition  "0"
  848            D isplaySize  "0"
  849            G roup "0"
  850            S ortKey "0"
  851            S ortType "0 "
  852            A llowCRLF " 0"
  853            L evelNo "0"
  854            O ccurs "0"
  855            P adNulls "0 "
  856            S ignOption  "0"
  857            S ortingOrde r "0"
  858            A rrayHandli ng "0"
  859            S yncIndicat or "0"
  860            P adChar ""
  861            E xtendedPre cision "0"
  862            T aggedSubre c "0"
  863            O ccursVaryi ng "0"
  864            P KeyIsCasel ess "0"
  865            S CDPurpose  "0"
  866         END  DSSUBRECOR D
  867         BEGI N DSSUBREC ORD
  868            N ame "sourc e_entity"
  869            S qlType "12 "
  870            P recision " 50"
  871            S cale "0"
  872            N ullable "1 "
  873            K eyPosition  "0"
  874            D isplaySize  "0"
  875            G roup "0"
  876            S ortKey "0"
  877            S ortType "0 "
  878            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  879            F ieldPos "2 0"
  880            A llowCRLF " 0"
  881            L evelNo "0"
  882            N ativeType  "varchar"
  883            O ccurs "0"
  884            P adNulls "0 "
  885            S ignOption  "0"
  886            S ortingOrde r "0"
  887            A rrayHandli ng "0"
  888            S yncIndicat or "0"
  889            P adChar ""
  890            C olumnRefer ence "sour ce_entity"
  891            E xtendedPre cision "0"
  892            T aggedSubre c "0"
  893            O ccursVaryi ng "0"
  894            P KeyIsCasel ess "0"
  895            S CDPurpose  "0"
  896         END  DSSUBRECOR D
  897         Meta Bag "CMeta Property"
  898         BEGI N DSSUBREC ORD
  899            O wner "APT"
  900            N ame "DiskW riteInc"
  901            V alue "1048 576"
  902         END  DSSUBRECOR D
  903         BEGI N DSSUBREC ORD
  904            O wner "APT"
  905            N ame "BufFr eeRun"
  906            V alue "50"
  907         END  DSSUBRECOR D
  908         BEGI N DSSUBREC ORD
  909            O wner "APT"
  910            N ame "MaxMe mBufSize"
  911            V alue "3145 728"
  912         END  DSSUBRECOR D
  913         BEGI N DSSUBREC ORD
  914            O wner "APT"
  915            N ame "Queue UpperSize"
  916            V alue "0"
  917         END  DSSUBRECOR D
  918         Left TextPos "2 34"
  919         TopT extPos "17 3"
  920         Link Minimised  "0"
  921      END DSR ECORD
  922   END DSJOB
  923   BEGIN DSJO B
  924      Identif ier "EDI83 7P_CLAIM_C ONDITION_C ODE_prep"
  925      DateMod ified "201 8-02-26"
  926      TimeMod ified "16. 42.55"
  927      BEGIN D SRECORD
  928         Iden tifier "RO OT"
  929         OLET ype "CJobD efn"
  930         Read only "0"
  931         Name  "EDI837P_ CLAIM_COND ITION_CODE _prep"
  932         Desc ription "P repares 83 7P data fo r insert i nto CLAIM_ CONDITION_ CODE table "
  933         Next ID "140"
  934         Cont ainer "V0"
  935         JobV ersion "56 .0.0"
  936         Cont rolAfterSu br "0"
  937         Para meters "CP arameters"
  938         BEGI N DSSUBREC ORD
  939            N ame "$PROJ _DATA_SFIL E"
  940            P rompt "Pro ject Data  directory  (sequentia l files)"
  941            D efault "$P ROJDEF"
  942            P aramType " 0"
  943            P aramLength  "0"
  944            P aramScale  "0"
  945         END  DSSUBRECOR D
  946         BEGI N DSSUBREC ORD
  947            N ame "$SQL_ DB_UID"
  948            P rompt "MSS QL DB User -id"
  949            D efault "$P ROJDEF"
  950            P aramType " 0"
  951            P aramLength  "0"
  952            P aramScale  "0"
  953         END  DSSUBRECOR D
  954         BEGI N DSSUBREC ORD
  955            N ame "$SQL_ DB_PWD"
  956            P rompt "MSS QL DB Pass word"
  957            D efault "HD I@IJV8O9JN 064IL:JD1K 95"
  958            P aramType " 1"
  959            P aramLength  "0"
  960            P aramScale  "0"
  961         END  DSSUBRECOR D
  962         BEGI N DSSUBREC ORD
  963            N ame "$PROJ _DATA_DS"
  964            P rompt "Pro ject Data  directory  (datasets) "
  965            D efault "$P ROJDEF"
  966            P aramType " 0"
  967            P aramLength  "0"
  968            P aramScale  "0"
  969         END  DSSUBRECOR D
  970         BEGI N DSSUBREC ORD
  971            N ame "Batch ClaimType"
  972            P rompt "Bat chClaimTyp e"
  973            D efault "83 7P"
  974            P aramType " 0"
  975            P aramLength  "0"
  976            P aramScale  "0"
  977         END  DSSUBRECOR D
  978         BEGI N DSSUBREC ORD
  979            N ame "$SQL_ DB"
  980            P rompt "Dev elopment D atabase"
  981            D efault "$P ROJDEF"
  982            P aramType " 0"
  983            P aramLength  "0"
  984            P aramScale  "0"
  985         END  DSSUBRECOR D
  986         BEGI N DSSUBREC ORD
  987            N ame "$SQL_ DB_DSN"
  988            P rompt "MSS QL DB Data  Source Na me (DSN)"
  989            D efault "$P ROJDEF"
  990            P aramType " 0"
  991            P aramLength  "0"
  992            P aramScale  "0"
  993         END  DSSUBRECOR D
  994         BEGI N DSSUBREC ORD
  995            N ame "Batch ID"
  996            P rompt "Bat chID"
  997            P aramType " 0"
  998            P aramLength  "0"
  999            P aramScale  "0"
  1000         END  DSSUBRECOR D
  1001         Meta Bag "CMeta Property"
  1002         BEGI N DSSUBREC ORD
  1003            O wner "APT"
  1004            N ame "Advan cedRuntime Options"
  1005            V alue "#DSP rojectARTO ptions#"
  1006         END  DSSUBRECOR D
  1007         BEGI N DSSUBREC ORD
  1008            O wner "APT"
  1009            N ame "Trace Mode"
  1010            V alue "0"
  1011         END  DSSUBRECOR D
  1012         BEGI N DSSUBREC ORD
  1013            O wner "APT"
  1014            N ame "Trace Seq"
  1015            V alue "1"
  1016         END  DSSUBRECOR D
  1017         BEGI N DSSUBREC ORD
  1018            O wner "APT"
  1019            N ame "Trace Records"
  1020            V alue "100"
  1021         END  DSSUBRECOR D
  1022         BEGI N DSSUBREC ORD
  1023            O wner "APT"
  1024            N ame "Trace Skip"
  1025            V alue "0"
  1026         END  DSSUBRECOR D
  1027         BEGI N DSSUBREC ORD
  1028            O wner "APT"
  1029            N ame "Trace Period"
  1030            V alue "1"
  1031         END  DSSUBRECOR D
  1032         BEGI N DSSUBREC ORD
  1033            O wner "APT"
  1034            N ame "Recor dJobPerfor manceData"
  1035            V alue "1"
  1036         END  DSSUBRECOR D
  1037         BEGI N DSSUBREC ORD
  1038            O wner "APT"
  1039            N ame "Ident List"
  1040            V alue "RmDu pRec|Xfrm_ ClaimCond| DIM_VA_CLA IM|Lkp_Dim VaClaim|Fm t_DiagCode s|genRecsB yCode|Xfm_ BusRules"
  1041         END  DSSUBRECOR D
  1042         BEGI N DSSUBREC ORD
  1043            O wner "APT"
  1044            N ame "Clien tCodePage"
  1045            V alue "1252 "
  1046         END  DSSUBRECOR D
  1047         NULL IndicatorP osition "0 "
  1048         Orch estrateCod e =+=+=+=
  1049   ########## ########## ########## ########## ########## ########## #####
  1050   #### STAGE : RmDupRec
  1051   ## Operato r
  1052   remdup
  1053   ## Operato r options
  1054   -keep last
  1055   -key 'row_ id'
  1056   -key 'HL22 '
  1057   -key 'cond ition_qual if'
  1058   -key 'cond ition_code '
  1059  
  1060   ## General  options
  1061   [ident('Rm DupRec');  jobmon_ide nt('RmDupR ec')]
  1062   ## Inputs
  1063   0< [] 'Fmt _DiagCodes :BusRls.v'
  1064   ## Outputs
  1065   0> [modify  (
  1066   keep
  1067     claim_id ,condition _qualif,co ndition_co de,source_ entity,
  1068     etl_batc h_id,row_i d;
  1069   )] 'RmDupR ec:Flt_Clm Id.v'
  1070   ;
  1071  
  1072   #### STAGE : Ds_Claim CondCode.C lmCond_out _Part
  1073   ## Operato r
  1074   same
  1075   ## General  options
  1076   [ident('Ds _ClaimCond Code.ClmCo nd_out_Par t')]
  1077   ## Inputs
  1078   0< [] 'Xfr m_ClaimCon d:ClmCond_ out.v'
  1079   ## Outputs
  1080   0> [] 'Xfr m_ClaimCon d:ClmCond_ out_Part.v '
  1081   ;
  1082  
  1083   ########## ########## ########## ########## ########## ########## #####
  1084   #### STAGE : Ds_Claim CondCode
  1085   ## Operato r
  1086   copy
  1087   ## General  options
  1088   [ident('Ds _ClaimCond Code')]
  1089   ## Inputs
  1090   0< [] 'Xfr m_ClaimCon d:ClmCond_ out_Part.v '
  1091   ## Outputs
  1092   0>| [ds] ' [&"$PROJ_D ATA_DS"][& "BatchClai mType"]_Cl aimConditi onCode.ds'
  1093   ;
  1094  
  1095   ########## ########## ########## ########## ########## ########## #####
  1096   #### STAGE : Xfrm_Cla imCond
  1097   ## Operato r
  1098   transform
  1099   ## Operato r options
  1100   -flag run
  1101   -name 'V0S 109_EDI837 P_CLAIM_CO NDITION_CO DE_prep_Xf rm_ClaimCo nd'
  1102  
  1103   ## General  options
  1104   [ident('Xf rm_ClaimCo nd'); jobm on_ident(' Xfrm_Claim Cond')]
  1105   ## Inputs
  1106   0< [] 'Lkp _DimVaClai m:Lkp_DimV aClaim.v'
  1107   ## Outputs
  1108   0> [] 'Xfr m_ClaimCon d:ClmCond_ out.v'
  1109   ;
  1110  
  1111   ########## ########## ########## ########## ########## ########## #####
  1112   #### STAGE : DIM_VA_C LAIM
  1113   ## Operato r
  1114   pxbridge
  1115   ## Operato r options
  1116   -Orientati on link
  1117   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>1</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>-1</ PartitionT ype><RCP t ype=\\'int \\'>0</RCP ></Common> <Connectio n><DataSou rce modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_D SN"]]]></D ataSource> <Username  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB_UID"] ]]></Usern ame><Passw ord modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_P WD"]]]></P assword></ Connection ><Usage mo dified=\\' 1\\'><Gene rateSQL mo dified=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Gene rateSQL><E nableQuote dIDs modif ied=\\'1\\ ' type=\\' bool\\'><! [CDATA[1]] ></EnableQ uotedIDs>< SQL><Selec tStatement  modified= \\'1\\' ty pe=\\'stri ng\\'><![C DATA[Selec t claim_ke y, claim_i d, source_ entity, et l_batch_id  
  1118   from [&"$S QL_DB"].db o.DIM_VA_C LAIM where  is_curren t = \\'Y\\ '  and etl _batch_id  = \\'[&"Ba tchID"]\\' ]]><ReadSt atementFro mFile type =\\'bool\\ '><![CDATA [0]]></Rea dStatement FromFile>< Tables col lapsed=\\' 1\\'><Tabl e type=\\' string\\'> </Table><T able type= \\'string\ \'><![CDAT A[[&"$SQL_ DB"]]]></T able></Tab les><Param eters coll apsed=\\'1 \\'></Para meters><Co lumns coll apsed=\\'1 \\'><Colum n type=\\' string\\'> <![CDATA[e tl_batch_i d,etl_batc h_id,[&"$S QL_DB"]]]> </Column>< Column typ e=\\'strin g\\'><![CD ATA[source _entity,so urce_entit y,[&"$SQL_ DB"]]]></C olumn><Col umn type=\ \'string\\ '><![CDATA [claim_id, claim_id,[ &"$SQL_DB" ]]]></Colu mn><Column  type=\\'s tring\\'>< ![CDATA[cl aim_key,cl aim_key,[& "$SQL_DB"] ]]></Colum n></Column s><WhereCl ause type= \\'string\ \'><![CDAT A[(is_curr ent = \\'Y \\' AND et l_batch_id  = \\'[&"B atchID"]\\ ')]]></Whe reClause>< /SelectSta tement><En ablePartit ioning col lapsed=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Enab lePartitio ning></SQL ><Transact ion><Recor dCount typ e=\\'int\\ '><![CDATA [2000]]></ RecordCoun t><EndOfWa ve collaps ed=\\'1\\'  type=\\'i nt\\'><![C DATA[0]]>< /EndOfWave ></Transac tion><Sess ion><Isola tionLevel  type=\\'in t\\'><![CD ATA[1]]></ IsolationL evel><Auto commitMode  type=\\'i nt\\'><![C DATA[0]]>< /Autocommi tMode><Arr aySize typ e=\\'int\\ '><![CDATA [2000]]></ ArraySize> <SchemaRec onciliatio n><FailOnS izeMismatc h type=\\' bool\\'><! [CDATA[1]] ></FailOnS izeMismatc h><FailOnT ypeMismatc h type=\\' bool\\'><! [CDATA[1]] ></FailOnT ypeMismatc h><FailOnC odePageMis match type =\\'bool\\ '><![CDATA [0]]></Fai lOnCodePag eMismatch> </SchemaRe conciliati on><PassLo bLocator c ollapsed=\ \'1\\' typ e=\\'bool\ \'><![CDAT A[0]]></Pa ssLobLocat or><CodePa ge collaps ed=\\'1\\'  type=\\'i nt\\'><![C DATA[0]]>< /CodePage> </Session> <BeforeAft er collaps ed=\\'1\\'  type=\\'b ool\\'><![ CDATA[0]]> </BeforeAf ter></Usag e></Proper ties >'
  1119   -connector  '{
  1120      variant =\\'3.5\\'
  1121      library =ccodbc, 
  1122      version =1.0, 
  1123      variant list=\\'3. 5\\', 
  1124      version list=\\'1. 0\\', 
  1125      name=OD BCConnecto r
  1126   }'
  1127   -source 0  '{
  1128         DSDe scription= {claim_key =\\'\\<non e\\>
  1129   Searchable \\? N \\'}
  1130         DSIs Key={claim _id=1, sou rce_entity =1, etl_ba tch_id=1},  
  1131         DSDi splayWidth ={claim_ke y=11}, 
  1132         DSSQ LType={cla im_key=4,  claim_id=1 2, source_ entity=12,  etl_batch _id=12}, 
  1133         DSSQ LPrecision ={claim_ke y=10, clai m_id=20, s ource_enti ty=50, etl _batch_id= 20}, 
  1134         DSSc hema=\\'re cord
  1135            (
  1136               claim_key \\:int32\\ ;
  1137               claim_id\ \:nullable  string\\[ max\\=20\\ ]\\;
  1138               source_en tity\\:nul lable stri ng\\[max\\ =50\\]\\;
  1139               etl_batch _id\\:null able strin g\\[max\\= 20\\]\\;
  1140            ) \\'
  1141   }'
  1142      
  1143  
  1144   ## General  options
  1145   [ident('DI M_VA_CLAIM '); jobmon _ident('DI M_VA_CLAIM ')]
  1146   ## Outputs
  1147   0> [modify  (
  1148     claim_ke y:not_null able int32 =claim_key ;
  1149     claim_id :nullable  string[max =20]=claim _id;
  1150     source_e ntity:null able strin g[max=50]= source_ent ity;
  1151     etl_batc h_id:nulla ble string [max=20]=e tl_batch_i d;
  1152   keep
  1153     claim_ke y,claim_id ,source_en tity,etl_b atch_id;
  1154   )] 'DIM_VA _CLAIM:Dim VaClaim_ke y.v'
  1155   ;
  1156  
  1157   ########## ########## ########## ########## ########## ########## #####
  1158   #### STAGE : Lkp_DimV aClaim
  1159   ## Operato r
  1160   lookup
  1161   ## Operato r options
  1162   -table
  1163   -key claim _id
  1164   -key sourc e_entity
  1165   -key etl_b atch_id
  1166   -ifNotFoun d continue
  1167  
  1168   ## General  options
  1169   [ident('Lk p_DimVaCla im'); jobm on_ident(' Lkp_DimVaC laim')]
  1170   ## Inputs
  1171   0< [] 'RmD upRec:Flt_ ClmId.v'
  1172   1< [] 'DIM _VA_CLAIM: DimVaClaim _key.v'
  1173   ## Outputs
  1174   0> [modify  (
  1175   keep
  1176     claim_id ,claim_key ,condition _qualif,co ndition_co de,
  1177     source_e ntity,row_ id;)] 'Lkp _DimVaClai m:Lkp_DimV aClaim.v'
  1178   ;
  1179  
  1180   ########## ########## ########## ########## ########## ########## #####
  1181   #### STAGE : ds_EDI83 7P_Conform ed
  1182   ## Operato r
  1183   copy
  1184   ## General  options
  1185   [ident('ds _EDI837P_C onformed') ; seq]
  1186   ## Inputs
  1187   0< [ds] '[ &"$PROJ_DA TA_DS"][&" BatchClaim Type"]_Con formed.ds'
  1188   ## Outputs
  1189   0> [modify  (
  1190     ROW_NUM: not_nullab le string[ max=8]=ROW _NUM;
  1191     ST_NUM:n ullable st ring[max=9 ]=ST_NUM;
  1192     LOOP:nul lable stri ng[max=10] =LOOP;
  1193     SEG:not_ nullable s tring[max= 5]=SEG;
  1194     SEG_CD:n ot_nullabl e string[m ax=20]=SEG _CD;
  1195     EDI837P: not_nullab le string[ max=2000]= EDI837P;
  1196     ETL_BATC H_ID:not_n ullable st ring[max=2 0]=ETL_BAT CH_ID;
  1197   keep
  1198     ROW_NUM, ST_NUM,LOO P,SEG,
  1199     SEG_CD,E DI837P,ETL _BATCH_ID;
  1200   )] 'ds_EDI 837P_Confo rmed:XfrmS rc.v'
  1201   ;
  1202  
  1203   ########## ########## ########## ########## ########## ########## #####
  1204   #### STAGE : Fmt_Diag Codes
  1205   ## Operato r
  1206   transform
  1207   ## Operato r options
  1208   -flag run
  1209   -name 'V13 8S1_EDI837 P_CLAIM_CO NDITION_CO DE_prep_Fm t_DiagCode s'
  1210  
  1211   ## General  options
  1212   [ident('Fm t_DiagCode s'); jobmo n_ident('F mt_DiagCod es')]
  1213   ## Inputs
  1214   0< [] 'gen RecsByCode :genRecsBy Code.v'
  1215   ## Outputs
  1216   0> [] 'Fmt _DiagCodes :BusRls.v'
  1217   ;
  1218  
  1219   ########## ########## ########## ########## ########## ########## #####
  1220   #### STAGE : genRecsB yCode
  1221   ## Operato r
  1222   transform
  1223   ## Operato r options
  1224   -flag run
  1225   -name 'V13 8S3_EDI837 P_CLAIM_CO NDITION_CO DE_prep_ge nRecsByCod e'
  1226  
  1227   ## General  options
  1228   [ident('ge nRecsByCod e'); jobmo n_ident('g enRecsByCo de')]
  1229   ## Inputs
  1230   0< [] 'Xfm _BusRules: BusRls.v'
  1231   ## Outputs
  1232   0> [] 'gen RecsByCode :genRecsBy Code.v'
  1233   ;
  1234  
  1235   #### STAGE : Xfm_BusR ules.XfrmS rc_Part
  1236   ## Operato r
  1237   same
  1238   ## General  options
  1239   [ident('Xf m_BusRules .XfrmSrc_P art')]
  1240   ## Inputs
  1241   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc.v'
  1242   ## Outputs
  1243   0> [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  1244   ;
  1245  
  1246   ########## ########## ########## ########## ########## ########## #####
  1247   #### STAGE : Xfm_BusR ules
  1248   ## Operato r
  1249   transform
  1250   ## Operato r options
  1251   -flag run
  1252   -name 'V13 8S4_EDI837 P_CLAIM_CO NDITION_CO DE_prep_Xf m_BusRules '
  1253   -argvalue  'BatchID=[ &"BatchID" ]'
  1254  
  1255   ## General  options
  1256   [ident('Xf m_BusRules '); jobmon _ident('Xf m_BusRules ')]
  1257   ## Inputs
  1258   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  1259   ## Outputs
  1260   0> [] 'Xfm _BusRules: BusRls.v'
  1261   ;
  1262  
  1263  
  1264   =+=+=+=
  1265         IsTe mplate "0"
  1266         NLSL ocale ",,, ,"
  1267         JobT ype "3"
  1268         Cate gory "\\Jo bs\\PIT\\C P&E_EDI\\P repare"
  1269         Cent uryBreakYe ar "30"
  1270         Next AliasID "2 "
  1271         Para meterFileD DName "DD0 0001"
  1272         Rese rvedWordCh eck "1"
  1273         Tran sactionSiz e "0"
  1274         Vali dationStat us "0"
  1275         Uplo adable "0"
  1276         PgmC ustomizati onFlag "0"
  1277         JobR eportFlag  "0"
  1278         Allo wMultipleI nvocations  "0"
  1279         Act2 ActOveride Defaults " 0"
  1280         Act2 ActEnableR owBuffer " 0"
  1281         Act2 ActUseIPC  "0"
  1282         Act2 ActBufferS ize "0"
  1283         Act2 ActIPCTime out "0"
  1284         Expr essionSema nticCheckF lag "0"
  1285         Trac eOption "0 "
  1286         Enab leCacheSha ring "0"
  1287         Runt imeColumnP ropagation  "0"
  1288         RelS tagesInJob Status "-1 "
  1289         WebS erviceEnab led "0"
  1290         MFPr ocessMetaD ata "0"
  1291         MFPr ocessMetaD ataXMLFile ExchangeMe thod "0"
  1292         IMSP rogType "0 "
  1293         Copy LibPrefix  "ARDT"
  1294         Reco rdPerforma nceResults  "0"
  1295      END DSR ECORD
  1296      BEGIN D SRECORD
  1297         Iden tifier "V0 "
  1298         OLET ype "CCont ainerView"
  1299         Read only "0"
  1300         Name  "Job"
  1301         Next ID "1"
  1302         IsTo pLevel "0"
  1303         Stag eList "V81 S0|V106S0| V0S109|V10 7S0|V0S114 |V129S0|V0 A140|V138A 0|V138S1|V 138S3|V138 S4"
  1304         Stag eXPos "838 |1367|1184 |998|994|1 19|106|428 |654|472|2 91"
  1305         Stag eYPos "172 |187|191|2 9|189|183| 74|84|183| 183|184"
  1306         Stag eTypes "CC ustomStage |CCustomSt age|CTrans formerStag e|CCustomS tage.CC_GU I|CCustomS tage|CCust omStage|ID _PALETTEJO BANNOTATIO N|ID_PALET TEANNOTATI ON|CTransf ormerStage |CTransfor merStage|C Transforme rStage"
  1307         Next StageID "1 50"
  1308         Snap ToGrid "2"
  1309         Grid Lines "0"
  1310         Zoom Value "100 "
  1311         Stag eXSize "48 |48|48|48| 48|48|181| 136|48|48| 48"
  1312         Stag eYSize "72 |48|48|48| 48|48|72|5 0|48|57|48 "
  1313         Cont ainerViewS izing "000 8 0081 084 9 0582 000 0 0001 000 0 0007"
  1314         Stag eNames "Rm DupRec|Ds_ ClaimCondC ode|Xfrm_C laimCond|D IM_VA_CLAI M|Lkp_DimV aClaim|ds_ EDI837P_Co nformed| |  |Fmt_Diag Codes|genR ecsByCode| Xfm_BusRul es"
  1315         Stag eTypeIDs " PxRemDup|P xDataSet|C Transforme rStage|ODB CConnector PX|PxLooku p|PxDataSe t| | |CTra nsformerSt age|CTrans formerStag e|CTransfo rmerStage"
  1316         Link Names "Flt _ClmId| |C lmCond_out |DimVaClai m_key|Lkp_ DimVaClaim |XfrmSrc|  | |BusRls| genRecsByC ode|BusRls "
  1317         Link HasMetaDat as "True|  |True|True |True|True | | |True| True|True"
  1318         Link Types "1|  |1|2|1|1|  | |1|1|1"
  1319         Link NamePositi onXs "918|  |1256|101 9|1073|201 | | |733|5 56|377"
  1320         Link NamePositi onYs "216|  |222|163| 220|211| |  |210|210| 203"
  1321         Targ etStageIDs  "V0S114|  |V106S0|V0 S114|V0S10 9|V138S4|  | |V81S0|V 138S1|V138 S3"
  1322         Sour ceStageEff ectiveExec utionModes  "2| |2|2| 2|1| | |2| 2|2"
  1323         Sour ceStageRun timeExecut ionModes " 2| |2|2|2| 1| | |2|2| 2"
  1324         Targ etStageEff ectiveExec utionModes  "2| |2|2| 2|2| | |2| 2|2"
  1325         Targ etStageRun timeExecut ionModes " 2| |2|2|2| 2| | |2|2| 2"
  1326         Link IsSingleOp eratorLook up "False|  |False|Fa lse|False| False| | | False|Fals e|False"
  1327         Link IsSortSequ ential "Fa lse| |Fals e|False|Fa lse|False|  | |False| False|Fals e"
  1328         Link SortMode " 0| |0|0|0| 0| | |0|0| 0"
  1329         Link PartColMod e "1| |8|1 |1|8| | |1 |1|1"
  1330         Link SourcePinI Ds "V81S0P 3| |V0S109 P8|V107S0P 1|V0S114P3 |V129S0P2|  | |V138S1 P2|V138S3P 2|V138S4P2 "
  1331      END DSR ECORD
  1332      BEGIN D SRECORD
  1333         Iden tifier "V0 A140"
  1334         OLET ype "CAnno tation"
  1335         Read only "0"
  1336         Name  "V0A140"
  1337         Next ID "0"
  1338         Anno tationType  "1"
  1339         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  1340         Text Horizontal Justificat ion "1"
  1341         Text VerticalJu stificatio n "1"
  1342         Text Color "0"
  1343         Back groundColo r "1271398 3"
  1344         Back groundTran sparent "0 "
  1345         Bord erVisible  "1"
  1346      END DSR ECORD
  1347      BEGIN D SRECORD
  1348         Iden tifier "V0 S109"
  1349         OLET ype "CTran sformerSta ge"
  1350         Read only "0"
  1351         Name  "Xfrm_Cla imCond"
  1352         Next ID "12"
  1353         Inpu tPins "V0S 109P10"
  1354         Outp utPins "V0 S109P8"
  1355         Meta Bag "CMeta Property"
  1356         BEGI N DSSUBREC ORD
  1357            O wner "APT"
  1358            N ame "TrxGe nCode"
  1359            V alue =+=+= +=
  1360   //
  1361   // Generat ed file to  implement  the V0S10 9_EDI837P_ CLAIM_COND ITION_CODE _prep_Xfrm _ClaimCond  transform  operator.
  1362   //
  1363  
  1364   // define  our input/ output lin k names
  1365   inputname  0 Lkp_DimV aClaim;
  1366   outputname  0 ClmCond _out;
  1367  
  1368   initialize  {
  1369    // define  our contr ol variabl es
  1370    int8 RowR ejected0;
  1371    int8 Null SetVar0;
  1372  
  1373   }
  1374  
  1375   mainloop {
  1376  
  1377    // declar e our inte rmediate v ariables f or this se ction (2)
  1378    int32 Int erVar0_0;
  1379  
  1380    // initia lise the r ejected ro w variable
  1381    RowReject ed0 = 1;
  1382  
  1383    // evalua te constra int and co lumns for  link: ClmC ond_out
  1384    if (notnu ll(Lkp_Dim VaClaim.cl aim_key))  {
  1385     InterVar 0_0 = Lkp_ DimVaClaim .claim_key ;
  1386    } else {
  1387     InterVar 0_0 = 0;
  1388    }
  1389    if ((Inte rVar0_0 !=  0))
  1390    {
  1391     ClmCond_ out.claim_ key = Lkp_ DimVaClaim .claim_key ;
  1392     writerec ord 0;
  1393     RowRejec ted0 = 0;
  1394    }
  1395   }
  1396  
  1397   finish {
  1398   }
  1399  
  1400   =+=+=+=
  1401         END  DSSUBRECOR D
  1402         BEGI N DSSUBREC ORD
  1403            O wner "APT"
  1404            N ame "TrxGe nCache"
  1405            V alue "0"
  1406         END  DSSUBRECOR D
  1407         BEGI N DSSUBREC ORD
  1408            O wner "APT"
  1409            N ame "TrxCl assName"
  1410            V alue "V0S1 09_EDI837P _CLAIM_CON DITION_COD E_prep_Xfr m_ClaimCon d"
  1411         END  DSSUBRECOR D
  1412         Vali dationStat us "0"
  1413         Stag eType "CTr ansformerS tage"
  1414         Bloc kSize "0"
  1415         SKKe ySourceTyp e "file"
  1416         Stag eVarsMinim ised "0"
  1417         Loop VarsMaximi sed "0"
  1418         MaxL oopIterati ons "0"
  1419      END DSR ECORD
  1420      BEGIN D SRECORD
  1421         Iden tifier "V0 S109P10"
  1422         OLET ype "CTrxI nput"
  1423         Read only "0"
  1424         Name  "Lkp_DimV aClaim"
  1425         Part ner "V0S11 4|V0S114P3 "
  1426         Link Type "1"
  1427         Meta Bag "CMeta Property"
  1428         BEGI N DSSUBREC ORD
  1429            O wner "APT"
  1430            N ame "RTCol umnProp"
  1431            V alue "0"
  1432         END  DSSUBRECOR D
  1433         BEGI N DSSUBREC ORD
  1434            O wner "APT"
  1435            N ame "Schem a"
  1436            V alue =+=+= +=
  1437   record
  1438   (
  1439     claim_id :nullable  string[max =20];
  1440     claim_ke y:int32;
  1441     conditio n_qualif:n ullable st ring[max=1 0];
  1442     conditio n_code:nul lable stri ng[max=30] ;
  1443     source_e ntity:null able strin g[max=50];
  1444     row_id:n ullable st ring[max=2 0];
  1445   )
  1446   =+=+=+=
  1447         END  DSSUBRECOR D
  1448         Mult iRow "0"
  1449         Link Minimised  "0"
  1450      END DSR ECORD
  1451      BEGIN D SRECORD
  1452         Iden tifier "V0 S109P8"
  1453         OLET ype "CTrxO utput"
  1454         Read only "0"
  1455         Name  "ClmCond_ out"
  1456         Part ner "V106S 0|V106S0P1 "
  1457         Cons traint "Nu llToZero(L kp_DimVaCl aim.claim_ key) <> 0"
  1458         Reje ct "0"
  1459         Erro rPin "0"
  1460         RowL imit "0"
  1461         Pars edConstrai nt "( IF I sNotNull(( Lkp_DimVaC laim.claim _key)) THE N (Lkp_Dim VaClaim.cl aim_key) E LSE 0) <>  0"
  1462         Sour ceColumns  "Lkp_DimVa Claim.clai m_key"
  1463         Colu mns "COutp utColumn"
  1464         BEGI N DSSUBREC ORD
  1465            N ame "claim _key"
  1466            D escription  =+=+=+=
  1467   <none>
  1468   Searchable ? N 
  1469   =+=+=+=
  1470            S qlType "4"
  1471            P recision " 10"
  1472            S cale "0"
  1473            N ullable "1 "
  1474            K eyPosition  "0"
  1475            D isplaySize  "11"
  1476            D erivation  "Lkp_DimVa Claim.clai m_key"
  1477            G roup "0"
  1478            P arsedDeriv ation "Lkp _DimVaClai m.claim_ke y"
  1479            S ourceColum n "Lkp_Dim VaClaim.cl aim_key"
  1480            S ortKey "0"
  1481            S ortType "0 "
  1482            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  1483            A llowCRLF " 0"
  1484            L evelNo "0"
  1485            O ccurs "0"
  1486            P adNulls "0 "
  1487            S ignOption  "0"
  1488            S ortingOrde r "0"
  1489            A rrayHandli ng "0"
  1490            S yncIndicat or "0"
  1491            P adChar ""
  1492            C olumnRefer ence "clai m_key"
  1493            E xtendedPre cision "0"
  1494            T aggedSubre c "0"
  1495            O ccursVaryi ng "0"
  1496            P KeyIsCasel ess "0"
  1497            S CDPurpose  "0"
  1498         END  DSSUBRECOR D
  1499         BEGI N DSSUBREC ORD
  1500            N ame "condi tion_quali f"
  1501            D escription  =+=+=+=
  1502   <none>
  1503   Searchable ? N 
  1504   =+=+=+=
  1505            S qlType "12 "
  1506            P recision " 10"
  1507            S cale "0"
  1508            N ullable "1 "
  1509            K eyPosition  "0"
  1510            D isplaySize  "15"
  1511            D erivation  "Lkp_DimVa Claim.cond ition_qual if"
  1512            G roup "0"
  1513            P arsedDeriv ation "Lkp _DimVaClai m.conditio n_qualif"
  1514            S ourceColum n "Lkp_Dim VaClaim.co ndition_qu alif"
  1515            S ortKey "0"
  1516            S ortType "0 "
  1517            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  1518            A llowCRLF " 0"
  1519            L evelNo "0"
  1520            O ccurs "0"
  1521            P adNulls "0 "
  1522            S ignOption  "0"
  1523            S ortingOrde r "0"
  1524            A rrayHandli ng "0"
  1525            S yncIndicat or "0"
  1526            P adChar ""
  1527            C olumnRefer ence "oral _cavity_de signation_ code"
  1528            A PTFieldPro p "null_fi eld=''"
  1529            E xtendedPre cision "0"
  1530            T aggedSubre c "0"
  1531            O ccursVaryi ng "0"
  1532            P KeyIsCasel ess "0"
  1533            S CDPurpose  "0"
  1534         END  DSSUBRECOR D
  1535         BEGI N DSSUBREC ORD
  1536            N ame "condi tion_code"
  1537            D escription  =+=+=+=
  1538   <none>
  1539   Searchable ? N 
  1540   =+=+=+=
  1541            S qlType "12 "
  1542            P recision " 30"
  1543            S cale "0"
  1544            N ullable "1 "
  1545            K eyPosition  "0"
  1546            D isplaySize  "15"
  1547            D erivation  "Lkp_DimVa Claim.cond ition_code "
  1548            G roup "0"
  1549            P arsedDeriv ation "Lkp _DimVaClai m.conditio n_code"
  1550            S ourceColum n "Lkp_Dim VaClaim.co ndition_co de"
  1551            S ortKey "0"
  1552            S ortType "0 "
  1553            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  1554            A llowCRLF " 0"
  1555            L evelNo "0"
  1556            O ccurs "0"
  1557            P adNulls "0 "
  1558            S ignOption  "0"
  1559            S ortingOrde r "0"
  1560            A rrayHandli ng "0"
  1561            S yncIndicat or "0"
  1562            P adChar ""
  1563            C olumnRefer ence "oral _cavity_de signation_ code"
  1564            A PTFieldPro p "null_fi eld=''"
  1565            E xtendedPre cision "0"
  1566            T aggedSubre c "0"
  1567            O ccursVaryi ng "0"
  1568            P KeyIsCasel ess "0"
  1569            S CDPurpose  "0"
  1570         END  DSSUBRECOR D
  1571         BEGI N DSSUBREC ORD
  1572            N ame "sourc e_entity"
  1573            S qlType "12 "
  1574            P recision " 50"
  1575            S cale "0"
  1576            N ullable "1 "
  1577            K eyPosition  "0"
  1578            D isplaySize  "0"
  1579            D erivation  "Lkp_DimVa Claim.sour ce_entity"
  1580            G roup "0"
  1581            P arsedDeriv ation "Lkp _DimVaClai m.source_e ntity"
  1582            S ourceColum n "Lkp_Dim VaClaim.so urce_entit y"
  1583            S ortKey "0"
  1584            S ortType "0 "
  1585            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  1586            F ieldPos "2 0"
  1587            A llowCRLF " 0"
  1588            L evelNo "0"
  1589            N ativeType  "varchar"
  1590            O ccurs "0"
  1591            P adNulls "0 "
  1592            S ignOption  "0"
  1593            S ortingOrde r "0"
  1594            A rrayHandli ng "0"
  1595            S yncIndicat or "0"
  1596            P adChar ""
  1597            C olumnRefer ence "sour ce_entity"
  1598            E xtendedPre cision "0"
  1599            T aggedSubre c "0"
  1600            O ccursVaryi ng "0"
  1601            P KeyIsCasel ess "0"
  1602            S CDPurpose  "0"
  1603         END  DSSUBRECOR D
  1604         Meta Bag "CMeta Property"
  1605         BEGI N DSSUBREC ORD
  1606            O wner "APT"
  1607            N ame "DiskW riteInc"
  1608            V alue "1048 576"
  1609         END  DSSUBRECOR D
  1610         BEGI N DSSUBREC ORD
  1611            O wner "APT"
  1612            N ame "BufFr eeRun"
  1613            V alue "50"
  1614         END  DSSUBRECOR D
  1615         BEGI N DSSUBREC ORD
  1616            O wner "APT"
  1617            N ame "MaxMe mBufSize"
  1618            V alue "3145 728"
  1619         END  DSSUBRECOR D
  1620         BEGI N DSSUBREC ORD
  1621            O wner "APT"
  1622            N ame "Queue UpperSize"
  1623            V alue "0"
  1624         END  DSSUBRECOR D
  1625         BEGI N DSSUBREC ORD
  1626            O wner "APT"
  1627            N ame "Schem a"
  1628            V alue =+=+= +=
  1629   record
  1630   (
  1631     claim_ke y:nullable  int32;
  1632     conditio n_qualif:n ullable st ring[max=1 0];
  1633     conditio n_code:nul lable stri ng[max=30] ;
  1634     source_e ntity:null able strin g[max=50];
  1635   )
  1636   =+=+=+=
  1637         END  DSSUBRECOR D
  1638         Left TextPos "1 256"
  1639         TopT extPos "22 2"
  1640         Link Minimised  "0"
  1641      END DSR ECORD
  1642      BEGIN D SRECORD
  1643         Iden tifier "V0 S114"
  1644         OLET ype "CCust omStage"
  1645         Read only "0"
  1646         Name  "Lkp_DimV aClaim"
  1647         Next ID "6"
  1648         Inpu tPins "V0S 114P2|V0S1 14P5"
  1649         Outp utPins "V0 S114P3"
  1650         Stag eType "PxL ookup"
  1651         Allo wColumnMap ping "0"
  1652         Prop erties "CC ustomPrope rty"
  1653         BEGI N DSSUBREC ORD
  1654            N ame "compi leopt"
  1655         END  DSSUBRECOR D
  1656         BEGI N DSSUBREC ORD
  1657            N ame "linko pt"
  1658         END  DSSUBRECOR D
  1659         Meta Bag "CMeta Property"
  1660         BEGI N DSSUBREC ORD
  1661            O wner "APT"
  1662            N ame "Looku pOperator"
  1663            V alue "look up"
  1664         END  DSSUBRECOR D
  1665         Next RecordID " 0"
  1666      END DSR ECORD
  1667      BEGIN D SRECORD
  1668         Iden tifier "V0 S114P2"
  1669         OLET ype "CCust omInput"
  1670         Read only "0"
  1671         Name  "DimVaCla im_key"
  1672         Part ner "V107S 0|V107S0P1 "
  1673         Link Type "2"
  1674         Cond itionNotMe t "reject"
  1675         Look upFail "co ntinue"
  1676         Prop erties "CC ustomPrope rty"
  1677         BEGI N DSSUBREC ORD
  1678            N ame "allow _dups"
  1679            V alue " "
  1680         END  DSSUBRECOR D
  1681         Meta Bag "CMeta Property"
  1682         BEGI N DSSUBREC ORD
  1683            O wner "APT"
  1684            N ame "RTCol umnProp"
  1685            V alue "0"
  1686         END  DSSUBRECOR D
  1687         Tran sactionSiz e "0"
  1688         TXNB ehaviour " 0"
  1689         Enab leTxGroup  "0"
  1690         Link Minimised  "0"
  1691      END DSR ECORD
  1692      BEGIN D SRECORD
  1693         Iden tifier "V0 S114P3"
  1694         OLET ype "CCust omOutput"
  1695         Read only "0"
  1696         Name  "Lkp_DimV aClaim"
  1697         Part ner "V0S10 9|V0S109P1 0"
  1698         Colu mns "COutp utColumn"
  1699         BEGI N DSSUBREC ORD
  1700            N ame "claim _id"
  1701            S qlType "12 "
  1702            P recision " 20"
  1703            S cale "0"
  1704            N ullable "1 "
  1705            K eyPosition  "0"
  1706            D isplaySize  "0"
  1707            D erivation  "Flt_ClmId .claim_id"
  1708            G roup "0"
  1709            P arsedDeriv ation "Flt _ClmId.cla im_id"
  1710            S ourceColum n "Flt_Clm Id.claim_i d"
  1711            S ortKey "0"
  1712            S ortType "0 "
  1713            A llowCRLF " 0"
  1714            L evelNo "0"
  1715            O ccurs "0"
  1716            P adNulls "0 "
  1717            S ignOption  "0"
  1718            S ortingOrde r "0"
  1719            A rrayHandli ng "0"
  1720            S yncIndicat or "0"
  1721            P adChar ""
  1722            E xtendedPre cision "0"
  1723            T aggedSubre c "0"
  1724            O ccursVaryi ng "0"
  1725            P KeyIsCasel ess "0"
  1726            S CDPurpose  "0"
  1727         END  DSSUBRECOR D
  1728         BEGI N DSSUBREC ORD
  1729            N ame "claim _key"
  1730            D escription  =+=+=+=
  1731   <none>
  1732   Searchable ? N 
  1733   =+=+=+=
  1734            S qlType "4"
  1735            P recision " 10"
  1736            S cale "0"
  1737            N ullable "0 "
  1738            K eyPosition  "0"
  1739            D isplaySize  "11"
  1740            D erivation  "DimVaClai m_key.clai m_key"
  1741            G roup "0"
  1742            P arsedDeriv ation "Dim VaClaim_ke y.claim_ke y"
  1743            S ourceColum n "DimVaCl aim_key.cl aim_key"
  1744            S ortKey "0"
  1745            S ortType "0 "
  1746            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  1747            A llowCRLF " 0"
  1748            L evelNo "0"
  1749            O ccurs "0"
  1750            P adNulls "0 "
  1751            S ignOption  "0"
  1752            S ortingOrde r "0"
  1753            A rrayHandli ng "0"
  1754            S yncIndicat or "0"
  1755            P adChar ""
  1756            C olumnRefer ence "clai m_key"
  1757            A PTFieldPro p "quote=n one"
  1758            E xtendedPre cision "0"
  1759            T aggedSubre c "0"
  1760            O ccursVaryi ng "0"
  1761            P KeyIsCasel ess "0"
  1762            S CDPurpose  "0"
  1763         END  DSSUBRECOR D
  1764         BEGI N DSSUBREC ORD
  1765            N ame "condi tion_quali f"
  1766            D escription  =+=+=+=
  1767   <none>
  1768   Searchable ? N 
  1769   =+=+=+=
  1770            S qlType "12 "
  1771            P recision " 10"
  1772            S cale "0"
  1773            N ullable "1 "
  1774            K eyPosition  "0"
  1775            D isplaySize  "15"
  1776            D erivation  "Flt_ClmId .condition _qualif"
  1777            G roup "0"
  1778            P arsedDeriv ation "Flt _ClmId.con dition_qua lif"
  1779            S ourceColum n "Flt_Clm Id.conditi on_qualif"
  1780            S ortKey "0"
  1781            S ortType "0 "
  1782            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  1783            A llowCRLF " 0"
  1784            L evelNo "0"
  1785            O ccurs "0"
  1786            P adNulls "0 "
  1787            S ignOption  "0"
  1788            S ortingOrde r "0"
  1789            A rrayHandli ng "0"
  1790            S yncIndicat or "0"
  1791            P adChar ""
  1792            C olumnRefer ence "oral _cavity_de signation_ code"
  1793            A PTFieldPro p "null_fi eld=''"
  1794            E xtendedPre cision "0"
  1795            T aggedSubre c "0"
  1796            O ccursVaryi ng "0"
  1797            P KeyIsCasel ess "0"
  1798            S CDPurpose  "0"
  1799         END  DSSUBRECOR D
  1800         BEGI N DSSUBREC ORD
  1801            N ame "condi tion_code"
  1802            D escription  =+=+=+=
  1803   <none>
  1804   Searchable ? N 
  1805   =+=+=+=
  1806            S qlType "12 "
  1807            P recision " 30"
  1808            S cale "0"
  1809            N ullable "1 "
  1810            K eyPosition  "0"
  1811            D isplaySize  "15"
  1812            D erivation  "Flt_ClmId .condition _code"
  1813            G roup "0"
  1814            P arsedDeriv ation "Flt _ClmId.con dition_cod e"
  1815            S ourceColum n "Flt_Clm Id.conditi on_code"
  1816            S ortKey "0"
  1817            S ortType "0 "
  1818            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  1819            A llowCRLF " 0"
  1820            L evelNo "0"
  1821            O ccurs "0"
  1822            P adNulls "0 "
  1823            S ignOption  "0"
  1824            S ortingOrde r "0"
  1825            A rrayHandli ng "0"
  1826            S yncIndicat or "0"
  1827            P adChar ""
  1828            C olumnRefer ence "oral _cavity_de signation_ code"
  1829            A PTFieldPro p "null_fi eld=''"
  1830            E xtendedPre cision "0"
  1831            T aggedSubre c "0"
  1832            O ccursVaryi ng "0"
  1833            P KeyIsCasel ess "0"
  1834            S CDPurpose  "0"
  1835         END  DSSUBRECOR D
  1836         BEGI N DSSUBREC ORD
  1837            N ame "sourc e_entity"
  1838            S qlType "12 "
  1839            P recision " 50"
  1840            S cale "0"
  1841            N ullable "1 "
  1842            K eyPosition  "0"
  1843            D isplaySize  "0"
  1844            D erivation  "Flt_ClmId .source_en tity"
  1845            G roup "0"
  1846            P arsedDeriv ation "Flt _ClmId.sou rce_entity "
  1847            S ourceColum n "Flt_Clm Id.source_ entity"
  1848            S ortKey "0"
  1849            S ortType "0 "
  1850            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  1851            A llowCRLF " 0"
  1852            L evelNo "0"
  1853            N ativeType  "varchar"
  1854            O ccurs "0"
  1855            P adNulls "0 "
  1856            S ignOption  "0"
  1857            S ortingOrde r "0"
  1858            A rrayHandli ng "0"
  1859            S yncIndicat or "0"
  1860            P adChar ""
  1861            C olumnRefer ence "sour ce_entity"
  1862            E xtendedPre cision "0"
  1863            T aggedSubre c "0"
  1864            O ccursVaryi ng "0"
  1865            P KeyIsCasel ess "0"
  1866            S CDPurpose  "0"
  1867         END  DSSUBRECOR D
  1868         BEGI N DSSUBREC ORD
  1869            N ame "row_i d"
  1870            S qlType "12 "
  1871            P recision " 20"
  1872            S cale "0"
  1873            N ullable "1 "
  1874            K eyPosition  "0"
  1875            D isplaySize  "0"
  1876            D erivation  "Flt_ClmId .row_id"
  1877            G roup "0"
  1878            P arsedDeriv ation "Flt _ClmId.row _id"
  1879            S ourceColum n "Flt_Clm Id.row_id"
  1880            S ortKey "0"
  1881            S ortType "0 "
  1882            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  1883            A llowCRLF " 0"
  1884            L evelNo "0"
  1885            N ativeType  "varchar"
  1886            O ccurs "0"
  1887            P adNulls "0 "
  1888            S ignOption  "0"
  1889            S ortingOrde r "0"
  1890            A rrayHandli ng "0"
  1891            S yncIndicat or "0"
  1892            P adChar ""
  1893            C olumnRefer ence "row_ id"
  1894            E xtendedPre cision "0"
  1895            T aggedSubre c "0"
  1896            O ccursVaryi ng "0"
  1897            P KeyIsCasel ess "0"
  1898            S CDPurpose  "0"
  1899         END  DSSUBRECOR D
  1900         Meta Bag "CMeta Property"
  1901         BEGI N DSSUBREC ORD
  1902            O wner "APT"
  1903            N ame "DiskW riteInc"
  1904            V alue "1048 576"
  1905         END  DSSUBRECOR D
  1906         BEGI N DSSUBREC ORD
  1907            O wner "APT"
  1908            N ame "BufFr eeRun"
  1909            V alue "50"
  1910         END  DSSUBRECOR D
  1911         BEGI N DSSUBREC ORD
  1912            O wner "APT"
  1913            N ame "MaxMe mBufSize"
  1914            V alue "3145 728"
  1915         END  DSSUBRECOR D
  1916         BEGI N DSSUBREC ORD
  1917            O wner "APT"
  1918            N ame "Queue UpperSize"
  1919            V alue "0"
  1920         END  DSSUBRECOR D
  1921         Left TextPos "1 073"
  1922         TopT extPos "22 0"
  1923         Link Minimised  "0"
  1924      END DSR ECORD
  1925      BEGIN D SRECORD
  1926         Iden tifier "V0 S114P5"
  1927         OLET ype "CCust omInput"
  1928         Read only "0"
  1929         Name  "Flt_ClmI d"
  1930         Part ner "V81S0 |V81S0P3"
  1931         Link Type "1"
  1932         Cond itionNotMe t "fail"
  1933         Look upFail "fa il"
  1934         Prop erties "CC ustomPrope rty"
  1935         BEGI N DSSUBREC ORD
  1936            N ame "allow _dups"
  1937            V alue " "
  1938         END  DSSUBRECOR D
  1939         Meta Bag "CMeta Property"
  1940         BEGI N DSSUBREC ORD
  1941            O wner "APT"
  1942            N ame "RTCol umnProp"
  1943            V alue "0"
  1944         END  DSSUBRECOR D
  1945         Tran sactionSiz e "0"
  1946         TXNB ehaviour " 0"
  1947         Enab leTxGroup  "0"
  1948         Link Minimised  "0"
  1949      END DSR ECORD
  1950      BEGIN D SRECORD
  1951         Iden tifier "V1 06S0"
  1952         OLET ype "CCust omStage"
  1953         Read only "0"
  1954         Name  "Ds_Claim CondCode"
  1955         Next ID "2"
  1956         Inpu tPins "V10 6S0P1"
  1957         Stag eType "PxD ataSet"
  1958         Allo wColumnMap ping "0"
  1959         Next RecordID " 0"
  1960      END DSR ECORD
  1961      BEGIN D SRECORD
  1962         Iden tifier "V1 06S0P1"
  1963         OLET ype "CCust omInput"
  1964         Read only "0"
  1965         Name  "ClmCond_ out"
  1966         Part ner "V0S10 9|V0S109P8 "
  1967         Link Type "1"
  1968         Cond itionNotMe t "fail"
  1969         Look upFail "fa il"
  1970         Prop erties "CC ustomPrope rty"
  1971         BEGI N DSSUBREC ORD
  1972            N ame "datas et"
  1973            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Cl aimConditi onCode.ds"
  1974         END  DSSUBRECOR D
  1975         BEGI N DSSUBREC ORD
  1976            N ame "datas etmode"
  1977            V alue ">| [ ds"
  1978         END  DSSUBRECOR D
  1979         Meta Bag "CMeta Property"
  1980         BEGI N DSSUBREC ORD
  1981            O wner "APT"
  1982            N ame "RTCol umnProp"
  1983            V alue "0"
  1984         END  DSSUBRECOR D
  1985         BEGI N DSSUBREC ORD
  1986            O wner "APT"
  1987            N ame "Part/ Col"
  1988            V alue "same "
  1989         END  DSSUBRECOR D
  1990         BEGI N DSSUBREC ORD
  1991            O wner "APT"
  1992            N ame "SortA dv"
  1993            V alue "-non Stable"
  1994         END  DSSUBRECOR D
  1995         BEGI N DSSUBREC ORD
  1996            O wner "APT"
  1997            N ame "SeqSo rt"
  1998            V alue "0"
  1999         END  DSSUBRECOR D
  2000         Tran sactionSiz e "0"
  2001         TXNB ehaviour " 0"
  2002         Enab leTxGroup  "0"
  2003         Link Minimised  "0"
  2004      END DSR ECORD
  2005      BEGIN D SRECORD
  2006         Iden tifier "V1 07S0"
  2007         OLET ype "CCust omStage"
  2008         Read only "0"
  2009         Name  "DIM_VA_C LAIM"
  2010         Next ID "2"
  2011         Outp utPins "V1 07S0P1"
  2012         Stag eType "ODB CConnector PX"
  2013         Allo wColumnMap ping "0"
  2014         Prop erties "CC ustomPrope rty"
  2015         BEGI N DSSUBREC ORD
  2016            N ame "Varia ntName"
  2017            V alue "3.5"
  2018         END  DSSUBRECOR D
  2019         BEGI N DSSUBREC ORD
  2020            N ame "Varia ntLibrary"
  2021            V alue "ccod bc"
  2022         END  DSSUBRECOR D
  2023         BEGI N DSSUBREC ORD
  2024            N ame "Varia ntVersion"
  2025            V alue "1.0"
  2026         END  DSSUBRECOR D
  2027         BEGI N DSSUBREC ORD
  2028            N ame "Suppo rtedVarian ts"
  2029            V alue "3.5"
  2030         END  DSSUBRECOR D
  2031         BEGI N DSSUBREC ORD
  2032            N ame "Suppo rtedVarian tsLibrarie s"
  2033            V alue "ccod bc"
  2034         END  DSSUBRECOR D
  2035         BEGI N DSSUBREC ORD
  2036            N ame "Suppo rtedVarian tsVersions "
  2037            V alue "1.0"
  2038         END  DSSUBRECOR D
  2039         BEGI N DSSUBREC ORD
  2040            N ame "Orien tation"
  2041            V alue "link "
  2042         END  DSSUBRECOR D
  2043         BEGI N DSSUBREC ORD
  2044            N ame "Rejec tFromLink"
  2045            V alue "-1"
  2046         END  DSSUBRECOR D
  2047         BEGI N DSSUBREC ORD
  2048            N ame "Rejec tThreshold "
  2049            V alue "0"
  2050         END  DSSUBRECOR D
  2051         BEGI N DSSUBREC ORD
  2052            N ame "Rejec tNumber"
  2053            V alue "0"
  2054         END  DSSUBRECOR D
  2055         BEGI N DSSUBREC ORD
  2056            N ame "Rejec tUsesPerce ntage"
  2057            V alue "fals e"
  2058         END  DSSUBRECOR D
  2059         BEGI N DSSUBREC ORD
  2060            N ame "Conne ctorName"
  2061            V alue "ODBC Connector"
  2062         END  DSSUBRECOR D
  2063         BEGI N DSSUBREC ORD
  2064            N ame "Engin e"
  2065            V alue "EE"
  2066         END  DSSUBRECOR D
  2067         BEGI N DSSUBREC ORD
  2068            N ame "Conte xt"
  2069            V alue "sour ce"
  2070         END  DSSUBRECOR D
  2071         BEGI N DSSUBREC ORD
  2072            N ame "Conne ctionStrin g"
  2073            V alue "/Con nection/Da taSource"
  2074         END  DSSUBRECOR D
  2075         BEGI N DSSUBREC ORD
  2076            N ame "Usern ame"
  2077            V alue "/Con nection/Us ername"
  2078         END  DSSUBRECOR D
  2079         BEGI N DSSUBREC ORD
  2080            N ame "Passw ord"
  2081            V alue "/Con nection/Pa ssword"
  2082         END  DSSUBRECOR D
  2083         BEGI N DSSUBREC ORD
  2084            N ame "XMLPr operties"
  2085            V alue =+=+= +=
  2086   <?xml vers ion='1.0'  encoding=' UTF-16'?>< Properties  version=' 1.1'><Comm on><Contex t type='in t'>1</Cont ext><Varia nt type='s tring'>3.5 </Variant> <Descripto rVersion t ype='strin g'>1.0</De scriptorVe rsion><Par titionType  type='int '>-1</Part itionType> <RCP type= 'int'>0</R CP></Commo n><Connect ion><DataS ource modi fied='1' t ype='strin g'><![CDAT A[#$SQL_DB _DSN#]]></ DataSource ><Username  modified= '1' type=' string'><! [CDATA[#$S QL_DB_UID# ]]></Usern ame><Passw ord modifi ed='1' typ e='string' ><![CDATA[ #$SQL_DB_P WD#]]></Pa ssword></C onnection> <Usage mod ified='1'> <GenerateS QL modifie d='1' type ='bool'><! [CDATA[0]] ></Generat eSQL><Enab leQuotedID s modified ='1' type= 'bool'><![ CDATA[1]]> </EnableQu otedIDs><S QL><Select Statement  modified=' 1' type='s tring'><![ CDATA[Sele ct claim_k ey, claim_ id, source _entity, e tl_batch_i
  2087   from #$SQL _DB#.dbo.D IM_VA_CLAI M where is _current =  'Y'  and  etl_batch_ id = '#Bat chID#']]>< ReadStatem entFromFil e type='bo ol'><![CDA TA[0]]></R eadStateme ntFromFile ><Tables c ollapsed=' 1'><Table  type='stri ng'></Tabl e><Table t ype='strin g'><![CDAT A[#$SQL_DB #]]></Tabl e></Tables ><Paramete rs collaps ed='1'></P arameters> <Columns c ollapsed=' 1'><Column  type='str ing'><![CD ATA[etl_ba tch_id,etl _batch_id, #$SQL_DB#] ]></Column ><Column t ype='strin g'><![CDAT A[source_e ntity,sour ce_entity, #$SQL_DB#] ]></Column ><Column t ype='strin g'><![CDAT A[claim_id ,claim_id, #$SQL_DB#] ]></Column ><Column t ype='strin g'><![CDAT A[claim_ke y,claim_ke y,#$SQL_DB #]]></Colu mn></Colum ns><WhereC lause type ='string'> <![CDATA[( is_current  = 'Y' AND  etl_batch _id = '#Ba tchID#')]] ></WhereCl ause></Sel ectStateme nt><Enable Partitioni ng collaps ed='1' typ e='bool'>< ![CDATA[0] ]></Enable Partitioni ng></SQL>< Transactio n><RecordC ount type= 'int'><![C DATA[2000] ]></Record Count><End OfWave col lapsed='1'  type='int '><![CDATA [0]]></End OfWave></T ransaction ><Session> <Isolation Level type ='int'><![ CDATA[1]]> </Isolatio nLevel><Au tocommitMo de type='i nt'><![CDA TA[0]]></A utocommitM ode><Array Size type= 'int'><![C DATA[2000] ]></ArrayS ize><Schem aReconcili ation><Fai lOnSizeMis match type ='bool'><! [CDATA[1]] ></FailOnS izeMismatc h><FailOnT ypeMismatc h type='bo ol'><![CDA TA[1]]></F ailOnTypeM ismatch><F ailOnCodeP ageMismatc h type='bo ol'><![CDA TA[0]]></F ailOnCodeP ageMismatc h></Schema Reconcilia tion><Pass LobLocator  collapsed ='1' type= 'bool'><![ CDATA[0]]> </PassLobL ocator><Co dePage col lapsed='1'  type='int '><![CDATA [0]]></Cod ePage></Se ssion><Bef oreAfter c ollapsed=' 1' type='b ool'><![CD ATA[0]]></ BeforeAfte r></Usage> </Properti es >
  2088   =+=+=+=
  2089         END  DSSUBRECOR D
  2090         Next RecordID " 0"
  2091      END DSR ECORD
  2092      BEGIN D SRECORD
  2093         Iden tifier "V1 07S0P1"
  2094         OLET ype "CCust omOutput"
  2095         Read only "0"
  2096         Name  "DimVaCla im_key"
  2097         Part ner "V0S11 4|V0S114P2 "
  2098         Prop erties "CC ustomPrope rty"
  2099         BEGI N DSSUBREC ORD
  2100            N ame "looku p\\type"
  2101         END  DSSUBRECOR D
  2102         BEGI N DSSUBREC ORD
  2103            N ame "Varia ntName"
  2104            V alue "3.5"
  2105         END  DSSUBRECOR D
  2106         BEGI N DSSUBREC ORD
  2107            N ame "Varia ntLibrary"
  2108            V alue "ccod bc"
  2109         END  DSSUBRECOR D
  2110         BEGI N DSSUBREC ORD
  2111            N ame "Varia ntVersion"
  2112            V alue "1.0"
  2113         END  DSSUBRECOR D
  2114         BEGI N DSSUBREC ORD
  2115            N ame "Rejec tFromLink"
  2116            V alue "-1"
  2117         END  DSSUBRECOR D
  2118         BEGI N DSSUBREC ORD
  2119            N ame "Rejec tThreshold "
  2120            V alue "0"
  2121         END  DSSUBRECOR D
  2122         BEGI N DSSUBREC ORD
  2123            N ame "Rejec tNumber"
  2124            V alue "0"
  2125         END  DSSUBRECOR D
  2126         BEGI N DSSUBREC ORD
  2127            N ame "Rejec tUsesPerce ntage"
  2128            V alue "fals e"
  2129         END  DSSUBRECOR D
  2130         BEGI N DSSUBREC ORD
  2131            N ame "Conne ctorName"
  2132            V alue "ODBC Connector"
  2133         END  DSSUBRECOR D
  2134         Colu mns "COutp utColumn"
  2135         BEGI N DSSUBREC ORD
  2136            N ame "claim _key"
  2137            D escription  =+=+=+=
  2138   <none>
  2139   Searchable ? N 
  2140   =+=+=+=
  2141            S qlType "4"
  2142            P recision " 10"
  2143            S cale "0"
  2144            N ullable "0 "
  2145            K eyPosition  "0"
  2146            D isplaySize  "11"
  2147            G roup "0"
  2148            S ortKey "0"
  2149            S ortType "0 "
  2150            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  2151            A llowCRLF " 0"
  2152            L evelNo "0"
  2153            O ccurs "0"
  2154            P adNulls "0 "
  2155            S ignOption  "0"
  2156            S ortingOrde r "0"
  2157            A rrayHandli ng "0"
  2158            S yncIndicat or "0"
  2159            P adChar ""
  2160            C olumnRefer ence "clai m_key"
  2161            A PTFieldPro p "quote=n one"
  2162            E xtendedPre cision "0"
  2163            T aggedSubre c "0"
  2164            O ccursVaryi ng "0"
  2165            P KeyIsCasel ess "0"
  2166            S CDPurpose  "0"
  2167         END  DSSUBRECOR D
  2168         BEGI N DSSUBREC ORD
  2169            N ame "claim _id"
  2170            S qlType "12 "
  2171            P recision " 20"
  2172            S cale "0"
  2173            N ullable "1 "
  2174            K eyPosition  "1"
  2175            D isplaySize  "0"
  2176            G roup "0"
  2177            K eyExpressi on "Flt_Cl mId.claim_ id"
  2178            S ortKey "0"
  2179            S ortType "0 "
  2180            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  2181            A llowCRLF " 0"
  2182            L evelNo "0"
  2183            O ccurs "0"
  2184            P adNulls "0 "
  2185            S ignOption  "0"
  2186            S ortingOrde r "0"
  2187            A rrayHandli ng "0"
  2188            S yncIndicat or "0"
  2189            P adChar ""
  2190            C olumnRefer ence "clai m_id"
  2191            A PTFieldPro p "null_fi eld=''"
  2192            E xtendedPre cision "0"
  2193            T aggedSubre c "0"
  2194            O ccursVaryi ng "0"
  2195            P KeyParsedD erivation  "Flt_ClmId .claim_id"
  2196            P KeySourceC olumn "Flt _ClmId.cla im_id"
  2197            P KeyIsCasel ess "0"
  2198            S CDPurpose  "0"
  2199         END  DSSUBRECOR D
  2200         BEGI N DSSUBREC ORD
  2201            N ame "sourc e_entity"
  2202            S qlType "12 "
  2203            P recision " 50"
  2204            S cale "0"
  2205            N ullable "1 "
  2206            K eyPosition  "1"
  2207            D isplaySize  "0"
  2208            G roup "0"
  2209            K eyExpressi on "Flt_Cl mId.source _entity"
  2210            S ortKey "0"
  2211            S ortType "0 "
  2212            A llowCRLF " 0"
  2213            L evelNo "0"
  2214            O ccurs "0"
  2215            P adNulls "0 "
  2216            S ignOption  "0"
  2217            S ortingOrde r "0"
  2218            A rrayHandli ng "0"
  2219            S yncIndicat or "0"
  2220            P adChar ""
  2221            E xtendedPre cision "0"
  2222            T aggedSubre c "0"
  2223            O ccursVaryi ng "0"
  2224            P KeyParsedD erivation  "Flt_ClmId .source_en tity"
  2225            P KeySourceC olumn "Flt _ClmId.sou rce_entity "
  2226            P KeyIsCasel ess "0"
  2227            S CDPurpose  "0"
  2228         END  DSSUBRECOR D
  2229         BEGI N DSSUBREC ORD
  2230            N ame "etl_b atch_id"
  2231            S qlType "12 "
  2232            P recision " 20"
  2233            S cale "0"
  2234            N ullable "1 "
  2235            K eyPosition  "1"
  2236            D isplaySize  "0"
  2237            G roup "0"
  2238            K eyExpressi on "Flt_Cl mId.etl_ba tch_id"
  2239            S ortKey "0"
  2240            S ortType "0 "
  2241            A llowCRLF " 0"
  2242            L evelNo "0"
  2243            O ccurs "0"
  2244            P adNulls "0 "
  2245            S ignOption  "0"
  2246            S ortingOrde r "0"
  2247            A rrayHandli ng "0"
  2248            S yncIndicat or "0"
  2249            P adChar ""
  2250            E xtendedPre cision "0"
  2251            T aggedSubre c "0"
  2252            O ccursVaryi ng "0"
  2253            P KeyParsedD erivation  "Flt_ClmId .etl_batch _id"
  2254            P KeySourceC olumn "Flt _ClmId.etl _batch_id"
  2255            P KeyIsCasel ess "0"
  2256            S CDPurpose  "0"
  2257         END  DSSUBRECOR D
  2258         Meta Bag "CMeta Property"
  2259         BEGI N DSSUBREC ORD
  2260            O wner "APT"
  2261            N ame "Schem aFormat"
  2262         END  DSSUBRECOR D
  2263         BEGI N DSSUBREC ORD
  2264            O wner "APT"
  2265            N ame "DiskW riteInc"
  2266            V alue "1048 576"
  2267         END  DSSUBRECOR D
  2268         BEGI N DSSUBREC ORD
  2269            O wner "APT"
  2270            N ame "BufFr eeRun"
  2271            V alue "50"
  2272         END  DSSUBRECOR D
  2273         BEGI N DSSUBREC ORD
  2274            O wner "APT"
  2275            N ame "MaxMe mBufSize"
  2276            V alue "3145 728"
  2277         END  DSSUBRECOR D
  2278         BEGI N DSSUBREC ORD
  2279            O wner "APT"
  2280            N ame "Queue UpperSize"
  2281            V alue "0"
  2282         END  DSSUBRECOR D
  2283         Left TextPos "1 019"
  2284         TopT extPos "16 3"
  2285         Link Minimised  "0"
  2286      END DSR ECORD
  2287      BEGIN D SRECORD
  2288         Iden tifier "V1 29S0"
  2289         OLET ype "CCust omStage"
  2290         Read only "0"
  2291         Name  "ds_EDI83 7P_Conform ed"
  2292         Next ID "3"
  2293         Outp utPins "V1 29S0P2"
  2294         Stag eType "PxD ataSet"
  2295         Allo wColumnMap ping "0"
  2296         Meta Bag "CMeta Property"
  2297         BEGI N DSSUBREC ORD
  2298            O wner "APT"
  2299            N ame "Execm ode"
  2300            V alue "seq"
  2301         END  DSSUBRECOR D
  2302         Next RecordID " 0"
  2303      END DSR ECORD
  2304      BEGIN D SRECORD
  2305         Iden tifier "V1 29S0P2"
  2306         OLET ype "CCust omOutput"
  2307         Read only "0"
  2308         Name  "XfrmSrc"
  2309         Part ner "V138S 4|V138S4P3 "
  2310         Prop erties "CC ustomPrope rty"
  2311         BEGI N DSSUBREC ORD
  2312            N ame "datas et"
  2313            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Co nformed.ds "
  2314         END  DSSUBRECOR D
  2315         BEGI N DSSUBREC ORD
  2316            N ame "missi ngcolmode"
  2317            V alue " "
  2318         END  DSSUBRECOR D
  2319         Colu mns "COutp utColumn"
  2320         BEGI N DSSUBREC ORD
  2321            N ame "ROW_N UM"
  2322            S qlType "12 "
  2323            P recision " 8"
  2324            S cale "0"
  2325            N ullable "0 "
  2326            K eyPosition  "0"
  2327            D isplaySize  "0"
  2328            G roup "0"
  2329            S ortKey "0"
  2330            S ortType "0 "
  2331            A llowCRLF " 0"
  2332            L evelNo "0"
  2333            O ccurs "0"
  2334            P adNulls "0 "
  2335            S ignOption  "0"
  2336            S ortingOrde r "0"
  2337            A rrayHandli ng "0"
  2338            S yncIndicat or "0"
  2339            P adChar ""
  2340            E xtendedPre cision "0"
  2341            T aggedSubre c "0"
  2342            O ccursVaryi ng "0"
  2343            P KeyIsCasel ess "0"
  2344            S CDPurpose  "0"
  2345         END  DSSUBRECOR D
  2346         BEGI N DSSUBREC ORD
  2347            N ame "ST_NU M"
  2348            S qlType "12 "
  2349            P recision " 9"
  2350            S cale "0"
  2351            N ullable "1 "
  2352            K eyPosition  "1"
  2353            D isplaySize  "0"
  2354            G roup "0"
  2355            S ortKey "0"
  2356            S ortType "0 "
  2357            A llowCRLF " 0"
  2358            L evelNo "0"
  2359            O ccurs "0"
  2360            P adNulls "0 "
  2361            S ignOption  "0"
  2362            S ortingOrde r "0"
  2363            A rrayHandli ng "0"
  2364            S yncIndicat or "0"
  2365            P adChar ""
  2366            E xtendedPre cision "0"
  2367            T aggedSubre c "0"
  2368            O ccursVaryi ng "0"
  2369            P KeyIsCasel ess "0"
  2370            S CDPurpose  "0"
  2371         END  DSSUBRECOR D
  2372         BEGI N DSSUBREC ORD
  2373            N ame "LOOP"
  2374            S qlType "12 "
  2375            P recision " 10"
  2376            S cale "0"
  2377            N ullable "1 "
  2378            K eyPosition  "0"
  2379            D isplaySize  "0"
  2380            G roup "0"
  2381            S ortKey "0"
  2382            S ortType "0 "
  2383            A llowCRLF " 0"
  2384            L evelNo "0"
  2385            O ccurs "0"
  2386            P adNulls "0 "
  2387            S ignOption  "0"
  2388            S ortingOrde r "0"
  2389            A rrayHandli ng "0"
  2390            S yncIndicat or "0"
  2391            P adChar ""
  2392            E xtendedPre cision "0"
  2393            T aggedSubre c "0"
  2394            O ccursVaryi ng "0"
  2395            P KeyIsCasel ess "0"
  2396            S CDPurpose  "0"
  2397         END  DSSUBRECOR D
  2398         BEGI N DSSUBREC ORD
  2399            N ame "SEG"
  2400            S qlType "12 "
  2401            P recision " 5"
  2402            S cale "0"
  2403            N ullable "0 "
  2404            K eyPosition  "0"
  2405            D isplaySize  "0"
  2406            G roup "0"
  2407            S ortKey "0"
  2408            S ortType "0 "
  2409            A llowCRLF " 0"
  2410            L evelNo "0"
  2411            O ccurs "0"
  2412            P adNulls "0 "
  2413            S ignOption  "0"
  2414            S ortingOrde r "0"
  2415            A rrayHandli ng "0"
  2416            S yncIndicat or "0"
  2417            P adChar ""
  2418            E xtendedPre cision "0"
  2419            T aggedSubre c "0"
  2420            O ccursVaryi ng "0"
  2421            P KeyIsCasel ess "0"
  2422            S CDPurpose  "0"
  2423         END  DSSUBRECOR D
  2424         BEGI N DSSUBREC ORD
  2425            N ame "SEG_C D"
  2426            S qlType "12 "
  2427            P recision " 20"
  2428            S cale "0"
  2429            N ullable "0 "
  2430            K eyPosition  "0"
  2431            D isplaySize  "0"
  2432            G roup "0"
  2433            S ortKey "0"
  2434            S ortType "0 "
  2435            A llowCRLF " 0"
  2436            L evelNo "0"
  2437            O ccurs "0"
  2438            P adNulls "0 "
  2439            S ignOption  "0"
  2440            S ortingOrde r "0"
  2441            A rrayHandli ng "0"
  2442            S yncIndicat or "0"
  2443            P adChar ""
  2444            E xtendedPre cision "0"
  2445            T aggedSubre c "0"
  2446            O ccursVaryi ng "0"
  2447            P KeyIsCasel ess "0"
  2448            S CDPurpose  "0"
  2449         END  DSSUBRECOR D
  2450         BEGI N DSSUBREC ORD
  2451            N ame "EDI83 7P"
  2452            S qlType "12 "
  2453            P recision " 2000"
  2454            S cale "0"
  2455            N ullable "0 "
  2456            K eyPosition  "0"
  2457            D isplaySize  "0"
  2458            G roup "0"
  2459            S ortKey "0"
  2460            S ortType "0 "
  2461            T ableDef "S aved\\Conf orming_rec s\\EDI_ST_ TransSetHd r"
  2462            A llowCRLF " 0"
  2463            L evelNo "0"
  2464            O ccurs "0"
  2465            P adNulls "0 "
  2466            S ignOption  "0"
  2467            S ortingOrde r "0"
  2468            A rrayHandli ng "0"
  2469            S yncIndicat or "0"
  2470            P adChar ""
  2471            C olumnRefer ence "IMPL _CONV_REF"
  2472            E xtendedPre cision "0"
  2473            T aggedSubre c "0"
  2474            O ccursVaryi ng "0"
  2475            P KeyIsCasel ess "0"
  2476            S CDPurpose  "0"
  2477         END  DSSUBRECOR D
  2478         BEGI N DSSUBREC ORD
  2479            N ame "ETL_B ATCH_ID"
  2480            S qlType "12 "
  2481            P recision " 20"
  2482            S cale "0"
  2483            N ullable "0 "
  2484            K eyPosition  "0"
  2485            D isplaySize  "0"
  2486            G roup "0"
  2487            S ortKey "0"
  2488            S ortType "0 "
  2489            A llowCRLF " 0"
  2490            L evelNo "0"
  2491            O ccurs "0"
  2492            P adNulls "0 "
  2493            S ignOption  "0"
  2494            S ortingOrde r "0"
  2495            A rrayHandli ng "0"
  2496            S yncIndicat or "0"
  2497            P adChar ""
  2498            E xtendedPre cision "0"
  2499            T aggedSubre c "0"
  2500            O ccursVaryi ng "0"
  2501            P KeyIsCasel ess "0"
  2502            S CDPurpose  "0"
  2503         END  DSSUBRECOR D
  2504         Meta Bag "CMeta Property"
  2505         BEGI N DSSUBREC ORD
  2506            O wner "APT"
  2507            N ame "DiskW riteInc"
  2508            V alue "1048 576"
  2509         END  DSSUBRECOR D
  2510         BEGI N DSSUBREC ORD
  2511            O wner "APT"
  2512            N ame "BufFr eeRun"
  2513            V alue "50"
  2514         END  DSSUBRECOR D
  2515         BEGI N DSSUBREC ORD
  2516            O wner "APT"
  2517            N ame "MaxMe mBufSize"
  2518            V alue "3145 728"
  2519         END  DSSUBRECOR D
  2520         BEGI N DSSUBREC ORD
  2521            O wner "APT"
  2522            N ame "Queue UpperSize"
  2523            V alue "0"
  2524         END  DSSUBRECOR D
  2525         Left TextPos "2 01"
  2526         TopT extPos "21 1"
  2527         Link Minimised  "0"
  2528      END DSR ECORD
  2529      BEGIN D SRECORD
  2530         Iden tifier "V1 38A0"
  2531         OLET ype "CAnno tation"
  2532         Read only "0"
  2533         Name  "V138A0"
  2534         Next ID "0"
  2535         Anno tationType  "0"
  2536         Anno tationText  "Get diag nosis code s for loop =2300 and  segment=HI *BG"
  2537         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  2538         Text Horizontal Justificat ion "1"
  2539         Text VerticalJu stificatio n "1"
  2540         Text Color "0"
  2541         Back groundColo r "1271398 3"
  2542         Back groundTran sparent "0 "
  2543         Bord erVisible  "1"
  2544      END DSR ECORD
  2545      BEGIN D SRECORD
  2546         Iden tifier "V1 38S1"
  2547         OLET ype "CTran sformerSta ge"
  2548         Read only "0"
  2549         Name  "Fmt_Diag Codes"
  2550         Next ID "3"
  2551         Inpu tPins "V13 8S1P1"
  2552         Outp utPins "V1 38S1P2"
  2553         Meta Bag "CMeta Property"
  2554         BEGI N DSSUBREC ORD
  2555            O wner "APT"
  2556            N ame "TrxGe nCode"
  2557            V alue =+=+= +=
  2558   //
  2559   // Generat ed file to  implement  the V138S 1_EDI837P_ CLAIM_COND ITION_CODE _prep_Fmt_ DiagCodes  transform  operator.
  2560   //
  2561  
  2562   // define  our input/ output lin k names
  2563   inputname  0 genRecsB yCode;
  2564   outputname  0 BusRls;
  2565  
  2566   initialize  {
  2567    // define  our contr ol variabl es
  2568    int8 RowR ejected0;
  2569    int8 Null SetVar0;
  2570  
  2571    // declar e our inte rmediate v ariables f or this se ction (1)
  2572    string In terVar0_0;
  2573  
  2574    // initia lise const ant values  which req uire conve rsion
  2575    InterVar0 _0 = "BG";
  2576   }
  2577  
  2578   mainloop {
  2579  
  2580    // initia lise the r ejected ro w variable
  2581    RowReject ed0 = 1;
  2582  
  2583    // evalua te constra int and co lumns for  link: BusR ls
  2584    if ((genR ecsByCode. condition_ qualif ==  InterVar0_ 0))
  2585    {
  2586     BusRls.H L22 = genR ecsByCode. svHL22;
  2587     writerec ord 0;
  2588     RowRejec ted0 = 0;
  2589    }
  2590   }
  2591  
  2592   finish {
  2593   }
  2594  
  2595   =+=+=+=
  2596         END  DSSUBRECOR D
  2597         BEGI N DSSUBREC ORD
  2598            O wner "APT"
  2599            N ame "TrxGe nCache"
  2600            V alue "0"
  2601         END  DSSUBRECOR D
  2602         BEGI N DSSUBREC ORD
  2603            O wner "APT"
  2604            N ame "TrxCl assName"
  2605            V alue "V138 S1_EDI837P _CLAIM_CON DITION_COD E_prep_Fmt _DiagCodes "
  2606         END  DSSUBRECOR D
  2607         Vali dationStat us "0"
  2608         Stag eType "CTr ansformerS tage"
  2609         Bloc kSize "0"
  2610         SKKe ySourceTyp e "file"
  2611         Stag eVarsMinim ised "0"
  2612         Loop VarsMaximi sed "0"
  2613         MaxL oopIterati ons "0"
  2614      END DSR ECORD
  2615      BEGIN D SRECORD
  2616         Iden tifier "V1 38S1P1"
  2617         OLET ype "CTrxI nput"
  2618         Read only "0"
  2619         Name  "genRecsB yCode"
  2620         Part ner "V138S 3|V138S3P2 "
  2621         Link Type "1"
  2622         Meta Bag "CMeta Property"
  2623         BEGI N DSSUBREC ORD
  2624            O wner "APT"
  2625            N ame "RTCol umnProp"
  2626            V alue "0"
  2627         END  DSSUBRECOR D
  2628         BEGI N DSSUBREC ORD
  2629            O wner "APT"
  2630            N ame "Schem a"
  2631            V alue =+=+= +=
  2632   record
  2633   (
  2634     claim_id :nullable  string[max =20];
  2635     conditio n_qualif:n ullable st ring[max=1 0];
  2636     conditio n_code:nul lable stri ng[max=30] ;
  2637     source_e ntity:null able strin g[max=50];
  2638     row_id:n ullable st ring[max=2 0];
  2639     etl_batc h_id:nulla ble string [max=20];
  2640     svHL22:n ullable st ring[max=2 0];
  2641   )
  2642   =+=+=+=
  2643         END  DSSUBRECOR D
  2644         Mult iRow "0"
  2645         Link Minimised  "0"
  2646      END DSR ECORD
  2647      BEGIN D SRECORD
  2648         Iden tifier "V1 38S1P2"
  2649         OLET ype "CTrxO utput"
  2650         Read only "0"
  2651         Name  "BusRls"
  2652         Part ner "V81S0 |V81S0P4"
  2653         Cons traint "ge nRecsByCod e.conditio n_qualif=' BG'"
  2654         Reje ct "0"
  2655         Erro rPin "0"
  2656         RowL imit "0"
  2657         Pars edConstrai nt "genRec sByCode.co ndition_qu alif = 'BG '"
  2658         Sour ceColumns  "genRecsBy Code.condi tion_quali f"
  2659         Colu mns "COutp utColumn"
  2660         BEGI N DSSUBREC ORD
  2661            N ame "claim _id"
  2662            S qlType "12 "
  2663            P recision " 20"
  2664            S cale "0"
  2665            N ullable "1 "
  2666            K eyPosition  "0"
  2667            D isplaySize  "0"
  2668            D erivation  "genRecsBy Code.claim _id"
  2669            G roup "0"
  2670            P arsedDeriv ation "gen RecsByCode .claim_id"
  2671            S ourceColum n "genRecs ByCode.cla im_id"
  2672            S ortKey "0"
  2673            S ortType "0 "
  2674            A llowCRLF " 0"
  2675            L evelNo "0"
  2676            O ccurs "0"
  2677            P adNulls "0 "
  2678            S ignOption  "0"
  2679            S ortingOrde r "0"
  2680            A rrayHandli ng "0"
  2681            S yncIndicat or "0"
  2682            P adChar ""
  2683            E xtendedPre cision "0"
  2684            T aggedSubre c "0"
  2685            O ccursVaryi ng "0"
  2686            P KeyIsCasel ess "0"
  2687            S CDPurpose  "0"
  2688         END  DSSUBRECOR D
  2689         BEGI N DSSUBREC ORD
  2690            N ame "condi tion_quali f"
  2691            D escription  =+=+=+=
  2692   <none>
  2693   Searchable ? N 
  2694   =+=+=+=
  2695            S qlType "12 "
  2696            P recision " 10"
  2697            S cale "0"
  2698            N ullable "1 "
  2699            K eyPosition  "0"
  2700            D isplaySize  "15"
  2701            D erivation  "genRecsBy Code.condi tion_quali f"
  2702            G roup "0"
  2703            P arsedDeriv ation "gen RecsByCode .condition _qualif"
  2704            S ourceColum n "genRecs ByCode.con dition_qua lif"
  2705            S ortKey "0"
  2706            S ortType "0 "
  2707            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  2708            A llowCRLF " 0"
  2709            L evelNo "0"
  2710            O ccurs "0"
  2711            P adNulls "0 "
  2712            S ignOption  "0"
  2713            S ortingOrde r "0"
  2714            A rrayHandli ng "0"
  2715            S yncIndicat or "0"
  2716            P adChar ""
  2717            C olumnRefer ence "oral _cavity_de signation_ code"
  2718            A PTFieldPro p "null_fi eld=''"
  2719            E xtendedPre cision "0"
  2720            T aggedSubre c "0"
  2721            O ccursVaryi ng "0"
  2722            P KeyIsCasel ess "0"
  2723            S CDPurpose  "0"
  2724         END  DSSUBRECOR D
  2725         BEGI N DSSUBREC ORD
  2726            N ame "condi tion_code"
  2727            D escription  =+=+=+=
  2728   <none>
  2729   Searchable ? N 
  2730   =+=+=+=
  2731            S qlType "12 "
  2732            P recision " 30"
  2733            S cale "0"
  2734            N ullable "1 "
  2735            K eyPosition  "0"
  2736            D isplaySize  "15"
  2737            D erivation  " genRecsB yCode.cond ition_code "
  2738            G roup "0"
  2739            P arsedDeriv ation "gen RecsByCode .condition _code"
  2740            S ourceColum n "genRecs ByCode.con dition_cod e"
  2741            S ortKey "0"
  2742            S ortType "0 "
  2743            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  2744            A llowCRLF " 0"
  2745            L evelNo "0"
  2746            O ccurs "0"
  2747            P adNulls "0 "
  2748            S ignOption  "0"
  2749            S ortingOrde r "0"
  2750            A rrayHandli ng "0"
  2751            S yncIndicat or "0"
  2752            P adChar ""
  2753            C olumnRefer ence "oral _cavity_de signation_ code"
  2754            A PTFieldPro p "null_fi eld=''"
  2755            E xtendedPre cision "0"
  2756            T aggedSubre c "0"
  2757            O ccursVaryi ng "0"
  2758            P KeyIsCasel ess "0"
  2759            S CDPurpose  "0"
  2760         END  DSSUBRECOR D
  2761         BEGI N DSSUBREC ORD
  2762            N ame "sourc e_entity"
  2763            S qlType "12 "
  2764            P recision " 50"
  2765            S cale "0"
  2766            N ullable "1 "
  2767            K eyPosition  "0"
  2768            D isplaySize  "0"
  2769            D erivation  "genRecsBy Code.sourc e_entity"
  2770            G roup "0"
  2771            P arsedDeriv ation "gen RecsByCode .source_en tity"
  2772            S ourceColum n "genRecs ByCode.sou rce_entity "
  2773            S ortKey "0"
  2774            S ortType "0 "
  2775            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  2776            A llowCRLF " 0"
  2777            L evelNo "0"
  2778            O ccurs "0"
  2779            P adNulls "0 "
  2780            S ignOption  "0"
  2781            S ortingOrde r "0"
  2782            A rrayHandli ng "0"
  2783            S yncIndicat or "0"
  2784            P adChar ""
  2785            C olumnRefer ence "sour ce_entity"
  2786            E xtendedPre cision "0"
  2787            T aggedSubre c "0"
  2788            O ccursVaryi ng "0"
  2789            P KeyIsCasel ess "0"
  2790            S CDPurpose  "0"
  2791         END  DSSUBRECOR D
  2792         BEGI N DSSUBREC ORD
  2793            N ame "row_i d"
  2794            S qlType "12 "
  2795            P recision " 20"
  2796            S cale "0"
  2797            N ullable "1 "
  2798            K eyPosition  "0"
  2799            D isplaySize  "0"
  2800            D erivation  "genRecsBy Code.row_i d"
  2801            G roup "0"
  2802            P arsedDeriv ation "gen RecsByCode .row_id"
  2803            S ourceColum n "genRecs ByCode.row _id"
  2804            S ortKey "0"
  2805            S ortType "0 "
  2806            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  2807            A llowCRLF " 0"
  2808            L evelNo "0"
  2809            N ativeType  "varchar"
  2810            O ccurs "0"
  2811            P adNulls "0 "
  2812            S ignOption  "0"
  2813            S ortingOrde r "0"
  2814            A rrayHandli ng "0"
  2815            S yncIndicat or "0"
  2816            P adChar ""
  2817            C olumnRefer ence "row_ id"
  2818            E xtendedPre cision "0"
  2819            T aggedSubre c "0"
  2820            O ccursVaryi ng "0"
  2821            P KeyIsCasel ess "0"
  2822            S CDPurpose  "0"
  2823         END  DSSUBRECOR D
  2824         BEGI N DSSUBREC ORD
  2825            N ame "etl_b atch_id"
  2826            S qlType "12 "
  2827            P recision " 20"
  2828            S cale "0"
  2829            N ullable "1 "
  2830            K eyPosition  "0"
  2831            D isplaySize  "0"
  2832            D erivation  "genRecsBy Code.etl_b atch_id"
  2833            G roup "0"
  2834            P arsedDeriv ation "gen RecsByCode .etl_batch _id"
  2835            S ourceColum n "genRecs ByCode.etl _batch_id"
  2836            S ortKey "0"
  2837            S ortType "0 "
  2838            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  2839            A llowCRLF " 0"
  2840            L evelNo "0"
  2841            N ativeType  "varchar"
  2842            O ccurs "0"
  2843            P adNulls "0 "
  2844            S ignOption  "0"
  2845            S ortingOrde r "0"
  2846            A rrayHandli ng "0"
  2847            S yncIndicat or "0"
  2848            P adChar ""
  2849            C olumnRefer ence "etl_ batch_id"
  2850            E xtendedPre cision "0"
  2851            T aggedSubre c "0"
  2852            O ccursVaryi ng "0"
  2853            P KeyIsCasel ess "0"
  2854            S CDPurpose  "0"
  2855         END  DSSUBRECOR D
  2856         BEGI N DSSUBREC ORD
  2857            N ame "HL22"
  2858            S qlType "12 "
  2859            P recision " 20"
  2860            S cale "0"
  2861            N ullable "1 "
  2862            K eyPosition  "0"
  2863            D isplaySize  "0"
  2864            D erivation  "genRecsBy Code.svHL2 2"
  2865            G roup "0"
  2866            P arsedDeriv ation "gen RecsByCode .svHL22"
  2867            S ourceColum n "genRecs ByCode.svH L22"
  2868            S ortKey "0"
  2869            S ortType "0 "
  2870            A llowCRLF " 0"
  2871            L evelNo "0"
  2872            O ccurs "0"
  2873            P adNulls "0 "
  2874            S ignOption  "0"
  2875            S ortingOrde r "0"
  2876            A rrayHandli ng "0"
  2877            S yncIndicat or "0"
  2878            P adChar ""
  2879            E xtendedPre cision "0"
  2880            T aggedSubre c "0"
  2881            O ccursVaryi ng "0"
  2882            P KeyIsCasel ess "0"
  2883            S CDPurpose  "0"
  2884         END  DSSUBRECOR D
  2885         Meta Bag "CMeta Property"
  2886         BEGI N DSSUBREC ORD
  2887            O wner "APT"
  2888            N ame "DiskW riteInc"
  2889            V alue "1048 576"
  2890         END  DSSUBRECOR D
  2891         BEGI N DSSUBREC ORD
  2892            O wner "APT"
  2893            N ame "BufFr eeRun"
  2894            V alue "50"
  2895         END  DSSUBRECOR D
  2896         BEGI N DSSUBREC ORD
  2897            O wner "APT"
  2898            N ame "MaxMe mBufSize"
  2899            V alue "3145 728"
  2900         END  DSSUBRECOR D
  2901         BEGI N DSSUBREC ORD
  2902            O wner "APT"
  2903            N ame "Queue UpperSize"
  2904            V alue "0"
  2905         END  DSSUBRECOR D
  2906         BEGI N DSSUBREC ORD
  2907            O wner "APT"
  2908            N ame "Schem a"
  2909            V alue =+=+= +=
  2910   record
  2911   (
  2912     claim_id :nullable  string[max =20];
  2913     conditio n_qualif:n ullable st ring[max=1 0];
  2914     conditio n_code:nul lable stri ng[max=30] ;
  2915     source_e ntity:null able strin g[max=50];
  2916     row_id:n ullable st ring[max=2 0];
  2917     etl_batc h_id:nulla ble string [max=20];
  2918     HL22:nul lable stri ng[max=20] ;
  2919   )
  2920   =+=+=+=
  2921         END  DSSUBRECOR D
  2922         Left TextPos "7 33"
  2923         TopT extPos "21 0"
  2924         Link Minimised  "0"
  2925      END DSR ECORD
  2926      BEGIN D SRECORD
  2927         Iden tifier "V1 38S3"
  2928         OLET ype "CTran sformerSta ge"
  2929         Read only "0"
  2930         Name  "genRecsB yCode"
  2931         Next ID "4"
  2932         Inpu tPins "V13 8S3P1"
  2933         Outp utPins "V1 38S3P2"
  2934         Meta Bag "CMeta Property"
  2935         BEGI N DSSUBREC ORD
  2936            O wner "APT"
  2937            N ame "TrxGe nCode"
  2938            V alue =+=+= +=
  2939   //
  2940   // Generat ed file to  implement  the V138S 3_EDI837P_ CLAIM_COND ITION_CODE _prep_genR ecsByCode  transform  operator.
  2941   //
  2942  
  2943   // define  our input/ output lin k names
  2944   inputname  0 BusRls;
  2945   outputname  0 genRecs ByCode;
  2946  
  2947   initialize  {
  2948    // define  our contr ol variabl es
  2949    int8 RowR ejected0;
  2950    int8 Null SetVar0;
  2951    uint64 It eration0;
  2952  
  2953  
  2954    // get an y loop war ning thres hold
  2955    int64 Loo pThreshold 0;
  2956    string Lo opThreshol dEnv0;
  2957    string Lo opThreshol dName0;
  2958    LoopThres holdName0  = "APT_TRA NSFORM_LOO P_WARNING_ THRESHOLD" ;
  2959    LoopThres holdEnv0 =  get_envir onment(Loo pThreshold Name0);
  2960    if ((Loop ThresholdE nv0 == "")  || (LoopT hresholdEn v0 == "-1" )) {
  2961     LoopThre shold0 = 1 0000;
  2962    } else {
  2963     LoopThre shold0 = L oopThresho ldEnv0;
  2964    }
  2965  
  2966    // declar e our inte rmediate v ariables f or this se ction (1)
  2967    string In terVar0_0;
  2968    string In terVar0_3;
  2969    string In terVar0_4;
  2970  
  2971    // initia lise const ant values  which req uire conve rsion
  2972    InterVar0 _0 = "*";
  2973    InterVar0 _3 = ":";
  2974    // Stage  variable d eclaration  and initi alisation
  2975    int32 Sta geVar0_svD Count;
  2976    StageVar0 _svDCount  = 0;
  2977   }
  2978  
  2979   mainloop {
  2980    Iteration 0 = 1;
  2981  
  2982    // declar e our inte rmediate v ariables f or this se ction (2)
  2983    int32 Int erVar0_1;
  2984    uint64 In terVar0_2;
  2985  
  2986    // evalua te the sta ge variabl es first
  2987    StageVar0 _svDCount  = dcount_s ubstring(B usRls.cond ition_code s_all , In terVar0_0) ;
  2988  
  2989    // Loop v ariable de claration  and initia lisation
  2990    string Lo opVar0_tmp Codes;
  2991    LoopVar0_ tmpCodes =  "";
  2992  
  2993    InterVar0 _2 = Stage Var0_svDCo unt;
  2994  
  2995    while ((I teration0  <= InterVa r0_2)) {
  2996  
  2997     // evalu ate the lo op variabl es
  2998     InterVar 0_1 = Iter ation0;
  2999     LoopVar0 _tmpCodes  = substrin g_by_delim iter(BusRl s.conditio n_codes_al l , InterV ar0_0 , In terVar0_1  , 1);
  3000  
  3001  
  3002     // initi alise the  rejected r ow variabl e
  3003     RowRejec ted0 = 1;
  3004  
  3005     // evalu ate column s (no cons traints) f or link: g enRecsByCo de
  3006     genRecsB yCode.cond ition_qual if = subst ring_by_de limiter(Lo opVar0_tmp Codes , In terVar0_3  , 1 , 1);
  3007     genRecsB yCode.cond ition_code  = substri ng_by_deli miter(Loop Var0_tmpCo des , Inte rVar0_3 ,  2 , 1);
  3008     writerec ord 0;
  3009     RowRejec ted0 = 0;
  3010  
  3011     // Check  for hitti ng the war ning thres hold
  3012     if (Loop Threshold0  > 0) {
  3013      if ((It eration0 %  LoopThres hold0) ==  0) {
  3014       InterV ar0_4 = It eration0;
  3015       print_ warning("T he warning  threshold  for the n umber of o utput row  iterations  processed  per singl e input ro w has been  reached.  Number of  output row  iteration s: " + Int erVar0_4 +  ". This i s just a w arning and  the job w ill contin ue.");
  3016      }
  3017     }
  3018     Iteratio n0 = Itera tion0 + 1;
  3019     // now d o any work  to re-eva luate the  while cond ition
  3020    InterVar0 _2 = Stage Var0_svDCo unt;
  3021  
  3022    }
  3023   }
  3024  
  3025   finish {
  3026   }
  3027  
  3028   =+=+=+=
  3029         END  DSSUBRECOR D
  3030         BEGI N DSSUBREC ORD
  3031            O wner "APT"
  3032            N ame "TrxGe nCache"
  3033            V alue "1"
  3034         END  DSSUBRECOR D
  3035         BEGI N DSSUBREC ORD
  3036            O wner "APT"
  3037            N ame "TrxCl assName"
  3038            V alue "V138 S3_EDI837P _CLAIM_CON DITION_COD E_prep_gen RecsByCode "
  3039         END  DSSUBRECOR D
  3040         BEGI N DSSUBREC ORD
  3041            O wner "APT"
  3042            N ame "TrxGe nWarnings"
  3043            V alue =+=+= +=
  3044   genRecsByC ode
  3045      WARNING : Error in  loop vari able deriv ation for  variable t mpCodes. 
  3046          - p otential d ata or pre cision los s converti ng from ui nt64 to in t32
  3047      WARNING : Error in  loop cond ition expr ession.
  3048          - p otential d ata or pre cision los s converti ng from in t32 to uin t64
  3049  
  3050   =+=+=+=
  3051         END  DSSUBRECOR D
  3052         Vali dationStat us "0"
  3053         Stag eType "CTr ansformerS tage"
  3054         Bloc kSize "0"
  3055         SKKe ySourceTyp e "file"
  3056         Stag eVars "CSt ageVar"
  3057         BEGI N DSSUBREC ORD
  3058            N ame "svDCo unt"
  3059            E xpression  "DCOUNT(Bu sRls.condi tion_codes _all , \"* \")"
  3060            I nitialValu e "0"
  3061            S qlType "4"
  3062            P arsedExpre ssion "DCO UNT(BusRls .condition _codes_all , \"*\")"
  3063            S ourceColum n "BusRls. condition_ codes_all"
  3064            P recision " 10"
  3065            C olScale "0 "
  3066            E xtendedPre cision "0"
  3067         END  DSSUBRECOR D
  3068         Loop Condition  "CStageVar "
  3069         BEGI N DSSUBREC ORD
  3070            N ame "$Loop Condition"
  3071            E xpression  "@ITERATIO N <= svDCo unt"
  3072            S qlType "3"
  3073            P arsedExpre ssion "@IT ERATION <=  svDCount"
  3074            S tageVars " svDCount"
  3075            P recision " 18"
  3076            C olScale "4 "
  3077            E xtendedPre cision "0"
  3078         END  DSSUBRECOR D
  3079         Loop Vars "CSta geVar"
  3080         BEGI N DSSUBREC ORD
  3081            N ame "tmpCo des"
  3082            E xpression  "FIELD(Bus Rls.condit ion_codes_ all, \"*\" , @ITERATI ON, 1)"
  3083            S qlType "12 "
  3084            P arsedExpre ssion "FIE LD(BusRls. condition_ codes_all,  \"*\", @I TERATION,  1)"
  3085            S ourceColum n "BusRls. condition_ codes_all"
  3086            P recision " 50"
  3087            C olScale "0 "
  3088            E xtendedPre cision "0"
  3089         END  DSSUBRECOR D
  3090         Stag eVarsMinim ised "0"
  3091         Loop VarsMaximi sed "1"
  3092         MaxL oopIterati ons "0"
  3093      END DSR ECORD
  3094      BEGIN D SRECORD
  3095         Iden tifier "V1 38S3P1"
  3096         OLET ype "CTrxI nput"
  3097         Read only "0"
  3098         Name  "BusRls"
  3099         Part ner "V138S 4|V138S4P2 "
  3100         Link Type "1"
  3101         Meta Bag "CMeta Property"
  3102         BEGI N DSSUBREC ORD
  3103            O wner "APT"
  3104            N ame "RTCol umnProp"
  3105            V alue "0"
  3106         END  DSSUBRECOR D
  3107         BEGI N DSSUBREC ORD
  3108            O wner "APT"
  3109            N ame "Schem a"
  3110            V alue =+=+= +=
  3111   record
  3112   (
  3113     claim_id :nullable  string[max =20];
  3114     conditio n_codes_al l:nullable  string[ma x=200];
  3115     source_e ntity:null able strin g[max=50];
  3116     row_id:n ullable st ring[max=2 0];
  3117     claim_ke y_pr:nulla ble int32;
  3118     etl_batc h_id:nulla ble string [max=20];
  3119     svHL22:n ullable st ring[max=2 0];
  3120   )
  3121   =+=+=+=
  3122         END  DSSUBRECOR D
  3123         Mult iRow "0"
  3124         Link Minimised  "0"
  3125      END DSR ECORD
  3126      BEGIN D SRECORD
  3127         Iden tifier "V1 38S3P2"
  3128         OLET ype "CTrxO utput"
  3129         Read only "0"
  3130         Name  "genRecsB yCode"
  3131         Part ner "V138S 1|V138S1P1 "
  3132         Reje ct "0"
  3133         Erro rPin "0"
  3134         RowL imit "0"
  3135         Colu mns "COutp utColumn"
  3136         BEGI N DSSUBREC ORD
  3137            N ame "claim _id"
  3138            S qlType "12 "
  3139            P recision " 20"
  3140            S cale "0"
  3141            N ullable "1 "
  3142            K eyPosition  "0"
  3143            D isplaySize  "0"
  3144            D erivation  "BusRls.cl aim_id"
  3145            G roup "0"
  3146            P arsedDeriv ation "Bus Rls.claim_ id"
  3147            S ourceColum n "BusRls. claim_id"
  3148            S ortKey "0"
  3149            S ortType "0 "
  3150            A llowCRLF " 0"
  3151            L evelNo "0"
  3152            O ccurs "0"
  3153            P adNulls "0 "
  3154            S ignOption  "0"
  3155            S ortingOrde r "0"
  3156            A rrayHandli ng "0"
  3157            S yncIndicat or "0"
  3158            P adChar ""
  3159            E xtendedPre cision "0"
  3160            T aggedSubre c "0"
  3161            O ccursVaryi ng "0"
  3162            P KeyIsCasel ess "0"
  3163            S CDPurpose  "0"
  3164         END  DSSUBRECOR D
  3165         BEGI N DSSUBREC ORD
  3166            N ame "condi tion_quali f"
  3167            D escription  =+=+=+=
  3168   <none>
  3169   Searchable ? N 
  3170   =+=+=+=
  3171            S qlType "12 "
  3172            P recision " 10"
  3173            S cale "0"
  3174            N ullable "1 "
  3175            K eyPosition  "0"
  3176            D isplaySize  "15"
  3177            D erivation  "Field(tmp Codes, \": \", 1,1)"
  3178            G roup "0"
  3179            P arsedDeriv ation "Fie ld(tmpCode s, \":\",  1, 1)"
  3180            S ortKey "0"
  3181            S ortType "0 "
  3182            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  3183            A llowCRLF " 0"
  3184            L evelNo "0"
  3185            O ccurs "0"
  3186            P adNulls "0 "
  3187            S ignOption  "0"
  3188            S ortingOrde r "0"
  3189            S tageVars " \(1B)tmpCo des"
  3190            A rrayHandli ng "0"
  3191            S yncIndicat or "0"
  3192            P adChar ""
  3193            C olumnRefer ence "oral _cavity_de signation_ code"
  3194            A PTFieldPro p "null_fi eld=''"
  3195            E xtendedPre cision "0"
  3196            T aggedSubre c "0"
  3197            O ccursVaryi ng "0"
  3198            P KeyIsCasel ess "0"
  3199            S CDPurpose  "0"
  3200         END  DSSUBRECOR D
  3201         BEGI N DSSUBREC ORD
  3202            N ame "condi tion_code"
  3203            D escription  =+=+=+=
  3204   <none>
  3205   Searchable ? N 
  3206   =+=+=+=
  3207            S qlType "12 "
  3208            P recision " 30"
  3209            S cale "0"
  3210            N ullable "1 "
  3211            K eyPosition  "0"
  3212            D isplaySize  "15"
  3213            D erivation  "Field(tmp Codes, \": \", 2,1)"
  3214            G roup "0"
  3215            P arsedDeriv ation "Fie ld(tmpCode s, \":\",  2, 1)"
  3216            S ortKey "0"
  3217            S ortType "0 "
  3218            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  3219            A llowCRLF " 0"
  3220            L evelNo "0"
  3221            O ccurs "0"
  3222            P adNulls "0 "
  3223            S ignOption  "0"
  3224            S ortingOrde r "0"
  3225            S tageVars " \(1B)tmpCo des"
  3226            A rrayHandli ng "0"
  3227            S yncIndicat or "0"
  3228            P adChar ""
  3229            C olumnRefer ence "oral _cavity_de signation_ code"
  3230            A PTFieldPro p "null_fi eld=''"
  3231            E xtendedPre cision "0"
  3232            T aggedSubre c "0"
  3233            O ccursVaryi ng "0"
  3234            P KeyIsCasel ess "0"
  3235            S CDPurpose  "0"
  3236         END  DSSUBRECOR D
  3237         BEGI N DSSUBREC ORD
  3238            N ame "sourc e_entity"
  3239            S qlType "12 "
  3240            P recision " 50"
  3241            S cale "0"
  3242            N ullable "1 "
  3243            K eyPosition  "0"
  3244            D isplaySize  "0"
  3245            D erivation  "BusRls.so urce_entit y"
  3246            G roup "0"
  3247            P arsedDeriv ation "Bus Rls.source _entity"
  3248            S ourceColum n "BusRls. source_ent ity"
  3249            S ortKey "0"
  3250            S ortType "0 "
  3251            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  3252            A llowCRLF " 0"
  3253            L evelNo "0"
  3254            O ccurs "0"
  3255            P adNulls "0 "
  3256            S ignOption  "0"
  3257            S ortingOrde r "0"
  3258            A rrayHandli ng "0"
  3259            S yncIndicat or "0"
  3260            P adChar ""
  3261            C olumnRefer ence "sour ce_entity"
  3262            E xtendedPre cision "0"
  3263            T aggedSubre c "0"
  3264            O ccursVaryi ng "0"
  3265            P KeyIsCasel ess "0"
  3266            S CDPurpose  "0"
  3267         END  DSSUBRECOR D
  3268         BEGI N DSSUBREC ORD
  3269            N ame "row_i d"
  3270            S qlType "12 "
  3271            P recision " 20"
  3272            S cale "0"
  3273            N ullable "1 "
  3274            K eyPosition  "0"
  3275            D isplaySize  "0"
  3276            D erivation  "BusRls.ro w_id"
  3277            G roup "0"
  3278            P arsedDeriv ation "Bus Rls.row_id "
  3279            S ourceColum n "BusRls. row_id"
  3280            S ortKey "0"
  3281            S ortType "0 "
  3282            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  3283            A llowCRLF " 0"
  3284            L evelNo "0"
  3285            N ativeType  "varchar"
  3286            O ccurs "0"
  3287            P adNulls "0 "
  3288            S ignOption  "0"
  3289            S ortingOrde r "0"
  3290            A rrayHandli ng "0"
  3291            S yncIndicat or "0"
  3292            P adChar ""
  3293            C olumnRefer ence "row_ id"
  3294            E xtendedPre cision "0"
  3295            T aggedSubre c "0"
  3296            O ccursVaryi ng "0"
  3297            P KeyIsCasel ess "0"
  3298            S CDPurpose  "0"
  3299         END  DSSUBRECOR D
  3300         BEGI N DSSUBREC ORD
  3301            N ame "etl_b atch_id"
  3302            S qlType "12 "
  3303            P recision " 20"
  3304            S cale "0"
  3305            N ullable "1 "
  3306            K eyPosition  "0"
  3307            D isplaySize  "0"
  3308            D erivation  "BusRls.et l_batch_id "
  3309            G roup "0"
  3310            P arsedDeriv ation "Bus Rls.etl_ba tch_id"
  3311            S ourceColum n "BusRls. etl_batch_ id"
  3312            S ortKey "0"
  3313            S ortType "0 "
  3314            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  3315            A llowCRLF " 0"
  3316            L evelNo "0"
  3317            N ativeType  "varchar"
  3318            O ccurs "0"
  3319            P adNulls "0 "
  3320            S ignOption  "0"
  3321            S ortingOrde r "0"
  3322            A rrayHandli ng "0"
  3323            S yncIndicat or "0"
  3324            P adChar ""
  3325            C olumnRefer ence "etl_ batch_id"
  3326            E xtendedPre cision "0"
  3327            T aggedSubre c "0"
  3328            O ccursVaryi ng "0"
  3329            P KeyIsCasel ess "0"
  3330            S CDPurpose  "0"
  3331         END  DSSUBRECOR D
  3332         BEGI N DSSUBREC ORD
  3333            N ame "svHL2 2"
  3334            S qlType "12 "
  3335            P recision " 20"
  3336            S cale "0"
  3337            N ullable "1 "
  3338            K eyPosition  "0"
  3339            D isplaySize  "0"
  3340            D erivation  "BusRls.sv HL22"
  3341            G roup "0"
  3342            P arsedDeriv ation "Bus Rls.svHL22 "
  3343            S ourceColum n "BusRls. svHL22"
  3344            S ortKey "0"
  3345            S ortType "0 "
  3346            A llowCRLF " 0"
  3347            L evelNo "0"
  3348            O ccurs "0"
  3349            P adNulls "0 "
  3350            S ignOption  "0"
  3351            S ortingOrde r "0"
  3352            A rrayHandli ng "0"
  3353            S yncIndicat or "0"
  3354            P adChar ""
  3355            E xtendedPre cision "0"
  3356            T aggedSubre c "0"
  3357            O ccursVaryi ng "0"
  3358            P KeyIsCasel ess "0"
  3359            S CDPurpose  "0"
  3360         END  DSSUBRECOR D
  3361         Meta Bag "CMeta Property"
  3362         BEGI N DSSUBREC ORD
  3363            O wner "APT"
  3364            N ame "DiskW riteInc"
  3365            V alue "1048 576"
  3366         END  DSSUBRECOR D
  3367         BEGI N DSSUBREC ORD
  3368            O wner "APT"
  3369            N ame "BufFr eeRun"
  3370            V alue "50"
  3371         END  DSSUBRECOR D
  3372         BEGI N DSSUBREC ORD
  3373            O wner "APT"
  3374            N ame "MaxMe mBufSize"
  3375            V alue "3145 728"
  3376         END  DSSUBRECOR D
  3377         BEGI N DSSUBREC ORD
  3378            O wner "APT"
  3379            N ame "Queue UpperSize"
  3380            V alue "0"
  3381         END  DSSUBRECOR D
  3382         BEGI N DSSUBREC ORD
  3383            O wner "APT"
  3384            N ame "Schem a"
  3385            V alue =+=+= +=
  3386   record
  3387   (
  3388     claim_id :nullable  string[max =20];
  3389     conditio n_qualif:n ullable st ring[max=1 0];
  3390     conditio n_code:nul lable stri ng[max=30] ;
  3391     source_e ntity:null able strin g[max=50];
  3392     row_id:n ullable st ring[max=2 0];
  3393     etl_batc h_id:nulla ble string [max=20];
  3394     svHL22:n ullable st ring[max=2 0];
  3395   )
  3396   =+=+=+=
  3397         END  DSSUBRECOR D
  3398         BEGI N DSSUBREC ORD
  3399            O wner "APT"
  3400            N ame "SortO rderPreser ved"
  3401            V alue "0"
  3402         END  DSSUBRECOR D
  3403         Left TextPos "5 56"
  3404         TopT extPos "21 0"
  3405         Link Minimised  "0"
  3406      END DSR ECORD
  3407      BEGIN D SRECORD
  3408         Iden tifier "V1 38S4"
  3409         OLET ype "CTran sformerSta ge"
  3410         Read only "0"
  3411         Name  "Xfm_BusR ules"
  3412         Next ID "5"
  3413         Inpu tPins "V13 8S4P3"
  3414         Outp utPins "V1 38S4P2"
  3415         Meta Bag "CMeta Property"
  3416         BEGI N DSSUBREC ORD
  3417            O wner "APT"
  3418            N ame "TrxGe nCode"
  3419            V alue =+=+= +=
  3420   //
  3421   // Generat ed file to  implement  the V138S 4_EDI837P_ CLAIM_COND ITION_CODE _prep_Xfm_ BusRules t ransform o perator.
  3422   //
  3423  
  3424   // define  our input/ output lin k names
  3425   inputname  0 XfrmSrc;
  3426   outputname  0 BusRls;
  3427  
  3428   global {
  3429    // Job pa rameter de claration
  3430    string[]  BatchID;
  3431   }
  3432  
  3433   initialize  {
  3434    // define  our contr ol variabl es
  3435    int8 RowR ejected0;
  3436    int8 Null SetVar0;
  3437  
  3438    // declar e our inte rmediate v ariables f or this se ction (1)
  3439    string In terVar0_0;
  3440    string In terVar0_1;
  3441    string In terVar0_2;
  3442    string In terVar0_3;
  3443    string In terVar0_4;
  3444    string In terVar0_5;
  3445    string In terVar0_6;
  3446    string In terVar0_7;
  3447    string In terVar0_8;
  3448    string In terVar0_9;
  3449    string In terVar0_13 ;
  3450    string In terVar0_14 ;
  3451    string In terVar0_15 ;
  3452    string In terVar0_16 ;
  3453    string In terVar0_17 ;
  3454    string In terVar0_18 ;
  3455  
  3456    // initia lise const ant values  which req uire conve rsion
  3457    InterVar0 _0 = "ST";
  3458    InterVar0 _1 = "CLM" ;
  3459    InterVar0 _2 = "";
  3460    InterVar0 _3 = "2300 ";
  3461    InterVar0 _4 = "REF" ;
  3462    InterVar0 _5 = "REF* D9";
  3463    InterVar0 _6 = "*";
  3464    InterVar0 _7 = "HI";
  3465    InterVar0 _8 = ":";
  3466    InterVar0 _9 = "HI*B G";
  3467    InterVar0 _13 = "837 P";
  3468    InterVar0 _14 = "REF *F5";
  3469    InterVar0 _15 = "837 PX";
  3470    InterVar0 _16 = "200 0B";
  3471    InterVar0 _17 = "HL" ;
  3472    InterVar0 _18 = "22" ;
  3473    // Stage  variable d eclaration  and initi alisation
  3474    string St ageVar0_sv ClaimId;
  3475    StageVar0 _svClaimId  = "";
  3476    string St ageVar0_sv ConditionC odeLen;
  3477    StageVar0 _svConditi onCodeLen  = "";
  3478    string St ageVar0_sv ConditionC odesAll;
  3479    StageVar0 _svConditi onCodesAll  = "";
  3480    string St ageVar0_sv SourceEnti ty;
  3481    StageVar0 _svSourceE ntity = "" ;
  3482    string St ageVar0_sv HL22;
  3483    StageVar0 _svHL22 =  "";
  3484   }
  3485  
  3486   mainloop {
  3487  
  3488    // declar e our inte rmediate v ariables f or this se ction (2)
  3489    string In terVar0_10 ;
  3490    dfloat In terVar0_11 ;
  3491    int32 Int erVar0_12;
  3492  
  3493    // evalua te the sta ge variabl es first
  3494    if (((Xfr mSrc.SEG = = InterVar 0_0) || (X frmSrc.SEG  == InterV ar0_1))) {
  3495     StageVar 0_svClaimI d = InterV ar0_2;
  3496    } else {
  3497     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_4))  && (XfrmS rc.SEG_CD  == InterVa r0_5))) {
  3498      StageVa r0_svClaim Id = subst ring_by_de limiter(Xf rmSrc.EDI8 37P , Inte rVar0_6 ,  3 , 1);
  3499     } else {
  3500      StageVa r0_svClaim Id = Stage Var0_svCla imId;
  3501     }
  3502     //;
  3503    }
  3504    //;
  3505    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  3506     StageVar 0_svCondit ionCodeLen  = InterVa r0_2;
  3507    } else {
  3508     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_7))  && (subst ring_by_de limiter(Xf rmSrc.SEG_ CD , Inter Var0_8 , 1  , 1) == I nterVar0_9 ))) {
  3509      InterVa r0_10 = st ring_lengt h(XfrmSrc. EDI837P);
  3510      StageVa r0_svCondi tionCodeLe n = InterV ar0_10;
  3511     } else {
  3512      StageVa r0_svCondi tionCodeLe n = StageV ar0_svCond itionCodeL en;
  3513     }
  3514     //;
  3515    }
  3516    //;
  3517    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  3518     StageVar 0_svCondit ionCodesAl l = InterV ar0_2;
  3519    } else {
  3520     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_7))  && (subst ring_by_de limiter(Xf rmSrc.SEG_ CD , Inter Var0_8 , 1  , 1) == I nterVar0_9 ))) {
  3521      InterVa r0_11 = St ageVar0_sv ConditionC odeLen;
  3522      InterVa r0_12 = In terVar0_11  - 3;
  3523      StageVa r0_svCondi tionCodesA ll = subst ring_1(Xfr mSrc.EDI83 7P , 4 , I nterVar0_1 2);
  3524     } else {
  3525      StageVa r0_svCondi tionCodesA ll = Stage Var0_svCon ditionCode sAll;
  3526     }
  3527     //;
  3528    }
  3529    //;
  3530    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  3531     StageVar 0_svSource Entity = I nterVar0_1 3;
  3532    } else {
  3533     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_4))  && (XfrmS rc.SEG_CD  == InterVa r0_14))) {
  3534      StageVa r0_svSourc eEntity =  InterVar0_ 15;
  3535     } else {
  3536      StageVa r0_svSourc eEntity =  StageVar0_ svSourceEn tity;
  3537     }
  3538     //;
  3539    }
  3540    //;
  3541    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  3542     StageVar 0_svHL22 =  InterVar0 _2;
  3543    } else {
  3544     if ((((X frmSrc.LOO P == Inter Var0_16) & & (XfrmSrc .SEG == In terVar0_17 )) && (sub string_by_ delimiter( XfrmSrc.ED I837P , In terVar0_6  , 4 , 1) = = InterVar 0_18))) {
  3545      StageVa r0_svHL22  = XfrmSrc. EDI837P;
  3546     } else {
  3547      StageVa r0_svHL22  = StageVar 0_svHL22;
  3548     }
  3549     //;
  3550    }
  3551    //;
  3552  
  3553    // initia lise the r ejected ro w variable
  3554    RowReject ed0 = 1;
  3555  
  3556    // evalua te constra int and co lumns for  link: BusR ls
  3557    if (((Sta geVar0_svC laimId !=  InterVar0_ 2) && (Sta geVar0_svC onditionCo desAll !=  InterVar0_ 2)))
  3558    {
  3559     BusRls.c laim_id =  StageVar0_ svClaimId;
  3560     BusRls.c ondition_c odes_all =  StageVar0 _svConditi onCodesAll ;
  3561     BusRls.s ource_enti ty = Stage Var0_svSou rceEntity;
  3562     BusRls.r ow_id = Xf rmSrc.ST_N UM;
  3563     BusRls.c laim_key_p r = set_nu ll();
  3564     BusRls.e tl_batch_i d = BatchI D;
  3565     BusRls.s vHL22 = St ageVar0_sv HL22;
  3566     writerec ord 0;
  3567     RowRejec ted0 = 0;
  3568    }
  3569   }
  3570  
  3571   finish {
  3572   }
  3573  
  3574   =+=+=+=
  3575         END  DSSUBRECOR D
  3576         BEGI N DSSUBREC ORD
  3577            O wner "APT"
  3578            N ame "TrxGe nCache"
  3579            V alue "0"
  3580         END  DSSUBRECOR D
  3581         BEGI N DSSUBREC ORD
  3582            O wner "APT"
  3583            N ame "TrxCl assName"
  3584            V alue "V138 S4_EDI837P _CLAIM_CON DITION_COD E_prep_Xfm _BusRules"
  3585         END  DSSUBRECOR D
  3586         BEGI N DSSUBREC ORD
  3587            O wner "APT"
  3588            N ame "JobPa rameterNam es"
  3589            V alue "Batc hID"
  3590         END  DSSUBRECOR D
  3591         BEGI N DSSUBREC ORD
  3592            O wner "APT"
  3593            N ame "TrxGe nWarnings"
  3594            V alue =+=+= +=
  3595   Xfm_BusRul es
  3596      WARNING : Error in  Stage Var iable deri vation exp ression fo r variable  svConditi onCodesAll
  3597          - p otential d ata or pre cision los s in arith metic expr ession whe n converti ng numbers  from stri ng
  3598  
  3599   =+=+=+=
  3600         END  DSSUBRECOR D
  3601         Vali dationStat us "0"
  3602         Stag eType "CTr ansformerS tage"
  3603         Bloc kSize "0"
  3604         SKKe ySourceTyp e "file"
  3605         Stag eVars "CSt ageVar"
  3606         BEGI N DSSUBREC ORD
  3607            N ame "svCla imId"
  3608            E xpression  "If XfrmSr c.SEG='ST'  or  XfrmS rc.SEG='CL M' Then ''  Else If X frmSrc.LOO P='2300' a nd XfrmSrc .SEG='REF'  and XfrmS rc.SEG_CD  = 'REF*D9'  Then FIEL D(XfrmSrc. EDI837P, \ "*\", 3, 1 )  Else sv ClaimId"
  3609            S qlType "12 "
  3610            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  or XfrmSrc .SEG = 'CL M' Then ''  Else  If  XfrmSrc.LO OP = '2300 ' and Xfrm Src.SEG =  'REF' and  XfrmSrc.SE G_CD = 'RE F*D9' Then  FIELD(Xfr mSrc.EDI83 7P, \"*\",  3, 1) Els e svClaimI d"
  3611            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD;XfrmSrc .EDI837P"
  3612            S tageVars " svClaimId"
  3613            P recision " 20"
  3614            C olScale "0 "
  3615            E xtendedPre cision "0"
  3616         END  DSSUBRECOR D
  3617         BEGI N DSSUBREC ORD
  3618            N ame "svCon ditionCode Len"
  3619            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'    and FIELD( XfrmSrc.SE G_CD,\":\" ,1,1) = 'H I*BG' Then  Len(XfrmS rc.EDI837P ) Else svC onditionCo deLen"
  3620            S qlType "12 "
  3621            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' and FIEL D(XfrmSrc. SEG_CD, \" :\", 1, 1)  = 'HI*BG'  Then Len( XfrmSrc.ED I837P) Els e svCondit ionCodeLen "
  3622            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD;XfrmSrc .EDI837P"
  3623            S tageVars " svConditio nCodeLen"
  3624            P recision " 200"
  3625            C olScale "0 "
  3626            E xtendedPre cision "0"
  3627         END  DSSUBRECOR D
  3628         BEGI N DSSUBREC ORD
  3629            N ame "svCon ditionCode sAll"
  3630            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'  a nd FIELD(X frmSrc.SEG _CD,\":\", 1,1) = 'HI *BG' Then  XfrmSrc.ED I837P[4, s vCondition CodeLen -  3] Else sv ConditionC odesAll"
  3631            S qlType "12 "
  3632            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' and FIEL D(XfrmSrc. SEG_CD, \" :\", 1, 1)  = 'HI*BG'  Then Xfrm Src.EDI837 P[4, svCon ditionCode Len - 3] E lse svCond itionCodes All"
  3633            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD;XfrmSrc .EDI837P"
  3634            S tageVars " svConditio nCodeLen;s vCondition CodesAll"
  3635            P recision " 200"
  3636            C olScale "0 "
  3637            E xtendedPre cision "0"
  3638         END  DSSUBRECOR D
  3639         BEGI N DSSUBREC ORD
  3640            N ame "svSou rceEntity"
  3641            E xpression  "If XfrmSr c.SEG='ST'  Then '837 P' Else If  XfrmSrc.L OOP='2300'  and XfrmS rc.SEG='RE F'  and Xf rmSrc.SEG_ CD = 'REF* F5'  Then  '837PX' El se svSourc eEntity"
  3642            S qlType "12 "
  3643            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '837P ' Else  If  XfrmSrc.L OOP = '230 0' and Xfr mSrc.SEG =  'REF' and  XfrmSrc.S EG_CD = 'R EF*F5' The n '837PX'  Else svSou rceEntity"
  3644            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD"
  3645            S tageVars " svSourceEn tity"
  3646            P recision " 50"
  3647            C olScale "0 "
  3648            E xtendedPre cision "0"
  3649         END  DSSUBRECOR D
  3650         BEGI N DSSUBREC ORD
  3651            N ame "svHL2 2"
  3652            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2000B' an d XfrmSrc. SEG='HL' a nd  FIELD( XfrmSrc.ED I837P, \"* \", 4, 1)= '22' Then  XfrmSrc.ED I837P  Els e svHL22"
  3653            S qlType "12 "
  3654            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2000B'  and XfrmSr c.SEG = 'H L' and FIE LD(XfrmSrc .EDI837P,  \"*\", 4,  1) = '22'  Then XfrmS rc.EDI837P  Else svHL 22"
  3655            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  3656            S tageVars " svHL22"
  3657            P recision " 22"
  3658            C olScale "0 "
  3659            E xtendedPre cision "0"
  3660         END  DSSUBRECOR D
  3661         Stag eVarsMinim ised "0"
  3662         Loop VarsMaximi sed "0"
  3663         MaxL oopIterati ons "0"
  3664      END DSR ECORD
  3665      BEGIN D SRECORD
  3666         Iden tifier "V1 38S4P2"
  3667         OLET ype "CTrxO utput"
  3668         Read only "0"
  3669         Name  "BusRls"
  3670         Part ner "V138S 3|V138S3P1 "
  3671         Cons traint "sv ClaimId <>  \"\" and  svConditio nCodesAll  <> \"\""
  3672         Reje ct "0"
  3673         Erro rPin "0"
  3674         RowL imit "0"
  3675         Pars edConstrai nt "svClai mId <> \"\ " and svCo nditionCod esAll <> \ "\""
  3676         Colu mns "COutp utColumn"
  3677         BEGI N DSSUBREC ORD
  3678            N ame "claim _id"
  3679            S qlType "12 "
  3680            P recision " 20"
  3681            S cale "0"
  3682            N ullable "1 "
  3683            K eyPosition  "0"
  3684            D isplaySize  "0"
  3685            D erivation  "svClaimId "
  3686            G roup "0"
  3687            P arsedDeriv ation "svC laimId"
  3688            S ortKey "0"
  3689            S ortType "0 "
  3690            A llowCRLF " 0"
  3691            L evelNo "0"
  3692            O ccurs "0"
  3693            P adNulls "0 "
  3694            S ignOption  "0"
  3695            S ortingOrde r "0"
  3696            S tageVars " svClaimId"
  3697            A rrayHandli ng "0"
  3698            S yncIndicat or "0"
  3699            P adChar ""
  3700            E xtendedPre cision "0"
  3701            T aggedSubre c "0"
  3702            O ccursVaryi ng "0"
  3703            P KeyIsCasel ess "0"
  3704            S CDPurpose  "0"
  3705         END  DSSUBRECOR D
  3706         BEGI N DSSUBREC ORD
  3707            N ame "condi tion_codes _all"
  3708            D escription  =+=+=+=
  3709   <none>
  3710   Searchable ? N 
  3711   =+=+=+=
  3712            S qlType "12 "
  3713            P recision " 200"
  3714            S cale "0"
  3715            N ullable "1 "
  3716            K eyPosition  "0"
  3717            D isplaySize  "11"
  3718            D erivation  "svConditi onCodesAll "
  3719            G roup "0"
  3720            P arsedDeriv ation "svC onditionCo desAll"
  3721            S ortKey "0"
  3722            S ortType "0 "
  3723            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  3724            A llowCRLF " 0"
  3725            L evelNo "0"
  3726            O ccurs "0"
  3727            P adNulls "0 "
  3728            S ignOption  "0"
  3729            S ortingOrde r "0"
  3730            S tageVars " svConditio nCodesAll"
  3731            A rrayHandli ng "0"
  3732            S yncIndicat or "0"
  3733            P adChar ""
  3734            C olumnRefer ence "DIAG NOSIS_key"
  3735            A PTFieldPro p "quote=n one, null_ field=''"
  3736            E xtendedPre cision "0"
  3737            T aggedSubre c "0"
  3738            O ccursVaryi ng "0"
  3739            P KeyIsCasel ess "0"
  3740            S CDPurpose  "0"
  3741         END  DSSUBRECOR D
  3742         BEGI N DSSUBREC ORD
  3743            N ame "sourc e_entity"
  3744            D escription  =+=+=+=
  3745   <none>
  3746   Searchable ? N 
  3747   =+=+=+=
  3748            S qlType "12 "
  3749            P recision " 50"
  3750            S cale "0"
  3751            N ullable "1 "
  3752            K eyPosition  "0"
  3753            D isplaySize  "50"
  3754            D erivation  "svSourceE ntity"
  3755            G roup "0"
  3756            P arsedDeriv ation "svS ourceEntit y"
  3757            S ortKey "0"
  3758            S ortType "0 "
  3759            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  3760            A llowCRLF " 0"
  3761            L evelNo "0"
  3762            O ccurs "0"
  3763            P adNulls "0 "
  3764            S ignOption  "0"
  3765            S ortingOrde r "0"
  3766            S tageVars " svSourceEn tity"
  3767            A rrayHandli ng "0"
  3768            S yncIndicat or "0"
  3769            P adChar ""
  3770            C olumnRefer ence "sour ce_entity"
  3771            A PTFieldPro p "null_fi eld=''"
  3772            E xtendedPre cision "0"
  3773            T aggedSubre c "0"
  3774            O ccursVaryi ng "0"
  3775            P KeyIsCasel ess "0"
  3776            S CDPurpose  "0"
  3777         END  DSSUBRECOR D
  3778         BEGI N DSSUBREC ORD
  3779            N ame "row_i d"
  3780            D escription  =+=+=+=
  3781   <none>
  3782   Searchable ? N 
  3783   =+=+=+=
  3784            S qlType "12 "
  3785            P recision " 20"
  3786            S cale "0"
  3787            N ullable "1 "
  3788            K eyPosition  "0"
  3789            D isplaySize  "20"
  3790            D erivation  "XfrmSrc.S T_NUM"
  3791            G roup "0"
  3792            P arsedDeriv ation "Xfr mSrc.ST_NU M"
  3793            S ourceColum n "XfrmSrc .ST_NUM"
  3794            S ortKey "0"
  3795            S ortType "0 "
  3796            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  3797            A llowCRLF " 0"
  3798            L evelNo "0"
  3799            O ccurs "0"
  3800            P adNulls "0 "
  3801            S ignOption  "0"
  3802            S ortingOrde r "0"
  3803            A rrayHandli ng "0"
  3804            S yncIndicat or "0"
  3805            P adChar ""
  3806            C olumnRefer ence "row_ id"
  3807            A PTFieldPro p "null_fi eld=''"
  3808            E xtendedPre cision "0"
  3809            T aggedSubre c "0"
  3810            O ccursVaryi ng "0"
  3811            P KeyIsCasel ess "0"
  3812            S CDPurpose  "0"
  3813         END  DSSUBRECOR D
  3814         BEGI N DSSUBREC ORD
  3815            N ame "claim _key_pr"
  3816            D escription  =+=+=+=
  3817   <none>
  3818   Searchable ? N 
  3819   =+=+=+=
  3820            S qlType "4"
  3821            P recision " 10"
  3822            S cale "0"
  3823            N ullable "1 "
  3824            K eyPosition  "0"
  3825            D isplaySize  "11"
  3826            D erivation  "SetNull() "
  3827            G roup "0"
  3828            P arsedDeriv ation "Set Null()"
  3829            S ortKey "0"
  3830            S ortType "0 "
  3831            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  3832            A llowCRLF " 0"
  3833            L evelNo "0"
  3834            O ccurs "0"
  3835            P adNulls "0 "
  3836            S ignOption  "0"
  3837            S ortingOrde r "0"
  3838            A rrayHandli ng "0"
  3839            S yncIndicat or "0"
  3840            P adChar ""
  3841            C olumnRefer ence "clai m_key_pr"
  3842            A PTFieldPro p "quote=n one, null_ field=''"
  3843            E xtendedPre cision "0"
  3844            T aggedSubre c "0"
  3845            O ccursVaryi ng "0"
  3846            P KeyIsCasel ess "0"
  3847            S CDPurpose  "0"
  3848         END  DSSUBRECOR D
  3849         BEGI N DSSUBREC ORD
  3850            N ame "etl_b atch_id"
  3851            S qlType "12 "
  3852            P recision " 20"
  3853            S cale "0"
  3854            N ullable "1 "
  3855            K eyPosition  "0"
  3856            D isplaySize  "0"
  3857            D erivation  "BatchID"
  3858            G roup "0"
  3859            P arsedDeriv ation "Bat chID"
  3860            S ortKey "0"
  3861            S ortType "0 "
  3862            A llowCRLF " 0"
  3863            L evelNo "0"
  3864            O ccurs "0"
  3865            P adNulls "0 "
  3866            S ignOption  "0"
  3867            S ortingOrde r "0"
  3868            A rrayHandli ng "0"
  3869            S yncIndicat or "0"
  3870            P adChar ""
  3871            E xtendedPre cision "0"
  3872            T aggedSubre c "0"
  3873            O ccursVaryi ng "0"
  3874            P KeyIsCasel ess "0"
  3875            S CDPurpose  "0"
  3876         END  DSSUBRECOR D
  3877         BEGI N DSSUBREC ORD
  3878            N ame "svHL2 2"
  3879            S qlType "12 "
  3880            P recision " 20"
  3881            S cale "0"
  3882            N ullable "1 "
  3883            K eyPosition  "0"
  3884            D isplaySize  "0"
  3885            D erivation  "svHL22"
  3886            G roup "0"
  3887            P arsedDeriv ation "svH L22"
  3888            S ortKey "0"
  3889            S ortType "0 "
  3890            A llowCRLF " 0"
  3891            L evelNo "0"
  3892            O ccurs "0"
  3893            P adNulls "0 "
  3894            S ignOption  "0"
  3895            S ortingOrde r "0"
  3896            S tageVars " svHL22"
  3897            A rrayHandli ng "0"
  3898            S yncIndicat or "0"
  3899            P adChar ""
  3900            E xtendedPre cision "0"
  3901            T aggedSubre c "0"
  3902            O ccursVaryi ng "0"
  3903            P KeyIsCasel ess "0"
  3904            S CDPurpose  "0"
  3905         END  DSSUBRECOR D
  3906         Meta Bag "CMeta Property"
  3907         BEGI N DSSUBREC ORD
  3908            O wner "APT"
  3909            N ame "DiskW riteInc"
  3910            V alue "1048 576"
  3911         END  DSSUBRECOR D
  3912         BEGI N DSSUBREC ORD
  3913            O wner "APT"
  3914            N ame "BufFr eeRun"
  3915            V alue "50"
  3916         END  DSSUBRECOR D
  3917         BEGI N DSSUBREC ORD
  3918            O wner "APT"
  3919            N ame "MaxMe mBufSize"
  3920            V alue "3145 728"
  3921         END  DSSUBRECOR D
  3922         BEGI N DSSUBREC ORD
  3923            O wner "APT"
  3924            N ame "Queue UpperSize"
  3925            V alue "0"
  3926         END  DSSUBRECOR D
  3927         BEGI N DSSUBREC ORD
  3928            O wner "APT"
  3929            N ame "Schem a"
  3930            V alue =+=+= +=
  3931   record
  3932   (
  3933     claim_id :nullable  string[max =20];
  3934     conditio n_codes_al l:nullable  string[ma x=200];
  3935     source_e ntity:null able strin g[max=50];
  3936     row_id:n ullable st ring[max=2 0];
  3937     claim_ke y_pr:nulla ble int32;
  3938     etl_batc h_id:nulla ble string [max=20];
  3939     svHL22:n ullable st ring[max=2 0];
  3940   )
  3941   =+=+=+=
  3942         END  DSSUBRECOR D
  3943         BEGI N DSSUBREC ORD
  3944            O wner "APT"
  3945            N ame "SortO rderPreser ved"
  3946            V alue "1"
  3947         END  DSSUBRECOR D
  3948         Stag eVars "svC laimId;svC onditionCo desAll"
  3949         Left TextPos "3 77"
  3950         TopT extPos "20 3"
  3951         Link Minimised  "0"
  3952      END DSR ECORD
  3953      BEGIN D SRECORD
  3954         Iden tifier "V1 38S4P3"
  3955         OLET ype "CTrxI nput"
  3956         Read only "0"
  3957         Name  "XfrmSrc"
  3958         Part ner "V129S 0|V129S0P2 "
  3959         Link Type "1"
  3960         Meta Bag "CMeta Property"
  3961         BEGI N DSSUBREC ORD
  3962            O wner "APT"
  3963            N ame "RTCol umnProp"
  3964            V alue "0"
  3965         END  DSSUBRECOR D
  3966         BEGI N DSSUBREC ORD
  3967            O wner "APT"
  3968            N ame "Schem a"
  3969            V alue =+=+= +=
  3970   record
  3971   (
  3972     ROW_NUM: string[max =8];
  3973     ST_NUM:n ullable st ring[max=9 ];
  3974     LOOP:nul lable stri ng[max=10] ;
  3975     SEG:stri ng[max=5];
  3976     SEG_CD:s tring[max= 20];
  3977     EDI837P: string[max =2000];
  3978     ETL_BATC H_ID:strin g[max=20];
  3979   )
  3980   =+=+=+=
  3981         END  DSSUBRECOR D
  3982         BEGI N DSSUBREC ORD
  3983            O wner "APT"
  3984            N ame "Part/ Col"
  3985            V alue "same "
  3986         END  DSSUBRECOR D
  3987         BEGI N DSSUBREC ORD
  3988            O wner "APT"
  3989            N ame "SortA dv"
  3990            V alue "-non Stable"
  3991         END  DSSUBRECOR D
  3992         BEGI N DSSUBREC ORD
  3993            O wner "APT"
  3994            N ame "SeqSo rt"
  3995            V alue "0"
  3996         END  DSSUBRECOR D
  3997         Mult iRow "0"
  3998         Link Minimised  "0"
  3999      END DSR ECORD
  4000      BEGIN D SRECORD
  4001         Iden tifier "V8 1S0"
  4002         OLET ype "CCust omStage"
  4003         Read only "0"
  4004         Name  "RmDupRec "
  4005         Next ID "5"
  4006         Inpu tPins "V81 S0P4"
  4007         Outp utPins "V8 1S0P3"
  4008         Stag eType "PxR emDup"
  4009         Allo wColumnMap ping "0"
  4010         Prop erties "CC ustomPrope rty"
  4011         BEGI N DSSUBREC ORD
  4012            N ame "keep"
  4013            V alue "last "
  4014         END  DSSUBRECOR D
  4015         BEGI N DSSUBREC ORD
  4016            N ame "key"
  4017            V alue "\(2) \(2)0\(1)\ (3)key\(2) row_id\(2) 0\(1)\(3)k ey\(2)HL22 \(2)0\(1)\ (3)key\(2) condition_ qualif\(2) 0\(1)\(3)k ey\(2)cond ition_code \(2)0"
  4018         END  DSSUBRECOR D
  4019         Next RecordID " 0"
  4020      END DSR ECORD
  4021      BEGIN D SRECORD
  4022         Iden tifier "V8 1S0P3"
  4023         OLET ype "CCust omOutput"
  4024         Read only "0"
  4025         Name  "Flt_ClmI d"
  4026         Part ner "V0S11 4|V0S114P5 "
  4027         Colu mns "COutp utColumn"
  4028         BEGI N DSSUBREC ORD
  4029            N ame "claim _id"
  4030            S qlType "12 "
  4031            P recision " 20"
  4032            S cale "0"
  4033            N ullable "1 "
  4034            K eyPosition  "0"
  4035            D isplaySize  "0"
  4036            D erivation  "BusRls.cl aim_id"
  4037            G roup "0"
  4038            P arsedDeriv ation "Bus Rls.claim_ id"
  4039            S ourceColum n "BusRls. claim_id"
  4040            S ortKey "0"
  4041            S ortType "0 "
  4042            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  4043            A llowCRLF " 0"
  4044            L evelNo "0"
  4045            O ccurs "0"
  4046            P adNulls "0 "
  4047            S ignOption  "0"
  4048            S ortingOrde r "0"
  4049            A rrayHandli ng "0"
  4050            S yncIndicat or "0"
  4051            P adChar ""
  4052            C olumnRefer ence "clai m_key"
  4053            E xtendedPre cision "0"
  4054            T aggedSubre c "0"
  4055            O ccursVaryi ng "0"
  4056            P KeyIsCasel ess "0"
  4057            S CDPurpose  "0"
  4058         END  DSSUBRECOR D
  4059         BEGI N DSSUBREC ORD
  4060            N ame "condi tion_quali f"
  4061            D escription  =+=+=+=
  4062   <none>
  4063   Searchable ? N 
  4064   =+=+=+=
  4065            S qlType "12 "
  4066            P recision " 10"
  4067            S cale "0"
  4068            N ullable "1 "
  4069            K eyPosition  "0"
  4070            D isplaySize  "15"
  4071            D erivation  "BusRls.co ndition_qu alif"
  4072            G roup "0"
  4073            P arsedDeriv ation "Bus Rls.condit ion_qualif "
  4074            S ourceColum n "BusRls. condition_ qualif"
  4075            S ortKey "0"
  4076            S ortType "0 "
  4077            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  4078            A llowCRLF " 0"
  4079            L evelNo "0"
  4080            O ccurs "0"
  4081            P adNulls "0 "
  4082            S ignOption  "0"
  4083            S ortingOrde r "0"
  4084            A rrayHandli ng "0"
  4085            S yncIndicat or "0"
  4086            P adChar ""
  4087            C olumnRefer ence "oral _cavity_de signation_ code"
  4088            A PTFieldPro p "null_fi eld=''"
  4089            E xtendedPre cision "0"
  4090            T aggedSubre c "0"
  4091            O ccursVaryi ng "0"
  4092            P KeyIsCasel ess "0"
  4093            S CDPurpose  "0"
  4094         END  DSSUBRECOR D
  4095         BEGI N DSSUBREC ORD
  4096            N ame "condi tion_code"
  4097            D escription  =+=+=+=
  4098   <none>
  4099   Searchable ? N 
  4100   =+=+=+=
  4101            S qlType "12 "
  4102            P recision " 30"
  4103            S cale "0"
  4104            N ullable "1 "
  4105            K eyPosition  "0"
  4106            D isplaySize  "15"
  4107            D erivation  "BusRls.co ndition_co de"
  4108            G roup "0"
  4109            P arsedDeriv ation "Bus Rls.condit ion_code"
  4110            S ourceColum n "BusRls. condition_ code"
  4111            S ortKey "0"
  4112            S ortType "0 "
  4113            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  4114            A llowCRLF " 0"
  4115            L evelNo "0"
  4116            O ccurs "0"
  4117            P adNulls "0 "
  4118            S ignOption  "0"
  4119            S ortingOrde r "0"
  4120            A rrayHandli ng "0"
  4121            S yncIndicat or "0"
  4122            P adChar ""
  4123            C olumnRefer ence "oral _cavity_de signation_ code"
  4124            A PTFieldPro p "null_fi eld=''"
  4125            E xtendedPre cision "0"
  4126            T aggedSubre c "0"
  4127            O ccursVaryi ng "0"
  4128            P KeyIsCasel ess "0"
  4129            S CDPurpose  "0"
  4130         END  DSSUBRECOR D
  4131         BEGI N DSSUBREC ORD
  4132            N ame "sourc e_entity"
  4133            S qlType "12 "
  4134            P recision " 50"
  4135            S cale "0"
  4136            N ullable "1 "
  4137            K eyPosition  "0"
  4138            D isplaySize  "0"
  4139            D erivation  "BusRls.so urce_entit y"
  4140            G roup "0"
  4141            P arsedDeriv ation "Bus Rls.source _entity"
  4142            S ourceColum n "BusRls. source_ent ity"
  4143            S ortKey "0"
  4144            S ortType "0 "
  4145            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  4146            A llowCRLF " 0"
  4147            L evelNo "0"
  4148            N ativeType  "varchar"
  4149            O ccurs "0"
  4150            P adNulls "0 "
  4151            S ignOption  "0"
  4152            S ortingOrde r "0"
  4153            A rrayHandli ng "0"
  4154            S yncIndicat or "0"
  4155            P adChar ""
  4156            C olumnRefer ence "sour ce_entity"
  4157            E xtendedPre cision "0"
  4158            T aggedSubre c "0"
  4159            O ccursVaryi ng "0"
  4160            P KeyIsCasel ess "0"
  4161            S CDPurpose  "0"
  4162         END  DSSUBRECOR D
  4163         BEGI N DSSUBREC ORD
  4164            N ame "etl_b atch_id"
  4165            D escription  =+=+=+=
  4166   <none>
  4167   Searchable ? N 
  4168   =+=+=+=
  4169            S qlType "12 "
  4170            P recision " 20"
  4171            S cale "0"
  4172            N ullable "1 "
  4173            K eyPosition  "0"
  4174            D isplaySize  "20"
  4175            D erivation  "BusRls.et l_batch_id "
  4176            G roup "0"
  4177            P arsedDeriv ation "Bus Rls.etl_ba tch_id"
  4178            S ourceColum n "BusRls. etl_batch_ id"
  4179            S ortKey "0"
  4180            S ortType "0 "
  4181            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  4182            A llowCRLF " 0"
  4183            L evelNo "0"
  4184            O ccurs "0"
  4185            P adNulls "0 "
  4186            S ignOption  "0"
  4187            S ortingOrde r "0"
  4188            A rrayHandli ng "0"
  4189            S yncIndicat or "0"
  4190            P adChar ""
  4191            C olumnRefer ence "etl_ batch_id"
  4192            A PTFieldPro p "null_fi eld=''"
  4193            E xtendedPre cision "0"
  4194            T aggedSubre c "0"
  4195            O ccursVaryi ng "0"
  4196            P KeyIsCasel ess "0"
  4197            S CDPurpose  "0"
  4198         END  DSSUBRECOR D
  4199         BEGI N DSSUBREC ORD
  4200            N ame "row_i d"
  4201            S qlType "12 "
  4202            P recision " 20"
  4203            S cale "0"
  4204            N ullable "1 "
  4205            K eyPosition  "0"
  4206            D isplaySize  "0"
  4207            D erivation  "BusRls.ro w_id"
  4208            G roup "0"
  4209            P arsedDeriv ation "Bus Rls.row_id "
  4210            S ourceColum n "BusRls. row_id"
  4211            S ortKey "0"
  4212            S ortType "0 "
  4213            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _INSURANCE "
  4214            A llowCRLF " 0"
  4215            L evelNo "0"
  4216            N ativeType  "varchar"
  4217            O ccurs "0"
  4218            P adNulls "0 "
  4219            S ignOption  "0"
  4220            S ortingOrde r "0"
  4221            A rrayHandli ng "0"
  4222            S yncIndicat or "0"
  4223            P adChar ""
  4224            C olumnRefer ence "row_ id"
  4225            E xtendedPre cision "0"
  4226            T aggedSubre c "0"
  4227            O ccursVaryi ng "0"
  4228            P KeyIsCasel ess "0"
  4229            S CDPurpose  "0"
  4230         END  DSSUBRECOR D
  4231         Meta Bag "CMeta Property"
  4232         BEGI N DSSUBREC ORD
  4233            O wner "APT"
  4234            N ame "DiskW riteInc"
  4235            V alue "1048 576"
  4236         END  DSSUBRECOR D
  4237         BEGI N DSSUBREC ORD
  4238            O wner "APT"
  4239            N ame "BufFr eeRun"
  4240            V alue "50"
  4241         END  DSSUBRECOR D
  4242         BEGI N DSSUBREC ORD
  4243            O wner "APT"
  4244            N ame "MaxMe mBufSize"
  4245            V alue "3145 728"
  4246         END  DSSUBRECOR D
  4247         BEGI N DSSUBREC ORD
  4248            O wner "APT"
  4249            N ame "Queue UpperSize"
  4250            V alue "0"
  4251         END  DSSUBRECOR D
  4252         Left TextPos "9 18"
  4253         TopT extPos "21 6"
  4254         Link Minimised  "0"
  4255      END DSR ECORD
  4256      BEGIN D SRECORD
  4257         Iden tifier "V8 1S0P4"
  4258         OLET ype "CCust omInput"
  4259         Read only "0"
  4260         Name  "BusRls"
  4261         Part ner "V138S 1|V138S1P2 "
  4262         Link Type "1"
  4263         Meta Bag "CMeta Property"
  4264         BEGI N DSSUBREC ORD
  4265            O wner "APT"
  4266            N ame "RTCol umnProp"
  4267            V alue "0"
  4268         END  DSSUBRECOR D
  4269         Tran sactionSiz e "0"
  4270         TXNB ehaviour " 0"
  4271         Enab leTxGroup  "0"
  4272         Link Minimised  "0"
  4273      END DSR ECORD
  4274   END DSJOB
  4275   BEGIN DSJO B
  4276      Identif ier "EDI83 7P_CLAIM_D IAGNOSIS_p rep"
  4277      DateMod ified "201 8-02-26"
  4278      TimeMod ified "15. 47.18"
  4279      BEGIN D SRECORD
  4280         Iden tifier "RO OT"
  4281         OLET ype "CJobD efn"
  4282         Read only "0"
  4283         Name  "EDI837P_ CLAIM_DIAG NOSIS_prep "
  4284         Next ID "138"
  4285         Cont ainer "V0"
  4286         JobV ersion "56 .0.0"
  4287         Cont rolAfterSu br "0"
  4288         Para meters "CP arameters"
  4289         BEGI N DSSUBREC ORD
  4290            N ame "$PROJ _DATA_SFIL E"
  4291            P rompt "Pro ject Data  directory  (sequentia l files)"
  4292            D efault "$P ROJDEF"
  4293            P aramType " 0"
  4294            P aramLength  "0"
  4295            P aramScale  "0"
  4296         END  DSSUBRECOR D
  4297         BEGI N DSSUBREC ORD
  4298            N ame "$SQL_ DB_UID"
  4299            P rompt "MSS QL DB User -id"
  4300            D efault "$P ROJDEF"
  4301            P aramType " 0"
  4302            P aramLength  "0"
  4303            P aramScale  "0"
  4304         END  DSSUBRECOR D
  4305         BEGI N DSSUBREC ORD
  4306            N ame "$SQL_ DB_PWD"
  4307            P rompt "MSS QL DB Pass word"
  4308            D efault "HD I@IJV8O9JN 064IL:JD1K 95"
  4309            P aramType " 1"
  4310            P aramLength  "0"
  4311            P aramScale  "0"
  4312         END  DSSUBRECOR D
  4313         BEGI N DSSUBREC ORD
  4314            N ame "$PROJ _DATA_DS"
  4315            P rompt "Pro ject Data  directory  (datasets) "
  4316            D efault "$P ROJDEF"
  4317            P aramType " 0"
  4318            P aramLength  "0"
  4319            P aramScale  "0"
  4320         END  DSSUBRECOR D
  4321         BEGI N DSSUBREC ORD
  4322            N ame "Batch ClaimType"
  4323            P rompt "Bat chClaimTyp e"
  4324            P aramType " 0"
  4325            P aramLength  "0"
  4326            P aramScale  "0"
  4327         END  DSSUBRECOR D
  4328         BEGI N DSSUBREC ORD
  4329            N ame "$SQL_ DB"
  4330            P rompt "Dev elopment D atabase"
  4331            D efault "$P ROJDEF"
  4332            P aramType " 0"
  4333            P aramLength  "0"
  4334            P aramScale  "0"
  4335         END  DSSUBRECOR D
  4336         BEGI N DSSUBREC ORD
  4337            N ame "$SQL_ DB_DSN"
  4338            P rompt "MSS QL DB Data  Source Na me (DSN)"
  4339            D efault "$P ROJDEF"
  4340            P aramType " 0"
  4341            P aramLength  "0"
  4342            P aramScale  "0"
  4343         END  DSSUBRECOR D
  4344         BEGI N DSSUBREC ORD
  4345            N ame "Batch ID"
  4346            P rompt "Bat chID"
  4347            P aramType " 0"
  4348            P aramLength  "0"
  4349            P aramScale  "0"
  4350         END  DSSUBRECOR D
  4351         Meta Bag "CMeta Property"
  4352         BEGI N DSSUBREC ORD
  4353            O wner "APT"
  4354            N ame "Advan cedRuntime Options"
  4355            V alue "#DSP rojectARTO ptions#"
  4356         END  DSSUBRECOR D
  4357         BEGI N DSSUBREC ORD
  4358            O wner "APT"
  4359            N ame "Trace Mode"
  4360            V alue "0"
  4361         END  DSSUBRECOR D
  4362         BEGI N DSSUBREC ORD
  4363            O wner "APT"
  4364            N ame "Trace Seq"
  4365            V alue "1"
  4366         END  DSSUBRECOR D
  4367         BEGI N DSSUBREC ORD
  4368            O wner "APT"
  4369            N ame "Trace Records"
  4370            V alue "100"
  4371         END  DSSUBRECOR D
  4372         BEGI N DSSUBREC ORD
  4373            O wner "APT"
  4374            N ame "Trace Skip"
  4375            V alue "0"
  4376         END  DSSUBRECOR D
  4377         BEGI N DSSUBREC ORD
  4378            O wner "APT"
  4379            N ame "Trace Period"
  4380            V alue "1"
  4381         END  DSSUBRECOR D
  4382         BEGI N DSSUBREC ORD
  4383            O wner "APT"
  4384            N ame "Recor dJobPerfor manceData"
  4385            V alue "1"
  4386         END  DSSUBRECOR D
  4387         BEGI N DSSUBREC ORD
  4388            O wner "APT"
  4389            N ame "Ident List"
  4390            V alue "Xfm_ BusRules|D IM_VA_CLAI M|Lkp_DimV aClaim|DIM _DIAGNOSIS _CODE|genR ecsByCode| Xfrm_Claim Diagnosis| Fmt_DiagCo des|DepupR ows"
  4391         END  DSSUBRECOR D
  4392         BEGI N DSSUBREC ORD
  4393            O wner "APT"
  4394            N ame "Clien tCodePage"
  4395            V alue "1252 "
  4396         END  DSSUBRECOR D
  4397         NULL IndicatorP osition "0 "
  4398         Orch estrateCod e =+=+=+=
  4399   #### STAGE : Xfm_BusR ules.XfrmS rc_Part
  4400   ## Operato r
  4401   same
  4402   ## General  options
  4403   [ident('Xf m_BusRules .XfrmSrc_P art')]
  4404   ## Inputs
  4405   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc.v'
  4406   ## Outputs
  4407   0> [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  4408   ;
  4409  
  4410   ########## ########## ########## ########## ########## ########## #####
  4411   #### STAGE : Xfm_BusR ules
  4412   ## Operato r
  4413   transform
  4414   ## Operato r options
  4415   -flag run
  4416   -name 'V81 S2_EDI837P _CLAIM_DIA GNOSIS_pre p_Xfm_BusR ules'
  4417   -argvalue  'BatchID=[ &"BatchID" ]'
  4418  
  4419   ## General  options
  4420   [ident('Xf m_BusRules '); jobmon _ident('Xf m_BusRules ')]
  4421   ## Inputs
  4422   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  4423   ## Outputs
  4424   0> [] 'Xfm _BusRules: BusRls.v'
  4425   ;
  4426  
  4427   ########## ########## ########## ########## ########## ########## #####
  4428   #### STAGE : DIM_VA_C LAIM
  4429   ## Operato r
  4430   pxbridge
  4431   ## Operato r options
  4432   -Orientati on link
  4433   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>1</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>-1</ PartitionT ype><RCP t ype=\\'int \\'>0</RCP ></Common> <Connectio n><DataSou rce modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_D SN"]]]></D ataSource> <Username  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB_UID"] ]]></Usern ame><Passw ord modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_P WD"]]]></P assword></ Connection ><Usage mo dified=\\' 1\\'><Gene rateSQL mo dified=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Gene rateSQL><E nableQuote dIDs modif ied=\\'1\\ ' type=\\' bool\\'><! [CDATA[1]] ></EnableQ uotedIDs>< SQL><Selec tStatement  modified= \\'1\\' ty pe=\\'stri ng\\'><![C DATA[Selec t claim_ke y, claim_i d, source_ entity, et l_batch_id  
  4434   from [&"$S QL_DB"].db o.DIM_VA_C LAIM where  is_curren t = \\'Y\\ '  and etl _batch_id  = \\'[&"Ba tchID"]\\' ]]><ReadSt atementFro mFile type =\\'bool\\ '><![CDATA [0]]></Rea dStatement FromFile>< Tables col lapsed=\\' 1\\'><Tabl e type=\\' string\\'> </Table><T able type= \\'string\ \'><![CDAT A[[&"$SQL_ DB"]]]></T able></Tab les><Param eters coll apsed=\\'1 \\'></Para meters><Co lumns coll apsed=\\'1 \\'><Colum n type=\\' string\\'> <![CDATA[e tl_batch_i d,etl_batc h_id,[&"$S QL_DB"]]]> </Column>< Column typ e=\\'strin g\\'><![CD ATA[source _entity,so urce_entit y,[&"$SQL_ DB"]]]></C olumn><Col umn type=\ \'string\\ '><![CDATA [claim_id, claim_id,[ &"$SQL_DB" ]]]></Colu mn><Column  type=\\'s tring\\'>< ![CDATA[cl aim_key,cl aim_key,[& "$SQL_DB"] ]]></Colum n></Column s><WhereCl ause type= \\'string\ \'><![CDAT A[(is_curr ent = \\'Y \\' AND et l_batch_id  = \\'[&"B atchID"]\\ ')]]></Whe reClause>< /SelectSta tement><En ablePartit ioning col lapsed=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Enab lePartitio ning></SQL ><Transact ion><Recor dCount typ e=\\'int\\ '><![CDATA [2000]]></ RecordCoun t><EndOfWa ve collaps ed=\\'1\\'  type=\\'i nt\\'><![C DATA[0]]>< /EndOfWave ></Transac tion><Sess ion><Isola tionLevel  type=\\'in t\\'><![CD ATA[1]]></ IsolationL evel><Auto commitMode  type=\\'i nt\\'><![C DATA[0]]>< /Autocommi tMode><Arr aySize typ e=\\'int\\ '><![CDATA [2000]]></ ArraySize> <SchemaRec onciliatio n><FailOnS izeMismatc h type=\\' bool\\'><! [CDATA[1]] ></FailOnS izeMismatc h><FailOnT ypeMismatc h type=\\' bool\\'><! [CDATA[1]] ></FailOnT ypeMismatc h><FailOnC odePageMis match type =\\'bool\\ '><![CDATA [0]]></Fai lOnCodePag eMismatch> </SchemaRe conciliati on><PassLo bLocator c ollapsed=\ \'1\\' typ e=\\'bool\ \'><![CDAT A[0]]></Pa ssLobLocat or><CodePa ge collaps ed=\\'1\\'  type=\\'i nt\\'><![C DATA[0]]>< /CodePage> </Session> <BeforeAft er collaps ed=\\'1\\'  type=\\'b ool\\'><![ CDATA[0]]> </BeforeAf ter></Usag e></Proper ties >'
  4435   -connector  '{
  4436      variant =\\'3.5\\'
  4437      library =ccodbc, 
  4438      version =1.0, 
  4439      variant list=\\'3. 5\\', 
  4440      version list=\\'1. 0\\', 
  4441      name=OD BCConnecto r
  4442   }'
  4443   -source 0  '{
  4444         DSDe scription= {claim_key =\\'\\<non e\\>
  4445   Searchable \\? N \\'}
  4446         DSIs Key={claim _id=1, sou rce_entity =1, etl_ba tch_id=1},  
  4447         DSDi splayWidth ={claim_ke y=11}, 
  4448         DSSQ LType={cla im_key=4,  claim_id=1 2, source_ entity=12,  etl_batch _id=12}, 
  4449         DSSQ LPrecision ={claim_ke y=10, clai m_id=20, s ource_enti ty=50, etl _batch_id= 20}, 
  4450         DSSc hema=\\'re cord
  4451            (
  4452               claim_key \\:int32\\ ;
  4453               claim_id\ \:nullable  string\\[ max\\=20\\ ]\\;
  4454               source_en tity\\:nul lable stri ng\\[max\\ =50\\]\\;
  4455               etl_batch _id\\:null able strin g\\[max\\= 20\\]\\;
  4456            ) \\'
  4457   }'
  4458      
  4459  
  4460   ## General  options
  4461   [ident('DI M_VA_CLAIM '); jobmon _ident('DI M_VA_CLAIM ')]
  4462   ## Outputs
  4463   0> [modify  (
  4464     claim_ke y:not_null able int32 =claim_key ;
  4465     claim_id :nullable  string[max =20]=claim _id;
  4466     source_e ntity:null able strin g[max=50]= source_ent ity;
  4467     etl_batc h_id:nulla ble string [max=20]=e tl_batch_i d;
  4468   keep
  4469     claim_ke y,claim_id ,source_en tity,etl_b atch_id;
  4470   )] 'DIM_VA _CLAIM:Dim VaClaim.v'
  4471   ;
  4472  
  4473   #### STAGE : Lkp_DimV aClaim.Fmt DiagCodes_ Part
  4474   ## Operato r
  4475   same
  4476   ## General  options
  4477   [ident('Lk p_DimVaCla im.FmtDiag Codes_Part ')]
  4478   ## Inputs
  4479   0< [] 'Fmt _DiagCodes :FmtDiagCo des.v'
  4480   ## Outputs
  4481   0> [] 'Fmt _DiagCodes :FmtDiagCo des_Part.v '
  4482   ;
  4483  
  4484   #### STAGE : Lkp_DimV aClaim.Dim VaClaim_Pa rt
  4485   ## Operato r
  4486   entire
  4487   ## General  options
  4488   [ident('Lk p_DimVaCla im.DimVaCl aim_Part') ]
  4489   ## Inputs
  4490   0< [] 'DIM _VA_CLAIM: DimVaClaim .v'
  4491   ## Outputs
  4492   0> [] 'DIM _VA_CLAIM: DimVaClaim _Part.v'
  4493   ;
  4494  
  4495   #### STAGE : Lkp_DimV aClaim.Dim DiagnosisC ode_Part
  4496   ## Operato r
  4497   entire
  4498   ## General  options
  4499   [ident('Lk p_DimVaCla im.DimDiag nosisCode_ Part')]
  4500   ## Inputs
  4501   0< [] 'DIM _DIAGNOSIS _CODE:DimD iagnosisCo de.v'
  4502   ## Outputs
  4503   0> [] 'DIM _DIAGNOSIS _CODE:DimD iagnosisCo de_Part.v'
  4504   ;
  4505  
  4506   ########## ########## ########## ########## ########## ########## #####
  4507   #### STAGE : Lkp_DimV aClaim
  4508   ## Operato r
  4509   transform
  4510   ## Operato r options
  4511   -table
  4512   -key claim _id
  4513   -key sourc e_entity
  4514   -key etl_b atch_id
  4515   -table
  4516   -key diagn oses_code
  4517   -flag run
  4518   -name 'V0S 114_EDI837 P_CLAIM_DI AGNOSIS_pr ep_Lkp_Dim VaClaim'
  4519  
  4520   ## General  options
  4521   [ident('Lk p_DimVaCla im'); jobm on_ident(' Lkp_DimVaC laim')]
  4522   ## Inputs
  4523   0< [] 'Fmt _DiagCodes :FmtDiagCo des_Part.v '
  4524   1< [] 'DIM _VA_CLAIM: DimVaClaim _Part.v'
  4525   2< [view (
  4526     diagnose s_code=dia gnosis_cod e;
  4527   )] 'DIM_DI AGNOSIS_CO DE:DimDiag nosisCode_ Part.v'
  4528   ## Outputs
  4529   0> [] 'Lkp _DimVaClai m:Lkp_DimV aClaim.v'
  4530   ;
  4531  
  4532   ########## ########## ########## ########## ########## ########## #####
  4533   #### STAGE : DIM_DIAG NOSIS_CODE
  4534   ## Operato r
  4535   pxbridge
  4536   ## Operato r options
  4537   -Orientati on link
  4538   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>1</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>-1</ PartitionT ype><RCP t ype=\\'int \\'>0</RCP ></Common> <Connectio n><DataSou rce modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_D SN"]]]></D ataSource> <Username  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB_UID"] ]]></Usern ame><Passw ord modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_P WD"]]]></P assword></ Connection ><Usage mo dified=\\' 1\\'><Gene rateSQL mo dified=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Gene rateSQL><E nableQuote dIDs type= \\'bool\\' ><![CDATA[ 0]]></Enab leQuotedID s><SQL><Se lectStatem ent modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[Se lect DIAGN OSIS_key,  diagnosis_ code from  [&"$SQL_DB "].dbo.DIM _DIAGNOSIS _CODE wher e is_curre nt = \\'Y\ \']]><Read StatementF romFile ty pe=\\'bool \\'><![CDA TA[0]]></R eadStateme ntFromFile ><Tables c ollapsed=\ \'1\\'><Ta ble type=\ \'string\\ '><![CDATA [[&"$SQL_D B"].dbo.DI M_DIAGNOSI S_CODE]]>< /Table></T ables><Par ameters co llapsed=\\ '1\\'></Pa rameters>< Columns co llapsed=\\ '1\\'><Col umn type=\ \'string\\ '><![CDATA [diagnosis _code,diag nosis_code ,DIM_DIAGN OSIS_CODE] ]></Column ><Column t ype=\\'str ing\\'><![ CDATA[DIAG NOSIS_key, DIAGNOSIS_ key,DIM_DI AGNOSIS_CO DE]]></Col umn></Colu mns><Where Clause typ e=\\'strin g\\'><![CD ATA[is_cur rent = \\' Y\\']]></W hereClause ></SelectS tatement>< EnablePart itioning c ollapsed=\ \'1\\' typ e=\\'bool\ \'><![CDAT A[0]]></En ablePartit ioning></S QL><Transa ction><Rec ordCount t ype=\\'int \\'><![CDA TA[2000]]> </RecordCo unt><EndOf Wave colla psed=\\'1\ \' type=\\ 'int\\'><! [CDATA[0]] ></EndOfWa ve></Trans action><Se ssion><Iso lationLeve l type=\\' int\\'><![ CDATA[1]]> </Isolatio nLevel><Au tocommitMo de type=\\ 'int\\'><! [CDATA[0]] ></Autocom mitMode><A rraySize t ype=\\'int \\'><![CDA TA[2000]]> </ArraySiz e><SchemaR econciliat ion><FailO nSizeMisma tch type=\ \'bool\\'> <![CDATA[1 ]]></FailO nSizeMisma tch><FailO nTypeMisma tch type=\ \'bool\\'> <![CDATA[1 ]]></FailO nTypeMisma tch><FailO nCodePageM ismatch ty pe=\\'bool \\'><![CDA TA[0]]></F ailOnCodeP ageMismatc h></Schema Reconcilia tion><Pass LobLocator  collapsed =\\'1\\' t ype=\\'boo l\\'><![CD ATA[0]]></ PassLobLoc ator><Code Page colla psed=\\'1\ \' type=\\ 'int\\'><! [CDATA[0]] ></CodePag e></Sessio n><BeforeA fter colla psed=\\'1\ \' type=\\ 'bool\\'>< ![CDATA[0] ]></Before After><Lim itRows col lapsed=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Limi tRows></Us age></Prop erties >'
  4539   -connector  '{
  4540      variant =\\'3.5\\'
  4541      library =ccodbc, 
  4542      version =1.0, 
  4543      variant list=\\'V1 ;3.5::ccod bc\\', 
  4544      version list=\\'1. 0\\', 
  4545      name=OD BCConnecto r
  4546   }'
  4547   -source 0  '{
  4548         DSDe scription= {DIAGNOSIS _key=\\'\\ <none\\>
  4549   Searchable \\? N \\',  diagnosis _code=\\'\ \<none\\>
  4550   Searchable \\? N \\'}
  4551         DSIs Key={diagn osis_code= 1}, 
  4552         DSDi splayWidth ={DIAGNOSI S_key=11,  diagnosis_ code=11}, 
  4553         DSSQ LType={DIA GNOSIS_key =4, diagno sis_code=1 2}, 
  4554         DSSQ LPrecision ={DIAGNOSI S_key=10,  diagnosis_ code=30}, 
  4555         DSSc hema=\\'re cord
  4556            (
  4557               DIAGNOSIS _key\\:int 32\\;
  4558               diagnosis _code\\:nu llable str ing\\[max\ \=30\\]\\;
  4559            ) \\'
  4560   }'
  4561      
  4562  
  4563   ## General  options
  4564   [ident('DI M_DIAGNOSI S_CODE');  jobmon_ide nt('DIM_DI AGNOSIS_CO DE')]
  4565   ## Outputs
  4566   0> [modify  (
  4567     DIAGNOSI S_key:not_ nullable i nt32=DIAGN OSIS_key;
  4568     diagnosi s_code:nul lable stri ng[max=30] =diagnosis _code;
  4569   keep
  4570     DIAGNOSI S_key,diag nosis_code ;
  4571   )] 'DIM_DI AGNOSIS_CO DE:DimDiag nosisCode. v'
  4572   ;
  4573  
  4574   ########## ########## ########## ########## ########## ########## #####
  4575   #### STAGE : genRecsB yCode
  4576   ## Operato r
  4577   transform
  4578   ## Operato r options
  4579   -flag run
  4580   -name 'V12 1S0_EDI837 P_CLAIM_DI AGNOSIS_pr ep_genRecs ByCode'
  4581  
  4582   ## General  options
  4583   [ident('ge nRecsByCod e'); jobmo n_ident('g enRecsByCo de')]
  4584   ## Inputs
  4585   0< [] 'Xfm _BusRules: BusRls.v'
  4586   ## Outputs
  4587   0> [] 'gen RecsByCode :genRecsBy Code.v'
  4588   ;
  4589  
  4590   #### STAGE : Ds_Claim Diagnosis. ClmDiagn_o ut_Part
  4591   ## Operato r
  4592   same
  4593   ## General  options
  4594   [ident('Ds _ClaimDiag nosis.ClmD iagn_out_P art')]
  4595   ## Inputs
  4596   0< [] 'Xfr m_ClaimDia gnosis:Clm Diagn_out. v'
  4597   ## Outputs
  4598   0> [] 'Xfr m_ClaimDia gnosis:Clm Diagn_out_ Part.v'
  4599   ;
  4600  
  4601   ########## ########## ########## ########## ########## ########## #####
  4602   #### STAGE : Ds_Claim Diagnosis
  4603   ## Operato r
  4604   copy
  4605   ## General  options
  4606   [ident('Ds _ClaimDiag nosis')]
  4607   ## Inputs
  4608   0< [] 'Xfr m_ClaimDia gnosis:Clm Diagn_out_ Part.v'
  4609   ## Outputs
  4610   0>| [ds] ' [&"$PROJ_D ATA_DS"][& "BatchClai mType"]_Cl aimDiagnos is.ds'
  4611   ;
  4612  
  4613   ########## ########## ########## ########## ########## ########## #####
  4614   #### STAGE : Xfrm_Cla imDiagnosi s
  4615   ## Operato r
  4616   transform
  4617   ## Operato r options
  4618   -flag run
  4619   -name 'V12 4S0_EDI837 P_CLAIM_DI AGNOSIS_pr ep_Xfrm_Cl aimDiagnos is'
  4620  
  4621   ## General  options
  4622   [ident('Xf rm_ClaimDi agnosis');  jobmon_id ent('Xfrm_ ClaimDiagn osis'); se q]
  4623   ## Inputs
  4624   0< [] 'Dep upRows:Dep upRows.v'
  4625   ## Outputs
  4626   0> [] 'Xfr m_ClaimDia gnosis:Clm Diagn_out. v'
  4627   ;
  4628  
  4629   ########## ########## ########## ########## ########## ########## #####
  4630   #### STAGE : Fmt_Diag Codes
  4631   ## Operato r
  4632   transform
  4633   ## Operato r options
  4634   -flag run
  4635   -name 'V0S 176_EDI837 P_CLAIM_DI AGNOSIS_pr ep_Fmt_Dia gCodes'
  4636  
  4637   ## General  options
  4638   [ident('Fm t_DiagCode s'); jobmo n_ident('F mt_DiagCod es')]
  4639   ## Inputs
  4640   0< [] 'gen RecsByCode :genRecsBy Code.v'
  4641   ## Outputs
  4642   0> [] 'Fmt _DiagCodes :FmtDiagCo des.v'
  4643   ;
  4644  
  4645   ########## ########## ########## ########## ########## ########## #####
  4646   #### STAGE : DepupRow s
  4647   ## Operato r
  4648   remdup
  4649   ## Operato r options
  4650   -keep last
  4651   -key 'row_ id'
  4652   -key 'clai m_key'
  4653   -key 'diag noses_code '
  4654   -key 'ICDV ersion'
  4655  
  4656   ## General  options
  4657   [ident('De pupRows');  jobmon_id ent('Depup Rows')]
  4658   ## Inputs
  4659   0< [] 'Lkp _DimVaClai m:Lkp_DimV aClaim.v'
  4660   ## Outputs
  4661   0> [modify  (
  4662   keep
  4663     claim_ke y,DIAGNOSI S_key,ICDV ersion,is_ current,
  4664     start_da te,end_dat e,source_s ystem,sour ce_entity,
  4665     row_id,e tl_batch_i d,diagnose s_code,dia gnoses_qua lif;
  4666   )] 'DepupR ows:DepupR ows.v'
  4667   ;
  4668  
  4669   ########## ########## ########## ########## ########## ########## #####
  4670   #### STAGE : ds_EDI83 7P_Conform ed
  4671   ## Operato r
  4672   copy
  4673   ## General  options
  4674   [ident('ds _EDI837P_C onformed') ; seq]
  4675   ## Inputs
  4676   0< [ds] '[ &"$PROJ_DA TA_DS"][&" BatchClaim Type"]_Con formed.ds'
  4677   ## Outputs
  4678   0> [modify  (
  4679     ROW_NUM: not_nullab le string[ max=8]=ROW _NUM;
  4680     ST_NUM:n ullable st ring[max=9 ]=ST_NUM;
  4681     LOOP:nul lable stri ng[max=10] =LOOP;
  4682     SEG:not_ nullable s tring[max= 5]=SEG;
  4683     SEG_CD:n ot_nullabl e string[m ax=20]=SEG _CD;
  4684     EDI837P: not_nullab le string[ max=2000]= EDI837P;
  4685     ETL_BATC H_ID:not_n ullable st ring[max=2 0]=ETL_BAT CH_ID;
  4686   keep
  4687     ROW_NUM, ST_NUM,LOO P,SEG,
  4688     SEG_CD,E DI837P,ETL _BATCH_ID;
  4689   )] 'ds_EDI 837P_Confo rmed:XfrmS rc.v'
  4690   ;
  4691  
  4692  
  4693   =+=+=+=
  4694         IsTe mplate "0"
  4695         NLSL ocale ",,, ,"
  4696         JobT ype "3"
  4697         Cate gory "\\Jo bs\\PIT\\C P&E_EDI\\P repare"
  4698         Cent uryBreakYe ar "30"
  4699         Next AliasID "2 "
  4700         Para meterFileD DName "DD0 0001"
  4701         Rese rvedWordCh eck "1"
  4702         Tran sactionSiz e "0"
  4703         Vali dationStat us "0"
  4704         Uplo adable "0"
  4705         PgmC ustomizati onFlag "0"
  4706         JobR eportFlag  "0"
  4707         Allo wMultipleI nvocations  "0"
  4708         Act2 ActOveride Defaults " 0"
  4709         Act2 ActEnableR owBuffer " 0"
  4710         Act2 ActUseIPC  "0"
  4711         Act2 ActBufferS ize "0"
  4712         Act2 ActIPCTime out "0"
  4713         Expr essionSema nticCheckF lag "0"
  4714         Trac eOption "0 "
  4715         Enab leCacheSha ring "0"
  4716         Runt imeColumnP ropagation  "0"
  4717         RelS tagesInJob Status "-1 "
  4718         WebS erviceEnab led "0"
  4719         MFPr ocessMetaD ata "0"
  4720         MFPr ocessMetaD ataXMLFile ExchangeMe thod "0"
  4721         IMSP rogType "0 "
  4722         Copy LibPrefix  "ARDT"
  4723         Reco rdPerforma nceResults  "0"
  4724      END DSR ECORD
  4725      BEGIN D SRECORD
  4726         Iden tifier "V0 "
  4727         OLET ype "CCont ainerView"
  4728         Read only "0"
  4729         Name  "Job"
  4730         Next ID "1"
  4731         IsTo pLevel "0"
  4732         Stag eList "V81 S2|V107S0| V0S114|V11 2S0|V121S0 |V123S0|V1 24S0|V0S17 6|V0S179|V 128S0|V137 A1|V137A2| V137A3|V13 7A5|V137A6 |V137A7"
  4733         Stag eXPos "358 |774|812|9 49|523|140 9|1272|684 |1106|177| 1243|815|6 52|1076|32 6|91"
  4734         Stag eYPos "262 |34|255|29 |258|258|2 62|262|261 |265|339|3 50|370|334 |333|44"
  4735         Stag eTypes "CT ransformer Stage|CCus tomStage.C C_GUI|CCus tomStage|C CustomStag e.CC_GUI|C Transforme rStage|CCu stomStage| CTransform erStage|CT ransformer Stage|CCus tomStage|C CustomStag e|ID_PALET TEANNOTATI ON|ID_PALE TTEANNOTAT ION|ID_PAL ETTEANNOTA TION|ID_PA LETTEANNOT ATION|ID_P ALETTEANNO TATION|ID_ PALETTEANN OTATION"
  4736         Next StageID "1 90"
  4737         Snap ToGrid "2"
  4738         Grid Lines "0"
  4739         Zoom Value "100 "
  4740         Stag eXSize "48 |48|179|48 |48|48|48| 48|48|48|1 21|121|137 |121|136|2 07"
  4741         Stag eYSize "48 |48|52|48| 57|48|48|4 8|48|48|39 |39|182|39 |50|51"
  4742         Cont ainerViewS izing "000 8 0081 084 9 0582 000 0 0001 021 5 0002"
  4743         Stag eNames "Xf m_BusRules |DIM_VA_CL AIM|Lkp_Di mVaClaim|D IM_DIAGNOS IS_CODE|ge nRecsByCod e|Ds_Claim Diagnosis| Xfrm_Claim Diagnosis| Fmt_DiagCo des|DepupR ows|ds_EDI 837P_Confo rmed| | |  | | | "
  4744         Stag eTypeIDs " CTransform erStage|OD BCConnecto rPX|PxLook up|ODBCCon nectorPX|C Transforme rStage|PxD ataSet|CTr ansformerS tage|CTran sformerSta ge|PxRemDu p|PxDataSe t| | | | |  | "
  4745         Link Names "Bus Rls|DimVaC laim|Lkp_D imVaClaim| DimDiagnos isCode|gen RecsByCode | |ClmDiag n_out|FmtD iagCodes|D epupRows|X frmSrc| |  | | | | "
  4746         Link HasMetaDat as "True|T rue|True|T rue|True|  |True|True |True|True | | | | |  | "
  4747         Link Types "1|2 |1|2|1| |1 |1|1|1| |  | | | | "
  4748         Link NamePositi onXs "422| 789|1031|9 59|589| |1 336|755|11 59|290| |  | | | | "
  4749         Link NamePositi onYs "286| 143|285|14 8|285| |28 5|282|267| 287| | | |  | | "
  4750         Targ etStageIDs  "V121S0|V 0S114|V0S1 79|V0S114| V0S176| |V 123S0|V0S1 14|V124S0| V81S2| | |  | | | "
  4751         Sour ceStageEff ectiveExec utionModes  "2|2|2|2| 2| |1|2|2| 1| | | | |  | "
  4752         Sour ceStageRun timeExecut ionModes " 2|2|2|2|2|  |1|2|2|1|  | | | | |  "
  4753         Targ etStageEff ectiveExec utionModes  "2|2|2|2| 2| |2|2|1| 2| | | | |  | "
  4754         Targ etStageRun timeExecut ionModes " 2|2|2|2|2|  |2|2|1|2|  | | | | |  "
  4755         Link IsSingleOp eratorLook up "False| False|Fals e|False|Fa lse| |Fals e|False|Fa lse|False|  | | | | |  "
  4756         Link IsSortSequ ential "Fa lse|False| False|Fals e|False| | False|Fals e|False|Fa lse| | | |  | | "
  4757         Link SortMode " 0|0|0|0|0|  |0|0|0|0|  | | | | |  "
  4758         Link PartColMod e "1|2|1|2 |1| |8|8|1 |8| | | |  | | "
  4759         Link SourcePinI Ds "V81S2P 2|V107S0P1 |V0S114P9| V112S0P1|V 121S0P2| | V124S0P3|V 0S176P2|V0 S179P2|V12 8S0P2| | |  | | | "
  4760      END DSR ECORD
  4761      BEGIN D SRECORD
  4762         Iden tifier "V0 S114"
  4763         OLET ype "CCust omStage"
  4764         Read only "0"
  4765         Name  "Lkp_DimV aClaim"
  4766         Next ID "21"
  4767         Inpu tPins "V0S 114P2|V0S1 14P8|V0S11 4P20"
  4768         Outp utPins "V0 S114P9"
  4769         Stag eType "PxL ookup"
  4770         Allo wColumnMap ping "0"
  4771         Prop erties "CC ustomPrope rty"
  4772         BEGI N DSSUBREC ORD
  4773            N ame "compi leopt"
  4774         END  DSSUBRECOR D
  4775         BEGI N DSSUBREC ORD
  4776            N ame "linko pt"
  4777         END  DSSUBRECOR D
  4778         Meta Bag "CMeta Property"
  4779         BEGI N DSSUBREC ORD
  4780            O wner "APT"
  4781            N ame "Looku pOperator"
  4782            V alue "tran sform"
  4783         END  DSSUBRECOR D
  4784         BEGI N DSSUBREC ORD
  4785            O wner "APT"
  4786            N ame "TrxGe nCode"
  4787            V alue =+=+= +=
  4788   //
  4789   // Generat ed file to  implement  the V0S11 4_EDI837P_ CLAIM_DIAG NOSIS_prep _Lkp_DimVa Claim tran sform oper ator.
  4790   //
  4791  
  4792   // define  our input/ output lin k names
  4793   inputname  0 FmtDiagC odes;
  4794   tablename  0 DimVaCla im;
  4795   tablename  1 DimDiagn osisCode;
  4796   outputname  0 Lkp_Dim VaClaim;
  4797  
  4798   initialize  {
  4799    // define  our contr ol variabl es
  4800    int8 RowR ejected0;
  4801    int8 Null SetVar0;
  4802  
  4803   }
  4804  
  4805   mainloop {
  4806  
  4807   // no cond ition for  lookup lin k: DimVaCl aim
  4808   lookup(Dim VaClaim);
  4809   // no cond ition for  lookup lin k: DimDiag nosisCode
  4810   lookup(Dim DiagnosisC ode);
  4811   if (!is_ma tch(DimDia gnosisCode )) {
  4812    droprecor d 0;
  4813   };
  4814    // initia lise the r ejected ro w variable
  4815    RowReject ed0 = 1;
  4816  
  4817    // evalua te columns  (no const raints) fo r link: Lk p_DimVaCla im
  4818    Lkp_DimVa Claim.clai m_key = Di mVaClaim.c laim_key;
  4819    Lkp_DimVa Claim.DIAG NOSIS_key  = DimDiagn osisCode.D IAGNOSIS_k ey;
  4820    Lkp_DimVa Claim.sour ce_entity  = FmtDiagC odes.sourc e_entity;
  4821    writereco rd 0;
  4822    RowReject ed0 = 0;
  4823   }
  4824  
  4825   finish {
  4826   }
  4827  
  4828   =+=+=+=
  4829         END  DSSUBRECOR D
  4830         BEGI N DSSUBREC ORD
  4831            O wner "APT"
  4832            N ame "TrxCl assName"
  4833            V alue "V0S1 14_EDI837P _CLAIM_DIA GNOSIS_pre p_Lkp_DimV aClaim"
  4834         END  DSSUBRECOR D
  4835         Next RecordID " 0"
  4836      END DSR ECORD
  4837      BEGIN D SRECORD
  4838         Iden tifier "V0 S114P2"
  4839         OLET ype "CCust omInput"
  4840         Read only "0"
  4841         Name  "DimVaCla im"
  4842         Part ner "V107S 0|V107S0P1 "
  4843         Link Type "2"
  4844         Cond itionNotMe t "continu e"
  4845         Look upFail "co ntinue"
  4846         Prop erties "CC ustomPrope rty"
  4847         BEGI N DSSUBREC ORD
  4848            N ame "allow _dups"
  4849            V alue " "
  4850         END  DSSUBRECOR D
  4851         BEGI N DSSUBREC ORD
  4852            N ame "save"
  4853         END  DSSUBRECOR D
  4854         BEGI N DSSUBREC ORD
  4855            N ame "diskp ool"
  4856         END  DSSUBRECOR D
  4857         Meta Bag "CMeta Property"
  4858         BEGI N DSSUBREC ORD
  4859            O wner "APT"
  4860            N ame "RTCol umnProp"
  4861            V alue "0"
  4862         END  DSSUBRECOR D
  4863         BEGI N DSSUBREC ORD
  4864            O wner "APT"
  4865            N ame "SeqSo rt"
  4866            V alue "0"
  4867         END  DSSUBRECOR D
  4868         BEGI N DSSUBREC ORD
  4869            O wner "APT"
  4870            N ame "Looku pOptions"
  4871            V alue =+=+= +=
  4872   -table
  4873   -key claim _id
  4874   -key sourc e_entity
  4875   -key etl_b atch_id
  4876  
  4877   =+=+=+=
  4878         END  DSSUBRECOR D
  4879         BEGI N DSSUBREC ORD
  4880            O wner "APT"
  4881            N ame "Schem a"
  4882            V alue =+=+= +=
  4883   record
  4884   (
  4885     claim_ke y:int32;
  4886     claim_id :nullable  string[max =20];
  4887     source_e ntity:null able strin g[max=50];
  4888     etl_batc h_id:nulla ble string [max=20];
  4889   )
  4890   =+=+=+=
  4891         END  DSSUBRECOR D
  4892         BEGI N DSSUBREC ORD
  4893            O wner "APT"
  4894            N ame "Part/ Col"
  4895            V alue "enti re"
  4896         END  DSSUBRECOR D
  4897         BEGI N DSSUBREC ORD
  4898            O wner "APT"
  4899            N ame "SortA dv"
  4900            V alue "-non Stable"
  4901         END  DSSUBRECOR D
  4902         Tran sactionSiz e "0"
  4903         TXNB ehaviour " 0"
  4904         Enab leTxGroup  "0"
  4905         Link Minimised  "0"
  4906      END DSR ECORD
  4907      BEGIN D SRECORD
  4908         Iden tifier "V0 S114P20"
  4909         OLET ype "CCust omInput"
  4910         Read only "0"
  4911         Name  "FmtDiagC odes"
  4912         Part ner "V0S17 6|V0S176P2 "
  4913         Link Type "1"
  4914         Cond itionNotMe t "fail"
  4915         Look upFail "fa il"
  4916         Prop erties "CC ustomPrope rty"
  4917         BEGI N DSSUBREC ORD
  4918            N ame "allow _dups"
  4919            V alue " "
  4920         END  DSSUBRECOR D
  4921         Meta Bag "CMeta Property"
  4922         BEGI N DSSUBREC ORD
  4923            O wner "APT"
  4924            N ame "RTCol umnProp"
  4925            V alue "0"
  4926         END  DSSUBRECOR D
  4927         BEGI N DSSUBREC ORD
  4928            O wner "APT"
  4929            N ame "Schem a"
  4930            V alue =+=+= +=
  4931   record
  4932   (
  4933     claim_id :nullable  string[max =20];
  4934     ICDVersi on:nullabl e string[m ax=15];
  4935     diagnose s_qualif:n ullable st ring[max=1 0];
  4936     diagnose s_code:nul lable stri ng[max=30] ;
  4937     is_curre nt:string[ 1];
  4938     start_da te:nullabl e date;
  4939     end_date :nullable  date;
  4940     source_s ystem:null able strin g[max=20];
  4941     source_e ntity:null able strin g[max=50];
  4942     row_id:n ullable st ring[max=2 0];
  4943     etl_batc h_id:nulla ble string [max=20];
  4944   )
  4945   =+=+=+=
  4946         END  DSSUBRECOR D
  4947         BEGI N DSSUBREC ORD
  4948            O wner "APT"
  4949            N ame "SeqSo rt"
  4950            V alue "0"
  4951         END  DSSUBRECOR D
  4952         BEGI N DSSUBREC ORD
  4953            O wner "APT"
  4954            N ame "Part/ Col"
  4955            V alue "same "
  4956         END  DSSUBRECOR D
  4957         BEGI N DSSUBREC ORD
  4958            O wner "APT"
  4959            N ame "SortA dv"
  4960            V alue "-non Stable"
  4961         END  DSSUBRECOR D
  4962         Tran sactionSiz e "0"
  4963         TXNB ehaviour " 0"
  4964         Enab leTxGroup  "0"
  4965         Link Minimised  "0"
  4966      END DSR ECORD
  4967      BEGIN D SRECORD
  4968         Iden tifier "V0 S114P8"
  4969         OLET ype "CCust omInput"
  4970         Read only "0"
  4971         Name  "DimDiagn osisCode"
  4972         Part ner "V112S 0|V112S0P1 "
  4973         Link Type "2"
  4974         Cond itionNotMe t "continu e"
  4975         Look upFail "re ject"
  4976         Prop erties "CC ustomPrope rty"
  4977         BEGI N DSSUBREC ORD
  4978            N ame "allow _dups"
  4979            V alue " "
  4980         END  DSSUBRECOR D
  4981         BEGI N DSSUBREC ORD
  4982            N ame "save"
  4983         END  DSSUBRECOR D
  4984         BEGI N DSSUBREC ORD
  4985            N ame "diskp ool"
  4986         END  DSSUBRECOR D
  4987         Meta Bag "CMeta Property"
  4988         BEGI N DSSUBREC ORD
  4989            O wner "APT"
  4990            N ame "RTCol umnProp"
  4991            V alue "0"
  4992         END  DSSUBRECOR D
  4993         BEGI N DSSUBREC ORD
  4994            O wner "APT"
  4995            N ame "SeqSo rt"
  4996            V alue "0"
  4997         END  DSSUBRECOR D
  4998         BEGI N DSSUBREC ORD
  4999            O wner "APT"
  5000            N ame "Looku pOptions"
  5001            V alue =+=+= +=
  5002   -table
  5003   -key diagn oses_code
  5004  
  5005   =+=+=+=
  5006         END  DSSUBRECOR D
  5007         BEGI N DSSUBREC ORD
  5008            O wner "APT"
  5009            N ame "Schem a"
  5010            V alue =+=+= +=
  5011   record
  5012   (
  5013     DIAGNOSI S_key:int3 2;
  5014     diagnose s_code:nul lable stri ng[max=30] ;
  5015   )
  5016   =+=+=+=
  5017         END  DSSUBRECOR D
  5018         BEGI N DSSUBREC ORD
  5019            O wner "APT"
  5020            N ame "Part/ Col"
  5021            V alue "enti re"
  5022         END  DSSUBRECOR D
  5023         BEGI N DSSUBREC ORD
  5024            O wner "APT"
  5025            N ame "SortA dv"
  5026            V alue "-non Stable"
  5027         END  DSSUBRECOR D
  5028         Tran sactionSiz e "0"
  5029         TXNB ehaviour " 0"
  5030         Enab leTxGroup  "0"
  5031         Link Minimised  "0"
  5032      END DSR ECORD
  5033      BEGIN D SRECORD
  5034         Iden tifier "V0 S114P9"
  5035         OLET ype "CCust omOutput"
  5036         Read only "0"
  5037         Name  "Lkp_DimV aClaim"
  5038         Part ner "V0S17 9|V0S179P1 "
  5039         Colu mns "COutp utColumn"
  5040         BEGI N DSSUBREC ORD
  5041            N ame "claim _key"
  5042            D escription  =+=+=+=
  5043   <none>
  5044   Searchable ? N 
  5045   =+=+=+=
  5046            S qlType "4"
  5047            P recision " 10"
  5048            S cale "0"
  5049            N ullable "0 "
  5050            K eyPosition  "0"
  5051            D isplaySize  "11"
  5052            D erivation  "DimVaClai m.claim_ke y"
  5053            G roup "0"
  5054            P arsedDeriv ation "Dim VaClaim.cl aim_key"
  5055            S ourceColum n "DimVaCl aim.claim_ key"
  5056            S ortKey "0"
  5057            S ortType "0 "
  5058            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  5059            A llowCRLF " 0"
  5060            L evelNo "0"
  5061            O ccurs "0"
  5062            P adNulls "0 "
  5063            S ignOption  "0"
  5064            S ortingOrde r "0"
  5065            A rrayHandli ng "0"
  5066            S yncIndicat or "0"
  5067            P adChar ""
  5068            C olumnRefer ence "clai m_key"
  5069            A PTFieldPro p "quote=n one"
  5070            E xtendedPre cision "0"
  5071            T aggedSubre c "0"
  5072            O ccursVaryi ng "0"
  5073            P KeyIsCasel ess "0"
  5074            S CDPurpose  "0"
  5075         END  DSSUBRECOR D
  5076         BEGI N DSSUBREC ORD
  5077            N ame "DIAGN OSIS_key"
  5078            D escription  =+=+=+=
  5079   <none>
  5080   Searchable ? N 
  5081   =+=+=+=
  5082            S qlType "4"
  5083            P recision " 10"
  5084            S cale "0"
  5085            N ullable "1 "
  5086            K eyPosition  "0"
  5087            D isplaySize  "11"
  5088            D erivation  "DimDiagno sisCode.DI AGNOSIS_ke y"
  5089            G roup "0"
  5090            P arsedDeriv ation "Dim DiagnosisC ode.DIAGNO SIS_key"
  5091            S ourceColum n "DimDiag nosisCode. DIAGNOSIS_ key"
  5092            S ortKey "0"
  5093            S ortType "0 "
  5094            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  5095            A llowCRLF " 0"
  5096            L evelNo "0"
  5097            O ccurs "0"
  5098            P adNulls "0 "
  5099            S ignOption  "0"
  5100            S ortingOrde r "0"
  5101            A rrayHandli ng "0"
  5102            S yncIndicat or "0"
  5103            P adChar ""
  5104            C olumnRefer ence "paye r_key"
  5105            A PTFieldPro p "quote=n one"
  5106            E xtendedPre cision "0"
  5107            T aggedSubre c "0"
  5108            O ccursVaryi ng "0"
  5109            P KeyIsCasel ess "0"
  5110            S CDPurpose  "0"
  5111         END  DSSUBRECOR D
  5112         BEGI N DSSUBREC ORD
  5113            N ame "ICDVe rsion"
  5114            S qlType "12 "
  5115            P recision " 15"
  5116            S cale "0"
  5117            N ullable "1 "
  5118            K eyPosition  "0"
  5119            D isplaySize  "0"
  5120            D erivation  "FmtDiagCo des.ICDVer sion"
  5121            G roup "0"
  5122            P arsedDeriv ation "Fmt DiagCodes. ICDVersion "
  5123            S ourceColum n "FmtDiag Codes.ICDV ersion"
  5124            S ortKey "0"
  5125            S ortType "0 "
  5126            A llowCRLF " 0"
  5127            L evelNo "0"
  5128            O ccurs "0"
  5129            P adNulls "0 "
  5130            S ignOption  "0"
  5131            S ortingOrde r "0"
  5132            A rrayHandli ng "0"
  5133            S yncIndicat or "0"
  5134            P adChar ""
  5135            E xtendedPre cision "0"
  5136            T aggedSubre c "0"
  5137            O ccursVaryi ng "0"
  5138            P KeyIsCasel ess "0"
  5139            S CDPurpose  "0"
  5140         END  DSSUBRECOR D
  5141         BEGI N DSSUBREC ORD
  5142            N ame "is_cu rrent"
  5143            S qlType "1"
  5144            P recision " 1"
  5145            S cale "0"
  5146            N ullable "0 "
  5147            K eyPosition  "0"
  5148            D isplaySize  "0"
  5149            D erivation  "FmtDiagCo des.is_cur rent"
  5150            G roup "0"
  5151            P arsedDeriv ation "Fmt DiagCodes. is_current "
  5152            S ourceColum n "FmtDiag Codes.is_c urrent"
  5153            S ortKey "0"
  5154            S ortType "0 "
  5155            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5156            A llowCRLF " 0"
  5157            L evelNo "0"
  5158            N ativeType  "pit_boole an"
  5159            O ccurs "0"
  5160            P adNulls "0 "
  5161            S ignOption  "0"
  5162            S ortingOrde r "0"
  5163            A rrayHandli ng "0"
  5164            S yncIndicat or "0"
  5165            P adChar ""
  5166            C olumnRefer ence "is_c urrent"
  5167            E xtendedPre cision "0"
  5168            T aggedSubre c "0"
  5169            O ccursVaryi ng "0"
  5170            P KeyIsCasel ess "0"
  5171            S CDPurpose  "0"
  5172         END  DSSUBRECOR D
  5173         BEGI N DSSUBREC ORD
  5174            N ame "start _date"
  5175            S qlType "9"
  5176            P recision " 10"
  5177            S cale "0"
  5178            N ullable "1 "
  5179            K eyPosition  "0"
  5180            D isplaySize  "0"
  5181            D erivation  "FmtDiagCo des.start_ date"
  5182            G roup "0"
  5183            P arsedDeriv ation "Fmt DiagCodes. start_date "
  5184            S ourceColum n "FmtDiag Codes.star t_date"
  5185            S ortKey "0"
  5186            S ortType "0 "
  5187            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5188            A llowCRLF " 0"
  5189            L evelNo "0"
  5190            N ativeType  "pit_date"
  5191            O ccurs "0"
  5192            P adNulls "0 "
  5193            S ignOption  "0"
  5194            S ortingOrde r "0"
  5195            A rrayHandli ng "0"
  5196            S yncIndicat or "0"
  5197            P adChar ""
  5198            C olumnRefer ence "star t_date"
  5199            E xtendedPre cision "0"
  5200            T aggedSubre c "0"
  5201            O ccursVaryi ng "0"
  5202            P KeyIsCasel ess "0"
  5203            S CDPurpose  "0"
  5204         END  DSSUBRECOR D
  5205         BEGI N DSSUBREC ORD
  5206            N ame "end_d ate"
  5207            S qlType "9"
  5208            P recision " 10"
  5209            S cale "0"
  5210            N ullable "1 "
  5211            K eyPosition  "0"
  5212            D isplaySize  "0"
  5213            D erivation  "FmtDiagCo des.end_da te"
  5214            G roup "0"
  5215            P arsedDeriv ation "Fmt DiagCodes. end_date"
  5216            S ourceColum n "FmtDiag Codes.end_ date"
  5217            S ortKey "0"
  5218            S ortType "0 "
  5219            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5220            A llowCRLF " 0"
  5221            L evelNo "0"
  5222            N ativeType  "pit_end_d ate"
  5223            O ccurs "0"
  5224            P adNulls "0 "
  5225            S ignOption  "0"
  5226            S ortingOrde r "0"
  5227            A rrayHandli ng "0"
  5228            S yncIndicat or "0"
  5229            P adChar ""
  5230            C olumnRefer ence "end_ date"
  5231            E xtendedPre cision "0"
  5232            T aggedSubre c "0"
  5233            O ccursVaryi ng "0"
  5234            P KeyIsCasel ess "0"
  5235            S CDPurpose  "0"
  5236         END  DSSUBRECOR D
  5237         BEGI N DSSUBREC ORD
  5238            N ame "sourc e_system"
  5239            S qlType "12 "
  5240            P recision " 20"
  5241            S cale "0"
  5242            N ullable "1 "
  5243            K eyPosition  "0"
  5244            D isplaySize  "0"
  5245            D erivation  "FmtDiagCo des.source _system"
  5246            G roup "0"
  5247            P arsedDeriv ation "Fmt DiagCodes. source_sys tem"
  5248            S ourceColum n "FmtDiag Codes.sour ce_system"
  5249            S ortKey "0"
  5250            S ortType "0 "
  5251            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5252            A llowCRLF " 0"
  5253            L evelNo "0"
  5254            N ativeType  "varchar"
  5255            O ccurs "0"
  5256            P adNulls "0 "
  5257            S ignOption  "0"
  5258            S ortingOrde r "0"
  5259            A rrayHandli ng "0"
  5260            S yncIndicat or "0"
  5261            P adChar ""
  5262            C olumnRefer ence "sour ce_system"
  5263            E xtendedPre cision "0"
  5264            T aggedSubre c "0"
  5265            O ccursVaryi ng "0"
  5266            P KeyIsCasel ess "0"
  5267            S CDPurpose  "0"
  5268         END  DSSUBRECOR D
  5269         BEGI N DSSUBREC ORD
  5270            N ame "sourc e_entity"
  5271            S qlType "-9 "
  5272            P recision " 50"
  5273            S cale "0"
  5274            N ullable "1 "
  5275            K eyPosition  "0"
  5276            D isplaySize  "0"
  5277            D erivation  "FmtDiagCo des.source _entity"
  5278            G roup "0"
  5279            P arsedDeriv ation "Fmt DiagCodes. source_ent ity"
  5280            S ourceColum n "FmtDiag Codes.sour ce_entity"
  5281            S ortKey "0"
  5282            S ortType "0 "
  5283            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5284            A llowCRLF " 0"
  5285            L evelNo "0"
  5286            N ativeType  "pit_long_ name"
  5287            O ccurs "0"
  5288            P adNulls "0 "
  5289            S ignOption  "0"
  5290            S ortingOrde r "0"
  5291            A rrayHandli ng "0"
  5292            S yncIndicat or "0"
  5293            P adChar ""
  5294            C olumnRefer ence "sour ce_entity"
  5295            E xtendedPre cision "0"
  5296            T aggedSubre c "0"
  5297            O ccursVaryi ng "0"
  5298            P KeyIsCasel ess "0"
  5299            S CDPurpose  "0"
  5300         END  DSSUBRECOR D
  5301         BEGI N DSSUBREC ORD
  5302            N ame "row_i d"
  5303            S qlType "12 "
  5304            P recision " 20"
  5305            S cale "0"
  5306            N ullable "1 "
  5307            K eyPosition  "0"
  5308            D isplaySize  "0"
  5309            D erivation  "FmtDiagCo des.row_id "
  5310            G roup "0"
  5311            P arsedDeriv ation "Fmt DiagCodes. row_id"
  5312            S ourceColum n "FmtDiag Codes.row_ id"
  5313            S ortKey "0"
  5314            S ortType "0 "
  5315            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5316            A llowCRLF " 0"
  5317            L evelNo "0"
  5318            N ativeType  "varchar"
  5319            O ccurs "0"
  5320            P adNulls "0 "
  5321            S ignOption  "0"
  5322            S ortingOrde r "0"
  5323            A rrayHandli ng "0"
  5324            S yncIndicat or "0"
  5325            P adChar ""
  5326            C olumnRefer ence "row_ id"
  5327            E xtendedPre cision "0"
  5328            T aggedSubre c "0"
  5329            O ccursVaryi ng "0"
  5330            P KeyIsCasel ess "0"
  5331            S CDPurpose  "0"
  5332         END  DSSUBRECOR D
  5333         BEGI N DSSUBREC ORD
  5334            N ame "etl_b atch_id"
  5335            S qlType "12 "
  5336            P recision " 20"
  5337            S cale "0"
  5338            N ullable "1 "
  5339            K eyPosition  "0"
  5340            D isplaySize  "0"
  5341            D erivation  "FmtDiagCo des.etl_ba tch_id"
  5342            G roup "0"
  5343            P arsedDeriv ation "Fmt DiagCodes. etl_batch_ id"
  5344            S ourceColum n "FmtDiag Codes.etl_ batch_id"
  5345            S ortKey "0"
  5346            S ortType "0 "
  5347            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5348            A llowCRLF " 0"
  5349            L evelNo "0"
  5350            N ativeType  "varchar"
  5351            O ccurs "0"
  5352            P adNulls "0 "
  5353            S ignOption  "0"
  5354            S ortingOrde r "0"
  5355            A rrayHandli ng "0"
  5356            S yncIndicat or "0"
  5357            P adChar ""
  5358            C olumnRefer ence "etl_ batch_id"
  5359            E xtendedPre cision "0"
  5360            T aggedSubre c "0"
  5361            O ccursVaryi ng "0"
  5362            P KeyIsCasel ess "0"
  5363            S CDPurpose  "0"
  5364         END  DSSUBRECOR D
  5365         BEGI N DSSUBREC ORD
  5366            N ame "diagn oses_code"
  5367            D escription  =+=+=+=
  5368   <none>
  5369   Searchable ? N 
  5370   =+=+=+=
  5371            S qlType "12 "
  5372            P recision " 30"
  5373            S cale "0"
  5374            N ullable "1 "
  5375            K eyPosition  "0"
  5376            D isplaySize  "15"
  5377            D erivation  "FmtDiagCo des.diagno ses_code"
  5378            G roup "0"
  5379            P arsedDeriv ation "Fmt DiagCodes. diagnoses_ code"
  5380            S ourceColum n "FmtDiag Codes.diag noses_code "
  5381            S ortKey "0"
  5382            S ortType "0 "
  5383            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  5384            A llowCRLF " 0"
  5385            L evelNo "0"
  5386            O ccurs "0"
  5387            P adNulls "0 "
  5388            S ignOption  "0"
  5389            S ortingOrde r "0"
  5390            A rrayHandli ng "0"
  5391            S yncIndicat or "0"
  5392            P adChar ""
  5393            C olumnRefer ence "oral _cavity_de signation_ code"
  5394            A PTFieldPro p "null_fi eld=''"
  5395            E xtendedPre cision "0"
  5396            T aggedSubre c "0"
  5397            O ccursVaryi ng "0"
  5398            P KeyIsCasel ess "0"
  5399            S CDPurpose  "0"
  5400         END  DSSUBRECOR D
  5401         BEGI N DSSUBREC ORD
  5402            N ame "diagn oses_quali f"
  5403            D escription  =+=+=+=
  5404   <none>
  5405   Searchable ? N 
  5406   =+=+=+=
  5407            S qlType "12 "
  5408            P recision " 10"
  5409            S cale "0"
  5410            N ullable "1 "
  5411            K eyPosition  "0"
  5412            D isplaySize  "15"
  5413            D erivation  "FmtDiagCo des.diagno ses_qualif "
  5414            G roup "0"
  5415            P arsedDeriv ation "Fmt DiagCodes. diagnoses_ qualif"
  5416            S ourceColum n "FmtDiag Codes.diag noses_qual if"
  5417            S ortKey "0"
  5418            S ortType "0 "
  5419            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  5420            A llowCRLF " 0"
  5421            L evelNo "0"
  5422            O ccurs "0"
  5423            P adNulls "0 "
  5424            S ignOption  "0"
  5425            S ortingOrde r "0"
  5426            A rrayHandli ng "0"
  5427            S yncIndicat or "0"
  5428            P adChar ""
  5429            C olumnRefer ence "oral _cavity_de signation_ code"
  5430            A PTFieldPro p "null_fi eld=''"
  5431            E xtendedPre cision "0"
  5432            T aggedSubre c "0"
  5433            O ccursVaryi ng "0"
  5434            P KeyIsCasel ess "0"
  5435            S CDPurpose  "0"
  5436         END  DSSUBRECOR D
  5437         Meta Bag "CMeta Property"
  5438         BEGI N DSSUBREC ORD
  5439            O wner "APT"
  5440            N ame "DiskW riteInc"
  5441            V alue "1048 576"
  5442         END  DSSUBRECOR D
  5443         BEGI N DSSUBREC ORD
  5444            O wner "APT"
  5445            N ame "BufFr eeRun"
  5446            V alue "50"
  5447         END  DSSUBRECOR D
  5448         BEGI N DSSUBREC ORD
  5449            O wner "APT"
  5450            N ame "MaxMe mBufSize"
  5451            V alue "3145 728"
  5452         END  DSSUBRECOR D
  5453         BEGI N DSSUBREC ORD
  5454            O wner "APT"
  5455            N ame "Queue UpperSize"
  5456            V alue "0"
  5457         END  DSSUBRECOR D
  5458         BEGI N DSSUBREC ORD
  5459            O wner "APT"
  5460            N ame "Schem a"
  5461            V alue =+=+= +=
  5462   record
  5463   (
  5464     claim_ke y:int32;
  5465     DIAGNOSI S_key:null able int32 ;
  5466     ICDVersi on:nullabl e string[m ax=15];
  5467     is_curre nt:string[ 1];
  5468     start_da te:nullabl e date;
  5469     end_date :nullable  date;
  5470     source_s ystem:null able strin g[max=20];
  5471     source_e ntity:null able ustri ng[max=50] ;
  5472     row_id:n ullable st ring[max=2 0];
  5473     etl_batc h_id:nulla ble string [max=20];
  5474     diagnose s_code:nul lable stri ng[max=30] ;
  5475     diagnose s_qualif:n ullable st ring[max=1 0];
  5476   )
  5477   =+=+=+=
  5478         END  DSSUBRECOR D
  5479         Left TextPos "1 031"
  5480         TopT extPos "28 5"
  5481         Link Minimised  "0"
  5482      END DSR ECORD
  5483      BEGIN D SRECORD
  5484         Iden tifier "V0 S176"
  5485         OLET ype "CTran sformerSta ge"
  5486         Read only "0"
  5487         Name  "Fmt_Diag Codes"
  5488         Next ID "3"
  5489         Inpu tPins "V0S 176P1"
  5490         Outp utPins "V0 S176P2"
  5491         Meta Bag "CMeta Property"
  5492         BEGI N DSSUBREC ORD
  5493            O wner "APT"
  5494            N ame "TrxGe nCode"
  5495            V alue =+=+= +=
  5496   //
  5497   // Generat ed file to  implement  the V0S17 6_EDI837P_ CLAIM_DIAG NOSIS_prep _Fmt_DiagC odes trans form opera tor.
  5498   //
  5499  
  5500   // define  our input/ output lin k names
  5501   inputname  0 genRecsB yCode;
  5502   outputname  0 FmtDiag Codes;
  5503  
  5504   initialize  {
  5505    // define  our contr ol variabl es
  5506    int8 RowR ejected0;
  5507    int8 Null SetVar0;
  5508  
  5509    // declar e our inte rmediate v ariables f or this se ction (1)
  5510    string In terVar0_0;
  5511    string In terVar0_1;
  5512    string In terVar0_2;
  5513    string In terVar0_3;
  5514    string In terVar0_4;
  5515    string In terVar0_5;
  5516    string In terVar0_6;
  5517    string In terVar0_7;
  5518  
  5519    // initia lise const ant values  which req uire conve rsion
  5520    InterVar0 _0 = "BK";
  5521    InterVar0 _1 = "BF";
  5522    InterVar0 _2 = "ICD9 ";
  5523    InterVar0 _3 = "ABK" ;
  5524    InterVar0 _4 = "ABF" ;
  5525    InterVar0 _5 = "ICD1 0";
  5526    InterVar0 _6 = "E";
  5527    InterVar0 _7 = ".";
  5528    // Stage  variable d eclaration  and initi alisation
  5529    string St ageVar0_vI CDVersion;
  5530    StageVar0 _vICDVersi on = "";
  5531   }
  5532  
  5533   mainloop {
  5534  
  5535    // declar e our inte rmediate v ariables f or this se ction (2)
  5536    int32 Int erVar0_8;
  5537    int32 Int erVar0_9;
  5538    int32 Int erVar0_10;
  5539  
  5540    // evalua te the sta ge variabl es first
  5541    NullSetVa r0 = 0;
  5542    if (((gen RecsByCode .diagnoses _qualif ==  InterVar0 _0) || (ge nRecsByCod e.diagnose s_qualif = = InterVar 0_1))) {
  5543     StageVar 0_vICDVers ion = Inte rVar0_2;
  5544    } else {
  5545     if (((ge nRecsByCod e.diagnose s_qualif = = InterVar 0_3) || (g enRecsByCo de.diagnos es_qualif  == InterVa r0_4))) {
  5546      StageVa r0_vICDVer sion = Int erVar0_5;
  5547     } else {
  5548      NullSet Var0 = 1;
  5549     }
  5550     //;
  5551    }
  5552    StageVar0 _vICDVersi on = ((Nul lSetVar0 = = 1) ? set _null() :  StageVar0_ vICDVersio n);
  5553  
  5554    // initia lise the r ejected ro w variable
  5555    RowReject ed0 = 1;
  5556  
  5557    // evalua te constra int and co lumns for  link: FmtD iagCodes
  5558    if (((gen RecsByCode .diagnoses _qualif ==  InterVar0 _3) || (ge nRecsByCod e.diagnose s_qualif = = InterVar 0_4)))
  5559    {
  5560     FmtDiagC odes.ICDVe rsion = St ageVar0_vI CDVersion;
  5561     if ((str ing_length (genRecsBy Code.diagn oses_code)  > 3)) {
  5562      if ((up per_case(s ubstring_1 (genRecsBy Code.diagn oses_code  , 1 , 1))  == InterVa r0_6)) {
  5563       if ((s tring_leng th(genRecs ByCode.dia gnoses_cod e) > 4)) {
  5564        if (( StageVar0_ vICDVersio n == Inter Var0_2)) {
  5565         Inte rVar0_8 =  string_len gth(genRec sByCode.di agnoses_co de) - 4;
  5566         FmtD iagCodes.d iagnoses_c ode = ((su bstring_1( genRecsByC ode.diagno ses_code ,  1 , 4) +  InterVar0_ 7) + subst ring_1(gen RecsByCode .diagnoses _code , 5  , InterVar 0_8));
  5567        } els e {
  5568         Inte rVar0_9 =  string_len gth(genRec sByCode.di agnoses_co de) - 3;
  5569         FmtD iagCodes.d iagnoses_c ode = ((su bstring_1( genRecsByC ode.diagno ses_code ,  1 , 3) +  InterVar0_ 7) + subst ring_1(gen RecsByCode .diagnoses _code , 4  , InterVar 0_9));
  5570        }
  5571        //;
  5572       } else  {
  5573        FmtDi agCodes.di agnoses_co de = genRe csByCode.d iagnoses_c ode;
  5574       }
  5575       //;
  5576      } else  {
  5577       InterV ar0_10 = s tring_leng th(genRecs ByCode.dia gnoses_cod e) - 3;
  5578       FmtDia gCodes.dia gnoses_cod e = ((subs tring_1(ge nRecsByCod e.diagnose s_code , 1  , 3) + In terVar0_7)  + substri ng_1(genRe csByCode.d iagnoses_c ode , 4 ,  InterVar0_ 10));
  5579      }
  5580      //;
  5581     } else {
  5582      FmtDiag Codes.diag noses_code  = genRecs ByCode.dia gnoses_cod e;
  5583     }
  5584     //;
  5585     writerec ord 0;
  5586     RowRejec ted0 = 0;
  5587    }
  5588   }
  5589  
  5590   finish {
  5591   }
  5592  
  5593   =+=+=+=
  5594         END  DSSUBRECOR D
  5595         BEGI N DSSUBREC ORD
  5596            O wner "APT"
  5597            N ame "TrxGe nCache"
  5598            V alue "0"
  5599         END  DSSUBRECOR D
  5600         BEGI N DSSUBREC ORD
  5601            O wner "APT"
  5602            N ame "TrxCl assName"
  5603            V alue "V0S1 76_EDI837P _CLAIM_DIA GNOSIS_pre p_Fmt_Diag Codes"
  5604         END  DSSUBRECOR D
  5605         Vali dationStat us "0"
  5606         Stag eType "CTr ansformerS tage"
  5607         Bloc kSize "0"
  5608         SKKe ySourceTyp e "file"
  5609         Stag eVars "CSt ageVar"
  5610         BEGI N DSSUBREC ORD
  5611            N ame "vICDV ersion"
  5612            E xpression  "If genRec sByCode.di agnoses_qu alif ='BK'  Or genRec sByCode.di agnoses_qu alif = 'BF ' Then 'IC D9' Else I f genRecsB yCode.diag noses_qual if='ABK' O r genRecsB yCode.diag noses_qual if = 'ABF'  Then 'ICD 10' Else S etNull()"
  5613            S qlType "12 "
  5614            P arsedExpre ssion " If  genRecsBy Code.diagn oses_quali f = 'BK' O r genRecsB yCode.diag noses_qual if = 'BF'  Then 'ICD9 ' Else  If  genRecsBy Code.diagn oses_quali f = 'ABK'  Or genRecs ByCode.dia gnoses_qua lif = 'ABF ' Then 'IC D10' Else  SetNull()"
  5615            S ourceColum n "genRecs ByCode.dia gnoses_qua lif"
  5616            P recision " 15"
  5617            C olScale "0 "
  5618            E xtendedPre cision "0"
  5619         END  DSSUBRECOR D
  5620         Stag eVarsMinim ised "0"
  5621         Loop VarsMaximi sed "0"
  5622         MaxL oopIterati ons "0"
  5623      END DSR ECORD
  5624      BEGIN D SRECORD
  5625         Iden tifier "V0 S176P1"
  5626         OLET ype "CTrxI nput"
  5627         Read only "0"
  5628         Name  "genRecsB yCode"
  5629         Part ner "V121S 0|V121S0P2 "
  5630         Link Type "1"
  5631         Meta Bag "CMeta Property"
  5632         BEGI N DSSUBREC ORD
  5633            O wner "APT"
  5634            N ame "RTCol umnProp"
  5635            V alue "0"
  5636         END  DSSUBRECOR D
  5637         BEGI N DSSUBREC ORD
  5638            O wner "APT"
  5639            N ame "Schem a"
  5640            V alue =+=+= +=
  5641   record
  5642   (
  5643     claim_id :nullable  string[max =20];
  5644     ICDVersi on:nullabl e string[m ax=15];
  5645     diagnose s_qualif:n ullable st ring[max=1 0];
  5646     diagnose s_code:nul lable stri ng[max=30] ;
  5647     is_curre nt:string[ 1];
  5648     start_da te:nullabl e date;
  5649     end_date :nullable  date;
  5650     source_s ystem:null able strin g[max=20];
  5651     source_e ntity:null able strin g[max=50];
  5652     row_id:n ullable st ring[max=2 0];
  5653     etl_batc h_id:nulla ble string [max=20];
  5654   )
  5655   =+=+=+=
  5656         END  DSSUBRECOR D
  5657         Mult iRow "0"
  5658         Link Minimised  "0"
  5659      END DSR ECORD
  5660      BEGIN D SRECORD
  5661         Iden tifier "V0 S176P2"
  5662         OLET ype "CTrxO utput"
  5663         Read only "0"
  5664         Name  "FmtDiagC odes"
  5665         Part ner "V0S11 4|V0S114P2 0"
  5666         Cons traint "ge nRecsByCod e.diagnose s_qualif=' ABK' Or ge nRecsByCod e.diagnose s_qualif =  'ABF' "
  5667         Reje ct "0"
  5668         Erro rPin "0"
  5669         RowL imit "0"
  5670         Pars edConstrai nt "genRec sByCode.di agnoses_qu alif = 'AB K' Or genR ecsByCode. diagnoses_ qualif = ' ABF'"
  5671         Sour ceColumns  "genRecsBy Code.diagn oses_quali f"
  5672         Colu mns "COutp utColumn"
  5673         BEGI N DSSUBREC ORD
  5674            N ame "claim _id"
  5675            S qlType "12 "
  5676            P recision " 20"
  5677            S cale "0"
  5678            N ullable "1 "
  5679            K eyPosition  "0"
  5680            D isplaySize  "0"
  5681            D erivation  "genRecsBy Code.claim _id"
  5682            G roup "0"
  5683            P arsedDeriv ation "gen RecsByCode .claim_id"
  5684            S ourceColum n "genRecs ByCode.cla im_id"
  5685            S ortKey "0"
  5686            S ortType "0 "
  5687            A llowCRLF " 0"
  5688            L evelNo "0"
  5689            O ccurs "0"
  5690            P adNulls "0 "
  5691            S ignOption  "0"
  5692            S ortingOrde r "0"
  5693            A rrayHandli ng "0"
  5694            S yncIndicat or "0"
  5695            P adChar ""
  5696            E xtendedPre cision "0"
  5697            T aggedSubre c "0"
  5698            O ccursVaryi ng "0"
  5699            P KeyIsCasel ess "0"
  5700            S CDPurpose  "0"
  5701         END  DSSUBRECOR D
  5702         BEGI N DSSUBREC ORD
  5703            N ame "ICDVe rsion"
  5704            S qlType "12 "
  5705            P recision " 15"
  5706            S cale "0"
  5707            N ullable "1 "
  5708            K eyPosition  "0"
  5709            D isplaySize  "0"
  5710            D erivation  "vICDVersi on"
  5711            G roup "0"
  5712            P arsedDeriv ation "vIC DVersion"
  5713            S ortKey "0"
  5714            S ortType "0 "
  5715            A llowCRLF " 0"
  5716            L evelNo "0"
  5717            O ccurs "0"
  5718            P adNulls "0 "
  5719            S ignOption  "0"
  5720            S ortingOrde r "0"
  5721            S tageVars " vICDVersio n"
  5722            A rrayHandli ng "0"
  5723            S yncIndicat or "0"
  5724            P adChar ""
  5725            E xtendedPre cision "0"
  5726            T aggedSubre c "0"
  5727            O ccursVaryi ng "0"
  5728            P KeyIsCasel ess "0"
  5729            S CDPurpose  "0"
  5730         END  DSSUBRECOR D
  5731         BEGI N DSSUBREC ORD
  5732            N ame "diagn oses_quali f"
  5733            D escription  =+=+=+=
  5734   <none>
  5735   Searchable ? N 
  5736   =+=+=+=
  5737            S qlType "12 "
  5738            P recision " 10"
  5739            S cale "0"
  5740            N ullable "1 "
  5741            K eyPosition  "0"
  5742            D isplaySize  "15"
  5743            D erivation  "genRecsBy Code.diagn oses_quali f"
  5744            G roup "0"
  5745            P arsedDeriv ation "gen RecsByCode .diagnoses _qualif"
  5746            S ourceColum n "genRecs ByCode.dia gnoses_qua lif"
  5747            S ortKey "0"
  5748            S ortType "0 "
  5749            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  5750            A llowCRLF " 0"
  5751            L evelNo "0"
  5752            O ccurs "0"
  5753            P adNulls "0 "
  5754            S ignOption  "0"
  5755            S ortingOrde r "0"
  5756            A rrayHandli ng "0"
  5757            S yncIndicat or "0"
  5758            P adChar ""
  5759            C olumnRefer ence "oral _cavity_de signation_ code"
  5760            A PTFieldPro p "null_fi eld=''"
  5761            E xtendedPre cision "0"
  5762            T aggedSubre c "0"
  5763            O ccursVaryi ng "0"
  5764            P KeyIsCasel ess "0"
  5765            S CDPurpose  "0"
  5766         END  DSSUBRECOR D
  5767         BEGI N DSSUBREC ORD
  5768            N ame "diagn oses_code"
  5769            D escription  =+=+=+=
  5770   <none>
  5771   Searchable ? N 
  5772   =+=+=+=
  5773            S qlType "12 "
  5774            P recision " 30"
  5775            S cale "0"
  5776            N ullable "1 "
  5777            K eyPosition  "0"
  5778            D isplaySize  "15"
  5779            D erivation  =+=+=+=
  5780   If Len(gen RecsByCode .diagnoses _code) > 3  Then 
  5781           (i f upcase(g enRecsByCo de.diagnos es_code [1 ,1]) ='E'  Then 
  5782                    (If  Len(genRec sByCode.di agnoses_co de) > 4 Th en 
  5783                             (If vI CDVersion= "ICD9" THE N
  5784                                      genRecsB yCode.diag noses_code  [1,4]  :  '.' : genR ecsByCode. diagnoses_ code [5, L en(genRecs ByCode.dia gnoses_cod e) -4]
  5785                             Else g enRecsByCo de.diagnos es_code [1 ,3]  : '.'  : genRecs ByCode.dia gnoses_cod e [4, Len( genRecsByC ode.diagno ses_code)  -3])
  5786                    Else  genRecsBy Code.diagn oses_code)
  5787              Else genRe csByCode.d iagnoses_c ode [1,3]   : '.' : g enRecsByCo de.diagnos es_code [4 , Len(genR ecsByCode. diagnoses_ code) -3])
  5788   Else genRe csByCode.d iagnoses_c ode
  5789   =+=+=+=
  5790            G roup "0"
  5791            P arsedDeriv ation " If  Len(genRe csByCode.d iagnoses_c ode) > 3 T hen ( if u pcase(genR ecsByCode. diagnoses_ code[1, 1] ) = 'E' Th en ( If Le n(genRecsB yCode.diag noses_code ) > 4 Then  ( If vICD Version =  \"ICD9\" T HEN genRec sByCode.di agnoses_co de[1, 4] :  '.' : gen RecsByCode .diagnoses _code[5, L en(genRecs ByCode.dia gnoses_cod e) - 4] El se genRecs ByCode.dia gnoses_cod e[1, 3] :  '.' : genR ecsByCode. diagnoses_ code[4, Le n(genRecsB yCode.diag noses_code ) - 3]) El se genRecs ByCode.dia gnoses_cod e) Else ge nRecsByCod e.diagnose s_code[1,  3] : '.' :  genRecsBy Code.diagn oses_code[ 4, Len(gen RecsByCode .diagnoses _code) - 3 ]) Else ge nRecsByCod e.diagnose s_code"
  5792            S ourceColum n "genRecs ByCode.dia gnoses_cod e"
  5793            S ortKey "0"
  5794            S ortType "0 "
  5795            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  5796            A llowCRLF " 0"
  5797            L evelNo "0"
  5798            O ccurs "0"
  5799            P adNulls "0 "
  5800            S ignOption  "0"
  5801            S ortingOrde r "0"
  5802            S tageVars " vICDVersio n"
  5803            A rrayHandli ng "0"
  5804            S yncIndicat or "0"
  5805            P adChar ""
  5806            C olumnRefer ence "oral _cavity_de signation_ code"
  5807            A PTFieldPro p "null_fi eld=''"
  5808            E xtendedPre cision "0"
  5809            T aggedSubre c "0"
  5810            O ccursVaryi ng "0"
  5811            P KeyIsCasel ess "0"
  5812            S CDPurpose  "0"
  5813         END  DSSUBRECOR D
  5814         BEGI N DSSUBREC ORD
  5815            N ame "is_cu rrent"
  5816            S qlType "1"
  5817            P recision " 1"
  5818            S cale "0"
  5819            N ullable "0 "
  5820            K eyPosition  "0"
  5821            D isplaySize  "0"
  5822            D erivation  "genRecsBy Code.is_cu rrent"
  5823            G roup "0"
  5824            P arsedDeriv ation "gen RecsByCode .is_curren t"
  5825            S ourceColum n "genRecs ByCode.is_ current"
  5826            S ortKey "0"
  5827            S ortType "0 "
  5828            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5829            A llowCRLF " 0"
  5830            L evelNo "0"
  5831            N ativeType  "pit_boole an"
  5832            O ccurs "0"
  5833            P adNulls "0 "
  5834            S ignOption  "0"
  5835            S ortingOrde r "0"
  5836            A rrayHandli ng "0"
  5837            S yncIndicat or "0"
  5838            P adChar ""
  5839            C olumnRefer ence "is_c urrent"
  5840            E xtendedPre cision "0"
  5841            T aggedSubre c "0"
  5842            O ccursVaryi ng "0"
  5843            P KeyIsCasel ess "0"
  5844            S CDPurpose  "0"
  5845         END  DSSUBRECOR D
  5846         BEGI N DSSUBREC ORD
  5847            N ame "start _date"
  5848            S qlType "9"
  5849            P recision " 10"
  5850            S cale "0"
  5851            N ullable "1 "
  5852            K eyPosition  "0"
  5853            D isplaySize  "0"
  5854            D erivation  "genRecsBy Code.start _date"
  5855            G roup "0"
  5856            P arsedDeriv ation "gen RecsByCode .start_dat e"
  5857            S ourceColum n "genRecs ByCode.sta rt_date"
  5858            S ortKey "0"
  5859            S ortType "0 "
  5860            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5861            A llowCRLF " 0"
  5862            L evelNo "0"
  5863            N ativeType  "pit_date"
  5864            O ccurs "0"
  5865            P adNulls "0 "
  5866            S ignOption  "0"
  5867            S ortingOrde r "0"
  5868            A rrayHandli ng "0"
  5869            S yncIndicat or "0"
  5870            P adChar ""
  5871            C olumnRefer ence "star t_date"
  5872            E xtendedPre cision "0"
  5873            T aggedSubre c "0"
  5874            O ccursVaryi ng "0"
  5875            P KeyIsCasel ess "0"
  5876            S CDPurpose  "0"
  5877         END  DSSUBRECOR D
  5878         BEGI N DSSUBREC ORD
  5879            N ame "end_d ate"
  5880            S qlType "9"
  5881            P recision " 10"
  5882            S cale "0"
  5883            N ullable "1 "
  5884            K eyPosition  "0"
  5885            D isplaySize  "0"
  5886            D erivation  "genRecsBy Code.end_d ate"
  5887            G roup "0"
  5888            P arsedDeriv ation "gen RecsByCode .end_date"
  5889            S ourceColum n "genRecs ByCode.end _date"
  5890            S ortKey "0"
  5891            S ortType "0 "
  5892            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5893            A llowCRLF " 0"
  5894            L evelNo "0"
  5895            N ativeType  "pit_end_d ate"
  5896            O ccurs "0"
  5897            P adNulls "0 "
  5898            S ignOption  "0"
  5899            S ortingOrde r "0"
  5900            A rrayHandli ng "0"
  5901            S yncIndicat or "0"
  5902            P adChar ""
  5903            C olumnRefer ence "end_ date"
  5904            E xtendedPre cision "0"
  5905            T aggedSubre c "0"
  5906            O ccursVaryi ng "0"
  5907            P KeyIsCasel ess "0"
  5908            S CDPurpose  "0"
  5909         END  DSSUBRECOR D
  5910         BEGI N DSSUBREC ORD
  5911            N ame "sourc e_system"
  5912            S qlType "12 "
  5913            P recision " 20"
  5914            S cale "0"
  5915            N ullable "1 "
  5916            K eyPosition  "0"
  5917            D isplaySize  "0"
  5918            D erivation  "genRecsBy Code.sourc e_system"
  5919            G roup "0"
  5920            P arsedDeriv ation "gen RecsByCode .source_sy stem"
  5921            S ourceColum n "genRecs ByCode.sou rce_system "
  5922            S ortKey "0"
  5923            S ortType "0 "
  5924            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5925            A llowCRLF " 0"
  5926            L evelNo "0"
  5927            N ativeType  "varchar"
  5928            O ccurs "0"
  5929            P adNulls "0 "
  5930            S ignOption  "0"
  5931            S ortingOrde r "0"
  5932            A rrayHandli ng "0"
  5933            S yncIndicat or "0"
  5934            P adChar ""
  5935            C olumnRefer ence "sour ce_system"
  5936            E xtendedPre cision "0"
  5937            T aggedSubre c "0"
  5938            O ccursVaryi ng "0"
  5939            P KeyIsCasel ess "0"
  5940            S CDPurpose  "0"
  5941         END  DSSUBRECOR D
  5942         BEGI N DSSUBREC ORD
  5943            N ame "sourc e_entity"
  5944            S qlType "12 "
  5945            P recision " 50"
  5946            S cale "0"
  5947            N ullable "1 "
  5948            K eyPosition  "0"
  5949            D isplaySize  "0"
  5950            D erivation  "genRecsBy Code.sourc e_entity"
  5951            G roup "0"
  5952            P arsedDeriv ation "gen RecsByCode .source_en tity"
  5953            S ourceColum n "genRecs ByCode.sou rce_entity "
  5954            S ortKey "0"
  5955            S ortType "0 "
  5956            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5957            A llowCRLF " 0"
  5958            L evelNo "0"
  5959            O ccurs "0"
  5960            P adNulls "0 "
  5961            S ignOption  "0"
  5962            S ortingOrde r "0"
  5963            A rrayHandli ng "0"
  5964            S yncIndicat or "0"
  5965            P adChar ""
  5966            C olumnRefer ence "sour ce_entity"
  5967            E xtendedPre cision "0"
  5968            T aggedSubre c "0"
  5969            O ccursVaryi ng "0"
  5970            P KeyIsCasel ess "0"
  5971            S CDPurpose  "0"
  5972         END  DSSUBRECOR D
  5973         BEGI N DSSUBREC ORD
  5974            N ame "row_i d"
  5975            S qlType "12 "
  5976            P recision " 20"
  5977            S cale "0"
  5978            N ullable "1 "
  5979            K eyPosition  "0"
  5980            D isplaySize  "0"
  5981            D erivation  "genRecsBy Code.row_i d"
  5982            G roup "0"
  5983            P arsedDeriv ation "gen RecsByCode .row_id"
  5984            S ourceColum n "genRecs ByCode.row _id"
  5985            S ortKey "0"
  5986            S ortType "0 "
  5987            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  5988            A llowCRLF " 0"
  5989            L evelNo "0"
  5990            N ativeType  "varchar"
  5991            O ccurs "0"
  5992            P adNulls "0 "
  5993            S ignOption  "0"
  5994            S ortingOrde r "0"
  5995            A rrayHandli ng "0"
  5996            S yncIndicat or "0"
  5997            P adChar ""
  5998            C olumnRefer ence "row_ id"
  5999            E xtendedPre cision "0"
  6000            T aggedSubre c "0"
  6001            O ccursVaryi ng "0"
  6002            P KeyIsCasel ess "0"
  6003            S CDPurpose  "0"
  6004         END  DSSUBRECOR D
  6005         BEGI N DSSUBREC ORD
  6006            N ame "etl_b atch_id"
  6007            S qlType "12 "
  6008            P recision " 20"
  6009            S cale "0"
  6010            N ullable "1 "
  6011            K eyPosition  "0"
  6012            D isplaySize  "0"
  6013            D erivation  "genRecsBy Code.etl_b atch_id"
  6014            G roup "0"
  6015            P arsedDeriv ation "gen RecsByCode .etl_batch _id"
  6016            S ourceColum n "genRecs ByCode.etl _batch_id"
  6017            S ortKey "0"
  6018            S ortType "0 "
  6019            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6020            A llowCRLF " 0"
  6021            L evelNo "0"
  6022            N ativeType  "varchar"
  6023            O ccurs "0"
  6024            P adNulls "0 "
  6025            S ignOption  "0"
  6026            S ortingOrde r "0"
  6027            A rrayHandli ng "0"
  6028            S yncIndicat or "0"
  6029            P adChar ""
  6030            C olumnRefer ence "etl_ batch_id"
  6031            E xtendedPre cision "0"
  6032            T aggedSubre c "0"
  6033            O ccursVaryi ng "0"
  6034            P KeyIsCasel ess "0"
  6035            S CDPurpose  "0"
  6036         END  DSSUBRECOR D
  6037         Meta Bag "CMeta Property"
  6038         BEGI N DSSUBREC ORD
  6039            O wner "APT"
  6040            N ame "DiskW riteInc"
  6041            V alue "1048 576"
  6042         END  DSSUBRECOR D
  6043         BEGI N DSSUBREC ORD
  6044            O wner "APT"
  6045            N ame "BufFr eeRun"
  6046            V alue "50"
  6047         END  DSSUBRECOR D
  6048         BEGI N DSSUBREC ORD
  6049            O wner "APT"
  6050            N ame "MaxMe mBufSize"
  6051            V alue "3145 728"
  6052         END  DSSUBRECOR D
  6053         BEGI N DSSUBREC ORD
  6054            O wner "APT"
  6055            N ame "Queue UpperSize"
  6056            V alue "0"
  6057         END  DSSUBRECOR D
  6058         BEGI N DSSUBREC ORD
  6059            O wner "APT"
  6060            N ame "Schem a"
  6061            V alue =+=+= +=
  6062   record
  6063   (
  6064     claim_id :nullable  string[max =20];
  6065     ICDVersi on:nullabl e string[m ax=15];
  6066     diagnose s_qualif:n ullable st ring[max=1 0];
  6067     diagnose s_code:nul lable stri ng[max=30] ;
  6068     is_curre nt:string[ 1];
  6069     start_da te:nullabl e date;
  6070     end_date :nullable  date;
  6071     source_s ystem:null able strin g[max=20];
  6072     source_e ntity:null able strin g[max=50];
  6073     row_id:n ullable st ring[max=2 0];
  6074     etl_batc h_id:nulla ble string [max=20];
  6075   )
  6076   =+=+=+=
  6077         END  DSSUBRECOR D
  6078         Left TextPos "7 55"
  6079         TopT extPos "28 2"
  6080         Link Minimised  "0"
  6081      END DSR ECORD
  6082      BEGIN D SRECORD
  6083         Iden tifier "V0 S179"
  6084         OLET ype "CCust omStage"
  6085         Read only "0"
  6086         Name  "DepupRow s"
  6087         Next ID "3"
  6088         Inpu tPins "V0S 179P1"
  6089         Outp utPins "V0 S179P2"
  6090         Stag eType "PxR emDup"
  6091         Allo wColumnMap ping "0"
  6092         Prop erties "CC ustomPrope rty"
  6093         BEGI N DSSUBREC ORD
  6094            N ame "keep"
  6095            V alue "last "
  6096         END  DSSUBRECOR D
  6097         BEGI N DSSUBREC ORD
  6098            N ame "key"
  6099            V alue "\(2) \(2)0\(1)\ (3)key\(2) row_id\(2) 0\(1)\(3)k ey\(2)clai m_key\(2)0 \(1)\(3)ke y\(2)diagn oses_code\ (2)0\(1)\( 3)key\(2)I CDVersion\ (2)0"
  6100         END  DSSUBRECOR D
  6101         Next RecordID " 0"
  6102      END DSR ECORD
  6103      BEGIN D SRECORD
  6104         Iden tifier "V0 S179P1"
  6105         OLET ype "CCust omInput"
  6106         Read only "0"
  6107         Name  "Lkp_DimV aClaim"
  6108         Part ner "V0S11 4|V0S114P9 "
  6109         Link Type "1"
  6110         Cond itionNotMe t "fail"
  6111         Look upFail "fa il"
  6112         Meta Bag "CMeta Property"
  6113         BEGI N DSSUBREC ORD
  6114            O wner "APT"
  6115            N ame "RTCol umnProp"
  6116            V alue "0"
  6117         END  DSSUBRECOR D
  6118         Tran sactionSiz e "0"
  6119         TXNB ehaviour " 0"
  6120         Enab leTxGroup  "0"
  6121         Link Minimised  "0"
  6122      END DSR ECORD
  6123      BEGIN D SRECORD
  6124         Iden tifier "V0 S179P2"
  6125         OLET ype "CCust omOutput"
  6126         Read only "0"
  6127         Name  "DepupRow s"
  6128         Part ner "V124S 0|V124S0P5 "
  6129         Colu mns "COutp utColumn"
  6130         BEGI N DSSUBREC ORD
  6131            N ame "claim _key"
  6132            D escription  =+=+=+=
  6133   <none>
  6134   Searchable ? N 
  6135   =+=+=+=
  6136            S qlType "4"
  6137            P recision " 10"
  6138            S cale "0"
  6139            N ullable "0 "
  6140            K eyPosition  "0"
  6141            D isplaySize  "11"
  6142            D erivation  "Lkp_DimVa Claim.clai m_key"
  6143            G roup "0"
  6144            P arsedDeriv ation "Lkp _DimVaClai m.claim_ke y"
  6145            S ourceColum n "Lkp_Dim VaClaim.cl aim_key"
  6146            S ortKey "0"
  6147            S ortType "0 "
  6148            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  6149            A llowCRLF " 0"
  6150            L evelNo "0"
  6151            O ccurs "0"
  6152            P adNulls "0 "
  6153            S ignOption  "0"
  6154            S ortingOrde r "0"
  6155            A rrayHandli ng "0"
  6156            S yncIndicat or "0"
  6157            P adChar ""
  6158            C olumnRefer ence "clai m_key"
  6159            A PTFieldPro p "quote=n one"
  6160            E xtendedPre cision "0"
  6161            T aggedSubre c "0"
  6162            O ccursVaryi ng "0"
  6163            P KeyIsCasel ess "0"
  6164            S CDPurpose  "0"
  6165         END  DSSUBRECOR D
  6166         BEGI N DSSUBREC ORD
  6167            N ame "DIAGN OSIS_key"
  6168            D escription  =+=+=+=
  6169   <none>
  6170   Searchable ? N 
  6171   =+=+=+=
  6172            S qlType "4"
  6173            P recision " 10"
  6174            S cale "0"
  6175            N ullable "1 "
  6176            K eyPosition  "0"
  6177            D isplaySize  "11"
  6178            D erivation  "Lkp_DimVa Claim.DIAG NOSIS_key"
  6179            G roup "0"
  6180            P arsedDeriv ation "Lkp _DimVaClai m.DIAGNOSI S_key"
  6181            S ourceColum n "Lkp_Dim VaClaim.DI AGNOSIS_ke y"
  6182            S ortKey "0"
  6183            S ortType "0 "
  6184            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  6185            A llowCRLF " 0"
  6186            L evelNo "0"
  6187            O ccurs "0"
  6188            P adNulls "0 "
  6189            S ignOption  "0"
  6190            S ortingOrde r "0"
  6191            A rrayHandli ng "0"
  6192            S yncIndicat or "0"
  6193            P adChar ""
  6194            C olumnRefer ence "paye r_key"
  6195            A PTFieldPro p "quote=n one"
  6196            E xtendedPre cision "0"
  6197            T aggedSubre c "0"
  6198            O ccursVaryi ng "0"
  6199            P KeyIsCasel ess "0"
  6200            S CDPurpose  "0"
  6201         END  DSSUBRECOR D
  6202         BEGI N DSSUBREC ORD
  6203            N ame "ICDVe rsion"
  6204            S qlType "12 "
  6205            P recision " 15"
  6206            S cale "0"
  6207            N ullable "1 "
  6208            K eyPosition  "0"
  6209            D isplaySize  "0"
  6210            D erivation  "Lkp_DimVa Claim.ICDV ersion"
  6211            G roup "0"
  6212            P arsedDeriv ation "Lkp _DimVaClai m.ICDVersi on"
  6213            S ourceColum n "Lkp_Dim VaClaim.IC DVersion"
  6214            S ortKey "0"
  6215            S ortType "0 "
  6216            A llowCRLF " 0"
  6217            L evelNo "0"
  6218            O ccurs "0"
  6219            P adNulls "0 "
  6220            S ignOption  "0"
  6221            S ortingOrde r "0"
  6222            A rrayHandli ng "0"
  6223            S yncIndicat or "0"
  6224            P adChar ""
  6225            E xtendedPre cision "0"
  6226            T aggedSubre c "0"
  6227            O ccursVaryi ng "0"
  6228            P KeyIsCasel ess "0"
  6229            S CDPurpose  "0"
  6230         END  DSSUBRECOR D
  6231         BEGI N DSSUBREC ORD
  6232            N ame "is_cu rrent"
  6233            S qlType "1"
  6234            P recision " 1"
  6235            S cale "0"
  6236            N ullable "0 "
  6237            K eyPosition  "0"
  6238            D isplaySize  "0"
  6239            D erivation  "Lkp_DimVa Claim.is_c urrent"
  6240            G roup "0"
  6241            P arsedDeriv ation "Lkp _DimVaClai m.is_curre nt"
  6242            S ourceColum n "Lkp_Dim VaClaim.is _current"
  6243            S ortKey "0"
  6244            S ortType "0 "
  6245            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6246            A llowCRLF " 0"
  6247            L evelNo "0"
  6248            N ativeType  "pit_boole an"
  6249            O ccurs "0"
  6250            P adNulls "0 "
  6251            S ignOption  "0"
  6252            S ortingOrde r "0"
  6253            A rrayHandli ng "0"
  6254            S yncIndicat or "0"
  6255            P adChar ""
  6256            C olumnRefer ence "is_c urrent"
  6257            E xtendedPre cision "0"
  6258            T aggedSubre c "0"
  6259            O ccursVaryi ng "0"
  6260            P KeyIsCasel ess "0"
  6261            S CDPurpose  "0"
  6262         END  DSSUBRECOR D
  6263         BEGI N DSSUBREC ORD
  6264            N ame "start _date"
  6265            S qlType "9"
  6266            P recision " 10"
  6267            S cale "0"
  6268            N ullable "1 "
  6269            K eyPosition  "0"
  6270            D isplaySize  "0"
  6271            D erivation  "Lkp_DimVa Claim.star t_date"
  6272            G roup "0"
  6273            P arsedDeriv ation "Lkp _DimVaClai m.start_da te"
  6274            S ourceColum n "Lkp_Dim VaClaim.st art_date"
  6275            S ortKey "0"
  6276            S ortType "0 "
  6277            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6278            A llowCRLF " 0"
  6279            L evelNo "0"
  6280            N ativeType  "pit_date"
  6281            O ccurs "0"
  6282            P adNulls "0 "
  6283            S ignOption  "0"
  6284            S ortingOrde r "0"
  6285            A rrayHandli ng "0"
  6286            S yncIndicat or "0"
  6287            P adChar ""
  6288            C olumnRefer ence "star t_date"
  6289            E xtendedPre cision "0"
  6290            T aggedSubre c "0"
  6291            O ccursVaryi ng "0"
  6292            P KeyIsCasel ess "0"
  6293            S CDPurpose  "0"
  6294         END  DSSUBRECOR D
  6295         BEGI N DSSUBREC ORD
  6296            N ame "end_d ate"
  6297            S qlType "9"
  6298            P recision " 10"
  6299            S cale "0"
  6300            N ullable "1 "
  6301            K eyPosition  "0"
  6302            D isplaySize  "0"
  6303            D erivation  "Lkp_DimVa Claim.end_ date"
  6304            G roup "0"
  6305            P arsedDeriv ation "Lkp _DimVaClai m.end_date "
  6306            S ourceColum n "Lkp_Dim VaClaim.en d_date"
  6307            S ortKey "0"
  6308            S ortType "0 "
  6309            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6310            A llowCRLF " 0"
  6311            L evelNo "0"
  6312            N ativeType  "pit_end_d ate"
  6313            O ccurs "0"
  6314            P adNulls "0 "
  6315            S ignOption  "0"
  6316            S ortingOrde r "0"
  6317            A rrayHandli ng "0"
  6318            S yncIndicat or "0"
  6319            P adChar ""
  6320            C olumnRefer ence "end_ date"
  6321            E xtendedPre cision "0"
  6322            T aggedSubre c "0"
  6323            O ccursVaryi ng "0"
  6324            P KeyIsCasel ess "0"
  6325            S CDPurpose  "0"
  6326         END  DSSUBRECOR D
  6327         BEGI N DSSUBREC ORD
  6328            N ame "sourc e_system"
  6329            S qlType "12 "
  6330            P recision " 20"
  6331            S cale "0"
  6332            N ullable "1 "
  6333            K eyPosition  "0"
  6334            D isplaySize  "0"
  6335            D erivation  "Lkp_DimVa Claim.sour ce_system"
  6336            G roup "0"
  6337            P arsedDeriv ation "Lkp _DimVaClai m.source_s ystem"
  6338            S ourceColum n "Lkp_Dim VaClaim.so urce_syste m"
  6339            S ortKey "0"
  6340            S ortType "0 "
  6341            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6342            A llowCRLF " 0"
  6343            L evelNo "0"
  6344            N ativeType  "varchar"
  6345            O ccurs "0"
  6346            P adNulls "0 "
  6347            S ignOption  "0"
  6348            S ortingOrde r "0"
  6349            A rrayHandli ng "0"
  6350            S yncIndicat or "0"
  6351            P adChar ""
  6352            C olumnRefer ence "sour ce_system"
  6353            E xtendedPre cision "0"
  6354            T aggedSubre c "0"
  6355            O ccursVaryi ng "0"
  6356            P KeyIsCasel ess "0"
  6357            S CDPurpose  "0"
  6358         END  DSSUBRECOR D
  6359         BEGI N DSSUBREC ORD
  6360            N ame "sourc e_entity"
  6361            S qlType "-9 "
  6362            P recision " 50"
  6363            S cale "0"
  6364            N ullable "1 "
  6365            K eyPosition  "0"
  6366            D isplaySize  "0"
  6367            D erivation  "Lkp_DimVa Claim.sour ce_entity"
  6368            G roup "0"
  6369            P arsedDeriv ation "Lkp _DimVaClai m.source_e ntity"
  6370            S ourceColum n "Lkp_Dim VaClaim.so urce_entit y"
  6371            S ortKey "0"
  6372            S ortType "0 "
  6373            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6374            A llowCRLF " 0"
  6375            L evelNo "0"
  6376            N ativeType  "pit_long_ name"
  6377            O ccurs "0"
  6378            P adNulls "0 "
  6379            S ignOption  "0"
  6380            S ortingOrde r "0"
  6381            A rrayHandli ng "0"
  6382            S yncIndicat or "0"
  6383            P adChar ""
  6384            C olumnRefer ence "sour ce_entity"
  6385            E xtendedPre cision "0"
  6386            T aggedSubre c "0"
  6387            O ccursVaryi ng "0"
  6388            P KeyIsCasel ess "0"
  6389            S CDPurpose  "0"
  6390         END  DSSUBRECOR D
  6391         BEGI N DSSUBREC ORD
  6392            N ame "row_i d"
  6393            S qlType "12 "
  6394            P recision " 20"
  6395            S cale "0"
  6396            N ullable "1 "
  6397            K eyPosition  "0"
  6398            D isplaySize  "0"
  6399            D erivation  "Lkp_DimVa Claim.row_ id"
  6400            G roup "0"
  6401            P arsedDeriv ation "Lkp _DimVaClai m.row_id"
  6402            S ourceColum n "Lkp_Dim VaClaim.ro w_id"
  6403            S ortKey "0"
  6404            S ortType "0 "
  6405            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6406            A llowCRLF " 0"
  6407            L evelNo "0"
  6408            N ativeType  "varchar"
  6409            O ccurs "0"
  6410            P adNulls "0 "
  6411            S ignOption  "0"
  6412            S ortingOrde r "0"
  6413            A rrayHandli ng "0"
  6414            S yncIndicat or "0"
  6415            P adChar ""
  6416            C olumnRefer ence "row_ id"
  6417            E xtendedPre cision "0"
  6418            T aggedSubre c "0"
  6419            O ccursVaryi ng "0"
  6420            P KeyIsCasel ess "0"
  6421            S CDPurpose  "0"
  6422         END  DSSUBRECOR D
  6423         BEGI N DSSUBREC ORD
  6424            N ame "etl_b atch_id"
  6425            S qlType "12 "
  6426            P recision " 20"
  6427            S cale "0"
  6428            N ullable "1 "
  6429            K eyPosition  "0"
  6430            D isplaySize  "0"
  6431            D erivation  "Lkp_DimVa Claim.etl_ batch_id"
  6432            G roup "0"
  6433            P arsedDeriv ation "Lkp _DimVaClai m.etl_batc h_id"
  6434            S ourceColum n "Lkp_Dim VaClaim.et l_batch_id "
  6435            S ortKey "0"
  6436            S ortType "0 "
  6437            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  6438            A llowCRLF " 0"
  6439            L evelNo "0"
  6440            N ativeType  "varchar"
  6441            O ccurs "0"
  6442            P adNulls "0 "
  6443            S ignOption  "0"
  6444            S ortingOrde r "0"
  6445            A rrayHandli ng "0"
  6446            S yncIndicat or "0"
  6447            P adChar ""
  6448            C olumnRefer ence "etl_ batch_id"
  6449            E xtendedPre cision "0"
  6450            T aggedSubre c "0"
  6451            O ccursVaryi ng "0"
  6452            P KeyIsCasel ess "0"
  6453            S CDPurpose  "0"
  6454         END  DSSUBRECOR D
  6455         BEGI N DSSUBREC ORD
  6456            N ame "diagn oses_code"
  6457            D escription  =+=+=+=
  6458   <none>
  6459   Searchable ? N 
  6460   =+=+=+=
  6461            S qlType "12 "
  6462            P recision " 30"
  6463            S cale "0"
  6464            N ullable "1 "
  6465            K eyPosition  "0"
  6466            D isplaySize  "15"
  6467            D erivation  "Lkp_DimVa Claim.diag noses_code "
  6468            G roup "0"
  6469            P arsedDeriv ation "Lkp _DimVaClai m.diagnose s_code"
  6470            S ourceColum n "Lkp_Dim VaClaim.di agnoses_co de"
  6471            S ortKey "0"
  6472            S ortType "0 "
  6473            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  6474            A llowCRLF " 0"
  6475            L evelNo "0"
  6476            O ccurs "0"
  6477            P adNulls "0 "
  6478            S ignOption  "0"
  6479            S ortingOrde r "0"
  6480            A rrayHandli ng "0"
  6481            S yncIndicat or "0"
  6482            P adChar ""
  6483            C olumnRefer ence "oral _cavity_de signation_ code"
  6484            A PTFieldPro p "null_fi eld=''"
  6485            E xtendedPre cision "0"
  6486            T aggedSubre c "0"
  6487            O ccursVaryi ng "0"
  6488            P KeyIsCasel ess "0"
  6489            S CDPurpose  "0"
  6490         END  DSSUBRECOR D
  6491         BEGI N DSSUBREC ORD
  6492            N ame "diagn oses_quali f"
  6493            D escription  =+=+=+=
  6494   <none>
  6495   Searchable ? N 
  6496   =+=+=+=
  6497            S qlType "12 "
  6498            P recision " 10"
  6499            S cale "0"
  6500            N ullable "1 "
  6501            K eyPosition  "0"
  6502            D isplaySize  "15"
  6503            D erivation  "Lkp_DimVa Claim.diag noses_qual if"
  6504            G roup "0"
  6505            P arsedDeriv ation "Lkp _DimVaClai m.diagnose s_qualif"
  6506            S ourceColum n "Lkp_Dim VaClaim.di agnoses_qu alif"
  6507            S ortKey "0"
  6508            S ortType "0 "
  6509            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  6510            A llowCRLF " 0"
  6511            L evelNo "0"
  6512            O ccurs "0"
  6513            P adNulls "0 "
  6514            S ignOption  "0"
  6515            S ortingOrde r "0"
  6516            A rrayHandli ng "0"
  6517            S yncIndicat or "0"
  6518            P adChar ""
  6519            C olumnRefer ence "oral _cavity_de signation_ code"
  6520            A PTFieldPro p "null_fi eld=''"
  6521            E xtendedPre cision "0"
  6522            T aggedSubre c "0"
  6523            O ccursVaryi ng "0"
  6524            P KeyIsCasel ess "0"
  6525            S CDPurpose  "0"
  6526         END  DSSUBRECOR D
  6527         Meta Bag "CMeta Property"
  6528         BEGI N DSSUBREC ORD
  6529            O wner "APT"
  6530            N ame "DiskW riteInc"
  6531            V alue "1048 576"
  6532         END  DSSUBRECOR D
  6533         BEGI N DSSUBREC ORD
  6534            O wner "APT"
  6535            N ame "BufFr eeRun"
  6536            V alue "50"
  6537         END  DSSUBRECOR D
  6538         BEGI N DSSUBREC ORD
  6539            O wner "APT"
  6540            N ame "MaxMe mBufSize"
  6541            V alue "3145 728"
  6542         END  DSSUBRECOR D
  6543         BEGI N DSSUBREC ORD
  6544            O wner "APT"
  6545            N ame "Queue UpperSize"
  6546            V alue "0"
  6547         END  DSSUBRECOR D
  6548         Left TextPos "1 159"
  6549         TopT extPos "26 7"
  6550         Link Minimised  "0"
  6551      END DSR ECORD
  6552      BEGIN D SRECORD
  6553         Iden tifier "V1 07S0"
  6554         OLET ype "CCust omStage"
  6555         Read only "0"
  6556         Name  "DIM_VA_C LAIM"
  6557         Next ID "2"
  6558         Outp utPins "V1 07S0P1"
  6559         Stag eType "ODB CConnector PX"
  6560         Allo wColumnMap ping "0"
  6561         Prop erties "CC ustomPrope rty"
  6562         BEGI N DSSUBREC ORD
  6563            N ame "Varia ntName"
  6564            V alue "3.5"
  6565         END  DSSUBRECOR D
  6566         BEGI N DSSUBREC ORD
  6567            N ame "Varia ntLibrary"
  6568            V alue "ccod bc"
  6569         END  DSSUBRECOR D
  6570         BEGI N DSSUBREC ORD
  6571            N ame "Varia ntVersion"
  6572            V alue "1.0"
  6573         END  DSSUBRECOR D
  6574         BEGI N DSSUBREC ORD
  6575            N ame "Suppo rtedVarian ts"
  6576            V alue "3.5"
  6577         END  DSSUBRECOR D
  6578         BEGI N DSSUBREC ORD
  6579            N ame "Suppo rtedVarian tsLibrarie s"
  6580            V alue "ccod bc"
  6581         END  DSSUBRECOR D
  6582         BEGI N DSSUBREC ORD
  6583            N ame "Suppo rtedVarian tsVersions "
  6584            V alue "1.0"
  6585         END  DSSUBRECOR D
  6586         BEGI N DSSUBREC ORD
  6587            N ame "Orien tation"
  6588            V alue "link "
  6589         END  DSSUBRECOR D
  6590         BEGI N DSSUBREC ORD
  6591            N ame "Rejec tFromLink"
  6592            V alue "-1"
  6593         END  DSSUBRECOR D
  6594         BEGI N DSSUBREC ORD
  6595            N ame "Rejec tThreshold "
  6596            V alue "0"
  6597         END  DSSUBRECOR D
  6598         BEGI N DSSUBREC ORD
  6599            N ame "Rejec tNumber"
  6600            V alue "0"
  6601         END  DSSUBRECOR D
  6602         BEGI N DSSUBREC ORD
  6603            N ame "Rejec tUsesPerce ntage"
  6604            V alue "fals e"
  6605         END  DSSUBRECOR D
  6606         BEGI N DSSUBREC ORD
  6607            N ame "Conne ctorName"
  6608            V alue "ODBC Connector"
  6609         END  DSSUBRECOR D
  6610         BEGI N DSSUBREC ORD
  6611            N ame "Engin e"
  6612            V alue "EE"
  6613         END  DSSUBRECOR D
  6614         BEGI N DSSUBREC ORD
  6615            N ame "Conte xt"
  6616            V alue "sour ce"
  6617         END  DSSUBRECOR D
  6618         BEGI N DSSUBREC ORD
  6619            N ame "Conne ctionStrin g"
  6620            V alue "/Con nection/Da taSource"
  6621         END  DSSUBRECOR D
  6622         BEGI N DSSUBREC ORD
  6623            N ame "Usern ame"
  6624            V alue "/Con nection/Us ername"
  6625         END  DSSUBRECOR D
  6626         BEGI N DSSUBREC ORD
  6627            N ame "Passw ord"
  6628            V alue "/Con nection/Pa ssword"
  6629         END  DSSUBRECOR D
  6630         BEGI N DSSUBREC ORD
  6631            N ame "XMLPr operties"
  6632            V alue =+=+= +=
  6633   <?xml vers ion='1.0'  encoding=' UTF-16'?>< Properties  version=' 1.1'><Comm on><Contex t type='in t'>1</Cont ext><Varia nt type='s tring'>3.5 </Variant> <Descripto rVersion t ype='strin g'>1.0</De scriptorVe rsion><Par titionType  type='int '>-1</Part itionType> <RCP type= 'int'>0</R CP></Commo n><Connect ion><DataS ource modi fied='1' t ype='strin g'><![CDAT A[#$SQL_DB _DSN#]]></ DataSource ><Username  modified= '1' type=' string'><! [CDATA[#$S QL_DB_UID# ]]></Usern ame><Passw ord modifi ed='1' typ e='string' ><![CDATA[ #$SQL_DB_P WD#]]></Pa ssword></C onnection> <Usage mod ified='1'> <GenerateS QL modifie d='1' type ='bool'><! [CDATA[0]] ></Generat eSQL><Enab leQuotedID s modified ='1' type= 'bool'><![ CDATA[1]]> </EnableQu otedIDs><S QL><Select Statement  modified=' 1' type='s tring'><![ CDATA[Sele ct claim_k ey, claim_ id, source _entity, e tl_batch_i
  6634   from #$SQL _DB#.dbo.D IM_VA_CLAI M where is _current =  'Y'  and  etl_batch_ id = '#Bat chID#']]>< ReadStatem entFromFil e type='bo ol'><![CDA TA[0]]></R eadStateme ntFromFile ><Tables c ollapsed=' 1'><Table  type='stri ng'></Tabl e><Table t ype='strin g'><![CDAT A[#$SQL_DB #]]></Tabl e></Tables ><Paramete rs collaps ed='1'></P arameters> <Columns c ollapsed=' 1'><Column  type='str ing'><![CD ATA[etl_ba tch_id,etl _batch_id, #$SQL_DB#] ]></Column ><Column t ype='strin g'><![CDAT A[source_e ntity,sour ce_entity, #$SQL_DB#] ]></Column ><Column t ype='strin g'><![CDAT A[claim_id ,claim_id, #$SQL_DB#] ]></Column ><Column t ype='strin g'><![CDAT A[claim_ke y,claim_ke y,#$SQL_DB #]]></Colu mn></Colum ns><WhereC lause type ='string'> <![CDATA[( is_current  = 'Y' AND  etl_batch _id = '#Ba tchID#')]] ></WhereCl ause></Sel ectStateme nt><Enable Partitioni ng collaps ed='1' typ e='bool'>< ![CDATA[0] ]></Enable Partitioni ng></SQL>< Transactio n><RecordC ount type= 'int'><![C DATA[2000] ]></Record Count><End OfWave col lapsed='1'  type='int '><![CDATA [0]]></End OfWave></T ransaction ><Session> <Isolation Level type ='int'><![ CDATA[1]]> </Isolatio nLevel><Au tocommitMo de type='i nt'><![CDA TA[0]]></A utocommitM ode><Array Size type= 'int'><![C DATA[2000] ]></ArrayS ize><Schem aReconcili ation><Fai lOnSizeMis match type ='bool'><! [CDATA[1]] ></FailOnS izeMismatc h><FailOnT ypeMismatc h type='bo ol'><![CDA TA[1]]></F ailOnTypeM ismatch><F ailOnCodeP ageMismatc h type='bo ol'><![CDA TA[0]]></F ailOnCodeP ageMismatc h></Schema Reconcilia tion><Pass LobLocator  collapsed ='1' type= 'bool'><![ CDATA[0]]> </PassLobL ocator><Co dePage col lapsed='1'  type='int '><![CDATA [0]]></Cod ePage></Se ssion><Bef oreAfter c ollapsed=' 1' type='b ool'><![CD ATA[0]]></ BeforeAfte r></Usage> </Properti es >
  6635   =+=+=+=
  6636         END  DSSUBRECOR D
  6637         Next RecordID " 0"
  6638      END DSR ECORD
  6639      BEGIN D SRECORD
  6640         Iden tifier "V1 07S0P1"
  6641         OLET ype "CCust omOutput"
  6642         Read only "0"
  6643         Name  "DimVaCla im"
  6644         Part ner "V0S11 4|V0S114P2 "
  6645         Prop erties "CC ustomPrope rty"
  6646         BEGI N DSSUBREC ORD
  6647            N ame "looku p\\type"
  6648         END  DSSUBRECOR D
  6649         BEGI N DSSUBREC ORD
  6650            N ame "Varia ntName"
  6651            V alue "3.5"
  6652         END  DSSUBRECOR D
  6653         BEGI N DSSUBREC ORD
  6654            N ame "Varia ntLibrary"
  6655            V alue "ccod bc"
  6656         END  DSSUBRECOR D
  6657         BEGI N DSSUBREC ORD
  6658            N ame "Varia ntVersion"
  6659            V alue "1.0"
  6660         END  DSSUBRECOR D
  6661         BEGI N DSSUBREC ORD
  6662            N ame "Rejec tFromLink"
  6663            V alue "-1"
  6664         END  DSSUBRECOR D
  6665         BEGI N DSSUBREC ORD
  6666            N ame "Rejec tThreshold "
  6667            V alue "0"
  6668         END  DSSUBRECOR D
  6669         BEGI N DSSUBREC ORD
  6670            N ame "Rejec tNumber"
  6671            V alue "0"
  6672         END  DSSUBRECOR D
  6673         BEGI N DSSUBREC ORD
  6674            N ame "Rejec tUsesPerce ntage"
  6675            V alue "fals e"
  6676         END  DSSUBRECOR D
  6677         BEGI N DSSUBREC ORD
  6678            N ame "Conne ctorName"
  6679            V alue "ODBC Connector"
  6680         END  DSSUBRECOR D
  6681         Colu mns "COutp utColumn"
  6682         BEGI N DSSUBREC ORD
  6683            N ame "claim _key"
  6684            D escription  =+=+=+=
  6685   <none>
  6686   Searchable ? N 
  6687   =+=+=+=
  6688            S qlType "4"
  6689            P recision " 10"
  6690            S cale "0"
  6691            N ullable "0 "
  6692            K eyPosition  "0"
  6693            D isplaySize  "11"
  6694            G roup "0"
  6695            S ortKey "0"
  6696            S ortType "0 "
  6697            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  6698            A llowCRLF " 0"
  6699            L evelNo "0"
  6700            O ccurs "0"
  6701            P adNulls "0 "
  6702            S ignOption  "0"
  6703            S ortingOrde r "0"
  6704            A rrayHandli ng "0"
  6705            S yncIndicat or "0"
  6706            P adChar ""
  6707            C olumnRefer ence "clai m_key"
  6708            A PTFieldPro p "quote=n one"
  6709            E xtendedPre cision "0"
  6710            T aggedSubre c "0"
  6711            O ccursVaryi ng "0"
  6712            P KeyIsCasel ess "0"
  6713            S CDPurpose  "0"
  6714         END  DSSUBRECOR D
  6715         BEGI N DSSUBREC ORD
  6716            N ame "claim _id"
  6717            S qlType "12 "
  6718            P recision " 20"
  6719            S cale "0"
  6720            N ullable "1 "
  6721            K eyPosition  "1"
  6722            D isplaySize  "0"
  6723            G roup "0"
  6724            K eyExpressi on "FmtDia gCodes.cla im_id"
  6725            S ortKey "0"
  6726            S ortType "0 "
  6727            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  6728            A llowCRLF " 0"
  6729            L evelNo "0"
  6730            O ccurs "0"
  6731            P adNulls "0 "
  6732            S ignOption  "0"
  6733            S ortingOrde r "0"
  6734            A rrayHandli ng "0"
  6735            S yncIndicat or "0"
  6736            P adChar ""
  6737            C olumnRefer ence "clai m_id"
  6738            A PTFieldPro p "null_fi eld=''"
  6739            E xtendedPre cision "0"
  6740            T aggedSubre c "0"
  6741            O ccursVaryi ng "0"
  6742            P KeyParsedD erivation  "FmtDiagCo des.claim_ id"
  6743            P KeySourceC olumn "Fmt DiagCodes. claim_id"
  6744            P KeyIsCasel ess "0"
  6745            S CDPurpose  "0"
  6746         END  DSSUBRECOR D
  6747         BEGI N DSSUBREC ORD
  6748            N ame "sourc e_entity"
  6749            S qlType "12 "
  6750            P recision " 50"
  6751            S cale "0"
  6752            N ullable "1 "
  6753            K eyPosition  "1"
  6754            D isplaySize  "0"
  6755            G roup "0"
  6756            K eyExpressi on "FmtDia gCodes.sou rce_entity "
  6757            S ortKey "0"
  6758            S ortType "0 "
  6759            A llowCRLF " 0"
  6760            L evelNo "0"
  6761            O ccurs "0"
  6762            P adNulls "0 "
  6763            S ignOption  "0"
  6764            S ortingOrde r "0"
  6765            A rrayHandli ng "0"
  6766            S yncIndicat or "0"
  6767            P adChar ""
  6768            E xtendedPre cision "0"
  6769            T aggedSubre c "0"
  6770            O ccursVaryi ng "0"
  6771            P KeyParsedD erivation  "FmtDiagCo des.source _entity"
  6772            P KeySourceC olumn "Fmt DiagCodes. source_ent ity"
  6773            P KeyIsCasel ess "0"
  6774            S CDPurpose  "0"
  6775         END  DSSUBRECOR D
  6776         BEGI N DSSUBREC ORD
  6777            N ame "etl_b atch_id"
  6778            S qlType "12 "
  6779            P recision " 20"
  6780            S cale "0"
  6781            N ullable "1 "
  6782            K eyPosition  "1"
  6783            D isplaySize  "0"
  6784            G roup "0"
  6785            K eyExpressi on "FmtDia gCodes.etl _batch_id"
  6786            S ortKey "0"
  6787            S ortType "0 "
  6788            A llowCRLF " 0"
  6789            L evelNo "0"
  6790            O ccurs "0"
  6791            P adNulls "0 "
  6792            S ignOption  "0"
  6793            S ortingOrde r "0"
  6794            A rrayHandli ng "0"
  6795            S yncIndicat or "0"
  6796            P adChar ""
  6797            E xtendedPre cision "0"
  6798            T aggedSubre c "0"
  6799            O ccursVaryi ng "0"
  6800            P KeyParsedD erivation  "FmtDiagCo des.etl_ba tch_id"
  6801            P KeySourceC olumn "Fmt DiagCodes. etl_batch_ id"
  6802            P KeyIsCasel ess "0"
  6803            S CDPurpose  "0"
  6804         END  DSSUBRECOR D
  6805         Meta Bag "CMeta Property"
  6806         BEGI N DSSUBREC ORD
  6807            O wner "APT"
  6808            N ame "Schem aFormat"
  6809         END  DSSUBRECOR D
  6810         BEGI N DSSUBREC ORD
  6811            O wner "APT"
  6812            N ame "DiskW riteInc"
  6813            V alue "1048 576"
  6814         END  DSSUBRECOR D
  6815         BEGI N DSSUBREC ORD
  6816            O wner "APT"
  6817            N ame "BufFr eeRun"
  6818            V alue "50"
  6819         END  DSSUBRECOR D
  6820         BEGI N DSSUBREC ORD
  6821            O wner "APT"
  6822            N ame "MaxMe mBufSize"
  6823            V alue "3145 728"
  6824         END  DSSUBRECOR D
  6825         BEGI N DSSUBREC ORD
  6826            O wner "APT"
  6827            N ame "Queue UpperSize"
  6828            V alue "0"
  6829         END  DSSUBRECOR D
  6830         Left TextPos "7 89"
  6831         TopT extPos "14 3"
  6832         Link Minimised  "0"
  6833      END DSR ECORD
  6834      BEGIN D SRECORD
  6835         Iden tifier "V1 12S0"
  6836         OLET ype "CCust omStage"
  6837         Read only "0"
  6838         Name  "DIM_DIAG NOSIS_CODE "
  6839         Next ID "2"
  6840         Outp utPins "V1 12S0P1"
  6841         Stag eType "ODB CConnector PX"
  6842         Allo wColumnMap ping "0"
  6843         Prop erties "CC ustomPrope rty"
  6844         BEGI N DSSUBREC ORD
  6845            N ame "Varia ntName"
  6846            V alue "3.5"
  6847         END  DSSUBRECOR D
  6848         BEGI N DSSUBREC ORD
  6849            N ame "Varia ntLibrary"
  6850            V alue "ccod bc"
  6851         END  DSSUBRECOR D
  6852         BEGI N DSSUBREC ORD
  6853            N ame "Varia ntVersion"
  6854            V alue "1.0"
  6855         END  DSSUBRECOR D
  6856         BEGI N DSSUBREC ORD
  6857            N ame "Suppo rtedVarian ts"
  6858            V alue "V1;3 .5::ccodbc "
  6859         END  DSSUBRECOR D
  6860         BEGI N DSSUBREC ORD
  6861            N ame "Suppo rtedVarian tsLibrarie s"
  6862            V alue "ccod bc"
  6863         END  DSSUBRECOR D
  6864         BEGI N DSSUBREC ORD
  6865            N ame "Suppo rtedVarian tsVersions "
  6866            V alue "1.0"
  6867         END  DSSUBRECOR D
  6868         BEGI N DSSUBREC ORD
  6869            N ame "Orien tation"
  6870            V alue "link "
  6871         END  DSSUBRECOR D
  6872         BEGI N DSSUBREC ORD
  6873            N ame "Rejec tFromLink"
  6874            V alue "-1"
  6875         END  DSSUBRECOR D
  6876         BEGI N DSSUBREC ORD
  6877            N ame "Rejec tThreshold "
  6878            V alue "0"
  6879         END  DSSUBRECOR D
  6880         BEGI N DSSUBREC ORD
  6881            N ame "Rejec tNumber"
  6882            V alue "0"
  6883         END  DSSUBRECOR D
  6884         BEGI N DSSUBREC ORD
  6885            N ame "Rejec tUsesPerce ntage"
  6886            V alue "fals e"
  6887         END  DSSUBRECOR D
  6888         BEGI N DSSUBREC ORD
  6889            N ame "Conne ctorName"
  6890            V alue "ODBC Connector"
  6891         END  DSSUBRECOR D
  6892         BEGI N DSSUBREC ORD
  6893            N ame "Engin e"
  6894            V alue "EE"
  6895         END  DSSUBRECOR D
  6896         BEGI N DSSUBREC ORD
  6897            N ame "Conte xt"
  6898            V alue "sour ce"
  6899         END  DSSUBRECOR D
  6900         BEGI N DSSUBREC ORD
  6901            N ame "Conne ctionStrin g"
  6902            V alue "/Con nection/Da taSource"
  6903         END  DSSUBRECOR D
  6904         BEGI N DSSUBREC ORD
  6905            N ame "Usern ame"
  6906            V alue "/Con nection/Us ername"
  6907         END  DSSUBRECOR D
  6908         BEGI N DSSUBREC ORD
  6909            N ame "Passw ord"
  6910            V alue "/Con nection/Pa ssword"
  6911         END  DSSUBRECOR D
  6912         BEGI N DSSUBREC ORD
  6913            N ame "XMLPr operties"
  6914            V alue "<?xm l version= '1.0' enco ding='UTF- 16'?><Prop erties ver sion='1.1' ><Common>< Context ty pe='int'>1 </Context> <Variant t ype='strin g'>3.5</Va riant><Des criptorVer sion type= 'string'>1 .0</Descri ptorVersio n><Partiti onType typ e='int'>-1 </Partitio nType><RCP  type='int '>0</RCP>< /Common><C onnection> <DataSourc e modified ='1' type= 'string'>< ![CDATA[#$ SQL_DB_DSN #]]></Data Source><Us ername mod ified='1'  type='stri ng'><![CDA TA[#$SQL_D B_UID#]]>< /Username> <Password  modified=' 1' type='s tring'><![ CDATA[#$SQ L_DB_PWD#] ]></Passwo rd></Conne ction><Usa ge modifie d='1'><Gen erateSQL m odified='1 ' type='bo ol'><![CDA TA[0]]></G enerateSQL ><EnableQu otedIDs ty pe='bool'> <![CDATA[0 ]]></Enabl eQuotedIDs ><SQL><Sel ectStateme nt modifie d='1' type ='string'> <![CDATA[S elect DIAG NOSIS_key,  diagnosis _code from  #$SQL_DB# .dbo.DIM_D IAGNOSIS_C ODE where  is_current  = 'Y']]>< ReadStatem entFromFil e type='bo ol'><![CDA TA[0]]></R eadStateme ntFromFile ><Tables c ollapsed=' 1'><Table  type='stri ng'><![CDA TA[#$SQL_D B#.dbo.DIM _DIAGNOSIS _CODE]]></ Table></Ta bles><Para meters col lapsed='1' ></Paramet ers><Colum ns collaps ed='1'><Co lumn type= 'string'>< ![CDATA[di agnosis_co de,diagnos is_code,DI M_DIAGNOSI S_CODE]]>< /Column><C olumn type ='string'> <![CDATA[D IAGNOSIS_k ey,DIAGNOS IS_key,DIM _DIAGNOSIS _CODE]]></ Column></C olumns><Wh ereClause  type='stri ng'><![CDA TA[is_curr ent = 'Y'] ]></WhereC lause></Se lectStatem ent><Enabl ePartition ing collap sed='1' ty pe='bool'> <![CDATA[0 ]]></Enabl ePartition ing></SQL> <Transacti on><Record Count type ='int'><![ CDATA[2000 ]]></Recor dCount><En dOfWave co llapsed='1 ' type='in t'><![CDAT A[0]]></En dOfWave></ Transactio n><Session ><Isolatio nLevel typ e='int'><! [CDATA[1]] ></Isolati onLevel><A utocommitM ode type=' int'><![CD ATA[0]]></ Autocommit Mode><Arra ySize type ='int'><![ CDATA[2000 ]]></Array Size><Sche maReconcil iation><Fa ilOnSizeMi smatch typ e='bool'>< ![CDATA[1] ]></FailOn SizeMismat ch><FailOn TypeMismat ch type='b ool'><![CD ATA[1]]></ FailOnType Mismatch>< FailOnCode PageMismat ch type='b ool'><![CD ATA[0]]></ FailOnCode PageMismat ch></Schem aReconcili ation><Pas sLobLocato r collapse d='1' type ='bool'><! [CDATA[0]] ></PassLob Locator><C odePage co llapsed='1 ' type='in t'><![CDAT A[0]]></Co dePage></S ession><Be foreAfter  collapsed= '1' type=' bool'><![C DATA[0]]>< /BeforeAft er><LimitR ows collap sed='1' ty pe='bool'> <![CDATA[0 ]]></Limit Rows></Usa ge></Prope rties >"
  6915         END  DSSUBRECOR D
  6916         Next RecordID " 0"
  6917      END DSR ECORD
  6918      BEGIN D SRECORD
  6919         Iden tifier "V1 12S0P1"
  6920         OLET ype "CCust omOutput"
  6921         Read only "0"
  6922         Name  "DimDiagn osisCode"
  6923         Part ner "V0S11 4|V0S114P8 "
  6924         Prop erties "CC ustomPrope rty"
  6925         BEGI N DSSUBREC ORD
  6926            N ame "looku p\\type"
  6927         END  DSSUBRECOR D
  6928         BEGI N DSSUBREC ORD
  6929            N ame "Varia ntName"
  6930            V alue "3.5"
  6931         END  DSSUBRECOR D
  6932         BEGI N DSSUBREC ORD
  6933            N ame "Varia ntLibrary"
  6934            V alue "ccod bc"
  6935         END  DSSUBRECOR D
  6936         BEGI N DSSUBREC ORD
  6937            N ame "Varia ntVersion"
  6938            V alue "1.0"
  6939         END  DSSUBRECOR D
  6940         BEGI N DSSUBREC ORD
  6941            N ame "Rejec tFromLink"
  6942            V alue "-1"
  6943         END  DSSUBRECOR D
  6944         BEGI N DSSUBREC ORD
  6945            N ame "Rejec tThreshold "
  6946            V alue "0"
  6947         END  DSSUBRECOR D
  6948         BEGI N DSSUBREC ORD
  6949            N ame "Rejec tNumber"
  6950            V alue "0"
  6951         END  DSSUBRECOR D
  6952         BEGI N DSSUBREC ORD
  6953            N ame "Rejec tUsesPerce ntage"
  6954            V alue "fals e"
  6955         END  DSSUBRECOR D
  6956         BEGI N DSSUBREC ORD
  6957            N ame "Conne ctorName"
  6958            V alue "ODBC Connector"
  6959         END  DSSUBRECOR D
  6960         Colu mns "COutp utColumn"
  6961         BEGI N DSSUBREC ORD
  6962            N ame "DIAGN OSIS_key"
  6963            D escription  =+=+=+=
  6964   <none>
  6965   Searchable ? N 
  6966   =+=+=+=
  6967            S qlType "4"
  6968            P recision " 10"
  6969            S cale "0"
  6970            N ullable "0 "
  6971            K eyPosition  "0"
  6972            D isplaySize  "11"
  6973            G roup "0"
  6974            S ortKey "0"
  6975            S ortType "0 "
  6976            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  6977            A llowCRLF " 0"
  6978            L evelNo "0"
  6979            O ccurs "0"
  6980            P adNulls "0 "
  6981            S ignOption  "0"
  6982            S ortingOrde r "0"
  6983            A rrayHandli ng "0"
  6984            S yncIndicat or "0"
  6985            P adChar ""
  6986            C olumnRefer ence "paye r_key"
  6987            A PTFieldPro p "quote=n one"
  6988            E xtendedPre cision "0"
  6989            T aggedSubre c "0"
  6990            O ccursVaryi ng "0"
  6991            P KeyIsCasel ess "0"
  6992            S CDPurpose  "0"
  6993         END  DSSUBRECOR D
  6994         BEGI N DSSUBREC ORD
  6995            N ame "diagn osis_code"
  6996            D escription  =+=+=+=
  6997   <none>
  6998   Searchable ? N 
  6999   =+=+=+=
  7000            S qlType "12 "
  7001            P recision " 30"
  7002            S cale "0"
  7003            N ullable "1 "
  7004            K eyPosition  "1"
  7005            D isplaySize  "11"
  7006            G roup "0"
  7007            K eyExpressi on "FmtDia gCodes.dia gnoses_cod e"
  7008            S ortKey "0"
  7009            S ortType "0 "
  7010            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  7011            A llowCRLF " 0"
  7012            L evelNo "0"
  7013            O ccurs "0"
  7014            P adNulls "0 "
  7015            S ignOption  "0"
  7016            S ortingOrde r "0"
  7017            A rrayHandli ng "0"
  7018            S yncIndicat or "0"
  7019            P adChar ""
  7020            C olumnRefer ence "paye r_name"
  7021            A PTFieldPro p "null_fi eld=''"
  7022            E xtendedPre cision "0"
  7023            T aggedSubre c "0"
  7024            O ccursVaryi ng "0"
  7025            P KeyParsedD erivation  "FmtDiagCo des.diagno ses_code"
  7026            P KeySourceC olumn "Fmt DiagCodes. diagnoses_ code"
  7027            P KeyIsCasel ess "0"
  7028            S CDPurpose  "0"
  7029         END  DSSUBRECOR D
  7030         Meta Bag "CMeta Property"
  7031         BEGI N DSSUBREC ORD
  7032            O wner "APT"
  7033            N ame "Schem aFormat"
  7034         END  DSSUBRECOR D
  7035         BEGI N DSSUBREC ORD
  7036            O wner "APT"
  7037            N ame "DiskW riteInc"
  7038            V alue "1048 576"
  7039         END  DSSUBRECOR D
  7040         BEGI N DSSUBREC ORD
  7041            O wner "APT"
  7042            N ame "BufFr eeRun"
  7043            V alue "50"
  7044         END  DSSUBRECOR D
  7045         BEGI N DSSUBREC ORD
  7046            O wner "APT"
  7047            N ame "MaxMe mBufSize"
  7048            V alue "3145 728"
  7049         END  DSSUBRECOR D
  7050         BEGI N DSSUBREC ORD
  7051            O wner "APT"
  7052            N ame "Queue UpperSize"
  7053            V alue "0"
  7054         END  DSSUBRECOR D
  7055         Left TextPos "9 59"
  7056         TopT extPos "14 8"
  7057         Link Minimised  "0"
  7058      END DSR ECORD
  7059      BEGIN D SRECORD
  7060         Iden tifier "V1 21S0"
  7061         OLET ype "CTran sformerSta ge"
  7062         Read only "0"
  7063         Name  "genRecsB yCode"
  7064         Next ID "7"
  7065         Inpu tPins "V12 1S0P6"
  7066         Outp utPins "V1 21S0P2"
  7067         Meta Bag "CMeta Property"
  7068         BEGI N DSSUBREC ORD
  7069            O wner "APT"
  7070            N ame "TrxGe nCode"
  7071            V alue =+=+= +=
  7072   //
  7073   // Generat ed file to  implement  the V121S 0_EDI837P_ CLAIM_DIAG NOSIS_prep _genRecsBy Code trans form opera tor.
  7074   //
  7075  
  7076   // define  our input/ output lin k names
  7077   inputname  0 BusRls;
  7078   outputname  0 genRecs ByCode;
  7079  
  7080   initialize  {
  7081    // define  our contr ol variabl es
  7082    int8 RowR ejected0;
  7083    int8 Null SetVar0;
  7084    uint64 It eration0;
  7085  
  7086  
  7087    // get an y loop war ning thres hold
  7088    int64 Loo pThreshold 0;
  7089    string Lo opThreshol dEnv0;
  7090    string Lo opThreshol dName0;
  7091    LoopThres holdName0  = "APT_TRA NSFORM_LOO P_WARNING_ THRESHOLD" ;
  7092    LoopThres holdEnv0 =  get_envir onment(Loo pThreshold Name0);
  7093    if ((Loop ThresholdE nv0 == "")  || (LoopT hresholdEn v0 == "-1" )) {
  7094     LoopThre shold0 = 1 0000;
  7095    } else {
  7096     LoopThre shold0 = L oopThresho ldEnv0;
  7097    }
  7098  
  7099    // declar e our inte rmediate v ariables f or this se ction (1)
  7100    string In terVar0_0;
  7101    string In terVar0_3;
  7102    string In terVar0_4;
  7103  
  7104    // initia lise const ant values  which req uire conve rsion
  7105    InterVar0 _0 = "*";
  7106    InterVar0 _3 = ":";
  7107    // Stage  variable d eclaration  and initi alisation
  7108    int32 Sta geVar0_svD Count;
  7109    StageVar0 _svDCount  = 0;
  7110   }
  7111  
  7112   mainloop {
  7113    Iteration 0 = 1;
  7114  
  7115    // declar e our inte rmediate v ariables f or this se ction (2)
  7116    int32 Int erVar0_1;
  7117    uint64 In terVar0_2;
  7118  
  7119    // evalua te the sta ge variabl es first
  7120    StageVar0 _svDCount  = dcount_s ubstring(B usRls.diag noses_code _all , Int erVar0_0);
  7121  
  7122    // Loop v ariable de claration  and initia lisation
  7123    string Lo opVar0_tmp Codes;
  7124    LoopVar0_ tmpCodes =  "";
  7125  
  7126    InterVar0 _2 = Stage Var0_svDCo unt;
  7127  
  7128    while ((I teration0  <= InterVa r0_2)) {
  7129  
  7130     // evalu ate the lo op variabl es
  7131     InterVar 0_1 = Iter ation0;
  7132     LoopVar0 _tmpCodes  = substrin g_by_delim iter(BusRl s.diagnose s_code_all  , InterVa r0_0 , Int erVar0_1 ,  1);
  7133  
  7134  
  7135     // initi alise the  rejected r ow variabl e
  7136     RowRejec ted0 = 1;
  7137  
  7138     // evalu ate column s (no cons traints) f or link: g enRecsByCo de
  7139     genRecsB yCode.ICDV ersion = B usRls.ICDV ersion;
  7140     genRecsB yCode.diag noses_qual if = subst ring_by_de limiter(Lo opVar0_tmp Codes , In terVar0_3  , 1 , 1);
  7141     genRecsB yCode.diag noses_code  = substri ng_by_deli miter(Loop Var0_tmpCo des , Inte rVar0_3 ,  2 , 1);
  7142     writerec ord 0;
  7143     RowRejec ted0 = 0;
  7144  
  7145     // Check  for hitti ng the war ning thres hold
  7146     if (Loop Threshold0  > 0) {
  7147      if ((It eration0 %  LoopThres hold0) ==  0) {
  7148       InterV ar0_4 = It eration0;
  7149       print_ warning("T he warning  threshold  for the n umber of o utput row  iterations  processed  per singl e input ro w has been  reached.  Number of  output row  iteration s: " + Int erVar0_4 +  ". This i s just a w arning and  the job w ill contin ue.");
  7150      }
  7151     }
  7152     Iteratio n0 = Itera tion0 + 1;
  7153     // now d o any work  to re-eva luate the  while cond ition
  7154    InterVar0 _2 = Stage Var0_svDCo unt;
  7155  
  7156    }
  7157   }
  7158  
  7159   finish {
  7160   }
  7161  
  7162   =+=+=+=
  7163         END  DSSUBRECOR D
  7164         BEGI N DSSUBREC ORD
  7165            O wner "APT"
  7166            N ame "TrxGe nCache"
  7167            V alue "1"
  7168         END  DSSUBRECOR D
  7169         BEGI N DSSUBREC ORD
  7170            O wner "APT"
  7171            N ame "TrxCl assName"
  7172            V alue "V121 S0_EDI837P _CLAIM_DIA GNOSIS_pre p_genRecsB yCode"
  7173         END  DSSUBRECOR D
  7174         BEGI N DSSUBREC ORD
  7175            O wner "APT"
  7176            N ame "TrxGe nWarnings"
  7177            V alue =+=+= +=
  7178   genRecsByC ode
  7179      WARNING : Error in  loop vari able deriv ation for  variable t mpCodes. 
  7180          - p otential d ata or pre cision los s converti ng from ui nt64 to in t32
  7181      WARNING : Error in  loop cond ition expr ession.
  7182          - p otential d ata or pre cision los s converti ng from in t32 to uin t64
  7183  
  7184   =+=+=+=
  7185         END  DSSUBRECOR D
  7186         Vali dationStat us "0"
  7187         Stag eType "CTr ansformerS tage"
  7188         Bloc kSize "0"
  7189         SKKe ySourceTyp e "file"
  7190         Stag eVars "CSt ageVar"
  7191         BEGI N DSSUBREC ORD
  7192            N ame "svDCo unt"
  7193            E xpression  "DCOUNT(Bu sRls.diagn oses_code_ all , \"*\ ")"
  7194            I nitialValu e "0"
  7195            S qlType "4"
  7196            P arsedExpre ssion "DCO UNT(BusRls .diagnoses _code_all,  \"*\")"
  7197            S ourceColum n "BusRls. diagnoses_ code_all"
  7198            P recision " 10"
  7199            C olScale "0 "
  7200            E xtendedPre cision "0"
  7201         END  DSSUBRECOR D
  7202         Loop Condition  "CStageVar "
  7203         BEGI N DSSUBREC ORD
  7204            N ame "$Loop Condition"
  7205            E xpression  "@ITERATIO N <= svDCo unt"
  7206            S qlType "3"
  7207            P arsedExpre ssion "@IT ERATION <=  svDCount"
  7208            S tageVars " svDCount"
  7209            P recision " 18"
  7210            C olScale "4 "
  7211            E xtendedPre cision "0"
  7212         END  DSSUBRECOR D
  7213         Loop Vars "CSta geVar"
  7214         BEGI N DSSUBREC ORD
  7215            N ame "tmpCo des"
  7216            E xpression  "FIELD(Bus Rls.diagno ses_code_a ll, \"*\",  @ITERATIO N, 1)"
  7217            S qlType "12 "
  7218            P arsedExpre ssion "FIE LD(BusRls. diagnoses_ code_all,  \"*\", @IT ERATION, 1 )"
  7219            S ourceColum n "BusRls. diagnoses_ code_all"
  7220            P recision " 50"
  7221            C olScale "0 "
  7222            E xtendedPre cision "0"
  7223         END  DSSUBRECOR D
  7224         Stag eVarsMinim ised "0"
  7225         Loop VarsMaximi sed "1"
  7226         MaxL oopIterati ons "0"
  7227      END DSR ECORD
  7228      BEGIN D SRECORD
  7229         Iden tifier "V1 21S0P2"
  7230         OLET ype "CTrxO utput"
  7231         Read only "0"
  7232         Name  "genRecsB yCode"
  7233         Part ner "V0S17 6|V0S176P1 "
  7234         Reje ct "0"
  7235         Erro rPin "0"
  7236         RowL imit "0"
  7237         Colu mns "COutp utColumn"
  7238         BEGI N DSSUBREC ORD
  7239            N ame "claim _id"
  7240            S qlType "12 "
  7241            P recision " 20"
  7242            S cale "0"
  7243            N ullable "1 "
  7244            K eyPosition  "0"
  7245            D isplaySize  "0"
  7246            D erivation  "BusRls.cl aim_id"
  7247            G roup "0"
  7248            P arsedDeriv ation "Bus Rls.claim_ id"
  7249            S ourceColum n "BusRls. claim_id"
  7250            S ortKey "0"
  7251            S ortType "0 "
  7252            A llowCRLF " 0"
  7253            L evelNo "0"
  7254            O ccurs "0"
  7255            P adNulls "0 "
  7256            S ignOption  "0"
  7257            S ortingOrde r "0"
  7258            A rrayHandli ng "0"
  7259            S yncIndicat or "0"
  7260            P adChar ""
  7261            E xtendedPre cision "0"
  7262            T aggedSubre c "0"
  7263            O ccursVaryi ng "0"
  7264            P KeyIsCasel ess "0"
  7265            S CDPurpose  "0"
  7266         END  DSSUBRECOR D
  7267         BEGI N DSSUBREC ORD
  7268            N ame "ICDVe rsion"
  7269            S qlType "12 "
  7270            P recision " 15"
  7271            S cale "0"
  7272            N ullable "1 "
  7273            K eyPosition  "0"
  7274            D isplaySize  "0"
  7275            D erivation  "BusRls.IC DVersion"
  7276            G roup "0"
  7277            P arsedDeriv ation "Bus Rls.ICDVer sion"
  7278            S ourceColum n "BusRls. ICDVersion "
  7279            S ortKey "0"
  7280            S ortType "0 "
  7281            A llowCRLF " 0"
  7282            L evelNo "0"
  7283            O ccurs "0"
  7284            P adNulls "0 "
  7285            S ignOption  "0"
  7286            S ortingOrde r "0"
  7287            A rrayHandli ng "0"
  7288            S yncIndicat or "0"
  7289            P adChar ""
  7290            E xtendedPre cision "0"
  7291            T aggedSubre c "0"
  7292            O ccursVaryi ng "0"
  7293            P KeyIsCasel ess "0"
  7294            S CDPurpose  "0"
  7295         END  DSSUBRECOR D
  7296         BEGI N DSSUBREC ORD
  7297            N ame "diagn oses_quali f"
  7298            D escription  =+=+=+=
  7299   <none>
  7300   Searchable ? N 
  7301   =+=+=+=
  7302            S qlType "12 "
  7303            P recision " 10"
  7304            S cale "0"
  7305            N ullable "1 "
  7306            K eyPosition  "0"
  7307            D isplaySize  "15"
  7308            D erivation  "Field(tmp Codes, \": \", 1,1)"
  7309            G roup "0"
  7310            P arsedDeriv ation "Fie ld(tmpCode s, \":\",  1, 1)"
  7311            S ortKey "0"
  7312            S ortType "0 "
  7313            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  7314            A llowCRLF " 0"
  7315            L evelNo "0"
  7316            O ccurs "0"
  7317            P adNulls "0 "
  7318            S ignOption  "0"
  7319            S ortingOrde r "0"
  7320            S tageVars " \(1B)tmpCo des"
  7321            A rrayHandli ng "0"
  7322            S yncIndicat or "0"
  7323            P adChar ""
  7324            C olumnRefer ence "oral _cavity_de signation_ code"
  7325            A PTFieldPro p "null_fi eld=''"
  7326            E xtendedPre cision "0"
  7327            T aggedSubre c "0"
  7328            O ccursVaryi ng "0"
  7329            P KeyIsCasel ess "0"
  7330            S CDPurpose  "0"
  7331         END  DSSUBRECOR D
  7332         BEGI N DSSUBREC ORD
  7333            N ame "diagn oses_code"
  7334            D escription  =+=+=+=
  7335   <none>
  7336   Searchable ? N 
  7337   =+=+=+=
  7338            S qlType "12 "
  7339            P recision " 30"
  7340            S cale "0"
  7341            N ullable "1 "
  7342            K eyPosition  "0"
  7343            D isplaySize  "15"
  7344            D erivation  "Field(tmp Codes, \": \", 2,1)"
  7345            G roup "0"
  7346            P arsedDeriv ation "Fie ld(tmpCode s, \":\",  2, 1)"
  7347            S ortKey "0"
  7348            S ortType "0 "
  7349            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  7350            A llowCRLF " 0"
  7351            L evelNo "0"
  7352            O ccurs "0"
  7353            P adNulls "0 "
  7354            S ignOption  "0"
  7355            S ortingOrde r "0"
  7356            S tageVars " \(1B)tmpCo des"
  7357            A rrayHandli ng "0"
  7358            S yncIndicat or "0"
  7359            P adChar ""
  7360            C olumnRefer ence "oral _cavity_de signation_ code"
  7361            A PTFieldPro p "null_fi eld=''"
  7362            E xtendedPre cision "0"
  7363            T aggedSubre c "0"
  7364            O ccursVaryi ng "0"
  7365            P KeyIsCasel ess "0"
  7366            S CDPurpose  "0"
  7367         END  DSSUBRECOR D
  7368         BEGI N DSSUBREC ORD
  7369            N ame "is_cu rrent"
  7370            S qlType "1"
  7371            P recision " 1"
  7372            S cale "0"
  7373            N ullable "0 "
  7374            K eyPosition  "0"
  7375            D isplaySize  "0"
  7376            D erivation  "BusRls.is _current"
  7377            G roup "0"
  7378            P arsedDeriv ation "Bus Rls.is_cur rent"
  7379            S ourceColum n "BusRls. is_current "
  7380            S ortKey "0"
  7381            S ortType "0 "
  7382            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  7383            A llowCRLF " 0"
  7384            L evelNo "0"
  7385            N ativeType  "pit_boole an"
  7386            O ccurs "0"
  7387            P adNulls "0 "
  7388            S ignOption  "0"
  7389            S ortingOrde r "0"
  7390            A rrayHandli ng "0"
  7391            S yncIndicat or "0"
  7392            P adChar ""
  7393            C olumnRefer ence "is_c urrent"
  7394            E xtendedPre cision "0"
  7395            T aggedSubre c "0"
  7396            O ccursVaryi ng "0"
  7397            P KeyIsCasel ess "0"
  7398            S CDPurpose  "0"
  7399         END  DSSUBRECOR D
  7400         BEGI N DSSUBREC ORD
  7401            N ame "start _date"
  7402            S qlType "9"
  7403            P recision " 10"
  7404            S cale "0"
  7405            N ullable "1 "
  7406            K eyPosition  "0"
  7407            D isplaySize  "0"
  7408            D erivation  "BusRls.st art_date"
  7409            G roup "0"
  7410            P arsedDeriv ation "Bus Rls.start_ date"
  7411            S ourceColum n "BusRls. start_date "
  7412            S ortKey "0"
  7413            S ortType "0 "
  7414            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  7415            A llowCRLF " 0"
  7416            L evelNo "0"
  7417            N ativeType  "pit_date"
  7418            O ccurs "0"
  7419            P adNulls "0 "
  7420            S ignOption  "0"
  7421            S ortingOrde r "0"
  7422            A rrayHandli ng "0"
  7423            S yncIndicat or "0"
  7424            P adChar ""
  7425            C olumnRefer ence "star t_date"
  7426            E xtendedPre cision "0"
  7427            T aggedSubre c "0"
  7428            O ccursVaryi ng "0"
  7429            P KeyIsCasel ess "0"
  7430            S CDPurpose  "0"
  7431         END  DSSUBRECOR D
  7432         BEGI N DSSUBREC ORD
  7433            N ame "end_d ate"
  7434            S qlType "9"
  7435            P recision " 10"
  7436            S cale "0"
  7437            N ullable "1 "
  7438            K eyPosition  "0"
  7439            D isplaySize  "0"
  7440            D erivation  "BusRls.en d_date"
  7441            G roup "0"
  7442            P arsedDeriv ation "Bus Rls.end_da te"
  7443            S ourceColum n "BusRls. end_date"
  7444            S ortKey "0"
  7445            S ortType "0 "
  7446            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  7447            A llowCRLF " 0"
  7448            L evelNo "0"
  7449            N ativeType  "pit_end_d ate"
  7450            O ccurs "0"
  7451            P adNulls "0 "
  7452            S ignOption  "0"
  7453            S ortingOrde r "0"
  7454            A rrayHandli ng "0"
  7455            S yncIndicat or "0"
  7456            P adChar ""
  7457            C olumnRefer ence "end_ date"
  7458            E xtendedPre cision "0"
  7459            T aggedSubre c "0"
  7460            O ccursVaryi ng "0"
  7461            P KeyIsCasel ess "0"
  7462            S CDPurpose  "0"
  7463         END  DSSUBRECOR D
  7464         BEGI N DSSUBREC ORD
  7465            N ame "sourc e_system"
  7466            S qlType "12 "
  7467            P recision " 20"
  7468            S cale "0"
  7469            N ullable "1 "
  7470            K eyPosition  "0"
  7471            D isplaySize  "0"
  7472            D erivation  "BusRls.so urce_syste m"
  7473            G roup "0"
  7474            P arsedDeriv ation "Bus Rls.source _system"
  7475            S ourceColum n "BusRls. source_sys tem"
  7476            S ortKey "0"
  7477            S ortType "0 "
  7478            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  7479            A llowCRLF " 0"
  7480            L evelNo "0"
  7481            N ativeType  "varchar"
  7482            O ccurs "0"
  7483            P adNulls "0 "
  7484            S ignOption  "0"
  7485            S ortingOrde r "0"
  7486            A rrayHandli ng "0"
  7487            S yncIndicat or "0"
  7488            P adChar ""
  7489            C olumnRefer ence "sour ce_system"
  7490            E xtendedPre cision "0"
  7491            T aggedSubre c "0"
  7492            O ccursVaryi ng "0"
  7493            P KeyIsCasel ess "0"
  7494            S CDPurpose  "0"
  7495         END  DSSUBRECOR D
  7496         BEGI N DSSUBREC ORD
  7497            N ame "sourc e_entity"
  7498            S qlType "12 "
  7499            P recision " 50"
  7500            S cale "0"
  7501            N ullable "1 "
  7502            K eyPosition  "0"
  7503            D isplaySize  "0"
  7504            D erivation  "BusRls.so urce_entit y"
  7505            G roup "0"
  7506            P arsedDeriv ation "Bus Rls.source _entity"
  7507            S ourceColum n "BusRls. source_ent ity"
  7508            S ortKey "0"
  7509            S ortType "0 "
  7510            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  7511            A llowCRLF " 0"
  7512            L evelNo "0"
  7513            O ccurs "0"
  7514            P adNulls "0 "
  7515            S ignOption  "0"
  7516            S ortingOrde r "0"
  7517            A rrayHandli ng "0"
  7518            S yncIndicat or "0"
  7519            P adChar ""
  7520            C olumnRefer ence "sour ce_entity"
  7521            E xtendedPre cision "0"
  7522            T aggedSubre c "0"
  7523            O ccursVaryi ng "0"
  7524            P KeyIsCasel ess "0"
  7525            S CDPurpose  "0"
  7526         END  DSSUBRECOR D
  7527         BEGI N DSSUBREC ORD
  7528            N ame "row_i d"
  7529            S qlType "12 "
  7530            P recision " 20"
  7531            S cale "0"
  7532            N ullable "1 "
  7533            K eyPosition  "0"
  7534            D isplaySize  "0"
  7535            D erivation  "BusRls.ro w_id"
  7536            G roup "0"
  7537            P arsedDeriv ation "Bus Rls.row_id "
  7538            S ourceColum n "BusRls. row_id"
  7539            S ortKey "0"
  7540            S ortType "0 "
  7541            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  7542            A llowCRLF " 0"
  7543            L evelNo "0"
  7544            N ativeType  "varchar"
  7545            O ccurs "0"
  7546            P adNulls "0 "
  7547            S ignOption  "0"
  7548            S ortingOrde r "0"
  7549            A rrayHandli ng "0"
  7550            S yncIndicat or "0"
  7551            P adChar ""
  7552            C olumnRefer ence "row_ id"
  7553            E xtendedPre cision "0"
  7554            T aggedSubre c "0"
  7555            O ccursVaryi ng "0"
  7556            P KeyIsCasel ess "0"
  7557            S CDPurpose  "0"
  7558         END  DSSUBRECOR D
  7559         BEGI N DSSUBREC ORD
  7560            N ame "etl_b atch_id"
  7561            S qlType "12 "
  7562            P recision " 20"
  7563            S cale "0"
  7564            N ullable "1 "
  7565            K eyPosition  "0"
  7566            D isplaySize  "0"
  7567            D erivation  "BusRls.et l_batch_id "
  7568            G roup "0"
  7569            P arsedDeriv ation "Bus Rls.etl_ba tch_id"
  7570            S ourceColum n "BusRls. etl_batch_ id"
  7571            S ortKey "0"
  7572            S ortType "0 "
  7573            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  7574            A llowCRLF " 0"
  7575            L evelNo "0"
  7576            N ativeType  "varchar"
  7577            O ccurs "0"
  7578            P adNulls "0 "
  7579            S ignOption  "0"
  7580            S ortingOrde r "0"
  7581            A rrayHandli ng "0"
  7582            S yncIndicat or "0"
  7583            P adChar ""
  7584            C olumnRefer ence "etl_ batch_id"
  7585            E xtendedPre cision "0"
  7586            T aggedSubre c "0"
  7587            O ccursVaryi ng "0"
  7588            P KeyIsCasel ess "0"
  7589            S CDPurpose  "0"
  7590         END  DSSUBRECOR D
  7591         Meta Bag "CMeta Property"
  7592         BEGI N DSSUBREC ORD
  7593            O wner "APT"
  7594            N ame "DiskW riteInc"
  7595            V alue "1048 576"
  7596         END  DSSUBRECOR D
  7597         BEGI N DSSUBREC ORD
  7598            O wner "APT"
  7599            N ame "BufFr eeRun"
  7600            V alue "50"
  7601         END  DSSUBRECOR D
  7602         BEGI N DSSUBREC ORD
  7603            O wner "APT"
  7604            N ame "MaxMe mBufSize"
  7605            V alue "3145 728"
  7606         END  DSSUBRECOR D
  7607         BEGI N DSSUBREC ORD
  7608            O wner "APT"
  7609            N ame "Queue UpperSize"
  7610            V alue "0"
  7611         END  DSSUBRECOR D
  7612         BEGI N DSSUBREC ORD
  7613            O wner "APT"
  7614            N ame "Schem a"
  7615            V alue =+=+= +=
  7616   record
  7617   (
  7618     claim_id :nullable  string[max =20];
  7619     ICDVersi on:nullabl e string[m ax=15];
  7620     diagnose s_qualif:n ullable st ring[max=1 0];
  7621     diagnose s_code:nul lable stri ng[max=30] ;
  7622     is_curre nt:string[ 1];
  7623     start_da te:nullabl e date;
  7624     end_date :nullable  date;
  7625     source_s ystem:null able strin g[max=20];
  7626     source_e ntity:null able strin g[max=50];
  7627     row_id:n ullable st ring[max=2 0];
  7628     etl_batc h_id:nulla ble string [max=20];
  7629   )
  7630   =+=+=+=
  7631         END  DSSUBRECOR D
  7632         BEGI N DSSUBREC ORD
  7633            O wner "APT"
  7634            N ame "SortO rderPreser ved"
  7635            V alue "0"
  7636         END  DSSUBRECOR D
  7637         Left TextPos "5 89"
  7638         TopT extPos "28 5"
  7639         Link Minimised  "0"
  7640      END DSR ECORD
  7641      BEGIN D SRECORD
  7642         Iden tifier "V1 21S0P6"
  7643         OLET ype "CTrxI nput"
  7644         Read only "0"
  7645         Name  "BusRls"
  7646         Part ner "V81S2 |V81S2P2"
  7647         Link Type "1"
  7648         Meta Bag "CMeta Property"
  7649         BEGI N DSSUBREC ORD
  7650            O wner "APT"
  7651            N ame "RTCol umnProp"
  7652            V alue "0"
  7653         END  DSSUBRECOR D
  7654         BEGI N DSSUBREC ORD
  7655            O wner "APT"
  7656            N ame "Schem a"
  7657            V alue =+=+= +=
  7658   record
  7659   (
  7660     claim_id :nullable  string[max =20];
  7661     diagnose s_code_all :nullable  string[max =200];
  7662     ICDVersi on:string[ max=15];
  7663     is_curre nt:string[ 1];
  7664     start_da te:nullabl e date;
  7665     end_date :nullable  date;
  7666     source_s ystem:null able strin g[max=20];
  7667     source_e ntity:null able strin g[max=50];
  7668     row_id:n ullable st ring[max=2 0];
  7669     diagnosi s_poa:null able strin g[1];
  7670     claim_ke y_pr:nulla ble int32;
  7671     etl_batc h_id:nulla ble string [max=20];
  7672   )
  7673   =+=+=+=
  7674         END  DSSUBRECOR D
  7675         Mult iRow "0"
  7676         Link Minimised  "0"
  7677      END DSR ECORD
  7678      BEGIN D SRECORD
  7679         Iden tifier "V1 23S0"
  7680         OLET ype "CCust omStage"
  7681         Read only "0"
  7682         Name  "Ds_Claim Diagnosis"
  7683         Next ID "2"
  7684         Inpu tPins "V12 3S0P1"
  7685         Stag eType "PxD ataSet"
  7686         Allo wColumnMap ping "0"
  7687         Next RecordID " 0"
  7688      END DSR ECORD
  7689      BEGIN D SRECORD
  7690         Iden tifier "V1 23S0P1"
  7691         OLET ype "CCust omInput"
  7692         Read only "0"
  7693         Name  "ClmDiagn _out"
  7694         Part ner "V124S 0|V124S0P3 "
  7695         Link Type "1"
  7696         Cond itionNotMe t "fail"
  7697         Look upFail "fa il"
  7698         Prop erties "CC ustomPrope rty"
  7699         BEGI N DSSUBREC ORD
  7700            N ame "datas et"
  7701            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Cl aimDiagnos is.ds"
  7702         END  DSSUBRECOR D
  7703         BEGI N DSSUBREC ORD
  7704            N ame "datas etmode"
  7705            V alue ">| [ ds"
  7706         END  DSSUBRECOR D
  7707         Meta Bag "CMeta Property"
  7708         BEGI N DSSUBREC ORD
  7709            O wner "APT"
  7710            N ame "RTCol umnProp"
  7711            V alue "0"
  7712         END  DSSUBRECOR D
  7713         BEGI N DSSUBREC ORD
  7714            O wner "APT"
  7715            N ame "Part/ Col"
  7716            V alue "same "
  7717         END  DSSUBRECOR D
  7718         BEGI N DSSUBREC ORD
  7719            O wner "APT"
  7720            N ame "SortA dv"
  7721            V alue "-non Stable"
  7722         END  DSSUBRECOR D
  7723         BEGI N DSSUBREC ORD
  7724            O wner "APT"
  7725            N ame "SeqSo rt"
  7726            V alue "0"
  7727         END  DSSUBRECOR D
  7728         Tran sactionSiz e "0"
  7729         TXNB ehaviour " 0"
  7730         Enab leTxGroup  "0"
  7731         Link Minimised  "0"
  7732      END DSR ECORD
  7733      BEGIN D SRECORD
  7734         Iden tifier "V1 24S0"
  7735         OLET ype "CTran sformerSta ge"
  7736         Read only "0"
  7737         Name  "Xfrm_Cla imDiagnosi s"
  7738         Next ID "6"
  7739         Inpu tPins "V12 4S0P5"
  7740         Outp utPins "V1 24S0P3"
  7741         Meta Bag "CMeta Property"
  7742         BEGI N DSSUBREC ORD
  7743            O wner "APT"
  7744            N ame "TrxGe nCode"
  7745            V alue =+=+= +=
  7746   //
  7747   // Generat ed file to  implement  the V124S 0_EDI837P_ CLAIM_DIAG NOSIS_prep _Xfrm_Clai mDiagnosis  transform  operator.
  7748   //
  7749  
  7750   // define  our input/ output lin k names
  7751   inputname  0 DepupRow s;
  7752   outputname  0 ClmDiag n_out;
  7753  
  7754   initialize  {
  7755    // define  our contr ol variabl es
  7756    int8 RowR ejected0;
  7757    int8 Null SetVar0;
  7758  
  7759   }
  7760  
  7761   mainloop {
  7762  
  7763    // declar e our inte rmediate v ariables f or this se ction (2)
  7764    int32 Int erVar0_0;
  7765    int32 Int erVar0_1;
  7766  
  7767    // initia lise the r ejected ro w variable
  7768    RowReject ed0 = 1;
  7769  
  7770    // evalua te constra int and co lumns for  link: ClmD iagn_out
  7771    if (notnu ll(DepupRo ws.claim_k ey)) {
  7772     InterVar 0_0 = Depu pRows.clai m_key;
  7773    } else {
  7774     InterVar 0_0 = 0;
  7775    }
  7776    if ((Inte rVar0_0 >  0))
  7777    {
  7778     if (notn ull(DepupR ows.DIAGNO SIS_key))  {
  7779      InterVa r0_1 = Dep upRows.DIA GNOSIS_key ;
  7780     } else {
  7781      InterVa r0_1 = 0;
  7782     }
  7783     if ((Int erVar0_1 >  0)) {
  7784      ClmDiag n_out.DIAG NOSIS_key  = DepupRow s.DIAGNOSI S_key;
  7785     } else {
  7786      ClmDiag n_out.DIAG NOSIS_key  = -1;
  7787     }
  7788     //;
  7789     ClmDiagn _out.sourc e_entity =  DepupRows .source_en tity;
  7790     ClmDiagn _out.claim _key = Dep upRows.cla im_key;
  7791     writerec ord 0;
  7792     RowRejec ted0 = 0;
  7793    }
  7794   }
  7795  
  7796   finish {
  7797   }
  7798  
  7799   =+=+=+=
  7800         END  DSSUBRECOR D
  7801         BEGI N DSSUBREC ORD
  7802            O wner "APT"
  7803            N ame "TrxGe nCache"
  7804            V alue "0"
  7805         END  DSSUBRECOR D
  7806         BEGI N DSSUBREC ORD
  7807            O wner "APT"
  7808            N ame "TrxCl assName"
  7809            V alue "V124 S0_EDI837P _CLAIM_DIA GNOSIS_pre p_Xfrm_Cla imDiagnosi s"
  7810         END  DSSUBRECOR D
  7811         BEGI N DSSUBREC ORD
  7812            O wner "APT"
  7813            N ame "Execm ode"
  7814            V alue "seq"
  7815         END  DSSUBRECOR D
  7816         Vali dationStat us "0"
  7817         Stag eType "CTr ansformerS tage"
  7818         Bloc kSize "0"
  7819         SKKe ySourceTyp e "file"
  7820         Stag eVarsMinim ised "0"
  7821         Loop VarsMaximi sed "0"
  7822         MaxL oopIterati ons "0"
  7823      END DSR ECORD
  7824      BEGIN D SRECORD
  7825         Iden tifier "V1 24S0P3"
  7826         OLET ype "CTrxO utput"
  7827         Read only "0"
  7828         Name  "ClmDiagn _out"
  7829         Part ner "V123S 0|V123S0P1 "
  7830         Cons traint "Nu llToZero(D epupRows.c laim_key)  > 0"
  7831         Reje ct "0"
  7832         Erro rPin "0"
  7833         RowL imit "0"
  7834         Pars edConstrai nt "( IF I sNotNull(( DepupRows. claim_key) ) THEN (De pupRows.cl aim_key) E LSE 0) > 0 "
  7835         Sour ceColumns  "DepupRows .claim_key "
  7836         Colu mns "COutp utColumn"
  7837         BEGI N DSSUBREC ORD
  7838            N ame "DIAGN OSIS_key"
  7839            D escription  =+=+=+=
  7840   <none>
  7841   Searchable ? N 
  7842   =+=+=+=
  7843            S qlType "4"
  7844            P recision " 10"
  7845            S cale "0"
  7846            N ullable "1 "
  7847            K eyPosition  "0"
  7848            D isplaySize  "11"
  7849            D erivation  "If NullTo Zero(Depup Rows.DIAGN OSIS_key)  > 0 Then D epupRows.D IAGNOSIS_k ey Else -1 "
  7850            G roup "0"
  7851            P arsedDeriv ation " If  ( IF IsNo tNull((Dep upRows.DIA GNOSIS_key )) THEN (D epupRows.D IAGNOSIS_k ey) ELSE 0 ) > 0 Then  DepupRows .DIAGNOSIS _key Else  -1"
  7852            S ourceColum n "DepupRo ws.DIAGNOS IS_key"
  7853            S ortKey "0"
  7854            S ortType "0 "
  7855            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  7856            A llowCRLF " 0"
  7857            L evelNo "0"
  7858            O ccurs "0"
  7859            P adNulls "0 "
  7860            S ignOption  "0"
  7861            S ortingOrde r "0"
  7862            A rrayHandli ng "0"
  7863            S yncIndicat or "0"
  7864            P adChar ""
  7865            C olumnRefer ence "DIAG NOSIS_key"
  7866            A PTFieldPro p "quote=n one, null_ field=''"
  7867            E xtendedPre cision "0"
  7868            T aggedSubre c "0"
  7869            O ccursVaryi ng "0"
  7870            P KeyIsCasel ess "0"
  7871            S CDPurpose  "0"
  7872         END  DSSUBRECOR D
  7873         BEGI N DSSUBREC ORD
  7874            N ame "is_cu rrent"
  7875            D escription  =+=+=+=
  7876   <none>
  7877   Searchable ? N 
  7878   =+=+=+=
  7879            S qlType "1"
  7880            P recision " 1"
  7881            S cale "0"
  7882            N ullable "0 "
  7883            K eyPosition  "0"
  7884            D isplaySize  "1"
  7885            D erivation  "DepupRows .is_curren t"
  7886            G roup "0"
  7887            P arsedDeriv ation "Dep upRows.is_ current"
  7888            S ourceColum n "DepupRo ws.is_curr ent"
  7889            S ortKey "0"
  7890            S ortType "0 "
  7891            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  7892            A llowCRLF " 0"
  7893            L evelNo "0"
  7894            O ccurs "0"
  7895            P adNulls "0 "
  7896            S ignOption  "0"
  7897            S ortingOrde r "0"
  7898            A rrayHandli ng "0"
  7899            S yncIndicat or "0"
  7900            P adChar ""
  7901            C olumnRefer ence "is_c urrent"
  7902            E xtendedPre cision "0"
  7903            T aggedSubre c "0"
  7904            O ccursVaryi ng "0"
  7905            P KeyIsCasel ess "0"
  7906            S CDPurpose  "0"
  7907         END  DSSUBRECOR D
  7908         BEGI N DSSUBREC ORD
  7909            N ame "start _date"
  7910            D escription  =+=+=+=
  7911   <none>
  7912   Searchable ? N 
  7913   =+=+=+=
  7914            S qlType "9"
  7915            P recision " 10"
  7916            S cale "0"
  7917            N ullable "1 "
  7918            K eyPosition  "0"
  7919            D isplaySize  "10"
  7920            D erivation  "DepupRows .start_dat e"
  7921            G roup "0"
  7922            P arsedDeriv ation "Dep upRows.sta rt_date"
  7923            S ourceColum n "DepupRo ws.start_d ate"
  7924            S ortKey "0"
  7925            S ortType "0 "
  7926            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  7927            A llowCRLF " 0"
  7928            L evelNo "0"
  7929            O ccurs "0"
  7930            P adNulls "0 "
  7931            S ignOption  "0"
  7932            S ortingOrde r "0"
  7933            A rrayHandli ng "0"
  7934            S yncIndicat or "0"
  7935            P adChar ""
  7936            C olumnRefer ence "star t_date"
  7937            A PTFieldPro p "null_fi eld=''"
  7938            E xtendedPre cision "0"
  7939            T aggedSubre c "0"
  7940            O ccursVaryi ng "0"
  7941            P KeyIsCasel ess "0"
  7942            S CDPurpose  "0"
  7943         END  DSSUBRECOR D
  7944         BEGI N DSSUBREC ORD
  7945            N ame "end_d ate"
  7946            D escription  =+=+=+=
  7947   <none>
  7948   Searchable ? N 
  7949   =+=+=+=
  7950            S qlType "9"
  7951            P recision " 10"
  7952            S cale "0"
  7953            N ullable "1 "
  7954            K eyPosition  "0"
  7955            D isplaySize  "10"
  7956            D erivation  "DepupRows .end_date"
  7957            G roup "0"
  7958            P arsedDeriv ation "Dep upRows.end _date"
  7959            S ourceColum n "DepupRo ws.end_dat e"
  7960            S ortKey "0"
  7961            S ortType "0 "
  7962            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  7963            A llowCRLF " 0"
  7964            L evelNo "0"
  7965            O ccurs "0"
  7966            P adNulls "0 "
  7967            S ignOption  "0"
  7968            S ortingOrde r "0"
  7969            A rrayHandli ng "0"
  7970            S yncIndicat or "0"
  7971            P adChar ""
  7972            C olumnRefer ence "end_ date"
  7973            A PTFieldPro p "null_fi eld=''"
  7974            E xtendedPre cision "0"
  7975            T aggedSubre c "0"
  7976            O ccursVaryi ng "0"
  7977            P KeyIsCasel ess "0"
  7978            S CDPurpose  "0"
  7979         END  DSSUBRECOR D
  7980         BEGI N DSSUBREC ORD
  7981            N ame "sourc e_system"
  7982            D escription  =+=+=+=
  7983   <none>
  7984   Searchable ? N 
  7985   =+=+=+=
  7986            S qlType "12 "
  7987            P recision " 20"
  7988            S cale "0"
  7989            N ullable "1 "
  7990            K eyPosition  "0"
  7991            D isplaySize  "20"
  7992            D erivation  "DepupRows .source_sy stem"
  7993            G roup "0"
  7994            P arsedDeriv ation "Dep upRows.sou rce_system "
  7995            S ourceColum n "DepupRo ws.source_ system"
  7996            S ortKey "0"
  7997            S ortType "0 "
  7998            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  7999            A llowCRLF " 0"
  8000            L evelNo "0"
  8001            O ccurs "0"
  8002            P adNulls "0 "
  8003            S ignOption  "0"
  8004            S ortingOrde r "0"
  8005            A rrayHandli ng "0"
  8006            S yncIndicat or "0"
  8007            P adChar ""
  8008            C olumnRefer ence "sour ce_system"
  8009            A PTFieldPro p "null_fi eld=''"
  8010            E xtendedPre cision "0"
  8011            T aggedSubre c "0"
  8012            O ccursVaryi ng "0"
  8013            P KeyIsCasel ess "0"
  8014            S CDPurpose  "0"
  8015         END  DSSUBRECOR D
  8016         BEGI N DSSUBREC ORD
  8017            N ame "sourc e_entity"
  8018            D escription  =+=+=+=
  8019   <none>
  8020   Searchable ? N 
  8021   =+=+=+=
  8022            S qlType "12 "
  8023            P recision " 50"
  8024            S cale "0"
  8025            N ullable "1 "
  8026            K eyPosition  "0"
  8027            D isplaySize  "50"
  8028            D erivation  "DepupRows .source_en tity"
  8029            G roup "0"
  8030            P arsedDeriv ation "Dep upRows.sou rce_entity "
  8031            S ourceColum n "DepupRo ws.source_ entity"
  8032            S ortKey "0"
  8033            S ortType "0 "
  8034            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  8035            A llowCRLF " 0"
  8036            L evelNo "0"
  8037            O ccurs "0"
  8038            P adNulls "0 "
  8039            S ignOption  "0"
  8040            S ortingOrde r "0"
  8041            A rrayHandli ng "0"
  8042            S yncIndicat or "0"
  8043            P adChar ""
  8044            C olumnRefer ence "sour ce_entity"
  8045            A PTFieldPro p "null_fi eld=''"
  8046            E xtendedPre cision "0"
  8047            T aggedSubre c "0"
  8048            O ccursVaryi ng "0"
  8049            P KeyIsCasel ess "0"
  8050            S CDPurpose  "0"
  8051         END  DSSUBRECOR D
  8052         BEGI N DSSUBREC ORD
  8053            N ame "claim _key"
  8054            D escription  =+=+=+=
  8055   <none>
  8056   Searchable ? N 
  8057   =+=+=+=
  8058            S qlType "4"
  8059            P recision " 10"
  8060            S cale "0"
  8061            N ullable "1 "
  8062            K eyPosition  "0"
  8063            D isplaySize  "11"
  8064            D erivation  "DepupRows .claim_key "
  8065            G roup "0"
  8066            P arsedDeriv ation "Dep upRows.cla im_key"
  8067            S ourceColum n "DepupRo ws.claim_k ey"
  8068            S ortKey "0"
  8069            S ortType "0 "
  8070            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  8071            A llowCRLF " 0"
  8072            L evelNo "0"
  8073            O ccurs "0"
  8074            P adNulls "0 "
  8075            S ignOption  "0"
  8076            S ortingOrde r "0"
  8077            A rrayHandli ng "0"
  8078            S yncIndicat or "0"
  8079            P adChar ""
  8080            C olumnRefer ence "clai m_key_dt"
  8081            A PTFieldPro p "quote=n one, null_ field=''"
  8082            E xtendedPre cision "0"
  8083            T aggedSubre c "0"
  8084            O ccursVaryi ng "0"
  8085            P KeyIsCasel ess "0"
  8086            S CDPurpose  "0"
  8087         END  DSSUBRECOR D
  8088         Meta Bag "CMeta Property"
  8089         BEGI N DSSUBREC ORD
  8090            O wner "APT"
  8091            N ame "DiskW riteInc"
  8092            V alue "1048 576"
  8093         END  DSSUBRECOR D
  8094         BEGI N DSSUBREC ORD
  8095            O wner "APT"
  8096            N ame "BufFr eeRun"
  8097            V alue "50"
  8098         END  DSSUBRECOR D
  8099         BEGI N DSSUBREC ORD
  8100            O wner "APT"
  8101            N ame "MaxMe mBufSize"
  8102            V alue "3145 728"
  8103         END  DSSUBRECOR D
  8104         BEGI N DSSUBREC ORD
  8105            O wner "APT"
  8106            N ame "Queue UpperSize"
  8107            V alue "0"
  8108         END  DSSUBRECOR D
  8109         BEGI N DSSUBREC ORD
  8110            O wner "APT"
  8111            N ame "Schem a"
  8112            V alue =+=+= +=
  8113   record
  8114   (
  8115     DIAGNOSI S_key:null able int32 ;
  8116     is_curre nt:string[ 1];
  8117     start_da te:nullabl e date;
  8118     end_date :nullable  date;
  8119     source_s ystem:null able strin g[max=20];
  8120     source_e ntity:null able strin g[max=50];
  8121     claim_ke y:nullable  int32;
  8122   )
  8123   =+=+=+=
  8124         END  DSSUBRECOR D
  8125         Left TextPos "1 336"
  8126         TopT extPos "28 5"
  8127         Link Minimised  "0"
  8128      END DSR ECORD
  8129      BEGIN D SRECORD
  8130         Iden tifier "V1 24S0P5"
  8131         OLET ype "CTrxI nput"
  8132         Read only "0"
  8133         Name  "DepupRow s"
  8134         Part ner "V0S17 9|V0S179P2 "
  8135         Link Type "1"
  8136         Meta Bag "CMeta Property"
  8137         BEGI N DSSUBREC ORD
  8138            O wner "APT"
  8139            N ame "RTCol umnProp"
  8140            V alue "0"
  8141         END  DSSUBRECOR D
  8142         BEGI N DSSUBREC ORD
  8143            O wner "APT"
  8144            N ame "Schem a"
  8145            V alue =+=+= +=
  8146   record
  8147   (
  8148     claim_ke y:int32;
  8149     DIAGNOSI S_key:null able int32 ;
  8150     ICDVersi on:nullabl e string[m ax=15];
  8151     is_curre nt:string[ 1];
  8152     start_da te:nullabl e date;
  8153     end_date :nullable  date;
  8154     source_s ystem:null able strin g[max=20];
  8155     source_e ntity:null able ustri ng[max=50] ;
  8156     row_id:n ullable st ring[max=2 0];
  8157     etl_batc h_id:nulla ble string [max=20];
  8158     diagnose s_code:nul lable stri ng[max=30] ;
  8159     diagnose s_qualif:n ullable st ring[max=1 0];
  8160   )
  8161   =+=+=+=
  8162         END  DSSUBRECOR D
  8163         Mult iRow "0"
  8164         Link Minimised  "0"
  8165      END DSR ECORD
  8166      BEGIN D SRECORD
  8167         Iden tifier "V1 28S0"
  8168         OLET ype "CCust omStage"
  8169         Read only "0"
  8170         Name  "ds_EDI83 7P_Conform ed"
  8171         Next ID "3"
  8172         Outp utPins "V1 28S0P2"
  8173         Stag eType "PxD ataSet"
  8174         Allo wColumnMap ping "0"
  8175         Meta Bag "CMeta Property"
  8176         BEGI N DSSUBREC ORD
  8177            O wner "APT"
  8178            N ame "Execm ode"
  8179            V alue "seq"
  8180         END  DSSUBRECOR D
  8181         Next RecordID " 0"
  8182      END DSR ECORD
  8183      BEGIN D SRECORD
  8184         Iden tifier "V1 28S0P2"
  8185         OLET ype "CCust omOutput"
  8186         Read only "0"
  8187         Name  "XfrmSrc"
  8188         Part ner "V81S2 |V81S2P3"
  8189         Prop erties "CC ustomPrope rty"
  8190         BEGI N DSSUBREC ORD
  8191            N ame "datas et"
  8192            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Co nformed.ds "
  8193         END  DSSUBRECOR D
  8194         BEGI N DSSUBREC ORD
  8195            N ame "missi ngcolmode"
  8196            V alue " "
  8197         END  DSSUBRECOR D
  8198         Colu mns "COutp utColumn"
  8199         BEGI N DSSUBREC ORD
  8200            N ame "ROW_N UM"
  8201            S qlType "12 "
  8202            P recision " 8"
  8203            S cale "0"
  8204            N ullable "0 "
  8205            K eyPosition  "0"
  8206            D isplaySize  "0"
  8207            G roup "0"
  8208            S ortKey "0"
  8209            S ortType "0 "
  8210            A llowCRLF " 0"
  8211            L evelNo "0"
  8212            O ccurs "0"
  8213            P adNulls "0 "
  8214            S ignOption  "0"
  8215            S ortingOrde r "0"
  8216            A rrayHandli ng "0"
  8217            S yncIndicat or "0"
  8218            P adChar ""
  8219            E xtendedPre cision "0"
  8220            T aggedSubre c "0"
  8221            O ccursVaryi ng "0"
  8222            P KeyIsCasel ess "0"
  8223            S CDPurpose  "0"
  8224         END  DSSUBRECOR D
  8225         BEGI N DSSUBREC ORD
  8226            N ame "ST_NU M"
  8227            S qlType "12 "
  8228            P recision " 9"
  8229            S cale "0"
  8230            N ullable "1 "
  8231            K eyPosition  "1"
  8232            D isplaySize  "0"
  8233            G roup "0"
  8234            S ortKey "0"
  8235            S ortType "0 "
  8236            A llowCRLF " 0"
  8237            L evelNo "0"
  8238            O ccurs "0"
  8239            P adNulls "0 "
  8240            S ignOption  "0"
  8241            S ortingOrde r "0"
  8242            A rrayHandli ng "0"
  8243            S yncIndicat or "0"
  8244            P adChar ""
  8245            E xtendedPre cision "0"
  8246            T aggedSubre c "0"
  8247            O ccursVaryi ng "0"
  8248            P KeyIsCasel ess "0"
  8249            S CDPurpose  "0"
  8250         END  DSSUBRECOR D
  8251         BEGI N DSSUBREC ORD
  8252            N ame "LOOP"
  8253            S qlType "12 "
  8254            P recision " 10"
  8255            S cale "0"
  8256            N ullable "1 "
  8257            K eyPosition  "0"
  8258            D isplaySize  "0"
  8259            G roup "0"
  8260            S ortKey "0"
  8261            S ortType "0 "
  8262            A llowCRLF " 0"
  8263            L evelNo "0"
  8264            O ccurs "0"
  8265            P adNulls "0 "
  8266            S ignOption  "0"
  8267            S ortingOrde r "0"
  8268            A rrayHandli ng "0"
  8269            S yncIndicat or "0"
  8270            P adChar ""
  8271            E xtendedPre cision "0"
  8272            T aggedSubre c "0"
  8273            O ccursVaryi ng "0"
  8274            P KeyIsCasel ess "0"
  8275            S CDPurpose  "0"
  8276         END  DSSUBRECOR D
  8277         BEGI N DSSUBREC ORD
  8278            N ame "SEG"
  8279            S qlType "12 "
  8280            P recision " 5"
  8281            S cale "0"
  8282            N ullable "0 "
  8283            K eyPosition  "0"
  8284            D isplaySize  "0"
  8285            G roup "0"
  8286            S ortKey "0"
  8287            S ortType "0 "
  8288            A llowCRLF " 0"
  8289            L evelNo "0"
  8290            O ccurs "0"
  8291            P adNulls "0 "
  8292            S ignOption  "0"
  8293            S ortingOrde r "0"
  8294            A rrayHandli ng "0"
  8295            S yncIndicat or "0"
  8296            P adChar ""
  8297            E xtendedPre cision "0"
  8298            T aggedSubre c "0"
  8299            O ccursVaryi ng "0"
  8300            P KeyIsCasel ess "0"
  8301            S CDPurpose  "0"
  8302         END  DSSUBRECOR D
  8303         BEGI N DSSUBREC ORD
  8304            N ame "SEG_C D"
  8305            S qlType "12 "
  8306            P recision " 20"
  8307            S cale "0"
  8308            N ullable "0 "
  8309            K eyPosition  "0"
  8310            D isplaySize  "0"
  8311            G roup "0"
  8312            S ortKey "0"
  8313            S ortType "0 "
  8314            A llowCRLF " 0"
  8315            L evelNo "0"
  8316            O ccurs "0"
  8317            P adNulls "0 "
  8318            S ignOption  "0"
  8319            S ortingOrde r "0"
  8320            A rrayHandli ng "0"
  8321            S yncIndicat or "0"
  8322            P adChar ""
  8323            E xtendedPre cision "0"
  8324            T aggedSubre c "0"
  8325            O ccursVaryi ng "0"
  8326            P KeyIsCasel ess "0"
  8327            S CDPurpose  "0"
  8328         END  DSSUBRECOR D
  8329         BEGI N DSSUBREC ORD
  8330            N ame "EDI83 7P"
  8331            S qlType "12 "
  8332            P recision " 2000"
  8333            S cale "0"
  8334            N ullable "0 "
  8335            K eyPosition  "0"
  8336            D isplaySize  "0"
  8337            G roup "0"
  8338            S ortKey "0"
  8339            S ortType "0 "
  8340            T ableDef "S aved\\Conf orming_rec s\\EDI_ST_ TransSetHd r"
  8341            A llowCRLF " 0"
  8342            L evelNo "0"
  8343            O ccurs "0"
  8344            P adNulls "0 "
  8345            S ignOption  "0"
  8346            S ortingOrde r "0"
  8347            A rrayHandli ng "0"
  8348            S yncIndicat or "0"
  8349            P adChar ""
  8350            C olumnRefer ence "IMPL _CONV_REF"
  8351            E xtendedPre cision "0"
  8352            T aggedSubre c "0"
  8353            O ccursVaryi ng "0"
  8354            P KeyIsCasel ess "0"
  8355            S CDPurpose  "0"
  8356         END  DSSUBRECOR D
  8357         BEGI N DSSUBREC ORD
  8358            N ame "ETL_B ATCH_ID"
  8359            S qlType "12 "
  8360            P recision " 20"
  8361            S cale "0"
  8362            N ullable "0 "
  8363            K eyPosition  "0"
  8364            D isplaySize  "0"
  8365            G roup "0"
  8366            S ortKey "0"
  8367            S ortType "0 "
  8368            A llowCRLF " 0"
  8369            L evelNo "0"
  8370            O ccurs "0"
  8371            P adNulls "0 "
  8372            S ignOption  "0"
  8373            S ortingOrde r "0"
  8374            A rrayHandli ng "0"
  8375            S yncIndicat or "0"
  8376            P adChar ""
  8377            E xtendedPre cision "0"
  8378            T aggedSubre c "0"
  8379            O ccursVaryi ng "0"
  8380            P KeyIsCasel ess "0"
  8381            S CDPurpose  "0"
  8382         END  DSSUBRECOR D
  8383         Meta Bag "CMeta Property"
  8384         BEGI N DSSUBREC ORD
  8385            O wner "APT"
  8386            N ame "DiskW riteInc"
  8387            V alue "1048 576"
  8388         END  DSSUBRECOR D
  8389         BEGI N DSSUBREC ORD
  8390            O wner "APT"
  8391            N ame "BufFr eeRun"
  8392            V alue "50"
  8393         END  DSSUBRECOR D
  8394         BEGI N DSSUBREC ORD
  8395            O wner "APT"
  8396            N ame "MaxMe mBufSize"
  8397            V alue "3145 728"
  8398         END  DSSUBRECOR D
  8399         BEGI N DSSUBREC ORD
  8400            O wner "APT"
  8401            N ame "Queue UpperSize"
  8402            V alue "0"
  8403         END  DSSUBRECOR D
  8404         Left TextPos "2 90"
  8405         TopT extPos "28 7"
  8406         Link Minimised  "0"
  8407      END DSR ECORD
  8408      BEGIN D SRECORD
  8409         Iden tifier "V1 37A1"
  8410         OLET ype "CAnno tation"
  8411         Read only "0"
  8412         Name  "V137A1"
  8413         Next ID "0"
  8414         Anno tationType  "0"
  8415         Anno tationText  "Include  only recor ds with cl aim_key >  0 "
  8416         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  8417         Text Horizontal Justificat ion "1"
  8418         Text VerticalJu stificatio n "1"
  8419         Text Color "0"
  8420         Back groundColo r "1271398 3"
  8421         Back groundTran sparent "0 "
  8422         Bord erVisible  "1"
  8423      END DSR ECORD
  8424      BEGIN D SRECORD
  8425         Iden tifier "V1 37A2"
  8426         OLET ype "CAnno tation"
  8427         Read only "0"
  8428         Name  "V137A2"
  8429         Next ID "0"
  8430         Anno tationType  "0"
  8431         Anno tationText  "Get clai m_key and  diagnosis_ key"
  8432         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  8433         Text Horizontal Justificat ion "1"
  8434         Text VerticalJu stificatio n "1"
  8435         Text Color "0"
  8436         Back groundColo r "1271398 3"
  8437         Back groundTran sparent "0 "
  8438         Bord erVisible  "1"
  8439      END DSR ECORD
  8440      BEGIN D SRECORD
  8441         Iden tifier "V1 37A3"
  8442         OLET ype "CAnno tation"
  8443         Read only "0"
  8444         Name  "V137A3"
  8445         Next ID "0"
  8446         Anno tationType  "0"
  8447         Anno tationText  =+=+=+=
  8448   Cteate a r ecord for  each diagn osis code,  include   only ABF,  BF, ABK, B K codes. A ssign vers ion ICD10  for  ABF,  ABK and IC D9 for BF,  BK
  8449  
  8450   9/22
  8451   check for  ICD starti ng with le tter 'E' t o decide o n decimal  location.
  8452   =+=+=+=
  8453         Text Font "Micr osoft Sans  Serif\\9\ \0\\0\\0\\ 400\\0"
  8454         Text Horizontal Justificat ion "0"
  8455         Text VerticalJu stificatio n "0"
  8456         Text Color "0"
  8457         Back groundColo r "1271398 3"
  8458         Back groundTran sparent "0 "
  8459         Bord erVisible  "1"
  8460      END DSR ECORD
  8461      BEGIN D SRECORD
  8462         Iden tifier "V1 37A5"
  8463         OLET ype "CAnno tation"
  8464         Read only "0"
  8465         Name  "V137A5"
  8466         Next ID "0"
  8467         Anno tationType  "0"
  8468         Anno tationText  "Dedup on  row_id, c laim_id, H I segment,  keep the  last recor d"
  8469         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  8470         Text Horizontal Justificat ion "1"
  8471         Text VerticalJu stificatio n "1"
  8472         Text Color "0"
  8473         Back groundColo r "1271398 3"
  8474         Back groundTran sparent "0 "
  8475         Bord erVisible  "1"
  8476      END DSR ECORD
  8477      BEGIN D SRECORD
  8478         Iden tifier "V1 37A6"
  8479         OLET ype "CAnno tation"
  8480         Read only "0"
  8481         Name  "V137A6"
  8482         Next ID "0"
  8483         Anno tationType  "0"
  8484         Anno tationText  "Get diag nosis code s for loop =2300 and  segment=HI "
  8485         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  8486         Text Horizontal Justificat ion "1"
  8487         Text VerticalJu stificatio n "1"
  8488         Text Color "0"
  8489         Back groundColo r "1271398 3"
  8490         Back groundTran sparent "0 "
  8491         Bord erVisible  "1"
  8492      END DSR ECORD
  8493      BEGIN D SRECORD
  8494         Iden tifier "V1 37A7"
  8495         OLET ype "CAnno tation"
  8496         Read only "0"
  8497         Name  "V137A7"
  8498         Next ID "0"
  8499         Anno tationType  "0"
  8500         Anno tationText  "EDI837P  CLAIM_DIAG NOSIS Prep "
  8501         Text Font "MS S hell Dlg\\ 10\\0\\0\\ 0\\400\\0"
  8502         Text Horizontal Justificat ion "1"
  8503         Text VerticalJu stificatio n "1"
  8504         Text Color "0"
  8505         Back groundColo r "1271398 3"
  8506         Back groundTran sparent "0 "
  8507         Bord erVisible  "1"
  8508      END DSR ECORD
  8509      BEGIN D SRECORD
  8510         Iden tifier "V8 1S2"
  8511         OLET ype "CTran sformerSta ge"
  8512         Read only "0"
  8513         Name  "Xfm_BusR ules"
  8514         Next ID "4"
  8515         Inpu tPins "V81 S2P3"
  8516         Outp utPins "V8 1S2P2"
  8517         Meta Bag "CMeta Property"
  8518         BEGI N DSSUBREC ORD
  8519            O wner "APT"
  8520            N ame "TrxGe nCode"
  8521            V alue =+=+= +=
  8522   //
  8523   // Generat ed file to  implement  the V81S2 _EDI837P_C LAIM_DIAGN OSIS_prep_ Xfm_BusRul es transfo rm operato r.
  8524   //
  8525  
  8526   // define  our input/ output lin k names
  8527   inputname  0 XfrmSrc;
  8528   outputname  0 BusRls;
  8529  
  8530   global {
  8531    // Job pa rameter de claration
  8532    string[]  BatchID;
  8533    string DS JobStartDa te;
  8534   }
  8535  
  8536   initialize  {
  8537    // define  our contr ol variabl es
  8538    int8 RowR ejected0;
  8539    int8 Null SetVar0;
  8540  
  8541    // declar e our inte rmediate v ariables f or this se ction (1)
  8542    string In terVar0_0;
  8543    string In terVar0_1;
  8544    string In terVar0_2;
  8545    string In terVar0_3;
  8546    string In terVar0_4;
  8547    string In terVar0_5;
  8548    string In terVar0_6;
  8549    string In terVar0_7;
  8550    string In terVar0_11 ;
  8551    string In terVar0_12 ;
  8552    string In terVar0_13 ;
  8553    string In terVar0_14 ;
  8554    string In terVar0_15 ;
  8555    string In terVar0_16 ;
  8556    string In terVar0_17 ;
  8557    string In terVar0_18 ;
  8558    string In terVar0_19 ;
  8559    string In terVar0_20 ;
  8560    string In terVar0_21 ;
  8561  
  8562    // initia lise const ant values  which req uire conve rsion
  8563    InterVar0 _0 = "ST";
  8564    InterVar0 _1 = "CLM" ;
  8565    InterVar0 _2 = "";
  8566    InterVar0 _3 = "2300 ";
  8567    InterVar0 _4 = "REF" ;
  8568    InterVar0 _5 = "REF* D9";
  8569    InterVar0 _6 = "*";
  8570    InterVar0 _7 = "HI";
  8571    InterVar0 _11 = "HI* BK";
  8572    InterVar0 _12 = "HI* BF";
  8573    InterVar0 _13 = "ICD 9";
  8574    InterVar0 _14 = "HI* ABK";
  8575    InterVar0 _15 = "HI* ABF";
  8576    InterVar0 _16 = "ICD 10";
  8577    InterVar0 _17 = "837 P";
  8578    InterVar0 _18 = "REF *F5";
  8579    InterVar0 _19 = "837 PX";
  8580    InterVar0 _20 = "Y";
  8581    InterVar0 _21 = "EDI ";
  8582    // Stage  variable d eclaration  and initi alisation
  8583    string St ageVar0_sv ClaimId;
  8584    StageVar0 _svClaimId  = "";
  8585    string St ageVar0_sv DiagnosisC odeLen;
  8586    StageVar0 _svDiagnos isCodeLen  = "";
  8587    string St ageVar0_sv DiagnosisC odesAll;
  8588    StageVar0 _svDiagnos isCodesAll  = "";
  8589    string St ageVar0_sv ICDVersion ;
  8590    StageVar0 _svICDVers ion = "";
  8591    string St ageVar0_sv SourceEnti ty;
  8592    StageVar0 _svSourceE ntity = "" ;
  8593   }
  8594  
  8595   mainloop {
  8596  
  8597    // declar e our inte rmediate v ariables f or this se ction (2)
  8598    string In terVar0_8;
  8599    dfloat In terVar0_9;
  8600    int32 Int erVar0_10;
  8601  
  8602    // evalua te the sta ge variabl es first
  8603    if (((Xfr mSrc.SEG = = InterVar 0_0) || (X frmSrc.SEG  == InterV ar0_1))) {
  8604     StageVar 0_svClaimI d = InterV ar0_2;
  8605    } else {
  8606     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_4))  && (XfrmS rc.SEG_CD  == InterVa r0_5))) {
  8607      StageVa r0_svClaim Id = subst ring_by_de limiter(Xf rmSrc.EDI8 37P , Inte rVar0_6 ,  3 , 1);
  8608     } else {
  8609      StageVa r0_svClaim Id = Stage Var0_svCla imId;
  8610     }
  8611     //;
  8612    }
  8613    //;
  8614    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  8615     StageVar 0_svDiagno sisCodeLen  = InterVa r0_2;
  8616    } else {
  8617     if (((Xf rmSrc.LOOP  == InterV ar0_3) &&  (XfrmSrc.S EG == Inte rVar0_7)))  {
  8618      InterVa r0_8 = str ing_length (XfrmSrc.E DI837P);
  8619      StageVa r0_svDiagn osisCodeLe n = InterV ar0_8;
  8620     } else {
  8621      StageVa r0_svDiagn osisCodeLe n = StageV ar0_svDiag nosisCodeL en;
  8622     }
  8623     //;
  8624    }
  8625    //;
  8626    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  8627     StageVar 0_svDiagno sisCodesAl l = InterV ar0_2;
  8628    } else {
  8629     if (((Xf rmSrc.LOOP  == InterV ar0_3) &&  (XfrmSrc.S EG == Inte rVar0_7)))  {
  8630      InterVa r0_9 = Sta geVar0_svD iagnosisCo deLen;
  8631      InterVa r0_10 = In terVar0_9  - 3;
  8632      StageVa r0_svDiagn osisCodesA ll = subst ring_1(Xfr mSrc.EDI83 7P , 4 , I nterVar0_1 0);
  8633     } else {
  8634      StageVa r0_svDiagn osisCodesA ll = Stage Var0_svDia gnosisCode sAll;
  8635     }
  8636     //;
  8637    }
  8638    //;
  8639    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  8640     StageVar 0_svICDVer sion = Int erVar0_2;
  8641    } else {
  8642     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_7))  && ((Xfrm Src.SEG_CD  == InterV ar0_11) ||  (XfrmSrc. SEG_CD ==  InterVar0_ 12)))) {
  8643      StageVa r0_svICDVe rsion = In terVar0_13 ;
  8644     } else {
  8645      if (((( XfrmSrc.LO OP == Inte rVar0_3) & & (XfrmSrc .SEG == In terVar0_7) ) && ((Xfr mSrc.SEG_C D == Inter Var0_14) | | (XfrmSrc .SEG_CD ==  InterVar0 _15)))) {
  8646       StageV ar0_svICDV ersion = I nterVar0_1 6;
  8647      } else  {
  8648       StageV ar0_svICDV ersion = I nterVar0_2 ;
  8649      }
  8650      //;
  8651     }
  8652     //;
  8653    }
  8654    //;
  8655    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  8656     StageVar 0_svSource Entity = I nterVar0_1 7;
  8657    } else {
  8658     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_4))  && (XfrmS rc.SEG_CD  == InterVa r0_18))) {
  8659      StageVa r0_svSourc eEntity =  InterVar0_ 19;
  8660     } else {
  8661      StageVa r0_svSourc eEntity =  StageVar0_ svSourceEn tity;
  8662     }
  8663     //;
  8664    }
  8665    //;
  8666  
  8667    // initia lise the r ejected ro w variable
  8668    RowReject ed0 = 1;
  8669  
  8670    // evalua te constra int and co lumns for  link: BusR ls
  8671    if ((Stag eVar0_svCl aimId != I nterVar0_2 ))
  8672    {
  8673     BusRls.c laim_id =  StageVar0_ svClaimId;
  8674     BusRls.d iagnoses_c ode_all =  StageVar0_ svDiagnosi sCodesAll;
  8675     BusRls.I CDVersion  = StageVar 0_svICDVer sion;
  8676     BusRls.i s_current  = InterVar 0_20;
  8677     BusRls.s tart_date  = date_fro m_string(D SJobStartD ate);
  8678     BusRls.e nd_date =  set_null() ;
  8679     BusRls.s ource_syst em = Inter Var0_21;
  8680     BusRls.s ource_enti ty = Stage Var0_svSou rceEntity;
  8681     BusRls.r ow_id = Xf rmSrc.ST_N UM;
  8682     BusRls.d iagnosis_p oa = set_n ull();
  8683     BusRls.c laim_key_p r = set_nu ll();
  8684     BusRls.e tl_batch_i d = BatchI D;
  8685     writerec ord 0;
  8686     RowRejec ted0 = 0;
  8687    }
  8688   }
  8689  
  8690   finish {
  8691   }
  8692  
  8693   =+=+=+=
  8694         END  DSSUBRECOR D
  8695         BEGI N DSSUBREC ORD
  8696            O wner "APT"
  8697            N ame "TrxGe nCache"
  8698            V alue "0"
  8699         END  DSSUBRECOR D
  8700         BEGI N DSSUBREC ORD
  8701            O wner "APT"
  8702            N ame "TrxCl assName"
  8703            V alue "V81S 2_EDI837P_ CLAIM_DIAG NOSIS_prep _Xfm_BusRu les"
  8704         END  DSSUBRECOR D
  8705         BEGI N DSSUBREC ORD
  8706            O wner "APT"
  8707            N ame "JobPa rameterNam es"
  8708            V alue "Batc hID"
  8709         END  DSSUBRECOR D
  8710         BEGI N DSSUBREC ORD
  8711            O wner "APT"
  8712            N ame "TrxGe nWarnings"
  8713            V alue =+=+= +=
  8714   Xfm_BusRul es
  8715      WARNING : Error in  Stage Var iable deri vation exp ression fo r variable  svDiagnos isCodesAll
  8716          - p otential d ata or pre cision los s in arith metic expr ession whe n converti ng numbers  from stri ng
  8717  
  8718   =+=+=+=
  8719         END  DSSUBRECOR D
  8720         Vali dationStat us "0"
  8721         Stag eType "CTr ansformerS tage"
  8722         Bloc kSize "0"
  8723         SKKe ySourceTyp e "file"
  8724         Stag eVars "CSt ageVar"
  8725         BEGI N DSSUBREC ORD
  8726            N ame "svCla imId"
  8727            E xpression  "If XfrmSr c.SEG='ST'  or  XfrmS rc.SEG='CL M' Then ''  Else If X frmSrc.LOO P='2300' a nd XfrmSrc .SEG='REF'  and XfrmS rc.SEG_CD  = 'REF*D9'  Then FIEL D(XfrmSrc. EDI837P, \ "*\", 3, 1 )  Else sv ClaimId"
  8728            S qlType "12 "
  8729            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  or XfrmSrc .SEG = 'CL M' Then ''  Else  If  XfrmSrc.LO OP = '2300 ' and Xfrm Src.SEG =  'REF' and  XfrmSrc.SE G_CD = 'RE F*D9' Then  FIELD(Xfr mSrc.EDI83 7P, \"*\",  3, 1) Els e svClaimI d"
  8730            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD;XfrmSrc .EDI837P"
  8731            S tageVars " svClaimId"
  8732            P recision " 20"
  8733            C olScale "0 "
  8734            E xtendedPre cision "0"
  8735         END  DSSUBRECOR D
  8736         BEGI N DSSUBREC ORD
  8737            N ame "svDia gnosisCode Len"
  8738            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'  T hen Len(Xf rmSrc.EDI8 37P) Else  svDiagnosi sCodeLen"
  8739            S qlType "12 "
  8740            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' Then Len (XfrmSrc.E DI837P) El se svDiagn osisCodeLe n"
  8741            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  8742            S tageVars " svDiagnosi sCodeLen"
  8743            P recision " 200"
  8744            C olScale "0 "
  8745            E xtendedPre cision "0"
  8746         END  DSSUBRECOR D
  8747         BEGI N DSSUBREC ORD
  8748            N ame "svDia gnosisCode sAll"
  8749            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'  T hen XfrmSr c.EDI837P[ 4, svDiagn osisCodeLe n - 3] Els e svDiagno sisCodesAl l"
  8750            S qlType "12 "
  8751            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' Then Xfr mSrc.EDI83 7P[4, svDi agnosisCod eLen - 3]  Else svDia gnosisCode sAll"
  8752            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  8753            S tageVars " svDiagnosi sCodeLen;s vDiagnosis CodesAll"
  8754            P recision " 200"
  8755            C olScale "0 "
  8756            E xtendedPre cision "0"
  8757         END  DSSUBRECOR D
  8758         BEGI N DSSUBREC ORD
  8759            N ame "svICD Version"
  8760            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If ( X frmSrc.LOO P='2300' a nd XfrmSrc .SEG='HI'   And (Xfrm Src.SEG_CD  = \"HI*BK \" Or Xfrm Src.SEG_CD  = \"HI*BF \")) Then  \"ICD9\" E lse If (Xf rmSrc.LOOP ='2300' an d XfrmSrc. SEG='HI'   And (XfrmS rc.SEG_CD  = \"HI*ABK \" Or Xfrm Src.SEG_CD  = \"HI*AB F\")  )The n \"ICD10\ " Else \"\ ""
  8761            S qlType "12 "
  8762            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If (Xf rmSrc.LOOP  = '2300'  and XfrmSr c.SEG = 'H I' And (Xf rmSrc.SEG_ CD = \"HI* BK\" Or Xf rmSrc.SEG_ CD = \"HI* BF\")) The n \"ICD9\"  Else  If  (XfrmSrc.L OOP = '230 0' and Xfr mSrc.SEG =  'HI' And  (XfrmSrc.S EG_CD = \" HI*ABK\" O r XfrmSrc. SEG_CD = \ "HI*ABF\") ) Then \"I CD10\" Els e \"\""
  8763            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD"
  8764            P recision " 15"
  8765            C olScale "0 "
  8766            E xtendedPre cision "0"
  8767         END  DSSUBRECOR D
  8768         BEGI N DSSUBREC ORD
  8769            N ame "svSou rceEntity"
  8770            E xpression  "If XfrmSr c.SEG='ST'  Then '837 P' Else If  XfrmSrc.L OOP='2300'  and XfrmS rc.SEG='RE F'  and Xf rmSrc.SEG_ CD = 'REF* F5'  Then  '837PX' El se svSourc eEntity"
  8771            S qlType "12 "
  8772            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '837P ' Else  If  XfrmSrc.L OOP = '230 0' and Xfr mSrc.SEG =  'REF' and  XfrmSrc.S EG_CD = 'R EF*F5' The n '837PX'  Else svSou rceEntity"
  8773            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD"
  8774            S tageVars " svSourceEn tity"
  8775            P recision " 50"
  8776            C olScale "0 "
  8777            E xtendedPre cision "0"
  8778         END  DSSUBRECOR D
  8779         Stag eVarsMinim ised "0"
  8780         Loop VarsMaximi sed "0"
  8781         MaxL oopIterati ons "0"
  8782      END DSR ECORD
  8783      BEGIN D SRECORD
  8784         Iden tifier "V8 1S2P2"
  8785         OLET ype "CTrxO utput"
  8786         Read only "0"
  8787         Name  "BusRls"
  8788         Part ner "V121S 0|V121S0P6 "
  8789         Cons traint "sv ClaimId <>  \"\""
  8790         Reje ct "0"
  8791         Erro rPin "0"
  8792         RowL imit "0"
  8793         Pars edConstrai nt "svClai mId <> \"\ ""
  8794         Colu mns "COutp utColumn"
  8795         BEGI N DSSUBREC ORD
  8796            N ame "claim _id"
  8797            S qlType "12 "
  8798            P recision " 20"
  8799            S cale "0"
  8800            N ullable "1 "
  8801            K eyPosition  "0"
  8802            D isplaySize  "0"
  8803            D erivation  "svClaimId "
  8804            G roup "0"
  8805            P arsedDeriv ation "svC laimId"
  8806            S ortKey "0"
  8807            S ortType "0 "
  8808            A llowCRLF " 0"
  8809            L evelNo "0"
  8810            O ccurs "0"
  8811            P adNulls "0 "
  8812            S ignOption  "0"
  8813            S ortingOrde r "0"
  8814            S tageVars " svClaimId"
  8815            A rrayHandli ng "0"
  8816            S yncIndicat or "0"
  8817            P adChar ""
  8818            E xtendedPre cision "0"
  8819            T aggedSubre c "0"
  8820            O ccursVaryi ng "0"
  8821            P KeyIsCasel ess "0"
  8822            S CDPurpose  "0"
  8823         END  DSSUBRECOR D
  8824         BEGI N DSSUBREC ORD
  8825            N ame "diagn oses_code_ all"
  8826            D escription  =+=+=+=
  8827   <none>
  8828   Searchable ? N 
  8829   =+=+=+=
  8830            S qlType "12 "
  8831            P recision " 200"
  8832            S cale "0"
  8833            N ullable "1 "
  8834            K eyPosition  "0"
  8835            D isplaySize  "11"
  8836            D erivation  "svDiagnos isCodesAll "
  8837            G roup "0"
  8838            P arsedDeriv ation "svD iagnosisCo desAll"
  8839            S ortKey "0"
  8840            S ortType "0 "
  8841            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  8842            A llowCRLF " 0"
  8843            L evelNo "0"
  8844            O ccurs "0"
  8845            P adNulls "0 "
  8846            S ignOption  "0"
  8847            S ortingOrde r "0"
  8848            S tageVars " svDiagnosi sCodesAll"
  8849            A rrayHandli ng "0"
  8850            S yncIndicat or "0"
  8851            P adChar ""
  8852            C olumnRefer ence "DIAG NOSIS_key"
  8853            A PTFieldPro p "quote=n one, null_ field=''"
  8854            E xtendedPre cision "0"
  8855            T aggedSubre c "0"
  8856            O ccursVaryi ng "0"
  8857            P KeyIsCasel ess "0"
  8858            S CDPurpose  "0"
  8859         END  DSSUBRECOR D
  8860         BEGI N DSSUBREC ORD
  8861            N ame "ICDVe rsion"
  8862            S qlType "12 "
  8863            P recision " 15"
  8864            S cale "0"
  8865            N ullable "0 "
  8866            K eyPosition  "0"
  8867            D isplaySize  "0"
  8868            D erivation  "svICDVers ion"
  8869            G roup "0"
  8870            P arsedDeriv ation "svI CDVersion"
  8871            S ortKey "0"
  8872            S ortType "0 "
  8873            A llowCRLF " 0"
  8874            L evelNo "0"
  8875            O ccurs "0"
  8876            P adNulls "0 "
  8877            S ignOption  "0"
  8878            S ortingOrde r "0"
  8879            S tageVars " svICDVersi on"
  8880            A rrayHandli ng "0"
  8881            S yncIndicat or "0"
  8882            P adChar ""
  8883            E xtendedPre cision "0"
  8884            T aggedSubre c "0"
  8885            O ccursVaryi ng "0"
  8886            P KeyIsCasel ess "0"
  8887            S CDPurpose  "0"
  8888         END  DSSUBRECOR D
  8889         BEGI N DSSUBREC ORD
  8890            N ame "is_cu rrent"
  8891            D escription  =+=+=+=
  8892   <none>
  8893   Searchable ? N 
  8894   =+=+=+=
  8895            S qlType "1"
  8896            P recision " 1"
  8897            S cale "0"
  8898            N ullable "0 "
  8899            K eyPosition  "0"
  8900            D isplaySize  "1"
  8901            D erivation  "'Y'"
  8902            G roup "0"
  8903            P arsedDeriv ation "'Y' "
  8904            S ortKey "0"
  8905            S ortType "0 "
  8906            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  8907            A llowCRLF " 0"
  8908            L evelNo "0"
  8909            O ccurs "0"
  8910            P adNulls "0 "
  8911            S ignOption  "0"
  8912            S ortingOrde r "0"
  8913            A rrayHandli ng "0"
  8914            S yncIndicat or "0"
  8915            P adChar ""
  8916            C olumnRefer ence "is_c urrent"
  8917            E xtendedPre cision "0"
  8918            T aggedSubre c "0"
  8919            O ccursVaryi ng "0"
  8920            P KeyIsCasel ess "0"
  8921            S CDPurpose  "0"
  8922         END  DSSUBRECOR D
  8923         BEGI N DSSUBREC ORD
  8924            N ame "start _date"
  8925            D escription  =+=+=+=
  8926   <none>
  8927   Searchable ? N 
  8928   =+=+=+=
  8929            S qlType "9"
  8930            P recision " 10"
  8931            S cale "0"
  8932            N ullable "1 "
  8933            K eyPosition  "0"
  8934            D isplaySize  "10"
  8935            D erivation  "DSJobStar tDate"
  8936            G roup "0"
  8937            P arsedDeriv ation "DSJ obStartDat e"
  8938            S ortKey "0"
  8939            S ortType "0 "
  8940            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  8941            A llowCRLF " 0"
  8942            L evelNo "0"
  8943            O ccurs "0"
  8944            P adNulls "0 "
  8945            S ignOption  "0"
  8946            S ortingOrde r "0"
  8947            A rrayHandli ng "0"
  8948            S yncIndicat or "0"
  8949            P adChar ""
  8950            C olumnRefer ence "star t_date"
  8951            A PTFieldPro p "null_fi eld=''"
  8952            E xtendedPre cision "0"
  8953            T aggedSubre c "0"
  8954            O ccursVaryi ng "0"
  8955            P KeyIsCasel ess "0"
  8956            S CDPurpose  "0"
  8957         END  DSSUBRECOR D
  8958         BEGI N DSSUBREC ORD
  8959            N ame "end_d ate"
  8960            D escription  =+=+=+=
  8961   <none>
  8962   Searchable ? N 
  8963   =+=+=+=
  8964            S qlType "9"
  8965            P recision " 10"
  8966            S cale "0"
  8967            N ullable "1 "
  8968            K eyPosition  "0"
  8969            D isplaySize  "10"
  8970            D erivation  "SetNull() "
  8971            G roup "0"
  8972            P arsedDeriv ation "Set Null()"
  8973            S ortKey "0"
  8974            S ortType "0 "
  8975            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  8976            A llowCRLF " 0"
  8977            L evelNo "0"
  8978            O ccurs "0"
  8979            P adNulls "0 "
  8980            S ignOption  "0"
  8981            S ortingOrde r "0"
  8982            A rrayHandli ng "0"
  8983            S yncIndicat or "0"
  8984            P adChar ""
  8985            C olumnRefer ence "end_ date"
  8986            A PTFieldPro p "null_fi eld=''"
  8987            E xtendedPre cision "0"
  8988            T aggedSubre c "0"
  8989            O ccursVaryi ng "0"
  8990            P KeyIsCasel ess "0"
  8991            S CDPurpose  "0"
  8992         END  DSSUBRECOR D
  8993         BEGI N DSSUBREC ORD
  8994            N ame "sourc e_system"
  8995            D escription  =+=+=+=
  8996   <none>
  8997   Searchable ? N 
  8998   =+=+=+=
  8999            S qlType "12 "
  9000            P recision " 20"
  9001            S cale "0"
  9002            N ullable "1 "
  9003            K eyPosition  "0"
  9004            D isplaySize  "20"
  9005            D erivation  "'EDI'"
  9006            G roup "0"
  9007            P arsedDeriv ation "'ED I'"
  9008            S ortKey "0"
  9009            S ortType "0 "
  9010            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  9011            A llowCRLF " 0"
  9012            L evelNo "0"
  9013            O ccurs "0"
  9014            P adNulls "0 "
  9015            S ignOption  "0"
  9016            S ortingOrde r "0"
  9017            A rrayHandli ng "0"
  9018            S yncIndicat or "0"
  9019            P adChar ""
  9020            C olumnRefer ence "sour ce_system"
  9021            A PTFieldPro p "null_fi eld=''"
  9022            E xtendedPre cision "0"
  9023            T aggedSubre c "0"
  9024            O ccursVaryi ng "0"
  9025            P KeyIsCasel ess "0"
  9026            S CDPurpose  "0"
  9027         END  DSSUBRECOR D
  9028         BEGI N DSSUBREC ORD
  9029            N ame "sourc e_entity"
  9030            D escription  =+=+=+=
  9031   <none>
  9032   Searchable ? N 
  9033   =+=+=+=
  9034            S qlType "12 "
  9035            P recision " 50"
  9036            S cale "0"
  9037            N ullable "1 "
  9038            K eyPosition  "0"
  9039            D isplaySize  "50"
  9040            D erivation  "svSourceE ntity"
  9041            G roup "0"
  9042            P arsedDeriv ation "svS ourceEntit y"
  9043            S ortKey "0"
  9044            S ortType "0 "
  9045            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  9046            A llowCRLF " 0"
  9047            L evelNo "0"
  9048            O ccurs "0"
  9049            P adNulls "0 "
  9050            S ignOption  "0"
  9051            S ortingOrde r "0"
  9052            S tageVars " svSourceEn tity"
  9053            A rrayHandli ng "0"
  9054            S yncIndicat or "0"
  9055            P adChar ""
  9056            C olumnRefer ence "sour ce_entity"
  9057            A PTFieldPro p "null_fi eld=''"
  9058            E xtendedPre cision "0"
  9059            T aggedSubre c "0"
  9060            O ccursVaryi ng "0"
  9061            P KeyIsCasel ess "0"
  9062            S CDPurpose  "0"
  9063         END  DSSUBRECOR D
  9064         BEGI N DSSUBREC ORD
  9065            N ame "row_i d"
  9066            D escription  =+=+=+=
  9067   <none>
  9068   Searchable ? N 
  9069   =+=+=+=
  9070            S qlType "12 "
  9071            P recision " 20"
  9072            S cale "0"
  9073            N ullable "1 "
  9074            K eyPosition  "0"
  9075            D isplaySize  "20"
  9076            D erivation  "XfrmSrc.S T_NUM"
  9077            G roup "0"
  9078            P arsedDeriv ation "Xfr mSrc.ST_NU M"
  9079            S ourceColum n "XfrmSrc .ST_NUM"
  9080            S ortKey "0"
  9081            S ortType "0 "
  9082            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  9083            A llowCRLF " 0"
  9084            L evelNo "0"
  9085            O ccurs "0"
  9086            P adNulls "0 "
  9087            S ignOption  "0"
  9088            S ortingOrde r "0"
  9089            A rrayHandli ng "0"
  9090            S yncIndicat or "0"
  9091            P adChar ""
  9092            C olumnRefer ence "row_ id"
  9093            A PTFieldPro p "null_fi eld=''"
  9094            E xtendedPre cision "0"
  9095            T aggedSubre c "0"
  9096            O ccursVaryi ng "0"
  9097            P KeyIsCasel ess "0"
  9098            S CDPurpose  "0"
  9099         END  DSSUBRECOR D
  9100         BEGI N DSSUBREC ORD
  9101            N ame "diagn osis_poa"
  9102            D escription  =+=+=+=
  9103   <none>
  9104   Searchable ? N 
  9105   =+=+=+=
  9106            S qlType "1"
  9107            P recision " 1"
  9108            S cale "0"
  9109            N ullable "1 "
  9110            K eyPosition  "0"
  9111            D isplaySize  "1"
  9112            D erivation  "SetNull() "
  9113            G roup "0"
  9114            P arsedDeriv ation "Set Null()"
  9115            S ortKey "0"
  9116            S ortType "0 "
  9117            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  9118            A llowCRLF " 0"
  9119            L evelNo "0"
  9120            O ccurs "0"
  9121            P adNulls "0 "
  9122            S ignOption  "0"
  9123            S ortingOrde r "0"
  9124            A rrayHandli ng "0"
  9125            S yncIndicat or "0"
  9126            P adChar ""
  9127            C olumnRefer ence "diag nosis_poa"
  9128            A PTFieldPro p "null_fi eld=''"
  9129            E xtendedPre cision "0"
  9130            T aggedSubre c "0"
  9131            O ccursVaryi ng "0"
  9132            P KeyIsCasel ess "0"
  9133            S CDPurpose  "0"
  9134         END  DSSUBRECOR D
  9135         BEGI N DSSUBREC ORD
  9136            N ame "claim _key_pr"
  9137            D escription  =+=+=+=
  9138   <none>
  9139   Searchable ? N 
  9140   =+=+=+=
  9141            S qlType "4"
  9142            P recision " 10"
  9143            S cale "0"
  9144            N ullable "1 "
  9145            K eyPosition  "0"
  9146            D isplaySize  "11"
  9147            D erivation  "SetNull() "
  9148            G roup "0"
  9149            P arsedDeriv ation "Set Null()"
  9150            S ortKey "0"
  9151            S ortType "0 "
  9152            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  9153            A llowCRLF " 0"
  9154            L evelNo "0"
  9155            O ccurs "0"
  9156            P adNulls "0 "
  9157            S ignOption  "0"
  9158            S ortingOrde r "0"
  9159            A rrayHandli ng "0"
  9160            S yncIndicat or "0"
  9161            P adChar ""
  9162            C olumnRefer ence "clai m_key_pr"
  9163            A PTFieldPro p "quote=n one, null_ field=''"
  9164            E xtendedPre cision "0"
  9165            T aggedSubre c "0"
  9166            O ccursVaryi ng "0"
  9167            P KeyIsCasel ess "0"
  9168            S CDPurpose  "0"
  9169         END  DSSUBRECOR D
  9170         BEGI N DSSUBREC ORD
  9171            N ame "etl_b atch_id"
  9172            S qlType "12 "
  9173            P recision " 20"
  9174            S cale "0"
  9175            N ullable "1 "
  9176            K eyPosition  "0"
  9177            D isplaySize  "0"
  9178            D erivation  "BatchID"
  9179            G roup "0"
  9180            P arsedDeriv ation "Bat chID"
  9181            S ortKey "0"
  9182            S ortType "0 "
  9183            A llowCRLF " 0"
  9184            L evelNo "0"
  9185            O ccurs "0"
  9186            P adNulls "0 "
  9187            S ignOption  "0"
  9188            S ortingOrde r "0"
  9189            A rrayHandli ng "0"
  9190            S yncIndicat or "0"
  9191            P adChar ""
  9192            E xtendedPre cision "0"
  9193            T aggedSubre c "0"
  9194            O ccursVaryi ng "0"
  9195            P KeyIsCasel ess "0"
  9196            S CDPurpose  "0"
  9197         END  DSSUBRECOR D
  9198         Meta Bag "CMeta Property"
  9199         BEGI N DSSUBREC ORD
  9200            O wner "APT"
  9201            N ame "DiskW riteInc"
  9202            V alue "1048 576"
  9203         END  DSSUBRECOR D
  9204         BEGI N DSSUBREC ORD
  9205            O wner "APT"
  9206            N ame "BufFr eeRun"
  9207            V alue "50"
  9208         END  DSSUBRECOR D
  9209         BEGI N DSSUBREC ORD
  9210            O wner "APT"
  9211            N ame "MaxMe mBufSize"
  9212            V alue "3145 728"
  9213         END  DSSUBRECOR D
  9214         BEGI N DSSUBREC ORD
  9215            O wner "APT"
  9216            N ame "Queue UpperSize"
  9217            V alue "0"
  9218         END  DSSUBRECOR D
  9219         BEGI N DSSUBREC ORD
  9220            O wner "APT"
  9221            N ame "Schem a"
  9222            V alue =+=+= +=
  9223   record
  9224   (
  9225     claim_id :nullable  string[max =20];
  9226     diagnose s_code_all :nullable  string[max =200];
  9227     ICDVersi on:string[ max=15];
  9228     is_curre nt:string[ 1];
  9229     start_da te:nullabl e date;
  9230     end_date :nullable  date;
  9231     source_s ystem:null able strin g[max=20];
  9232     source_e ntity:null able strin g[max=50];
  9233     row_id:n ullable st ring[max=2 0];
  9234     diagnosi s_poa:null able strin g[1];
  9235     claim_ke y_pr:nulla ble int32;
  9236     etl_batc h_id:nulla ble string [max=20];
  9237   )
  9238   =+=+=+=
  9239         END  DSSUBRECOR D
  9240         BEGI N DSSUBREC ORD
  9241            O wner "APT"
  9242            N ame "SortO rderPreser ved"
  9243            V alue "1"
  9244         END  DSSUBRECOR D
  9245         Stag eVars "svC laimId"
  9246         Left TextPos "4 22"
  9247         TopT extPos "28 6"
  9248         Link Minimised  "0"
  9249      END DSR ECORD
  9250      BEGIN D SRECORD
  9251         Iden tifier "V8 1S2P3"
  9252         OLET ype "CTrxI nput"
  9253         Read only "0"
  9254         Name  "XfrmSrc"
  9255         Part ner "V128S 0|V128S0P2 "
  9256         Link Type "1"
  9257         Meta Bag "CMeta Property"
  9258         BEGI N DSSUBREC ORD
  9259            O wner "APT"
  9260            N ame "RTCol umnProp"
  9261            V alue "0"
  9262         END  DSSUBRECOR D
  9263         BEGI N DSSUBREC ORD
  9264            O wner "APT"
  9265            N ame "Schem a"
  9266            V alue =+=+= +=
  9267   record
  9268   (
  9269     ROW_NUM: string[max =8];
  9270     ST_NUM:n ullable st ring[max=9 ];
  9271     LOOP:nul lable stri ng[max=10] ;
  9272     SEG:stri ng[max=5];
  9273     SEG_CD:s tring[max= 20];
  9274     EDI837P: string[max =2000];
  9275     ETL_BATC H_ID:strin g[max=20];
  9276   )
  9277   =+=+=+=
  9278         END  DSSUBRECOR D
  9279         BEGI N DSSUBREC ORD
  9280            O wner "APT"
  9281            N ame "Part/ Col"
  9282            V alue "same "
  9283         END  DSSUBRECOR D
  9284         BEGI N DSSUBREC ORD
  9285            O wner "APT"
  9286            N ame "SortA dv"
  9287            V alue "-non Stable"
  9288         END  DSSUBRECOR D
  9289         BEGI N DSSUBREC ORD
  9290            O wner "APT"
  9291            N ame "SeqSo rt"
  9292            V alue "0"
  9293         END  DSSUBRECOR D
  9294         Mult iRow "0"
  9295         Link Minimised  "0"
  9296      END DSR ECORD
  9297   END DSJOB
  9298   BEGIN DSJO B
  9299      Identif ier "EDI83 7P_CLAIM_L INE_DIAGNO SIS_prep"
  9300      DateMod ified "201 8-02-26"
  9301      TimeMod ified "15. 52.55"
  9302      BEGIN D SRECORD
  9303         Iden tifier "RO OT"
  9304         OLET ype "CJobD efn"
  9305         Read only "0"
  9306         Name  "EDI837P_ CLAIM_LINE _DIAGNOSIS _prep"
  9307         Next ID "139"
  9308         Cont ainer "V0"
  9309         JobV ersion "56 .0.0"
  9310         Cont rolAfterSu br "0"
  9311         Para meters "CP arameters"
  9312         BEGI N DSSUBREC ORD
  9313            N ame "$PROJ _DATA_SFIL E"
  9314            P rompt "Pro ject Data  directory  (sequentia l files)"
  9315            D efault "$P ROJDEF"
  9316            P aramType " 0"
  9317            P aramLength  "0"
  9318            P aramScale  "0"
  9319         END  DSSUBRECOR D
  9320         BEGI N DSSUBREC ORD
  9321            N ame "$SQL_ DB_UID"
  9322            P rompt "MSS QL DB User -id"
  9323            D efault "$P ROJDEF"
  9324            P aramType " 0"
  9325            P aramLength  "0"
  9326            P aramScale  "0"
  9327         END  DSSUBRECOR D
  9328         BEGI N DSSUBREC ORD
  9329            N ame "$SQL_ DB_PWD"
  9330            P rompt "MSS QL DB Pass word"
  9331            D efault "HD I@IJV8O9JN 064IL:JD1K 95"
  9332            P aramType " 1"
  9333            P aramLength  "0"
  9334            P aramScale  "0"
  9335         END  DSSUBRECOR D
  9336         BEGI N DSSUBREC ORD
  9337            N ame "$PROJ _DATA_DS"
  9338            P rompt "Pro ject Data  directory  (datasets) "
  9339            D efault "$P ROJDEF"
  9340            P aramType " 0"
  9341            P aramLength  "0"
  9342            P aramScale  "0"
  9343         END  DSSUBRECOR D
  9344         BEGI N DSSUBREC ORD
  9345            N ame "Batch ClaimType"
  9346            P rompt "Bat chClaimTyp e"
  9347            P aramType " 0"
  9348            P aramLength  "0"
  9349            P aramScale  "0"
  9350         END  DSSUBRECOR D
  9351         BEGI N DSSUBREC ORD
  9352            N ame "$SQL_ DB"
  9353            P rompt "Dev elopment D atabase"
  9354            D efault "$P ROJDEF"
  9355            P aramType " 0"
  9356            P aramLength  "0"
  9357            P aramScale  "0"
  9358         END  DSSUBRECOR D
  9359         BEGI N DSSUBREC ORD
  9360            N ame "$SQL_ DB_DSN"
  9361            P rompt "MSS QL DB Data  Source Na me (DSN)"
  9362            D efault "$P ROJDEF"
  9363            P aramType " 0"
  9364            P aramLength  "0"
  9365            P aramScale  "0"
  9366         END  DSSUBRECOR D
  9367         BEGI N DSSUBREC ORD
  9368            N ame "Batch ID"
  9369            P rompt "Bat chID"
  9370            P aramType " 0"
  9371            P aramLength  "0"
  9372            P aramScale  "0"
  9373         END  DSSUBRECOR D
  9374         Meta Bag "CMeta Property"
  9375         BEGI N DSSUBREC ORD
  9376            O wner "APT"
  9377            N ame "Advan cedRuntime Options"
  9378            V alue "#DSP rojectARTO ptions#"
  9379         END  DSSUBRECOR D
  9380         BEGI N DSSUBREC ORD
  9381            O wner "APT"
  9382            N ame "Trace Mode"
  9383            V alue "0"
  9384         END  DSSUBRECOR D
  9385         BEGI N DSSUBREC ORD
  9386            O wner "APT"
  9387            N ame "Trace Seq"
  9388            V alue "1"
  9389         END  DSSUBRECOR D
  9390         BEGI N DSSUBREC ORD
  9391            O wner "APT"
  9392            N ame "Trace Records"
  9393            V alue "100"
  9394         END  DSSUBRECOR D
  9395         BEGI N DSSUBREC ORD
  9396            O wner "APT"
  9397            N ame "Trace Skip"
  9398            V alue "0"
  9399         END  DSSUBRECOR D
  9400         BEGI N DSSUBREC ORD
  9401            O wner "APT"
  9402            N ame "Trace Period"
  9403            V alue "1"
  9404         END  DSSUBRECOR D
  9405         BEGI N DSSUBREC ORD
  9406            O wner "APT"
  9407            N ame "Recor dJobPerfor manceData"
  9408            V alue "1"
  9409         END  DSSUBRECOR D
  9410         BEGI N DSSUBREC ORD
  9411            O wner "APT"
  9412            N ame "Ident List"
  9413            V alue "RmDu pRec|Xfm_B usRulles|g enRecsByCo de|Lkp_F_P rofessiona l_Medical_ Claim_Deta ils|F_PROF ESSIONAL_M EDICAL_CLA IM_DETAILS |Xfrm_Clai mLnDiagn|F ltr_01|DIM _DIAGNOSIS _CODE|Xrfm _DiagCode"
  9414         END  DSSUBRECOR D
  9415         BEGI N DSSUBREC ORD
  9416            O wner "APT"
  9417            N ame "Clien tCodePage"
  9418            V alue "1252 "
  9419         END  DSSUBRECOR D
  9420         NULL IndicatorP osition "0 "
  9421         Orch estrateCod e =+=+=+=
  9422   #### STAGE : RmDupRec .BusRls_Pa rt
  9423   ## Operato r
  9424   same
  9425   ## General  options
  9426   [ident('Rm DupRec.Bus Rls_Part') ]
  9427   ## Inputs
  9428   0< [] 'Xfm _BusRulles :BusRls.v'
  9429   ## Outputs
  9430   0> [] 'Xfm _BusRulles :BusRls_Pa rt.v'
  9431   ;
  9432  
  9433   ########## ########## ########## ########## ########## ########## #####
  9434   #### STAGE : RmDupRec
  9435   ## Operato r
  9436   remdup
  9437   ## Operato r options
  9438   -keep last
  9439   -key 'row_ id'
  9440   -key 'clai m_id'
  9441   -key 'serv ice_line_n umber'
  9442  
  9443   ## General  options
  9444   [ident('Rm DupRec');  jobmon_ide nt('RmDupR ec')]
  9445   ## Inputs
  9446   0< [] 'Xfm _BusRulles :BusRls_Pa rt.v'
  9447   ## Outputs
  9448   0> [modify  (
  9449   keep
  9450     claim_id ,diagn_qua lifs,diagn _codes,poi nter_order _all,
  9451     is_curre nt,start_d ate,end_da te,source_ system,
  9452     source_e ntity,etl_ batch_id,r ow_id,serv ice_line_n umber;
  9453   )] 'RmDupR ec:RmDupRe c.v'
  9454   ;
  9455  
  9456   #### STAGE : Xfm_BusR ulles.Xfrm Src_Part
  9457   ## Operato r
  9458   same
  9459   ## General  options
  9460   [ident('Xf m_BusRulle s.XfrmSrc_ Part')]
  9461   ## Inputs
  9462   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc.v'
  9463   ## Outputs
  9464   0> [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  9465   ;
  9466  
  9467   ########## ########## ########## ########## ########## ########## #####
  9468   #### STAGE : Xfm_BusR ulles
  9469   ## Operato r
  9470   transform
  9471   ## Operato r options
  9472   -flag run
  9473   -name 'V81 S2_EDI837P _CLAIM_LIN E_DIAGNOSI S_prep_Xfm _BusRulles '
  9474   -argvalue  'BatchID=[ &"BatchID" ]'
  9475  
  9476   ## General  options
  9477   [ident('Xf m_BusRulle s'); jobmo n_ident('X fm_BusRull es')]
  9478   ## Inputs
  9479   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  9480   ## Outputs
  9481   0> [] 'Xfm _BusRulles :BusRls.v'
  9482   ;
  9483  
  9484   ########## ########## ########## ########## ########## ########## #####
  9485   #### STAGE : genRecsB yCode
  9486   ## Operato r
  9487   transform
  9488   ## Operato r options
  9489   -flag run
  9490   -name 'V12 1S0_EDI837 P_CLAIM_LI NE_DIAGNOS IS_prep_ge nRecsByCod e'
  9491  
  9492   ## General  options
  9493   [ident('ge nRecsByCod e'); jobmo n_ident('g enRecsByCo de')]
  9494   ## Inputs
  9495   0< [] 'Flt r_01:Fltr_ 01.v'
  9496   ## Outputs
  9497   0> [] 'gen RecsByCode :GenRecs.v '
  9498   ;
  9499  
  9500   #### STAGE : Ds_Claim LineDiagno sis.ClmLnD iagn_out_P art
  9501   ## Operato r
  9502   same
  9503   ## General  options
  9504   [ident('Ds _ClaimLine Diagnosis. ClmLnDiagn _out_Part' )]
  9505   ## Inputs
  9506   0< [] 'Xfr m_ClaimLnD iagn:ClmLn Diagn_out. v'
  9507   ## Outputs
  9508   0> [] 'Xfr m_ClaimLnD iagn:ClmLn Diagn_out_ Part.v'
  9509   ;
  9510  
  9511   ########## ########## ########## ########## ########## ########## #####
  9512   #### STAGE : Ds_Claim LineDiagno sis
  9513   ## Operato r
  9514   copy
  9515   ## General  options
  9516   [ident('Ds _ClaimLine Diagnosis' )]
  9517   ## Inputs
  9518   0< [] 'Xfr m_ClaimLnD iagn:ClmLn Diagn_out_ Part.v'
  9519   ## Outputs
  9520   0>| [ds] ' [&"$PROJ_D ATA_DS"][& "BatchClai mType"]_Cl aimLineDia gnosis.ds'
  9521   ;
  9522  
  9523   #### STAGE : Lkp_F_Pr ofessional _Medical_C laim_Detai ls.FromFac tTable_Par t
  9524   ## Operato r
  9525   entire
  9526   ## General  options
  9527   [ident('Lk p_F_Profes sional_Med ical_Claim _Details.F romFactTab le_Part')]
  9528   ## Inputs
  9529   0< [] 'F_P ROFESSIONA L_MEDICAL_ CLAIM_DETA ILS:FromFa ctTable.v'
  9530   ## Outputs
  9531   0> [] 'F_P ROFESSIONA L_MEDICAL_ CLAIM_DETA ILS:FromFa ctTable_Pa rt.v'
  9532   ;
  9533  
  9534   #### STAGE : Lkp_F_Pr ofessional _Medical_C laim_Detai ls.DimDiag nosisCode_ Part
  9535   ## Operato r
  9536   entire
  9537   ## General  options
  9538   [ident('Lk p_F_Profes sional_Med ical_Claim _Details.D imDiagnosi sCode_Part ')]
  9539   ## Inputs
  9540   0< [] 'DIM _DIAGNOSIS _CODE:DimD iagnosisCo de.v'
  9541   ## Outputs
  9542   0> [] 'DIM _DIAGNOSIS _CODE:DimD iagnosisCo de_Part.v'
  9543   ;
  9544  
  9545   ########## ########## ########## ########## ########## ########## #####
  9546   #### STAGE : Lkp_F_Pr ofessional _Medical_C laim_Detai ls
  9547   ## Operato r
  9548   lookup
  9549   ## Operato r options
  9550   -table
  9551   -key claim _id
  9552   -key servi ce_line_nu mber
  9553   -key etl_b atch_id
  9554   -table
  9555   -key diagn _codes
  9556   -ifNotFoun d continue
  9557  
  9558   ## General  options
  9559   [ident('Lk p_F_Profes sional_Med ical_Claim _Details') ; jobmon_i dent('Lkp_ F_Professi onal_Medic al_Claim_D etails')]
  9560   ## Inputs
  9561   0< [] 'Xrf m_DiagCode :GenRecsBy Code.v'
  9562   1< [] 'F_P ROFESSIONA L_MEDICAL_ CLAIM_DETA ILS:FromFa ctTable_Pa rt.v'
  9563   2< [view (
  9564     diagn_co des=diagno sis_code;
  9565   )] 'DIM_DI AGNOSIS_CO DE:DimDiag nosisCode_ Part.v'
  9566   ## Outputs
  9567   0> [modify  (
  9568     claim_de tail_key:n ullable in t32=claim_ detail_key ;
  9569     DIAGNOSI S_key:null able int32 =DIAGNOSIS _key;
  9570   keep
  9571     DIAGNOSI S_key,clai m_detail_k ey,diagn_g ualif,diag n_codes,
  9572     version, pointer_or der,is_cur rent,start _date,
  9573     end_date ,source_sy stem,sourc e_entity,r ow_id,
  9574     service_ line_numbe r;)] 'Lkp_ F_Professi onal_Medic al_Claim_D etails:Lkp Keys.v'
  9575   ;
  9576  
  9577   ########## ########## ########## ########## ########## ########## #####
  9578   #### STAGE : F_PROFES SIONAL_MED ICAL_CLAIM _DETAILS
  9579   ## Operato r
  9580   pxbridge
  9581   ## Operato r options
  9582   -Orientati on link
  9583   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>1</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>-1</ PartitionT ype><RCP t ype=\\'int \\'>0</RCP ></Common> <Connectio n><DataSou rce modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_D SN"]]]></D ataSource> <Username  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB_UID"] ]]></Usern ame><Passw ord modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_P WD"]]]></P assword></ Connection ><Usage mo dified=\\' 1\\'><Gene rateSQL mo dified=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Gene rateSQL><E nableQuote dIDs modif ied=\\'1\\ ' type=\\' bool\\'><! [CDATA[1]] ></EnableQ uotedIDs>< SQL><Selec tStatement  modified= \\'1\\' ty pe=\\'stri ng\\'><![C DATA[Selec t FD.claim _detail_ke y claim_de tail_key,  VC.claim_i d claim_id ,  
  9584   FD.service _line_numb er service _line_numb er, VC.etl _batch_id  etl_batch_ id
  9585   from [&"$S QL_DB"].db o.F_PROFES SIONAL_MED ICAL_CLAIM _DETAILS F D, [&"$SQL _DB"].dbo. DIM_VA_CLA IM VC
  9586   where FD.c laim_key =  VC.claim_ key
  9587   and FD.sou rce_system  = VC.sour ce_system
  9588   and FD.sou rce_entity  = VC.sour ce_entity
  9589   and VC.is_ current=\\ 'Y\\'  and  VC.etl_ba tch_id = \ \'[&"Batch ID"]\\']]> <ReadState mentFromFi le type=\\ 'bool\\'>< ![CDATA[0] ]></ReadSt atementFro mFile><Tab les collap sed=\\'1\\ '><Table t ype=\\'str ing\\'></T able><Tabl e type=\\' string\\'> <![CDATA[[ &"$SQL_DB" ]]]></Tabl e></Tables ><Paramete rs collaps ed=\\'1\\' ></Paramet ers><Colum ns collaps ed=\\'1\\' ><Column t ype=\\'str ing\\'><![ CDATA[etl_ batch_id,e tl_batch_i d,VC]]></C olumn><Col umn type=\ \'string\\ '><![CDATA [service_l ine_number ,service_l ine_number ,FD]]></Co lumn><Colu mn type=\\ 'string\\' ><![CDATA[ claim_id,c laim_id,VC ]]></Colum n><Column  type=\\'st ring\\'><! [CDATA[cla im_detail_ key,claim_ detail_key ,FD]]></Co lumn></Col umns><Wher eClause ty pe=\\'stri ng\\'><![C DATA[(FD.c laim_key =  VC.claim_ key AND FD .source_sy stem = VC. source_sys tem AND FD .source_en tity = VC. source_ent ity AND VC .is_curren t = \\'Y\\ ' AND VC.e tl_batch_i d = \\'[&" BatchID"]\ \')]]></Wh ereClause> </SelectSt atement><E nableParti tioning co llapsed=\\ '1\\' type =\\'bool\\ '><![CDATA [0]]></Ena blePartiti oning></SQ L><Transac tion><Reco rdCount ty pe=\\'int\ \'><![CDAT A[2000]]>< /RecordCou nt><EndOfW ave collap sed=\\'1\\ ' type=\\' int\\'><![ CDATA[0]]> </EndOfWav e></Transa ction><Ses sion><Isol ationLevel  type=\\'i nt\\'><![C DATA[1]]>< /Isolation Level><Aut ocommitMod e type=\\' int\\'><![ CDATA[0]]> </Autocomm itMode><Ar raySize ty pe=\\'int\ \'><![CDAT A[2000]]>< /ArraySize ><SchemaRe conciliati on><FailOn SizeMismat ch type=\\ 'bool\\'>< ![CDATA[1] ]></FailOn SizeMismat ch><FailOn TypeMismat ch type=\\ 'bool\\'>< ![CDATA[1] ]></FailOn TypeMismat ch><FailOn CodePageMi smatch typ e=\\'bool\ \'><![CDAT A[0]]></Fa ilOnCodePa geMismatch ></SchemaR econciliat ion><PassL obLocator  collapsed= \\'1\\' ty pe=\\'bool \\'><![CDA TA[0]]></P assLobLoca tor><CodeP age collap sed=\\'1\\ ' type=\\' int\\'><![ CDATA[0]]> </CodePage ></Session ><BeforeAf ter collap sed=\\'1\\ ' type=\\' bool\\'><! [CDATA[0]] ></BeforeA fter></Usa ge></Prope rties >'
  9590   -connector  '{
  9591      variant =\\'3.5\\'
  9592      library =ccodbc, 
  9593      version =1.0, 
  9594      variant list=\\'3. 5\\', 
  9595      version list=\\'1. 0\\', 
  9596      name=OD BCConnecto r
  9597   }'
  9598   -source 0  '{
  9599         DSIs Key={claim _id=1, ser vice_line_ number=1,  etl_batch_ id=1}, 
  9600         DSSQ LType={cla im_detail_ key=4, cla im_id=12,  service_li ne_number= 4, etl_bat ch_id=12},  
  9601         DSSQ LPrecision ={claim_de tail_key=1 0, claim_i d=20, serv ice_line_n umber=10,  etl_batch_ id=20}, 
  9602         DSNa tiveType={ claim_deta il_key=\\' pit_key\\' }, 
  9603         DSSc hema=\\'re cord
  9604            (
  9605               claim_det ail_key\\: int32\\;
  9606               claim_id\ \:string\\ [max\\=20\ \]\\;
  9607               service_l ine_number \\:nullabl e int32\\;
  9608               etl_batch _id\\:null able strin g\\[max\\= 20\\]\\;
  9609            ) \\'
  9610   }'
  9611      
  9612  
  9613   ## General  options
  9614   [ident('F_ PROFESSION AL_MEDICAL _CLAIM_DET AILS'); jo bmon_ident ('F_PROFES SIONAL_MED ICAL_CLAIM _DETAILS') ]
  9615   ## Outputs
  9616   0> [modify  (
  9617     claim_de tail_key:n ot_nullabl e int32=cl aim_detail _key;
  9618     claim_id :not_nulla ble string [max=20]=c laim_id;
  9619     service_ line_numbe r:nullable  int32=ser vice_line_ number;
  9620     etl_batc h_id:nulla ble string [max=20]=e tl_batch_i d;
  9621   keep
  9622     claim_de tail_key,c laim_id,se rvice_line _number,et l_batch_id ;
  9623   )] 'F_PROF ESSIONAL_M EDICAL_CLA IM_DETAILS :FromFactT able.v'
  9624   ;
  9625  
  9626   ########## ########## ########## ########## ########## ########## #####
  9627   #### STAGE : Xfrm_Cla imLnDiagn
  9628   ## Operato r
  9629   transform
  9630   ## Operato r options
  9631   -flag run
  9632   -name 'V12 4S0_EDI837 P_CLAIM_LI NE_DIAGNOS IS_prep_Xf rm_ClaimLn Diagn'
  9633  
  9634   ## General  options
  9635   [ident('Xf rm_ClaimLn Diagn'); j obmon_iden t('Xfrm_Cl aimLnDiagn ')]
  9636   ## Inputs
  9637   0< [] 'Lkp _F_Profess ional_Medi cal_Claim_ Details:Lk pKeys.v'
  9638   ## Outputs
  9639   0> [] 'Xfr m_ClaimLnD iagn:ClmLn Diagn_out. v'
  9640   ;
  9641  
  9642   #### STAGE : Fltr_01. RmDupRec_P art
  9643   ## Operato r
  9644   same
  9645   ## General  options
  9646   [ident('Fl tr_01.RmDu pRec_Part' )]
  9647   ## Inputs
  9648   0< [] 'RmD upRec:RmDu pRec.v'
  9649   ## Outputs
  9650   0> [] 'RmD upRec:RmDu pRec_Part. v'
  9651   ;
  9652  
  9653   ########## ########## ########## ########## ########## ########## #####
  9654   #### STAGE : Fltr_01
  9655   ## Operato r
  9656   filter
  9657   ## Operato r options
  9658   -where 'po inter_orde r_all <> \ \'\\''
  9659  
  9660   ## General  options
  9661   [ident('Fl tr_01'); j obmon_iden t('Fltr_01 ')]
  9662   ## Inputs
  9663   0< [] 'RmD upRec:RmDu pRec_Part. v'
  9664   ## Outputs
  9665   0> [modify  (
  9666   keep
  9667     claim_id ,diagn_qua lifs,diagn _codes,poi nter_order _all,
  9668     is_curre nt,start_d ate,end_da te,source_ system,
  9669     source_e ntity,etl_ batch_id,r ow_id,serv ice_line_n umber;
  9670   )] 'Fltr_0 1:Fltr_01. v'
  9671   ;
  9672  
  9673   ########## ########## ########## ########## ########## ########## #####
  9674   #### STAGE : DIM_DIAG NOSIS_CODE
  9675   ## Operato r
  9676   pxbridge
  9677   ## Operato r options
  9678   -Orientati on link
  9679   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>1</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>-1</ PartitionT ype><RCP t ype=\\'int \\'>0</RCP ></Common> <Connectio n><DataSou rce modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_D SN"]]]></D ataSource> <Username  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB_UID"] ]]></Usern ame><Passw ord modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_P WD"]]]></P assword></ Connection ><Usage mo dified=\\' 1\\'><Gene rateSQL mo dified=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Gene rateSQL><E nableQuote dIDs type= \\'bool\\' ><![CDATA[ 0]]></Enab leQuotedID s><SQL><Se lectStatem ent modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[Se lect DIAGN OSIS_key,  diagnosis_ code from   [&"$SQL_D B"].dbo.DI M_DIAGNOSI S_CODE  wh ere is_cur rent=\\'Y\ \']]><Read StatementF romFile ty pe=\\'bool \\'><![CDA TA[0]]></R eadStateme ntFromFile ><Tables c ollapsed=\ \'1\\'><Ta ble type=\ \'string\\ '><![CDATA [[&"$SQL_D B"].dbo.DI M_DIAGNOSI S_CODE]]>< /Table></T ables><Par ameters co llapsed=\\ '1\\'></Pa rameters>< Columns co llapsed=\\ '1\\'><Col umn type=\ \'string\\ '><![CDATA [diagnosis _code,diag nosis_code ,DIM_DIAGN OSIS_CODE] ]></Column ><Column t ype=\\'str ing\\'><![ CDATA[DIAG NOSIS_key, DIAGNOSIS_ key,DIM_DI AGNOSIS_CO DE]]></Col umn></Colu mns><Where Clause typ e=\\'strin g\\'><![CD ATA[is_cur rent = \\' Y\\']]></W hereClause ></SelectS tatement>< EnablePart itioning c ollapsed=\ \'1\\' typ e=\\'bool\ \'><![CDAT A[0]]></En ablePartit ioning></S QL><Transa ction><Rec ordCount t ype=\\'int \\'><![CDA TA[2000]]> </RecordCo unt><EndOf Wave colla psed=\\'1\ \' type=\\ 'int\\'><! [CDATA[0]] ></EndOfWa ve></Trans action><Se ssion><Iso lationLeve l type=\\' int\\'><![ CDATA[1]]> </Isolatio nLevel><Au tocommitMo de type=\\ 'int\\'><! [CDATA[0]] ></Autocom mitMode><A rraySize t ype=\\'int \\'><![CDA TA[2000]]> </ArraySiz e><SchemaR econciliat ion><FailO nSizeMisma tch type=\ \'bool\\'> <![CDATA[1 ]]></FailO nSizeMisma tch><FailO nTypeMisma tch type=\ \'bool\\'> <![CDATA[1 ]]></FailO nTypeMisma tch><FailO nCodePageM ismatch ty pe=\\'bool \\'><![CDA TA[0]]></F ailOnCodeP ageMismatc h></Schema Reconcilia tion><Pass LobLocator  collapsed =\\'1\\' t ype=\\'boo l\\'><![CD ATA[0]]></ PassLobLoc ator><Code Page colla psed=\\'1\ \' type=\\ 'int\\'><! [CDATA[0]] ></CodePag e></Sessio n><BeforeA fter colla psed=\\'1\ \' type=\\ 'bool\\'>< ![CDATA[0] ]></Before After><Lim itRows col lapsed=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Limi tRows></Us age></Prop erties >'
  9680   -connector  '{
  9681      variant =\\'3.5\\'
  9682      library =ccodbc, 
  9683      version =1.0, 
  9684      variant list=\\'V1 ;3.5::ccod bc\\', 
  9685      version list=\\'1. 0\\', 
  9686      name=OD BCConnecto r
  9687   }'
  9688   -source 0  '{
  9689         DSDe scription= {DIAGNOSIS _key=\\'\\ <none\\>
  9690   Searchable \\? N \\',  diagnosis _code=\\'\ \<none\\>
  9691   Searchable \\? N \\'}
  9692         DSIs Key={diagn osis_code= 1}, 
  9693         DSDi splayWidth ={DIAGNOSI S_key=11,  diagnosis_ code=11}, 
  9694         DSSQ LType={DIA GNOSIS_key =4, diagno sis_code=1 2}, 
  9695         DSSQ LPrecision ={DIAGNOSI S_key=10,  diagnosis_ code=30}, 
  9696         DSSc hema=\\'re cord
  9697            (
  9698               DIAGNOSIS _key\\:int 32\\;
  9699               diagnosis _code\\:nu llable str ing\\[max\ \=30\\]\\;
  9700            ) \\'
  9701   }'
  9702      
  9703  
  9704   ## General  options
  9705   [ident('DI M_DIAGNOSI S_CODE');  jobmon_ide nt('DIM_DI AGNOSIS_CO DE')]
  9706   ## Outputs
  9707   0> [modify  (
  9708     DIAGNOSI S_key:not_ nullable i nt32=DIAGN OSIS_key;
  9709     diagnosi s_code:nul lable stri ng[max=30] =diagnosis _code;
  9710   keep
  9711     DIAGNOSI S_key,diag nosis_code ;
  9712   )] 'DIM_DI AGNOSIS_CO DE:DimDiag nosisCode. v'
  9713   ;
  9714  
  9715   ########## ########## ########## ########## ########## ########## #####
  9716   #### STAGE : Xrfm_Dia gCode
  9717   ## Operato r
  9718   transform
  9719   ## Operato r options
  9720   -flag run
  9721   -name 'V0S 189_EDI837 P_CLAIM_LI NE_DIAGNOS IS_prep_Xr fm_DiagCod e'
  9722  
  9723   ## General  options
  9724   [ident('Xr fm_DiagCod e'); jobmo n_ident('X rfm_DiagCo de')]
  9725   ## Inputs
  9726   0< [] 'gen RecsByCode :GenRecs.v '
  9727   ## Outputs
  9728   0> [] 'Xrf m_DiagCode :GenRecsBy Code.v'
  9729   ;
  9730  
  9731   ########## ########## ########## ########## ########## ########## #####
  9732   #### STAGE : ds_EDI83 7P_Conform ed
  9733   ## Operato r
  9734   copy
  9735   ## General  options
  9736   [ident('ds _EDI837P_C onformed') ; seq]
  9737   ## Inputs
  9738   0< [ds] '[ &"$PROJ_DA TA_DS"][&" BatchClaim Type"]_Con formed.ds'
  9739   ## Outputs
  9740   0> [modify  (
  9741     ROW_NUM: not_nullab le int32=R OW_NUM;
  9742     ST_NUM:n ot_nullabl e string[m ax=9]=ST_N UM;
  9743     LOOP:not _nullable  string[max =10]=LOOP;
  9744     SEG:not_ nullable s tring[max= 5]=SEG;
  9745     SEG_CD:n ot_nullabl e string[m ax=20]=SEG _CD;
  9746     EDI837P: not_nullab le string[ max=2000]= EDI837P;
  9747     ETL_BATC H_ID:not_n ullable st ring[max=2 0]=ETL_BAT CH_ID;
  9748   keep
  9749     ROW_NUM, ST_NUM,LOO P,SEG,
  9750     SEG_CD,E DI837P,ETL _BATCH_ID;
  9751   )] 'ds_EDI 837P_Confo rmed:XfrmS rc.v'
  9752   ;
  9753  
  9754  
  9755   =+=+=+=
  9756         IsTe mplate "0"
  9757         NLSL ocale ",,, ,"
  9758         JobT ype "3"
  9759         Cate gory "\\Jo bs\\PIT\\C P&E_EDI\\P repare"
  9760         Cent uryBreakYe ar "30"
  9761         Next AliasID "2 "
  9762         Para meterFileD DName "DD0 0001"
  9763         Rese rvedWordCh eck "1"
  9764         Tran sactionSiz e "0"
  9765         Vali dationStat us "0"
  9766         Uplo adable "0"
  9767         PgmC ustomizati onFlag "0"
  9768         JobR eportFlag  "0"
  9769         Allo wMultipleI nvocations  "0"
  9770         Act2 ActOveride Defaults " 0"
  9771         Act2 ActEnableR owBuffer " 0"
  9772         Act2 ActUseIPC  "0"
  9773         Act2 ActBufferS ize "0"
  9774         Act2 ActIPCTime out "0"
  9775         Expr essionSema nticCheckF lag "0"
  9776         Trac eOption "0 "
  9777         Enab leCacheSha ring "0"
  9778         Runt imeColumnP ropagation  "0"
  9779         RelS tagesInJob Status "-1 "
  9780         WebS erviceEnab led "0"
  9781         MFPr ocessMetaD ata "0"
  9782         MFPr ocessMetaD ataXMLFile ExchangeMe thod "0"
  9783         IMSP rogType "0 "
  9784         Copy LibPrefix  "ARDT"
  9785         Reco rdPerforma nceResults  "0"
  9786      END DSR ECORD
  9787      BEGIN D SRECORD
  9788         Iden tifier "V0 "
  9789         OLET ype "CCont ainerView"
  9790         Read only "0"
  9791         Name  "Job"
  9792         Next ID "1"
  9793         IsTo pLevel "0"
  9794         Stag eList "V81 S0|V81S2|V 121S0|V123 S0|V125S0| V125S3|V12 4S0|V128S0 |V129S0|V0 S189|V130S 0|V138A0"
  9795         Stag eXPos "351 |161|590|1 281|863|71 3|1060|459 |948|682|3 2|655"
  9796         Stag eYPos "276 |282|421|2 66|382|35| 213|151|58 |190|119|5 45"
  9797         Stag eTypes "CC ustomStage |CTransfor merStage|C Transforme rStage|CCu stomStage| CCustomSta ge|CCustom Stage.CC_G UI|CTransf ormerStage |CCustomSt age|CCusto mStage.CC_ GUI|CTrans formerStag e|CCustomS tage|ID_PA LETTEANNOT ATION"
  9798         Next StageID "1 92"
  9799         Snap ToGrid "2"
  9800         Grid Lines "0"
  9801         Zoom Value "100 "
  9802         Stag eXSize "48 |48|48|48| 48|48|48|4 8|48|48|48 |163"
  9803         Stag eYSize "72 |48|57|48| 48|48|48|4 8|48|48|48 |73"
  9804         Cont ainerViewS izing "000 8 0081 084 9 0582 000 0 0001 040 0 0000"
  9805         Stag eNames "Rm DupRec|Xfm _BusRulles |genRecsBy Code|Ds_Cl aimLineDia gnosis|Lkp _F_Profess ional_Medi cal_Claim_ Details|F_ PROFESSION AL_MEDICAL _CLAIM_DET AILS|Xfrm_ ClaimLnDia gn|Fltr_01 |DIM_DIAGN OSIS_CODE| Xrfm_DiagC ode|ds_EDI 837P_Confo rmed| "
  9806         Stag eTypeIDs " PxRemDup|C Transforme rStage|CTr ansformerS tage|PxDat aSet|PxLoo kup|ODBCCo nnectorPX| CTransform erStage|Px Filter|ODB CConnector PX|CTransf ormerStage |PxDataSet | "
  9807         Link Names "RmD upRec|BusR ls|GenRecs | |LkpKeys |FromFactT able|ClmLn Diagn_out| Fltr_01|Di mDiagnosis Code|GenRe csByCode|X frmSrc| "
  9808         Link HasMetaDat as "True|T rue|True|  |True|True |True|True |True|True |True| "
  9809         Link Types "1|1 |1| |1|2|1 |1|2|1|1|  "
  9810         Link NamePositi onXs "426| 287|656| | 1022|768|1 109|524|89 9|762|163|  "
  9811         Link NamePositi onYs "240| 289|269| | 280|136|21 7|238|171| 259|290| "
  9812         Targ etStageIDs  "V128S0|V 81S0|V0S18 9| |V124S0 |V125S0|V1 23S0|V121S 0|V125S0|V 125S0|V81S 2| "
  9813         Sour ceStageEff ectiveExec utionModes  "2|2|2| | 2|2|2|2|2| 2|1| "
  9814         Sour ceStageRun timeExecut ionModes " 2|2|2| |2| 2|2|2|2|2| 1| "
  9815         Targ etStageEff ectiveExec utionModes  "2|2|2| | 2|2|2|2|2| 2|2| "
  9816         Targ etStageRun timeExecut ionModes " 2|2|2| |2| 2|2|2|2|2| 2| "
  9817         Link IsSingleOp eratorLook up "False| False|Fals e| |False| False|Fals e|False|Fa lse|False| False| "
  9818         Link IsSortSequ ential "Fa lse|False| False| |Fa lse|False| False|Fals e|False|Fa lse|False|  "
  9819         Link SortMode " 0|0|0| |0| 0|0|0|0|0| 0| "
  9820         Link PartColMod e "8|8|1|  |1|2|8|1|2 |1|8| "
  9821         Link SourcePinI Ds "V81S0P 2|V81S2P2| V121S0P2|  |V125S0P5| V125S3P1|V 124S0P3|V1 28S0P4|V12 9S0P1|V0S1 89P2|V130S 0P2| "
  9822      END DSR ECORD
  9823      BEGIN D SRECORD
  9824         Iden tifier "V0 S189"
  9825         OLET ype "CTran sformerSta ge"
  9826         Read only "0"
  9827         Name  "Xrfm_Dia gCode"
  9828         Next ID "3"
  9829         Inpu tPins "V0S 189P1"
  9830         Outp utPins "V0 S189P2"
  9831         Meta Bag "CMeta Property"
  9832         BEGI N DSSUBREC ORD
  9833            O wner "APT"
  9834            N ame "TrxGe nCode"
  9835            V alue =+=+= +=
  9836   //
  9837   // Generat ed file to  implement  the V0S18 9_EDI837P_ CLAIM_LINE _DIAGNOSIS _prep_Xrfm _DiagCode  transform  operator.
  9838   //
  9839  
  9840   // define  our input/ output lin k names
  9841   inputname  0 GenRecs;
  9842   outputname  0 GenRecs ByCode;
  9843  
  9844   initialize  {
  9845    // define  our contr ol variabl es
  9846    int8 RowR ejected0;
  9847    int8 Null SetVar0;
  9848  
  9849    // declar e our inte rmediate v ariables f or this se ction (1)
  9850    string In terVar0_0;
  9851    string In terVar0_1;
  9852    string In terVar0_2;
  9853    string In terVar0_3;
  9854    string In terVar0_4;
  9855  
  9856    // initia lise const ant values  which req uire conve rsion
  9857    InterVar0 _0 = "ABK" ;
  9858    InterVar0 _1 = "ABF" ;
  9859    InterVar0 _2 = "E";
  9860    InterVar0 _3 = "ICD9 ";
  9861    InterVar0 _4 = ".";
  9862   }
  9863  
  9864   mainloop {
  9865  
  9866    // declar e our inte rmediate v ariables f or this se ction (2)
  9867    int32 Int erVar0_5;
  9868    int32 Int erVar0_6;
  9869    int32 Int erVar0_7;
  9870  
  9871    // initia lise the r ejected ro w variable
  9872    RowReject ed0 = 1;
  9873  
  9874    // evalua te constra int and co lumns for  link: GenR ecsByCode
  9875    if (((Gen Recs.diagn _gualif ==  InterVar0 _0) || (Ge nRecs.diag n_gualif = = InterVar 0_1)))
  9876    {
  9877     if ((str ing_length (GenRecs.d iagn_codes ) > 3)) {
  9878      if ((up per_case(s ubstring_1 (GenRecs.d iagn_codes  , 1 , 1))  == InterV ar0_2)) {
  9879       if ((s tring_leng th(GenRecs .diagn_cod es) > 4))  {
  9880        if (( GenRecs.ve rsion == I nterVar0_3 )) {
  9881         Inte rVar0_5 =  string_len gth(GenRec s.diagn_co des) - 4;
  9882         GenR ecsByCode. diagn_code s = ((subs tring_1(Ge nRecs.diag n_codes ,  1 , 4) + I nterVar0_4 ) + substr ing_1(GenR ecs.diagn_ codes , 5  , InterVar 0_5));
  9883        } els e {
  9884         Inte rVar0_6 =  string_len gth(GenRec s.diagn_co des) - 3;
  9885         GenR ecsByCode. diagn_code s = ((subs tring_1(Ge nRecs.diag n_codes ,  1 , 3) + I nterVar0_4 ) + substr ing_1(GenR ecs.diagn_ codes , 4  , InterVar 0_6));
  9886        }
  9887        //;
  9888       } else  {
  9889        GenRe csByCode.d iagn_codes  = GenRecs .diagn_cod es;
  9890       }
  9891       //;
  9892      } else  {
  9893       InterV ar0_7 = st ring_lengt h(GenRecs. diagn_code s) - 3;
  9894       GenRec sByCode.di agn_codes  = ((substr ing_1(GenR ecs.diagn_ codes , 1  , 3) + Int erVar0_4)  + substrin g_1(GenRec s.diagn_co des , 4 ,  InterVar0_ 7));
  9895      }
  9896      //;
  9897     } else {
  9898      GenRecs ByCode.dia gn_codes =  GenRecs.d iagn_codes ;
  9899     }
  9900     //;
  9901     writerec ord 0;
  9902     RowRejec ted0 = 0;
  9903    }
  9904   }
  9905  
  9906   finish {
  9907   }
  9908  
  9909   =+=+=+=
  9910         END  DSSUBRECOR D
  9911         BEGI N DSSUBREC ORD
  9912            O wner "APT"
  9913            N ame "TrxGe nCache"
  9914            V alue "0"
  9915         END  DSSUBRECOR D
  9916         BEGI N DSSUBREC ORD
  9917            O wner "APT"
  9918            N ame "TrxCl assName"
  9919            V alue "V0S1 89_EDI837P _CLAIM_LIN E_DIAGNOSI S_prep_Xrf m_DiagCode "
  9920         END  DSSUBRECOR D
  9921         Vali dationStat us "0"
  9922         Stag eType "CTr ansformerS tage"
  9923         Bloc kSize "0"
  9924         Stag eVarsMinim ised "0"
  9925         Loop VarsMaximi sed "0"
  9926         MaxL oopIterati ons "0"
  9927      END DSR ECORD
  9928      BEGIN D SRECORD
  9929         Iden tifier "V0 S189P1"
  9930         OLET ype "CTrxI nput"
  9931         Read only "0"
  9932         Name  "GenRecs"
  9933         Part ner "V121S 0|V121S0P2 "
  9934         Link Type "1"
  9935         Meta Bag "CMeta Property"
  9936         BEGI N DSSUBREC ORD
  9937            O wner "APT"
  9938            N ame "RTCol umnProp"
  9939            V alue "0"
  9940         END  DSSUBRECOR D
  9941         BEGI N DSSUBREC ORD
  9942            O wner "APT"
  9943            N ame "Schem a"
  9944            V alue =+=+= +=
  9945   record
  9946   (
  9947     claim_id :nullable  string[max =20];
  9948     diagn_gu alif:nulla ble string [max=200];
  9949     diagn_co des:nullab le string[ max=200];
  9950     version: nullable s tring[max= 15];
  9951     pointer_ order:null able int32 ;
  9952     is_curre nt:string[ 1];
  9953     start_da te:nullabl e date;
  9954     end_date :nullable  date;
  9955     source_s ystem:null able strin g[max=20];
  9956     source_e ntity:null able strin g[max=50];
  9957     etl_batc h_id:nulla ble string [max=20];
  9958     row_id:n ullable st ring[max=2 0];
  9959     service_ line_numbe r:nullable  int32;
  9960   )
  9961   =+=+=+=
  9962         END  DSSUBRECOR D
  9963         Mult iRow "0"
  9964         Link Minimised  "0"
  9965      END DSR ECORD
  9966      BEGIN D SRECORD
  9967         Iden tifier "V0 S189P2"
  9968         OLET ype "CTrxO utput"
  9969         Read only "0"
  9970         Name  "GenRecsB yCode"
  9971         Part ner "V125S 0|V125S0P7 "
  9972         Cons traint "Ge nRecs.diag n_gualif =  'ABK' or  GenRecs.di agn_gualif  = 'ABF'"
  9973         Reje ct "0"
  9974         Erro rPin "0"
  9975         RowL imit "0"
  9976         Pars edConstrai nt "GenRec s.diagn_gu alif = 'AB K' or GenR ecs.diagn_ gualif = ' ABF'"
  9977         Sour ceColumns  "GenRecs.d iagn_guali f"
  9978         Colu mns "COutp utColumn"
  9979         BEGI N DSSUBREC ORD
  9980            N ame "claim _id"
  9981            S qlType "12 "
  9982            P recision " 20"
  9983            S cale "0"
  9984            N ullable "1 "
  9985            K eyPosition  "0"
  9986            D isplaySize  "0"
  9987            D erivation  "GenRecs.c laim_id"
  9988            G roup "0"
  9989            P arsedDeriv ation "Gen Recs.claim _id"
  9990            S ourceColum n "GenRecs .claim_id"
  9991            S ortKey "0"
  9992            S ortType "0 "
  9993            A llowCRLF " 0"
  9994            L evelNo "0"
  9995            O ccurs "0"
  9996            P adNulls "0 "
  9997            S ignOption  "0"
  9998            S ortingOrde r "0"
  9999            A rrayHandli ng "0"
  10000            S yncIndicat or "0"
  10001            P adChar ""
  10002            E xtendedPre cision "0"
  10003            T aggedSubre c "0"
  10004            O ccursVaryi ng "0"
  10005            P KeyIsCasel ess "0"
  10006            S CDPurpose  "0"
  10007         END  DSSUBRECOR D
  10008         BEGI N DSSUBREC ORD
  10009            N ame "diagn _gualif"
  10010            S qlType "12 "
  10011            P recision " 200"
  10012            S cale "0"
  10013            N ullable "1 "
  10014            K eyPosition  "0"
  10015            D isplaySize  "0"
  10016            D erivation  "GenRecs.d iagn_guali f"
  10017            G roup "0"
  10018            P arsedDeriv ation "Gen Recs.diagn _gualif"
  10019            S ourceColum n "GenRecs .diagn_gua lif"
  10020            S ortKey "0"
  10021            S ortType "0 "
  10022            A llowCRLF " 0"
  10023            L evelNo "0"
  10024            O ccurs "0"
  10025            P adNulls "0 "
  10026            S ignOption  "0"
  10027            S ortingOrde r "0"
  10028            A rrayHandli ng "0"
  10029            S yncIndicat or "0"
  10030            P adChar ""
  10031            E xtendedPre cision "0"
  10032            T aggedSubre c "0"
  10033            O ccursVaryi ng "0"
  10034            P KeyIsCasel ess "0"
  10035            S CDPurpose  "0"
  10036         END  DSSUBRECOR D
  10037         BEGI N DSSUBREC ORD
  10038            N ame "diagn _codes"
  10039            S qlType "12 "
  10040            P recision " 200"
  10041            S cale "0"
  10042            N ullable "1 "
  10043            K eyPosition  "0"
  10044            D isplaySize  "0"
  10045            D erivation  =+=+=+=
  10046   If Len(Gen Recs.diagn _codes) >  3 Then 
  10047           (I f UPCASE(G enRecs.dia gn_codes [ 1,1]) ='E'  Then 
  10048                    (If  Len(GenRec s.diagn_co des) > 4 T hen 
  10049                             (If  G enRecs.ver sion ="ICD 9" THEN
  10050                                      GenRecs. diagn_code s [1,4]  :  '.' : Gen Recs.diagn _codes [5,  Len(GenRe cs.diagn_c odes) -4] 
  10051                             Else G enRecs.dia gn_codes [ 1,3]  : '. ' : GenRec s.diagn_co des [4, Le n(GenRecs. diagn_code s) -3])
  10052                    Else  GenRecs.d iagn_codes )
  10053           El se GenRecs .diagn_cod es [1,3]   : '.' : Ge nRecs.diag n_codes [4 , Len(GenR ecs.diagn_ codes) -3]  )
  10054   Else GenRe cs.diagn_c odes
  10055   =+=+=+=
  10056            G roup "0"
  10057            P arsedDeriv ation " If  Len(GenRe cs.diagn_c odes) > 3  Then ( If  UPCASE(Gen Recs.diagn _codes[1,  1]) = 'E'  Then ( If  Len(GenRec s.diagn_co des) > 4 T hen ( If G enRecs.ver sion = \"I CD9\" THEN  GenRecs.d iagn_codes [1, 4] : ' .' : GenRe cs.diagn_c odes[5, Le n(GenRecs. diagn_code s) - 4] El se GenRecs .diagn_cod es[1, 3] :  '.' : Gen Recs.diagn _codes[4,  Len(GenRec s.diagn_co des) - 3])  Else GenR ecs.diagn_ codes) Els e GenRecs. diagn_code s[1, 3] :  '.' : GenR ecs.diagn_ codes[4, L en(GenRecs .diagn_cod es) - 3])  Else GenRe cs.diagn_c odes"
  10058            S ourceColum n "GenRecs .diagn_cod es;GenRecs .version"
  10059            S ortKey "0"
  10060            S ortType "0 "
  10061            A llowCRLF " 0"
  10062            L evelNo "0"
  10063            O ccurs "0"
  10064            P adNulls "0 "
  10065            S ignOption  "0"
  10066            S ortingOrde r "0"
  10067            A rrayHandli ng "0"
  10068            S yncIndicat or "0"
  10069            P adChar ""
  10070            E xtendedPre cision "0"
  10071            T aggedSubre c "0"
  10072            O ccursVaryi ng "0"
  10073            P KeyIsCasel ess "0"
  10074            S CDPurpose  "0"
  10075         END  DSSUBRECOR D
  10076         BEGI N DSSUBREC ORD
  10077            N ame "versi on"
  10078            S qlType "12 "
  10079            P recision " 15"
  10080            S cale "0"
  10081            N ullable "1 "
  10082            K eyPosition  "0"
  10083            D isplaySize  "0"
  10084            D erivation  "GenRecs.v ersion"
  10085            G roup "0"
  10086            P arsedDeriv ation "Gen Recs.versi on"
  10087            S ourceColum n "GenRecs .version"
  10088            S ortKey "0"
  10089            S ortType "0 "
  10090            A llowCRLF " 0"
  10091            L evelNo "0"
  10092            O ccurs "0"
  10093            P adNulls "0 "
  10094            S ignOption  "0"
  10095            S ortingOrde r "0"
  10096            A rrayHandli ng "0"
  10097            S yncIndicat or "0"
  10098            P adChar ""
  10099            E xtendedPre cision "0"
  10100            T aggedSubre c "0"
  10101            O ccursVaryi ng "0"
  10102            P KeyIsCasel ess "0"
  10103            S CDPurpose  "0"
  10104         END  DSSUBRECOR D
  10105         BEGI N DSSUBREC ORD
  10106            N ame "point er_order"
  10107            D escription  =+=+=+=
  10108   <none>
  10109   Searchable ? N 
  10110   =+=+=+=
  10111            S qlType "4"
  10112            P recision " 10"
  10113            S cale "0"
  10114            N ullable "1 "
  10115            K eyPosition  "0"
  10116            D isplaySize  "15"
  10117            D erivation  "GenRecs.p ointer_ord er"
  10118            G roup "0"
  10119            P arsedDeriv ation "Gen Recs.point er_order"
  10120            S ourceColum n "GenRecs .pointer_o rder"
  10121            S ortKey "0"
  10122            S ortType "0 "
  10123            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  10124            A llowCRLF " 0"
  10125            L evelNo "0"
  10126            O ccurs "0"
  10127            P adNulls "0 "
  10128            S ignOption  "0"
  10129            S ortingOrde r "0"
  10130            A rrayHandli ng "0"
  10131            S yncIndicat or "0"
  10132            P adChar ""
  10133            C olumnRefer ence "oral _cavity_de signation_ code"
  10134            A PTFieldPro p "null_fi eld=''"
  10135            E xtendedPre cision "0"
  10136            T aggedSubre c "0"
  10137            O ccursVaryi ng "0"
  10138            P KeyIsCasel ess "0"
  10139            S CDPurpose  "0"
  10140         END  DSSUBRECOR D
  10141         BEGI N DSSUBREC ORD
  10142            N ame "is_cu rrent"
  10143            S qlType "1"
  10144            P recision " 1"
  10145            S cale "0"
  10146            N ullable "0 "
  10147            K eyPosition  "0"
  10148            D isplaySize  "0"
  10149            D erivation  "GenRecs.i s_current"
  10150            G roup "0"
  10151            P arsedDeriv ation "Gen Recs.is_cu rrent"
  10152            S ourceColum n "GenRecs .is_curren t"
  10153            S ortKey "0"
  10154            S ortType "0 "
  10155            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10156            A llowCRLF " 0"
  10157            L evelNo "0"
  10158            N ativeType  "pit_boole an"
  10159            O ccurs "0"
  10160            P adNulls "0 "
  10161            S ignOption  "0"
  10162            S ortingOrde r "0"
  10163            A rrayHandli ng "0"
  10164            S yncIndicat or "0"
  10165            P adChar ""
  10166            C olumnRefer ence "is_c urrent"
  10167            E xtendedPre cision "0"
  10168            T aggedSubre c "0"
  10169            O ccursVaryi ng "0"
  10170            P KeyIsCasel ess "0"
  10171            S CDPurpose  "0"
  10172         END  DSSUBRECOR D
  10173         BEGI N DSSUBREC ORD
  10174            N ame "start _date"
  10175            S qlType "9"
  10176            P recision " 10"
  10177            S cale "0"
  10178            N ullable "1 "
  10179            K eyPosition  "0"
  10180            D isplaySize  "0"
  10181            D erivation  "GenRecs.s tart_date"
  10182            G roup "0"
  10183            P arsedDeriv ation "Gen Recs.start _date"
  10184            S ourceColum n "GenRecs .start_dat e"
  10185            S ortKey "0"
  10186            S ortType "0 "
  10187            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10188            A llowCRLF " 0"
  10189            L evelNo "0"
  10190            N ativeType  "pit_date"
  10191            O ccurs "0"
  10192            P adNulls "0 "
  10193            S ignOption  "0"
  10194            S ortingOrde r "0"
  10195            A rrayHandli ng "0"
  10196            S yncIndicat or "0"
  10197            P adChar ""
  10198            C olumnRefer ence "star t_date"
  10199            E xtendedPre cision "0"
  10200            T aggedSubre c "0"
  10201            O ccursVaryi ng "0"
  10202            P KeyIsCasel ess "0"
  10203            S CDPurpose  "0"
  10204         END  DSSUBRECOR D
  10205         BEGI N DSSUBREC ORD
  10206            N ame "end_d ate"
  10207            S qlType "9"
  10208            P recision " 10"
  10209            S cale "0"
  10210            N ullable "1 "
  10211            K eyPosition  "0"
  10212            D isplaySize  "0"
  10213            D erivation  "GenRecs.e nd_date"
  10214            G roup "0"
  10215            P arsedDeriv ation "Gen Recs.end_d ate"
  10216            S ourceColum n "GenRecs .end_date"
  10217            S ortKey "0"
  10218            S ortType "0 "
  10219            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10220            A llowCRLF " 0"
  10221            L evelNo "0"
  10222            N ativeType  "pit_end_d ate"
  10223            O ccurs "0"
  10224            P adNulls "0 "
  10225            S ignOption  "0"
  10226            S ortingOrde r "0"
  10227            A rrayHandli ng "0"
  10228            S yncIndicat or "0"
  10229            P adChar ""
  10230            C olumnRefer ence "end_ date"
  10231            E xtendedPre cision "0"
  10232            T aggedSubre c "0"
  10233            O ccursVaryi ng "0"
  10234            P KeyIsCasel ess "0"
  10235            S CDPurpose  "0"
  10236         END  DSSUBRECOR D
  10237         BEGI N DSSUBREC ORD
  10238            N ame "sourc e_system"
  10239            S qlType "12 "
  10240            P recision " 20"
  10241            S cale "0"
  10242            N ullable "1 "
  10243            K eyPosition  "0"
  10244            D isplaySize  "0"
  10245            D erivation  "GenRecs.s ource_syst em"
  10246            G roup "0"
  10247            P arsedDeriv ation "Gen Recs.sourc e_system"
  10248            S ourceColum n "GenRecs .source_sy stem"
  10249            S ortKey "0"
  10250            S ortType "0 "
  10251            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10252            A llowCRLF " 0"
  10253            L evelNo "0"
  10254            N ativeType  "varchar"
  10255            O ccurs "0"
  10256            P adNulls "0 "
  10257            S ignOption  "0"
  10258            S ortingOrde r "0"
  10259            A rrayHandli ng "0"
  10260            S yncIndicat or "0"
  10261            P adChar ""
  10262            C olumnRefer ence "sour ce_system"
  10263            E xtendedPre cision "0"
  10264            T aggedSubre c "0"
  10265            O ccursVaryi ng "0"
  10266            P KeyIsCasel ess "0"
  10267            S CDPurpose  "0"
  10268         END  DSSUBRECOR D
  10269         BEGI N DSSUBREC ORD
  10270            N ame "sourc e_entity"
  10271            S qlType "12 "
  10272            P recision " 50"
  10273            S cale "0"
  10274            N ullable "1 "
  10275            K eyPosition  "0"
  10276            D isplaySize  "0"
  10277            D erivation  "GenRecs.s ource_enti ty"
  10278            G roup "0"
  10279            P arsedDeriv ation "Gen Recs.sourc e_entity"
  10280            S ourceColum n "GenRecs .source_en tity"
  10281            S ortKey "0"
  10282            S ortType "0 "
  10283            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10284            A llowCRLF " 0"
  10285            L evelNo "0"
  10286            O ccurs "0"
  10287            P adNulls "0 "
  10288            S ignOption  "0"
  10289            S ortingOrde r "0"
  10290            A rrayHandli ng "0"
  10291            S yncIndicat or "0"
  10292            P adChar ""
  10293            C olumnRefer ence "sour ce_entity"
  10294            E xtendedPre cision "0"
  10295            T aggedSubre c "0"
  10296            O ccursVaryi ng "0"
  10297            P KeyIsCasel ess "0"
  10298            S CDPurpose  "0"
  10299         END  DSSUBRECOR D
  10300         BEGI N DSSUBREC ORD
  10301            N ame "etl_b atch_id"
  10302            D escription  =+=+=+=
  10303   <none>
  10304   Searchable ? N 
  10305   =+=+=+=
  10306            S qlType "12 "
  10307            P recision " 20"
  10308            S cale "0"
  10309            N ullable "1 "
  10310            K eyPosition  "0"
  10311            D isplaySize  "20"
  10312            D erivation  "GenRecs.e tl_batch_i d"
  10313            G roup "0"
  10314            P arsedDeriv ation "Gen Recs.etl_b atch_id"
  10315            S ourceColum n "GenRecs .etl_batch _id"
  10316            S ortKey "0"
  10317            S ortType "0 "
  10318            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  10319            A llowCRLF " 0"
  10320            L evelNo "0"
  10321            O ccurs "0"
  10322            P adNulls "0 "
  10323            S ignOption  "0"
  10324            S ortingOrde r "0"
  10325            A rrayHandli ng "0"
  10326            S yncIndicat or "0"
  10327            P adChar ""
  10328            C olumnRefer ence "etl_ batch_id"
  10329            A PTFieldPro p "null_fi eld=''"
  10330            E xtendedPre cision "0"
  10331            T aggedSubre c "0"
  10332            O ccursVaryi ng "0"
  10333            P KeyIsCasel ess "0"
  10334            S CDPurpose  "0"
  10335         END  DSSUBRECOR D
  10336         BEGI N DSSUBREC ORD
  10337            N ame "row_i d"
  10338            S qlType "12 "
  10339            P recision " 20"
  10340            S cale "0"
  10341            N ullable "1 "
  10342            K eyPosition  "0"
  10343            D isplaySize  "0"
  10344            D erivation  "GenRecs.r ow_id"
  10345            G roup "0"
  10346            P arsedDeriv ation "Gen Recs.row_i d"
  10347            S ourceColum n "GenRecs .row_id"
  10348            S ortKey "0"
  10349            S ortType "0 "
  10350            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10351            A llowCRLF " 0"
  10352            L evelNo "0"
  10353            N ativeType  "varchar"
  10354            O ccurs "0"
  10355            P adNulls "0 "
  10356            S ignOption  "0"
  10357            S ortingOrde r "0"
  10358            A rrayHandli ng "0"
  10359            S yncIndicat or "0"
  10360            P adChar ""
  10361            C olumnRefer ence "row_ id"
  10362            E xtendedPre cision "0"
  10363            T aggedSubre c "0"
  10364            O ccursVaryi ng "0"
  10365            P KeyIsCasel ess "0"
  10366            S CDPurpose  "0"
  10367         END  DSSUBRECOR D
  10368         BEGI N DSSUBREC ORD
  10369            N ame "servi ce_line_nu mber"
  10370            S qlType "4"
  10371            P recision " 10"
  10372            S cale "0"
  10373            N ullable "1 "
  10374            K eyPosition  "0"
  10375            D isplaySize  "0"
  10376            D erivation  "GenRecs.s ervice_lin e_number"
  10377            G roup "0"
  10378            P arsedDeriv ation "Gen Recs.servi ce_line_nu mber"
  10379            S ourceColum n "GenRecs .service_l ine_number "
  10380            S ortKey "0"
  10381            S ortType "0 "
  10382            A llowCRLF " 0"
  10383            L evelNo "0"
  10384            O ccurs "0"
  10385            P adNulls "0 "
  10386            S ignOption  "0"
  10387            S ortingOrde r "0"
  10388            A rrayHandli ng "0"
  10389            S yncIndicat or "0"
  10390            P adChar ""
  10391            E xtendedPre cision "0"
  10392            T aggedSubre c "0"
  10393            O ccursVaryi ng "0"
  10394            P KeyIsCasel ess "0"
  10395            S CDPurpose  "0"
  10396         END  DSSUBRECOR D
  10397         Meta Bag "CMeta Property"
  10398         BEGI N DSSUBREC ORD
  10399            O wner "APT"
  10400            N ame "DiskW riteInc"
  10401            V alue "1048 576"
  10402         END  DSSUBRECOR D
  10403         BEGI N DSSUBREC ORD
  10404            O wner "APT"
  10405            N ame "BufFr eeRun"
  10406            V alue "50"
  10407         END  DSSUBRECOR D
  10408         BEGI N DSSUBREC ORD
  10409            O wner "APT"
  10410            N ame "MaxMe mBufSize"
  10411            V alue "3145 728"
  10412         END  DSSUBRECOR D
  10413         BEGI N DSSUBREC ORD
  10414            O wner "APT"
  10415            N ame "Queue UpperSize"
  10416            V alue "0"
  10417         END  DSSUBRECOR D
  10418         BEGI N DSSUBREC ORD
  10419            O wner "APT"
  10420            N ame "Schem a"
  10421            V alue =+=+= +=
  10422   record
  10423   (
  10424     claim_id :nullable  string[max =20];
  10425     diagn_gu alif:nulla ble string [max=200];
  10426     diagn_co des:nullab le string[ max=200];
  10427     version: nullable s tring[max= 15];
  10428     pointer_ order:null able int32 ;
  10429     is_curre nt:string[ 1];
  10430     start_da te:nullabl e date;
  10431     end_date :nullable  date;
  10432     source_s ystem:null able strin g[max=20];
  10433     source_e ntity:null able strin g[max=50];
  10434     etl_batc h_id:nulla ble string [max=20];
  10435     row_id:n ullable st ring[max=2 0];
  10436     service_ line_numbe r:nullable  int32;
  10437   )
  10438   =+=+=+=
  10439         END  DSSUBRECOR D
  10440         Left TextPos "7 62"
  10441         TopT extPos "25 9"
  10442         Link Minimised  "0"
  10443      END DSR ECORD
  10444      BEGIN D SRECORD
  10445         Iden tifier "V1 21S0"
  10446         OLET ype "CTran sformerSta ge"
  10447         Read only "0"
  10448         Name  "genRecsB yCode"
  10449         Next ID "7"
  10450         Inpu tPins "V12 1S0P6"
  10451         Outp utPins "V1 21S0P2"
  10452         Meta Bag "CMeta Property"
  10453         BEGI N DSSUBREC ORD
  10454            O wner "APT"
  10455            N ame "TrxGe nCode"
  10456            V alue =+=+= +=
  10457   //
  10458   // Generat ed file to  implement  the V121S 0_EDI837P_ CLAIM_LINE _DIAGNOSIS _prep_genR ecsByCode  transform  operator.
  10459   //
  10460  
  10461   // define  our input/ output lin k names
  10462   inputname  0 Fltr_01;
  10463   outputname  0 GenRecs ;
  10464  
  10465   initialize  {
  10466    // define  our contr ol variabl es
  10467    int8 RowR ejected0;
  10468    int8 Null SetVar0;
  10469    uint64 It eration0;
  10470  
  10471  
  10472    // get an y loop war ning thres hold
  10473    int64 Loo pThreshold 0;
  10474    string Lo opThreshol dEnv0;
  10475    string Lo opThreshol dName0;
  10476    LoopThres holdName0  = "APT_TRA NSFORM_LOO P_WARNING_ THRESHOLD" ;
  10477    LoopThres holdEnv0 =  get_envir onment(Loo pThreshold Name0);
  10478    if ((Loop ThresholdE nv0 == "")  || (LoopT hresholdEn v0 == "-1" )) {
  10479     LoopThre shold0 = 1 0000;
  10480    } else {
  10481     LoopThre shold0 = L oopThresho ldEnv0;
  10482    }
  10483  
  10484    // declar e our inte rmediate v ariables f or this se ction (1)
  10485    string In terVar0_0;
  10486    string In terVar0_3;
  10487    string In terVar0_4;
  10488    string In terVar0_5;
  10489    string In terVar0_6;
  10490    string In terVar0_7;
  10491    string In terVar0_8;
  10492    string In terVar0_9;
  10493    string In terVar0_10 ;
  10494  
  10495    // initia lise const ant values  which req uire conve rsion
  10496    InterVar0 _0 = ":";
  10497    InterVar0 _3 = "|";
  10498    InterVar0 _4 = "ABK" ;
  10499    InterVar0 _5 = "ABF" ;
  10500    InterVar0 _6 = "ICD1 0";
  10501    InterVar0 _7 = "BK";
  10502    InterVar0 _8 = "BF";
  10503    InterVar0 _9 = "ICD9 ";
  10504    // Stage  variable d eclaration  and initi alisation
  10505    int32 Sta geVar0_svD Count;
  10506    StageVar0 _svDCount  = 0;
  10507   }
  10508  
  10509   mainloop {
  10510    Iteration 0 = 1;
  10511  
  10512    // declar e our inte rmediate v ariables f or this se ction (2)
  10513    int32 Int erVar0_1;
  10514    uint64 In terVar0_2;
  10515  
  10516    // evalua te the sta ge variabl es first
  10517    StageVar0 _svDCount  = dcount_s ubstring(F ltr_01.poi nter_order _all , Int erVar0_0);
  10518  
  10519    // Loop v ariable de claration  and initia lisation
  10520    int32 Loo pVar0_tmpP ointer;
  10521    LoopVar0_ tmpPointer  = 0;
  10522  
  10523    InterVar0 _2 = Stage Var0_svDCo unt;
  10524  
  10525    while ((I teration0  <= InterVa r0_2)) {
  10526  
  10527     // evalu ate the lo op variabl es
  10528     InterVar 0_1 = Iter ation0;
  10529     LoopVar0 _tmpPointe r = substr ing_by_del imiter(Flt r_01.point er_order_a ll , Inter Var0_0 , I nterVar0_1  , 1);
  10530  
  10531  
  10532     // initi alise the  rejected r ow variabl e
  10533     RowRejec ted0 = 1;
  10534  
  10535     // evalu ate column s (no cons traints) f or link: G enRecs
  10536     GenRecs. diagn_gual if = subst ring_by_de limiter(Fl tr_01.diag n_qualifs  , InterVar 0_3 , Loop Var0_tmpPo inter , 1) ;
  10537     GenRecs. diagn_code s = substr ing_by_del imiter(Flt r_01.diagn _codes , I nterVar0_3  , LoopVar 0_tmpPoint er , 1);
  10538     NullSetV ar0 = 0;
  10539     if (((su bstring_by _delimiter (Fltr_01.d iagn_quali fs , Inter Var0_3 , L oopVar0_tm pPointer ,  1) == Int erVar0_4)  || (substr ing_by_del imiter(Flt r_01.diagn _qualifs ,  InterVar0 _3 , LoopV ar0_tmpPoi nter , 1)  == InterVa r0_5))) {
  10540      GenRecs .version =  InterVar0 _6;
  10541     } else {
  10542      if (((s ubstring_b y_delimite r(Fltr_01. diagn_qual ifs , Inte rVar0_3 ,  LoopVar0_t mpPointer  , 1) == In terVar0_7)  || (subst ring_by_de limiter(Fl tr_01.diag n_qualifs  , InterVar 0_3 , Loop Var0_tmpPo inter , 1)  == InterV ar0_8))) {
  10543       GenRec s.version  = InterVar 0_9;
  10544      } else  {
  10545       NullSe tVar0 = 1;
  10546      }
  10547      //;
  10548     }
  10549     GenRecs. version =  ((NullSetV ar0 == 1)  ? set_null () : GenRe cs.version );
  10550     GenRecs. pointer_or der = Loop Var0_tmpPo inter;
  10551     writerec ord 0;
  10552     RowRejec ted0 = 0;
  10553  
  10554     // Check  for hitti ng the war ning thres hold
  10555     if (Loop Threshold0  > 0) {
  10556      if ((It eration0 %  LoopThres hold0) ==  0) {
  10557       InterV ar0_10 = I teration0;
  10558       print_ warning("T he warning  threshold  for the n umber of o utput row  iterations  processed  per singl e input ro w has been  reached.  Number of  output row  iteration s: " + Int erVar0_10  + ". This  is just a  warning an d the job  will conti nue.");
  10559      }
  10560     }
  10561     Iteratio n0 = Itera tion0 + 1;
  10562     // now d o any work  to re-eva luate the  while cond ition
  10563    InterVar0 _2 = Stage Var0_svDCo unt;
  10564  
  10565    }
  10566   }
  10567  
  10568   finish {
  10569   }
  10570  
  10571   =+=+=+=
  10572         END  DSSUBRECOR D
  10573         BEGI N DSSUBREC ORD
  10574            O wner "APT"
  10575            N ame "TrxGe nCache"
  10576            V alue "1"
  10577         END  DSSUBRECOR D
  10578         BEGI N DSSUBREC ORD
  10579            O wner "APT"
  10580            N ame "TrxCl assName"
  10581            V alue "V121 S0_EDI837P _CLAIM_LIN E_DIAGNOSI S_prep_gen RecsByCode "
  10582         END  DSSUBRECOR D
  10583         BEGI N DSSUBREC ORD
  10584            O wner "APT"
  10585            N ame "TrxGe nWarnings"
  10586            V alue =+=+= +=
  10587   genRecsByC ode
  10588      WARNING : Error in  loop vari able deriv ation for  variable t mpPointer.  
  10589          - p otential d ata or pre cision los s converti ng from st ring to in t32
  10590          - p otential d ata or pre cision los s converti ng from ui nt64 to in t32
  10591      WARNING : Error in  loop cond ition expr ession.
  10592          - p otential d ata or pre cision los s converti ng from in t32 to uin t64
  10593  
  10594   =+=+=+=
  10595         END  DSSUBRECOR D
  10596         Vali dationStat us "0"
  10597         Stag eType "CTr ansformerS tage"
  10598         Bloc kSize "0"
  10599         SKKe ySourceTyp e "file"
  10600         Stag eVars "CSt ageVar"
  10601         BEGI N DSSUBREC ORD
  10602            N ame "svDCo unt"
  10603            E xpression  "DCOUNT(Fl tr_01.poin ter_order_ all , \":\ ")"
  10604            I nitialValu e "0"
  10605            S qlType "4"
  10606            P arsedExpre ssion "DCO UNT(Fltr_0 1.pointer_ order_all,  \":\")"
  10607            S ourceColum n "Fltr_01 .pointer_o rder_all"
  10608            P recision " 10"
  10609            C olScale "0 "
  10610            E xtendedPre cision "0"
  10611         END  DSSUBRECOR D
  10612         Loop Condition  "CStageVar "
  10613         BEGI N DSSUBREC ORD
  10614            N ame "$Loop Condition"
  10615            E xpression  "@ITERATIO N <= svDCo unt"
  10616            S qlType "3"
  10617            P arsedExpre ssion "@IT ERATION <=  svDCount"
  10618            S tageVars " svDCount"
  10619            P recision " 18"
  10620            C olScale "4 "
  10621            E xtendedPre cision "0"
  10622         END  DSSUBRECOR D
  10623         Loop Vars "CSta geVar"
  10624         BEGI N DSSUBREC ORD
  10625            N ame "tmpPo inter"
  10626            E xpression  "FIELD(Flt r_01.point er_order_a ll, \":\",  @ITERATIO N, 1)"
  10627            S qlType "4"
  10628            P arsedExpre ssion "FIE LD(Fltr_01 .pointer_o rder_all,  \":\", @IT ERATION, 1 )"
  10629            S ourceColum n "Fltr_01 .pointer_o rder_all"
  10630            P recision " 10"
  10631            C olScale "0 "
  10632            E xtendedPre cision "0"
  10633         END  DSSUBRECOR D
  10634         Stag eVarsMinim ised "0"
  10635         Loop VarsMaximi sed "1"
  10636         MaxL oopIterati ons "0"
  10637      END DSR ECORD
  10638      BEGIN D SRECORD
  10639         Iden tifier "V1 21S0P2"
  10640         OLET ype "CTrxO utput"
  10641         Read only "0"
  10642         Name  "GenRecs"
  10643         Part ner "V0S18 9|V0S189P1 "
  10644         Reje ct "0"
  10645         Erro rPin "0"
  10646         RowL imit "0"
  10647         Colu mns "COutp utColumn"
  10648         BEGI N DSSUBREC ORD
  10649            N ame "claim _id"
  10650            S qlType "12 "
  10651            P recision " 20"
  10652            S cale "0"
  10653            N ullable "1 "
  10654            K eyPosition  "0"
  10655            D isplaySize  "0"
  10656            D erivation  "Fltr_01.c laim_id"
  10657            G roup "0"
  10658            P arsedDeriv ation "Flt r_01.claim _id"
  10659            S ourceColum n "Fltr_01 .claim_id"
  10660            S ortKey "0"
  10661            S ortType "0 "
  10662            A llowCRLF " 0"
  10663            L evelNo "0"
  10664            O ccurs "0"
  10665            P adNulls "0 "
  10666            S ignOption  "0"
  10667            S ortingOrde r "0"
  10668            A rrayHandli ng "0"
  10669            S yncIndicat or "0"
  10670            P adChar ""
  10671            E xtendedPre cision "0"
  10672            T aggedSubre c "0"
  10673            O ccursVaryi ng "0"
  10674            P KeyIsCasel ess "0"
  10675            S CDPurpose  "0"
  10676         END  DSSUBRECOR D
  10677         BEGI N DSSUBREC ORD
  10678            N ame "diagn _gualif"
  10679            S qlType "12 "
  10680            P recision " 200"
  10681            S cale "0"
  10682            N ullable "1 "
  10683            K eyPosition  "0"
  10684            D isplaySize  "0"
  10685            D erivation  "FIELD(Flt r_01.diagn _qualifs,  \"|\", tmp Pointer, 1 ) "
  10686            G roup "0"
  10687            P arsedDeriv ation "FIE LD(Fltr_01 .diagn_qua lifs, \"|\ ", tmpPoin ter, 1)"
  10688            S ourceColum n "Fltr_01 .diagn_qua lifs"
  10689            S ortKey "0"
  10690            S ortType "0 "
  10691            A llowCRLF " 0"
  10692            L evelNo "0"
  10693            O ccurs "0"
  10694            P adNulls "0 "
  10695            S ignOption  "0"
  10696            S ortingOrde r "0"
  10697            S tageVars " \(1B)tmpPo inter"
  10698            A rrayHandli ng "0"
  10699            S yncIndicat or "0"
  10700            P adChar ""
  10701            E xtendedPre cision "0"
  10702            T aggedSubre c "0"
  10703            O ccursVaryi ng "0"
  10704            P KeyIsCasel ess "0"
  10705            S CDPurpose  "0"
  10706         END  DSSUBRECOR D
  10707         BEGI N DSSUBREC ORD
  10708            N ame "diagn _codes"
  10709            S qlType "12 "
  10710            P recision " 200"
  10711            S cale "0"
  10712            N ullable "1 "
  10713            K eyPosition  "0"
  10714            D isplaySize  "0"
  10715            D erivation  " FIELD(Fl tr_01.diag n_codes, \ "|\", tmpP ointer, 1) "
  10716            G roup "0"
  10717            P arsedDeriv ation "FIE LD(Fltr_01 .diagn_cod es, \"|\",  tmpPointe r, 1)"
  10718            S ourceColum n "Fltr_01 .diagn_cod es"
  10719            S ortKey "0"
  10720            S ortType "0 "
  10721            A llowCRLF " 0"
  10722            L evelNo "0"
  10723            O ccurs "0"
  10724            P adNulls "0 "
  10725            S ignOption  "0"
  10726            S ortingOrde r "0"
  10727            S tageVars " \(1B)tmpPo inter"
  10728            A rrayHandli ng "0"
  10729            S yncIndicat or "0"
  10730            P adChar ""
  10731            E xtendedPre cision "0"
  10732            T aggedSubre c "0"
  10733            O ccursVaryi ng "0"
  10734            P KeyIsCasel ess "0"
  10735            S CDPurpose  "0"
  10736         END  DSSUBRECOR D
  10737         BEGI N DSSUBREC ORD
  10738            N ame "versi on"
  10739            S qlType "12 "
  10740            P recision " 15"
  10741            S cale "0"
  10742            N ullable "1 "
  10743            K eyPosition  "0"
  10744            D isplaySize  "0"
  10745            D erivation  "If FIELD( Fltr_01.di agn_qualif s, \"|\",  tmpPointer , 1) = 'AB K' or  FIE LD(Fltr_01 .diagn_qua lifs, \"|\ ", tmpPoin ter, 1) =  'ABF' Then  'ICD10' E lse If FIE LD(Fltr_01 .diagn_qua lifs, \"|\ ", tmpPoin ter, 1) =  'BK' or FI ELD(Fltr_0 1.diagn_qu alifs, \"| \", tmpPoi nter, 1) =  'BF' Then  'ICD9' El se SetNull ()"
  10746            G roup "0"
  10747            P arsedDeriv ation " If  FIELD(Flt r_01.diagn _qualifs,  \"|\", tmp Pointer, 1 ) = 'ABK'  or FIELD(F ltr_01.dia gn_qualifs , \"|\", t mpPointer,  1) = 'ABF ' Then 'IC D10' Else   If FIELD( Fltr_01.di agn_qualif s, \"|\",  tmpPointer , 1) = 'BK ' or FIELD (Fltr_01.d iagn_quali fs, \"|\",  tmpPointe r, 1) = 'B F' Then 'I CD9' Else  SetNull()"
  10748            S ourceColum n "Fltr_01 .diagn_qua lifs"
  10749            S ortKey "0"
  10750            S ortType "0 "
  10751            A llowCRLF " 0"
  10752            L evelNo "0"
  10753            O ccurs "0"
  10754            P adNulls "0 "
  10755            S ignOption  "0"
  10756            S ortingOrde r "0"
  10757            S tageVars " \(1B)tmpPo inter"
  10758            A rrayHandli ng "0"
  10759            S yncIndicat or "0"
  10760            P adChar ""
  10761            E xtendedPre cision "0"
  10762            T aggedSubre c "0"
  10763            O ccursVaryi ng "0"
  10764            P KeyIsCasel ess "0"
  10765            S CDPurpose  "0"
  10766         END  DSSUBRECOR D
  10767         BEGI N DSSUBREC ORD
  10768            N ame "point er_order"
  10769            D escription  =+=+=+=
  10770   <none>
  10771   Searchable ? N 
  10772   =+=+=+=
  10773            S qlType "4"
  10774            P recision " 10"
  10775            S cale "0"
  10776            N ullable "1 "
  10777            K eyPosition  "0"
  10778            D isplaySize  "15"
  10779            D erivation  "tmpPointe r"
  10780            G roup "0"
  10781            P arsedDeriv ation "tmp Pointer"
  10782            S ortKey "0"
  10783            S ortType "0 "
  10784            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  10785            A llowCRLF " 0"
  10786            L evelNo "0"
  10787            O ccurs "0"
  10788            P adNulls "0 "
  10789            S ignOption  "0"
  10790            S ortingOrde r "0"
  10791            S tageVars " \(1B)tmpPo inter"
  10792            A rrayHandli ng "0"
  10793            S yncIndicat or "0"
  10794            P adChar ""
  10795            C olumnRefer ence "oral _cavity_de signation_ code"
  10796            A PTFieldPro p "null_fi eld=''"
  10797            E xtendedPre cision "0"
  10798            T aggedSubre c "0"
  10799            O ccursVaryi ng "0"
  10800            P KeyIsCasel ess "0"
  10801            S CDPurpose  "0"
  10802         END  DSSUBRECOR D
  10803         BEGI N DSSUBREC ORD
  10804            N ame "is_cu rrent"
  10805            S qlType "1"
  10806            P recision " 1"
  10807            S cale "0"
  10808            N ullable "0 "
  10809            K eyPosition  "0"
  10810            D isplaySize  "0"
  10811            D erivation  "Fltr_01.i s_current"
  10812            G roup "0"
  10813            P arsedDeriv ation "Flt r_01.is_cu rrent"
  10814            S ourceColum n "Fltr_01 .is_curren t"
  10815            S ortKey "0"
  10816            S ortType "0 "
  10817            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10818            A llowCRLF " 0"
  10819            L evelNo "0"
  10820            N ativeType  "pit_boole an"
  10821            O ccurs "0"
  10822            P adNulls "0 "
  10823            S ignOption  "0"
  10824            S ortingOrde r "0"
  10825            A rrayHandli ng "0"
  10826            S yncIndicat or "0"
  10827            P adChar ""
  10828            C olumnRefer ence "is_c urrent"
  10829            E xtendedPre cision "0"
  10830            T aggedSubre c "0"
  10831            O ccursVaryi ng "0"
  10832            P KeyIsCasel ess "0"
  10833            S CDPurpose  "0"
  10834         END  DSSUBRECOR D
  10835         BEGI N DSSUBREC ORD
  10836            N ame "start _date"
  10837            S qlType "9"
  10838            P recision " 10"
  10839            S cale "0"
  10840            N ullable "1 "
  10841            K eyPosition  "0"
  10842            D isplaySize  "0"
  10843            D erivation  "Fltr_01.s tart_date"
  10844            G roup "0"
  10845            P arsedDeriv ation "Flt r_01.start _date"
  10846            S ourceColum n "Fltr_01 .start_dat e"
  10847            S ortKey "0"
  10848            S ortType "0 "
  10849            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10850            A llowCRLF " 0"
  10851            L evelNo "0"
  10852            N ativeType  "pit_date"
  10853            O ccurs "0"
  10854            P adNulls "0 "
  10855            S ignOption  "0"
  10856            S ortingOrde r "0"
  10857            A rrayHandli ng "0"
  10858            S yncIndicat or "0"
  10859            P adChar ""
  10860            C olumnRefer ence "star t_date"
  10861            E xtendedPre cision "0"
  10862            T aggedSubre c "0"
  10863            O ccursVaryi ng "0"
  10864            P KeyIsCasel ess "0"
  10865            S CDPurpose  "0"
  10866         END  DSSUBRECOR D
  10867         BEGI N DSSUBREC ORD
  10868            N ame "end_d ate"
  10869            S qlType "9"
  10870            P recision " 10"
  10871            S cale "0"
  10872            N ullable "1 "
  10873            K eyPosition  "0"
  10874            D isplaySize  "0"
  10875            D erivation  "Fltr_01.e nd_date"
  10876            G roup "0"
  10877            P arsedDeriv ation "Flt r_01.end_d ate"
  10878            S ourceColum n "Fltr_01 .end_date"
  10879            S ortKey "0"
  10880            S ortType "0 "
  10881            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10882            A llowCRLF " 0"
  10883            L evelNo "0"
  10884            N ativeType  "pit_end_d ate"
  10885            O ccurs "0"
  10886            P adNulls "0 "
  10887            S ignOption  "0"
  10888            S ortingOrde r "0"
  10889            A rrayHandli ng "0"
  10890            S yncIndicat or "0"
  10891            P adChar ""
  10892            C olumnRefer ence "end_ date"
  10893            E xtendedPre cision "0"
  10894            T aggedSubre c "0"
  10895            O ccursVaryi ng "0"
  10896            P KeyIsCasel ess "0"
  10897            S CDPurpose  "0"
  10898         END  DSSUBRECOR D
  10899         BEGI N DSSUBREC ORD
  10900            N ame "sourc e_system"
  10901            S qlType "12 "
  10902            P recision " 20"
  10903            S cale "0"
  10904            N ullable "1 "
  10905            K eyPosition  "0"
  10906            D isplaySize  "0"
  10907            D erivation  "Fltr_01.s ource_syst em"
  10908            G roup "0"
  10909            P arsedDeriv ation "Flt r_01.sourc e_system"
  10910            S ourceColum n "Fltr_01 .source_sy stem"
  10911            S ortKey "0"
  10912            S ortType "0 "
  10913            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10914            A llowCRLF " 0"
  10915            L evelNo "0"
  10916            N ativeType  "varchar"
  10917            O ccurs "0"
  10918            P adNulls "0 "
  10919            S ignOption  "0"
  10920            S ortingOrde r "0"
  10921            A rrayHandli ng "0"
  10922            S yncIndicat or "0"
  10923            P adChar ""
  10924            C olumnRefer ence "sour ce_system"
  10925            E xtendedPre cision "0"
  10926            T aggedSubre c "0"
  10927            O ccursVaryi ng "0"
  10928            P KeyIsCasel ess "0"
  10929            S CDPurpose  "0"
  10930         END  DSSUBRECOR D
  10931         BEGI N DSSUBREC ORD
  10932            N ame "sourc e_entity"
  10933            S qlType "12 "
  10934            P recision " 50"
  10935            S cale "0"
  10936            N ullable "1 "
  10937            K eyPosition  "0"
  10938            D isplaySize  "0"
  10939            D erivation  "Fltr_01.s ource_enti ty"
  10940            G roup "0"
  10941            P arsedDeriv ation "Flt r_01.sourc e_entity"
  10942            S ourceColum n "Fltr_01 .source_en tity"
  10943            S ortKey "0"
  10944            S ortType "0 "
  10945            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  10946            A llowCRLF " 0"
  10947            L evelNo "0"
  10948            O ccurs "0"
  10949            P adNulls "0 "
  10950            S ignOption  "0"
  10951            S ortingOrde r "0"
  10952            A rrayHandli ng "0"
  10953            S yncIndicat or "0"
  10954            P adChar ""
  10955            C olumnRefer ence "sour ce_entity"
  10956            E xtendedPre cision "0"
  10957            T aggedSubre c "0"
  10958            O ccursVaryi ng "0"
  10959            P KeyIsCasel ess "0"
  10960            S CDPurpose  "0"
  10961         END  DSSUBRECOR D
  10962         BEGI N DSSUBREC ORD
  10963            N ame "etl_b atch_id"
  10964            D escription  =+=+=+=
  10965   <none>
  10966   Searchable ? N 
  10967   =+=+=+=
  10968            S qlType "12 "
  10969            P recision " 20"
  10970            S cale "0"
  10971            N ullable "1 "
  10972            K eyPosition  "0"
  10973            D isplaySize  "20"
  10974            D erivation  "Fltr_01.e tl_batch_i d"
  10975            G roup "0"
  10976            P arsedDeriv ation "Flt r_01.etl_b atch_id"
  10977            S ourceColum n "Fltr_01 .etl_batch _id"
  10978            S ortKey "0"
  10979            S ortType "0 "
  10980            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  10981            A llowCRLF " 0"
  10982            L evelNo "0"
  10983            O ccurs "0"
  10984            P adNulls "0 "
  10985            S ignOption  "0"
  10986            S ortingOrde r "0"
  10987            A rrayHandli ng "0"
  10988            S yncIndicat or "0"
  10989            P adChar ""
  10990            C olumnRefer ence "etl_ batch_id"
  10991            A PTFieldPro p "null_fi eld=''"
  10992            E xtendedPre cision "0"
  10993            T aggedSubre c "0"
  10994            O ccursVaryi ng "0"
  10995            P KeyIsCasel ess "0"
  10996            S CDPurpose  "0"
  10997         END  DSSUBRECOR D
  10998         BEGI N DSSUBREC ORD
  10999            N ame "row_i d"
  11000            S qlType "12 "
  11001            P recision " 20"
  11002            S cale "0"
  11003            N ullable "1 "
  11004            K eyPosition  "0"
  11005            D isplaySize  "0"
  11006            D erivation  "Fltr_01.r ow_id"
  11007            G roup "0"
  11008            P arsedDeriv ation "Flt r_01.row_i d"
  11009            S ourceColum n "Fltr_01 .row_id"
  11010            S ortKey "0"
  11011            S ortType "0 "
  11012            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  11013            A llowCRLF " 0"
  11014            L evelNo "0"
  11015            N ativeType  "varchar"
  11016            O ccurs "0"
  11017            P adNulls "0 "
  11018            S ignOption  "0"
  11019            S ortingOrde r "0"
  11020            A rrayHandli ng "0"
  11021            S yncIndicat or "0"
  11022            P adChar ""
  11023            C olumnRefer ence "row_ id"
  11024            E xtendedPre cision "0"
  11025            T aggedSubre c "0"
  11026            O ccursVaryi ng "0"
  11027            P KeyIsCasel ess "0"
  11028            S CDPurpose  "0"
  11029         END  DSSUBRECOR D
  11030         BEGI N DSSUBREC ORD
  11031            N ame "servi ce_line_nu mber"
  11032            S qlType "4"
  11033            P recision " 10"
  11034            S cale "0"
  11035            N ullable "1 "
  11036            K eyPosition  "0"
  11037            D isplaySize  "0"
  11038            D erivation  "Fltr_01.s ervice_lin e_number"
  11039            G roup "0"
  11040            P arsedDeriv ation "Flt r_01.servi ce_line_nu mber"
  11041            S ourceColum n "Fltr_01 .service_l ine_number "
  11042            S ortKey "0"
  11043            S ortType "0 "
  11044            A llowCRLF " 0"
  11045            L evelNo "0"
  11046            O ccurs "0"
  11047            P adNulls "0 "
  11048            S ignOption  "0"
  11049            S ortingOrde r "0"
  11050            A rrayHandli ng "0"
  11051            S yncIndicat or "0"
  11052            P adChar ""
  11053            E xtendedPre cision "0"
  11054            T aggedSubre c "0"
  11055            O ccursVaryi ng "0"
  11056            P KeyIsCasel ess "0"
  11057            S CDPurpose  "0"
  11058         END  DSSUBRECOR D
  11059         Meta Bag "CMeta Property"
  11060         BEGI N DSSUBREC ORD
  11061            O wner "APT"
  11062            N ame "DiskW riteInc"
  11063            V alue "1048 576"
  11064         END  DSSUBRECOR D
  11065         BEGI N DSSUBREC ORD
  11066            O wner "APT"
  11067            N ame "BufFr eeRun"
  11068            V alue "50"
  11069         END  DSSUBRECOR D
  11070         BEGI N DSSUBREC ORD
  11071            O wner "APT"
  11072            N ame "MaxMe mBufSize"
  11073            V alue "3145 728"
  11074         END  DSSUBRECOR D
  11075         BEGI N DSSUBREC ORD
  11076            O wner "APT"
  11077            N ame "Queue UpperSize"
  11078            V alue "0"
  11079         END  DSSUBRECOR D
  11080         BEGI N DSSUBREC ORD
  11081            O wner "APT"
  11082            N ame "Schem a"
  11083            V alue =+=+= +=
  11084   record
  11085   (
  11086     claim_id :nullable  string[max =20];
  11087     diagn_gu alif:nulla ble string [max=200];
  11088     diagn_co des:nullab le string[ max=200];
  11089     version: nullable s tring[max= 15];
  11090     pointer_ order:null able int32 ;
  11091     is_curre nt:string[ 1];
  11092     start_da te:nullabl e date;
  11093     end_date :nullable  date;
  11094     source_s ystem:null able strin g[max=20];
  11095     source_e ntity:null able strin g[max=50];
  11096     etl_batc h_id:nulla ble string [max=20];
  11097     row_id:n ullable st ring[max=2 0];
  11098     service_ line_numbe r:nullable  int32;
  11099   )
  11100   =+=+=+=
  11101         END  DSSUBRECOR D
  11102         BEGI N DSSUBREC ORD
  11103            O wner "APT"
  11104            N ame "SortO rderPreser ved"
  11105            V alue "0"
  11106         END  DSSUBRECOR D
  11107         Left TextPos "6 56"
  11108         TopT extPos "26 9"
  11109         Link Minimised  "0"
  11110      END DSR ECORD
  11111      BEGIN D SRECORD
  11112         Iden tifier "V1 21S0P6"
  11113         OLET ype "CTrxI nput"
  11114         Read only "0"
  11115         Name  "Fltr_01"
  11116         Part ner "V128S 0|V128S0P4 "
  11117         Link Type "1"
  11118         Meta Bag "CMeta Property"
  11119         BEGI N DSSUBREC ORD
  11120            O wner "APT"
  11121            N ame "RTCol umnProp"
  11122            V alue "0"
  11123         END  DSSUBRECOR D
  11124         BEGI N DSSUBREC ORD
  11125            O wner "APT"
  11126            N ame "Schem a"
  11127            V alue =+=+= +=
  11128   record
  11129   (
  11130     claim_id :nullable  string[max =20];
  11131     diagn_qu alifs:null able strin g[max=200] ;
  11132     diagn_co des:nullab le string[ max=200];
  11133     pointer_ order_all: nullable s tring[max= 100];
  11134     is_curre nt:string[ 1];
  11135     start_da te:nullabl e date;
  11136     end_date :nullable  date;
  11137     source_s ystem:null able strin g[max=20];
  11138     source_e ntity:null able strin g[max=50];
  11139     etl_batc h_id:nulla ble string [max=20];
  11140     row_id:n ullable st ring[max=2 0];
  11141     service_ line_numbe r:nullable  int32;
  11142   )
  11143   =+=+=+=
  11144         END  DSSUBRECOR D
  11145         Mult iRow "0"
  11146         Link Minimised  "0"
  11147      END DSR ECORD
  11148      BEGIN D SRECORD
  11149         Iden tifier "V1 23S0"
  11150         OLET ype "CCust omStage"
  11151         Read only "0"
  11152         Name  "Ds_Claim LineDiagno sis"
  11153         Next ID "4"
  11154         Inpu tPins "V12 3S0P3"
  11155         Stag eType "PxD ataSet"
  11156         Allo wColumnMap ping "0"
  11157         Next RecordID " 0"
  11158      END DSR ECORD
  11159      BEGIN D SRECORD
  11160         Iden tifier "V1 23S0P3"
  11161         OLET ype "CCust omInput"
  11162         Read only "0"
  11163         Name  "ClmLnDia gn_out"
  11164         Part ner "V124S 0|V124S0P3 "
  11165         Link Type "1"
  11166         Cond itionNotMe t "fail"
  11167         Look upFail "fa il"
  11168         Prop erties "CC ustomPrope rty"
  11169         BEGI N DSSUBREC ORD
  11170            N ame "datas et"
  11171            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Cl aimLineDia gnosis.ds"
  11172         END  DSSUBRECOR D
  11173         BEGI N DSSUBREC ORD
  11174            N ame "datas etmode"
  11175            V alue ">| [ ds"
  11176         END  DSSUBRECOR D
  11177         Meta Bag "CMeta Property"
  11178         BEGI N DSSUBREC ORD
  11179            O wner "APT"
  11180            N ame "RTCol umnProp"
  11181            V alue "0"
  11182         END  DSSUBRECOR D
  11183         BEGI N DSSUBREC ORD
  11184            O wner "APT"
  11185            N ame "Part/ Col"
  11186            V alue "same "
  11187         END  DSSUBRECOR D
  11188         BEGI N DSSUBREC ORD
  11189            O wner "APT"
  11190            N ame "SortA dv"
  11191            V alue "-non Stable"
  11192         END  DSSUBRECOR D
  11193         BEGI N DSSUBREC ORD
  11194            O wner "APT"
  11195            N ame "SeqSo rt"
  11196            V alue "0"
  11197         END  DSSUBRECOR D
  11198         Tran sactionSiz e "0"
  11199         TXNB ehaviour " 0"
  11200         Enab leTxGroup  "0"
  11201         Link Minimised  "0"
  11202      END DSR ECORD
  11203      BEGIN D SRECORD
  11204         Iden tifier "V1 24S0"
  11205         OLET ype "CTran sformerSta ge"
  11206         Read only "0"
  11207         Name  "Xfrm_Cla imLnDiagn"
  11208         Next ID "6"
  11209         Inpu tPins "V12 4S0P5"
  11210         Outp utPins "V1 24S0P3"
  11211         Meta Bag "CMeta Property"
  11212         BEGI N DSSUBREC ORD
  11213            O wner "APT"
  11214            N ame "TrxGe nCode"
  11215            V alue =+=+= +=
  11216   //
  11217   // Generat ed file to  implement  the V124S 0_EDI837P_ CLAIM_LINE _DIAGNOSIS _prep_Xfrm _ClaimLnDi agn transf orm operat or.
  11218   //
  11219  
  11220   // define  our input/ output lin k names
  11221   inputname  0 LkpKeys;
  11222   outputname  0 ClmLnDi agn_out;
  11223  
  11224   initialize  {
  11225    // define  our contr ol variabl es
  11226    int8 RowR ejected0;
  11227    int8 Null SetVar0;
  11228  
  11229   }
  11230  
  11231   mainloop {
  11232  
  11233    // declar e our inte rmediate v ariables f or this se ction (2)
  11234    int32 Int erVar0_0;
  11235  
  11236    // initia lise the r ejected ro w variable
  11237    RowReject ed0 = 1;
  11238  
  11239    // evalua te constra int and co lumns for  link: ClmL nDiagn_out
  11240    if ((LkpK eys.claim_ detail_key  != 0))
  11241    {
  11242     if (notn ull(LkpKey s.DIAGNOSI S_key)) {
  11243      InterVa r0_0 = Lkp Keys.DIAGN OSIS_key;
  11244     } else {
  11245      InterVa r0_0 = 0;
  11246     }
  11247     if ((Int erVar0_0 >  0)) {
  11248      ClmLnDi agn_out.di agnosis_ke y = LkpKey s.DIAGNOSI S_key;
  11249     } else {
  11250      ClmLnDi agn_out.di agnosis_ke y = -1;
  11251     }
  11252     //;
  11253     writerec ord 0;
  11254     RowRejec ted0 = 0;
  11255    }
  11256   }
  11257  
  11258   finish {
  11259   }
  11260  
  11261   =+=+=+=
  11262         END  DSSUBRECOR D
  11263         BEGI N DSSUBREC ORD
  11264            O wner "APT"
  11265            N ame "TrxGe nCache"
  11266            V alue "0"
  11267         END  DSSUBRECOR D
  11268         BEGI N DSSUBREC ORD
  11269            O wner "APT"
  11270            N ame "TrxCl assName"
  11271            V alue "V124 S0_EDI837P _CLAIM_LIN E_DIAGNOSI S_prep_Xfr m_ClaimLnD iagn"
  11272         END  DSSUBRECOR D
  11273         Vali dationStat us "0"
  11274         Stag eType "CTr ansformerS tage"
  11275         Bloc kSize "0"
  11276         SKKe ySourceTyp e "file"
  11277         Stag eVarsMinim ised "0"
  11278         Loop VarsMaximi sed "0"
  11279         MaxL oopIterati ons "0"
  11280      END DSR ECORD
  11281      BEGIN D SRECORD
  11282         Iden tifier "V1 24S0P3"
  11283         OLET ype "CTrxO utput"
  11284         Read only "0"
  11285         Name  "ClmLnDia gn_out"
  11286         Part ner "V123S 0|V123S0P3 "
  11287         Cons traint "Lk pKeys.clai m_detail_k ey <> 0"
  11288         Reje ct "0"
  11289         Erro rPin "0"
  11290         RowL imit "0"
  11291         Pars edConstrai nt "LkpKey s.claim_de tail_key < > 0"
  11292         Sour ceColumns  "LkpKeys.c laim_detai l_key"
  11293         Colu mns "COutp utColumn"
  11294         BEGI N DSSUBREC ORD
  11295            N ame "claim _detail_ke y"
  11296            S qlType "4"
  11297            P recision " 10"
  11298            S cale "0"
  11299            N ullable "1 "
  11300            K eyPosition  "0"
  11301            D isplaySize  "0"
  11302            D erivation  "LkpKeys.c laim_detai l_key"
  11303            G roup "0"
  11304            P arsedDeriv ation "Lkp Keys.claim _detail_ke y"
  11305            S ourceColum n "LkpKeys .claim_det ail_key"
  11306            S ortKey "0"
  11307            S ortType "0 "
  11308            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11309            F ieldPos "2 "
  11310            A llowCRLF " 0"
  11311            L evelNo "0"
  11312            O ccurs "0"
  11313            P adNulls "0 "
  11314            S ignOption  "0"
  11315            S ortingOrde r "0"
  11316            A rrayHandli ng "0"
  11317            S yncIndicat or "0"
  11318            P adChar ""
  11319            C olumnRefer ence "clai m_detail_k ey"
  11320            A PTFieldPro p "quote=n one, null_ field=''"
  11321            E xtendedPre cision "0"
  11322            T aggedSubre c "0"
  11323            O ccursVaryi ng "0"
  11324            P KeyIsCasel ess "0"
  11325            S CDPurpose  "0"
  11326         END  DSSUBRECOR D
  11327         BEGI N DSSUBREC ORD
  11328            N ame "diagn osis_key"
  11329            D escription  =+=+=+=
  11330   <none>
  11331   Searchable ? N 
  11332   =+=+=+=
  11333            S qlType "4"
  11334            P recision " 10"
  11335            S cale "0"
  11336            N ullable "1 "
  11337            K eyPosition  "0"
  11338            D isplaySize  "11"
  11339            D erivation  "If NullTo Zero(LkpKe ys.DIAGNOS IS_key) >  0 Then Lkp Keys.DIAGN OSIS_key E lse -1"
  11340            G roup "0"
  11341            P arsedDeriv ation " If  ( IF IsNo tNull((Lkp Keys.DIAGN OSIS_key))  THEN (Lkp Keys.DIAGN OSIS_key)  ELSE 0) >  0 Then Lkp Keys.DIAGN OSIS_key E lse -1"
  11342            S ourceColum n "LkpKeys .DIAGNOSIS _key"
  11343            S ortKey "0"
  11344            S ortType "0 "
  11345            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11346            A llowCRLF " 0"
  11347            L evelNo "0"
  11348            O ccurs "0"
  11349            P adNulls "0 "
  11350            S ignOption  "0"
  11351            S ortingOrde r "0"
  11352            A rrayHandli ng "0"
  11353            S yncIndicat or "0"
  11354            P adChar ""
  11355            C olumnRefer ence "diag nosis_key"
  11356            A PTFieldPro p "quote=n one, null_ field=''"
  11357            E xtendedPre cision "0"
  11358            T aggedSubre c "0"
  11359            O ccursVaryi ng "0"
  11360            P KeyIsCasel ess "0"
  11361            S CDPurpose  "0"
  11362         END  DSSUBRECOR D
  11363         BEGI N DSSUBREC ORD
  11364            N ame "point er_order"
  11365            D escription  =+=+=+=
  11366   <none>
  11367   Searchable ? N 
  11368   =+=+=+=
  11369            S qlType "4"
  11370            P recision " 10"
  11371            S cale "0"
  11372            N ullable "1 "
  11373            K eyPosition  "0"
  11374            D isplaySize  "15"
  11375            D erivation  "LkpKeys.p ointer_ord er"
  11376            G roup "0"
  11377            P arsedDeriv ation "Lkp Keys.point er_order"
  11378            S ourceColum n "LkpKeys .pointer_o rder"
  11379            S ortKey "0"
  11380            S ortType "0 "
  11381            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11382            A llowCRLF " 0"
  11383            L evelNo "0"
  11384            O ccurs "0"
  11385            P adNulls "0 "
  11386            S ignOption  "0"
  11387            S ortingOrde r "0"
  11388            A rrayHandli ng "0"
  11389            S yncIndicat or "0"
  11390            P adChar ""
  11391            C olumnRefer ence "poin ter_order"
  11392            A PTFieldPro p "quote=n one, null_ field=''"
  11393            E xtendedPre cision "0"
  11394            T aggedSubre c "0"
  11395            O ccursVaryi ng "0"
  11396            P KeyIsCasel ess "0"
  11397            S CDPurpose  "0"
  11398         END  DSSUBRECOR D
  11399         BEGI N DSSUBREC ORD
  11400            N ame "is_cu rrent"
  11401            S qlType "1"
  11402            P recision " 1"
  11403            S cale "0"
  11404            N ullable "0 "
  11405            K eyPosition  "0"
  11406            D isplaySize  "0"
  11407            D erivation  "LkpKeys.i s_current"
  11408            G roup "0"
  11409            P arsedDeriv ation "Lkp Keys.is_cu rrent"
  11410            S ourceColum n "LkpKeys .is_curren t"
  11411            S ortKey "0"
  11412            S ortType "0 "
  11413            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11414            A llowCRLF " 0"
  11415            L evelNo "0"
  11416            O ccurs "0"
  11417            P adNulls "0 "
  11418            S ignOption  "0"
  11419            S ortingOrde r "0"
  11420            A rrayHandli ng "0"
  11421            S yncIndicat or "0"
  11422            P adChar ""
  11423            C olumnRefer ence "is_c urrent"
  11424            E xtendedPre cision "0"
  11425            T aggedSubre c "0"
  11426            O ccursVaryi ng "0"
  11427            P KeyIsCasel ess "0"
  11428            S CDPurpose  "0"
  11429         END  DSSUBRECOR D
  11430         BEGI N DSSUBREC ORD
  11431            N ame "start _date"
  11432            S qlType "9"
  11433            P recision " 10"
  11434            S cale "0"
  11435            N ullable "1 "
  11436            K eyPosition  "0"
  11437            D isplaySize  "0"
  11438            D erivation  "LkpKeys.s tart_date"
  11439            G roup "0"
  11440            P arsedDeriv ation "Lkp Keys.start _date"
  11441            S ourceColum n "LkpKeys .start_dat e"
  11442            S ortKey "0"
  11443            S ortType "0 "
  11444            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11445            A llowCRLF " 0"
  11446            L evelNo "0"
  11447            O ccurs "0"
  11448            P adNulls "0 "
  11449            S ignOption  "0"
  11450            S ortingOrde r "0"
  11451            A rrayHandli ng "0"
  11452            S yncIndicat or "0"
  11453            P adChar ""
  11454            C olumnRefer ence "star t_date"
  11455            A PTFieldPro p "null_fi eld=''"
  11456            E xtendedPre cision "0"
  11457            T aggedSubre c "0"
  11458            O ccursVaryi ng "0"
  11459            P KeyIsCasel ess "0"
  11460            S CDPurpose  "0"
  11461         END  DSSUBRECOR D
  11462         BEGI N DSSUBREC ORD
  11463            N ame "end_d ate"
  11464            S qlType "9"
  11465            P recision " 10"
  11466            S cale "0"
  11467            N ullable "1 "
  11468            K eyPosition  "0"
  11469            D isplaySize  "0"
  11470            D erivation  "LkpKeys.e nd_date"
  11471            G roup "0"
  11472            P arsedDeriv ation "Lkp Keys.end_d ate"
  11473            S ourceColum n "LkpKeys .end_date"
  11474            S ortKey "0"
  11475            S ortType "0 "
  11476            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11477            A llowCRLF " 0"
  11478            L evelNo "0"
  11479            O ccurs "0"
  11480            P adNulls "0 "
  11481            S ignOption  "0"
  11482            S ortingOrde r "0"
  11483            A rrayHandli ng "0"
  11484            S yncIndicat or "0"
  11485            P adChar ""
  11486            C olumnRefer ence "end_ date"
  11487            A PTFieldPro p "null_fi eld=''"
  11488            E xtendedPre cision "0"
  11489            T aggedSubre c "0"
  11490            O ccursVaryi ng "0"
  11491            P KeyIsCasel ess "0"
  11492            S CDPurpose  "0"
  11493         END  DSSUBRECOR D
  11494         BEGI N DSSUBREC ORD
  11495            N ame "sourc e_system"
  11496            S qlType "12 "
  11497            P recision " 20"
  11498            S cale "0"
  11499            N ullable "1 "
  11500            K eyPosition  "0"
  11501            D isplaySize  "0"
  11502            D erivation  "LkpKeys.s ource_syst em"
  11503            G roup "0"
  11504            P arsedDeriv ation "Lkp Keys.sourc e_system"
  11505            S ourceColum n "LkpKeys .source_sy stem"
  11506            S ortKey "0"
  11507            S ortType "0 "
  11508            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11509            A llowCRLF " 0"
  11510            L evelNo "0"
  11511            O ccurs "0"
  11512            P adNulls "0 "
  11513            S ignOption  "0"
  11514            S ortingOrde r "0"
  11515            A rrayHandli ng "0"
  11516            S yncIndicat or "0"
  11517            P adChar ""
  11518            C olumnRefer ence "sour ce_system"
  11519            A PTFieldPro p "null_fi eld=''"
  11520            E xtendedPre cision "0"
  11521            T aggedSubre c "0"
  11522            O ccursVaryi ng "0"
  11523            P KeyIsCasel ess "0"
  11524            S CDPurpose  "0"
  11525         END  DSSUBRECOR D
  11526         BEGI N DSSUBREC ORD
  11527            N ame "sourc e_entity"
  11528            S qlType "12 "
  11529            P recision " 50"
  11530            S cale "0"
  11531            N ullable "1 "
  11532            K eyPosition  "0"
  11533            D isplaySize  "0"
  11534            D erivation  "LkpKeys.s ource_enti ty"
  11535            G roup "0"
  11536            P arsedDeriv ation "Lkp Keys.sourc e_entity"
  11537            S ourceColum n "LkpKeys .source_en tity"
  11538            S ortKey "0"
  11539            S ortType "0 "
  11540            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11541            A llowCRLF " 0"
  11542            L evelNo "0"
  11543            O ccurs "0"
  11544            P adNulls "0 "
  11545            S ignOption  "0"
  11546            S ortingOrde r "0"
  11547            A rrayHandli ng "0"
  11548            S yncIndicat or "0"
  11549            P adChar ""
  11550            C olumnRefer ence "sour ce_entity"
  11551            A PTFieldPro p "null_fi eld=''"
  11552            E xtendedPre cision "0"
  11553            T aggedSubre c "0"
  11554            O ccursVaryi ng "0"
  11555            P KeyIsCasel ess "0"
  11556            S CDPurpose  "0"
  11557         END  DSSUBRECOR D
  11558         BEGI N DSSUBREC ORD
  11559            N ame "row_i d"
  11560            S qlType "12 "
  11561            P recision " 20"
  11562            S cale "0"
  11563            N ullable "1 "
  11564            K eyPosition  "0"
  11565            D isplaySize  "0"
  11566            D erivation  "LkpKeys.r ow_id"
  11567            G roup "0"
  11568            P arsedDeriv ation "Lkp Keys.row_i d"
  11569            S ourceColum n "LkpKeys .row_id"
  11570            S ortKey "0"
  11571            S ortType "0 "
  11572            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  11573            A llowCRLF " 0"
  11574            L evelNo "0"
  11575            O ccurs "0"
  11576            P adNulls "0 "
  11577            S ignOption  "0"
  11578            S ortingOrde r "0"
  11579            A rrayHandli ng "0"
  11580            S yncIndicat or "0"
  11581            P adChar ""
  11582            C olumnRefer ence "row_ id"
  11583            A PTFieldPro p "null_fi eld=''"
  11584            E xtendedPre cision "0"
  11585            T aggedSubre c "0"
  11586            O ccursVaryi ng "0"
  11587            P KeyIsCasel ess "0"
  11588            S CDPurpose  "0"
  11589         END  DSSUBRECOR D
  11590         Meta Bag "CMeta Property"
  11591         BEGI N DSSUBREC ORD
  11592            O wner "APT"
  11593            N ame "DiskW riteInc"
  11594            V alue "1048 576"
  11595         END  DSSUBRECOR D
  11596         BEGI N DSSUBREC ORD
  11597            O wner "APT"
  11598            N ame "BufFr eeRun"
  11599            V alue "50"
  11600         END  DSSUBRECOR D
  11601         BEGI N DSSUBREC ORD
  11602            O wner "APT"
  11603            N ame "MaxMe mBufSize"
  11604            V alue "3145 728"
  11605         END  DSSUBRECOR D
  11606         BEGI N DSSUBREC ORD
  11607            O wner "APT"
  11608            N ame "Queue UpperSize"
  11609            V alue "0"
  11610         END  DSSUBRECOR D
  11611         BEGI N DSSUBREC ORD
  11612            O wner "APT"
  11613            N ame "Schem a"
  11614            V alue =+=+= +=
  11615   record
  11616   (
  11617     claim_de tail_key:n ullable in t32;
  11618     diagnosi s_key:null able int32 ;
  11619     pointer_ order:null able int32 ;
  11620     is_curre nt:string[ 1];
  11621     start_da te:nullabl e date;
  11622     end_date :nullable  date;
  11623     source_s ystem:null able strin g[max=20];
  11624     source_e ntity:null able strin g[max=50];
  11625     row_id:n ullable st ring[max=2 0];
  11626   )
  11627   =+=+=+=
  11628         END  DSSUBRECOR D
  11629         Left TextPos "1 109"
  11630         TopT extPos "21 7"
  11631         Link Minimised  "0"
  11632      END DSR ECORD
  11633      BEGIN D SRECORD
  11634         Iden tifier "V1 24S0P5"
  11635         OLET ype "CTrxI nput"
  11636         Read only "0"
  11637         Name  "LkpKeys"
  11638         Part ner "V125S 0|V125S0P5 "
  11639         Link Type "1"
  11640         Meta Bag "CMeta Property"
  11641         BEGI N DSSUBREC ORD
  11642            O wner "APT"
  11643            N ame "RTCol umnProp"
  11644            V alue "0"
  11645         END  DSSUBRECOR D
  11646         BEGI N DSSUBREC ORD
  11647            O wner "APT"
  11648            N ame "Schem a"
  11649            V alue =+=+= +=
  11650   record
  11651   (
  11652     DIAGNOSI S_key:null able int32 ;
  11653     claim_de tail_key:n ullable in t32;
  11654     diagn_gu alif:nulla ble string [max=200];
  11655     diagn_co des:nullab le string[ max=200];
  11656     version: nullable s tring[max= 15];
  11657     pointer_ order:null able int32 ;
  11658     is_curre nt:string[ 1];
  11659     start_da te:nullabl e date;
  11660     end_date :nullable  date;
  11661     source_s ystem:null able strin g[max=20];
  11662     source_e ntity:null able strin g[max=50];
  11663     row_id:n ullable st ring[max=2 0];
  11664     service_ line_numbe r:nullable  int32;
  11665   )
  11666   =+=+=+=
  11667         END  DSSUBRECOR D
  11668         Mult iRow "0"
  11669         Link Minimised  "0"
  11670      END DSR ECORD
  11671      BEGIN D SRECORD
  11672         Iden tifier "V1 25S0"
  11673         OLET ype "CCust omStage"
  11674         Read only "0"
  11675         Name  "Lkp_F_Pr ofessional _Medical_C laim_Detai ls"
  11676         Next ID "8"
  11677         Inpu tPins "V12 5S0P1|V125 S0P6|V125S 0P7"
  11678         Outp utPins "V1 25S0P5"
  11679         Stag eType "PxL ookup"
  11680         Allo wColumnMap ping "0"
  11681         Prop erties "CC ustomPrope rty"
  11682         BEGI N DSSUBREC ORD
  11683            N ame "compi leopt"
  11684         END  DSSUBRECOR D
  11685         BEGI N DSSUBREC ORD
  11686            N ame "linko pt"
  11687         END  DSSUBRECOR D
  11688         Meta Bag "CMeta Property"
  11689         BEGI N DSSUBREC ORD
  11690            O wner "APT"
  11691            N ame "Looku pOperator"
  11692            V alue "look up"
  11693         END  DSSUBRECOR D
  11694         Next RecordID " 0"
  11695      END DSR ECORD
  11696      BEGIN D SRECORD
  11697         Iden tifier "V1 25S0P1"
  11698         OLET ype "CCust omInput"
  11699         Read only "0"
  11700         Name  "FromFact Table"
  11701         Part ner "V125S 3|V125S3P1 "
  11702         Link Type "2"
  11703         Cond itionNotMe t "continu e"
  11704         Look upFail "co ntinue"
  11705         Prop erties "CC ustomPrope rty"
  11706         BEGI N DSSUBREC ORD
  11707            N ame "allow _dups"
  11708            V alue " "
  11709         END  DSSUBRECOR D
  11710         BEGI N DSSUBREC ORD
  11711            N ame "save"
  11712         END  DSSUBRECOR D
  11713         BEGI N DSSUBREC ORD
  11714            N ame "diskp ool"
  11715         END  DSSUBRECOR D
  11716         Meta Bag "CMeta Property"
  11717         BEGI N DSSUBREC ORD
  11718            O wner "APT"
  11719            N ame "RTCol umnProp"
  11720            V alue "0"
  11721         END  DSSUBRECOR D
  11722         BEGI N DSSUBREC ORD
  11723            O wner "APT"
  11724            N ame "Part/ Col"
  11725            V alue "enti re"
  11726         END  DSSUBRECOR D
  11727         BEGI N DSSUBREC ORD
  11728            O wner "APT"
  11729            N ame "SortA dv"
  11730            V alue "-non Stable"
  11731         END  DSSUBRECOR D
  11732         BEGI N DSSUBREC ORD
  11733            O wner "APT"
  11734            N ame "SeqSo rt"
  11735            V alue "0"
  11736         END  DSSUBRECOR D
  11737         Tran sactionSiz e "0"
  11738         TXNB ehaviour " 0"
  11739         Enab leTxGroup  "0"
  11740         Link Minimised  "0"
  11741      END DSR ECORD
  11742      BEGIN D SRECORD
  11743         Iden tifier "V1 25S0P5"
  11744         OLET ype "CCust omOutput"
  11745         Read only "0"
  11746         Name  "LkpKeys"
  11747         Part ner "V124S 0|V124S0P5 "
  11748         Colu mns "COutp utColumn"
  11749         BEGI N DSSUBREC ORD
  11750            N ame "DIAGN OSIS_key"
  11751            D escription  =+=+=+=
  11752   <none>
  11753   Searchable ? N 
  11754   =+=+=+=
  11755            S qlType "4"
  11756            P recision " 10"
  11757            S cale "0"
  11758            N ullable "1 "
  11759            K eyPosition  "0"
  11760            D isplaySize  "11"
  11761            D erivation  "DimDiagno sisCode.DI AGNOSIS_ke y"
  11762            G roup "0"
  11763            P arsedDeriv ation "Dim DiagnosisC ode.DIAGNO SIS_key"
  11764            S ourceColum n "DimDiag nosisCode. DIAGNOSIS_ key"
  11765            S ortKey "0"
  11766            S ortType "0 "
  11767            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  11768            A llowCRLF " 0"
  11769            L evelNo "0"
  11770            O ccurs "0"
  11771            P adNulls "0 "
  11772            S ignOption  "0"
  11773            S ortingOrde r "0"
  11774            A rrayHandli ng "0"
  11775            S yncIndicat or "0"
  11776            P adChar ""
  11777            C olumnRefer ence "paye r_key"
  11778            A PTFieldPro p "quote=n one"
  11779            E xtendedPre cision "0"
  11780            T aggedSubre c "0"
  11781            O ccursVaryi ng "0"
  11782            P KeyIsCasel ess "0"
  11783            S CDPurpose  "0"
  11784         END  DSSUBRECOR D
  11785         BEGI N DSSUBREC ORD
  11786            N ame "claim _detail_ke y"
  11787            S qlType "4"
  11788            P recision " 10"
  11789            S cale "0"
  11790            N ullable "1 "
  11791            K eyPosition  "0"
  11792            D isplaySize  "0"
  11793            D erivation  "FromFactT able.claim _detail_ke y"
  11794            G roup "0"
  11795            P arsedDeriv ation "Fro mFactTable .claim_det ail_key"
  11796            S ourceColum n "FromFac tTable.cla im_detail_ key"
  11797            S ortKey "0"
  11798            S ortType "0 "
  11799            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _PAYER"
  11800            F ieldPos "2 "
  11801            A llowCRLF " 0"
  11802            L evelNo "0"
  11803            O ccurs "0"
  11804            P adNulls "0 "
  11805            S ignOption  "0"
  11806            S ortingOrde r "0"
  11807            A rrayHandli ng "0"
  11808            S yncIndicat or "0"
  11809            P adChar ""
  11810            C olumnRefer ence "clai m_payer_ke y"
  11811            E xtendedPre cision "0"
  11812            T aggedSubre c "0"
  11813            O ccursVaryi ng "0"
  11814            P KeyIsCasel ess "0"
  11815            S CDPurpose  "0"
  11816         END  DSSUBRECOR D
  11817         BEGI N DSSUBREC ORD
  11818            N ame "diagn _gualif"
  11819            S qlType "12 "
  11820            P recision " 200"
  11821            S cale "0"
  11822            N ullable "1 "
  11823            K eyPosition  "0"
  11824            D isplaySize  "0"
  11825            D erivation  "GenRecsBy Code.diagn _gualif"
  11826            G roup "0"
  11827            P arsedDeriv ation "Gen RecsByCode .diagn_gua lif"
  11828            S ourceColum n "GenRecs ByCode.dia gn_gualif"
  11829            S ortKey "0"
  11830            S ortType "0 "
  11831            A llowCRLF " 0"
  11832            L evelNo "0"
  11833            O ccurs "0"
  11834            P adNulls "0 "
  11835            S ignOption  "0"
  11836            S ortingOrde r "0"
  11837            A rrayHandli ng "0"
  11838            S yncIndicat or "0"
  11839            P adChar ""
  11840            E xtendedPre cision "0"
  11841            T aggedSubre c "0"
  11842            O ccursVaryi ng "0"
  11843            P KeyIsCasel ess "0"
  11844            S CDPurpose  "0"
  11845         END  DSSUBRECOR D
  11846         BEGI N DSSUBREC ORD
  11847            N ame "diagn _codes"
  11848            S qlType "12 "
  11849            P recision " 200"
  11850            S cale "0"
  11851            N ullable "1 "
  11852            K eyPosition  "0"
  11853            D isplaySize  "0"
  11854            D erivation  "GenRecsBy Code.diagn _codes"
  11855            G roup "0"
  11856            P arsedDeriv ation "Gen RecsByCode .diagn_cod es"
  11857            S ourceColum n "GenRecs ByCode.dia gn_codes"
  11858            S ortKey "0"
  11859            S ortType "0 "
  11860            A llowCRLF " 0"
  11861            L evelNo "0"
  11862            O ccurs "0"
  11863            P adNulls "0 "
  11864            S ignOption  "0"
  11865            S ortingOrde r "0"
  11866            A rrayHandli ng "0"
  11867            S yncIndicat or "0"
  11868            P adChar ""
  11869            E xtendedPre cision "0"
  11870            T aggedSubre c "0"
  11871            O ccursVaryi ng "0"
  11872            P KeyIsCasel ess "0"
  11873            S CDPurpose  "0"
  11874         END  DSSUBRECOR D
  11875         BEGI N DSSUBREC ORD
  11876            N ame "versi on"
  11877            S qlType "12 "
  11878            P recision " 15"
  11879            S cale "0"
  11880            N ullable "1 "
  11881            K eyPosition  "0"
  11882            D isplaySize  "0"
  11883            D erivation  "GenRecsBy Code.versi on"
  11884            G roup "0"
  11885            P arsedDeriv ation "Gen RecsByCode .version"
  11886            S ourceColum n "GenRecs ByCode.ver sion"
  11887            S ortKey "0"
  11888            S ortType "0 "
  11889            A llowCRLF " 0"
  11890            L evelNo "0"
  11891            O ccurs "0"
  11892            P adNulls "0 "
  11893            S ignOption  "0"
  11894            S ortingOrde r "0"
  11895            A rrayHandli ng "0"
  11896            S yncIndicat or "0"
  11897            P adChar ""
  11898            E xtendedPre cision "0"
  11899            T aggedSubre c "0"
  11900            O ccursVaryi ng "0"
  11901            P KeyIsCasel ess "0"
  11902            S CDPurpose  "0"
  11903         END  DSSUBRECOR D
  11904         BEGI N DSSUBREC ORD
  11905            N ame "point er_order"
  11906            D escription  =+=+=+=
  11907   <none>
  11908   Searchable ? N 
  11909   =+=+=+=
  11910            S qlType "4"
  11911            P recision " 10"
  11912            S cale "0"
  11913            N ullable "1 "
  11914            K eyPosition  "0"
  11915            D isplaySize  "15"
  11916            D erivation  "GenRecsBy Code.point er_order"
  11917            G roup "0"
  11918            P arsedDeriv ation "Gen RecsByCode .pointer_o rder"
  11919            S ourceColum n "GenRecs ByCode.poi nter_order "
  11920            S ortKey "0"
  11921            S ortType "0 "
  11922            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  11923            A llowCRLF " 0"
  11924            L evelNo "0"
  11925            O ccurs "0"
  11926            P adNulls "0 "
  11927            S ignOption  "0"
  11928            S ortingOrde r "0"
  11929            A rrayHandli ng "0"
  11930            S yncIndicat or "0"
  11931            P adChar ""
  11932            C olumnRefer ence "oral _cavity_de signation_ code"
  11933            A PTFieldPro p "null_fi eld=''"
  11934            E xtendedPre cision "0"
  11935            T aggedSubre c "0"
  11936            O ccursVaryi ng "0"
  11937            P KeyIsCasel ess "0"
  11938            S CDPurpose  "0"
  11939         END  DSSUBRECOR D
  11940         BEGI N DSSUBREC ORD
  11941            N ame "is_cu rrent"
  11942            S qlType "1"
  11943            P recision " 1"
  11944            S cale "0"
  11945            N ullable "0 "
  11946            K eyPosition  "0"
  11947            D isplaySize  "0"
  11948            D erivation  "GenRecsBy Code.is_cu rrent"
  11949            G roup "0"
  11950            P arsedDeriv ation "Gen RecsByCode .is_curren t"
  11951            S ourceColum n "GenRecs ByCode.is_ current"
  11952            S ortKey "0"
  11953            S ortType "0 "
  11954            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  11955            A llowCRLF " 0"
  11956            L evelNo "0"
  11957            N ativeType  "pit_boole an"
  11958            O ccurs "0"
  11959            P adNulls "0 "
  11960            S ignOption  "0"
  11961            S ortingOrde r "0"
  11962            A rrayHandli ng "0"
  11963            S yncIndicat or "0"
  11964            P adChar ""
  11965            C olumnRefer ence "is_c urrent"
  11966            E xtendedPre cision "0"
  11967            T aggedSubre c "0"
  11968            O ccursVaryi ng "0"
  11969            P KeyIsCasel ess "0"
  11970            S CDPurpose  "0"
  11971         END  DSSUBRECOR D
  11972         BEGI N DSSUBREC ORD
  11973            N ame "start _date"
  11974            S qlType "9"
  11975            P recision " 10"
  11976            S cale "0"
  11977            N ullable "1 "
  11978            K eyPosition  "0"
  11979            D isplaySize  "0"
  11980            D erivation  "GenRecsBy Code.start _date"
  11981            G roup "0"
  11982            P arsedDeriv ation "Gen RecsByCode .start_dat e"
  11983            S ourceColum n "GenRecs ByCode.sta rt_date"
  11984            S ortKey "0"
  11985            S ortType "0 "
  11986            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  11987            A llowCRLF " 0"
  11988            L evelNo "0"
  11989            N ativeType  "pit_date"
  11990            O ccurs "0"
  11991            P adNulls "0 "
  11992            S ignOption  "0"
  11993            S ortingOrde r "0"
  11994            A rrayHandli ng "0"
  11995            S yncIndicat or "0"
  11996            P adChar ""
  11997            C olumnRefer ence "star t_date"
  11998            E xtendedPre cision "0"
  11999            T aggedSubre c "0"
  12000            O ccursVaryi ng "0"
  12001            P KeyIsCasel ess "0"
  12002            S CDPurpose  "0"
  12003         END  DSSUBRECOR D
  12004         BEGI N DSSUBREC ORD
  12005            N ame "end_d ate"
  12006            S qlType "9"
  12007            P recision " 10"
  12008            S cale "0"
  12009            N ullable "1 "
  12010            K eyPosition  "0"
  12011            D isplaySize  "0"
  12012            D erivation  "GenRecsBy Code.end_d ate"
  12013            G roup "0"
  12014            P arsedDeriv ation "Gen RecsByCode .end_date"
  12015            S ourceColum n "GenRecs ByCode.end _date"
  12016            S ortKey "0"
  12017            S ortType "0 "
  12018            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  12019            A llowCRLF " 0"
  12020            L evelNo "0"
  12021            N ativeType  "pit_end_d ate"
  12022            O ccurs "0"
  12023            P adNulls "0 "
  12024            S ignOption  "0"
  12025            S ortingOrde r "0"
  12026            A rrayHandli ng "0"
  12027            S yncIndicat or "0"
  12028            P adChar ""
  12029            C olumnRefer ence "end_ date"
  12030            E xtendedPre cision "0"
  12031            T aggedSubre c "0"
  12032            O ccursVaryi ng "0"
  12033            P KeyIsCasel ess "0"
  12034            S CDPurpose  "0"
  12035         END  DSSUBRECOR D
  12036         BEGI N DSSUBREC ORD
  12037            N ame "sourc e_system"
  12038            S qlType "12 "
  12039            P recision " 20"
  12040            S cale "0"
  12041            N ullable "1 "
  12042            K eyPosition  "0"
  12043            D isplaySize  "0"
  12044            D erivation  "GenRecsBy Code.sourc e_system"
  12045            G roup "0"
  12046            P arsedDeriv ation "Gen RecsByCode .source_sy stem"
  12047            S ourceColum n "GenRecs ByCode.sou rce_system "
  12048            S ortKey "0"
  12049            S ortType "0 "
  12050            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  12051            A llowCRLF " 0"
  12052            L evelNo "0"
  12053            N ativeType  "varchar"
  12054            O ccurs "0"
  12055            P adNulls "0 "
  12056            S ignOption  "0"
  12057            S ortingOrde r "0"
  12058            A rrayHandli ng "0"
  12059            S yncIndicat or "0"
  12060            P adChar ""
  12061            C olumnRefer ence "sour ce_system"
  12062            E xtendedPre cision "0"
  12063            T aggedSubre c "0"
  12064            O ccursVaryi ng "0"
  12065            P KeyIsCasel ess "0"
  12066            S CDPurpose  "0"
  12067         END  DSSUBRECOR D
  12068         BEGI N DSSUBREC ORD
  12069            N ame "sourc e_entity"
  12070            S qlType "12 "
  12071            P recision " 50"
  12072            S cale "0"
  12073            N ullable "1 "
  12074            K eyPosition  "0"
  12075            D isplaySize  "0"
  12076            D erivation  "GenRecsBy Code.sourc e_entity"
  12077            G roup "0"
  12078            P arsedDeriv ation "Gen RecsByCode .source_en tity"
  12079            S ourceColum n "GenRecs ByCode.sou rce_entity "
  12080            S ortKey "0"
  12081            S ortType "0 "
  12082            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  12083            A llowCRLF " 0"
  12084            L evelNo "0"
  12085            O ccurs "0"
  12086            P adNulls "0 "
  12087            S ignOption  "0"
  12088            S ortingOrde r "0"
  12089            A rrayHandli ng "0"
  12090            S yncIndicat or "0"
  12091            P adChar ""
  12092            C olumnRefer ence "sour ce_entity"
  12093            E xtendedPre cision "0"
  12094            T aggedSubre c "0"
  12095            O ccursVaryi ng "0"
  12096            P KeyIsCasel ess "0"
  12097            S CDPurpose  "0"
  12098         END  DSSUBRECOR D
  12099         BEGI N DSSUBREC ORD
  12100            N ame "row_i d"
  12101            S qlType "12 "
  12102            P recision " 20"
  12103            S cale "0"
  12104            N ullable "1 "
  12105            K eyPosition  "0"
  12106            D isplaySize  "0"
  12107            D erivation  "GenRecsBy Code.row_i d"
  12108            G roup "0"
  12109            P arsedDeriv ation "Gen RecsByCode .row_id"
  12110            S ourceColum n "GenRecs ByCode.row _id"
  12111            S ortKey "0"
  12112            S ortType "0 "
  12113            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  12114            A llowCRLF " 0"
  12115            L evelNo "0"
  12116            N ativeType  "varchar"
  12117            O ccurs "0"
  12118            P adNulls "0 "
  12119            S ignOption  "0"
  12120            S ortingOrde r "0"
  12121            A rrayHandli ng "0"
  12122            S yncIndicat or "0"
  12123            P adChar ""
  12124            C olumnRefer ence "row_ id"
  12125            E xtendedPre cision "0"
  12126            T aggedSubre c "0"
  12127            O ccursVaryi ng "0"
  12128            P KeyIsCasel ess "0"
  12129            S CDPurpose  "0"
  12130         END  DSSUBRECOR D
  12131         BEGI N DSSUBREC ORD
  12132            N ame "servi ce_line_nu mber"
  12133            S qlType "4"
  12134            P recision " 10"
  12135            S cale "0"
  12136            N ullable "1 "
  12137            K eyPosition  "0"
  12138            D isplaySize  "0"
  12139            D erivation  "GenRecsBy Code.servi ce_line_nu mber"
  12140            G roup "0"
  12141            P arsedDeriv ation "Gen RecsByCode .service_l ine_number "
  12142            S ourceColum n "GenRecs ByCode.ser vice_line_ number"
  12143            S ortKey "0"
  12144            S ortType "0 "
  12145            A llowCRLF " 0"
  12146            L evelNo "0"
  12147            O ccurs "0"
  12148            P adNulls "0 "
  12149            S ignOption  "0"
  12150            S ortingOrde r "0"
  12151            A rrayHandli ng "0"
  12152            S yncIndicat or "0"
  12153            P adChar ""
  12154            E xtendedPre cision "0"
  12155            T aggedSubre c "0"
  12156            O ccursVaryi ng "0"
  12157            P KeyIsCasel ess "0"
  12158            S CDPurpose  "0"
  12159         END  DSSUBRECOR D
  12160         Meta Bag "CMeta Property"
  12161         BEGI N DSSUBREC ORD
  12162            O wner "APT"
  12163            N ame "DiskW riteInc"
  12164            V alue "1048 576"
  12165         END  DSSUBRECOR D
  12166         BEGI N DSSUBREC ORD
  12167            O wner "APT"
  12168            N ame "BufFr eeRun"
  12169            V alue "50"
  12170         END  DSSUBRECOR D
  12171         BEGI N DSSUBREC ORD
  12172            O wner "APT"
  12173            N ame "MaxMe mBufSize"
  12174            V alue "3145 728"
  12175         END  DSSUBRECOR D
  12176         BEGI N DSSUBREC ORD
  12177            O wner "APT"
  12178            N ame "Queue UpperSize"
  12179            V alue "0"
  12180         END  DSSUBRECOR D
  12181         Left TextPos "1 022"
  12182         TopT extPos "28 0"
  12183         Link Minimised  "0"
  12184      END DSR ECORD
  12185      BEGIN D SRECORD
  12186         Iden tifier "V1 25S0P6"
  12187         OLET ype "CCust omInput"
  12188         Read only "0"
  12189         Name  "DimDiagn osisCode"
  12190         Part ner "V129S 0|V129S0P1 "
  12191         Link Type "2"
  12192         Cond itionNotMe t "continu e"
  12193         Look upFail "co ntinue"
  12194         Prop erties "CC ustomPrope rty"
  12195         BEGI N DSSUBREC ORD
  12196            N ame "allow _dups"
  12197            V alue " "
  12198         END  DSSUBRECOR D
  12199         BEGI N DSSUBREC ORD
  12200            N ame "save"
  12201         END  DSSUBRECOR D
  12202         BEGI N DSSUBREC ORD
  12203            N ame "diskp ool"
  12204         END  DSSUBRECOR D
  12205         Meta Bag "CMeta Property"
  12206         BEGI N DSSUBREC ORD
  12207            O wner "APT"
  12208            N ame "RTCol umnProp"
  12209            V alue "0"
  12210         END  DSSUBRECOR D
  12211         BEGI N DSSUBREC ORD
  12212            O wner "APT"
  12213            N ame "Part/ Col"
  12214            V alue "enti re"
  12215         END  DSSUBRECOR D
  12216         BEGI N DSSUBREC ORD
  12217            O wner "APT"
  12218            N ame "SortA dv"
  12219            V alue "-non Stable"
  12220         END  DSSUBRECOR D
  12221         BEGI N DSSUBREC ORD
  12222            O wner "APT"
  12223            N ame "SeqSo rt"
  12224            V alue "0"
  12225         END  DSSUBRECOR D
  12226         BEGI N DSSUBREC ORD
  12227            O wner "APT"
  12228            N ame "Looku pOptions"
  12229            V alue =+=+= +=
  12230   -table
  12231   -key payer _name_in
  12232  
  12233   =+=+=+=
  12234         END  DSSUBRECOR D
  12235         BEGI N DSSUBREC ORD
  12236            O wner "APT"
  12237            N ame "Schem a"
  12238            V alue =+=+= +=
  12239   record
  12240   (
  12241     payer_ke y:int32;
  12242     payer_na me_in:null able strin g[max=50];
  12243   )
  12244   =+=+=+=
  12245         END  DSSUBRECOR D
  12246         Tran sactionSiz e "0"
  12247         TXNB ehaviour " 0"
  12248         Enab leTxGroup  "0"
  12249         Link Minimised  "0"
  12250      END DSR ECORD
  12251      BEGIN D SRECORD
  12252         Iden tifier "V1 25S0P7"
  12253         OLET ype "CCust omInput"
  12254         Read only "0"
  12255         Name  "GenRecsB yCode"
  12256         Part ner "V0S18 9|V0S189P2 "
  12257         Link Type "1"
  12258         Cond itionNotMe t "fail"
  12259         Look upFail "fa il"
  12260         Prop erties "CC ustomPrope rty"
  12261         BEGI N DSSUBREC ORD
  12262            N ame "allow _dups"
  12263            V alue " "
  12264         END  DSSUBRECOR D
  12265         Meta Bag "CMeta Property"
  12266         BEGI N DSSUBREC ORD
  12267            O wner "APT"
  12268            N ame "RTCol umnProp"
  12269            V alue "0"
  12270         END  DSSUBRECOR D
  12271         Tran sactionSiz e "0"
  12272         TXNB ehaviour " 0"
  12273         Enab leTxGroup  "0"
  12274         Link Minimised  "0"
  12275      END DSR ECORD
  12276      BEGIN D SRECORD
  12277         Iden tifier "V1 25S3"
  12278         OLET ype "CCust omStage"
  12279         Read only "0"
  12280         Name  "F_PROFES SIONAL_MED ICAL_CLAIM _DETAILS"
  12281         Next ID "2"
  12282         Outp utPins "V1 25S3P1"
  12283         Stag eType "ODB CConnector PX"
  12284         Allo wColumnMap ping "0"
  12285         Prop erties "CC ustomPrope rty"
  12286         BEGI N DSSUBREC ORD
  12287            N ame "Varia ntName"
  12288            V alue "3.5"
  12289         END  DSSUBRECOR D
  12290         BEGI N DSSUBREC ORD
  12291            N ame "Varia ntLibrary"
  12292            V alue "ccod bc"
  12293         END  DSSUBRECOR D
  12294         BEGI N DSSUBREC ORD
  12295            N ame "Varia ntVersion"
  12296            V alue "1.0"
  12297         END  DSSUBRECOR D
  12298         BEGI N DSSUBREC ORD
  12299            N ame "Suppo rtedVarian ts"
  12300            V alue "3.5"
  12301         END  DSSUBRECOR D
  12302         BEGI N DSSUBREC ORD
  12303            N ame "Suppo rtedVarian tsLibrarie s"
  12304            V alue "ccod bc"
  12305         END  DSSUBRECOR D
  12306         BEGI N DSSUBREC ORD
  12307            N ame "Suppo rtedVarian tsVersions "
  12308            V alue "1.0"
  12309         END  DSSUBRECOR D
  12310         BEGI N DSSUBREC ORD
  12311            N ame "Orien tation"
  12312            V alue "link "
  12313         END  DSSUBRECOR D
  12314         BEGI N DSSUBREC ORD
  12315            N ame "Rejec tFromLink"
  12316            V alue "-1"
  12317         END  DSSUBRECOR D
  12318         BEGI N DSSUBREC ORD
  12319            N ame "Rejec tThreshold "
  12320            V alue "0"
  12321         END  DSSUBRECOR D
  12322         BEGI N DSSUBREC ORD
  12323            N ame "Rejec tNumber"
  12324            V alue "0"
  12325         END  DSSUBRECOR D
  12326         BEGI N DSSUBREC ORD
  12327            N ame "Rejec tUsesPerce ntage"
  12328            V alue "fals e"
  12329         END  DSSUBRECOR D
  12330         BEGI N DSSUBREC ORD
  12331            N ame "Conne ctorName"
  12332            V alue "ODBC Connector"
  12333         END  DSSUBRECOR D
  12334         BEGI N DSSUBREC ORD
  12335            N ame "Engin e"
  12336            V alue "EE"
  12337         END  DSSUBRECOR D
  12338         BEGI N DSSUBREC ORD
  12339            N ame "Conte xt"
  12340            V alue "sour ce"
  12341         END  DSSUBRECOR D
  12342         BEGI N DSSUBREC ORD
  12343            N ame "Conne ctionStrin g"
  12344            V alue "/Con nection/Da taSource"
  12345         END  DSSUBRECOR D
  12346         BEGI N DSSUBREC ORD
  12347            N ame "Usern ame"
  12348            V alue "/Con nection/Us ername"
  12349         END  DSSUBRECOR D
  12350         BEGI N DSSUBREC ORD
  12351            N ame "Passw ord"
  12352            V alue "/Con nection/Pa ssword"
  12353         END  DSSUBRECOR D
  12354         BEGI N DSSUBREC ORD
  12355            N ame "XMLPr operties"
  12356            V alue =+=+= +=
  12357   <?xml vers ion='1.0'  encoding=' UTF-16'?>< Properties  version=' 1.1'><Comm on><Contex t type='in t'>1</Cont ext><Varia nt type='s tring'>3.5 </Variant> <Descripto rVersion t ype='strin g'>1.0</De scriptorVe rsion><Par titionType  type='int '>-1</Part itionType> <RCP type= 'int'>0</R CP></Commo n><Connect ion><DataS ource modi fied='1' t ype='strin g'><![CDAT A[#$SQL_DB _DSN#]]></ DataSource ><Username  modified= '1' type=' string'><! [CDATA[#$S QL_DB_UID# ]]></Usern ame><Passw ord modifi ed='1' typ e='string' ><![CDATA[ #$SQL_DB_P WD#]]></Pa ssword></C onnection> <Usage mod ified='1'> <GenerateS QL modifie d='1' type ='bool'><! [CDATA[0]] ></Generat eSQL><Enab leQuotedID s modified ='1' type= 'bool'><![ CDATA[1]]> </EnableQu otedIDs><S QL><Select Statement  modified=' 1' type='s tring'><![ CDATA[Sele ct FD.clai m_detail_k ey claim_d etail_key,  VC.claim_ id claim_i d,  
  12358   FD.service _line_numb er service _line_numb er, VC.etl _batch_id  etl_batch_ id
  12359   from #$SQL _DB#.dbo.F _PROFESSIO NAL_MEDICA L_CLAIM_DE TAILS FD,  #$SQL_DB#. dbo.DIM_VA _CLAIM VC
  12360   where FD.c laim_key =  VC.claim_ key
  12361   and FD.sou rce_system  = VC.sour ce_system
  12362   and FD.sou rce_entity  = VC.sour ce_entity
  12363   and VC.is_ current='Y '  and VC. etl_batch_ id = '#Bat chID#']]>< ReadStatem entFromFil e type='bo ol'><![CDA TA[0]]></R eadStateme ntFromFile ><Tables c ollapsed=' 1'><Table  type='stri ng'></Tabl e><Table t ype='strin g'><![CDAT A[#$SQL_DB #]]></Tabl e></Tables ><Paramete rs collaps ed='1'></P arameters> <Columns c ollapsed=' 1'><Column  type='str ing'><![CD ATA[etl_ba tch_id,etl _batch_id, VC]]></Col umn><Colum n type='st ring'><![C DATA[servi ce_line_nu mber,servi ce_line_nu mber,FD]]> </Column>< Column typ e='string' ><![CDATA[ claim_id,c laim_id,VC ]]></Colum n><Column  type='stri ng'><![CDA TA[claim_d etail_key, claim_deta il_key,FD] ]></Column ></Columns ><WhereCla use type=' string'><! [CDATA[(FD .claim_key  = VC.clai m_key AND  FD.source_ system = V C.source_s ystem AND  FD.source_ entity = V C.source_e ntity AND  VC.is_curr ent = 'Y'  AND VC.etl _batch_id  = '#BatchI D#')]]></W hereClause ></SelectS tatement>< EnablePart itioning c ollapsed=' 1' type='b ool'><![CD ATA[0]]></ EnablePart itioning>< /SQL><Tran saction><R ecordCount  type='int '><![CDATA [2000]]></ RecordCoun t><EndOfWa ve collaps ed='1' typ e='int'><! [CDATA[0]] ></EndOfWa ve></Trans action><Se ssion><Iso lationLeve l type='in t'><![CDAT A[1]]></Is olationLev el><Autoco mmitMode t ype='int'> <![CDATA[0 ]]></Autoc ommitMode> <ArraySize  type='int '><![CDATA [2000]]></ ArraySize> <SchemaRec onciliatio n><FailOnS izeMismatc h type='bo ol'><![CDA TA[1]]></F ailOnSizeM ismatch><F ailOnTypeM ismatch ty pe='bool'> <![CDATA[1 ]]></FailO nTypeMisma tch><FailO nCodePageM ismatch ty pe='bool'> <![CDATA[0 ]]></FailO nCodePageM ismatch></ SchemaReco nciliation ><PassLobL ocator col lapsed='1'  type='boo l'><![CDAT A[0]]></Pa ssLobLocat or><CodePa ge collaps ed='1' typ e='int'><! [CDATA[0]] ></CodePag e></Sessio n><BeforeA fter colla psed='1' t ype='bool' ><![CDATA[ 0]]></Befo reAfter></ Usage></Pr operties >
  12364   =+=+=+=
  12365         END  DSSUBRECOR D
  12366         Next RecordID " 0"
  12367      END DSR ECORD
  12368      BEGIN D SRECORD
  12369         Iden tifier "V1 25S3P1"
  12370         OLET ype "CCust omOutput"
  12371         Read only "0"
  12372         Name  "FromFact Table"
  12373         Part ner "V125S 0|V125S0P1 "
  12374         Prop erties "CC ustomPrope rty"
  12375         BEGI N DSSUBREC ORD
  12376            N ame "looku p\\type"
  12377         END  DSSUBRECOR D
  12378         BEGI N DSSUBREC ORD
  12379            N ame "Varia ntName"
  12380            V alue "3.5"
  12381         END  DSSUBRECOR D
  12382         BEGI N DSSUBREC ORD
  12383            N ame "Varia ntLibrary"
  12384            V alue "ccod bc"
  12385         END  DSSUBRECOR D
  12386         BEGI N DSSUBREC ORD
  12387            N ame "Varia ntVersion"
  12388            V alue "1.0"
  12389         END  DSSUBRECOR D
  12390         BEGI N DSSUBREC ORD
  12391            N ame "Rejec tFromLink"
  12392            V alue "-1"
  12393         END  DSSUBRECOR D
  12394         BEGI N DSSUBREC ORD
  12395            N ame "Rejec tThreshold "
  12396            V alue "0"
  12397         END  DSSUBRECOR D
  12398         BEGI N DSSUBREC ORD
  12399            N ame "Rejec tNumber"
  12400            V alue "0"
  12401         END  DSSUBRECOR D
  12402         BEGI N DSSUBREC ORD
  12403            N ame "Rejec tUsesPerce ntage"
  12404            V alue "fals e"
  12405         END  DSSUBRECOR D
  12406         BEGI N DSSUBREC ORD
  12407            N ame "Conne ctorName"
  12408            V alue "ODBC Connector"
  12409         END  DSSUBRECOR D
  12410         Colu mns "COutp utColumn"
  12411         BEGI N DSSUBREC ORD
  12412            N ame "claim _detail_ke y"
  12413            S qlType "4"
  12414            P recision " 10"
  12415            S cale "0"
  12416            N ullable "0 "
  12417            K eyPosition  "0"
  12418            D isplaySize  "0"
  12419            G roup "0"
  12420            S ortKey "0"
  12421            S ortType "0 "
  12422            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.CLAIM _PAYER"
  12423            F ieldPos "2 "
  12424            A llowCRLF " 0"
  12425            L evelNo "0"
  12426            N ativeType  "pit_key"
  12427            O ccurs "0"
  12428            P adNulls "0 "
  12429            S ignOption  "0"
  12430            S ortingOrde r "0"
  12431            A rrayHandli ng "0"
  12432            S yncIndicat or "0"
  12433            P adChar ""
  12434            C olumnRefer ence "clai m_payer_ke y"
  12435            E xtendedPre cision "0"
  12436            T aggedSubre c "0"
  12437            O ccursVaryi ng "0"
  12438            P KeyIsCasel ess "0"
  12439            S CDPurpose  "0"
  12440         END  DSSUBRECOR D
  12441         BEGI N DSSUBREC ORD
  12442            N ame "claim _id"
  12443            S qlType "12 "
  12444            P recision " 20"
  12445            S cale "0"
  12446            N ullable "0 "
  12447            K eyPosition  "1"
  12448            D isplaySize  "0"
  12449            G roup "0"
  12450            K eyExpressi on "GenRec sByCode.cl aim_id"
  12451            S ortKey "0"
  12452            S ortType "0 "
  12453            A llowCRLF " 0"
  12454            L evelNo "0"
  12455            O ccurs "0"
  12456            P adNulls "0 "
  12457            S ignOption  "0"
  12458            S ortingOrde r "0"
  12459            A rrayHandli ng "0"
  12460            S yncIndicat or "0"
  12461            P adChar ""
  12462            E xtendedPre cision "0"
  12463            T aggedSubre c "0"
  12464            O ccursVaryi ng "0"
  12465            P KeyParsedD erivation  "GenRecsBy Code.claim _id"
  12466            P KeySourceC olumn "Gen RecsByCode .claim_id"
  12467            P KeyIsCasel ess "0"
  12468            S CDPurpose  "0"
  12469         END  DSSUBRECOR D
  12470         BEGI N DSSUBREC ORD
  12471            N ame "servi ce_line_nu mber"
  12472            S qlType "4"
  12473            P recision " 10"
  12474            S cale "0"
  12475            N ullable "1 "
  12476            K eyPosition  "1"
  12477            D isplaySize  "0"
  12478            G roup "0"
  12479            K eyExpressi on "GenRec sByCode.se rvice_line _number"
  12480            S ortKey "0"
  12481            S ortType "0 "
  12482            A llowCRLF " 0"
  12483            L evelNo "0"
  12484            O ccurs "0"
  12485            P adNulls "0 "
  12486            S ignOption  "0"
  12487            S ortingOrde r "0"
  12488            A rrayHandli ng "0"
  12489            S yncIndicat or "0"
  12490            P adChar ""
  12491            E xtendedPre cision "0"
  12492            T aggedSubre c "0"
  12493            O ccursVaryi ng "0"
  12494            P KeyParsedD erivation  "GenRecsBy Code.servi ce_line_nu mber"
  12495            P KeySourceC olumn "Gen RecsByCode .service_l ine_number "
  12496            P KeyIsCasel ess "0"
  12497            S CDPurpose  "0"
  12498         END  DSSUBRECOR D
  12499         BEGI N DSSUBREC ORD
  12500            N ame "etl_b atch_id"
  12501            S qlType "12 "
  12502            P recision " 20"
  12503            S cale "0"
  12504            N ullable "1 "
  12505            K eyPosition  "1"
  12506            D isplaySize  "0"
  12507            G roup "0"
  12508            K eyExpressi on "GenRec sByCode.et l_batch_id "
  12509            S ortKey "0"
  12510            S ortType "0 "
  12511            A llowCRLF " 0"
  12512            L evelNo "0"
  12513            O ccurs "0"
  12514            P adNulls "0 "
  12515            S ignOption  "0"
  12516            S ortingOrde r "0"
  12517            A rrayHandli ng "0"
  12518            S yncIndicat or "0"
  12519            P adChar ""
  12520            E xtendedPre cision "0"
  12521            T aggedSubre c "0"
  12522            O ccursVaryi ng "0"
  12523            P KeyParsedD erivation  "GenRecsBy Code.etl_b atch_id"
  12524            P KeySourceC olumn "Gen RecsByCode .etl_batch _id"
  12525            P KeyIsCasel ess "0"
  12526            S CDPurpose  "0"
  12527         END  DSSUBRECOR D
  12528         Meta Bag "CMeta Property"
  12529         BEGI N DSSUBREC ORD
  12530            O wner "APT"
  12531            N ame "Schem aFormat"
  12532         END  DSSUBRECOR D
  12533         BEGI N DSSUBREC ORD
  12534            O wner "APT"
  12535            N ame "DiskW riteInc"
  12536            V alue "1048 576"
  12537         END  DSSUBRECOR D
  12538         BEGI N DSSUBREC ORD
  12539            O wner "APT"
  12540            N ame "BufFr eeRun"
  12541            V alue "50"
  12542         END  DSSUBRECOR D
  12543         BEGI N DSSUBREC ORD
  12544            O wner "APT"
  12545            N ame "MaxMe mBufSize"
  12546            V alue "3145 728"
  12547         END  DSSUBRECOR D
  12548         BEGI N DSSUBREC ORD
  12549            O wner "APT"
  12550            N ame "Queue UpperSize"
  12551            V alue "0"
  12552         END  DSSUBRECOR D
  12553         Left TextPos "7 68"
  12554         TopT extPos "13 6"
  12555         Link Minimised  "0"
  12556      END DSR ECORD
  12557      BEGIN D SRECORD
  12558         Iden tifier "V1 28S0"
  12559         OLET ype "CCust omStage"
  12560         Read only "0"
  12561         Name  "Fltr_01"
  12562         Next ID "5"
  12563         Inpu tPins "V12 8S0P3"
  12564         Outp utPins "V1 28S0P4"
  12565         Stag eType "PxF ilter"
  12566         Allo wColumnMap ping "0"
  12567         Prop erties "CC ustomPrope rty"
  12568         BEGI N DSSUBREC ORD
  12569            N ame "where "
  12570            V alue "\(2) \(2)0\(1)\ (3)where\( 2)pointer_ order_all  <> ''\(2)0 "
  12571         END  DSSUBRECOR D
  12572         BEGI N DSSUBREC ORD
  12573            N ame "first "
  12574            V alue " "
  12575         END  DSSUBRECOR D
  12576         BEGI N DSSUBREC ORD
  12577            N ame "rejec t"
  12578            V alue " "
  12579         END  DSSUBRECOR D
  12580         Next RecordID " 0"
  12581      END DSR ECORD
  12582      BEGIN D SRECORD
  12583         Iden tifier "V1 28S0P3"
  12584         OLET ype "CCust omInput"
  12585         Read only "0"
  12586         Name  "RmDupRec "
  12587         Part ner "V81S0 |V81S0P2"
  12588         Link Type "1"
  12589         Cond itionNotMe t "fail"
  12590         Look upFail "fa il"
  12591         Meta Bag "CMeta Property"
  12592         BEGI N DSSUBREC ORD
  12593            O wner "APT"
  12594            N ame "RTCol umnProp"
  12595            V alue "0"
  12596         END  DSSUBRECOR D
  12597         BEGI N DSSUBREC ORD
  12598            O wner "APT"
  12599            N ame "Part/ Col"
  12600            V alue "same "
  12601         END  DSSUBRECOR D
  12602         BEGI N DSSUBREC ORD
  12603            O wner "APT"
  12604            N ame "SortA dv"
  12605            V alue "-non Stable"
  12606         END  DSSUBRECOR D
  12607         BEGI N DSSUBREC ORD
  12608            O wner "APT"
  12609            N ame "SeqSo rt"
  12610            V alue "0"
  12611         END  DSSUBRECOR D
  12612         Tran sactionSiz e "0"
  12613         TXNB ehaviour " 0"
  12614         Enab leTxGroup  "0"
  12615         Link Minimised  "0"
  12616      END DSR ECORD
  12617      BEGIN D SRECORD
  12618         Iden tifier "V1 28S0P4"
  12619         OLET ype "CCust omOutput"
  12620         Read only "0"
  12621         Name  "Fltr_01"
  12622         Part ner "V121S 0|V121S0P6 "
  12623         Colu mns "COutp utColumn"
  12624         BEGI N DSSUBREC ORD
  12625            N ame "claim _id"
  12626            S qlType "12 "
  12627            P recision " 20"
  12628            S cale "0"
  12629            N ullable "1 "
  12630            K eyPosition  "0"
  12631            D isplaySize  "0"
  12632            D erivation  "RmDupRec. claim_id"
  12633            G roup "0"
  12634            P arsedDeriv ation "RmD upRec.clai m_id"
  12635            S ourceColum n "RmDupRe c.claim_id "
  12636            S ortKey "0"
  12637            S ortType "0 "
  12638            A llowCRLF " 0"
  12639            L evelNo "0"
  12640            O ccurs "0"
  12641            P adNulls "0 "
  12642            S ignOption  "0"
  12643            S ortingOrde r "0"
  12644            A rrayHandli ng "0"
  12645            S yncIndicat or "0"
  12646            P adChar ""
  12647            E xtendedPre cision "0"
  12648            T aggedSubre c "0"
  12649            O ccursVaryi ng "0"
  12650            P KeyIsCasel ess "0"
  12651            S CDPurpose  "0"
  12652         END  DSSUBRECOR D
  12653         BEGI N DSSUBREC ORD
  12654            N ame "diagn _qualifs"
  12655            S qlType "12 "
  12656            P recision " 200"
  12657            S cale "0"
  12658            N ullable "1 "
  12659            K eyPosition  "0"
  12660            D isplaySize  "0"
  12661            D erivation  "RmDupRec. diagn_qual ifs"
  12662            G roup "0"
  12663            P arsedDeriv ation "RmD upRec.diag n_qualifs"
  12664            S ourceColum n "RmDupRe c.diagn_qu alifs"
  12665            S ortKey "0"
  12666            S ortType "0 "
  12667            A llowCRLF " 0"
  12668            L evelNo "0"
  12669            O ccurs "0"
  12670            P adNulls "0 "
  12671            S ignOption  "0"
  12672            S ortingOrde r "0"
  12673            A rrayHandli ng "0"
  12674            S yncIndicat or "0"
  12675            P adChar ""
  12676            E xtendedPre cision "0"
  12677            T aggedSubre c "0"
  12678            O ccursVaryi ng "0"
  12679            P KeyIsCasel ess "0"
  12680            S CDPurpose  "0"
  12681         END  DSSUBRECOR D
  12682         BEGI N DSSUBREC ORD
  12683            N ame "diagn _codes"
  12684            S qlType "12 "
  12685            P recision " 200"
  12686            S cale "0"
  12687            N ullable "1 "
  12688            K eyPosition  "0"
  12689            D isplaySize  "0"
  12690            D erivation  "RmDupRec. diagn_code s"
  12691            G roup "0"
  12692            P arsedDeriv ation "RmD upRec.diag n_codes"
  12693            S ourceColum n "RmDupRe c.diagn_co des"
  12694            S ortKey "0"
  12695            S ortType "0 "
  12696            A llowCRLF " 0"
  12697            L evelNo "0"
  12698            O ccurs "0"
  12699            P adNulls "0 "
  12700            S ignOption  "0"
  12701            S ortingOrde r "0"
  12702            A rrayHandli ng "0"
  12703            S yncIndicat or "0"
  12704            P adChar ""
  12705            E xtendedPre cision "0"
  12706            T aggedSubre c "0"
  12707            O ccursVaryi ng "0"
  12708            P KeyIsCasel ess "0"
  12709            S CDPurpose  "0"
  12710         END  DSSUBRECOR D
  12711         BEGI N DSSUBREC ORD
  12712            N ame "point er_order_a ll"
  12713            D escription  =+=+=+=
  12714   <none>
  12715   Searchable ? N 
  12716   =+=+=+=
  12717            S qlType "12 "
  12718            P recision " 100"
  12719            S cale "0"
  12720            N ullable "1 "
  12721            K eyPosition  "0"
  12722            D isplaySize  "11"
  12723            D erivation  "RmDupRec. pointer_or der_all"
  12724            G roup "0"
  12725            P arsedDeriv ation "RmD upRec.poin ter_order_ all"
  12726            S ourceColum n "RmDupRe c.pointer_ order_all"
  12727            S ortKey "0"
  12728            S ortType "0 "
  12729            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  12730            A llowCRLF " 0"
  12731            L evelNo "0"
  12732            O ccurs "0"
  12733            P adNulls "0 "
  12734            S ignOption  "0"
  12735            S ortingOrde r "0"
  12736            A rrayHandli ng "0"
  12737            S yncIndicat or "0"
  12738            P adChar ""
  12739            C olumnRefer ence "poin ter_order"
  12740            A PTFieldPro p "quote=n one, null_ field=''"
  12741            E xtendedPre cision "0"
  12742            T aggedSubre c "0"
  12743            O ccursVaryi ng "0"
  12744            P KeyIsCasel ess "0"
  12745            S CDPurpose  "0"
  12746         END  DSSUBRECOR D
  12747         BEGI N DSSUBREC ORD
  12748            N ame "is_cu rrent"
  12749            D escription  =+=+=+=
  12750   <none>
  12751   Searchable ? N 
  12752   =+=+=+=
  12753            S qlType "1"
  12754            P recision " 1"
  12755            S cale "0"
  12756            N ullable "0 "
  12757            K eyPosition  "0"
  12758            D isplaySize  "1"
  12759            D erivation  "RmDupRec. is_current "
  12760            G roup "0"
  12761            P arsedDeriv ation "RmD upRec.is_c urrent"
  12762            S ourceColum n "RmDupRe c.is_curre nt"
  12763            S ortKey "0"
  12764            S ortType "0 "
  12765            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  12766            A llowCRLF " 0"
  12767            L evelNo "0"
  12768            O ccurs "0"
  12769            P adNulls "0 "
  12770            S ignOption  "0"
  12771            S ortingOrde r "0"
  12772            A rrayHandli ng "0"
  12773            S yncIndicat or "0"
  12774            P adChar ""
  12775            C olumnRefer ence "is_c urrent"
  12776            E xtendedPre cision "0"
  12777            T aggedSubre c "0"
  12778            O ccursVaryi ng "0"
  12779            P KeyIsCasel ess "0"
  12780            S CDPurpose  "0"
  12781         END  DSSUBRECOR D
  12782         BEGI N DSSUBREC ORD
  12783            N ame "start _date"
  12784            D escription  =+=+=+=
  12785   <none>
  12786   Searchable ? N 
  12787   =+=+=+=
  12788            S qlType "9"
  12789            P recision " 10"
  12790            S cale "0"
  12791            N ullable "1 "
  12792            K eyPosition  "0"
  12793            D isplaySize  "10"
  12794            D erivation  "RmDupRec. start_date "
  12795            G roup "0"
  12796            P arsedDeriv ation "RmD upRec.star t_date"
  12797            S ourceColum n "RmDupRe c.start_da te"
  12798            S ortKey "0"
  12799            S ortType "0 "
  12800            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  12801            A llowCRLF " 0"
  12802            L evelNo "0"
  12803            O ccurs "0"
  12804            P adNulls "0 "
  12805            S ignOption  "0"
  12806            S ortingOrde r "0"
  12807            A rrayHandli ng "0"
  12808            S yncIndicat or "0"
  12809            P adChar ""
  12810            C olumnRefer ence "star t_date"
  12811            A PTFieldPro p "null_fi eld=''"
  12812            E xtendedPre cision "0"
  12813            T aggedSubre c "0"
  12814            O ccursVaryi ng "0"
  12815            P KeyIsCasel ess "0"
  12816            S CDPurpose  "0"
  12817         END  DSSUBRECOR D
  12818         BEGI N DSSUBREC ORD
  12819            N ame "end_d ate"
  12820            D escription  =+=+=+=
  12821   <none>
  12822   Searchable ? N 
  12823   =+=+=+=
  12824            S qlType "9"
  12825            P recision " 10"
  12826            S cale "0"
  12827            N ullable "1 "
  12828            K eyPosition  "0"
  12829            D isplaySize  "10"
  12830            D erivation  "RmDupRec. end_date"
  12831            G roup "0"
  12832            P arsedDeriv ation "RmD upRec.end_ date"
  12833            S ourceColum n "RmDupRe c.end_date "
  12834            S ortKey "0"
  12835            S ortType "0 "
  12836            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  12837            A llowCRLF " 0"
  12838            L evelNo "0"
  12839            O ccurs "0"
  12840            P adNulls "0 "
  12841            S ignOption  "0"
  12842            S ortingOrde r "0"
  12843            A rrayHandli ng "0"
  12844            S yncIndicat or "0"
  12845            P adChar ""
  12846            C olumnRefer ence "end_ date"
  12847            A PTFieldPro p "null_fi eld=''"
  12848            E xtendedPre cision "0"
  12849            T aggedSubre c "0"
  12850            O ccursVaryi ng "0"
  12851            P KeyIsCasel ess "0"
  12852            S CDPurpose  "0"
  12853         END  DSSUBRECOR D
  12854         BEGI N DSSUBREC ORD
  12855            N ame "sourc e_system"
  12856            D escription  =+=+=+=
  12857   <none>
  12858   Searchable ? N 
  12859   =+=+=+=
  12860            S qlType "12 "
  12861            P recision " 20"
  12862            S cale "0"
  12863            N ullable "1 "
  12864            K eyPosition  "0"
  12865            D isplaySize  "20"
  12866            D erivation  "RmDupRec. source_sys tem"
  12867            G roup "0"
  12868            P arsedDeriv ation "RmD upRec.sour ce_system"
  12869            S ourceColum n "RmDupRe c.source_s ystem"
  12870            S ortKey "0"
  12871            S ortType "0 "
  12872            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  12873            A llowCRLF " 0"
  12874            L evelNo "0"
  12875            O ccurs "0"
  12876            P adNulls "0 "
  12877            S ignOption  "0"
  12878            S ortingOrde r "0"
  12879            A rrayHandli ng "0"
  12880            S yncIndicat or "0"
  12881            P adChar ""
  12882            C olumnRefer ence "sour ce_system"
  12883            A PTFieldPro p "null_fi eld=''"
  12884            E xtendedPre cision "0"
  12885            T aggedSubre c "0"
  12886            O ccursVaryi ng "0"
  12887            P KeyIsCasel ess "0"
  12888            S CDPurpose  "0"
  12889         END  DSSUBRECOR D
  12890         BEGI N DSSUBREC ORD
  12891            N ame "sourc e_entity"
  12892            D escription  =+=+=+=
  12893   <none>
  12894   Searchable ? N 
  12895   =+=+=+=
  12896            S qlType "12 "
  12897            P recision " 50"
  12898            S cale "0"
  12899            N ullable "1 "
  12900            K eyPosition  "0"
  12901            D isplaySize  "50"
  12902            D erivation  "RmDupRec. source_ent ity"
  12903            G roup "0"
  12904            P arsedDeriv ation "RmD upRec.sour ce_entity"
  12905            S ourceColum n "RmDupRe c.source_e ntity"
  12906            S ortKey "0"
  12907            S ortType "0 "
  12908            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  12909            A llowCRLF " 0"
  12910            L evelNo "0"
  12911            O ccurs "0"
  12912            P adNulls "0 "
  12913            S ignOption  "0"
  12914            S ortingOrde r "0"
  12915            A rrayHandli ng "0"
  12916            S yncIndicat or "0"
  12917            P adChar ""
  12918            C olumnRefer ence "sour ce_entity"
  12919            A PTFieldPro p "null_fi eld=''"
  12920            E xtendedPre cision "0"
  12921            T aggedSubre c "0"
  12922            O ccursVaryi ng "0"
  12923            P KeyIsCasel ess "0"
  12924            S CDPurpose  "0"
  12925         END  DSSUBRECOR D
  12926         BEGI N DSSUBREC ORD
  12927            N ame "etl_b atch_id"
  12928            D escription  =+=+=+=
  12929   <none>
  12930   Searchable ? N 
  12931   =+=+=+=
  12932            S qlType "12 "
  12933            P recision " 20"
  12934            S cale "0"
  12935            N ullable "1 "
  12936            K eyPosition  "0"
  12937            D isplaySize  "20"
  12938            D erivation  "RmDupRec. etl_batch_ id"
  12939            G roup "0"
  12940            P arsedDeriv ation "RmD upRec.etl_ batch_id"
  12941            S ourceColum n "RmDupRe c.etl_batc h_id"
  12942            S ortKey "0"
  12943            S ortType "0 "
  12944            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  12945            A llowCRLF " 0"
  12946            L evelNo "0"
  12947            O ccurs "0"
  12948            P adNulls "0 "
  12949            S ignOption  "0"
  12950            S ortingOrde r "0"
  12951            A rrayHandli ng "0"
  12952            S yncIndicat or "0"
  12953            P adChar ""
  12954            C olumnRefer ence "etl_ batch_id"
  12955            A PTFieldPro p "null_fi eld=''"
  12956            E xtendedPre cision "0"
  12957            T aggedSubre c "0"
  12958            O ccursVaryi ng "0"
  12959            P KeyIsCasel ess "0"
  12960            S CDPurpose  "0"
  12961         END  DSSUBRECOR D
  12962         BEGI N DSSUBREC ORD
  12963            N ame "row_i d"
  12964            D escription  =+=+=+=
  12965   <none>
  12966   Searchable ? N 
  12967   =+=+=+=
  12968            S qlType "12 "
  12969            P recision " 20"
  12970            S cale "0"
  12971            N ullable "1 "
  12972            K eyPosition  "0"
  12973            D isplaySize  "20"
  12974            D erivation  "RmDupRec. row_id"
  12975            G roup "0"
  12976            P arsedDeriv ation "RmD upRec.row_ id"
  12977            S ourceColum n "RmDupRe c.row_id"
  12978            S ortKey "0"
  12979            S ortType "0 "
  12980            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  12981            A llowCRLF " 0"
  12982            L evelNo "0"
  12983            O ccurs "0"
  12984            P adNulls "0 "
  12985            S ignOption  "0"
  12986            S ortingOrde r "0"
  12987            A rrayHandli ng "0"
  12988            S yncIndicat or "0"
  12989            P adChar ""
  12990            C olumnRefer ence "row_ id"
  12991            A PTFieldPro p "null_fi eld=''"
  12992            E xtendedPre cision "0"
  12993            T aggedSubre c "0"
  12994            O ccursVaryi ng "0"
  12995            P KeyIsCasel ess "0"
  12996            S CDPurpose  "0"
  12997         END  DSSUBRECOR D
  12998         BEGI N DSSUBREC ORD
  12999            N ame "servi ce_line_nu mber"
  13000            S qlType "4"
  13001            P recision " 10"
  13002            S cale "0"
  13003            N ullable "1 "
  13004            K eyPosition  "0"
  13005            D isplaySize  "0"
  13006            D erivation  "RmDupRec. service_li ne_number"
  13007            G roup "0"
  13008            P arsedDeriv ation "RmD upRec.serv ice_line_n umber"
  13009            S ourceColum n "RmDupRe c.service_ line_numbe r"
  13010            S ortKey "0"
  13011            S ortType "0 "
  13012            A llowCRLF " 0"
  13013            L evelNo "0"
  13014            O ccurs "0"
  13015            P adNulls "0 "
  13016            S ignOption  "0"
  13017            S ortingOrde r "0"
  13018            A rrayHandli ng "0"
  13019            S yncIndicat or "0"
  13020            P adChar ""
  13021            E xtendedPre cision "0"
  13022            T aggedSubre c "0"
  13023            O ccursVaryi ng "0"
  13024            P KeyIsCasel ess "0"
  13025            S CDPurpose  "0"
  13026         END  DSSUBRECOR D
  13027         Meta Bag "CMeta Property"
  13028         BEGI N DSSUBREC ORD
  13029            O wner "APT"
  13030            N ame "DiskW riteInc"
  13031            V alue "1048 576"
  13032         END  DSSUBRECOR D
  13033         BEGI N DSSUBREC ORD
  13034            O wner "APT"
  13035            N ame "BufFr eeRun"
  13036            V alue "50"
  13037         END  DSSUBRECOR D
  13038         BEGI N DSSUBREC ORD
  13039            O wner "APT"
  13040            N ame "MaxMe mBufSize"
  13041            V alue "3145 728"
  13042         END  DSSUBRECOR D
  13043         BEGI N DSSUBREC ORD
  13044            O wner "APT"
  13045            N ame "Queue UpperSize"
  13046            V alue "0"
  13047         END  DSSUBRECOR D
  13048         Left TextPos "5 24"
  13049         TopT extPos "23 8"
  13050         Link Minimised  "0"
  13051      END DSR ECORD
  13052      BEGIN D SRECORD
  13053         Iden tifier "V1 29S0"
  13054         OLET ype "CCust omStage"
  13055         Read only "0"
  13056         Name  "DIM_DIAG NOSIS_CODE "
  13057         Next ID "2"
  13058         Outp utPins "V1 29S0P1"
  13059         Stag eType "ODB CConnector PX"
  13060         Allo wColumnMap ping "0"
  13061         Prop erties "CC ustomPrope rty"
  13062         BEGI N DSSUBREC ORD
  13063            N ame "Varia ntName"
  13064            V alue "3.5"
  13065         END  DSSUBRECOR D
  13066         BEGI N DSSUBREC ORD
  13067            N ame "Varia ntLibrary"
  13068            V alue "ccod bc"
  13069         END  DSSUBRECOR D
  13070         BEGI N DSSUBREC ORD
  13071            N ame "Varia ntVersion"
  13072            V alue "1.0"
  13073         END  DSSUBRECOR D
  13074         BEGI N DSSUBREC ORD
  13075            N ame "Suppo rtedVarian ts"
  13076            V alue "V1;3 .5::ccodbc "
  13077         END  DSSUBRECOR D
  13078         BEGI N DSSUBREC ORD
  13079            N ame "Suppo rtedVarian tsLibrarie s"
  13080            V alue "ccod bc"
  13081         END  DSSUBRECOR D
  13082         BEGI N DSSUBREC ORD
  13083            N ame "Suppo rtedVarian tsVersions "
  13084            V alue "1.0"
  13085         END  DSSUBRECOR D
  13086         BEGI N DSSUBREC ORD
  13087            N ame "Orien tation"
  13088            V alue "link "
  13089         END  DSSUBRECOR D
  13090         BEGI N DSSUBREC ORD
  13091            N ame "Rejec tFromLink"
  13092            V alue "-1"
  13093         END  DSSUBRECOR D
  13094         BEGI N DSSUBREC ORD
  13095            N ame "Rejec tThreshold "
  13096            V alue "0"
  13097         END  DSSUBRECOR D
  13098         BEGI N DSSUBREC ORD
  13099            N ame "Rejec tNumber"
  13100            V alue "0"
  13101         END  DSSUBRECOR D
  13102         BEGI N DSSUBREC ORD
  13103            N ame "Rejec tUsesPerce ntage"
  13104            V alue "fals e"
  13105         END  DSSUBRECOR D
  13106         BEGI N DSSUBREC ORD
  13107            N ame "Conne ctorName"
  13108            V alue "ODBC Connector"
  13109         END  DSSUBRECOR D
  13110         BEGI N DSSUBREC ORD
  13111            N ame "Engin e"
  13112            V alue "EE"
  13113         END  DSSUBRECOR D
  13114         BEGI N DSSUBREC ORD
  13115            N ame "Conte xt"
  13116            V alue "sour ce"
  13117         END  DSSUBRECOR D
  13118         BEGI N DSSUBREC ORD
  13119            N ame "Conne ctionStrin g"
  13120            V alue "/Con nection/Da taSource"
  13121         END  DSSUBRECOR D
  13122         BEGI N DSSUBREC ORD
  13123            N ame "Usern ame"
  13124            V alue "/Con nection/Us ername"
  13125         END  DSSUBRECOR D
  13126         BEGI N DSSUBREC ORD
  13127            N ame "Passw ord"
  13128            V alue "/Con nection/Pa ssword"
  13129         END  DSSUBRECOR D
  13130         BEGI N DSSUBREC ORD
  13131            N ame "XMLPr operties"
  13132            V alue "<?xm l version= '1.0' enco ding='UTF- 16'?><Prop erties ver sion='1.1' ><Common>< Context ty pe='int'>1 </Context> <Variant t ype='strin g'>3.5</Va riant><Des criptorVer sion type= 'string'>1 .0</Descri ptorVersio n><Partiti onType typ e='int'>-1 </Partitio nType><RCP  type='int '>0</RCP>< /Common><C onnection> <DataSourc e modified ='1' type= 'string'>< ![CDATA[#$ SQL_DB_DSN #]]></Data Source><Us ername mod ified='1'  type='stri ng'><![CDA TA[#$SQL_D B_UID#]]>< /Username> <Password  modified=' 1' type='s tring'><![ CDATA[#$SQ L_DB_PWD#] ]></Passwo rd></Conne ction><Usa ge modifie d='1'><Gen erateSQL m odified='1 ' type='bo ol'><![CDA TA[0]]></G enerateSQL ><EnableQu otedIDs ty pe='bool'> <![CDATA[0 ]]></Enabl eQuotedIDs ><SQL><Sel ectStateme nt modifie d='1' type ='string'> <![CDATA[S elect DIAG NOSIS_key,  diagnosis _code from   #$SQL_DB #.dbo.DIM_ DIAGNOSIS_ CODE  wher e is_curre nt='Y']]>< ReadStatem entFromFil e type='bo ol'><![CDA TA[0]]></R eadStateme ntFromFile ><Tables c ollapsed=' 1'><Table  type='stri ng'><![CDA TA[#$SQL_D B#.dbo.DIM _DIAGNOSIS _CODE]]></ Table></Ta bles><Para meters col lapsed='1' ></Paramet ers><Colum ns collaps ed='1'><Co lumn type= 'string'>< ![CDATA[di agnosis_co de,diagnos is_code,DI M_DIAGNOSI S_CODE]]>< /Column><C olumn type ='string'> <![CDATA[D IAGNOSIS_k ey,DIAGNOS IS_key,DIM _DIAGNOSIS _CODE]]></ Column></C olumns><Wh ereClause  type='stri ng'><![CDA TA[is_curr ent = 'Y'] ]></WhereC lause></Se lectStatem ent><Enabl ePartition ing collap sed='1' ty pe='bool'> <![CDATA[0 ]]></Enabl ePartition ing></SQL> <Transacti on><Record Count type ='int'><![ CDATA[2000 ]]></Recor dCount><En dOfWave co llapsed='1 ' type='in t'><![CDAT A[0]]></En dOfWave></ Transactio n><Session ><Isolatio nLevel typ e='int'><! [CDATA[1]] ></Isolati onLevel><A utocommitM ode type=' int'><![CD ATA[0]]></ Autocommit Mode><Arra ySize type ='int'><![ CDATA[2000 ]]></Array Size><Sche maReconcil iation><Fa ilOnSizeMi smatch typ e='bool'>< ![CDATA[1] ]></FailOn SizeMismat ch><FailOn TypeMismat ch type='b ool'><![CD ATA[1]]></ FailOnType Mismatch>< FailOnCode PageMismat ch type='b ool'><![CD ATA[0]]></ FailOnCode PageMismat ch></Schem aReconcili ation><Pas sLobLocato r collapse d='1' type ='bool'><! [CDATA[0]] ></PassLob Locator><C odePage co llapsed='1 ' type='in t'><![CDAT A[0]]></Co dePage></S ession><Be foreAfter  collapsed= '1' type=' bool'><![C DATA[0]]>< /BeforeAft er><LimitR ows collap sed='1' ty pe='bool'> <![CDATA[0 ]]></Limit Rows></Usa ge></Prope rties >"
  13133         END  DSSUBRECOR D
  13134         Next RecordID " 0"
  13135      END DSR ECORD
  13136      BEGIN D SRECORD
  13137         Iden tifier "V1 29S0P1"
  13138         OLET ype "CCust omOutput"
  13139         Read only "0"
  13140         Name  "DimDiagn osisCode"
  13141         Part ner "V125S 0|V125S0P6 "
  13142         Prop erties "CC ustomPrope rty"
  13143         BEGI N DSSUBREC ORD
  13144            N ame "looku p\\type"
  13145         END  DSSUBRECOR D
  13146         BEGI N DSSUBREC ORD
  13147            N ame "Varia ntName"
  13148            V alue "3.5"
  13149         END  DSSUBRECOR D
  13150         BEGI N DSSUBREC ORD
  13151            N ame "Varia ntLibrary"
  13152            V alue "ccod bc"
  13153         END  DSSUBRECOR D
  13154         BEGI N DSSUBREC ORD
  13155            N ame "Varia ntVersion"
  13156            V alue "1.0"
  13157         END  DSSUBRECOR D
  13158         BEGI N DSSUBREC ORD
  13159            N ame "Rejec tFromLink"
  13160            V alue "-1"
  13161         END  DSSUBRECOR D
  13162         BEGI N DSSUBREC ORD
  13163            N ame "Rejec tThreshold "
  13164            V alue "0"
  13165         END  DSSUBRECOR D
  13166         BEGI N DSSUBREC ORD
  13167            N ame "Rejec tNumber"
  13168            V alue "0"
  13169         END  DSSUBRECOR D
  13170         BEGI N DSSUBREC ORD
  13171            N ame "Rejec tUsesPerce ntage"
  13172            V alue "fals e"
  13173         END  DSSUBRECOR D
  13174         BEGI N DSSUBREC ORD
  13175            N ame "Conne ctorName"
  13176            V alue "ODBC Connector"
  13177         END  DSSUBRECOR D
  13178         Colu mns "COutp utColumn"
  13179         BEGI N DSSUBREC ORD
  13180            N ame "DIAGN OSIS_key"
  13181            D escription  =+=+=+=
  13182   <none>
  13183   Searchable ? N 
  13184   =+=+=+=
  13185            S qlType "4"
  13186            P recision " 10"
  13187            S cale "0"
  13188            N ullable "0 "
  13189            K eyPosition  "0"
  13190            D isplaySize  "11"
  13191            G roup "0"
  13192            S ortKey "0"
  13193            S ortType "0 "
  13194            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  13195            A llowCRLF " 0"
  13196            L evelNo "0"
  13197            O ccurs "0"
  13198            P adNulls "0 "
  13199            S ignOption  "0"
  13200            S ortingOrde r "0"
  13201            A rrayHandli ng "0"
  13202            S yncIndicat or "0"
  13203            P adChar ""
  13204            C olumnRefer ence "paye r_key"
  13205            A PTFieldPro p "quote=n one"
  13206            E xtendedPre cision "0"
  13207            T aggedSubre c "0"
  13208            O ccursVaryi ng "0"
  13209            P KeyIsCasel ess "0"
  13210            S CDPurpose  "0"
  13211         END  DSSUBRECOR D
  13212         BEGI N DSSUBREC ORD
  13213            N ame "diagn osis_code"
  13214            D escription  =+=+=+=
  13215   <none>
  13216   Searchable ? N 
  13217   =+=+=+=
  13218            S qlType "12 "
  13219            P recision " 30"
  13220            S cale "0"
  13221            N ullable "1 "
  13222            K eyPosition  "1"
  13223            D isplaySize  "11"
  13224            G roup "0"
  13225            K eyExpressi on "GenRec sByCode.di agn_codes"
  13226            S ortKey "0"
  13227            S ortType "0 "
  13228            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  13229            A llowCRLF " 0"
  13230            L evelNo "0"
  13231            O ccurs "0"
  13232            P adNulls "0 "
  13233            S ignOption  "0"
  13234            S ortingOrde r "0"
  13235            A rrayHandli ng "0"
  13236            S yncIndicat or "0"
  13237            P adChar ""
  13238            C olumnRefer ence "paye r_name"
  13239            A PTFieldPro p "null_fi eld=''"
  13240            E xtendedPre cision "0"
  13241            T aggedSubre c "0"
  13242            O ccursVaryi ng "0"
  13243            P KeyParsedD erivation  "GenRecsBy Code.diagn _codes"
  13244            P KeySourceC olumn "Gen RecsByCode .diagn_cod es"
  13245            P KeyIsCasel ess "0"
  13246            S CDPurpose  "0"
  13247         END  DSSUBRECOR D
  13248         Meta Bag "CMeta Property"
  13249         BEGI N DSSUBREC ORD
  13250            O wner "APT"
  13251            N ame "Schem aFormat"
  13252         END  DSSUBRECOR D
  13253         BEGI N DSSUBREC ORD
  13254            O wner "APT"
  13255            N ame "DiskW riteInc"
  13256            V alue "1048 576"
  13257         END  DSSUBRECOR D
  13258         BEGI N DSSUBREC ORD
  13259            O wner "APT"
  13260            N ame "BufFr eeRun"
  13261            V alue "50"
  13262         END  DSSUBRECOR D
  13263         BEGI N DSSUBREC ORD
  13264            O wner "APT"
  13265            N ame "MaxMe mBufSize"
  13266            V alue "3145 728"
  13267         END  DSSUBRECOR D
  13268         BEGI N DSSUBREC ORD
  13269            O wner "APT"
  13270            N ame "Queue UpperSize"
  13271            V alue "0"
  13272         END  DSSUBRECOR D
  13273         Left TextPos "8 99"
  13274         TopT extPos "17 1"
  13275         Link Minimised  "0"
  13276      END DSR ECORD
  13277      BEGIN D SRECORD
  13278         Iden tifier "V1 30S0"
  13279         OLET ype "CCust omStage"
  13280         Read only "0"
  13281         Name  "ds_EDI83 7P_Conform ed"
  13282         Next ID "3"
  13283         Outp utPins "V1 30S0P2"
  13284         Stag eType "PxD ataSet"
  13285         Allo wColumnMap ping "0"
  13286         Meta Bag "CMeta Property"
  13287         BEGI N DSSUBREC ORD
  13288            O wner "APT"
  13289            N ame "Execm ode"
  13290            V alue "seq"
  13291         END  DSSUBRECOR D
  13292         Next RecordID " 0"
  13293      END DSR ECORD
  13294      BEGIN D SRECORD
  13295         Iden tifier "V1 30S0P2"
  13296         OLET ype "CCust omOutput"
  13297         Read only "0"
  13298         Name  "XfrmSrc"
  13299         Part ner "V81S2 |V81S2P3"
  13300         Prop erties "CC ustomPrope rty"
  13301         BEGI N DSSUBREC ORD
  13302            N ame "datas et"
  13303            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Co nformed.ds "
  13304         END  DSSUBRECOR D
  13305         BEGI N DSSUBREC ORD
  13306            N ame "missi ngcolmode"
  13307            V alue " "
  13308         END  DSSUBRECOR D
  13309         Colu mns "COutp utColumn"
  13310         BEGI N DSSUBREC ORD
  13311            N ame "ROW_N UM"
  13312            S qlType "4"
  13313            P recision " 8"
  13314            S cale "0"
  13315            N ullable "0 "
  13316            K eyPosition  "0"
  13317            D isplaySize  "0"
  13318            G roup "0"
  13319            S ortKey "0"
  13320            S ortType "0 "
  13321            A llowCRLF " 0"
  13322            L evelNo "0"
  13323            O ccurs "0"
  13324            P adNulls "0 "
  13325            S ignOption  "0"
  13326            S ortingOrde r "0"
  13327            A rrayHandli ng "0"
  13328            S yncIndicat or "0"
  13329            P adChar ""
  13330            E xtendedPre cision "0"
  13331            T aggedSubre c "0"
  13332            O ccursVaryi ng "0"
  13333            P KeyIsCasel ess "0"
  13334            S CDPurpose  "0"
  13335         END  DSSUBRECOR D
  13336         BEGI N DSSUBREC ORD
  13337            N ame "ST_NU M"
  13338            S qlType "12 "
  13339            P recision " 9"
  13340            S cale "0"
  13341            N ullable "0 "
  13342            K eyPosition  "0"
  13343            D isplaySize  "0"
  13344            G roup "0"
  13345            S ortKey "0"
  13346            S ortType "0 "
  13347            A llowCRLF " 0"
  13348            L evelNo "0"
  13349            O ccurs "0"
  13350            P adNulls "0 "
  13351            S ignOption  "0"
  13352            S ortingOrde r "0"
  13353            A rrayHandli ng "0"
  13354            S yncIndicat or "0"
  13355            P adChar ""
  13356            E xtendedPre cision "0"
  13357            T aggedSubre c "0"
  13358            O ccursVaryi ng "0"
  13359            P KeyIsCasel ess "0"
  13360            S CDPurpose  "0"
  13361         END  DSSUBRECOR D
  13362         BEGI N DSSUBREC ORD
  13363            N ame "LOOP"
  13364            S qlType "12 "
  13365            P recision " 10"
  13366            S cale "0"
  13367            N ullable "0 "
  13368            K eyPosition  "0"
  13369            D isplaySize  "0"
  13370            G roup "0"
  13371            S ortKey "0"
  13372            S ortType "0 "
  13373            A llowCRLF " 0"
  13374            L evelNo "0"
  13375            O ccurs "0"
  13376            P adNulls "0 "
  13377            S ignOption  "0"
  13378            S ortingOrde r "0"
  13379            A rrayHandli ng "0"
  13380            S yncIndicat or "0"
  13381            P adChar ""
  13382            E xtendedPre cision "0"
  13383            T aggedSubre c "0"
  13384            O ccursVaryi ng "0"
  13385            P KeyIsCasel ess "0"
  13386            S CDPurpose  "0"
  13387         END  DSSUBRECOR D
  13388         BEGI N DSSUBREC ORD
  13389            N ame "SEG"
  13390            S qlType "12 "
  13391            P recision " 5"
  13392            S cale "0"
  13393            N ullable "0 "
  13394            K eyPosition  "0"
  13395            D isplaySize  "0"
  13396            G roup "0"
  13397            S ortKey "0"
  13398            S ortType "0 "
  13399            A llowCRLF " 0"
  13400            L evelNo "0"
  13401            O ccurs "0"
  13402            P adNulls "0 "
  13403            S ignOption  "0"
  13404            S ortingOrde r "0"
  13405            A rrayHandli ng "0"
  13406            S yncIndicat or "0"
  13407            P adChar ""
  13408            E xtendedPre cision "0"
  13409            T aggedSubre c "0"
  13410            O ccursVaryi ng "0"
  13411            P KeyIsCasel ess "0"
  13412            S CDPurpose  "0"
  13413         END  DSSUBRECOR D
  13414         BEGI N DSSUBREC ORD
  13415            N ame "SEG_C D"
  13416            S qlType "12 "
  13417            P recision " 20"
  13418            S cale "0"
  13419            N ullable "0 "
  13420            K eyPosition  "0"
  13421            D isplaySize  "0"
  13422            G roup "0"
  13423            S ortKey "0"
  13424            S ortType "0 "
  13425            A llowCRLF " 0"
  13426            L evelNo "0"
  13427            O ccurs "0"
  13428            P adNulls "0 "
  13429            S ignOption  "0"
  13430            S ortingOrde r "0"
  13431            A rrayHandli ng "0"
  13432            S yncIndicat or "0"
  13433            P adChar ""
  13434            E xtendedPre cision "0"
  13435            T aggedSubre c "0"
  13436            O ccursVaryi ng "0"
  13437            P KeyIsCasel ess "0"
  13438            S CDPurpose  "0"
  13439         END  DSSUBRECOR D
  13440         BEGI N DSSUBREC ORD
  13441            N ame "EDI83 7P"
  13442            S qlType "12 "
  13443            P recision " 2000"
  13444            S cale "0"
  13445            N ullable "0 "
  13446            K eyPosition  "0"
  13447            D isplaySize  "0"
  13448            G roup "0"
  13449            S ortKey "0"
  13450            S ortType "0 "
  13451            T ableDef "S aved\\Conf orming_rec s\\EDI_ST_ TransSetHd r"
  13452            A llowCRLF " 0"
  13453            L evelNo "0"
  13454            O ccurs "0"
  13455            P adNulls "0 "
  13456            S ignOption  "0"
  13457            S ortingOrde r "0"
  13458            A rrayHandli ng "0"
  13459            S yncIndicat or "0"
  13460            P adChar ""
  13461            C olumnRefer ence "IMPL _CONV_REF"
  13462            E xtendedPre cision "0"
  13463            T aggedSubre c "0"
  13464            O ccursVaryi ng "0"
  13465            P KeyIsCasel ess "0"
  13466            S CDPurpose  "0"
  13467         END  DSSUBRECOR D
  13468         BEGI N DSSUBREC ORD
  13469            N ame "ETL_B ATCH_ID"
  13470            S qlType "12 "
  13471            P recision " 20"
  13472            S cale "0"
  13473            N ullable "0 "
  13474            K eyPosition  "0"
  13475            D isplaySize  "0"
  13476            G roup "0"
  13477            S ortKey "0"
  13478            S ortType "0 "
  13479            A llowCRLF " 0"
  13480            L evelNo "0"
  13481            O ccurs "0"
  13482            P adNulls "0 "
  13483            S ignOption  "0"
  13484            S ortingOrde r "0"
  13485            A rrayHandli ng "0"
  13486            S yncIndicat or "0"
  13487            P adChar ""
  13488            E xtendedPre cision "0"
  13489            T aggedSubre c "0"
  13490            O ccursVaryi ng "0"
  13491            P KeyIsCasel ess "0"
  13492            S CDPurpose  "0"
  13493         END  DSSUBRECOR D
  13494         Meta Bag "CMeta Property"
  13495         BEGI N DSSUBREC ORD
  13496            O wner "APT"
  13497            N ame "DiskW riteInc"
  13498            V alue "1048 576"
  13499         END  DSSUBRECOR D
  13500         BEGI N DSSUBREC ORD
  13501            O wner "APT"
  13502            N ame "BufFr eeRun"
  13503            V alue "50"
  13504         END  DSSUBRECOR D
  13505         BEGI N DSSUBREC ORD
  13506            O wner "APT"
  13507            N ame "MaxMe mBufSize"
  13508            V alue "3145 728"
  13509         END  DSSUBRECOR D
  13510         BEGI N DSSUBREC ORD
  13511            O wner "APT"
  13512            N ame "Queue UpperSize"
  13513            V alue "0"
  13514         END  DSSUBRECOR D
  13515         Left TextPos "1 63"
  13516         TopT extPos "29 0"
  13517         Link Minimised  "0"
  13518      END DSR ECORD
  13519      BEGIN D SRECORD
  13520         Iden tifier "V1 38A0"
  13521         OLET ype "CAnno tation"
  13522         Read only "0"
  13523         Name  "V138A0"
  13524         Next ID "0"
  13525         Anno tationType  "0"
  13526         Anno tationText  =+=+=+=
  13527   9/22
  13528   check for  ICD starti ng with le tter 'E' t o decide o n decimal  location.
  13529   =+=+=+=
  13530         Text Font "Micr osoft Sans  Serif\\8\ \0\\0\\0\\ 400\\0"
  13531         Text Horizontal Justificat ion "0"
  13532         Text VerticalJu stificatio n "0"
  13533         Text Color "0"
  13534         Back groundColo r "1271398 3"
  13535         Back groundTran sparent "0 "
  13536         Bord erVisible  "1"
  13537      END DSR ECORD
  13538      BEGIN D SRECORD
  13539         Iden tifier "V8 1S0"
  13540         OLET ype "CCust omStage"
  13541         Read only "0"
  13542         Name  "RmDupRec "
  13543         Next ID "3"
  13544         Inpu tPins "V81 S0P1"
  13545         Outp utPins "V8 1S0P2"
  13546         Stag eType "PxR emDup"
  13547         Allo wColumnMap ping "0"
  13548         Prop erties "CC ustomPrope rty"
  13549         BEGI N DSSUBREC ORD
  13550            N ame "keep"
  13551            V alue "last "
  13552         END  DSSUBRECOR D
  13553         BEGI N DSSUBREC ORD
  13554            N ame "key"
  13555            V alue "\(2) \(2)0\(1)\ (3)key\(2) row_id\(2) 0\(1)\(3)k ey\(2)clai m_id\(2)0\ (1)\(3)key \(2)servic e_line_num ber\(2)0"
  13556         END  DSSUBRECOR D
  13557         Next RecordID " 0"
  13558      END DSR ECORD
  13559      BEGIN D SRECORD
  13560         Iden tifier "V8 1S0P1"
  13561         OLET ype "CCust omInput"
  13562         Read only "0"
  13563         Name  "BusRls"
  13564         Part ner "V81S2 |V81S2P2"
  13565         Link Type "1"
  13566         Cond itionNotMe t "fail"
  13567         Look upFail "fa il"
  13568         Meta Bag "CMeta Property"
  13569         BEGI N DSSUBREC ORD
  13570            O wner "APT"
  13571            N ame "RTCol umnProp"
  13572            V alue "0"
  13573         END  DSSUBRECOR D
  13574         BEGI N DSSUBREC ORD
  13575            O wner "APT"
  13576            N ame "Part/ Col"
  13577            V alue "same "
  13578         END  DSSUBRECOR D
  13579         BEGI N DSSUBREC ORD
  13580            O wner "APT"
  13581            N ame "SortA dv"
  13582            V alue "-non Stable"
  13583         END  DSSUBRECOR D
  13584         BEGI N DSSUBREC ORD
  13585            O wner "APT"
  13586            N ame "SeqSo rt"
  13587            V alue "0"
  13588         END  DSSUBRECOR D
  13589         Tran sactionSiz e "0"
  13590         TXNB ehaviour " 0"
  13591         Enab leTxGroup  "0"
  13592         Link Minimised  "0"
  13593      END DSR ECORD
  13594      BEGIN D SRECORD
  13595         Iden tifier "V8 1S0P2"
  13596         OLET ype "CCust omOutput"
  13597         Read only "0"
  13598         Name  "RmDupRec "
  13599         Part ner "V128S 0|V128S0P3 "
  13600         Colu mns "COutp utColumn"
  13601         BEGI N DSSUBREC ORD
  13602            N ame "claim _id"
  13603            S qlType "12 "
  13604            P recision " 20"
  13605            S cale "0"
  13606            N ullable "1 "
  13607            K eyPosition  "0"
  13608            D isplaySize  "0"
  13609            D erivation  "BusRls.cl aim_id"
  13610            G roup "0"
  13611            P arsedDeriv ation "Bus Rls.claim_ id"
  13612            S ourceColum n "BusRls. claim_id"
  13613            S ortKey "0"
  13614            S ortType "0 "
  13615            A llowCRLF " 0"
  13616            L evelNo "0"
  13617            O ccurs "0"
  13618            P adNulls "0 "
  13619            S ignOption  "0"
  13620            S ortingOrde r "0"
  13621            A rrayHandli ng "0"
  13622            S yncIndicat or "0"
  13623            P adChar ""
  13624            E xtendedPre cision "0"
  13625            T aggedSubre c "0"
  13626            O ccursVaryi ng "0"
  13627            P KeyIsCasel ess "0"
  13628            S CDPurpose  "0"
  13629         END  DSSUBRECOR D
  13630         BEGI N DSSUBREC ORD
  13631            N ame "diagn _qualifs"
  13632            S qlType "12 "
  13633            P recision " 200"
  13634            S cale "0"
  13635            N ullable "1 "
  13636            K eyPosition  "0"
  13637            D isplaySize  "0"
  13638            D erivation  "BusRls.di agn_qualif s"
  13639            G roup "0"
  13640            P arsedDeriv ation "Bus Rls.diagn_ qualifs"
  13641            S ourceColum n "BusRls. diagn_qual ifs"
  13642            S ortKey "0"
  13643            S ortType "0 "
  13644            A llowCRLF " 0"
  13645            L evelNo "0"
  13646            O ccurs "0"
  13647            P adNulls "0 "
  13648            S ignOption  "0"
  13649            S ortingOrde r "0"
  13650            A rrayHandli ng "0"
  13651            S yncIndicat or "0"
  13652            P adChar ""
  13653            E xtendedPre cision "0"
  13654            T aggedSubre c "0"
  13655            O ccursVaryi ng "0"
  13656            P KeyIsCasel ess "0"
  13657            S CDPurpose  "0"
  13658         END  DSSUBRECOR D
  13659         BEGI N DSSUBREC ORD
  13660            N ame "diagn _codes"
  13661            S qlType "12 "
  13662            P recision " 200"
  13663            S cale "0"
  13664            N ullable "1 "
  13665            K eyPosition  "0"
  13666            D isplaySize  "0"
  13667            D erivation  "BusRls.di agn_codes"
  13668            G roup "0"
  13669            P arsedDeriv ation "Bus Rls.diagn_ codes"
  13670            S ourceColum n "BusRls. diagn_code s"
  13671            S ortKey "0"
  13672            S ortType "0 "
  13673            A llowCRLF " 0"
  13674            L evelNo "0"
  13675            O ccurs "0"
  13676            P adNulls "0 "
  13677            S ignOption  "0"
  13678            S ortingOrde r "0"
  13679            A rrayHandli ng "0"
  13680            S yncIndicat or "0"
  13681            P adChar ""
  13682            E xtendedPre cision "0"
  13683            T aggedSubre c "0"
  13684            O ccursVaryi ng "0"
  13685            P KeyIsCasel ess "0"
  13686            S CDPurpose  "0"
  13687         END  DSSUBRECOR D
  13688         BEGI N DSSUBREC ORD
  13689            N ame "point er_order_a ll"
  13690            D escription  =+=+=+=
  13691   <none>
  13692   Searchable ? N 
  13693   =+=+=+=
  13694            S qlType "12 "
  13695            P recision " 100"
  13696            S cale "0"
  13697            N ullable "1 "
  13698            K eyPosition  "0"
  13699            D isplaySize  "11"
  13700            D erivation  "BusRls.po inter_orde r_all"
  13701            G roup "0"
  13702            P arsedDeriv ation "Bus Rls.pointe r_order_al l"
  13703            S ourceColum n "BusRls. pointer_or der_all"
  13704            S ortKey "0"
  13705            S ortType "0 "
  13706            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  13707            A llowCRLF " 0"
  13708            L evelNo "0"
  13709            O ccurs "0"
  13710            P adNulls "0 "
  13711            S ignOption  "0"
  13712            S ortingOrde r "0"
  13713            A rrayHandli ng "0"
  13714            S yncIndicat or "0"
  13715            P adChar ""
  13716            C olumnRefer ence "poin ter_order"
  13717            A PTFieldPro p "quote=n one, null_ field=''"
  13718            E xtendedPre cision "0"
  13719            T aggedSubre c "0"
  13720            O ccursVaryi ng "0"
  13721            P KeyIsCasel ess "0"
  13722            S CDPurpose  "0"
  13723         END  DSSUBRECOR D
  13724         BEGI N DSSUBREC ORD
  13725            N ame "is_cu rrent"
  13726            D escription  =+=+=+=
  13727   <none>
  13728   Searchable ? N 
  13729   =+=+=+=
  13730            S qlType "1"
  13731            P recision " 1"
  13732            S cale "0"
  13733            N ullable "0 "
  13734            K eyPosition  "0"
  13735            D isplaySize  "1"
  13736            D erivation  "BusRls.is _current"
  13737            G roup "0"
  13738            P arsedDeriv ation "Bus Rls.is_cur rent"
  13739            S ourceColum n "BusRls. is_current "
  13740            S ortKey "0"
  13741            S ortType "0 "
  13742            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  13743            A llowCRLF " 0"
  13744            L evelNo "0"
  13745            O ccurs "0"
  13746            P adNulls "0 "
  13747            S ignOption  "0"
  13748            S ortingOrde r "0"
  13749            A rrayHandli ng "0"
  13750            S yncIndicat or "0"
  13751            P adChar ""
  13752            C olumnRefer ence "is_c urrent"
  13753            E xtendedPre cision "0"
  13754            T aggedSubre c "0"
  13755            O ccursVaryi ng "0"
  13756            P KeyIsCasel ess "0"
  13757            S CDPurpose  "0"
  13758         END  DSSUBRECOR D
  13759         BEGI N DSSUBREC ORD
  13760            N ame "start _date"
  13761            D escription  =+=+=+=
  13762   <none>
  13763   Searchable ? N 
  13764   =+=+=+=
  13765            S qlType "9"
  13766            P recision " 10"
  13767            S cale "0"
  13768            N ullable "1 "
  13769            K eyPosition  "0"
  13770            D isplaySize  "10"
  13771            D erivation  "BusRls.st art_date"
  13772            G roup "0"
  13773            P arsedDeriv ation "Bus Rls.start_ date"
  13774            S ourceColum n "BusRls. start_date "
  13775            S ortKey "0"
  13776            S ortType "0 "
  13777            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  13778            A llowCRLF " 0"
  13779            L evelNo "0"
  13780            O ccurs "0"
  13781            P adNulls "0 "
  13782            S ignOption  "0"
  13783            S ortingOrde r "0"
  13784            A rrayHandli ng "0"
  13785            S yncIndicat or "0"
  13786            P adChar ""
  13787            C olumnRefer ence "star t_date"
  13788            A PTFieldPro p "null_fi eld=''"
  13789            E xtendedPre cision "0"
  13790            T aggedSubre c "0"
  13791            O ccursVaryi ng "0"
  13792            P KeyIsCasel ess "0"
  13793            S CDPurpose  "0"
  13794         END  DSSUBRECOR D
  13795         BEGI N DSSUBREC ORD
  13796            N ame "end_d ate"
  13797            D escription  =+=+=+=
  13798   <none>
  13799   Searchable ? N 
  13800   =+=+=+=
  13801            S qlType "9"
  13802            P recision " 10"
  13803            S cale "0"
  13804            N ullable "1 "
  13805            K eyPosition  "0"
  13806            D isplaySize  "10"
  13807            D erivation  "BusRls.en d_date"
  13808            G roup "0"
  13809            P arsedDeriv ation "Bus Rls.end_da te"
  13810            S ourceColum n "BusRls. end_date"
  13811            S ortKey "0"
  13812            S ortType "0 "
  13813            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  13814            A llowCRLF " 0"
  13815            L evelNo "0"
  13816            O ccurs "0"
  13817            P adNulls "0 "
  13818            S ignOption  "0"
  13819            S ortingOrde r "0"
  13820            A rrayHandli ng "0"
  13821            S yncIndicat or "0"
  13822            P adChar ""
  13823            C olumnRefer ence "end_ date"
  13824            A PTFieldPro p "null_fi eld=''"
  13825            E xtendedPre cision "0"
  13826            T aggedSubre c "0"
  13827            O ccursVaryi ng "0"
  13828            P KeyIsCasel ess "0"
  13829            S CDPurpose  "0"
  13830         END  DSSUBRECOR D
  13831         BEGI N DSSUBREC ORD
  13832            N ame "sourc e_system"
  13833            D escription  =+=+=+=
  13834   <none>
  13835   Searchable ? N 
  13836   =+=+=+=
  13837            S qlType "12 "
  13838            P recision " 20"
  13839            S cale "0"
  13840            N ullable "1 "
  13841            K eyPosition  "0"
  13842            D isplaySize  "20"
  13843            D erivation  "BusRls.so urce_syste m"
  13844            G roup "0"
  13845            P arsedDeriv ation "Bus Rls.source _system"
  13846            S ourceColum n "BusRls. source_sys tem"
  13847            S ortKey "0"
  13848            S ortType "0 "
  13849            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  13850            A llowCRLF " 0"
  13851            L evelNo "0"
  13852            O ccurs "0"
  13853            P adNulls "0 "
  13854            S ignOption  "0"
  13855            S ortingOrde r "0"
  13856            A rrayHandli ng "0"
  13857            S yncIndicat or "0"
  13858            P adChar ""
  13859            C olumnRefer ence "sour ce_system"
  13860            A PTFieldPro p "null_fi eld=''"
  13861            E xtendedPre cision "0"
  13862            T aggedSubre c "0"
  13863            O ccursVaryi ng "0"
  13864            P KeyIsCasel ess "0"
  13865            S CDPurpose  "0"
  13866         END  DSSUBRECOR D
  13867         BEGI N DSSUBREC ORD
  13868            N ame "sourc e_entity"
  13869            D escription  =+=+=+=
  13870   <none>
  13871   Searchable ? N 
  13872   =+=+=+=
  13873            S qlType "12 "
  13874            P recision " 50"
  13875            S cale "0"
  13876            N ullable "1 "
  13877            K eyPosition  "0"
  13878            D isplaySize  "50"
  13879            D erivation  "BusRls.so urce_entit y"
  13880            G roup "0"
  13881            P arsedDeriv ation "Bus Rls.source _entity"
  13882            S ourceColum n "BusRls. source_ent ity"
  13883            S ortKey "0"
  13884            S ortType "0 "
  13885            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  13886            A llowCRLF " 0"
  13887            L evelNo "0"
  13888            O ccurs "0"
  13889            P adNulls "0 "
  13890            S ignOption  "0"
  13891            S ortingOrde r "0"
  13892            A rrayHandli ng "0"
  13893            S yncIndicat or "0"
  13894            P adChar ""
  13895            C olumnRefer ence "sour ce_entity"
  13896            A PTFieldPro p "null_fi eld=''"
  13897            E xtendedPre cision "0"
  13898            T aggedSubre c "0"
  13899            O ccursVaryi ng "0"
  13900            P KeyIsCasel ess "0"
  13901            S CDPurpose  "0"
  13902         END  DSSUBRECOR D
  13903         BEGI N DSSUBREC ORD
  13904            N ame "etl_b atch_id"
  13905            D escription  =+=+=+=
  13906   <none>
  13907   Searchable ? N 
  13908   =+=+=+=
  13909            S qlType "12 "
  13910            P recision " 20"
  13911            S cale "0"
  13912            N ullable "1 "
  13913            K eyPosition  "0"
  13914            D isplaySize  "20"
  13915            D erivation  "BusRls.et l_batch_id "
  13916            G roup "0"
  13917            P arsedDeriv ation "Bus Rls.etl_ba tch_id"
  13918            S ourceColum n "BusRls. etl_batch_ id"
  13919            S ortKey "0"
  13920            S ortType "0 "
  13921            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  13922            A llowCRLF " 0"
  13923            L evelNo "0"
  13924            O ccurs "0"
  13925            P adNulls "0 "
  13926            S ignOption  "0"
  13927            S ortingOrde r "0"
  13928            A rrayHandli ng "0"
  13929            S yncIndicat or "0"
  13930            P adChar ""
  13931            C olumnRefer ence "etl_ batch_id"
  13932            A PTFieldPro p "null_fi eld=''"
  13933            E xtendedPre cision "0"
  13934            T aggedSubre c "0"
  13935            O ccursVaryi ng "0"
  13936            P KeyIsCasel ess "0"
  13937            S CDPurpose  "0"
  13938         END  DSSUBRECOR D
  13939         BEGI N DSSUBREC ORD
  13940            N ame "row_i d"
  13941            D escription  =+=+=+=
  13942   <none>
  13943   Searchable ? N 
  13944   =+=+=+=
  13945            S qlType "12 "
  13946            P recision " 20"
  13947            S cale "0"
  13948            N ullable "1 "
  13949            K eyPosition  "0"
  13950            D isplaySize  "20"
  13951            D erivation  "BusRls.ro w_id"
  13952            G roup "0"
  13953            P arsedDeriv ation "Bus Rls.row_id "
  13954            S ourceColum n "BusRls. row_id"
  13955            S ortKey "0"
  13956            S ortType "0 "
  13957            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  13958            A llowCRLF " 0"
  13959            L evelNo "0"
  13960            O ccurs "0"
  13961            P adNulls "0 "
  13962            S ignOption  "0"
  13963            S ortingOrde r "0"
  13964            A rrayHandli ng "0"
  13965            S yncIndicat or "0"
  13966            P adChar ""
  13967            C olumnRefer ence "row_ id"
  13968            A PTFieldPro p "null_fi eld=''"
  13969            E xtendedPre cision "0"
  13970            T aggedSubre c "0"
  13971            O ccursVaryi ng "0"
  13972            P KeyIsCasel ess "0"
  13973            S CDPurpose  "0"
  13974         END  DSSUBRECOR D
  13975         BEGI N DSSUBREC ORD
  13976            N ame "servi ce_line_nu mber"
  13977            S qlType "4"
  13978            P recision " 10"
  13979            S cale "0"
  13980            N ullable "1 "
  13981            K eyPosition  "0"
  13982            D isplaySize  "0"
  13983            D erivation  "BusRls.se rvice_line _number"
  13984            G roup "0"
  13985            P arsedDeriv ation "Bus Rls.servic e_line_num ber"
  13986            S ourceColum n "BusRls. service_li ne_number"
  13987            S ortKey "0"
  13988            S ortType "0 "
  13989            A llowCRLF " 0"
  13990            L evelNo "0"
  13991            O ccurs "0"
  13992            P adNulls "0 "
  13993            S ignOption  "0"
  13994            S ortingOrde r "0"
  13995            A rrayHandli ng "0"
  13996            S yncIndicat or "0"
  13997            P adChar ""
  13998            E xtendedPre cision "0"
  13999            T aggedSubre c "0"
  14000            O ccursVaryi ng "0"
  14001            P KeyIsCasel ess "0"
  14002            S CDPurpose  "0"
  14003         END  DSSUBRECOR D
  14004         Meta Bag "CMeta Property"
  14005         BEGI N DSSUBREC ORD
  14006            O wner "APT"
  14007            N ame "DiskW riteInc"
  14008            V alue "1048 576"
  14009         END  DSSUBRECOR D
  14010         BEGI N DSSUBREC ORD
  14011            O wner "APT"
  14012            N ame "BufFr eeRun"
  14013            V alue "50"
  14014         END  DSSUBRECOR D
  14015         BEGI N DSSUBREC ORD
  14016            O wner "APT"
  14017            N ame "MaxMe mBufSize"
  14018            V alue "3145 728"
  14019         END  DSSUBRECOR D
  14020         BEGI N DSSUBREC ORD
  14021            O wner "APT"
  14022            N ame "Queue UpperSize"
  14023            V alue "0"
  14024         END  DSSUBRECOR D
  14025         Left TextPos "4 26"
  14026         TopT extPos "24 0"
  14027         Link Minimised  "0"
  14028      END DSR ECORD
  14029      BEGIN D SRECORD
  14030         Iden tifier "V8 1S2"
  14031         OLET ype "CTran sformerSta ge"
  14032         Read only "0"
  14033         Name  "Xfm_BusR ulles"
  14034         Next ID "4"
  14035         Inpu tPins "V81 S2P3"
  14036         Outp utPins "V8 1S2P2"
  14037         Meta Bag "CMeta Property"
  14038         BEGI N DSSUBREC ORD
  14039            O wner "APT"
  14040            N ame "TrxGe nCode"
  14041            V alue =+=+= +=
  14042   //
  14043   // Generat ed file to  implement  the V81S2 _EDI837P_C LAIM_LINE_ DIAGNOSIS_ prep_Xfm_B usRulles t ransform o perator.
  14044   //
  14045  
  14046   // define  our input/ output lin k names
  14047   inputname  0 XfrmSrc;
  14048   outputname  0 BusRls;
  14049  
  14050   global {
  14051    // Job pa rameter de claration
  14052    string[]  BatchID;
  14053    string DS JobStartDa te;
  14054   }
  14055  
  14056   initialize  {
  14057    // define  our contr ol variabl es
  14058    int8 RowR ejected0;
  14059    int8 Null SetVar0;
  14060  
  14061    // declar e our inte rmediate v ariables f or this se ction (1)
  14062    string In terVar0_0;
  14063    string In terVar0_1;
  14064    string In terVar0_2;
  14065    string In terVar0_3;
  14066    string In terVar0_4;
  14067    string In terVar0_5;
  14068    string In terVar0_6;
  14069    int32 Int erVar0_7;
  14070    string In terVar0_8;
  14071    string In terVar0_9;
  14072    string In terVar0_11 ;
  14073    string In terVar0_12 ;
  14074    string In terVar0_13 ;
  14075    string In terVar0_14 ;
  14076    string In terVar0_15 ;
  14077    string In terVar0_16 ;
  14078    string In terVar0_17 ;
  14079    string In terVar0_18 ;
  14080    string In terVar0_19 ;
  14081  
  14082    // initia lise const ant values  which req uire conve rsion
  14083    InterVar0 _0 = "ST";
  14084    InterVar0 _1 = "CLM" ;
  14085    InterVar0 _2 = "";
  14086    InterVar0 _3 = "2300 ";
  14087    InterVar0 _4 = "REF" ;
  14088    InterVar0 _5 = "REF* D9";
  14089    InterVar0 _6 = "*";
  14090    InterVar0 _7 = "";
  14091    InterVar0 _8 = "2400 ";
  14092    InterVar0 _9 = "LX";
  14093    InterVar0 _11 = "HI" ;
  14094    InterVar0 _12 = ":";
  14095    InterVar0 _13 = "|";
  14096    InterVar0 _14 = "SV1 ";
  14097    InterVar0 _15 = "837 P";
  14098    InterVar0 _16 = "REF *F5";
  14099    InterVar0 _17 = "837 PX";
  14100    InterVar0 _18 = "Y";
  14101    InterVar0 _19 = "EDI ";
  14102    // Stage  variable d eclaration  and initi alisation
  14103    string St ageVar0_sv ClaimId;
  14104    StageVar0 _svClaimId  = "";
  14105    int32 Sta geVar0_svS erviceLine Number;
  14106    StageVar0 _svService LineNumber  = 0;
  14107    int32 Sta geVar0_svD iagnCodeLe n;
  14108    StageVar0 _svDiagnCo deLen = 0;
  14109    string St ageVar0_sv DiagnCodes All;
  14110    StageVar0 _svDiagnCo desAll = " ";
  14111    string St ageVar0_sv SegIdPrev;
  14112    StageVar0 _svSegIdPr ev = "";
  14113    string St ageVar0_sv DiagnQuali fs;
  14114    StageVar0 _svDiagnQu alifs = "" ;
  14115    string St ageVar0_sv DiagnCodes ;
  14116    StageVar0 _svDiagnCo des = "";
  14117    string St ageVar0_sv PointerOrd er;
  14118    StageVar0 _svPointer Order = "" ;
  14119    string St ageVar0_sv SourceEnti ty;
  14120    StageVar0 _svSourceE ntity = "" ;
  14121   }
  14122  
  14123   mainloop {
  14124  
  14125    // declar e our inte rmediate v ariables f or this se ction (2)
  14126    int32 Int erVar0_10;
  14127  
  14128    // evalua te the sta ge variabl es first
  14129    if (((Xfr mSrc.SEG = = InterVar 0_0) || (X frmSrc.SEG  == InterV ar0_1))) {
  14130     StageVar 0_svClaimI d = InterV ar0_2;
  14131    } else {
  14132     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_4))  && (XfrmS rc.SEG_CD  == InterVa r0_5))) {
  14133      StageVa r0_svClaim Id = subst ring_by_de limiter(Xf rmSrc.EDI8 37P , Inte rVar0_6 ,  3 , 1);
  14134     } else {
  14135      StageVa r0_svClaim Id = Stage Var0_svCla imId;
  14136     }
  14137     //;
  14138    }
  14139    //;
  14140    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  14141     StageVar 0_svServic eLineNumbe r = InterV ar0_7;
  14142    } else {
  14143     if (((Xf rmSrc.LOOP  == InterV ar0_8) &&  (XfrmSrc.S EG == Inte rVar0_9)))  {
  14144      InterVa r0_10 = su bstring_by _delimiter (XfrmSrc.E DI837P , I nterVar0_6  , 2 , 1);
  14145      StageVa r0_svServi ceLineNumb er = Inter Var0_10;
  14146     } else {
  14147      StageVa r0_svServi ceLineNumb er = Stage Var0_svSer viceLineNu mber;
  14148     }
  14149     //;
  14150    }
  14151    //;
  14152    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  14153     StageVar 0_svDiagnC odeLen = I nterVar0_7 ;
  14154    } else {
  14155     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_11) ) && (Stag eVar0_svSe gIdPrev !=  InterVar0 _11))) {
  14156      StageVa r0_svDiagn CodeLen =  string_len gth(XfrmSr c.EDI837P) ;
  14157     } else {
  14158      StageVa r0_svDiagn CodeLen =  StageVar0_ svDiagnCod eLen;
  14159     }
  14160     //;
  14161    }
  14162    //;
  14163    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  14164     StageVar 0_svDiagnC odesAll =  InterVar0_ 2;
  14165    } else {
  14166     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_11) ) && (Stag eVar0_svSe gIdPrev !=  InterVar0 _11))) {
  14167      InterVa r0_10 = St ageVar0_sv DiagnCodeL en - 3;
  14168      StageVa r0_svDiagn CodesAll =  substring _1(XfrmSrc .EDI837P ,  4 , Inter Var0_10);
  14169     } else {
  14170      StageVa r0_svDiagn CodesAll =  StageVar0 _svDiagnCo desAll;
  14171     }
  14172     //;
  14173    }
  14174    //;
  14175    StageVar0 _svSegIdPr ev = subst ring_1(Xfr mSrc.EDI83 7P , 1 , 2 );
  14176    StageVar0 _svDiagnQu alifs = (( (((((((((( (((((((((( substring_ by_delimit er(substri ng_by_deli miter(Stag eVar0_svDi agnCodesAl l , InterV ar0_6 , 1  , 1) , Int erVar0_12  , 1 , 1) +  InterVar0 _13) + sub string_by_ delimiter( substring_ by_delimit er(StageVa r0_svDiagn CodesAll ,  InterVar0 _6 , 2 , 1 ) , InterV ar0_12 , 1  , 1)) + I nterVar0_1 3) + subst ring_by_de limiter(su bstring_by _delimiter (StageVar0 _svDiagnCo desAll , I nterVar0_6  , 3 , 1)  , InterVar 0_12 , 1 ,  1)) + Int erVar0_13)  + substri ng_by_deli miter(subs tring_by_d elimiter(S tageVar0_s vDiagnCode sAll , Int erVar0_6 ,  4 , 1) ,  InterVar0_ 12 , 1 , 1 )) + Inter Var0_13) +  substring _by_delimi ter(substr ing_by_del imiter(Sta geVar0_svD iagnCodesA ll , Inter Var0_6 , 5  , 1) , In terVar0_12  , 1 , 1))  + InterVa r0_13) + s ubstring_b y_delimite r(substrin g_by_delim iter(Stage Var0_svDia gnCodesAll  , InterVa r0_6 , 6 ,  1) , Inte rVar0_12 ,  1 , 1)) +  InterVar0 _13) + sub string_by_ delimiter( substring_ by_delimit er(StageVa r0_svDiagn CodesAll ,  InterVar0 _6 , 7 , 1 ) , InterV ar0_12 , 1  , 1)) + I nterVar0_1 3) + subst ring_by_de limiter(su bstring_by _delimiter (StageVar0 _svDiagnCo desAll , I nterVar0_6  , 8 , 1)  , InterVar 0_12 , 1 ,  1)) + Int erVar0_13)  + substri ng_by_deli miter(subs tring_by_d elimiter(S tageVar0_s vDiagnCode sAll , Int erVar0_6 ,  9 , 1) ,  InterVar0_ 12 , 1 , 1 )) + Inter Var0_13) +  substring _by_delimi ter(substr ing_by_del imiter(Sta geVar0_svD iagnCodesA ll , Inter Var0_6 , 1 0 , 1) , I nterVar0_1 2 , 1 , 1) ) + InterV ar0_13) +  substring_ by_delimit er(substri ng_by_deli miter(Stag eVar0_svDi agnCodesAl l , InterV ar0_6 , 11  , 1) , In terVar0_12  , 1 , 1))  + InterVa r0_13) + s ubstring_b y_delimite r(substrin g_by_delim iter(Stage Var0_svDia gnCodesAll  , InterVa r0_6 , 12  , 1) , Int erVar0_12  , 1 , 1));
  14177    StageVar0 _svDiagnCo des = (((( (((((((((( ((((((((su bstring_by _delimiter (substring _by_delimi ter(StageV ar0_svDiag nCodesAll  , InterVar 0_6 , 1 ,  1) , Inter Var0_12 ,  2 , 1) + I nterVar0_1 3) + subst ring_by_de limiter(su bstring_by _delimiter (StageVar0 _svDiagnCo desAll , I nterVar0_6  , 2 , 1)  , InterVar 0_12 , 2 ,  1)) + Int erVar0_13)  + substri ng_by_deli miter(subs tring_by_d elimiter(S tageVar0_s vDiagnCode sAll , Int erVar0_6 ,  3 , 1) ,  InterVar0_ 12 , 2 , 1 )) + Inter Var0_13) +  substring _by_delimi ter(substr ing_by_del imiter(Sta geVar0_svD iagnCodesA ll , Inter Var0_6 , 4  , 1) , In terVar0_12  , 2 , 1))  + InterVa r0_13) + s ubstring_b y_delimite r(substrin g_by_delim iter(Stage Var0_svDia gnCodesAll  , InterVa r0_6 , 5 ,  1) , Inte rVar0_12 ,  2 , 1)) +  InterVar0 _13) + sub string_by_ delimiter( substring_ by_delimit er(StageVa r0_svDiagn CodesAll ,  InterVar0 _6 , 6 , 1 ) , InterV ar0_12 , 2  , 1)) + I nterVar0_1 3) + subst ring_by_de limiter(su bstring_by _delimiter (StageVar0 _svDiagnCo desAll , I nterVar0_6  , 7 , 1)  , InterVar 0_12 , 2 ,  1)) + Int erVar0_13)  + substri ng_by_deli miter(subs tring_by_d elimiter(S tageVar0_s vDiagnCode sAll , Int erVar0_6 ,  8 , 1) ,  InterVar0_ 12 , 2 , 1 )) + Inter Var0_13) +  substring _by_delimi ter(substr ing_by_del imiter(Sta geVar0_svD iagnCodesA ll , Inter Var0_6 , 9  , 1) , In terVar0_12  , 2 , 1))  + InterVa r0_13) + s ubstring_b y_delimite r(substrin g_by_delim iter(Stage Var0_svDia gnCodesAll  , InterVa r0_6 , 10  , 1) , Int erVar0_12  , 2 , 1))  + InterVar 0_13) + su bstring_by _delimiter (substring _by_delimi ter(StageV ar0_svDiag nCodesAll  , InterVar 0_6 , 11 ,  1) , Inte rVar0_12 ,  2 , 1)) +  InterVar0 _13) + sub string_by_ delimiter( substring_ by_delimit er(StageVa r0_svDiagn CodesAll ,  InterVar0 _6 , 12 ,  1) , Inter Var0_12 ,  2 , 1));
  14178    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  14179     StageVar 0_svPointe rOrder = I nterVar0_2 ;
  14180    } else {
  14181     if (((Xf rmSrc.LOOP  == InterV ar0_8) &&  (XfrmSrc.S EG == Inte rVar0_14)) ) {
  14182      StageVa r0_svPoint erOrder =  substring_ by_delimit er(XfrmSrc .EDI837P ,  InterVar0 _6 , 8 , 1 );
  14183     } else {
  14184      StageVa r0_svPoint erOrder =  StageVar0_ svPointerO rder;
  14185     }
  14186     //;
  14187    }
  14188    //;
  14189    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  14190     StageVar 0_svSource Entity = I nterVar0_1 5;
  14191    } else {
  14192     if ((((X frmSrc.LOO P == Inter Var0_3) &&  (XfrmSrc. SEG == Int erVar0_4))  && (XfrmS rc.SEG_CD  == InterVa r0_16))) {
  14193      StageVa r0_svSourc eEntity =  InterVar0_ 17;
  14194     } else {
  14195      StageVa r0_svSourc eEntity =  StageVar0_ svSourceEn tity;
  14196     }
  14197     //;
  14198    }
  14199    //;
  14200  
  14201    // initia lise the r ejected ro w variable
  14202    RowReject ed0 = 1;
  14203  
  14204    // evalua te constra int and co lumns for  link: BusR ls
  14205    if ((Stag eVar0_svPo interOrder  != InterV ar0_2))
  14206    {
  14207     BusRls.c laim_id =  StageVar0_ svClaimId;
  14208     BusRls.d iagn_quali fs = Stage Var0_svDia gnQualifs;
  14209     BusRls.d iagn_codes  = StageVa r0_svDiagn Codes;
  14210     BusRls.p ointer_ord er_all = S tageVar0_s vPointerOr der;
  14211     BusRls.i s_current  = InterVar 0_18;
  14212     BusRls.s tart_date  = date_fro m_string(D SJobStartD ate);
  14213     BusRls.e nd_date =  set_null() ;
  14214     BusRls.s ource_syst em = Inter Var0_19;
  14215     BusRls.s ource_enti ty = Stage Var0_svSou rceEntity;
  14216     BusRls.e tl_batch_i d = BatchI D;
  14217     BusRls.r ow_id = Xf rmSrc.ST_N UM;
  14218     BusRls.s ervice_lin e_number =  StageVar0 _svService LineNumber ;
  14219     writerec ord 0;
  14220     RowRejec ted0 = 0;
  14221    }
  14222   }
  14223  
  14224   finish {
  14225   }
  14226  
  14227   =+=+=+=
  14228         END  DSSUBRECOR D
  14229         BEGI N DSSUBREC ORD
  14230            O wner "APT"
  14231            N ame "TrxGe nCache"
  14232            V alue "0"
  14233         END  DSSUBRECOR D
  14234         BEGI N DSSUBREC ORD
  14235            O wner "APT"
  14236            N ame "TrxCl assName"
  14237            V alue "V81S 2_EDI837P_ CLAIM_LINE _DIAGNOSIS _prep_Xfm_ BusRulles"
  14238         END  DSSUBRECOR D
  14239         BEGI N DSSUBREC ORD
  14240            O wner "APT"
  14241            N ame "JobPa rameterNam es"
  14242            V alue "Batc hID"
  14243         END  DSSUBRECOR D
  14244         BEGI N DSSUBREC ORD
  14245            O wner "APT"
  14246            N ame "TrxGe nWarnings"
  14247            V alue =+=+= +=
  14248   Xfm_BusRul les
  14249      WARNING : Error in  Stage Var iable deri vation exp ression fo r variable  svService LineNumber
  14250          - p otential d ata or pre cision los s converti ng from st ring to in t32
  14251          - p otential d ata or pre cision los s converti ng from st ring to in t32
  14252      WARNING : Error in  Stage Var iable deri vation exp ression fo r variable  svDiagnCo deLen. 
  14253          - p otential d ata or pre cision los s converti ng from st ring to in t32
  14254  
  14255   =+=+=+=
  14256         END  DSSUBRECOR D
  14257         Vali dationStat us "0"
  14258         Stag eType "CTr ansformerS tage"
  14259         Bloc kSize "0"
  14260         SKKe ySourceTyp e "file"
  14261         Stag eVars "CSt ageVar"
  14262         BEGI N DSSUBREC ORD
  14263            N ame "svCla imId"
  14264            E xpression  "If XfrmSr c.SEG='ST'  or  XfrmS rc.SEG='CL M' Then ''  Else If X frmSrc.LOO P='2300' a nd XfrmSrc .SEG='REF'  and XfrmS rc.SEG_CD  = 'REF*D9'  Then FIEL D(XfrmSrc. EDI837P, \ "*\", 3, 1 )  Else sv ClaimId"
  14265            S qlType "12 "
  14266            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  or XfrmSrc .SEG = 'CL M' Then ''  Else  If  XfrmSrc.LO OP = '2300 ' and Xfrm Src.SEG =  'REF' and  XfrmSrc.SE G_CD = 'RE F*D9' Then  FIELD(Xfr mSrc.EDI83 7P, \"*\",  3, 1) Els e svClaimI d"
  14267            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD;XfrmSrc .EDI837P"
  14268            S tageVars " svClaimId"
  14269            P recision " 20"
  14270            C olScale "0 "
  14271            E xtendedPre cision "0"
  14272         END  DSSUBRECOR D
  14273         BEGI N DSSUBREC ORD
  14274            N ame "svSer viceLineNu mber"
  14275            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2400' and  XfrmSrc.S EG='LX' Th en FIELD(X frmSrc.EDI 837P, \"*\ ", 2, 1)   Else svSer viceLineNu mber"
  14276            S qlType "4"
  14277            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2400' a nd XfrmSrc .SEG = 'LX ' Then FIE LD(XfrmSrc .EDI837P,  \"*\", 2,  1) Else sv ServiceLin eNumber"
  14278            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  14279            S tageVars " svServiceL ineNumber"
  14280            P recision " 10"
  14281            C olScale "0 "
  14282            E xtendedPre cision "0"
  14283         END  DSSUBRECOR D
  14284         BEGI N DSSUBREC ORD
  14285            N ame "svDia gnCodeLen"
  14286            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'    and svSegI dPrev <> ' HI'  Then  Len(XfrmSr c.EDI837P)  Else svDi agnCodeLen "
  14287            S qlType "4"
  14288            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' and svSe gIdPrev <>  'HI' Then  Len(XfrmS rc.EDI837P ) Else svD iagnCodeLe n"
  14289            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  14290            S tageVars " svSegIdPre v;svDiagnC odeLen"
  14291            P recision " 10"
  14292            C olScale "0 "
  14293            E xtendedPre cision "0"
  14294         END  DSSUBRECOR D
  14295         BEGI N DSSUBREC ORD
  14296            N ame "svDia gnCodesAll "
  14297            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'  a nd svSegId Prev <> 'H I' Then Xf rmSrc.EDI8 37P[4, svD iagnCodeLe n - 3] Els e svDiagnC odesAll"
  14298            S qlType "12 "
  14299            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' and svSe gIdPrev <>  'HI' Then  XfrmSrc.E DI837P[4,  svDiagnCod eLen - 3]  Else svDia gnCodesAll "
  14300            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  14301            S tageVars " svSegIdPre v;svDiagnC odeLen;svD iagnCodesA ll"
  14302            P recision " 200"
  14303            C olScale "0 "
  14304            E xtendedPre cision "0"
  14305         END  DSSUBRECOR D
  14306         BEGI N DSSUBREC ORD
  14307            N ame "svSeg IdPrev"
  14308            E xpression  "XfrmSrc.E DI837P[1,  2]"
  14309            S qlType "12 "
  14310            P arsedExpre ssion "Xfr mSrc.EDI83 7P[1, 2]"
  14311            S ourceColum n "XfrmSrc .EDI837P"
  14312            P recision " 2"
  14313            C olScale "0 "
  14314            E xtendedPre cision "0"
  14315         END  DSSUBRECOR D
  14316         BEGI N DSSUBREC ORD
  14317            N ame "svDia gnQualifs"
  14318            E xpression  "FIELD(FIE LD(svDiagn CodesAll,  \"*\", 1,  1) , \":\"  ,1,1) : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  2, 1) , \ ":\" ,1,1)   : '|' :  FIELD(FIEL D(svDiagnC odesAll, \ "*\", 3, 1 ) , \":\"  ,1,1)  : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  4, 1) , \ ":\" ,1,1)   : '|' :  FIELD(FIEL D(svDiagnC odesAll, \ "*\", 5, 1 ) , \":\"  ,1,1)  : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  6, 1) , \ ":\" ,1,1)   : '|' :  FIELD(FIEL D(svDiagnC odesAll, \ "*\", 7, 1 ) , \":\"  ,1,1)  : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  8, 1) , \ ":\" ,1,1)  : '|' : F IELD(FIELD (svDiagnCo desAll, \" *\", 9, 1)  , \":\" , 1,1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 0, 1) , \" :\" ,1,1)  : '|' : FI ELD(FIELD( svDiagnCod esAll, \"* \", 11, 1)  , \":\" , 1,1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 2, 1) , \" :\" ,1,1)  "
  14319            S qlType "12 "
  14320            P arsedExpre ssion "FIE LD(FIELD(s vDiagnCode sAll, \"*\ ", 1, 1),  \":\", 1,  1) : '|' :  FIELD(FIE LD(svDiagn CodesAll,  \"*\", 2,  1), \":\",  1, 1) : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  3, 1), \" :\", 1, 1)  : '|' : F IELD(FIELD (svDiagnCo desAll, \" *\", 4, 1) , \":\", 1 , 1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 5 , 1), \":\ ", 1, 1) :  '|' : FIE LD(FIELD(s vDiagnCode sAll, \"*\ ", 6, 1),  \":\", 1,  1) : '|' :  FIELD(FIE LD(svDiagn CodesAll,  \"*\", 7,  1), \":\",  1, 1) : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  8, 1), \" :\", 1, 1)  : '|' : F IELD(FIELD (svDiagnCo desAll, \" *\", 9, 1) , \":\", 1 , 1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 0, 1), \": \", 1, 1)  : '|' : FI ELD(FIELD( svDiagnCod esAll, \"* \", 11, 1) , \":\", 1 , 1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 2, 1), \": \", 1, 1)"
  14321            S tageVars " svDiagnCod esAll"
  14322            P recision " 200"
  14323            C olScale "0 "
  14324            E xtendedPre cision "0"
  14325         END  DSSUBRECOR D
  14326         BEGI N DSSUBREC ORD
  14327            N ame "svDia gnCodes"
  14328            E xpression  "FIELD(FIE LD(svDiagn CodesAll,  \"*\", 1,  1) , \":\"  ,2,1) : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  2, 1) , \ ":\" ,2,1)   : '|' :  FIELD(FIEL D(svDiagnC odesAll, \ "*\", 3, 1 ) , \":\"  ,2,1)  : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  4, 1) , \ ":\" ,2,1)   : '|' :  FIELD(FIEL D(svDiagnC odesAll, \ "*\", 5, 1 ) , \":\"  ,2,1)  : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  6, 1) , \ ":\" ,2,1)   : '|' :  FIELD(FIEL D(svDiagnC odesAll, \ "*\", 7, 1 ) , \":\"  ,2,1)  : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  8, 1) , \ ":\" ,2,1)  : '|' : F IELD(FIELD (svDiagnCo desAll, \" *\", 9, 1)  , \":\" , 2,1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 0, 1) , \" :\" ,2,1)  : '|' : FI ELD(FIELD( svDiagnCod esAll, \"* \", 11, 1)  , \":\" , 2,1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 2, 1) , \" :\" ,2,1)  "
  14329            S qlType "12 "
  14330            P arsedExpre ssion "FIE LD(FIELD(s vDiagnCode sAll, \"*\ ", 1, 1),  \":\", 2,  1) : '|' :  FIELD(FIE LD(svDiagn CodesAll,  \"*\", 2,  1), \":\",  2, 1) : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  3, 1), \" :\", 2, 1)  : '|' : F IELD(FIELD (svDiagnCo desAll, \" *\", 4, 1) , \":\", 2 , 1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 5 , 1), \":\ ", 2, 1) :  '|' : FIE LD(FIELD(s vDiagnCode sAll, \"*\ ", 6, 1),  \":\", 2,  1) : '|' :  FIELD(FIE LD(svDiagn CodesAll,  \"*\", 7,  1), \":\",  2, 1) : ' |' : FIELD (FIELD(svD iagnCodesA ll, \"*\",  8, 1), \" :\", 2, 1)  : '|' : F IELD(FIELD (svDiagnCo desAll, \" *\", 9, 1) , \":\", 2 , 1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 0, 1), \": \", 2, 1)  : '|' : FI ELD(FIELD( svDiagnCod esAll, \"* \", 11, 1) , \":\", 2 , 1) : '|'  : FIELD(F IELD(svDia gnCodesAll , \"*\", 1 2, 1), \": \", 2, 1)"
  14331            S tageVars " svDiagnCod esAll"
  14332            P recision " 200"
  14333            C olScale "0 "
  14334            E xtendedPre cision "0"
  14335         END  DSSUBRECOR D
  14336         BEGI N DSSUBREC ORD
  14337            N ame "svPoi nterOrder"
  14338            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2400' and  XfrmSrc.S EG='SV1'   Then FIELD (XfrmSrc.E DI837P, \" *\", 8, 1)   Else svP ointerOrde r"
  14339            S qlType "12 "
  14340            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2400' a nd XfrmSrc .SEG = 'SV 1' Then FI ELD(XfrmSr c.EDI837P,  \"*\", 8,  1) Else s vPointerOr der"
  14341            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  14342            S tageVars " svPointerO rder"
  14343            P recision " 100"
  14344            C olScale "0 "
  14345            E xtendedPre cision "0"
  14346         END  DSSUBRECOR D
  14347         BEGI N DSSUBREC ORD
  14348            N ame "svSou rceEntity"
  14349            E xpression  =+=+=+=
  14350   If XfrmSrc .SEG = 'ST ' Then  '8 37P' Else  If XfrmSrc .LOOP= '23 00' And Xf rmSrc.SEG  = "REF" An d XfrmSrc. SEG_CD = ' REF*F5' Th en '837PX'  Else 
  14351  
  14352   svSourceEn tity
  14353   =+=+=+=
  14354            S qlType "12 "
  14355            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '837P ' Else  If  XfrmSrc.L OOP = '230 0' And Xfr mSrc.SEG =  \"REF\" A nd XfrmSrc .SEG_CD =  'REF*F5' T hen '837PX ' Else svS ourceEntit y"
  14356            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD"
  14357            S tageVars " svSourceEn tity"
  14358            P recision " 50"
  14359            C olScale "0 "
  14360            E xtendedPre cision "0"
  14361         END  DSSUBRECOR D
  14362         Stag eVarsMinim ised "0"
  14363         Loop VarsMaximi sed "0"
  14364         MaxL oopIterati ons "0"
  14365      END DSR ECORD
  14366      BEGIN D SRECORD
  14367         Iden tifier "V8 1S2P2"
  14368         OLET ype "CTrxO utput"
  14369         Read only "0"
  14370         Name  "BusRls"
  14371         Part ner "V81S0 |V81S0P1"
  14372         Cons traint "sv PointerOrd er <> \"\" "
  14373         Reje ct "0"
  14374         Erro rPin "0"
  14375         RowL imit "0"
  14376         Pars edConstrai nt "svPoin terOrder < > \"\""
  14377         Colu mns "COutp utColumn"
  14378         BEGI N DSSUBREC ORD
  14379            N ame "claim _id"
  14380            S qlType "12 "
  14381            P recision " 20"
  14382            S cale "0"
  14383            N ullable "1 "
  14384            K eyPosition  "0"
  14385            D isplaySize  "0"
  14386            D erivation  "svClaimId "
  14387            G roup "0"
  14388            P arsedDeriv ation "svC laimId"
  14389            S ortKey "0"
  14390            S ortType "0 "
  14391            A llowCRLF " 0"
  14392            L evelNo "0"
  14393            O ccurs "0"
  14394            P adNulls "0 "
  14395            S ignOption  "0"
  14396            S ortingOrde r "0"
  14397            S tageVars " svClaimId"
  14398            A rrayHandli ng "0"
  14399            S yncIndicat or "0"
  14400            P adChar ""
  14401            E xtendedPre cision "0"
  14402            T aggedSubre c "0"
  14403            O ccursVaryi ng "0"
  14404            P KeyIsCasel ess "0"
  14405            S CDPurpose  "0"
  14406         END  DSSUBRECOR D
  14407         BEGI N DSSUBREC ORD
  14408            N ame "diagn _qualifs"
  14409            S qlType "12 "
  14410            P recision " 200"
  14411            S cale "0"
  14412            N ullable "1 "
  14413            K eyPosition  "0"
  14414            D isplaySize  "0"
  14415            D erivation  "svDiagnQu alifs"
  14416            G roup "0"
  14417            P arsedDeriv ation "svD iagnQualif s"
  14418            S ortKey "0"
  14419            S ortType "0 "
  14420            A llowCRLF " 0"
  14421            L evelNo "0"
  14422            O ccurs "0"
  14423            P adNulls "0 "
  14424            S ignOption  "0"
  14425            S ortingOrde r "0"
  14426            S tageVars " svDiagnQua lifs"
  14427            A rrayHandli ng "0"
  14428            S yncIndicat or "0"
  14429            P adChar ""
  14430            E xtendedPre cision "0"
  14431            T aggedSubre c "0"
  14432            O ccursVaryi ng "0"
  14433            P KeyIsCasel ess "0"
  14434            S CDPurpose  "0"
  14435         END  DSSUBRECOR D
  14436         BEGI N DSSUBREC ORD
  14437            N ame "diagn _codes"
  14438            S qlType "12 "
  14439            P recision " 200"
  14440            S cale "0"
  14441            N ullable "1 "
  14442            K eyPosition  "0"
  14443            D isplaySize  "0"
  14444            D erivation  "svDiagnCo des"
  14445            G roup "0"
  14446            P arsedDeriv ation "svD iagnCodes"
  14447            S ortKey "0"
  14448            S ortType "0 "
  14449            A llowCRLF " 0"
  14450            L evelNo "0"
  14451            O ccurs "0"
  14452            P adNulls "0 "
  14453            S ignOption  "0"
  14454            S ortingOrde r "0"
  14455            S tageVars " svDiagnCod es"
  14456            A rrayHandli ng "0"
  14457            S yncIndicat or "0"
  14458            P adChar ""
  14459            E xtendedPre cision "0"
  14460            T aggedSubre c "0"
  14461            O ccursVaryi ng "0"
  14462            P KeyIsCasel ess "0"
  14463            S CDPurpose  "0"
  14464         END  DSSUBRECOR D
  14465         BEGI N DSSUBREC ORD
  14466            N ame "point er_order_a ll"
  14467            D escription  =+=+=+=
  14468   <none>
  14469   Searchable ? N 
  14470   =+=+=+=
  14471            S qlType "12 "
  14472            P recision " 100"
  14473            S cale "0"
  14474            N ullable "1 "
  14475            K eyPosition  "0"
  14476            D isplaySize  "11"
  14477            D erivation  "svPointer Order"
  14478            G roup "0"
  14479            P arsedDeriv ation "svP ointerOrde r"
  14480            S ortKey "0"
  14481            S ortType "0 "
  14482            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _DIAGNOSIS "
  14483            A llowCRLF " 0"
  14484            L evelNo "0"
  14485            O ccurs "0"
  14486            P adNulls "0 "
  14487            S ignOption  "0"
  14488            S ortingOrde r "0"
  14489            S tageVars " svPointerO rder"
  14490            A rrayHandli ng "0"
  14491            S yncIndicat or "0"
  14492            P adChar ""
  14493            C olumnRefer ence "poin ter_order"
  14494            A PTFieldPro p "quote=n one, null_ field=''"
  14495            E xtendedPre cision "0"
  14496            T aggedSubre c "0"
  14497            O ccursVaryi ng "0"
  14498            P KeyIsCasel ess "0"
  14499            S CDPurpose  "0"
  14500         END  DSSUBRECOR D
  14501         BEGI N DSSUBREC ORD
  14502            N ame "is_cu rrent"
  14503            D escription  =+=+=+=
  14504   <none>
  14505   Searchable ? N 
  14506   =+=+=+=
  14507            S qlType "1"
  14508            P recision " 1"
  14509            S cale "0"
  14510            N ullable "0 "
  14511            K eyPosition  "0"
  14512            D isplaySize  "1"
  14513            D erivation  "'Y'"
  14514            G roup "0"
  14515            P arsedDeriv ation "'Y' "
  14516            S ortKey "0"
  14517            S ortType "0 "
  14518            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  14519            A llowCRLF " 0"
  14520            L evelNo "0"
  14521            O ccurs "0"
  14522            P adNulls "0 "
  14523            S ignOption  "0"
  14524            S ortingOrde r "0"
  14525            A rrayHandli ng "0"
  14526            S yncIndicat or "0"
  14527            P adChar ""
  14528            C olumnRefer ence "is_c urrent"
  14529            E xtendedPre cision "0"
  14530            T aggedSubre c "0"
  14531            O ccursVaryi ng "0"
  14532            P KeyIsCasel ess "0"
  14533            S CDPurpose  "0"
  14534         END  DSSUBRECOR D
  14535         BEGI N DSSUBREC ORD
  14536            N ame "start _date"
  14537            D escription  =+=+=+=
  14538   <none>
  14539   Searchable ? N 
  14540   =+=+=+=
  14541            S qlType "9"
  14542            P recision " 10"
  14543            S cale "0"
  14544            N ullable "1 "
  14545            K eyPosition  "0"
  14546            D isplaySize  "10"
  14547            D erivation  "DSJobStar tDate"
  14548            G roup "0"
  14549            P arsedDeriv ation "DSJ obStartDat e"
  14550            S ortKey "0"
  14551            S ortType "0 "
  14552            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  14553            A llowCRLF " 0"
  14554            L evelNo "0"
  14555            O ccurs "0"
  14556            P adNulls "0 "
  14557            S ignOption  "0"
  14558            S ortingOrde r "0"
  14559            A rrayHandli ng "0"
  14560            S yncIndicat or "0"
  14561            P adChar ""
  14562            C olumnRefer ence "star t_date"
  14563            A PTFieldPro p "null_fi eld=''"
  14564            E xtendedPre cision "0"
  14565            T aggedSubre c "0"
  14566            O ccursVaryi ng "0"
  14567            P KeyIsCasel ess "0"
  14568            S CDPurpose  "0"
  14569         END  DSSUBRECOR D
  14570         BEGI N DSSUBREC ORD
  14571            N ame "end_d ate"
  14572            D escription  =+=+=+=
  14573   <none>
  14574   Searchable ? N 
  14575   =+=+=+=
  14576            S qlType "9"
  14577            P recision " 10"
  14578            S cale "0"
  14579            N ullable "1 "
  14580            K eyPosition  "0"
  14581            D isplaySize  "10"
  14582            D erivation  "SetNull() "
  14583            G roup "0"
  14584            P arsedDeriv ation "Set Null()"
  14585            S ortKey "0"
  14586            S ortType "0 "
  14587            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  14588            A llowCRLF " 0"
  14589            L evelNo "0"
  14590            O ccurs "0"
  14591            P adNulls "0 "
  14592            S ignOption  "0"
  14593            S ortingOrde r "0"
  14594            A rrayHandli ng "0"
  14595            S yncIndicat or "0"
  14596            P adChar ""
  14597            C olumnRefer ence "end_ date"
  14598            A PTFieldPro p "null_fi eld=''"
  14599            E xtendedPre cision "0"
  14600            T aggedSubre c "0"
  14601            O ccursVaryi ng "0"
  14602            P KeyIsCasel ess "0"
  14603            S CDPurpose  "0"
  14604         END  DSSUBRECOR D
  14605         BEGI N DSSUBREC ORD
  14606            N ame "sourc e_system"
  14607            D escription  =+=+=+=
  14608   <none>
  14609   Searchable ? N 
  14610   =+=+=+=
  14611            S qlType "12 "
  14612            P recision " 20"
  14613            S cale "0"
  14614            N ullable "1 "
  14615            K eyPosition  "0"
  14616            D isplaySize  "20"
  14617            D erivation  "'EDI'"
  14618            G roup "0"
  14619            P arsedDeriv ation "'ED I'"
  14620            S ortKey "0"
  14621            S ortType "0 "
  14622            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  14623            A llowCRLF " 0"
  14624            L evelNo "0"
  14625            O ccurs "0"
  14626            P adNulls "0 "
  14627            S ignOption  "0"
  14628            S ortingOrde r "0"
  14629            A rrayHandli ng "0"
  14630            S yncIndicat or "0"
  14631            P adChar ""
  14632            C olumnRefer ence "sour ce_system"
  14633            A PTFieldPro p "null_fi eld=''"
  14634            E xtendedPre cision "0"
  14635            T aggedSubre c "0"
  14636            O ccursVaryi ng "0"
  14637            P KeyIsCasel ess "0"
  14638            S CDPurpose  "0"
  14639         END  DSSUBRECOR D
  14640         BEGI N DSSUBREC ORD
  14641            N ame "sourc e_entity"
  14642            D escription  =+=+=+=
  14643   <none>
  14644   Searchable ? N 
  14645   =+=+=+=
  14646            S qlType "12 "
  14647            P recision " 50"
  14648            S cale "0"
  14649            N ullable "1 "
  14650            K eyPosition  "0"
  14651            D isplaySize  "50"
  14652            D erivation  "svSourceE ntity"
  14653            G roup "0"
  14654            P arsedDeriv ation "svS ourceEntit y"
  14655            S ortKey "0"
  14656            S ortType "0 "
  14657            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  14658            A llowCRLF " 0"
  14659            L evelNo "0"
  14660            O ccurs "0"
  14661            P adNulls "0 "
  14662            S ignOption  "0"
  14663            S ortingOrde r "0"
  14664            S tageVars " svSourceEn tity"
  14665            A rrayHandli ng "0"
  14666            S yncIndicat or "0"
  14667            P adChar ""
  14668            C olumnRefer ence "sour ce_entity"
  14669            A PTFieldPro p "null_fi eld=''"
  14670            E xtendedPre cision "0"
  14671            T aggedSubre c "0"
  14672            O ccursVaryi ng "0"
  14673            P KeyIsCasel ess "0"
  14674            S CDPurpose  "0"
  14675         END  DSSUBRECOR D
  14676         BEGI N DSSUBREC ORD
  14677            N ame "etl_b atch_id"
  14678            D escription  =+=+=+=
  14679   <none>
  14680   Searchable ? N 
  14681   =+=+=+=
  14682            S qlType "12 "
  14683            P recision " 20"
  14684            S cale "0"
  14685            N ullable "1 "
  14686            K eyPosition  "0"
  14687            D isplaySize  "20"
  14688            D erivation  "BatchID"
  14689            G roup "0"
  14690            P arsedDeriv ation "Bat chID"
  14691            S ortKey "0"
  14692            S ortType "0 "
  14693            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_CLA IM"
  14694            A llowCRLF " 0"
  14695            L evelNo "0"
  14696            O ccurs "0"
  14697            P adNulls "0 "
  14698            S ignOption  "0"
  14699            S ortingOrde r "0"
  14700            A rrayHandli ng "0"
  14701            S yncIndicat or "0"
  14702            P adChar ""
  14703            C olumnRefer ence "etl_ batch_id"
  14704            A PTFieldPro p "null_fi eld=''"
  14705            E xtendedPre cision "0"
  14706            T aggedSubre c "0"
  14707            O ccursVaryi ng "0"
  14708            P KeyIsCasel ess "0"
  14709            S CDPurpose  "0"
  14710         END  DSSUBRECOR D
  14711         BEGI N DSSUBREC ORD
  14712            N ame "row_i d"
  14713            D escription  =+=+=+=
  14714   <none>
  14715   Searchable ? N 
  14716   =+=+=+=
  14717            S qlType "12 "
  14718            P recision " 20"
  14719            S cale "0"
  14720            N ullable "1 "
  14721            K eyPosition  "0"
  14722            D isplaySize  "20"
  14723            D erivation  "XfrmSrc.S T_NUM"
  14724            G roup "0"
  14725            P arsedDeriv ation "Xfr mSrc.ST_NU M"
  14726            S ourceColum n "XfrmSrc .ST_NUM"
  14727            S ortKey "0"
  14728            S ortType "0 "
  14729            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  14730            A llowCRLF " 0"
  14731            L evelNo "0"
  14732            O ccurs "0"
  14733            P adNulls "0 "
  14734            S ignOption  "0"
  14735            S ortingOrde r "0"
  14736            A rrayHandli ng "0"
  14737            S yncIndicat or "0"
  14738            P adChar ""
  14739            C olumnRefer ence "row_ id"
  14740            A PTFieldPro p "null_fi eld=''"
  14741            E xtendedPre cision "0"
  14742            T aggedSubre c "0"
  14743            O ccursVaryi ng "0"
  14744            P KeyIsCasel ess "0"
  14745            S CDPurpose  "0"
  14746         END  DSSUBRECOR D
  14747         BEGI N DSSUBREC ORD
  14748            N ame "servi ce_line_nu mber"
  14749            S qlType "4"
  14750            P recision " 10"
  14751            S cale "0"
  14752            N ullable "1 "
  14753            K eyPosition  "0"
  14754            D isplaySize  "0"
  14755            D erivation  "svService LineNumber "
  14756            G roup "0"
  14757            P arsedDeriv ation "svS erviceLine Number"
  14758            S ortKey "0"
  14759            S ortType "0 "
  14760            A llowCRLF " 0"
  14761            L evelNo "0"
  14762            O ccurs "0"
  14763            P adNulls "0 "
  14764            S ignOption  "0"
  14765            S ortingOrde r "0"
  14766            S tageVars " svServiceL ineNumber"
  14767            A rrayHandli ng "0"
  14768            S yncIndicat or "0"
  14769            P adChar ""
  14770            E xtendedPre cision "0"
  14771            T aggedSubre c "0"
  14772            O ccursVaryi ng "0"
  14773            P KeyIsCasel ess "0"
  14774            S CDPurpose  "0"
  14775         END  DSSUBRECOR D
  14776         Meta Bag "CMeta Property"
  14777         BEGI N DSSUBREC ORD
  14778            O wner "APT"
  14779            N ame "DiskW riteInc"
  14780            V alue "1048 576"
  14781         END  DSSUBRECOR D
  14782         BEGI N DSSUBREC ORD
  14783            O wner "APT"
  14784            N ame "BufFr eeRun"
  14785            V alue "50"
  14786         END  DSSUBRECOR D
  14787         BEGI N DSSUBREC ORD
  14788            O wner "APT"
  14789            N ame "MaxMe mBufSize"
  14790            V alue "3145 728"
  14791         END  DSSUBRECOR D
  14792         BEGI N DSSUBREC ORD
  14793            O wner "APT"
  14794            N ame "Queue UpperSize"
  14795            V alue "0"
  14796         END  DSSUBRECOR D
  14797         BEGI N DSSUBREC ORD
  14798            O wner "APT"
  14799            N ame "Schem a"
  14800            V alue =+=+= +=
  14801   record
  14802   (
  14803     claim_id :nullable  string[max =20];
  14804     diagn_qu alifs:null able strin g[max=200] ;
  14805     diagn_co des:nullab le string[ max=200];
  14806     pointer_ order_all: nullable s tring[max= 100];
  14807     is_curre nt:string[ 1];
  14808     start_da te:nullabl e date;
  14809     end_date :nullable  date;
  14810     source_s ystem:null able strin g[max=20];
  14811     source_e ntity:null able strin g[max=50];
  14812     etl_batc h_id:nulla ble string [max=20];
  14813     row_id:n ullable st ring[max=2 0];
  14814     service_ line_numbe r:nullable  int32;
  14815   )
  14816   =+=+=+=
  14817         END  DSSUBRECOR D
  14818         BEGI N DSSUBREC ORD
  14819            O wner "APT"
  14820            N ame "SortO rderPreser ved"
  14821            V alue "1"
  14822         END  DSSUBRECOR D
  14823         Stag eVars "svP ointerOrde r"
  14824         Left TextPos "2 87"
  14825         TopT extPos "28 9"
  14826         Link Minimised  "0"
  14827      END DSR ECORD
  14828      BEGIN D SRECORD
  14829         Iden tifier "V8 1S2P3"
  14830         OLET ype "CTrxI nput"
  14831         Read only "0"
  14832         Name  "XfrmSrc"
  14833         Part ner "V130S 0|V130S0P2 "
  14834         Link Type "1"
  14835         Meta Bag "CMeta Property"
  14836         BEGI N DSSUBREC ORD
  14837            O wner "APT"
  14838            N ame "RTCol umnProp"
  14839            V alue "0"
  14840         END  DSSUBRECOR D
  14841         BEGI N DSSUBREC ORD
  14842            O wner "APT"
  14843            N ame "Schem a"
  14844            V alue =+=+= +=
  14845   record
  14846   (
  14847     ROW_NUM: int32;
  14848     ST_NUM:s tring[max= 9];
  14849     LOOP:str ing[max=10 ];
  14850     SEG:stri ng[max=5];
  14851     SEG_CD:s tring[max= 20];
  14852     EDI837P: string[max =2000];
  14853     ETL_BATC H_ID:strin g[max=20];
  14854   )
  14855   =+=+=+=
  14856         END  DSSUBRECOR D
  14857         BEGI N DSSUBREC ORD
  14858            O wner "APT"
  14859            N ame "Part/ Col"
  14860            V alue "same "
  14861         END  DSSUBRECOR D
  14862         BEGI N DSSUBREC ORD
  14863            O wner "APT"
  14864            N ame "SortA dv"
  14865            V alue "-non Stable"
  14866         END  DSSUBRECOR D
  14867         BEGI N DSSUBREC ORD
  14868            O wner "APT"
  14869            N ame "SeqSo rt"
  14870            V alue "0"
  14871         END  DSSUBRECOR D
  14872         Mult iRow "0"
  14873         Link Minimised  "0"
  14874      END DSR ECORD
  14875   END DSJOB
  14876   BEGIN DSJO B
  14877      Identif ier "EDI83 7P_DIM_DIA GNOSIS_COD E_load"
  14878      DateMod ified "201 8-02-26"
  14879      TimeMod ified "11. 17.04"
  14880      BEGIN D SRECORD
  14881         Iden tifier "RO OT"
  14882         OLET ype "CJobD efn"
  14883         Read only "0"
  14884         Name  "EDI837P_ DIM_DIAGNO SIS_CODE_l oad"
  14885         Next ID "93"
  14886         Cont ainer "V0"
  14887         JobV ersion "56 .0.0"
  14888         Cont rolAfterSu br "0"
  14889         Para meters "CP arameters"
  14890         BEGI N DSSUBREC ORD
  14891            N ame "$SQL_ DB_UID"
  14892            P rompt "MSS QL DB User -id"
  14893            D efault "$P ROJDEF"
  14894            P aramType " 0"
  14895            P aramLength  "0"
  14896            P aramScale  "0"
  14897         END  DSSUBRECOR D
  14898         BEGI N DSSUBREC ORD
  14899            N ame "$SQL_ DB_PWD"
  14900            P rompt "MSS QL DB Pass word"
  14901            D efault "HD I@IJV8O9JN 064IL:JD1K 95"
  14902            P aramType " 1"
  14903            P aramLength  "0"
  14904            P aramScale  "0"
  14905         END  DSSUBRECOR D
  14906         BEGI N DSSUBREC ORD
  14907            N ame "$PROJ _DATA_DS"
  14908            P rompt "Pro ject Data  directory  (datasets) "
  14909            D efault "$P ROJDEF"
  14910            P aramType " 0"
  14911            P aramLength  "0"
  14912            P aramScale  "0"
  14913         END  DSSUBRECOR D
  14914         BEGI N DSSUBREC ORD
  14915            N ame "Batch ClaimType"
  14916            P rompt "Cla im Type"
  14917            P aramType " 0"
  14918            P aramLength  "0"
  14919            P aramScale  "0"
  14920         END  DSSUBRECOR D
  14921         BEGI N DSSUBREC ORD
  14922            N ame "$SQL_ DB"
  14923            P rompt "Dev elopment D atabase"
  14924            D efault "$P ROJDEF"
  14925            P aramType " 0"
  14926            P aramLength  "0"
  14927            P aramScale  "0"
  14928         END  DSSUBRECOR D
  14929         BEGI N DSSUBREC ORD
  14930            N ame "$SQL_ DB_DSN"
  14931            P rompt "MSS QL DB Data  Source Na me (DSN)"
  14932            D efault "$P ROJDEF"
  14933            P aramType " 0"
  14934            P aramLength  "0"
  14935            P aramScale  "0"
  14936         END  DSSUBRECOR D
  14937         Meta Bag "CMeta Property"
  14938         BEGI N DSSUBREC ORD
  14939            O wner "APT"
  14940            N ame "Advan cedRuntime Options"
  14941            V alue "#DSP rojectARTO ptions#"
  14942         END  DSSUBRECOR D
  14943         BEGI N DSSUBREC ORD
  14944            O wner "APT"
  14945            N ame "Trace Mode"
  14946            V alue "0"
  14947         END  DSSUBRECOR D
  14948         BEGI N DSSUBREC ORD
  14949            O wner "APT"
  14950            N ame "Trace Seq"
  14951            V alue "1"
  14952         END  DSSUBRECOR D
  14953         BEGI N DSSUBREC ORD
  14954            O wner "APT"
  14955            N ame "Trace Records"
  14956            V alue "100"
  14957         END  DSSUBRECOR D
  14958         BEGI N DSSUBREC ORD
  14959            O wner "APT"
  14960            N ame "Trace Skip"
  14961            V alue "0"
  14962         END  DSSUBRECOR D
  14963         BEGI N DSSUBREC ORD
  14964            O wner "APT"
  14965            N ame "Trace Period"
  14966            V alue "1"
  14967         END  DSSUBRECOR D
  14968         BEGI N DSSUBREC ORD
  14969            O wner "APT"
  14970            N ame "Recor dJobPerfor manceData"
  14971            V alue "0"
  14972         END  DSSUBRECOR D
  14973         BEGI N DSSUBREC ORD
  14974            O wner "APT"
  14975            N ame "Ident List"
  14976            V alue "Xfrm _01|insDIM _DIAGNOSIS _CODE"
  14977         END  DSSUBRECOR D
  14978         BEGI N DSSUBREC ORD
  14979            O wner "APT"
  14980            N ame "Clien tCodePage"
  14981            V alue "1252 "
  14982         END  DSSUBRECOR D
  14983         NULL IndicatorP osition "0 "
  14984         Orch estrateCod e =+=+=+=
  14985   #### STAGE : Xfrm_01. Out_Part
  14986   ## Operato r
  14987   same
  14988   ## General  options
  14989   [ident('Xf rm_01.Out_ Part')]
  14990   ## Inputs
  14991   0< [] 'Dim Diagnosis_ ds:Out.v'
  14992   ## Outputs
  14993   0> [] 'Dim Diagnosis_ ds:Out_Par t.v'
  14994   ;
  14995  
  14996   ########## ########## ########## ########## ########## ########## #####
  14997   #### STAGE : Xfrm_01
  14998   ## Operato r
  14999   transform
  15000   ## Operato r options
  15001   -flag run
  15002   -name 'V0S 9_EDI837P_ DIM_DIAGNO SIS_CODE_l oad_Xfrm_0 1'
  15003  
  15004   ## General  options
  15005   [ident('Xf rm_01'); j obmon_iden t('Xfrm_01 ')]
  15006   ## Inputs
  15007   0< [] 'Dim Diagnosis_ ds:Out_Par t.v'
  15008   ## Outputs
  15009   0> [] 'Xfr m_01:ins.v '
  15010   ;
  15011  
  15012   ########## ########## ########## ########## ########## ########## #####
  15013   #### STAGE : insDIM_D IAGNOSIS_C ODE
  15014   ## Operato r
  15015   pxbridge
  15016   ## Operato r options
  15017   -Orientati on link
  15018   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>2</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>8</P artitionTy pe><RCP ty pe=\\'int\ \'>0</RCP> </Common>< Connection ><DataSour ce modifie d=\\'1\\'  type=\\'st ring\\'><! [CDATA[[&" $SQL_DB_DS N"]]]></Da taSource>< Username m odified=\\ '1\\' type =\\'string \\'><![CDA TA[[&"$SQL _DB_UID"]] ]></Userna me><Passwo rd modifie d=\\'1\\'  type=\\'st ring\\'><! [CDATA[[&" $SQL_DB_PW D"]]]></Pa ssword></C onnection> <Usage><Wr iteMode mo dified=\\' 1\\' type= \\'int\\'> <![CDATA[0 ]]></Write Mode><Gene rateSQL mo dified=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Gene rateSQL><E nableQuote dIDs type= \\'bool\\' ><![CDATA[ 0]]></Enab leQuotedID s><SQL><In sertStatem ent collap sed=\\'1\\ ' modified =\\'1\\' t ype=\\'str ing\\'><![ CDATA[INSE RT INTO [& "$SQL_DB"] .dbo.DIM_D IAGNOSIS_C ODE ( 
  15019    diagnosis _code
  15020    ,is_curre nt
  15021    ,start_da te 
  15022    ,source_s ystem
  15023    ,source_e ntity
  15024    )
  15025   VALUES (
  15026   ORCHESTRAT E.diagnosi s_code
  15027   ,ORCHESTRA TE.is_curr ent
  15028   ,ORCHESTRA TE.start_d ate
  15029   ,ORCHESTRA TE.source_ system
  15030   ,ORCHESTRA TE.source_ entity
  15031   )]]><Table s collapse d=\\'1\\'> <Table typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB"].dbo .DIM_DIAGN OSIS_CODE] ]></Table> </Tables>< Parameters  collapsed =\\'1\\'>< Parameter  type=\\'st ring\\'><! [CDATA[dia gnosis_cod e,diagnosi s_code,DIM _DIAGNOSIS _CODE]]></ Parameter> <Parameter  type=\\'s tring\\'>< ![CDATA[is _current,i s_current, DIM_DIAGNO SIS_CODE]] ></Paramet er><Parame ter type=\ \'string\\ '><![CDATA [start_dat e,start_da te,DIM_DIA GNOSIS_COD E]]></Para meter><Par ameter typ e=\\'strin g\\'><![CD ATA[source _system,so urce_syste m,DIM_DIAG NOSIS_CODE ]]></Param eter><Para meter type =\\'string \\'><![CDA TA[source_ entity,sou rce_entity ,DIM_DIAGN OSIS_CODE] ]></Parame ter></Para meters></I nsertState ment></SQL ><TableAct ion collap sed=\\'1\\ ' type=\\' int\\'><![ CDATA[0]]> </TableAct ion><Trans action><Re cordCount  type=\\'in t\\'><![CD ATA[2000]] ></RecordC ount></Tra nsaction>< Session><I solationLe vel type=\ \'int\\'>< ![CDATA[1] ]></Isolat ionLevel>< Autocommit Mode modif ied=\\'1\\ ' type=\\' int\\'><![ CDATA[1]]> </Autocomm itMode><Ar raySize ty pe=\\'int\ \'><![CDAT A[2000]]>< /ArraySize ><SchemaRe conciliati on><FailOn SizeMismat ch type=\\ 'bool\\'>< ![CDATA[1] ]></FailOn SizeMismat ch><FailOn TypeMismat ch type=\\ 'bool\\'>< ![CDATA[1] ]></FailOn TypeMismat ch><FailOn CodePageMi smatch typ e=\\'bool\ \'><![CDAT A[0]]></Fa ilOnCodePa geMismatch ><DropUnma tchedField s type=\\' bool\\'><! [CDATA[1]] ></DropUnm atchedFiel ds></Schem aReconcili ation><Cod ePage coll apsed=\\'1 \\' type=\ \'int\\'>< ![CDATA[0] ]></CodePa ge><FailOn RowErrorPX  type=\\'b ool\\'><![ CDATA[1]]> </FailOnRo wErrorPX>< /Session>< Logging><L ogColumnVa lues colla psed=\\'1\ \' type=\\ 'bool\\'>< ![CDATA[0] ]></LogCol umnValues> </Logging> <BeforeAft er modifie d=\\'1\\'  type=\\'bo ol\\'><![C DATA[0]]>< /BeforeAft er></Usage ></Propert ies >'
  15032   -connector  '{
  15033      variant =\\'3.5\\'
  15034      library =ccodbc, 
  15035      version =1.0, 
  15036      variant list=\\'V1 ;3.5::ccod bc\\', 
  15037      version list=\\'1. 0\\', 
  15038      name=OD BCConnecto r
  15039   }'
  15040   -target 0  '{
  15041         DSDe scription= {diagnosis _code=\\'\ \<none\\>
  15042   Searchable \\? N \\'}
  15043         DSDi splayWidth ={diagnosi s_code=15}
  15044         DSSQ LType={dia gnosis_cod e=12, is_c urrent=1,  start_date =9, source _system=12 , source_e ntity=12},  
  15045         DSDe rivation={ diagnosis_ code=\\'Ou t\\.diagno ses_code\\ ', is_curr ent=\\'Out \\.is_curr ent\\', st art_date=\ \'Out\\.st art_date\\ ', source_ system=\\' Out\\.sour ce_system\ \', source _entity=\\ 'Out\\.sou rce_entity \\'}, 
  15046         DSSQ LPrecision ={diagnosi s_code=30,  is_curren t=1, start _date=10,  source_sys tem=20, so urce_entit y=50}, 
  15047         DSNa tiveType={ is_current =\\'pit_bo olean\\',  start_date =\\'pit_da te\\', sou rce_system =\\'varcha r\\'}, 
  15048         DSSc hema=\\'re cord
  15049            (
  15050               diagnosis _code\\:nu llable str ing\\[max\ \=30\\]\\;
  15051               is_curren t\\:string \\[1\\]\\;
  15052               start_dat e\\:nullab le date\\;
  15053               source_sy stem\\:nul lable stri ng\\[max\\ =20\\]\\;
  15054               source_en tity\\:nul lable stri ng\\[max\\ =50\\]\\;
  15055            ) \\'
  15056   }'
  15057      
  15058  
  15059   ## General  options
  15060   [ident('in sDIM_DIAGN OSIS_CODE' ); jobmon_ ident('ins DIM_DIAGNO SIS_CODE') ]
  15061   ## Inputs
  15062   0< [] 'Xfr m_01:ins.v '
  15063   ;
  15064  
  15065   ########## ########## ########## ########## ########## ########## #####
  15066   #### STAGE : DimDiagn osis_ds
  15067   ## Operato r
  15068   copy
  15069   ## General  options
  15070   [ident('Di mDiagnosis _ds')]
  15071   ## Inputs
  15072   0< [ds] '[ &"$PROJ_DA TA_DS"][&" BatchClaim Type"]_DIM _DIAGNOSIS _Ins.ds'
  15073   ## Outputs
  15074   0> [modify  (
  15075     DIAGNOSI S_key:not_ nullable i nt32=DIAGN OSIS_key;
  15076     diagnose s_code:nul lable stri ng[max=30] =diagnoses _code;
  15077     ICDVersi on:nullabl e string[m ax=15]=ICD Version;
  15078     is_curre nt:not_nul lable stri ng[1]=is_c urrent;
  15079     start_da te:nullabl e date=sta rt_date;
  15080     source_s ystem:null able strin g[max=20]= source_sys tem;
  15081     source_e ntity:null able strin g[max=50]= source_ent ity;
  15082     row_id:n ullable st ring[max=2 0]=row_id;
  15083   keep
  15084     DIAGNOSI S_key,diag noses_code ,ICDVersio n,is_curre nt,
  15085     start_da te,source_ system,sou rce_entity ,row_id;
  15086   )] 'DimDia gnosis_ds: Out.v'
  15087   ;
  15088  
  15089  
  15090   =+=+=+=
  15091         IsTe mplate "0"
  15092         NLSL ocale ",,, ,"
  15093         JobT ype "3"
  15094         Cate gory "\\Jo bs\\PIT\\C P&E_EDI\\L oad"
  15095         Cent uryBreakYe ar "30"
  15096         Next AliasID "2 "
  15097         Para meterFileD DName "DD0 0001"
  15098         Rese rvedWordCh eck "1"
  15099         Tran sactionSiz e "0"
  15100         Vali dationStat us "0"
  15101         Uplo adable "0"
  15102         PgmC ustomizati onFlag "0"
  15103         JobR eportFlag  "0"
  15104         Allo wMultipleI nvocations  "0"
  15105         Act2 ActOveride Defaults " 0"
  15106         Act2 ActEnableR owBuffer " 0"
  15107         Act2 ActUseIPC  "0"
  15108         Act2 ActBufferS ize "0"
  15109         Act2 ActIPCTime out "0"
  15110         Expr essionSema nticCheckF lag "0"
  15111         Trac eOption "0 "
  15112         Enab leCacheSha ring "0"
  15113         Runt imeColumnP ropagation  "0"
  15114         RelS tagesInJob Status "-1 "
  15115         WebS erviceEnab led "0"
  15116         MFPr ocessMetaD ata "0"
  15117         MFPr ocessMetaD ataXMLFile ExchangeMe thod "0"
  15118         IMSP rogType "0 "
  15119         Copy LibPrefix  "ARDT"
  15120         Reco rdPerforma nceResults  "0"
  15121      END DSR ECORD
  15122      BEGIN D SRECORD
  15123         Iden tifier "V0 "
  15124         OLET ype "CCont ainerView"
  15125         Read only "0"
  15126         Name  "Job"
  15127         Next ID "1"
  15128         IsTo pLevel "0"
  15129         Stag eList "V0S 9|V47S0|V9 2S0"
  15130         Stag eXPos "312 |672|48"
  15131         Stag eYPos "144 |168|168"
  15132         Stag eTypes "CT ransformer Stage|CCus tomStage.C C_GUI|CCus tomStage"
  15133         Next StageID "6 3"
  15134         Snap ToGrid "1"
  15135         Grid Lines "0"
  15136         Zoom Value "100 "
  15137         Stag eXSize "48 |48|45"
  15138         Stag eYSize "94 |48|48"
  15139         Cont ainerViewS izing "003 4 0050 087 5 0457 000 0 0001 000 6 0000"
  15140         Stag eNames "Xf rm_01|insD IM_DIAGNOS IS_CODE|Di mDiagnosis _ds"
  15141         Stag eTypeIDs " CTransform erStage|OD BCConnecto rPX|PxData Set"
  15142         Link Names "ins | |Out"
  15143         Link HasMetaDat as "True|  |True"
  15144         Link Types "1|  |1"
  15145         Link NamePositi onXs "412|  |187"
  15146         Link NamePositi onYs "176|  |192"
  15147         Targ etStageIDs  "V47S0| | V0S9"
  15148         Sour ceStageEff ectiveExec utionModes  "2| |2"
  15149         Sour ceStageRun timeExecut ionModes " 2| |2"
  15150         Targ etStageEff ectiveExec utionModes  "2| |2"
  15151         Targ etStageRun timeExecut ionModes " 2| |2"
  15152         Link IsSingleOp eratorLook up "False|  |False"
  15153         Link IsSortSequ ential "Fa lse| |Fals e"
  15154         Link SortMode " 0| |0"
  15155         Link PartColMod e "1| |8"
  15156         Link SourcePinI Ds "V0S9P2 2| |V92S0P 2"
  15157      END DSR ECORD
  15158      BEGIN D SRECORD
  15159         Iden tifier "V0 S9"
  15160         OLET ype "CTran sformerSta ge"
  15161         Read only "0"
  15162         Name  "Xfrm_01"
  15163         Next ID "28"
  15164         Inpu tPins "V0S 9P26"
  15165         Outp utPins "V0 S9P22"
  15166         Meta Bag "CMeta Property"
  15167         BEGI N DSSUBREC ORD
  15168            O wner "APT"
  15169            N ame "TrxGe nCode"
  15170            V alue =+=+= +=
  15171   //
  15172   // Generat ed file to  implement  the V0S9_ EDI837P_DI M_DIAGNOSI S_CODE_loa d_Xfrm_01  transform  operator.
  15173   //
  15174  
  15175   // define  our input/ output lin k names
  15176   inputname  0 Out;
  15177   outputname  0 ins;
  15178  
  15179   initialize  {
  15180    // define  our contr ol variabl es
  15181    int8 RowR ejected0;
  15182    int8 Null SetVar0;
  15183  
  15184   }
  15185  
  15186   mainloop {
  15187  
  15188    // initia lise the r ejected ro w variable
  15189    RowReject ed0 = 1;
  15190  
  15191    // evalua te columns  (no const raints) fo r link: in s
  15192    ins.diagn osis_code  = Out.diag noses_code ;
  15193    writereco rd 0;
  15194    RowReject ed0 = 0;
  15195   }
  15196  
  15197   finish {
  15198   }
  15199  
  15200   =+=+=+=
  15201         END  DSSUBRECOR D
  15202         BEGI N DSSUBREC ORD
  15203            O wner "APT"
  15204            N ame "TrxGe nCache"
  15205            V alue "0"
  15206         END  DSSUBRECOR D
  15207         BEGI N DSSUBREC ORD
  15208            O wner "APT"
  15209            N ame "TrxCl assName"
  15210            V alue "V0S9 _EDI837P_D IM_DIAGNOS IS_CODE_lo ad_Xfrm_01 "
  15211         END  DSSUBRECOR D
  15212         Vali dationStat us "0"
  15213         Stag eType "CTr ansformerS tage"
  15214         Bloc kSize "0"
  15215         SKKe ySourceTyp e "file"
  15216         Stag eVarsMinim ised "0"
  15217         Loop VarsMaximi sed "0"
  15218         MaxL oopIterati ons "0"
  15219      END DSR ECORD
  15220      BEGIN D SRECORD
  15221         Iden tifier "V0 S9P22"
  15222         OLET ype "CTrxO utput"
  15223         Read only "0"
  15224         Name  "ins"
  15225         Part ner "V47S0 |V47S0P5"
  15226         Reje ct "0"
  15227         Erro rPin "0"
  15228         RowL imit "0"
  15229         Colu mns "COutp utColumn"
  15230         BEGI N DSSUBREC ORD
  15231            N ame "diagn osis_code"
  15232            D escription  =+=+=+=
  15233   <none>
  15234   Searchable ? N 
  15235   =+=+=+=
  15236            S qlType "12 "
  15237            P recision " 30"
  15238            S cale "0"
  15239            N ullable "1 "
  15240            K eyPosition  "0"
  15241            D isplaySize  "15"
  15242            D erivation  "Out.diagn oses_code"
  15243            G roup "0"
  15244            P arsedDeriv ation "Out .diagnoses _code"
  15245            S ourceColum n "Out.dia gnoses_cod e"
  15246            S ortKey "0"
  15247            S ortType "0 "
  15248            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15249            A llowCRLF " 0"
  15250            L evelNo "0"
  15251            O ccurs "0"
  15252            P adNulls "0 "
  15253            S ignOption  "0"
  15254            S ortingOrde r "0"
  15255            A rrayHandli ng "0"
  15256            S yncIndicat or "0"
  15257            P adChar ""
  15258            C olumnRefer ence "diag noses_code "
  15259            A PTFieldPro p "null_fi eld=''"
  15260            E xtendedPre cision "0"
  15261            T aggedSubre c "0"
  15262            O ccursVaryi ng "0"
  15263            P KeyIsCasel ess "0"
  15264            S CDPurpose  "0"
  15265         END  DSSUBRECOR D
  15266         BEGI N DSSUBREC ORD
  15267            N ame "is_cu rrent"
  15268            S qlType "1"
  15269            P recision " 1"
  15270            S cale "0"
  15271            N ullable "0 "
  15272            K eyPosition  "0"
  15273            D isplaySize  "0"
  15274            D erivation  "Out.is_cu rrent"
  15275            G roup "0"
  15276            P arsedDeriv ation "Out .is_curren t"
  15277            S ourceColum n "Out.is_ current"
  15278            S ortKey "0"
  15279            S ortType "0 "
  15280            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15281            A llowCRLF " 0"
  15282            L evelNo "0"
  15283            N ativeType  "pit_boole an"
  15284            O ccurs "0"
  15285            P adNulls "0 "
  15286            S ignOption  "0"
  15287            S ortingOrde r "0"
  15288            A rrayHandli ng "0"
  15289            S yncIndicat or "0"
  15290            P adChar ""
  15291            C olumnRefer ence "is_c urrent"
  15292            E xtendedPre cision "0"
  15293            T aggedSubre c "0"
  15294            O ccursVaryi ng "0"
  15295            P KeyIsCasel ess "0"
  15296            S CDPurpose  "0"
  15297         END  DSSUBRECOR D
  15298         BEGI N DSSUBREC ORD
  15299            N ame "start _date"
  15300            S qlType "9"
  15301            P recision " 10"
  15302            S cale "0"
  15303            N ullable "1 "
  15304            K eyPosition  "0"
  15305            D isplaySize  "0"
  15306            D erivation  "Out.start _date"
  15307            G roup "0"
  15308            P arsedDeriv ation "Out .start_dat e"
  15309            S ourceColum n "Out.sta rt_date"
  15310            S ortKey "0"
  15311            S ortType "0 "
  15312            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15313            A llowCRLF " 0"
  15314            L evelNo "0"
  15315            N ativeType  "pit_date"
  15316            O ccurs "0"
  15317            P adNulls "0 "
  15318            S ignOption  "0"
  15319            S ortingOrde r "0"
  15320            A rrayHandli ng "0"
  15321            S yncIndicat or "0"
  15322            P adChar ""
  15323            C olumnRefer ence "star t_date"
  15324            E xtendedPre cision "0"
  15325            T aggedSubre c "0"
  15326            O ccursVaryi ng "0"
  15327            P KeyIsCasel ess "0"
  15328            S CDPurpose  "0"
  15329         END  DSSUBRECOR D
  15330         BEGI N DSSUBREC ORD
  15331            N ame "sourc e_system"
  15332            S qlType "12 "
  15333            P recision " 20"
  15334            S cale "0"
  15335            N ullable "1 "
  15336            K eyPosition  "0"
  15337            D isplaySize  "0"
  15338            D erivation  "Out.sourc e_system"
  15339            G roup "0"
  15340            P arsedDeriv ation "Out .source_sy stem"
  15341            S ourceColum n "Out.sou rce_system "
  15342            S ortKey "0"
  15343            S ortType "0 "
  15344            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15345            A llowCRLF " 0"
  15346            L evelNo "0"
  15347            N ativeType  "varchar"
  15348            O ccurs "0"
  15349            P adNulls "0 "
  15350            S ignOption  "0"
  15351            S ortingOrde r "0"
  15352            A rrayHandli ng "0"
  15353            S yncIndicat or "0"
  15354            P adChar ""
  15355            C olumnRefer ence "sour ce_system"
  15356            E xtendedPre cision "0"
  15357            T aggedSubre c "0"
  15358            O ccursVaryi ng "0"
  15359            P KeyIsCasel ess "0"
  15360            S CDPurpose  "0"
  15361         END  DSSUBRECOR D
  15362         BEGI N DSSUBREC ORD
  15363            N ame "sourc e_entity"
  15364            S qlType "12 "
  15365            P recision " 50"
  15366            S cale "0"
  15367            N ullable "1 "
  15368            K eyPosition  "0"
  15369            D isplaySize  "0"
  15370            D erivation  "Out.sourc e_entity"
  15371            G roup "0"
  15372            P arsedDeriv ation "Out .source_en tity"
  15373            S ourceColum n "Out.sou rce_entity "
  15374            S ortKey "0"
  15375            S ortType "0 "
  15376            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15377            A llowCRLF " 0"
  15378            L evelNo "0"
  15379            O ccurs "0"
  15380            P adNulls "0 "
  15381            S ignOption  "0"
  15382            S ortingOrde r "0"
  15383            A rrayHandli ng "0"
  15384            S yncIndicat or "0"
  15385            P adChar ""
  15386            C olumnRefer ence "sour ce_entity"
  15387            E xtendedPre cision "0"
  15388            T aggedSubre c "0"
  15389            O ccursVaryi ng "0"
  15390            P KeyIsCasel ess "0"
  15391            S CDPurpose  "0"
  15392         END  DSSUBRECOR D
  15393         Meta Bag "CMeta Property"
  15394         BEGI N DSSUBREC ORD
  15395            O wner "APT"
  15396            N ame "Schem a"
  15397            V alue =+=+= +=
  15398   record
  15399   (
  15400     diagnosi s_code:nul lable stri ng[max=30] ;
  15401     is_curre nt:string[ 1];
  15402     start_da te:nullabl e date;
  15403     source_s ystem:null able strin g[max=20];
  15404     source_e ntity:null able strin g[max=50];
  15405   )
  15406   =+=+=+=
  15407         END  DSSUBRECOR D
  15408         BEGI N DSSUBREC ORD
  15409            O wner "APT"
  15410            N ame "DiskW riteInc"
  15411            V alue "1048 576"
  15412         END  DSSUBRECOR D
  15413         BEGI N DSSUBREC ORD
  15414            O wner "APT"
  15415            N ame "BufFr eeRun"
  15416            V alue "50"
  15417         END  DSSUBRECOR D
  15418         BEGI N DSSUBREC ORD
  15419            O wner "APT"
  15420            N ame "MaxMe mBufSize"
  15421            V alue "3145 728"
  15422         END  DSSUBRECOR D
  15423         BEGI N DSSUBREC ORD
  15424            O wner "APT"
  15425            N ame "Queue UpperSize"
  15426            V alue "0"
  15427         END  DSSUBRECOR D
  15428         BEGI N DSSUBREC ORD
  15429            O wner "APT"
  15430            N ame "SortO rderPreser ved"
  15431            V alue "1"
  15432         END  DSSUBRECOR D
  15433         Left TextPos "4 12"
  15434         TopT extPos "17 6"
  15435         Link Minimised  "0"
  15436      END DSR ECORD
  15437      BEGIN D SRECORD
  15438         Iden tifier "V0 S9P26"
  15439         OLET ype "CTrxI nput"
  15440         Read only "0"
  15441         Name  "Out"
  15442         Part ner "V92S0 |V92S0P2"
  15443         Link Type "1"
  15444         Meta Bag "CMeta Property"
  15445         BEGI N DSSUBREC ORD
  15446            O wner "APT"
  15447            N ame "RTCol umnProp"
  15448            V alue "0"
  15449         END  DSSUBRECOR D
  15450         BEGI N DSSUBREC ORD
  15451            O wner "APT"
  15452            N ame "Schem a"
  15453            V alue =+=+= +=
  15454   record
  15455   (
  15456     DIAGNOSI S_key:int3 2;
  15457     diagnose s_code:nul lable stri ng[max=30] ;
  15458     ICDVersi on:nullabl e string[m ax=15];
  15459     is_curre nt:string[ 1];
  15460     start_da te:nullabl e date;
  15461     source_s ystem:null able strin g[max=20];
  15462     source_e ntity:null able strin g[max=50];
  15463     row_id:n ullable st ring[max=2 0];
  15464   )
  15465   =+=+=+=
  15466         END  DSSUBRECOR D
  15467         BEGI N DSSUBREC ORD
  15468            O wner "APT"
  15469            N ame "Part/ Col"
  15470            V alue "same "
  15471         END  DSSUBRECOR D
  15472         BEGI N DSSUBREC ORD
  15473            O wner "APT"
  15474            N ame "SortA dv"
  15475            V alue "-non Stable"
  15476         END  DSSUBRECOR D
  15477         BEGI N DSSUBREC ORD
  15478            O wner "APT"
  15479            N ame "SeqSo rt"
  15480            V alue "0"
  15481         END  DSSUBRECOR D
  15482         Mult iRow "0"
  15483         Link Minimised  "0"
  15484      END DSR ECORD
  15485      BEGIN D SRECORD
  15486         Iden tifier "V4 7S0"
  15487         OLET ype "CCust omStage"
  15488         Read only "0"
  15489         Name  "insDIM_D IAGNOSIS_C ODE"
  15490         Next ID "6"
  15491         Inpu tPins "V47 S0P5"
  15492         Stag eType "ODB CConnector PX"
  15493         Allo wColumnMap ping "0"
  15494         Prop erties "CC ustomPrope rty"
  15495         BEGI N DSSUBREC ORD
  15496            N ame "Varia ntName"
  15497            V alue "3.5"
  15498         END  DSSUBRECOR D
  15499         BEGI N DSSUBREC ORD
  15500            N ame "Varia ntLibrary"
  15501            V alue "ccod bc"
  15502         END  DSSUBRECOR D
  15503         BEGI N DSSUBREC ORD
  15504            N ame "Varia ntVersion"
  15505            V alue "1.0"
  15506         END  DSSUBRECOR D
  15507         BEGI N DSSUBREC ORD
  15508            N ame "Suppo rtedVarian ts"
  15509            V alue "V1;3 .5::ccodbc "
  15510         END  DSSUBRECOR D
  15511         BEGI N DSSUBREC ORD
  15512            N ame "Suppo rtedVarian tsLibrarie s"
  15513            V alue "ccod bc"
  15514         END  DSSUBRECOR D
  15515         BEGI N DSSUBREC ORD
  15516            N ame "Suppo rtedVarian tsVersions "
  15517            V alue "1.0"
  15518         END  DSSUBRECOR D
  15519         BEGI N DSSUBREC ORD
  15520            N ame "Orien tation"
  15521            V alue "link "
  15522         END  DSSUBRECOR D
  15523         BEGI N DSSUBREC ORD
  15524            N ame "Rejec tFromLink"
  15525            V alue "-1"
  15526         END  DSSUBRECOR D
  15527         BEGI N DSSUBREC ORD
  15528            N ame "Rejec tThreshold "
  15529            V alue "0"
  15530         END  DSSUBRECOR D
  15531         BEGI N DSSUBREC ORD
  15532            N ame "Rejec tNumber"
  15533            V alue "0"
  15534         END  DSSUBRECOR D
  15535         BEGI N DSSUBREC ORD
  15536            N ame "Rejec tUsesPerce ntage"
  15537            V alue "fals e"
  15538         END  DSSUBRECOR D
  15539         BEGI N DSSUBREC ORD
  15540            N ame "Conne ctorName"
  15541            V alue "ODBC Connector"
  15542         END  DSSUBRECOR D
  15543         BEGI N DSSUBREC ORD
  15544            N ame "Engin e"
  15545            V alue "EE"
  15546         END  DSSUBRECOR D
  15547         BEGI N DSSUBREC ORD
  15548            N ame "Conte xt"
  15549            V alue "targ et"
  15550         END  DSSUBRECOR D
  15551         BEGI N DSSUBREC ORD
  15552            N ame "Conne ctionStrin g"
  15553            V alue "/Con nection/Da taSource"
  15554         END  DSSUBRECOR D
  15555         BEGI N DSSUBREC ORD
  15556            N ame "Usern ame"
  15557            V alue "/Con nection/Us ername"
  15558         END  DSSUBRECOR D
  15559         BEGI N DSSUBREC ORD
  15560            N ame "Passw ord"
  15561            V alue "/Con nection/Pa ssword"
  15562         END  DSSUBRECOR D
  15563         BEGI N DSSUBREC ORD
  15564            N ame "XMLPr operties"
  15565            V alue =+=+= +=
  15566   <?xml vers ion='1.0'  encoding=' UTF-16'?>< Properties  version=' 1.1'><Comm on><Contex t type='in t'>2</Cont ext><Varia nt type='s tring'>3.5 </Variant> <Descripto rVersion t ype='strin g'>1.0</De scriptorVe rsion><Par titionType  type='int '>8</Parti tionType>< RCP type=' int'>0</RC P></Common ><Connecti on><DataSo urce modif ied='1' ty pe='string '><![CDATA [#$SQL_DB_ DSN#]]></D ataSource> <Username  modified=' 1' type='s tring'><![ CDATA[#$SQ L_DB_UID#] ]></Userna me><Passwo rd modifie d='1' type ='string'> <![CDATA[# $SQL_DB_PW D#]]></Pas sword></Co nnection>< Usage><Wri teMode mod ified='1'  type='int' ><![CDATA[ 0]]></Writ eMode><Gen erateSQL m odified='1 ' type='bo ol'><![CDA TA[0]]></G enerateSQL ><EnableQu otedIDs ty pe='bool'> <![CDATA[0 ]]></Enabl eQuotedIDs ><SQL><Ins ertStateme nt collaps ed='1' mod ified='1'  type='stri ng'><![CDA TA[INSERT  INTO #$SQL _DB#.dbo.D IM_DIAGNOS IS_CODE ( 
  15567    diagnosis _code
  15568    ,is_curre nt
  15569    ,start_da te 
  15570    ,source_s ystem
  15571    ,source_e ntity
  15572    )
  15573   VALUES (
  15574   ORCHESTRAT E.diagnosi s_code
  15575   ,ORCHESTRA TE.is_curr ent
  15576   ,ORCHESTRA TE.start_d ate
  15577   ,ORCHESTRA TE.source_ system
  15578   ,ORCHESTRA TE.source_ entity
  15579   )]]><Table s collapse d='1'><Tab le type='s tring'><![ CDATA[#$SQ L_DB#.dbo. DIM_DIAGNO SIS_CODE]] ></Table>< /Tables><P arameters  collapsed= '1'><Param eter type= 'string'>< ![CDATA[di agnosis_co de,diagnos is_code,DI M_DIAGNOSI S_CODE]]>< /Parameter ><Paramete r type='st ring'><![C DATA[is_cu rrent,is_c urrent,DIM _DIAGNOSIS _CODE]]></ Parameter> <Parameter  type='str ing'><![CD ATA[start_ date,start _date,DIM_ DIAGNOSIS_ CODE]]></P arameter>< Parameter  type='stri ng'><![CDA TA[source_ system,sou rce_system ,DIM_DIAGN OSIS_CODE] ]></Parame ter><Param eter type= 'string'>< ![CDATA[so urce_entit y,source_e ntity,DIM_ DIAGNOSIS_ CODE]]></P arameter>< /Parameter s></Insert Statement> </SQL><Tab leAction c ollapsed=' 1' type='i nt'><![CDA TA[0]]></T ableAction ><Transact ion><Recor dCount typ e='int'><! [CDATA[200 0]]></Reco rdCount></ Transactio n><Session ><Isolatio nLevel typ e='int'><! [CDATA[1]] ></Isolati onLevel><A utocommitM ode modifi ed='1' typ e='int'><! [CDATA[1]] ></Autocom mitMode><A rraySize t ype='int'> <![CDATA[2 000]]></Ar raySize><S chemaRecon ciliation> <FailOnSiz eMismatch  type='bool '><![CDATA [1]]></Fai lOnSizeMis match><Fai lOnTypeMis match type ='bool'><! [CDATA[1]] ></FailOnT ypeMismatc h><FailOnC odePageMis match type ='bool'><! [CDATA[0]] ></FailOnC odePageMis match><Dro pUnmatched Fields typ e='bool'>< ![CDATA[1] ]></DropUn matchedFie lds></Sche maReconcil iation><Co dePage col lapsed='1'  type='int '><![CDATA [0]]></Cod ePage><Fai lOnRowErro rPX type=' bool'><![C DATA[1]]>< /FailOnRow ErrorPX></ Session><L ogging><Lo gColumnVal ues collap sed='1' ty pe='bool'> <![CDATA[0 ]]></LogCo lumnValues ></Logging ><BeforeAf ter modifi ed='1' typ e='bool'>< ![CDATA[0] ]></Before After></Us age></Prop erties >
  15580   =+=+=+=
  15581         END  DSSUBRECOR D
  15582         Next RecordID " 0"
  15583      END DSR ECORD
  15584      BEGIN D SRECORD
  15585         Iden tifier "V4 7S0P5"
  15586         OLET ype "CCust omInput"
  15587         Read only "0"
  15588         Name  "ins"
  15589         Part ner "V0S9| V0S9P22"
  15590         Link Type "1"
  15591         Cond itionNotMe t "fail"
  15592         Look upFail "fa il"
  15593         Prop erties "CC ustomPrope rty"
  15594         BEGI N DSSUBREC ORD
  15595            N ame "Varia ntName"
  15596            V alue "3.5"
  15597         END  DSSUBRECOR D
  15598         BEGI N DSSUBREC ORD
  15599            N ame "Varia ntLibrary"
  15600            V alue "ccod bc"
  15601         END  DSSUBRECOR D
  15602         BEGI N DSSUBREC ORD
  15603            N ame "Varia ntVersion"
  15604            V alue "1.0"
  15605         END  DSSUBRECOR D
  15606         BEGI N DSSUBREC ORD
  15607            N ame "Rejec tFromLink"
  15608            V alue "-1"
  15609         END  DSSUBRECOR D
  15610         BEGI N DSSUBREC ORD
  15611            N ame "Rejec tThreshold "
  15612            V alue "0"
  15613         END  DSSUBRECOR D
  15614         BEGI N DSSUBREC ORD
  15615            N ame "Rejec tNumber"
  15616            V alue "0"
  15617         END  DSSUBRECOR D
  15618         BEGI N DSSUBREC ORD
  15619            N ame "Rejec tUsesPerce ntage"
  15620            V alue "fals e"
  15621         END  DSSUBRECOR D
  15622         BEGI N DSSUBREC ORD
  15623            N ame "Conne ctorName"
  15624            V alue "ODBC Connector"
  15625         END  DSSUBRECOR D
  15626         Meta Bag "CMeta Property"
  15627         BEGI N DSSUBREC ORD
  15628            O wner "APT"
  15629            N ame "RTCol umnProp"
  15630            V alue "0"
  15631         END  DSSUBRECOR D
  15632         Tran sactionSiz e "0"
  15633         TXNB ehaviour " 0"
  15634         Enab leTxGroup  "0"
  15635         Link Minimised  "0"
  15636      END DSR ECORD
  15637      BEGIN D SRECORD
  15638         Iden tifier "V9 2S0"
  15639         OLET ype "CCust omStage"
  15640         Read only "0"
  15641         Name  "DimDiagn osis_ds"
  15642         Next ID "3"
  15643         Outp utPins "V9 2S0P2"
  15644         Stag eType "PxD ataSet"
  15645         Allo wColumnMap ping "0"
  15646         Next RecordID " 0"
  15647      END DSR ECORD
  15648      BEGIN D SRECORD
  15649         Iden tifier "V9 2S0P2"
  15650         OLET ype "CCust omOutput"
  15651         Read only "0"
  15652         Name  "Out"
  15653         Part ner "V0S9| V0S9P26"
  15654         Prop erties "CC ustomPrope rty"
  15655         BEGI N DSSUBREC ORD
  15656            N ame "datas et"
  15657            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_DI M_DIAGNOSI S_Ins.ds"
  15658         END  DSSUBRECOR D
  15659         BEGI N DSSUBREC ORD
  15660            N ame "missi ngcolmode"
  15661            V alue " "
  15662         END  DSSUBRECOR D
  15663         Colu mns "COutp utColumn"
  15664         BEGI N DSSUBREC ORD
  15665            N ame "DIAGN OSIS_key"
  15666            D escription  =+=+=+=
  15667   <none>
  15668   Searchable ? N 
  15669   =+=+=+=
  15670            S qlType "4"
  15671            P recision " 10"
  15672            S cale "0"
  15673            N ullable "0 "
  15674            K eyPosition  "0"
  15675            D isplaySize  "11"
  15676            G roup "0"
  15677            S ortKey "0"
  15678            S ortType "0 "
  15679            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15680            A llowCRLF " 0"
  15681            L evelNo "0"
  15682            O ccurs "0"
  15683            P adNulls "0 "
  15684            S ignOption  "0"
  15685            S ortingOrde r "0"
  15686            A rrayHandli ng "0"
  15687            S yncIndicat or "0"
  15688            P adChar ""
  15689            C olumnRefer ence "DIAG NOSIS_key"
  15690            A PTFieldPro p "quote=n one"
  15691            E xtendedPre cision "0"
  15692            T aggedSubre c "0"
  15693            O ccursVaryi ng "0"
  15694            P KeyIsCasel ess "0"
  15695            S CDPurpose  "0"
  15696         END  DSSUBRECOR D
  15697         BEGI N DSSUBREC ORD
  15698            N ame "diagn oses_code"
  15699            D escription  =+=+=+=
  15700   <none>
  15701   Searchable ? N 
  15702   =+=+=+=
  15703            S qlType "12 "
  15704            P recision " 30"
  15705            S cale "0"
  15706            N ullable "1 "
  15707            K eyPosition  "0"
  15708            D isplaySize  "15"
  15709            G roup "0"
  15710            S ortKey "0"
  15711            S ortType "0 "
  15712            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15713            A llowCRLF " 0"
  15714            L evelNo "0"
  15715            O ccurs "0"
  15716            P adNulls "0 "
  15717            S ignOption  "0"
  15718            S ortingOrde r "0"
  15719            A rrayHandli ng "0"
  15720            S yncIndicat or "0"
  15721            P adChar ""
  15722            C olumnRefer ence "diag noses_code "
  15723            A PTFieldPro p "null_fi eld=''"
  15724            E xtendedPre cision "0"
  15725            T aggedSubre c "0"
  15726            O ccursVaryi ng "0"
  15727            P KeyIsCasel ess "0"
  15728            S CDPurpose  "0"
  15729         END  DSSUBRECOR D
  15730         BEGI N DSSUBREC ORD
  15731            N ame "ICDVe rsion"
  15732            S qlType "12 "
  15733            P recision " 15"
  15734            S cale "0"
  15735            N ullable "1 "
  15736            K eyPosition  "0"
  15737            D isplaySize  "0"
  15738            G roup "0"
  15739            S ortKey "0"
  15740            S ortType "0 "
  15741            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15742            A llowCRLF " 0"
  15743            L evelNo "0"
  15744            O ccurs "0"
  15745            P adNulls "0 "
  15746            S ignOption  "0"
  15747            S ortingOrde r "0"
  15748            A rrayHandli ng "0"
  15749            S yncIndicat or "0"
  15750            P adChar ""
  15751            C olumnRefer ence "ICDV ersion"
  15752            E xtendedPre cision "0"
  15753            T aggedSubre c "0"
  15754            O ccursVaryi ng "0"
  15755            P KeyIsCasel ess "0"
  15756            S CDPurpose  "0"
  15757         END  DSSUBRECOR D
  15758         BEGI N DSSUBREC ORD
  15759            N ame "is_cu rrent"
  15760            S qlType "1"
  15761            P recision " 1"
  15762            S cale "0"
  15763            N ullable "0 "
  15764            K eyPosition  "0"
  15765            D isplaySize  "0"
  15766            G roup "0"
  15767            S ortKey "0"
  15768            S ortType "0 "
  15769            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15770            A llowCRLF " 0"
  15771            L evelNo "0"
  15772            N ativeType  "pit_boole an"
  15773            O ccurs "0"
  15774            P adNulls "0 "
  15775            S ignOption  "0"
  15776            S ortingOrde r "0"
  15777            A rrayHandli ng "0"
  15778            S yncIndicat or "0"
  15779            P adChar ""
  15780            C olumnRefer ence "is_c urrent"
  15781            E xtendedPre cision "0"
  15782            T aggedSubre c "0"
  15783            O ccursVaryi ng "0"
  15784            P KeyIsCasel ess "0"
  15785            S CDPurpose  "0"
  15786         END  DSSUBRECOR D
  15787         BEGI N DSSUBREC ORD
  15788            N ame "start _date"
  15789            S qlType "9"
  15790            P recision " 10"
  15791            S cale "0"
  15792            N ullable "1 "
  15793            K eyPosition  "0"
  15794            D isplaySize  "0"
  15795            G roup "0"
  15796            S ortKey "0"
  15797            S ortType "0 "
  15798            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15799            A llowCRLF " 0"
  15800            L evelNo "0"
  15801            N ativeType  "pit_date"
  15802            O ccurs "0"
  15803            P adNulls "0 "
  15804            S ignOption  "0"
  15805            S ortingOrde r "0"
  15806            A rrayHandli ng "0"
  15807            S yncIndicat or "0"
  15808            P adChar ""
  15809            C olumnRefer ence "star t_date"
  15810            E xtendedPre cision "0"
  15811            T aggedSubre c "0"
  15812            O ccursVaryi ng "0"
  15813            P KeyIsCasel ess "0"
  15814            S CDPurpose  "0"
  15815         END  DSSUBRECOR D
  15816         BEGI N DSSUBREC ORD
  15817            N ame "sourc e_system"
  15818            S qlType "12 "
  15819            P recision " 20"
  15820            S cale "0"
  15821            N ullable "1 "
  15822            K eyPosition  "0"
  15823            D isplaySize  "0"
  15824            G roup "0"
  15825            S ortKey "0"
  15826            S ortType "0 "
  15827            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15828            A llowCRLF " 0"
  15829            L evelNo "0"
  15830            N ativeType  "varchar"
  15831            O ccurs "0"
  15832            P adNulls "0 "
  15833            S ignOption  "0"
  15834            S ortingOrde r "0"
  15835            A rrayHandli ng "0"
  15836            S yncIndicat or "0"
  15837            P adChar ""
  15838            C olumnRefer ence "sour ce_system"
  15839            E xtendedPre cision "0"
  15840            T aggedSubre c "0"
  15841            O ccursVaryi ng "0"
  15842            P KeyIsCasel ess "0"
  15843            S CDPurpose  "0"
  15844         END  DSSUBRECOR D
  15845         BEGI N DSSUBREC ORD
  15846            N ame "sourc e_entity"
  15847            S qlType "12 "
  15848            P recision " 50"
  15849            S cale "0"
  15850            N ullable "1 "
  15851            K eyPosition  "0"
  15852            D isplaySize  "0"
  15853            G roup "0"
  15854            S ortKey "0"
  15855            S ortType "0 "
  15856            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15857            A llowCRLF " 0"
  15858            L evelNo "0"
  15859            O ccurs "0"
  15860            P adNulls "0 "
  15861            S ignOption  "0"
  15862            S ortingOrde r "0"
  15863            A rrayHandli ng "0"
  15864            S yncIndicat or "0"
  15865            P adChar ""
  15866            C olumnRefer ence "sour ce_entity"
  15867            E xtendedPre cision "0"
  15868            T aggedSubre c "0"
  15869            O ccursVaryi ng "0"
  15870            P KeyIsCasel ess "0"
  15871            S CDPurpose  "0"
  15872         END  DSSUBRECOR D
  15873         BEGI N DSSUBREC ORD
  15874            N ame "row_i d"
  15875            S qlType "12 "
  15876            P recision " 20"
  15877            S cale "0"
  15878            N ullable "1 "
  15879            K eyPosition  "0"
  15880            D isplaySize  "0"
  15881            G roup "0"
  15882            S ortKey "0"
  15883            S ortType "0 "
  15884            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  15885            A llowCRLF " 0"
  15886            L evelNo "0"
  15887            N ativeType  "varchar"
  15888            O ccurs "0"
  15889            P adNulls "0 "
  15890            S ignOption  "0"
  15891            S ortingOrde r "0"
  15892            A rrayHandli ng "0"
  15893            S yncIndicat or "0"
  15894            P adChar ""
  15895            C olumnRefer ence "row_ id"
  15896            E xtendedPre cision "0"
  15897            T aggedSubre c "0"
  15898            O ccursVaryi ng "0"
  15899            P KeyIsCasel ess "0"
  15900            S CDPurpose  "0"
  15901         END  DSSUBRECOR D
  15902         Meta Bag "CMeta Property"
  15903         BEGI N DSSUBREC ORD
  15904            O wner "APT"
  15905            N ame "DiskW riteInc"
  15906            V alue "1048 576"
  15907         END  DSSUBRECOR D
  15908         BEGI N DSSUBREC ORD
  15909            O wner "APT"
  15910            N ame "BufFr eeRun"
  15911            V alue "50"
  15912         END  DSSUBRECOR D
  15913         BEGI N DSSUBREC ORD
  15914            O wner "APT"
  15915            N ame "MaxMe mBufSize"
  15916            V alue "3145 728"
  15917         END  DSSUBRECOR D
  15918         BEGI N DSSUBREC ORD
  15919            O wner "APT"
  15920            N ame "Queue UpperSize"
  15921            V alue "0"
  15922         END  DSSUBRECOR D
  15923         Left TextPos "1 87"
  15924         TopT extPos "19 2"
  15925         Link Minimised  "0"
  15926      END DSR ECORD
  15927   END DSJOB
  15928   BEGIN DSJO B
  15929      Identif ier "EDI83 7P_DIM_DIA GNOSIS_COD E_prep"
  15930      DateMod ified "201 8-02-26"
  15931      TimeMod ified "11. 12.45"
  15932      BEGIN D SRECORD
  15933         Iden tifier "RO OT"
  15934         OLET ype "CJobD efn"
  15935         Read only "0"
  15936         Name  "EDI837P_ DIM_DIAGNO SIS_CODE_p rep"
  15937         Next ID "131"
  15938         Cont ainer "V0"
  15939         JobV ersion "56 .0.0"
  15940         Cont rolAfterSu br "0"
  15941         Para meters "CP arameters"
  15942         BEGI N DSSUBREC ORD
  15943            N ame "$PROJ _DATA_SFIL E"
  15944            P rompt "Pro ject Data  directory  (sequentia l files)"
  15945            D efault "$P ROJDEF"
  15946            P aramType " 0"
  15947            P aramLength  "0"
  15948            P aramScale  "0"
  15949         END  DSSUBRECOR D
  15950         BEGI N DSSUBREC ORD
  15951            N ame "$SQL_ DB_UID"
  15952            P rompt "MSS QL DB User -id"
  15953            D efault "$P ROJDEF"
  15954            P aramType " 0"
  15955            P aramLength  "0"
  15956            P aramScale  "0"
  15957         END  DSSUBRECOR D
  15958         BEGI N DSSUBREC ORD
  15959            N ame "$SQL_ DB_PWD"
  15960            P rompt "MSS QL DB Pass word"
  15961            D efault "HD I@IJV8O9JN 064IL:JD1K 95"
  15962            P aramType " 1"
  15963            P aramLength  "0"
  15964            P aramScale  "0"
  15965         END  DSSUBRECOR D
  15966         BEGI N DSSUBREC ORD
  15967            N ame "$PROJ _DATA_DS"
  15968            P rompt "Pro ject Data  directory  (datasets) "
  15969            D efault "$P ROJDEF"
  15970            P aramType " 0"
  15971            P aramLength  "0"
  15972            P aramScale  "0"
  15973         END  DSSUBRECOR D
  15974         BEGI N DSSUBREC ORD
  15975            N ame "Batch ClaimType"
  15976            P rompt "Bat chClaimTyp e"
  15977            P aramType " 0"
  15978            P aramLength  "0"
  15979            P aramScale  "0"
  15980         END  DSSUBRECOR D
  15981         BEGI N DSSUBREC ORD
  15982            N ame "$SQL_ DB"
  15983            P rompt "Dev elopment D atabase"
  15984            D efault "$P ROJDEF"
  15985            P aramType " 0"
  15986            P aramLength  "0"
  15987            P aramScale  "0"
  15988         END  DSSUBRECOR D
  15989         BEGI N DSSUBREC ORD
  15990            N ame "$SQL_ DB_DSN"
  15991            P rompt "MSS QL DB Data  Source Na me (DSN)"
  15992            D efault "$P ROJDEF"
  15993            P aramType " 0"
  15994            P aramLength  "0"
  15995            P aramScale  "0"
  15996         END  DSSUBRECOR D
  15997         Meta Bag "CMeta Property"
  15998         BEGI N DSSUBREC ORD
  15999            O wner "APT"
  16000            N ame "Advan cedRuntime Options"
  16001            V alue "#DSP rojectARTO ptions#"
  16002         END  DSSUBRECOR D
  16003         BEGI N DSSUBREC ORD
  16004            O wner "APT"
  16005            N ame "Trace Mode"
  16006            V alue "0"
  16007         END  DSSUBRECOR D
  16008         BEGI N DSSUBREC ORD
  16009            O wner "APT"
  16010            N ame "Trace Seq"
  16011            V alue "1"
  16012         END  DSSUBRECOR D
  16013         BEGI N DSSUBREC ORD
  16014            O wner "APT"
  16015            N ame "Trace Records"
  16016            V alue "100"
  16017         END  DSSUBRECOR D
  16018         BEGI N DSSUBREC ORD
  16019            O wner "APT"
  16020            N ame "Trace Skip"
  16021            V alue "0"
  16022         END  DSSUBRECOR D
  16023         BEGI N DSSUBREC ORD
  16024            O wner "APT"
  16025            N ame "Trace Period"
  16026            V alue "1"
  16027         END  DSSUBRECOR D
  16028         BEGI N DSSUBREC ORD
  16029            O wner "APT"
  16030            N ame "Recor dJobPerfor manceData"
  16031            V alue "1"
  16032         END  DSSUBRECOR D
  16033         BEGI N DSSUBREC ORD
  16034            O wner "APT"
  16035            N ame "Ident List"
  16036            V alue "Xfm_ BusRules|L kp_DimDiag Code|DIM_D IAGNOSIS_C ODE|genRec sByCode|Xf rmDiagnosi s|Fmt_Diag Codes|RmvD upCode"
  16037         END  DSSUBRECOR D
  16038         BEGI N DSSUBREC ORD
  16039            O wner "APT"
  16040            N ame "Clien tCodePage"
  16041            V alue "1252 "
  16042         END  DSSUBRECOR D
  16043         NULL IndicatorP osition "0 "
  16044         Orch estrateCod e =+=+=+=
  16045   #### STAGE : Xfm_BusR ules.XfrmS rc_Part
  16046   ## Operato r
  16047   same
  16048   ## General  options
  16049   [ident('Xf m_BusRules .XfrmSrc_P art')]
  16050   ## Inputs
  16051   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc.v'
  16052   ## Outputs
  16053   0> [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  16054   ;
  16055  
  16056   ########## ########## ########## ########## ########## ########## #####
  16057   #### STAGE : Xfm_BusR ules
  16058   ## Operato r
  16059   transform
  16060   ## Operato r options
  16061   -flag run
  16062   -name 'V81 S2_EDI837P _DIM_DIAGN OSIS_CODE_ prep_Xfm_B usRules'
  16063  
  16064   ## General  options
  16065   [ident('Xf m_BusRules '); jobmon _ident('Xf m_BusRules ')]
  16066   ## Inputs
  16067   0< [] 'ds_ EDI837P_Co nformed:Xf rmSrc_Part .v'
  16068   ## Outputs
  16069   0> [] 'Xfm _BusRules: BusRls.v'
  16070   ;
  16071  
  16072   ########## ########## ########## ########## ########## ########## #####
  16073   #### STAGE : Lkp_DimD iagCode
  16074   ## Operato r
  16075   lookup
  16076   ## Operato r options
  16077   -table
  16078   -key diagn oses_code
  16079   -key is_cu rrent
  16080   -ifNotFoun d continue
  16081  
  16082   ## General  options
  16083   [ident('Lk p_DimDiagC ode'); job mon_ident( 'Lkp_DimDi agCode')]
  16084   ## Inputs
  16085   0< [] 'Rmv DupCode:Rm vDupCode.v '
  16086   1< [view (
  16087     diagnose s_code=dia gnosis_cod e;
  16088   )] 'DIM_DI AGNOSIS_CO DE:DimDiag nosisCode. v'
  16089   ## Outputs
  16090   0> [modify  (
  16091     DIAGNOSI S_key:null able int32 =DIAGNOSIS _key;
  16092   keep
  16093     DIAGNOSI S_key,ICDV ersion,dia gnoses_cod e,is_curre nt,
  16094     start_da te,source_ system,sou rce_entity ,row_id;)]  'Lkp_DimD iagCode:Di agnosisCod eNotFound. v'
  16095   ;
  16096  
  16097   ########## ########## ########## ########## ########## ########## #####
  16098   #### STAGE : DIM_DIAG NOSIS_CODE
  16099   ## Operato r
  16100   pxbridge
  16101   ## Operato r options
  16102   -Orientati on link
  16103   -XMLProper ties '<?xm l version= \\'1.0\\'  encoding=\ \'UTF-16\\ '?><Proper ties versi on=\\'1.1\ \'><Common ><Context  type=\\'in t\\'>1</Co ntext><Var iant type= \\'string\ \'>3.5</Va riant><Des criptorVer sion type= \\'string\ \'>1.0</De scriptorVe rsion><Par titionType  type=\\'i nt\\'>-1</ PartitionT ype><RCP t ype=\\'int \\'>0</RCP ></Common> <Connectio n><DataSou rce modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_D SN"]]]></D ataSource> <Username  modified=\ \'1\\' typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB_UID"] ]]></Usern ame><Passw ord modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[[& "$SQL_DB_P WD"]]]></P assword></ Connection ><Usage mo dified=\\' 1\\'><Gene rateSQL mo dified=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Gene rateSQL><E nableQuote dIDs type= \\'bool\\' ><![CDATA[ 0]]></Enab leQuotedID s><SQL><Se lectStatem ent modifi ed=\\'1\\'  type=\\'s tring\\'>< ![CDATA[Se lect diagn osis_key,  diagnosis_ code, is_c urrent fro m [&"$SQL_ DB"].dbo.D IM_DIAGNOS IS_CODE wh ere is_cur rent = \\' Y\\' ]]><R eadStateme ntFromFile  type=\\'b ool\\'><![ CDATA[0]]> </ReadStat ementFromF ile><Table s collapse d=\\'1\\'> <Table typ e=\\'strin g\\'><![CD ATA[[&"$SQ L_DB"].dbo .DIM_DIAGN OSIS_CODE] ]></Table> </Tables>< Parameters  collapsed =\\'1\\'>< /Parameter s><Columns  collapsed =\\'1\\'>< Column typ e=\\'strin g\\'><![CD ATA[is_cur rent,is_cu rrent,DIM_ DIAGNOSIS_ CODE]]></C olumn><Col umn type=\ \'string\\ '><![CDATA [diagnosis _code,diag nosis_code ,DIM_DIAGN OSIS_CODE] ]></Column ><Column t ype=\\'str ing\\'><![ CDATA[diag nosis_key, diagnosis_ key,DIM_DI AGNOSIS_CO DE]]></Col umn></Colu mns><Where Clause typ e=\\'strin g\\'><![CD ATA[is_cur rent = \\' Y\\']]></W hereClause ></SelectS tatement>< EnablePart itioning c ollapsed=\ \'1\\' typ e=\\'bool\ \'><![CDAT A[0]]></En ablePartit ioning></S QL><Transa ction><Rec ordCount t ype=\\'int \\'><![CDA TA[2000]]> </RecordCo unt><EndOf Wave colla psed=\\'1\ \' type=\\ 'int\\'><! [CDATA[0]] ></EndOfWa ve></Trans action><Se ssion><Iso lationLeve l type=\\' int\\'><![ CDATA[1]]> </Isolatio nLevel><Au tocommitMo de type=\\ 'int\\'><! [CDATA[0]] ></Autocom mitMode><A rraySize t ype=\\'int \\'><![CDA TA[2000]]> </ArraySiz e><SchemaR econciliat ion><FailO nSizeMisma tch type=\ \'bool\\'> <![CDATA[1 ]]></FailO nSizeMisma tch><FailO nTypeMisma tch type=\ \'bool\\'> <![CDATA[1 ]]></FailO nTypeMisma tch><FailO nCodePageM ismatch ty pe=\\'bool \\'><![CDA TA[0]]></F ailOnCodeP ageMismatc h></Schema Reconcilia tion><Pass LobLocator  collapsed =\\'1\\' t ype=\\'boo l\\'><![CD ATA[0]]></ PassLobLoc ator><Code Page colla psed=\\'1\ \' type=\\ 'int\\'><! [CDATA[0]] ></CodePag e></Sessio n><BeforeA fter colla psed=\\'1\ \' type=\\ 'bool\\'>< ![CDATA[0] ]></Before After><Lim itRows col lapsed=\\' 1\\' type= \\'bool\\' ><![CDATA[ 0]]></Limi tRows></Us age></Prop erties >'
  16104   -connector  '{
  16105      variant =\\'3.5\\'
  16106      library =ccodbc, 
  16107      version =1.0, 
  16108      variant list=\\'V1 ;3.5::ccod bc\\', 
  16109      version list=\\'1. 0\\', 
  16110      name=OD BCConnecto r
  16111   }'
  16112   -source 0  '{
  16113         DSDe scription= {DIAGNOSIS _key=\\'\\ <none\\>
  16114   Searchable \\? N \\',  diagnosis _code=\\'\ \<none\\>
  16115   Searchable \\? N \\',  is_curren t=\\'\\<no ne\\>
  16116   Searchable \\? N \\'}
  16117         DSIs Key={diagn osis_code= 1, is_curr ent=1}, 
  16118         DSDi splayWidth ={DIAGNOSI S_key=11,  diagnosis_ code=30, i s_current= 1}, 
  16119         DSSQ LType={DIA GNOSIS_key =4, diagno sis_code=1 2, is_curr ent=1}, 
  16120         DSSQ LPrecision ={DIAGNOSI S_key=10,  diagnosis_ code=30, i s_current= 1}, 
  16121         DSSc hema=\\'re cord
  16122            (
  16123               DIAGNOSIS _key\\:int 32\\;
  16124               diagnosis _code\\:nu llable str ing\\[max\ \=30\\]\\;
  16125               is_curren t\\:string \\[1\\]\\;
  16126            ) \\'
  16127   }'
  16128      
  16129  
  16130   ## General  options
  16131   [ident('DI M_DIAGNOSI S_CODE');  jobmon_ide nt('DIM_DI AGNOSIS_CO DE')]
  16132   ## Outputs
  16133   0> [modify  (
  16134     DIAGNOSI S_key:not_ nullable i nt32=DIAGN OSIS_key;
  16135     diagnosi s_code:nul lable stri ng[max=30] =diagnosis _code;
  16136     is_curre nt:not_nul lable stri ng[1]=is_c urrent;
  16137   keep
  16138     DIAGNOSI S_key,diag nosis_code ,is_curren t;
  16139   )] 'DIM_DI AGNOSIS_CO DE:DimDiag nosisCode. v'
  16140   ;
  16141  
  16142   ########## ########## ########## ########## ########## ########## #####
  16143   #### STAGE : genRecsB yCode
  16144   ## Operato r
  16145   transform
  16146   ## Operato r options
  16147   -flag run
  16148   -name 'V12 1S0_EDI837 P_DIM_DIAG NOSIS_CODE _prep_genR ecsByCode'
  16149  
  16150   ## General  options
  16151   [ident('ge nRecsByCod e'); jobmo n_ident('g enRecsByCo de')]
  16152   ## Inputs
  16153   0< [] 'Xfm _BusRules: BusRls.v'
  16154   ## Outputs
  16155   0> [] 'gen RecsByCode :genRecsBy Code.v'
  16156   ;
  16157  
  16158   ########## ########## ########## ########## ########## ########## #####
  16159   #### STAGE : Ds_DimDi agnosis
  16160   ## Operato r
  16161   copy
  16162   ## General  options
  16163   [ident('Ds _DimDiagno sis')]
  16164   ## Inputs
  16165   0< [] 'Xfr mDiagnosis :MissingDi agnosisCod es.v'
  16166   ## Outputs
  16167   0>| [ds] ' [&"$PROJ_D ATA_DS"][& "BatchClai mType"]_DI M_DIAGNOSI S_Ins.ds'
  16168   ;
  16169  
  16170   ########## ########## ########## ########## ########## ########## #####
  16171   #### STAGE : XfrmDiag nosis
  16172   ## Operato r
  16173   transform
  16174   ## Operato r options
  16175   -flag run
  16176   -name 'V0S 174_EDI837 P_DIM_DIAG NOSIS_CODE _prep_Xfrm Diagnosis'
  16177  
  16178   ## General  options
  16179   [ident('Xf rmDiagnosi s'); jobmo n_ident('X frmDiagnos is')]
  16180   ## Inputs
  16181   0< [] 'Lkp _DimDiagCo de:Diagnos isCodeNotF ound.v'
  16182   ## Outputs
  16183   0> [] 'Xfr mDiagnosis :MissingDi agnosisCod es.v'
  16184   ;
  16185  
  16186   ########## ########## ########## ########## ########## ########## #####
  16187   #### STAGE : Fmt_Diag Codes
  16188   ## Operato r
  16189   transform
  16190   ## Operato r options
  16191   -flag run
  16192   -name 'V0S 176_EDI837 P_DIM_DIAG NOSIS_CODE _prep_Fmt_ DiagCodes'
  16193  
  16194   ## General  options
  16195   [ident('Fm t_DiagCode s'); jobmo n_ident('F mt_DiagCod es')]
  16196   ## Inputs
  16197   0< [] 'gen RecsByCode :genRecsBy Code.v'
  16198   ## Outputs
  16199   0> [] 'Fmt _DiagCodes :FmtDiagCo des.v'
  16200   ;
  16201  
  16202   ########## ########## ########## ########## ########## ########## #####
  16203   #### STAGE : RmvDupCo de
  16204   ## Operato r
  16205   remdup
  16206   ## Operato r options
  16207   -keep firs t
  16208   -key 'diag noses_code '
  16209   -key 'ICDV ersion'
  16210  
  16211   ## General  options
  16212   [ident('Rm vDupCode') ; jobmon_i dent('RmvD upCode')]
  16213   ## Inputs
  16214   0< [] 'Fmt _DiagCodes :FmtDiagCo des.v'
  16215   ## Outputs
  16216   0> [modify  (
  16217   keep
  16218     ICDVersi on,diagnos es_code,is _current,s tart_date,
  16219     source_s ystem,sour ce_entity, row_id;
  16220   )] 'RmvDup Code:RmvDu pCode.v'
  16221   ;
  16222  
  16223   ########## ########## ########## ########## ########## ########## #####
  16224   #### STAGE : ds_EDI83 7P_Conform ed
  16225   ## Operato r
  16226   copy
  16227   ## General  options
  16228   [ident('ds _EDI837P_C onformed') ; seq]
  16229   ## Inputs
  16230   0< [ds] '[ &"$PROJ_DA TA_DS"][&" BatchClaim Type"]_Con formed.ds'
  16231   ## Outputs
  16232   0> [modify  (
  16233     ROW_NUM: not_nullab le string[ max=8]=ROW _NUM;
  16234     ST_NUM:n ullable st ring[max=9 ]=ST_NUM;
  16235     LOOP:nul lable stri ng[max=10] =LOOP;
  16236     SEG:not_ nullable s tring[max= 5]=SEG;
  16237     SEG_CD:n ot_nullabl e string[m ax=20]=SEG _CD;
  16238     EDI837P: not_nullab le string[ max=2000]= EDI837P;
  16239     ETL_BATC H_ID:not_n ullable st ring[max=2 0]=ETL_BAT CH_ID;
  16240   keep
  16241     ROW_NUM, ST_NUM,LOO P,SEG,
  16242     SEG_CD,E DI837P,ETL _BATCH_ID;
  16243   )] 'ds_EDI 837P_Confo rmed:XfrmS rc.v'
  16244   ;
  16245  
  16246  
  16247   =+=+=+=
  16248         IsTe mplate "0"
  16249         NLSL ocale ",,, ,"
  16250         JobT ype "3"
  16251         Cate gory "\\Jo bs\\PIT\\C P&E_EDI\\P repare"
  16252         Cent uryBreakYe ar "30"
  16253         Next AliasID "2 "
  16254         Para meterFileD DName "DD0 0001"
  16255         Rese rvedWordCh eck "1"
  16256         Tran sactionSiz e "0"
  16257         Vali dationStat us "0"
  16258         Uplo adable "0"
  16259         PgmC ustomizati onFlag "0"
  16260         JobR eportFlag  "0"
  16261         Allo wMultipleI nvocations  "0"
  16262         Act2 ActOveride Defaults " 0"
  16263         Act2 ActEnableR owBuffer " 0"
  16264         Act2 ActUseIPC  "0"
  16265         Act2 ActBufferS ize "0"
  16266         Act2 ActIPCTime out "0"
  16267         Expr essionSema nticCheckF lag "0"
  16268         Trac eOption "0 "
  16269         Enab leCacheSha ring "0"
  16270         Runt imeColumnP ropagation  "0"
  16271         RelS tagesInJob Status "-1 "
  16272         WebS erviceEnab led "0"
  16273         MFPr ocessMetaD ata "0"
  16274         MFPr ocessMetaD ataXMLFile ExchangeMe thod "0"
  16275         IMSP rogType "0 "
  16276         Copy LibPrefix  "ARDT"
  16277         Reco rdPerforma nceResults  "0"
  16278      END DSR ECORD
  16279      BEGIN D SRECORD
  16280         Iden tifier "V0 "
  16281         OLET ype "CCont ainerView"
  16282         Read only "0"
  16283         Name  "Job"
  16284         Next ID "1"
  16285         IsTo pLevel "0"
  16286         Stag eList "V81 S2|V0S114| V112S0|V12 1S0|V123S0 |V0S174|V0 S176|V0S18 2|V130S0|V 0A191"
  16287         Stag eXPos "359 |996|996|5 23|1418|12 43|684|837 |180|639"
  16288         Stag eYPos "262 |260|63|26 4|114|348| 260|167|27 0|162"
  16289         Stag eTypes "CT ransformer Stage|CCus tomStage|C CustomStag e.CC_GUI|C Transforme rStage|CCu stomStage| CTransform erStage|CT ransformer Stage|CCus tomStage|C CustomStag e|ID_PALET TEANNOTATI ON"
  16290         Next StageID "1 97"
  16291         Snap ToGrid "2"
  16292         Grid Lines "0"
  16293         Zoom Value "100 "
  16294         Stag eXSize "48 |52|48|48| 48|48|48|4 8|48|143"
  16295         Stag eYSize "48 |51|48|57| 48|48|48|4 8|48|52"
  16296         Cont ainerViewS izing "000 8 0081 084 9 0582 000 0 0001 040 0 0000"
  16297         Stag eNames "Xf m_BusRules |Lkp_DimDi agCode|DIM _DIAGNOSIS _CODE|genR ecsByCode| Ds_DimDiag nosis|Xfrm Diagnosis| Fmt_DiagCo des|RmvDup Code|ds_ED I837P_Conf ormed| "
  16298         Stag eTypeIDs " CTransform erStage|Px Lookup|ODB CConnector PX|CTransf ormerStage |PxDataSet |CTransfor merStage|C Transforme rStage|PxR emDup|PxDa taSet| "
  16299         Link Names "Bus Rls|Diagno sisCodeNot Found|DimD iagnosisCo de|genRecs ByCode| |M issingDiag nosisCodes |FmtDiagCo des|RmvDup Code|XfrmS rc| "
  16300         Link HasMetaDat as "True|T rue|True|T rue| |True |True|True |True| "
  16301         Link Types "1|1 |2|1| |1|1 |1|1| "
  16302         Link NamePositi onXs "422| 1084|1020| 589| |1343 |741|885|2 90| "
  16303         Link NamePositi onYs "286| 315|157|28 5| |198|26 1|262|287|  "
  16304         Targ etStageIDs  "V121S0|V 0S174|V0S1 14|V0S176|  |V123S0|V 0S182|V0S1 14|V81S2|  "
  16305         Sour ceStageEff ectiveExec utionModes  "2|2|2|2|  |2|2|2|1|  "
  16306         Sour ceStageRun timeExecut ionModes " 2|2|2|2| | 2|2|2|1| "
  16307         Targ etStageEff ectiveExec utionModes  "2|2|2|2|  |2|2|2|2|  "
  16308         Targ etStageRun timeExecut ionModes " 2|2|2|2| | 2|2|2|2| "
  16309         Link IsSingleOp eratorLook up "False| False|Fals e|False| | False|Fals e|False|Fa lse| "
  16310         Link IsSortSequ ential "Fa lse|False| False|Fals e| |False| False|Fals e|False| "
  16311         Link SortMode " 0|0|0|0| | 0|0|0|0| "
  16312         Link PartColMod e "1|1|1|1 | |1|1|1|8 | "
  16313         Link SourcePinI Ds "V81S2P 2|V0S114P2 1|V112S0P1 |V121S0P2|  |V0S174P2 |V0S176P3| V0S182P2|V 130S0P2| "
  16314      END DSR ECORD
  16315      BEGIN D SRECORD
  16316         Iden tifier "V0 A191"
  16317         OLET ype "CAnno tation"
  16318         Read only "0"
  16319         Name  "V0A191"
  16320         Next ID "0"
  16321         Anno tationType  "0"
  16322         Anno tationText  =+=+=+=
  16323   9/22/2015:
  16324   added logi c go check  if ICD st art with t he letter  'E'
  16325   =+=+=+=
  16326         Text Font "Micr osoft Sans  Serif\\8\ \0\\0\\0\\ 400\\0"
  16327         Text Horizontal Justificat ion "0"
  16328         Text VerticalJu stificatio n "0"
  16329         Text Color "0"
  16330         Back groundColo r "1677721 5"
  16331         Back groundTran sparent "0 "
  16332         Bord erVisible  "1"
  16333      END DSR ECORD
  16334      BEGIN D SRECORD
  16335         Iden tifier "V0 S114"
  16336         OLET ype "CCust omStage"
  16337         Read only "0"
  16338         Name  "Lkp_DimD iagCode"
  16339         Next ID "22"
  16340         Inpu tPins "V0S 114P8|V0S1 14P20"
  16341         Outp utPins "V0 S114P21"
  16342         Stag eType "PxL ookup"
  16343         Allo wColumnMap ping "0"
  16344         Prop erties "CC ustomPrope rty"
  16345         BEGI N DSSUBREC ORD
  16346            N ame "compi leopt"
  16347         END  DSSUBRECOR D
  16348         BEGI N DSSUBREC ORD
  16349            N ame "linko pt"
  16350         END  DSSUBRECOR D
  16351         Meta Bag "CMeta Property"
  16352         BEGI N DSSUBREC ORD
  16353            O wner "APT"
  16354            N ame "Looku pOperator"
  16355            V alue "look up"
  16356         END  DSSUBRECOR D
  16357         BEGI N DSSUBREC ORD
  16358            O wner "APT"
  16359            N ame "TrxGe nCode"
  16360            V alue =+=+= +=
  16361   //
  16362   // Generat ed file to  implement  the V0S11 4_EDI837P_ CLAIM_DIAG NOSIS_prep _Lkp_DimVa Claim tran sform oper ator.
  16363   //
  16364  
  16365   // define  our input/ output lin k names
  16366   inputname  0 FmtDiagC odes;
  16367   tablename  0 DimVaCla im;
  16368   tablename  1 DimDiagn osisCode;
  16369   outputname  0 Lkp_Dim VaClaim;
  16370  
  16371   initialize  {
  16372    // define  our contr ol variabl es
  16373    int8 RowR ejected0;
  16374    int8 Null SetVar0;
  16375  
  16376   }
  16377  
  16378   mainloop {
  16379  
  16380   // no cond ition for  lookup lin k: DimVaCl aim
  16381   lookup(Dim VaClaim);
  16382   // no cond ition for  lookup lin k: DimDiag nosisCode
  16383   lookup(Dim DiagnosisC ode);
  16384   if (!is_ma tch(DimDia gnosisCode )) {
  16385    rejectrec ord 0;
  16386   };
  16387    // initia lise the r ejected ro w variable
  16388    RowReject ed0 = 1;
  16389  
  16390    // evalua te columns  (no const raints) fo r link: Lk p_DimVaCla im
  16391    Lkp_DimVa Claim.clai m_key = Di mVaClaim.c laim_key;
  16392    Lkp_DimVa Claim.DIAG NOSIS_key  = DimDiagn osisCode.D IAGNOSIS_k ey;
  16393    Lkp_DimVa Claim.sour ce_entity  = FmtDiagC odes.sourc e_entity;
  16394    writereco rd 0;
  16395    RowReject ed0 = 0;
  16396   }
  16397  
  16398   finish {
  16399   }
  16400  
  16401   =+=+=+=
  16402         END  DSSUBRECOR D
  16403         BEGI N DSSUBREC ORD
  16404            O wner "APT"
  16405            N ame "TrxCl assName"
  16406            V alue "V0S1 14_EDI837P _CLAIM_DIA GNOSIS_pre p_Lkp_DimV aClaim"
  16407         END  DSSUBRECOR D
  16408         Next RecordID " 0"
  16409      END DSR ECORD
  16410      BEGIN D SRECORD
  16411         Iden tifier "V0 S114P20"
  16412         OLET ype "CCust omInput"
  16413         Read only "0"
  16414         Name  "RmvDupCo de"
  16415         Part ner "V0S18 2|V0S182P2 "
  16416         Link Type "1"
  16417         Cond itionNotMe t "fail"
  16418         Look upFail "fa il"
  16419         Prop erties "CC ustomPrope rty"
  16420         BEGI N DSSUBREC ORD
  16421            N ame "allow _dups"
  16422            V alue " "
  16423         END  DSSUBRECOR D
  16424         Meta Bag "CMeta Property"
  16425         BEGI N DSSUBREC ORD
  16426            O wner "APT"
  16427            N ame "RTCol umnProp"
  16428            V alue "0"
  16429         END  DSSUBRECOR D
  16430         BEGI N DSSUBREC ORD
  16431            O wner "APT"
  16432            N ame "Schem a"
  16433            V alue =+=+= +=
  16434   record
  16435   (
  16436     claim_id :nullable  string[max =20];
  16437     ICDVersi on:string[ max=15];
  16438     diagnose s_qualif:n ullable st ring[max=1 0];
  16439     diagnose s_code:nul lable stri ng[max=30] ;
  16440     is_curre nt:string[ 1];
  16441     start_da te:nullabl e date;
  16442     end_date :nullable  date;
  16443     source_s ystem:null able strin g[max=20];
  16444     source_e ntity:null able strin g[max=50];
  16445     row_id:n ullable st ring[max=2 0];
  16446     etl_batc h_id:nulla ble string [max=20];
  16447   )
  16448   =+=+=+=
  16449         END  DSSUBRECOR D
  16450         BEGI N DSSUBREC ORD
  16451            O wner "APT"
  16452            N ame "SeqSo rt"
  16453            V alue "0"
  16454         END  DSSUBRECOR D
  16455         Tran sactionSiz e "0"
  16456         TXNB ehaviour " 0"
  16457         Enab leTxGroup  "0"
  16458         Link Minimised  "0"
  16459      END DSR ECORD
  16460      BEGIN D SRECORD
  16461         Iden tifier "V0 S114P21"
  16462         OLET ype "CCust omOutput"
  16463         Read only "0"
  16464         Name  "Diagnosi sCodeNotFo und"
  16465         Part ner "V0S17 4|V0S174P1 "
  16466         Colu mns "COutp utColumn"
  16467         BEGI N DSSUBREC ORD
  16468            N ame "DIAGN OSIS_key"
  16469            D escription  =+=+=+=
  16470   <none>
  16471   Searchable ? N 
  16472   =+=+=+=
  16473            S qlType "4"
  16474            P recision " 10"
  16475            S cale "0"
  16476            N ullable "1 "
  16477            K eyPosition  "0"
  16478            D isplaySize  "11"
  16479            D erivation  "DimDiagno sisCode.DI AGNOSIS_ke y"
  16480            G roup "0"
  16481            P arsedDeriv ation "Dim DiagnosisC ode.DIAGNO SIS_key"
  16482            S ourceColum n "DimDiag nosisCode. DIAGNOSIS_ key"
  16483            S ortKey "0"
  16484            S ortType "0 "
  16485            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_VA_PAY ER"
  16486            A llowCRLF " 0"
  16487            L evelNo "0"
  16488            O ccurs "0"
  16489            P adNulls "0 "
  16490            S ignOption  "0"
  16491            S ortingOrde r "0"
  16492            A rrayHandli ng "0"
  16493            S yncIndicat or "0"
  16494            P adChar ""
  16495            C olumnRefer ence "paye r_key"
  16496            A PTFieldPro p "quote=n one"
  16497            E xtendedPre cision "0"
  16498            T aggedSubre c "0"
  16499            O ccursVaryi ng "0"
  16500            P KeyIsCasel ess "0"
  16501            S CDPurpose  "0"
  16502         END  DSSUBRECOR D
  16503         BEGI N DSSUBREC ORD
  16504            N ame "ICDVe rsion"
  16505            S qlType "12 "
  16506            P recision " 15"
  16507            S cale "0"
  16508            N ullable "1 "
  16509            K eyPosition  "0"
  16510            D isplaySize  "0"
  16511            D erivation  "RmvDupCod e.ICDVersi on"
  16512            G roup "0"
  16513            P arsedDeriv ation "Rmv DupCode.IC DVersion"
  16514            S ourceColum n "RmvDupC ode.ICDVer sion"
  16515            S ortKey "0"
  16516            S ortType "0 "
  16517            A llowCRLF " 0"
  16518            L evelNo "0"
  16519            O ccurs "0"
  16520            P adNulls "0 "
  16521            S ignOption  "0"
  16522            S ortingOrde r "0"
  16523            A rrayHandli ng "0"
  16524            S yncIndicat or "0"
  16525            P adChar ""
  16526            E xtendedPre cision "0"
  16527            T aggedSubre c "0"
  16528            O ccursVaryi ng "0"
  16529            P KeyIsCasel ess "0"
  16530            S CDPurpose  "0"
  16531         END  DSSUBRECOR D
  16532         BEGI N DSSUBREC ORD
  16533            N ame "diagn oses_code"
  16534            D escription  =+=+=+=
  16535   <none>
  16536   Searchable ? N 
  16537   =+=+=+=
  16538            S qlType "12 "
  16539            P recision " 30"
  16540            S cale "0"
  16541            N ullable "1 "
  16542            K eyPosition  "0"
  16543            D isplaySize  "15"
  16544            D erivation  "RmvDupCod e.diagnose s_code"
  16545            G roup "0"
  16546            P arsedDeriv ation "Rmv DupCode.di agnoses_co de"
  16547            S ourceColum n "RmvDupC ode.diagno ses_code"
  16548            S ortKey "0"
  16549            S ortType "0 "
  16550            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  16551            A llowCRLF " 0"
  16552            L evelNo "0"
  16553            O ccurs "0"
  16554            P adNulls "0 "
  16555            S ignOption  "0"
  16556            S ortingOrde r "0"
  16557            A rrayHandli ng "0"
  16558            S yncIndicat or "0"
  16559            P adChar ""
  16560            C olumnRefer ence "oral _cavity_de signation_ code"
  16561            A PTFieldPro p "null_fi eld=''"
  16562            E xtendedPre cision "0"
  16563            T aggedSubre c "0"
  16564            O ccursVaryi ng "0"
  16565            P KeyIsCasel ess "0"
  16566            S CDPurpose  "0"
  16567         END  DSSUBRECOR D
  16568         BEGI N DSSUBREC ORD
  16569            N ame "is_cu rrent"
  16570            S qlType "1"
  16571            P recision " 1"
  16572            S cale "0"
  16573            N ullable "0 "
  16574            K eyPosition  "0"
  16575            D isplaySize  "0"
  16576            D erivation  "RmvDupCod e.is_curre nt"
  16577            G roup "0"
  16578            P arsedDeriv ation "Rmv DupCode.is _current"
  16579            S ourceColum n "RmvDupC ode.is_cur rent"
  16580            S ortKey "0"
  16581            S ortType "0 "
  16582            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  16583            A llowCRLF " 0"
  16584            L evelNo "0"
  16585            N ativeType  "pit_boole an"
  16586            O ccurs "0"
  16587            P adNulls "0 "
  16588            S ignOption  "0"
  16589            S ortingOrde r "0"
  16590            A rrayHandli ng "0"
  16591            S yncIndicat or "0"
  16592            P adChar ""
  16593            C olumnRefer ence "is_c urrent"
  16594            E xtendedPre cision "0"
  16595            T aggedSubre c "0"
  16596            O ccursVaryi ng "0"
  16597            P KeyIsCasel ess "0"
  16598            S CDPurpose  "0"
  16599         END  DSSUBRECOR D
  16600         BEGI N DSSUBREC ORD
  16601            N ame "start _date"
  16602            S qlType "9"
  16603            P recision " 10"
  16604            S cale "0"
  16605            N ullable "1 "
  16606            K eyPosition  "0"
  16607            D isplaySize  "0"
  16608            D erivation  "RmvDupCod e.start_da te"
  16609            G roup "0"
  16610            P arsedDeriv ation "Rmv DupCode.st art_date"
  16611            S ourceColum n "RmvDupC ode.start_ date"
  16612            S ortKey "0"
  16613            S ortType "0 "
  16614            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  16615            A llowCRLF " 0"
  16616            L evelNo "0"
  16617            N ativeType  "pit_date"
  16618            O ccurs "0"
  16619            P adNulls "0 "
  16620            S ignOption  "0"
  16621            S ortingOrde r "0"
  16622            A rrayHandli ng "0"
  16623            S yncIndicat or "0"
  16624            P adChar ""
  16625            C olumnRefer ence "star t_date"
  16626            E xtendedPre cision "0"
  16627            T aggedSubre c "0"
  16628            O ccursVaryi ng "0"
  16629            P KeyIsCasel ess "0"
  16630            S CDPurpose  "0"
  16631         END  DSSUBRECOR D
  16632         BEGI N DSSUBREC ORD
  16633            N ame "sourc e_system"
  16634            S qlType "12 "
  16635            P recision " 20"
  16636            S cale "0"
  16637            N ullable "1 "
  16638            K eyPosition  "0"
  16639            D isplaySize  "0"
  16640            D erivation  "RmvDupCod e.source_s ystem"
  16641            G roup "0"
  16642            P arsedDeriv ation "Rmv DupCode.so urce_syste m"
  16643            S ourceColum n "RmvDupC ode.source _system"
  16644            S ortKey "0"
  16645            S ortType "0 "
  16646            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  16647            A llowCRLF " 0"
  16648            L evelNo "0"
  16649            N ativeType  "varchar"
  16650            O ccurs "0"
  16651            P adNulls "0 "
  16652            S ignOption  "0"
  16653            S ortingOrde r "0"
  16654            A rrayHandli ng "0"
  16655            S yncIndicat or "0"
  16656            P adChar ""
  16657            C olumnRefer ence "sour ce_system"
  16658            E xtendedPre cision "0"
  16659            T aggedSubre c "0"
  16660            O ccursVaryi ng "0"
  16661            P KeyIsCasel ess "0"
  16662            S CDPurpose  "0"
  16663         END  DSSUBRECOR D
  16664         BEGI N DSSUBREC ORD
  16665            N ame "sourc e_entity"
  16666            S qlType "12 "
  16667            P recision " 50"
  16668            S cale "0"
  16669            N ullable "1 "
  16670            K eyPosition  "0"
  16671            D isplaySize  "0"
  16672            D erivation  "RmvDupCod e.source_e ntity"
  16673            G roup "0"
  16674            P arsedDeriv ation "Rmv DupCode.so urce_entit y"
  16675            S ourceColum n "RmvDupC ode.source _entity"
  16676            S ortKey "0"
  16677            S ortType "0 "
  16678            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  16679            A llowCRLF " 0"
  16680            L evelNo "0"
  16681            O ccurs "0"
  16682            P adNulls "0 "
  16683            S ignOption  "0"
  16684            S ortingOrde r "0"
  16685            A rrayHandli ng "0"
  16686            S yncIndicat or "0"
  16687            P adChar ""
  16688            C olumnRefer ence "sour ce_entity"
  16689            E xtendedPre cision "0"
  16690            T aggedSubre c "0"
  16691            O ccursVaryi ng "0"
  16692            P KeyIsCasel ess "0"
  16693            S CDPurpose  "0"
  16694         END  DSSUBRECOR D
  16695         BEGI N DSSUBREC ORD
  16696            N ame "row_i d"
  16697            S qlType "12 "
  16698            P recision " 20"
  16699            S cale "0"
  16700            N ullable "1 "
  16701            K eyPosition  "0"
  16702            D isplaySize  "0"
  16703            D erivation  "RmvDupCod e.row_id"
  16704            G roup "0"
  16705            P arsedDeriv ation "Rmv DupCode.ro w_id"
  16706            S ourceColum n "RmvDupC ode.row_id "
  16707            S ortKey "0"
  16708            S ortType "0 "
  16709            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  16710            A llowCRLF " 0"
  16711            L evelNo "0"
  16712            N ativeType  "varchar"
  16713            O ccurs "0"
  16714            P adNulls "0 "
  16715            S ignOption  "0"
  16716            S ortingOrde r "0"
  16717            A rrayHandli ng "0"
  16718            S yncIndicat or "0"
  16719            P adChar ""
  16720            C olumnRefer ence "row_ id"
  16721            E xtendedPre cision "0"
  16722            T aggedSubre c "0"
  16723            O ccursVaryi ng "0"
  16724            P KeyIsCasel ess "0"
  16725            S CDPurpose  "0"
  16726         END  DSSUBRECOR D
  16727         Meta Bag "CMeta Property"
  16728         BEGI N DSSUBREC ORD
  16729            O wner "APT"
  16730            N ame "Schem a"
  16731            V alue =+=+= +=
  16732   record
  16733   (
  16734     claim_id :nullable  string[max =20];
  16735     ICDVersi on:string[ max=15];
  16736     diagnose s_qualif:n ullable st ring[max=1 0];
  16737     diagnose s_code:nul lable stri ng[max=30] ;
  16738     is_curre nt:string[ 1];
  16739     start_da te:nullabl e date;
  16740     end_date :nullable  date;
  16741     source_s ystem:null able strin g[max=20];
  16742     source_e ntity:null able strin g[max=50];
  16743     row_id:n ullable st ring[max=2 0];
  16744     etl_batc h_id:nulla ble string [max=20];
  16745   )
  16746   =+=+=+=
  16747         END  DSSUBRECOR D
  16748         BEGI N DSSUBREC ORD
  16749            O wner "APT"
  16750            N ame "DiskW riteInc"
  16751            V alue "1048 576"
  16752         END  DSSUBRECOR D
  16753         BEGI N DSSUBREC ORD
  16754            O wner "APT"
  16755            N ame "BufFr eeRun"
  16756            V alue "50"
  16757         END  DSSUBRECOR D
  16758         BEGI N DSSUBREC ORD
  16759            O wner "APT"
  16760            N ame "MaxMe mBufSize"
  16761            V alue "3145 728"
  16762         END  DSSUBRECOR D
  16763         BEGI N DSSUBREC ORD
  16764            O wner "APT"
  16765            N ame "Queue UpperSize"
  16766            V alue "0"
  16767         END  DSSUBRECOR D
  16768         Left TextPos "1 084"
  16769         TopT extPos "31 5"
  16770         Link Minimised  "0"
  16771      END DSR ECORD
  16772      BEGIN D SRECORD
  16773         Iden tifier "V0 S114P8"
  16774         OLET ype "CCust omInput"
  16775         Read only "0"
  16776         Name  "DimDiagn osisCode"
  16777         Part ner "V112S 0|V112S0P1 "
  16778         Link Type "2"
  16779         Cond itionNotMe t "continu e"
  16780         Look upFail "co ntinue"
  16781         Prop erties "CC ustomPrope rty"
  16782         BEGI N DSSUBREC ORD
  16783            N ame "allow _dups"
  16784            V alue " "
  16785         END  DSSUBRECOR D
  16786         BEGI N DSSUBREC ORD
  16787            N ame "save"
  16788         END  DSSUBRECOR D
  16789         BEGI N DSSUBREC ORD
  16790            N ame "diskp ool"
  16791         END  DSSUBRECOR D
  16792         Meta Bag "CMeta Property"
  16793         BEGI N DSSUBREC ORD
  16794            O wner "APT"
  16795            N ame "RTCol umnProp"
  16796            V alue "0"
  16797         END  DSSUBRECOR D
  16798         BEGI N DSSUBREC ORD
  16799            O wner "APT"
  16800            N ame "SeqSo rt"
  16801            V alue "0"
  16802         END  DSSUBRECOR D
  16803         BEGI N DSSUBREC ORD
  16804            O wner "APT"
  16805            N ame "Looku pOptions"
  16806            V alue =+=+= +=
  16807   -table
  16808   -key diagn oses_code
  16809  
  16810   =+=+=+=
  16811         END  DSSUBRECOR D
  16812         BEGI N DSSUBREC ORD
  16813            O wner "APT"
  16814            N ame "Schem a"
  16815            V alue =+=+= +=
  16816   record
  16817   (
  16818     DIAGNOSI S_key:int3 2;
  16819     diagnose s_code:nul lable stri ng[max=30] ;
  16820     version: nullable s tring[max= 15];
  16821     source_e ntity:null able strin g[max=50];
  16822   )
  16823   =+=+=+=
  16824         END  DSSUBRECOR D
  16825         Tran sactionSiz e "0"
  16826         TXNB ehaviour " 0"
  16827         Enab leTxGroup  "0"
  16828         Link Minimised  "0"
  16829      END DSR ECORD
  16830      BEGIN D SRECORD
  16831         Iden tifier "V0 S174"
  16832         OLET ype "CTran sformerSta ge"
  16833         Read only "0"
  16834         Name  "XfrmDiag nosis"
  16835         Next ID "3"
  16836         Inpu tPins "V0S 174P1"
  16837         Outp utPins "V0 S174P2"
  16838         Meta Bag "CMeta Property"
  16839         BEGI N DSSUBREC ORD
  16840            O wner "APT"
  16841            N ame "TrxGe nCode"
  16842            V alue =+=+= +=
  16843   //
  16844   // Generat ed file to  implement  the V0S17 4_EDI837P_ DIM_DIAGNO SIS_CODE_p rep_XfrmDi agnosis tr ansform op erator.
  16845   //
  16846  
  16847   // define  our input/ output lin k names
  16848   inputname  0 Diagnosi sCodeNotFo und;
  16849   outputname  0 Missing DiagnosisC odes;
  16850  
  16851   initialize  {
  16852    // define  our contr ol variabl es
  16853    int8 RowR ejected0;
  16854    int8 Null SetVar0;
  16855  
  16856   }
  16857  
  16858   mainloop {
  16859  
  16860    // declar e our inte rmediate v ariables f or this se ction (2)
  16861    int32 Int erVar0_0;
  16862  
  16863    // initia lise the r ejected ro w variable
  16864    RowReject ed0 = 1;
  16865  
  16866    // evalua te constra int and co lumns for  link: Miss ingDiagnos isCodes
  16867    if (notnu ll(Diagnos isCodeNotF ound.DIAGN OSIS_key))  {
  16868     InterVar 0_0 = Diag nosisCodeN otFound.DI AGNOSIS_ke y;
  16869    } else {
  16870     InterVar 0_0 = 0;
  16871    }
  16872    if ((Inte rVar0_0 ==  0))
  16873    {
  16874     if (notn ull(Diagno sisCodeNot Found.DIAG NOSIS_key) ) {
  16875      Missing DiagnosisC odes.DIAGN OSIS_key =  Diagnosis CodeNotFou nd.DIAGNOS IS_key;
  16876     } else {
  16877      Missing DiagnosisC odes.DIAGN OSIS_key =  0;
  16878     }
  16879     //;
  16880     writerec ord 0;
  16881     RowRejec ted0 = 0;
  16882    }
  16883   }
  16884  
  16885   finish {
  16886   }
  16887  
  16888   =+=+=+=
  16889         END  DSSUBRECOR D
  16890         BEGI N DSSUBREC ORD
  16891            O wner "APT"
  16892            N ame "TrxGe nCache"
  16893            V alue "0"
  16894         END  DSSUBRECOR D
  16895         BEGI N DSSUBREC ORD
  16896            O wner "APT"
  16897            N ame "TrxCl assName"
  16898            V alue "V0S1 74_EDI837P _DIM_DIAGN OSIS_CODE_ prep_XfrmD iagnosis"
  16899         END  DSSUBRECOR D
  16900         Vali dationStat us "0"
  16901         Stag eType "CTr ansformerS tage"
  16902         Bloc kSize "0"
  16903         Stag eVarsMinim ised "0"
  16904         Loop VarsMaximi sed "0"
  16905         MaxL oopIterati ons "0"
  16906      END DSR ECORD
  16907      BEGIN D SRECORD
  16908         Iden tifier "V0 S174P1"
  16909         OLET ype "CTrxI nput"
  16910         Read only "0"
  16911         Name  "Diagnosi sCodeNotFo und"
  16912         Part ner "V0S11 4|V0S114P2 1"
  16913         Link Type "1"
  16914         Meta Bag "CMeta Property"
  16915         BEGI N DSSUBREC ORD
  16916            O wner "APT"
  16917            N ame "RTCol umnProp"
  16918            V alue "0"
  16919         END  DSSUBRECOR D
  16920         BEGI N DSSUBREC ORD
  16921            O wner "APT"
  16922            N ame "Schem a"
  16923            V alue =+=+= +=
  16924   record
  16925   (
  16926     DIAGNOSI S_key:null able int32 ;
  16927     ICDVersi on:nullabl e string[m ax=15];
  16928     diagnose s_code:nul lable stri ng[max=30] ;
  16929     is_curre nt:string[ 1];
  16930     start_da te:nullabl e date;
  16931     source_s ystem:null able strin g[max=20];
  16932     source_e ntity:null able strin g[max=50];
  16933     row_id:n ullable st ring[max=2 0];
  16934   )
  16935   =+=+=+=
  16936         END  DSSUBRECOR D
  16937         Mult iRow "0"
  16938         Link Minimised  "0"
  16939      END DSR ECORD
  16940      BEGIN D SRECORD
  16941         Iden tifier "V0 S174P2"
  16942         OLET ype "CTrxO utput"
  16943         Read only "0"
  16944         Name  "MissingD iagnosisCo des"
  16945         Part ner "V123S 0|V123S0P2 "
  16946         Cons traint "Nu llToValue( DiagnosisC odeNotFoun d.DIAGNOSI S_key, 0)  = 0"
  16947         Reje ct "0"
  16948         Erro rPin "0"
  16949         RowL imit "0"
  16950         Pars edConstrai nt "( IF I sNotNull(( DiagnosisC odeNotFoun d.DIAGNOSI S_key)) TH EN (Diagno sisCodeNot Found.DIAG NOSIS_key)  ELSE (0))  = 0"
  16951         Sour ceColumns  "Diagnosis CodeNotFou nd.DIAGNOS IS_key"
  16952         Colu mns "COutp utColumn"
  16953         BEGI N DSSUBREC ORD
  16954            N ame "DIAGN OSIS_key"
  16955            D escription  =+=+=+=
  16956   <none>
  16957   Searchable ? N 
  16958   =+=+=+=
  16959            S qlType "4"
  16960            P recision " 10"
  16961            S cale "0"
  16962            N ullable "1 "
  16963            K eyPosition  "0"
  16964            D isplaySize  "11"
  16965            D erivation  "NullToVal ue(Diagnos isCodeNotF ound.DIAGN OSIS_key,  0)"
  16966            G roup "0"
  16967            P arsedDeriv ation "( I F IsNotNul l((Diagnos isCodeNotF ound.DIAGN OSIS_key))  THEN (Dia gnosisCode NotFound.D IAGNOSIS_k ey) ELSE ( 0))"
  16968            S ourceColum n "Diagnos isCodeNotF ound.DIAGN OSIS_key"
  16969            S ortKey "0"
  16970            S ortType "0 "
  16971            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  16972            A llowCRLF " 0"
  16973            L evelNo "0"
  16974            O ccurs "0"
  16975            P adNulls "0 "
  16976            S ignOption  "0"
  16977            S ortingOrde r "0"
  16978            A rrayHandli ng "0"
  16979            S yncIndicat or "0"
  16980            P adChar ""
  16981            C olumnRefer ence "DIAG NOSIS_key"
  16982            A PTFieldPro p "quote=n one"
  16983            E xtendedPre cision "0"
  16984            T aggedSubre c "0"
  16985            O ccursVaryi ng "0"
  16986            P KeyIsCasel ess "0"
  16987            S CDPurpose  "0"
  16988         END  DSSUBRECOR D
  16989         BEGI N DSSUBREC ORD
  16990            N ame "diagn oses_code"
  16991            D escription  =+=+=+=
  16992   <none>
  16993   Searchable ? N 
  16994   =+=+=+=
  16995            S qlType "12 "
  16996            P recision " 30"
  16997            S cale "0"
  16998            N ullable "1 "
  16999            K eyPosition  "0"
  17000            D isplaySize  "15"
  17001            D erivation  "Diagnosis CodeNotFou nd.diagnos es_code"
  17002            G roup "0"
  17003            P arsedDeriv ation "Dia gnosisCode NotFound.d iagnoses_c ode"
  17004            S ourceColum n "Diagnos isCodeNotF ound.diagn oses_code"
  17005            S ortKey "0"
  17006            S ortType "0 "
  17007            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  17008            A llowCRLF " 0"
  17009            L evelNo "0"
  17010            O ccurs "0"
  17011            P adNulls "0 "
  17012            S ignOption  "0"
  17013            S ortingOrde r "0"
  17014            A rrayHandli ng "0"
  17015            S yncIndicat or "0"
  17016            P adChar ""
  17017            C olumnRefer ence "diag noses_code "
  17018            A PTFieldPro p "null_fi eld=''"
  17019            E xtendedPre cision "0"
  17020            T aggedSubre c "0"
  17021            O ccursVaryi ng "0"
  17022            P KeyIsCasel ess "0"
  17023            S CDPurpose  "0"
  17024         END  DSSUBRECOR D
  17025         BEGI N DSSUBREC ORD
  17026            N ame "ICDVe rsion"
  17027            S qlType "12 "
  17028            P recision " 15"
  17029            S cale "0"
  17030            N ullable "1 "
  17031            K eyPosition  "0"
  17032            D isplaySize  "0"
  17033            D erivation  "Diagnosis CodeNotFou nd.ICDVers ion"
  17034            G roup "0"
  17035            P arsedDeriv ation "Dia gnosisCode NotFound.I CDVersion"
  17036            S ourceColum n "Diagnos isCodeNotF ound.ICDVe rsion"
  17037            S ortKey "0"
  17038            S ortType "0 "
  17039            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  17040            A llowCRLF " 0"
  17041            L evelNo "0"
  17042            O ccurs "0"
  17043            P adNulls "0 "
  17044            S ignOption  "0"
  17045            S ortingOrde r "0"
  17046            A rrayHandli ng "0"
  17047            S yncIndicat or "0"
  17048            P adChar ""
  17049            C olumnRefer ence "ICDV ersion"
  17050            E xtendedPre cision "0"
  17051            T aggedSubre c "0"
  17052            O ccursVaryi ng "0"
  17053            P KeyIsCasel ess "0"
  17054            S CDPurpose  "0"
  17055         END  DSSUBRECOR D
  17056         BEGI N DSSUBREC ORD
  17057            N ame "is_cu rrent"
  17058            S qlType "1"
  17059            P recision " 1"
  17060            S cale "0"
  17061            N ullable "0 "
  17062            K eyPosition  "0"
  17063            D isplaySize  "0"
  17064            D erivation  "Diagnosis CodeNotFou nd.is_curr ent"
  17065            G roup "0"
  17066            P arsedDeriv ation "Dia gnosisCode NotFound.i s_current"
  17067            S ourceColum n "Diagnos isCodeNotF ound.is_cu rrent"
  17068            S ortKey "0"
  17069            S ortType "0 "
  17070            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  17071            A llowCRLF " 0"
  17072            L evelNo "0"
  17073            N ativeType  "pit_boole an"
  17074            O ccurs "0"
  17075            P adNulls "0 "
  17076            S ignOption  "0"
  17077            S ortingOrde r "0"
  17078            A rrayHandli ng "0"
  17079            S yncIndicat or "0"
  17080            P adChar ""
  17081            C olumnRefer ence "is_c urrent"
  17082            E xtendedPre cision "0"
  17083            T aggedSubre c "0"
  17084            O ccursVaryi ng "0"
  17085            P KeyIsCasel ess "0"
  17086            S CDPurpose  "0"
  17087         END  DSSUBRECOR D
  17088         BEGI N DSSUBREC ORD
  17089            N ame "start _date"
  17090            S qlType "9"
  17091            P recision " 10"
  17092            S cale "0"
  17093            N ullable "1 "
  17094            K eyPosition  "0"
  17095            D isplaySize  "0"
  17096            D erivation  "Diagnosis CodeNotFou nd.start_d ate"
  17097            G roup "0"
  17098            P arsedDeriv ation "Dia gnosisCode NotFound.s tart_date"
  17099            S ourceColum n "Diagnos isCodeNotF ound.start _date"
  17100            S ortKey "0"
  17101            S ortType "0 "
  17102            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  17103            A llowCRLF " 0"
  17104            L evelNo "0"
  17105            N ativeType  "pit_date"
  17106            O ccurs "0"
  17107            P adNulls "0 "
  17108            S ignOption  "0"
  17109            S ortingOrde r "0"
  17110            A rrayHandli ng "0"
  17111            S yncIndicat or "0"
  17112            P adChar ""
  17113            C olumnRefer ence "star t_date"
  17114            E xtendedPre cision "0"
  17115            T aggedSubre c "0"
  17116            O ccursVaryi ng "0"
  17117            P KeyIsCasel ess "0"
  17118            S CDPurpose  "0"
  17119         END  DSSUBRECOR D
  17120         BEGI N DSSUBREC ORD
  17121            N ame "sourc e_system"
  17122            S qlType "12 "
  17123            P recision " 20"
  17124            S cale "0"
  17125            N ullable "1 "
  17126            K eyPosition  "0"
  17127            D isplaySize  "0"
  17128            D erivation  "Diagnosis CodeNotFou nd.source_ system"
  17129            G roup "0"
  17130            P arsedDeriv ation "Dia gnosisCode NotFound.s ource_syst em"
  17131            S ourceColum n "Diagnos isCodeNotF ound.sourc e_system"
  17132            S ortKey "0"
  17133            S ortType "0 "
  17134            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  17135            A llowCRLF " 0"
  17136            L evelNo "0"
  17137            N ativeType  "varchar"
  17138            O ccurs "0"
  17139            P adNulls "0 "
  17140            S ignOption  "0"
  17141            S ortingOrde r "0"
  17142            A rrayHandli ng "0"
  17143            S yncIndicat or "0"
  17144            P adChar ""
  17145            C olumnRefer ence "sour ce_system"
  17146            E xtendedPre cision "0"
  17147            T aggedSubre c "0"
  17148            O ccursVaryi ng "0"
  17149            P KeyIsCasel ess "0"
  17150            S CDPurpose  "0"
  17151         END  DSSUBRECOR D
  17152         BEGI N DSSUBREC ORD
  17153            N ame "sourc e_entity"
  17154            S qlType "12 "
  17155            P recision " 50"
  17156            S cale "0"
  17157            N ullable "1 "
  17158            K eyPosition  "0"
  17159            D isplaySize  "0"
  17160            D erivation  "Diagnosis CodeNotFou nd.source_ entity"
  17161            G roup "0"
  17162            P arsedDeriv ation "Dia gnosisCode NotFound.s ource_enti ty"
  17163            S ourceColum n "Diagnos isCodeNotF ound.sourc e_entity"
  17164            S ortKey "0"
  17165            S ortType "0 "
  17166            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  17167            A llowCRLF " 0"
  17168            L evelNo "0"
  17169            O ccurs "0"
  17170            P adNulls "0 "
  17171            S ignOption  "0"
  17172            S ortingOrde r "0"
  17173            A rrayHandli ng "0"
  17174            S yncIndicat or "0"
  17175            P adChar ""
  17176            C olumnRefer ence "sour ce_entity"
  17177            E xtendedPre cision "0"
  17178            T aggedSubre c "0"
  17179            O ccursVaryi ng "0"
  17180            P KeyIsCasel ess "0"
  17181            S CDPurpose  "0"
  17182         END  DSSUBRECOR D
  17183         BEGI N DSSUBREC ORD
  17184            N ame "row_i d"
  17185            S qlType "12 "
  17186            P recision " 20"
  17187            S cale "0"
  17188            N ullable "1 "
  17189            K eyPosition  "0"
  17190            D isplaySize  "0"
  17191            D erivation  "Diagnosis CodeNotFou nd.row_id"
  17192            G roup "0"
  17193            P arsedDeriv ation "Dia gnosisCode NotFound.r ow_id"
  17194            S ourceColum n "Diagnos isCodeNotF ound.row_i d"
  17195            S ortKey "0"
  17196            S ortType "0 "
  17197            T ableDef "T ableDefini tions\\EDI 837P\\DimD iagnosis_d s"
  17198            A llowCRLF " 0"
  17199            L evelNo "0"
  17200            N ativeType  "varchar"
  17201            O ccurs "0"
  17202            P adNulls "0 "
  17203            S ignOption  "0"
  17204            S ortingOrde r "0"
  17205            A rrayHandli ng "0"
  17206            S yncIndicat or "0"
  17207            P adChar ""
  17208            C olumnRefer ence "row_ id"
  17209            E xtendedPre cision "0"
  17210            T aggedSubre c "0"
  17211            O ccursVaryi ng "0"
  17212            P KeyIsCasel ess "0"
  17213            S CDPurpose  "0"
  17214         END  DSSUBRECOR D
  17215         Meta Bag "CMeta Property"
  17216         BEGI N DSSUBREC ORD
  17217            O wner "APT"
  17218            N ame "DiskW riteInc"
  17219            V alue "1048 576"
  17220         END  DSSUBRECOR D
  17221         BEGI N DSSUBREC ORD
  17222            O wner "APT"
  17223            N ame "BufFr eeRun"
  17224            V alue "50"
  17225         END  DSSUBRECOR D
  17226         BEGI N DSSUBREC ORD
  17227            O wner "APT"
  17228            N ame "MaxMe mBufSize"
  17229            V alue "3145 728"
  17230         END  DSSUBRECOR D
  17231         BEGI N DSSUBREC ORD
  17232            O wner "APT"
  17233            N ame "Queue UpperSize"
  17234            V alue "0"
  17235         END  DSSUBRECOR D
  17236         BEGI N DSSUBREC ORD
  17237            O wner "APT"
  17238            N ame "Schem a"
  17239            V alue =+=+= +=
  17240   record
  17241   (
  17242     DIAGNOSI S_key:null able int32 ;
  17243     diagnose s_code:nul lable stri ng[max=30] ;
  17244     ICDVersi on:nullabl e string[m ax=15];
  17245     is_curre nt:string[ 1];
  17246     start_da te:nullabl e date;
  17247     source_s ystem:null able strin g[max=20];
  17248     source_e ntity:null able strin g[max=50];
  17249     row_id:n ullable st ring[max=2 0];
  17250   )
  17251   =+=+=+=
  17252         END  DSSUBRECOR D
  17253         Left TextPos "1 343"
  17254         TopT extPos "19 8"
  17255         Link Minimised  "0"
  17256      END DSR ECORD
  17257      BEGIN D SRECORD
  17258         Iden tifier "V0 S176"
  17259         OLET ype "CTran sformerSta ge"
  17260         Read only "0"
  17261         Name  "Fmt_Diag Codes"
  17262         Next ID "5"
  17263         Inpu tPins "V0S 176P1"
  17264         Outp utPins "V0 S176P3"
  17265         Meta Bag "CMeta Property"
  17266         BEGI N DSSUBREC ORD
  17267            O wner "APT"
  17268            N ame "TrxGe nCode"
  17269            V alue =+=+= +=
  17270   //
  17271   // Generat ed file to  implement  the V0S17 6_EDI837P_ DIM_DIAGNO SIS_CODE_p rep_Fmt_Di agCodes tr ansform op erator.
  17272   //
  17273  
  17274   // define  our input/ output lin k names
  17275   inputname  0 genRecsB yCode;
  17276   outputname  0 FmtDiag Codes;
  17277  
  17278   initialize  {
  17279    // define  our contr ol variabl es
  17280    int8 RowR ejected0;
  17281    int8 Null SetVar0;
  17282  
  17283    // declar e our inte rmediate v ariables f or this se ction (1)
  17284    string In terVar0_0;
  17285    string In terVar0_1;
  17286    string In terVar0_2;
  17287    string In terVar0_3;
  17288    string In terVar0_4;
  17289    string In terVar0_5;
  17290    string In terVar0_6;
  17291    string In terVar0_7;
  17292    string In terVar0_11 ;
  17293  
  17294    // initia lise const ant values  which req uire conve rsion
  17295    InterVar0 _0 = "BK";
  17296    InterVar0 _1 = "BF";
  17297    InterVar0 _2 = "ICD9 ";
  17298    InterVar0 _3 = "ABK" ;
  17299    InterVar0 _4 = "ABF" ;
  17300    InterVar0 _5 = "ICD1 0";
  17301    InterVar0 _6 = "E";
  17302    InterVar0 _7 = ".";
  17303    InterVar0 _11 = "PlH older-GS";
  17304    // Stage  variable d eclaration  and initi alisation
  17305    string St ageVar0_ic dVersion;
  17306    StageVar0 _icdVersio n = "";
  17307   }
  17308  
  17309   mainloop {
  17310  
  17311    // declar e our inte rmediate v ariables f or this se ction (2)
  17312    int32 Int erVar0_8;
  17313    int32 Int erVar0_9;
  17314    int32 Int erVar0_10;
  17315  
  17316    // evalua te the sta ge variabl es first
  17317    NullSetVa r0 = 0;
  17318    if (((gen RecsByCode .diagnoses _qualif ==  InterVar0 _0) || (ge nRecsByCod e.diagnose s_qualif = = InterVar 0_1))) {
  17319     StageVar 0_icdVersi on = Inter Var0_2;
  17320    } else {
  17321     if (((ge nRecsByCod e.diagnose s_qualif = = InterVar 0_3) || (g enRecsByCo de.diagnos es_qualif  == InterVa r0_4))) {
  17322      StageVa r0_icdVers ion = Inte rVar0_5;
  17323     } else {
  17324      NullSet Var0 = 1;
  17325     }
  17326     //;
  17327    }
  17328    StageVar0 _icdVersio n = ((Null SetVar0 ==  1) ? set_ null() : S tageVar0_i cdVersion) ;
  17329  
  17330    // initia lise the r ejected ro w variable
  17331    RowReject ed0 = 1;
  17332  
  17333    // evalua te constra int and co lumns for  link: FmtD iagCodes
  17334    if (((((g enRecsByCo de.diagnos es_qualif  == InterVa r0_0) || ( genRecsByC ode.diagno ses_qualif  == InterV ar0_1)) ||  (genRecsB yCode.diag noses_qual if == Inte rVar0_3))  || (genRec sByCode.di agnoses_qu alif == In terVar0_4) ))
  17335    {
  17336     FmtDiagC odes.ICDVe rsion = St ageVar0_ic dVersion;
  17337     if ((str ing_length (genRecsBy Code.diagn oses_code)  > 3)) {
  17338      if ((up per_case(s ubstring_1 (genRecsBy Code.diagn oses_code  , 1 , 1))  == InterVa r0_6)) {
  17339       if ((s tring_leng th(genRecs ByCode.dia gnoses_cod e) > 4)) {
  17340        if (( StageVar0_ icdVersion  == InterV ar0_2)) {
  17341         Inte rVar0_8 =  string_len gth(genRec sByCode.di agnoses_co de) - 4;
  17342         FmtD iagCodes.d iagnoses_c ode = ((su bstring_1( genRecsByC ode.diagno ses_code ,  1 , 4) +  InterVar0_ 7) + subst ring_1(gen RecsByCode .diagnoses _code , 5  , InterVar 0_8));
  17343        } els e {
  17344         Inte rVar0_9 =  string_len gth(genRec sByCode.di agnoses_co de) - 3;
  17345         FmtD iagCodes.d iagnoses_c ode = ((su bstring_1( genRecsByC ode.diagno ses_code ,  1 , 3) +  InterVar0_ 7) + subst ring_1(gen RecsByCode .diagnoses _code , 4  , InterVar 0_9));
  17346        }
  17347        //;
  17348       } else  {
  17349        FmtDi agCodes.di agnoses_co de = genRe csByCode.d iagnoses_c ode;
  17350       }
  17351       //;
  17352      } else  {
  17353       InterV ar0_10 = s tring_leng th(genRecs ByCode.dia gnoses_cod e) - 3;
  17354       FmtDia gCodes.dia gnoses_cod e = ((subs tring_1(ge nRecsByCod e.diagnose s_code , 1  , 3) + In terVar0_7)  + substri ng_1(genRe csByCode.d iagnoses_c ode , 4 ,  InterVar0_ 10));
  17355      }
  17356      //;
  17357     } else {
  17358      FmtDiag Codes.diag noses_code  = genRecs ByCode.dia gnoses_cod e;
  17359     }
  17360     //;
  17361     FmtDiagC odes.row_i d = InterV ar0_11;
  17362     writerec ord 0;
  17363     RowRejec ted0 = 0;
  17364    }
  17365   }
  17366  
  17367   finish {
  17368   }
  17369  
  17370   =+=+=+=
  17371         END  DSSUBRECOR D
  17372         BEGI N DSSUBREC ORD
  17373            O wner "APT"
  17374            N ame "TrxGe nCache"
  17375            V alue "0"
  17376         END  DSSUBRECOR D
  17377         BEGI N DSSUBREC ORD
  17378            O wner "APT"
  17379            N ame "TrxCl assName"
  17380            V alue "V0S1 76_EDI837P _DIM_DIAGN OSIS_CODE_ prep_Fmt_D iagCodes"
  17381         END  DSSUBRECOR D
  17382         Vali dationStat us "0"
  17383         Stag eType "CTr ansformerS tage"
  17384         Bloc kSize "0"
  17385         SKKe ySourceTyp e "file"
  17386         Stag eVars "CSt ageVar"
  17387         BEGI N DSSUBREC ORD
  17388            N ame "icdVe rsion"
  17389            E xpression  "If genRec sByCode.di agnoses_qu alif='BK'  Or genRecs ByCode.dia gnoses_qua lif = 'BF'  Then 'ICD 9' Else If  genRecsBy Code.diagn oses_quali f='ABK' Or  genRecsBy Code.diagn oses_quali f = 'ABF'  Then 'ICD1 0' Else Se tNull()"
  17390            S qlType "12 "
  17391            P arsedExpre ssion " If  genRecsBy Code.diagn oses_quali f = 'BK' O r genRecsB yCode.diag noses_qual if = 'BF'  Then 'ICD9 ' Else  If  genRecsBy Code.diagn oses_quali f = 'ABK'  Or genRecs ByCode.dia gnoses_qua lif = 'ABF ' Then 'IC D10' Else  SetNull()"
  17392            S ourceColum n "genRecs ByCode.dia gnoses_qua lif"
  17393            P recision " 15"
  17394            C olScale "0 "
  17395            E xtendedPre cision "0"
  17396         END  DSSUBRECOR D
  17397         Stag eVarsMinim ised "0"
  17398         Loop VarsMaximi sed "0"
  17399         MaxL oopIterati ons "0"
  17400      END DSR ECORD
  17401      BEGIN D SRECORD
  17402         Iden tifier "V0 S176P1"
  17403         OLET ype "CTrxI nput"
  17404         Read only "0"
  17405         Name  "genRecsB yCode"
  17406         Part ner "V121S 0|V121S0P2 "
  17407         Link Type "1"
  17408         Meta Bag "CMeta Property"
  17409         BEGI N DSSUBREC ORD
  17410            O wner "APT"
  17411            N ame "RTCol umnProp"
  17412            V alue "0"
  17413         END  DSSUBRECOR D
  17414         BEGI N DSSUBREC ORD
  17415            O wner "APT"
  17416            N ame "Schem a"
  17417            V alue =+=+= +=
  17418   record
  17419   (
  17420     claim_id :nullable  string[max =20];
  17421     ICDVersi on:nullabl e string[m ax=15];
  17422     diagnose s_qualif:n ullable st ring[max=1 0];
  17423     diagnose s_code:nul lable stri ng[max=30] ;
  17424     is_curre nt:string[ 1];
  17425     start_da te:nullabl e date;
  17426     source_s ystem:null able strin g[max=20];
  17427     source_e ntity:null able strin g[max=50];
  17428     row_id:n ullable st ring[max=2 0];
  17429   )
  17430   =+=+=+=
  17431         END  DSSUBRECOR D
  17432         Mult iRow "0"
  17433         Link Minimised  "0"
  17434      END DSR ECORD
  17435      BEGIN D SRECORD
  17436         Iden tifier "V0 S176P3"
  17437         OLET ype "CTrxO utput"
  17438         Read only "0"
  17439         Name  "FmtDiagC odes"
  17440         Part ner "V0S18 2|V0S182P1 "
  17441         Cons traint "ge nRecsByCod e.diagnose s_qualif=' BK' Or gen RecsByCode .diagnoses _qualif =  'BF' Or ge nRecsByCod e.diagnose s_qualif=' ABK' Or ge nRecsByCod e.diagnose s_qualif =  'ABF'"
  17442         Reje ct "0"
  17443         Erro rPin "0"
  17444         RowL imit "0"
  17445         Pars edConstrai nt "genRec sByCode.di agnoses_qu alif = 'BK ' Or genRe csByCode.d iagnoses_q ualif = 'B F' Or genR ecsByCode. diagnoses_ qualif = ' ABK' Or ge nRecsByCod e.diagnose s_qualif =  'ABF'"
  17446         Sour ceColumns  "genRecsBy Code.diagn oses_quali f"
  17447         Colu mns "COutp utColumn"
  17448         BEGI N DSSUBREC ORD
  17449            N ame "ICDVe rsion"
  17450            S qlType "12 "
  17451            P recision " 15"
  17452            S cale "0"
  17453            N ullable "1 "
  17454            K eyPosition  "0"
  17455            D isplaySize  "0"
  17456            D erivation  "icdVersio n"
  17457            G roup "0"
  17458            P arsedDeriv ation "icd Version"
  17459            S ortKey "0"
  17460            S ortType "0 "
  17461            A llowCRLF " 0"
  17462            L evelNo "0"
  17463            O ccurs "0"
  17464            P adNulls "0 "
  17465            S ignOption  "0"
  17466            S ortingOrde r "0"
  17467            S tageVars " icdVersion "
  17468            A rrayHandli ng "0"
  17469            S yncIndicat or "0"
  17470            P adChar ""
  17471            E xtendedPre cision "0"
  17472            T aggedSubre c "0"
  17473            O ccursVaryi ng "0"
  17474            P KeyIsCasel ess "0"
  17475            S CDPurpose  "0"
  17476         END  DSSUBRECOR D
  17477         BEGI N DSSUBREC ORD
  17478            N ame "diagn oses_code"
  17479            D escription  =+=+=+=
  17480   <none>
  17481   Searchable ? N 
  17482   =+=+=+=
  17483            S qlType "12 "
  17484            P recision " 30"
  17485            S cale "0"
  17486            N ullable "1 "
  17487            K eyPosition  "0"
  17488            D isplaySize  "15"
  17489            D erivation  =+=+=+=
  17490   If Len(gen RecsByCode .diagnoses _code) > 3  Then 
  17491           (i f UPCASE(g enRecsByCo de.diagnos es_code [1 ,1]) ='E'  Then 
  17492                    ( IF  Len(genRe csByCode.d iagnoses_c ode) > 4 T HEN 
  17493                             (if ic dVersion = "ICD9" THE N
  17494                                      genRecsB yCode.diag noses_code  [1,4]  :  '.' : genR ecsByCode. diagnoses_ code [5, L en(genRecs ByCode.dia gnoses_cod e) -4] 
  17495                                      Else gen RecsByCode .diagnoses _code [1,3 ]  : '.' :  genRecsBy Code.diagn oses_code  [4, Len(ge nRecsByCod e.diagnose s_code) -3 ])
  17496                             Else g enRecsByCo de.diagnos es_code) 
  17497              Else genRe csByCode.d iagnoses_c ode [1,3]   : '.' : g enRecsByCo de.diagnos es_code [4 , Len(genR ecsByCode. diagnoses_ code) -3])
  17498   Else genRe csByCode.d iagnoses_c ode
  17499   =+=+=+=
  17500            G roup "0"
  17501            P arsedDeriv ation " If  Len(genRe csByCode.d iagnoses_c ode) > 3 T hen ( if U PCASE(genR ecsByCode. diagnoses_ code[1, 1] ) = 'E' Th en ( IF Le n(genRecsB yCode.diag noses_code ) > 4 THEN  ( if icdV ersion = \ "ICD9\" TH EN genRecs ByCode.dia gnoses_cod e[1, 4] :  '.' : genR ecsByCode. diagnoses_ code[5, Le n(genRecsB yCode.diag noses_code ) - 4] Els e genRecsB yCode.diag noses_code [1, 3] : ' .' : genRe csByCode.d iagnoses_c ode[4, Len (genRecsBy Code.diagn oses_code)  - 3]) Els e genRecsB yCode.diag noses_code ) Else gen RecsByCode .diagnoses _code[1, 3 ] : '.' :  genRecsByC ode.diagno ses_code[4 , Len(genR ecsByCode. diagnoses_ code) - 3] ) Else gen RecsByCode .diagnoses _code"
  17502            S ourceColum n "genRecs ByCode.dia gnoses_cod e"
  17503            S ortKey "0"
  17504            S ortType "0 "
  17505            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  17506            A llowCRLF " 0"
  17507            L evelNo "0"
  17508            O ccurs "0"
  17509            P adNulls "0 "
  17510            S ignOption  "0"
  17511            S ortingOrde r "0"
  17512            S tageVars " icdVersion "
  17513            A rrayHandli ng "0"
  17514            S yncIndicat or "0"
  17515            P adChar ""
  17516            C olumnRefer ence "oral _cavity_de signation_ code"
  17517            A PTFieldPro p "null_fi eld=''"
  17518            E xtendedPre cision "0"
  17519            T aggedSubre c "0"
  17520            O ccursVaryi ng "0"
  17521            P KeyIsCasel ess "0"
  17522            S CDPurpose  "0"
  17523         END  DSSUBRECOR D
  17524         BEGI N DSSUBREC ORD
  17525            N ame "is_cu rrent"
  17526            S qlType "1"
  17527            P recision " 1"
  17528            S cale "0"
  17529            N ullable "0 "
  17530            K eyPosition  "0"
  17531            D isplaySize  "0"
  17532            D erivation  "genRecsBy Code.is_cu rrent"
  17533            G roup "0"
  17534            P arsedDeriv ation "gen RecsByCode .is_curren t"
  17535            S ourceColum n "genRecs ByCode.is_ current"
  17536            S ortKey "0"
  17537            S ortType "0 "
  17538            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17539            A llowCRLF " 0"
  17540            L evelNo "0"
  17541            N ativeType  "pit_boole an"
  17542            O ccurs "0"
  17543            P adNulls "0 "
  17544            S ignOption  "0"
  17545            S ortingOrde r "0"
  17546            A rrayHandli ng "0"
  17547            S yncIndicat or "0"
  17548            P adChar ""
  17549            C olumnRefer ence "is_c urrent"
  17550            E xtendedPre cision "0"
  17551            T aggedSubre c "0"
  17552            O ccursVaryi ng "0"
  17553            P KeyIsCasel ess "0"
  17554            S CDPurpose  "0"
  17555         END  DSSUBRECOR D
  17556         BEGI N DSSUBREC ORD
  17557            N ame "start _date"
  17558            S qlType "9"
  17559            P recision " 10"
  17560            S cale "0"
  17561            N ullable "1 "
  17562            K eyPosition  "0"
  17563            D isplaySize  "0"
  17564            D erivation  "genRecsBy Code.start _date"
  17565            G roup "0"
  17566            P arsedDeriv ation "gen RecsByCode .start_dat e"
  17567            S ourceColum n "genRecs ByCode.sta rt_date"
  17568            S ortKey "0"
  17569            S ortType "0 "
  17570            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17571            A llowCRLF " 0"
  17572            L evelNo "0"
  17573            N ativeType  "pit_date"
  17574            O ccurs "0"
  17575            P adNulls "0 "
  17576            S ignOption  "0"
  17577            S ortingOrde r "0"
  17578            A rrayHandli ng "0"
  17579            S yncIndicat or "0"
  17580            P adChar ""
  17581            C olumnRefer ence "star t_date"
  17582            E xtendedPre cision "0"
  17583            T aggedSubre c "0"
  17584            O ccursVaryi ng "0"
  17585            P KeyIsCasel ess "0"
  17586            S CDPurpose  "0"
  17587         END  DSSUBRECOR D
  17588         BEGI N DSSUBREC ORD
  17589            N ame "sourc e_system"
  17590            S qlType "12 "
  17591            P recision " 20"
  17592            S cale "0"
  17593            N ullable "1 "
  17594            K eyPosition  "0"
  17595            D isplaySize  "0"
  17596            D erivation  "genRecsBy Code.sourc e_system"
  17597            G roup "0"
  17598            P arsedDeriv ation "gen RecsByCode .source_sy stem"
  17599            S ourceColum n "genRecs ByCode.sou rce_system "
  17600            S ortKey "0"
  17601            S ortType "0 "
  17602            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17603            A llowCRLF " 0"
  17604            L evelNo "0"
  17605            N ativeType  "varchar"
  17606            O ccurs "0"
  17607            P adNulls "0 "
  17608            S ignOption  "0"
  17609            S ortingOrde r "0"
  17610            A rrayHandli ng "0"
  17611            S yncIndicat or "0"
  17612            P adChar ""
  17613            C olumnRefer ence "sour ce_system"
  17614            E xtendedPre cision "0"
  17615            T aggedSubre c "0"
  17616            O ccursVaryi ng "0"
  17617            P KeyIsCasel ess "0"
  17618            S CDPurpose  "0"
  17619         END  DSSUBRECOR D
  17620         BEGI N DSSUBREC ORD
  17621            N ame "sourc e_entity"
  17622            S qlType "12 "
  17623            P recision " 50"
  17624            S cale "0"
  17625            N ullable "1 "
  17626            K eyPosition  "0"
  17627            D isplaySize  "0"
  17628            D erivation  "genRecsBy Code.sourc e_entity"
  17629            G roup "0"
  17630            P arsedDeriv ation "gen RecsByCode .source_en tity"
  17631            S ourceColum n "genRecs ByCode.sou rce_entity "
  17632            S ortKey "0"
  17633            S ortType "0 "
  17634            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17635            A llowCRLF " 0"
  17636            L evelNo "0"
  17637            O ccurs "0"
  17638            P adNulls "0 "
  17639            S ignOption  "0"
  17640            S ortingOrde r "0"
  17641            A rrayHandli ng "0"
  17642            S yncIndicat or "0"
  17643            P adChar ""
  17644            C olumnRefer ence "sour ce_entity"
  17645            E xtendedPre cision "0"
  17646            T aggedSubre c "0"
  17647            O ccursVaryi ng "0"
  17648            P KeyIsCasel ess "0"
  17649            S CDPurpose  "0"
  17650         END  DSSUBRECOR D
  17651         BEGI N DSSUBREC ORD
  17652            N ame "row_i d"
  17653            S qlType "12 "
  17654            P recision " 20"
  17655            S cale "0"
  17656            N ullable "1 "
  17657            K eyPosition  "0"
  17658            D isplaySize  "0"
  17659            D erivation  "'PlHolder -GS'"
  17660            G roup "0"
  17661            P arsedDeriv ation "'Pl Holder-GS' "
  17662            S ortKey "0"
  17663            S ortType "0 "
  17664            A llowCRLF " 0"
  17665            L evelNo "0"
  17666            O ccurs "0"
  17667            P adNulls "0 "
  17668            S ignOption  "0"
  17669            S ortingOrde r "0"
  17670            A rrayHandli ng "0"
  17671            S yncIndicat or "0"
  17672            P adChar ""
  17673            E xtendedPre cision "0"
  17674            T aggedSubre c "0"
  17675            O ccursVaryi ng "0"
  17676            P KeyIsCasel ess "0"
  17677            S CDPurpose  "0"
  17678         END  DSSUBRECOR D
  17679         Meta Bag "CMeta Property"
  17680         BEGI N DSSUBREC ORD
  17681            O wner "APT"
  17682            N ame "DiskW riteInc"
  17683            V alue "1048 576"
  17684         END  DSSUBRECOR D
  17685         BEGI N DSSUBREC ORD
  17686            O wner "APT"
  17687            N ame "BufFr eeRun"
  17688            V alue "50"
  17689         END  DSSUBRECOR D
  17690         BEGI N DSSUBREC ORD
  17691            O wner "APT"
  17692            N ame "MaxMe mBufSize"
  17693            V alue "3145 728"
  17694         END  DSSUBRECOR D
  17695         BEGI N DSSUBREC ORD
  17696            O wner "APT"
  17697            N ame "Queue UpperSize"
  17698            V alue "0"
  17699         END  DSSUBRECOR D
  17700         BEGI N DSSUBREC ORD
  17701            O wner "APT"
  17702            N ame "Schem a"
  17703            V alue =+=+= +=
  17704   record
  17705   (
  17706     ICDVersi on:nullabl e string[m ax=15];
  17707     diagnose s_code:nul lable stri ng[max=30] ;
  17708     is_curre nt:string[ 1];
  17709     start_da te:nullabl e date;
  17710     source_s ystem:null able strin g[max=20];
  17711     source_e ntity:null able strin g[max=50];
  17712     row_id:n ullable st ring[max=2 0];
  17713   )
  17714   =+=+=+=
  17715         END  DSSUBRECOR D
  17716         Left TextPos "7 41"
  17717         TopT extPos "26 1"
  17718         Link Minimised  "0"
  17719      END DSR ECORD
  17720      BEGIN D SRECORD
  17721         Iden tifier "V0 S182"
  17722         OLET ype "CCust omStage"
  17723         Read only "0"
  17724         Name  "RmvDupCo de"
  17725         Next ID "3"
  17726         Inpu tPins "V0S 182P1"
  17727         Outp utPins "V0 S182P2"
  17728         Stag eType "PxR emDup"
  17729         Allo wColumnMap ping "0"
  17730         Prop erties "CC ustomPrope rty"
  17731         BEGI N DSSUBREC ORD
  17732            N ame "keep"
  17733            V alue "firs t"
  17734         END  DSSUBRECOR D
  17735         BEGI N DSSUBREC ORD
  17736            N ame "key"
  17737            V alue "\(2) \(2)0\(1)\ (3)key\(2) diagnoses_ code\(2)0\ (1)\(3)key \(2)ICDVer sion\(2)0"
  17738         END  DSSUBRECOR D
  17739         Next RecordID " 0"
  17740      END DSR ECORD
  17741      BEGIN D SRECORD
  17742         Iden tifier "V0 S182P1"
  17743         OLET ype "CCust omInput"
  17744         Read only "0"
  17745         Name  "FmtDiagC odes"
  17746         Part ner "V0S17 6|V0S176P3 "
  17747         Link Type "1"
  17748         Cond itionNotMe t "fail"
  17749         Look upFail "fa il"
  17750         Meta Bag "CMeta Property"
  17751         BEGI N DSSUBREC ORD
  17752            O wner "APT"
  17753            N ame "RTCol umnProp"
  17754            V alue "0"
  17755         END  DSSUBRECOR D
  17756         Tran sactionSiz e "0"
  17757         TXNB ehaviour " 0"
  17758         Enab leTxGroup  "0"
  17759         Link Minimised  "0"
  17760      END DSR ECORD
  17761      BEGIN D SRECORD
  17762         Iden tifier "V0 S182P2"
  17763         OLET ype "CCust omOutput"
  17764         Read only "0"
  17765         Name  "RmvDupCo de"
  17766         Part ner "V0S11 4|V0S114P2 0"
  17767         Colu mns "COutp utColumn"
  17768         BEGI N DSSUBREC ORD
  17769            N ame "ICDVe rsion"
  17770            S qlType "12 "
  17771            P recision " 15"
  17772            S cale "0"
  17773            N ullable "1 "
  17774            K eyPosition  "0"
  17775            D isplaySize  "0"
  17776            D erivation  "FmtDiagCo des.ICDVer sion"
  17777            G roup "0"
  17778            P arsedDeriv ation "Fmt DiagCodes. ICDVersion "
  17779            S ourceColum n "FmtDiag Codes.ICDV ersion"
  17780            S ortKey "0"
  17781            S ortType "0 "
  17782            A llowCRLF " 0"
  17783            L evelNo "0"
  17784            O ccurs "0"
  17785            P adNulls "0 "
  17786            S ignOption  "0"
  17787            S ortingOrde r "0"
  17788            A rrayHandli ng "0"
  17789            S yncIndicat or "0"
  17790            P adChar ""
  17791            E xtendedPre cision "0"
  17792            T aggedSubre c "0"
  17793            O ccursVaryi ng "0"
  17794            P KeyIsCasel ess "0"
  17795            S CDPurpose  "0"
  17796         END  DSSUBRECOR D
  17797         BEGI N DSSUBREC ORD
  17798            N ame "diagn oses_code"
  17799            D escription  =+=+=+=
  17800   <none>
  17801   Searchable ? N 
  17802   =+=+=+=
  17803            S qlType "12 "
  17804            P recision " 30"
  17805            S cale "0"
  17806            N ullable "1 "
  17807            K eyPosition  "0"
  17808            D isplaySize  "15"
  17809            D erivation  "FmtDiagCo des.diagno ses_code"
  17810            G roup "0"
  17811            P arsedDeriv ation "Fmt DiagCodes. diagnoses_ code"
  17812            S ourceColum n "FmtDiag Codes.diag noses_code "
  17813            S ortKey "0"
  17814            S ortType "0 "
  17815            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  17816            A llowCRLF " 0"
  17817            L evelNo "0"
  17818            O ccurs "0"
  17819            P adNulls "0 "
  17820            S ignOption  "0"
  17821            S ortingOrde r "0"
  17822            A rrayHandli ng "0"
  17823            S yncIndicat or "0"
  17824            P adChar ""
  17825            C olumnRefer ence "oral _cavity_de signation_ code"
  17826            A PTFieldPro p "null_fi eld=''"
  17827            E xtendedPre cision "0"
  17828            T aggedSubre c "0"
  17829            O ccursVaryi ng "0"
  17830            P KeyIsCasel ess "0"
  17831            S CDPurpose  "0"
  17832         END  DSSUBRECOR D
  17833         BEGI N DSSUBREC ORD
  17834            N ame "is_cu rrent"
  17835            S qlType "1"
  17836            P recision " 1"
  17837            S cale "0"
  17838            N ullable "0 "
  17839            K eyPosition  "0"
  17840            D isplaySize  "0"
  17841            D erivation  "FmtDiagCo des.is_cur rent"
  17842            G roup "0"
  17843            P arsedDeriv ation "Fmt DiagCodes. is_current "
  17844            S ourceColum n "FmtDiag Codes.is_c urrent"
  17845            S ortKey "0"
  17846            S ortType "0 "
  17847            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17848            A llowCRLF " 0"
  17849            L evelNo "0"
  17850            N ativeType  "pit_boole an"
  17851            O ccurs "0"
  17852            P adNulls "0 "
  17853            S ignOption  "0"
  17854            S ortingOrde r "0"
  17855            A rrayHandli ng "0"
  17856            S yncIndicat or "0"
  17857            P adChar ""
  17858            C olumnRefer ence "is_c urrent"
  17859            E xtendedPre cision "0"
  17860            T aggedSubre c "0"
  17861            O ccursVaryi ng "0"
  17862            P KeyIsCasel ess "0"
  17863            S CDPurpose  "0"
  17864         END  DSSUBRECOR D
  17865         BEGI N DSSUBREC ORD
  17866            N ame "start _date"
  17867            S qlType "9"
  17868            P recision " 10"
  17869            S cale "0"
  17870            N ullable "1 "
  17871            K eyPosition  "0"
  17872            D isplaySize  "0"
  17873            D erivation  "FmtDiagCo des.start_ date"
  17874            G roup "0"
  17875            P arsedDeriv ation "Fmt DiagCodes. start_date "
  17876            S ourceColum n "FmtDiag Codes.star t_date"
  17877            S ortKey "0"
  17878            S ortType "0 "
  17879            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17880            A llowCRLF " 0"
  17881            L evelNo "0"
  17882            N ativeType  "pit_date"
  17883            O ccurs "0"
  17884            P adNulls "0 "
  17885            S ignOption  "0"
  17886            S ortingOrde r "0"
  17887            A rrayHandli ng "0"
  17888            S yncIndicat or "0"
  17889            P adChar ""
  17890            C olumnRefer ence "star t_date"
  17891            E xtendedPre cision "0"
  17892            T aggedSubre c "0"
  17893            O ccursVaryi ng "0"
  17894            P KeyIsCasel ess "0"
  17895            S CDPurpose  "0"
  17896         END  DSSUBRECOR D
  17897         BEGI N DSSUBREC ORD
  17898            N ame "sourc e_system"
  17899            S qlType "12 "
  17900            P recision " 20"
  17901            S cale "0"
  17902            N ullable "1 "
  17903            K eyPosition  "0"
  17904            D isplaySize  "0"
  17905            D erivation  "FmtDiagCo des.source _system"
  17906            G roup "0"
  17907            P arsedDeriv ation "Fmt DiagCodes. source_sys tem"
  17908            S ourceColum n "FmtDiag Codes.sour ce_system"
  17909            S ortKey "0"
  17910            S ortType "0 "
  17911            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17912            A llowCRLF " 0"
  17913            L evelNo "0"
  17914            N ativeType  "varchar"
  17915            O ccurs "0"
  17916            P adNulls "0 "
  17917            S ignOption  "0"
  17918            S ortingOrde r "0"
  17919            A rrayHandli ng "0"
  17920            S yncIndicat or "0"
  17921            P adChar ""
  17922            C olumnRefer ence "sour ce_system"
  17923            E xtendedPre cision "0"
  17924            T aggedSubre c "0"
  17925            O ccursVaryi ng "0"
  17926            P KeyIsCasel ess "0"
  17927            S CDPurpose  "0"
  17928         END  DSSUBRECOR D
  17929         BEGI N DSSUBREC ORD
  17930            N ame "sourc e_entity"
  17931            S qlType "12 "
  17932            P recision " 50"
  17933            S cale "0"
  17934            N ullable "1 "
  17935            K eyPosition  "0"
  17936            D isplaySize  "0"
  17937            D erivation  "FmtDiagCo des.source _entity"
  17938            G roup "0"
  17939            P arsedDeriv ation "Fmt DiagCodes. source_ent ity"
  17940            S ourceColum n "FmtDiag Codes.sour ce_entity"
  17941            S ortKey "0"
  17942            S ortType "0 "
  17943            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  17944            A llowCRLF " 0"
  17945            L evelNo "0"
  17946            O ccurs "0"
  17947            P adNulls "0 "
  17948            S ignOption  "0"
  17949            S ortingOrde r "0"
  17950            A rrayHandli ng "0"
  17951            S yncIndicat or "0"
  17952            P adChar ""
  17953            C olumnRefer ence "sour ce_entity"
  17954            E xtendedPre cision "0"
  17955            T aggedSubre c "0"
  17956            O ccursVaryi ng "0"
  17957            P KeyIsCasel ess "0"
  17958            S CDPurpose  "0"
  17959         END  DSSUBRECOR D
  17960         BEGI N DSSUBREC ORD
  17961            N ame "row_i d"
  17962            S qlType "12 "
  17963            P recision " 20"
  17964            S cale "0"
  17965            N ullable "1 "
  17966            K eyPosition  "0"
  17967            D isplaySize  "0"
  17968            D erivation  "FmtDiagCo des.row_id "
  17969            G roup "0"
  17970            P arsedDeriv ation "Fmt DiagCodes. row_id"
  17971            S ourceColum n "FmtDiag Codes.row_ id"
  17972            S ortKey "0"
  17973            S ortType "0 "
  17974            A llowCRLF " 0"
  17975            L evelNo "0"
  17976            O ccurs "0"
  17977            P adNulls "0 "
  17978            S ignOption  "0"
  17979            S ortingOrde r "0"
  17980            A rrayHandli ng "0"
  17981            S yncIndicat or "0"
  17982            P adChar ""
  17983            E xtendedPre cision "0"
  17984            T aggedSubre c "0"
  17985            O ccursVaryi ng "0"
  17986            P KeyIsCasel ess "0"
  17987            S CDPurpose  "0"
  17988         END  DSSUBRECOR D
  17989         Meta Bag "CMeta Property"
  17990         BEGI N DSSUBREC ORD
  17991            O wner "APT"
  17992            N ame "DiskW riteInc"
  17993            V alue "1048 576"
  17994         END  DSSUBRECOR D
  17995         BEGI N DSSUBREC ORD
  17996            O wner "APT"
  17997            N ame "BufFr eeRun"
  17998            V alue "50"
  17999         END  DSSUBRECOR D
  18000         BEGI N DSSUBREC ORD
  18001            O wner "APT"
  18002            N ame "MaxMe mBufSize"
  18003            V alue "3145 728"
  18004         END  DSSUBRECOR D
  18005         BEGI N DSSUBREC ORD
  18006            O wner "APT"
  18007            N ame "Queue UpperSize"
  18008            V alue "0"
  18009         END  DSSUBRECOR D
  18010         Left TextPos "8 85"
  18011         TopT extPos "26 2"
  18012         Link Minimised  "0"
  18013      END DSR ECORD
  18014      BEGIN D SRECORD
  18015         Iden tifier "V1 12S0"
  18016         OLET ype "CCust omStage"
  18017         Read only "0"
  18018         Name  "DIM_DIAG NOSIS_CODE "
  18019         Next ID "2"
  18020         Outp utPins "V1 12S0P1"
  18021         Stag eType "ODB CConnector PX"
  18022         Allo wColumnMap ping "0"
  18023         Prop erties "CC ustomPrope rty"
  18024         BEGI N DSSUBREC ORD
  18025            N ame "Varia ntName"
  18026            V alue "3.5"
  18027         END  DSSUBRECOR D
  18028         BEGI N DSSUBREC ORD
  18029            N ame "Varia ntLibrary"
  18030            V alue "ccod bc"
  18031         END  DSSUBRECOR D
  18032         BEGI N DSSUBREC ORD
  18033            N ame "Varia ntVersion"
  18034            V alue "1.0"
  18035         END  DSSUBRECOR D
  18036         BEGI N DSSUBREC ORD
  18037            N ame "Suppo rtedVarian ts"
  18038            V alue "V1;3 .5::ccodbc "
  18039         END  DSSUBRECOR D
  18040         BEGI N DSSUBREC ORD
  18041            N ame "Suppo rtedVarian tsLibrarie s"
  18042            V alue "ccod bc"
  18043         END  DSSUBRECOR D
  18044         BEGI N DSSUBREC ORD
  18045            N ame "Suppo rtedVarian tsVersions "
  18046            V alue "1.0"
  18047         END  DSSUBRECOR D
  18048         BEGI N DSSUBREC ORD
  18049            N ame "Orien tation"
  18050            V alue "link "
  18051         END  DSSUBRECOR D
  18052         BEGI N DSSUBREC ORD
  18053            N ame "Rejec tFromLink"
  18054            V alue "-1"
  18055         END  DSSUBRECOR D
  18056         BEGI N DSSUBREC ORD
  18057            N ame "Rejec tThreshold "
  18058            V alue "0"
  18059         END  DSSUBRECOR D
  18060         BEGI N DSSUBREC ORD
  18061            N ame "Rejec tNumber"
  18062            V alue "0"
  18063         END  DSSUBRECOR D
  18064         BEGI N DSSUBREC ORD
  18065            N ame "Rejec tUsesPerce ntage"
  18066            V alue "fals e"
  18067         END  DSSUBRECOR D
  18068         BEGI N DSSUBREC ORD
  18069            N ame "Conne ctorName"
  18070            V alue "ODBC Connector"
  18071         END  DSSUBRECOR D
  18072         BEGI N DSSUBREC ORD
  18073            N ame "Engin e"
  18074            V alue "EE"
  18075         END  DSSUBRECOR D
  18076         BEGI N DSSUBREC ORD
  18077            N ame "Conte xt"
  18078            V alue "sour ce"
  18079         END  DSSUBRECOR D
  18080         BEGI N DSSUBREC ORD
  18081            N ame "Conne ctionStrin g"
  18082            V alue "/Con nection/Da taSource"
  18083         END  DSSUBRECOR D
  18084         BEGI N DSSUBREC ORD
  18085            N ame "Usern ame"
  18086            V alue "/Con nection/Us ername"
  18087         END  DSSUBRECOR D
  18088         BEGI N DSSUBREC ORD
  18089            N ame "Passw ord"
  18090            V alue "/Con nection/Pa ssword"
  18091         END  DSSUBRECOR D
  18092         BEGI N DSSUBREC ORD
  18093            N ame "XMLPr operties"
  18094            V alue "<?xm l version= '1.0' enco ding='UTF- 16'?><Prop erties ver sion='1.1' ><Common>< Context ty pe='int'>1 </Context> <Variant t ype='strin g'>3.5</Va riant><Des criptorVer sion type= 'string'>1 .0</Descri ptorVersio n><Partiti onType typ e='int'>-1 </Partitio nType><RCP  type='int '>0</RCP>< /Common><C onnection> <DataSourc e modified ='1' type= 'string'>< ![CDATA[#$ SQL_DB_DSN #]]></Data Source><Us ername mod ified='1'  type='stri ng'><![CDA TA[#$SQL_D B_UID#]]>< /Username> <Password  modified=' 1' type='s tring'><![ CDATA[#$SQ L_DB_PWD#] ]></Passwo rd></Conne ction><Usa ge modifie d='1'><Gen erateSQL m odified='1 ' type='bo ol'><![CDA TA[0]]></G enerateSQL ><EnableQu otedIDs ty pe='bool'> <![CDATA[0 ]]></Enabl eQuotedIDs ><SQL><Sel ectStateme nt modifie d='1' type ='string'> <![CDATA[S elect diag nosis_key,  diagnosis _code, is_ current fr om #$SQL_D B#.dbo.DIM _DIAGNOSIS _CODE wher e is_curre nt = 'Y' ] ]><ReadSta tementFrom File type= 'bool'><![ CDATA[0]]> </ReadStat ementFromF ile><Table s collapse d='1'><Tab le type='s tring'><![ CDATA[#$SQ L_DB#.dbo. DIM_DIAGNO SIS_CODE]] ></Table>< /Tables><P arameters  collapsed= '1'></Para meters><Co lumns coll apsed='1'> <Column ty pe='string '><![CDATA [is_curren t,is_curre nt,DIM_DIA GNOSIS_COD E]]></Colu mn><Column  type='str ing'><![CD ATA[diagno sis_code,d iagnosis_c ode,DIM_DI AGNOSIS_CO DE]]></Col umn><Colum n type='st ring'><![C DATA[diagn osis_key,d iagnosis_k ey,DIM_DIA GNOSIS_COD E]]></Colu mn></Colum ns><WhereC lause type ='string'> <![CDATA[i s_current  = 'Y']]></ WhereClaus e></Select Statement> <EnablePar titioning  collapsed= '1' type=' bool'><![C DATA[0]]>< /EnablePar titioning> </SQL><Tra nsaction>< RecordCoun t type='in t'><![CDAT A[2000]]>< /RecordCou nt><EndOfW ave collap sed='1' ty pe='int'>< ![CDATA[0] ]></EndOfW ave></Tran saction><S ession><Is olationLev el type='i nt'><![CDA TA[1]]></I solationLe vel><Autoc ommitMode  type='int' ><![CDATA[ 0]]></Auto commitMode ><ArraySiz e type='in t'><![CDAT A[2000]]>< /ArraySize ><SchemaRe conciliati on><FailOn SizeMismat ch type='b ool'><![CD ATA[1]]></ FailOnSize Mismatch>< FailOnType Mismatch t ype='bool' ><![CDATA[ 1]]></Fail OnTypeMism atch><Fail OnCodePage Mismatch t ype='bool' ><![CDATA[ 0]]></Fail OnCodePage Mismatch>< /SchemaRec onciliatio n><PassLob Locator co llapsed='1 ' type='bo ol'><![CDA TA[0]]></P assLobLoca tor><CodeP age collap sed='1' ty pe='int'>< ![CDATA[0] ]></CodePa ge></Sessi on><Before After coll apsed='1'  type='bool '><![CDATA [0]]></Bef oreAfter>< LimitRows  collapsed= '1' type=' bool'><![C DATA[0]]>< /LimitRows ></Usage>< /Propertie s >"
  18095         END  DSSUBRECOR D
  18096         Next RecordID " 0"
  18097      END DSR ECORD
  18098      BEGIN D SRECORD
  18099         Iden tifier "V1 12S0P1"
  18100         OLET ype "CCust omOutput"
  18101         Read only "0"
  18102         Name  "DimDiagn osisCode"
  18103         Part ner "V0S11 4|V0S114P8 "
  18104         Prop erties "CC ustomPrope rty"
  18105         BEGI N DSSUBREC ORD
  18106            N ame "looku p\\type"
  18107         END  DSSUBRECOR D
  18108         BEGI N DSSUBREC ORD
  18109            N ame "Varia ntName"
  18110            V alue "3.5"
  18111         END  DSSUBRECOR D
  18112         BEGI N DSSUBREC ORD
  18113            N ame "Varia ntLibrary"
  18114            V alue "ccod bc"
  18115         END  DSSUBRECOR D
  18116         BEGI N DSSUBREC ORD
  18117            N ame "Varia ntVersion"
  18118            V alue "1.0"
  18119         END  DSSUBRECOR D
  18120         BEGI N DSSUBREC ORD
  18121            N ame "Rejec tFromLink"
  18122            V alue "-1"
  18123         END  DSSUBRECOR D
  18124         BEGI N DSSUBREC ORD
  18125            N ame "Rejec tThreshold "
  18126            V alue "0"
  18127         END  DSSUBRECOR D
  18128         BEGI N DSSUBREC ORD
  18129            N ame "Rejec tNumber"
  18130            V alue "0"
  18131         END  DSSUBRECOR D
  18132         BEGI N DSSUBREC ORD
  18133            N ame "Rejec tUsesPerce ntage"
  18134            V alue "fals e"
  18135         END  DSSUBRECOR D
  18136         BEGI N DSSUBREC ORD
  18137            N ame "Conne ctorName"
  18138            V alue "ODBC Connector"
  18139         END  DSSUBRECOR D
  18140         Colu mns "COutp utColumn"
  18141         BEGI N DSSUBREC ORD
  18142            N ame "DIAGN OSIS_key"
  18143            D escription  =+=+=+=
  18144   <none>
  18145   Searchable ? N 
  18146   =+=+=+=
  18147            S qlType "4"
  18148            P recision " 10"
  18149            S cale "0"
  18150            N ullable "0 "
  18151            K eyPosition  "0"
  18152            D isplaySize  "11"
  18153            G roup "0"
  18154            S ortKey "0"
  18155            S ortType "0 "
  18156            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_DIAGNO SIS_CODE"
  18157            A llowCRLF " 0"
  18158            L evelNo "0"
  18159            O ccurs "0"
  18160            P adNulls "0 "
  18161            S ignOption  "0"
  18162            S ortingOrde r "0"
  18163            A rrayHandli ng "0"
  18164            S yncIndicat or "0"
  18165            P adChar ""
  18166            C olumnRefer ence "DIAG NOSIS_key"
  18167            A PTFieldPro p "quote=n one"
  18168            E xtendedPre cision "0"
  18169            T aggedSubre c "0"
  18170            O ccursVaryi ng "0"
  18171            P KeyIsCasel ess "0"
  18172            S CDPurpose  "0"
  18173         END  DSSUBRECOR D
  18174         BEGI N DSSUBREC ORD
  18175            N ame "diagn osis_code"
  18176            D escription  =+=+=+=
  18177   <none>
  18178   Searchable ? N 
  18179   =+=+=+=
  18180            S qlType "12 "
  18181            P recision " 30"
  18182            S cale "0"
  18183            N ullable "1 "
  18184            K eyPosition  "1"
  18185            D isplaySize  "30"
  18186            G roup "0"
  18187            K eyExpressi on "RmvDup Code.diagn oses_code"
  18188            S ortKey "0"
  18189            S ortType "0 "
  18190            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_DIAGNO SIS_CODE"
  18191            A llowCRLF " 0"
  18192            L evelNo "0"
  18193            O ccurs "0"
  18194            P adNulls "0 "
  18195            S ignOption  "0"
  18196            S ortingOrde r "0"
  18197            A rrayHandli ng "0"
  18198            S yncIndicat or "0"
  18199            P adChar ""
  18200            C olumnRefer ence "diag nosis_code "
  18201            A PTFieldPro p "null_fi eld=''"
  18202            E xtendedPre cision "0"
  18203            T aggedSubre c "0"
  18204            O ccursVaryi ng "0"
  18205            P KeyParsedD erivation  "RmvDupCod e.diagnose s_code"
  18206            P KeySourceC olumn "Rmv DupCode.di agnoses_co de"
  18207            P KeyIsCasel ess "0"
  18208            S CDPurpose  "0"
  18209         END  DSSUBRECOR D
  18210         BEGI N DSSUBREC ORD
  18211            N ame "is_cu rrent"
  18212            D escription  =+=+=+=
  18213   <none>
  18214   Searchable ? N 
  18215   =+=+=+=
  18216            S qlType "1"
  18217            P recision " 1"
  18218            S cale "0"
  18219            N ullable "0 "
  18220            K eyPosition  "1"
  18221            D isplaySize  "1"
  18222            G roup "0"
  18223            K eyExpressi on "RmvDup Code.is_cu rrent"
  18224            S ortKey "0"
  18225            S ortType "0 "
  18226            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. DIM_DIAGNO SIS_CODE"
  18227            A llowCRLF " 0"
  18228            L evelNo "0"
  18229            O ccurs "0"
  18230            P adNulls "0 "
  18231            S ignOption  "0"
  18232            S ortingOrde r "0"
  18233            A rrayHandli ng "0"
  18234            S yncIndicat or "0"
  18235            P adChar ""
  18236            C olumnRefer ence "is_c urrent"
  18237            E xtendedPre cision "0"
  18238            T aggedSubre c "0"
  18239            O ccursVaryi ng "0"
  18240            P KeyParsedD erivation  "RmvDupCod e.is_curre nt"
  18241            P KeySourceC olumn "Rmv DupCode.is _current"
  18242            P KeyIsCasel ess "0"
  18243            S CDPurpose  "0"
  18244         END  DSSUBRECOR D
  18245         Meta Bag "CMeta Property"
  18246         BEGI N DSSUBREC ORD
  18247            O wner "APT"
  18248            N ame "Schem aFormat"
  18249         END  DSSUBRECOR D
  18250         BEGI N DSSUBREC ORD
  18251            O wner "APT"
  18252            N ame "DiskW riteInc"
  18253            V alue "1048 576"
  18254         END  DSSUBRECOR D
  18255         BEGI N DSSUBREC ORD
  18256            O wner "APT"
  18257            N ame "BufFr eeRun"
  18258            V alue "50"
  18259         END  DSSUBRECOR D
  18260         BEGI N DSSUBREC ORD
  18261            O wner "APT"
  18262            N ame "MaxMe mBufSize"
  18263            V alue "3145 728"
  18264         END  DSSUBRECOR D
  18265         BEGI N DSSUBREC ORD
  18266            O wner "APT"
  18267            N ame "Queue UpperSize"
  18268            V alue "0"
  18269         END  DSSUBRECOR D
  18270         Left TextPos "1 020"
  18271         TopT extPos "15 7"
  18272         Link Minimised  "0"
  18273      END DSR ECORD
  18274      BEGIN D SRECORD
  18275         Iden tifier "V1 21S0"
  18276         OLET ype "CTran sformerSta ge"
  18277         Read only "0"
  18278         Name  "genRecsB yCode"
  18279         Next ID "7"
  18280         Inpu tPins "V12 1S0P6"
  18281         Outp utPins "V1 21S0P2"
  18282         Meta Bag "CMeta Property"
  18283         BEGI N DSSUBREC ORD
  18284            O wner "APT"
  18285            N ame "TrxGe nCode"
  18286            V alue =+=+= +=
  18287   //
  18288   // Generat ed file to  implement  the V121S 0_EDI837P_ DIM_DIAGNO SIS_CODE_p rep_genRec sByCode tr ansform op erator.
  18289   //
  18290  
  18291   // define  our input/ output lin k names
  18292   inputname  0 BusRls;
  18293   outputname  0 genRecs ByCode;
  18294  
  18295   initialize  {
  18296    // define  our contr ol variabl es
  18297    int8 RowR ejected0;
  18298    int8 Null SetVar0;
  18299    uint64 It eration0;
  18300  
  18301  
  18302    // get an y loop war ning thres hold
  18303    int64 Loo pThreshold 0;
  18304    string Lo opThreshol dEnv0;
  18305    string Lo opThreshol dName0;
  18306    LoopThres holdName0  = "APT_TRA NSFORM_LOO P_WARNING_ THRESHOLD" ;
  18307    LoopThres holdEnv0 =  get_envir onment(Loo pThreshold Name0);
  18308    if ((Loop ThresholdE nv0 == "")  || (LoopT hresholdEn v0 == "-1" )) {
  18309     LoopThre shold0 = 1 0000;
  18310    } else {
  18311     LoopThre shold0 = L oopThresho ldEnv0;
  18312    }
  18313  
  18314    // declar e our inte rmediate v ariables f or this se ction (1)
  18315    string In terVar0_0;
  18316    string In terVar0_3;
  18317    string In terVar0_4;
  18318    string In terVar0_5;
  18319  
  18320    // initia lise const ant values  which req uire conve rsion
  18321    InterVar0 _0 = "*";
  18322    InterVar0 _3 = ":";
  18323    InterVar0 _4 = "";
  18324    // Stage  variable d eclaration  and initi alisation
  18325    int32 Sta geVar0_svD Count;
  18326    StageVar0 _svDCount  = 0;
  18327   }
  18328  
  18329   mainloop {
  18330    Iteration 0 = 1;
  18331  
  18332    // declar e our inte rmediate v ariables f or this se ction (2)
  18333    int32 Int erVar0_1;
  18334    uint64 In terVar0_2;
  18335  
  18336    // evalua te the sta ge variabl es first
  18337    StageVar0 _svDCount  = dcount_s ubstring(B usRls.diag noses_code _all , Int erVar0_0);
  18338  
  18339    // Loop v ariable de claration  and initia lisation
  18340    string Lo opVar0_tmp Codes;
  18341    LoopVar0_ tmpCodes =  "";
  18342  
  18343    InterVar0 _2 = Stage Var0_svDCo unt;
  18344  
  18345    while ((I teration0  <= InterVa r0_2)) {
  18346  
  18347     // evalu ate the lo op variabl es
  18348     InterVar 0_1 = Iter ation0;
  18349     LoopVar0 _tmpCodes  = substrin g_by_delim iter(BusRl s.diagnose s_code_all  , InterVa r0_0 , Int erVar0_1 ,  1);
  18350  
  18351  
  18352     // initi alise the  rejected r ow variabl e
  18353     RowRejec ted0 = 1;
  18354  
  18355     // evalu ate constr aint and c olumns for  link: gen RecsByCode
  18356     if ((sub string_by_ delimiter( LoopVar0_t mpCodes ,  InterVar0_ 3 , 2 , 1)  > InterVa r0_4))
  18357     {
  18358      genRecs ByCode.dia gnoses_qua lif = subs tring_by_d elimiter(L oopVar0_tm pCodes , I nterVar0_3  , 1 , 1);
  18359      genRecs ByCode.dia gnoses_cod e = substr ing_by_del imiter(Loo pVar0_tmpC odes , Int erVar0_3 ,  2 , 1);
  18360      writere cord 0;
  18361      RowReje cted0 = 0;
  18362     }
  18363  
  18364     // Check  for hitti ng the war ning thres hold
  18365     if (Loop Threshold0  > 0) {
  18366      if ((It eration0 %  LoopThres hold0) ==  0) {
  18367       InterV ar0_5 = It eration0;
  18368       print_ warning("T he warning  threshold  for the n umber of o utput row  iterations  processed  per singl e input ro w has been  reached.  Number of  output row  iteration s: " + Int erVar0_5 +  ". This i s just a w arning and  the job w ill contin ue.");
  18369      }
  18370     }
  18371     Iteratio n0 = Itera tion0 + 1;
  18372     // now d o any work  to re-eva luate the  while cond ition
  18373    InterVar0 _2 = Stage Var0_svDCo unt;
  18374  
  18375    }
  18376   }
  18377  
  18378   finish {
  18379   }
  18380  
  18381   =+=+=+=
  18382         END  DSSUBRECOR D
  18383         BEGI N DSSUBREC ORD
  18384            O wner "APT"
  18385            N ame "TrxGe nCache"
  18386            V alue "1"
  18387         END  DSSUBRECOR D
  18388         BEGI N DSSUBREC ORD
  18389            O wner "APT"
  18390            N ame "TrxCl assName"
  18391            V alue "V121 S0_EDI837P _DIM_DIAGN OSIS_CODE_ prep_genRe csByCode"
  18392         END  DSSUBRECOR D
  18393         BEGI N DSSUBREC ORD
  18394            O wner "APT"
  18395            N ame "TrxGe nWarnings"
  18396            V alue =+=+= +=
  18397   genRecsByC ode
  18398      WARNING : Error in  loop vari able deriv ation for  variable t mpCodes. 
  18399          - p otential d ata or pre cision los s converti ng from ui nt64 to in t32
  18400      WARNING : Error in  loop cond ition expr ession.
  18401          - p otential d ata or pre cision los s converti ng from in t32 to uin t64
  18402  
  18403   =+=+=+=
  18404         END  DSSUBRECOR D
  18405         Vali dationStat us "0"
  18406         Stag eType "CTr ansformerS tage"
  18407         Bloc kSize "0"
  18408         SKKe ySourceTyp e "file"
  18409         Stag eVars "CSt ageVar"
  18410         BEGI N DSSUBREC ORD
  18411            N ame "svDCo unt"
  18412            E xpression  "DCOUNT(Bu sRls.diagn oses_code_ all , \"*\ ")"
  18413            I nitialValu e "0"
  18414            S qlType "4"
  18415            P arsedExpre ssion "DCO UNT(BusRls .diagnoses _code_all,  \"*\")"
  18416            S ourceColum n "BusRls. diagnoses_ code_all"
  18417            P recision " 10"
  18418            C olScale "0 "
  18419            E xtendedPre cision "0"
  18420         END  DSSUBRECOR D
  18421         Loop Condition  "CStageVar "
  18422         BEGI N DSSUBREC ORD
  18423            N ame "$Loop Condition"
  18424            E xpression  "@ITERATIO N <= svDCo unt"
  18425            S qlType "3"
  18426            P arsedExpre ssion "@IT ERATION <=  svDCount"
  18427            S tageVars " svDCount"
  18428            P recision " 18"
  18429            C olScale "4 "
  18430            E xtendedPre cision "0"
  18431         END  DSSUBRECOR D
  18432         Loop Vars "CSta geVar"
  18433         BEGI N DSSUBREC ORD
  18434            N ame "tmpCo des"
  18435            E xpression  "FIELD(Bus Rls.diagno ses_code_a ll, \"*\",  @ITERATIO N, 1)"
  18436            S qlType "12 "
  18437            P arsedExpre ssion "FIE LD(BusRls. diagnoses_ code_all,  \"*\", @IT ERATION, 1 )"
  18438            S ourceColum n "BusRls. diagnoses_ code_all"
  18439            P recision " 50"
  18440            C olScale "0 "
  18441            E xtendedPre cision "0"
  18442         END  DSSUBRECOR D
  18443         Stag eVarsMinim ised "0"
  18444         Loop VarsMaximi sed "1"
  18445         MaxL oopIterati ons "0"
  18446      END DSR ECORD
  18447      BEGIN D SRECORD
  18448         Iden tifier "V1 21S0P2"
  18449         OLET ype "CTrxO utput"
  18450         Read only "0"
  18451         Name  "genRecsB yCode"
  18452         Part ner "V0S17 6|V0S176P1 "
  18453         Cons traint "Fi eld(tmpCod es, \":\",  2,1) > '' "
  18454         Reje ct "0"
  18455         Erro rPin "0"
  18456         RowL imit "0"
  18457         Pars edConstrai nt "Field( tmpCodes,  \":\", 2,  1) > ''"
  18458         Colu mns "COutp utColumn"
  18459         BEGI N DSSUBREC ORD
  18460            N ame "claim _id"
  18461            S qlType "12 "
  18462            P recision " 20"
  18463            S cale "0"
  18464            N ullable "1 "
  18465            K eyPosition  "0"
  18466            D isplaySize  "0"
  18467            D erivation  "BusRls.cl aim_id"
  18468            G roup "0"
  18469            P arsedDeriv ation "Bus Rls.claim_ id"
  18470            S ourceColum n "BusRls. claim_id"
  18471            S ortKey "0"
  18472            S ortType "0 "
  18473            A llowCRLF " 0"
  18474            L evelNo "0"
  18475            O ccurs "0"
  18476            P adNulls "0 "
  18477            S ignOption  "0"
  18478            S ortingOrde r "0"
  18479            A rrayHandli ng "0"
  18480            S yncIndicat or "0"
  18481            P adChar ""
  18482            E xtendedPre cision "0"
  18483            T aggedSubre c "0"
  18484            O ccursVaryi ng "0"
  18485            P KeyIsCasel ess "0"
  18486            S CDPurpose  "0"
  18487         END  DSSUBRECOR D
  18488         BEGI N DSSUBREC ORD
  18489            N ame "ICDVe rsion"
  18490            S qlType "12 "
  18491            P recision " 15"
  18492            S cale "0"
  18493            N ullable "1 "
  18494            K eyPosition  "0"
  18495            D isplaySize  "0"
  18496            D erivation  "BusRls.IC DVersion"
  18497            G roup "0"
  18498            P arsedDeriv ation "Bus Rls.ICDVer sion"
  18499            S ourceColum n "BusRls. ICDVersion "
  18500            S ortKey "0"
  18501            S ortType "0 "
  18502            A llowCRLF " 0"
  18503            L evelNo "0"
  18504            O ccurs "0"
  18505            P adNulls "0 "
  18506            S ignOption  "0"
  18507            S ortingOrde r "0"
  18508            A rrayHandli ng "0"
  18509            S yncIndicat or "0"
  18510            P adChar ""
  18511            E xtendedPre cision "0"
  18512            T aggedSubre c "0"
  18513            O ccursVaryi ng "0"
  18514            P KeyIsCasel ess "0"
  18515            S CDPurpose  "0"
  18516         END  DSSUBRECOR D
  18517         BEGI N DSSUBREC ORD
  18518            N ame "diagn oses_quali f"
  18519            D escription  =+=+=+=
  18520   <none>
  18521   Searchable ? N 
  18522   =+=+=+=
  18523            S qlType "12 "
  18524            P recision " 10"
  18525            S cale "0"
  18526            N ullable "1 "
  18527            K eyPosition  "0"
  18528            D isplaySize  "15"
  18529            D erivation  "Field(tmp Codes, \": \", 1,1)"
  18530            G roup "0"
  18531            P arsedDeriv ation "Fie ld(tmpCode s, \":\",  1, 1)"
  18532            S ortKey "0"
  18533            S ortType "0 "
  18534            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  18535            A llowCRLF " 0"
  18536            L evelNo "0"
  18537            O ccurs "0"
  18538            P adNulls "0 "
  18539            S ignOption  "0"
  18540            S ortingOrde r "0"
  18541            S tageVars " \(1B)tmpCo des"
  18542            A rrayHandli ng "0"
  18543            S yncIndicat or "0"
  18544            P adChar ""
  18545            C olumnRefer ence "oral _cavity_de signation_ code"
  18546            A PTFieldPro p "null_fi eld=''"
  18547            E xtendedPre cision "0"
  18548            T aggedSubre c "0"
  18549            O ccursVaryi ng "0"
  18550            P KeyIsCasel ess "0"
  18551            S CDPurpose  "0"
  18552         END  DSSUBRECOR D
  18553         BEGI N DSSUBREC ORD
  18554            N ame "diagn oses_code"
  18555            D escription  =+=+=+=
  18556   <none>
  18557   Searchable ? N 
  18558   =+=+=+=
  18559            S qlType "12 "
  18560            P recision " 30"
  18561            S cale "0"
  18562            N ullable "1 "
  18563            K eyPosition  "0"
  18564            D isplaySize  "15"
  18565            D erivation  "Field(tmp Codes, \": \", 2,1)"
  18566            G roup "0"
  18567            P arsedDeriv ation "Fie ld(tmpCode s, \":\",  2, 1)"
  18568            S ortKey "0"
  18569            S ortType "0 "
  18570            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_LINE _ORAL_CAVI TY"
  18571            A llowCRLF " 0"
  18572            L evelNo "0"
  18573            O ccurs "0"
  18574            P adNulls "0 "
  18575            S ignOption  "0"
  18576            S ortingOrde r "0"
  18577            S tageVars " \(1B)tmpCo des"
  18578            A rrayHandli ng "0"
  18579            S yncIndicat or "0"
  18580            P adChar ""
  18581            C olumnRefer ence "oral _cavity_de signation_ code"
  18582            A PTFieldPro p "null_fi eld=''"
  18583            E xtendedPre cision "0"
  18584            T aggedSubre c "0"
  18585            O ccursVaryi ng "0"
  18586            P KeyIsCasel ess "0"
  18587            S CDPurpose  "0"
  18588         END  DSSUBRECOR D
  18589         BEGI N DSSUBREC ORD
  18590            N ame "is_cu rrent"
  18591            S qlType "1"
  18592            P recision " 1"
  18593            S cale "0"
  18594            N ullable "0 "
  18595            K eyPosition  "0"
  18596            D isplaySize  "0"
  18597            D erivation  "BusRls.is _current"
  18598            G roup "0"
  18599            P arsedDeriv ation "Bus Rls.is_cur rent"
  18600            S ourceColum n "BusRls. is_current "
  18601            S ortKey "0"
  18602            S ortType "0 "
  18603            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  18604            A llowCRLF " 0"
  18605            L evelNo "0"
  18606            N ativeType  "pit_boole an"
  18607            O ccurs "0"
  18608            P adNulls "0 "
  18609            S ignOption  "0"
  18610            S ortingOrde r "0"
  18611            A rrayHandli ng "0"
  18612            S yncIndicat or "0"
  18613            P adChar ""
  18614            C olumnRefer ence "is_c urrent"
  18615            E xtendedPre cision "0"
  18616            T aggedSubre c "0"
  18617            O ccursVaryi ng "0"
  18618            P KeyIsCasel ess "0"
  18619            S CDPurpose  "0"
  18620         END  DSSUBRECOR D
  18621         BEGI N DSSUBREC ORD
  18622            N ame "start _date"
  18623            S qlType "9"
  18624            P recision " 10"
  18625            S cale "0"
  18626            N ullable "1 "
  18627            K eyPosition  "0"
  18628            D isplaySize  "0"
  18629            D erivation  "BusRls.st art_date"
  18630            G roup "0"
  18631            P arsedDeriv ation "Bus Rls.start_ date"
  18632            S ourceColum n "BusRls. start_date "
  18633            S ortKey "0"
  18634            S ortType "0 "
  18635            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  18636            A llowCRLF " 0"
  18637            L evelNo "0"
  18638            N ativeType  "pit_date"
  18639            O ccurs "0"
  18640            P adNulls "0 "
  18641            S ignOption  "0"
  18642            S ortingOrde r "0"
  18643            A rrayHandli ng "0"
  18644            S yncIndicat or "0"
  18645            P adChar ""
  18646            C olumnRefer ence "star t_date"
  18647            E xtendedPre cision "0"
  18648            T aggedSubre c "0"
  18649            O ccursVaryi ng "0"
  18650            P KeyIsCasel ess "0"
  18651            S CDPurpose  "0"
  18652         END  DSSUBRECOR D
  18653         BEGI N DSSUBREC ORD
  18654            N ame "sourc e_system"
  18655            S qlType "12 "
  18656            P recision " 20"
  18657            S cale "0"
  18658            N ullable "1 "
  18659            K eyPosition  "0"
  18660            D isplaySize  "0"
  18661            D erivation  "BusRls.so urce_syste m"
  18662            G roup "0"
  18663            P arsedDeriv ation "Bus Rls.source _system"
  18664            S ourceColum n "BusRls. source_sys tem"
  18665            S ortKey "0"
  18666            S ortType "0 "
  18667            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  18668            A llowCRLF " 0"
  18669            L evelNo "0"
  18670            N ativeType  "varchar"
  18671            O ccurs "0"
  18672            P adNulls "0 "
  18673            S ignOption  "0"
  18674            S ortingOrde r "0"
  18675            A rrayHandli ng "0"
  18676            S yncIndicat or "0"
  18677            P adChar ""
  18678            C olumnRefer ence "sour ce_system"
  18679            E xtendedPre cision "0"
  18680            T aggedSubre c "0"
  18681            O ccursVaryi ng "0"
  18682            P KeyIsCasel ess "0"
  18683            S CDPurpose  "0"
  18684         END  DSSUBRECOR D
  18685         BEGI N DSSUBREC ORD
  18686            N ame "sourc e_entity"
  18687            S qlType "12 "
  18688            P recision " 50"
  18689            S cale "0"
  18690            N ullable "1 "
  18691            K eyPosition  "0"
  18692            D isplaySize  "0"
  18693            D erivation  "BusRls.so urce_entit y"
  18694            G roup "0"
  18695            P arsedDeriv ation "Bus Rls.source _entity"
  18696            S ourceColum n "BusRls. source_ent ity"
  18697            S ortKey "0"
  18698            S ortType "0 "
  18699            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  18700            A llowCRLF " 0"
  18701            L evelNo "0"
  18702            O ccurs "0"
  18703            P adNulls "0 "
  18704            S ignOption  "0"
  18705            S ortingOrde r "0"
  18706            A rrayHandli ng "0"
  18707            S yncIndicat or "0"
  18708            P adChar ""
  18709            C olumnRefer ence "sour ce_entity"
  18710            E xtendedPre cision "0"
  18711            T aggedSubre c "0"
  18712            O ccursVaryi ng "0"
  18713            P KeyIsCasel ess "0"
  18714            S CDPurpose  "0"
  18715         END  DSSUBRECOR D
  18716         BEGI N DSSUBREC ORD
  18717            N ame "row_i d"
  18718            S qlType "12 "
  18719            P recision " 20"
  18720            S cale "0"
  18721            N ullable "1 "
  18722            K eyPosition  "0"
  18723            D isplaySize  "0"
  18724            D erivation  "BusRls.ro w_id"
  18725            G roup "0"
  18726            P arsedDeriv ation "Bus Rls.row_id "
  18727            S ourceColum n "BusRls. row_id"
  18728            S ortKey "0"
  18729            S ortType "0 "
  18730            T ableDef "D atabase\\P ITEDR_ETL\ \dbo.F_DEN TAL_CLAIM_ DETAIL"
  18731            A llowCRLF " 0"
  18732            L evelNo "0"
  18733            N ativeType  "varchar"
  18734            O ccurs "0"
  18735            P adNulls "0 "
  18736            S ignOption  "0"
  18737            S ortingOrde r "0"
  18738            A rrayHandli ng "0"
  18739            S yncIndicat or "0"
  18740            P adChar ""
  18741            C olumnRefer ence "row_ id"
  18742            E xtendedPre cision "0"
  18743            T aggedSubre c "0"
  18744            O ccursVaryi ng "0"
  18745            P KeyIsCasel ess "0"
  18746            S CDPurpose  "0"
  18747         END  DSSUBRECOR D
  18748         Meta Bag "CMeta Property"
  18749         BEGI N DSSUBREC ORD
  18750            O wner "APT"
  18751            N ame "DiskW riteInc"
  18752            V alue "1048 576"
  18753         END  DSSUBRECOR D
  18754         BEGI N DSSUBREC ORD
  18755            O wner "APT"
  18756            N ame "BufFr eeRun"
  18757            V alue "50"
  18758         END  DSSUBRECOR D
  18759         BEGI N DSSUBREC ORD
  18760            O wner "APT"
  18761            N ame "MaxMe mBufSize"
  18762            V alue "3145 728"
  18763         END  DSSUBRECOR D
  18764         BEGI N DSSUBREC ORD
  18765            O wner "APT"
  18766            N ame "Queue UpperSize"
  18767            V alue "0"
  18768         END  DSSUBRECOR D
  18769         BEGI N DSSUBREC ORD
  18770            O wner "APT"
  18771            N ame "Schem a"
  18772            V alue =+=+= +=
  18773   record
  18774   (
  18775     claim_id :nullable  string[max =20];
  18776     ICDVersi on:nullabl e string[m ax=15];
  18777     diagnose s_qualif:n ullable st ring[max=1 0];
  18778     diagnose s_code:nul lable stri ng[max=30] ;
  18779     is_curre nt:string[ 1];
  18780     start_da te:nullabl e date;
  18781     source_s ystem:null able strin g[max=20];
  18782     source_e ntity:null able strin g[max=50];
  18783     row_id:n ullable st ring[max=2 0];
  18784   )
  18785   =+=+=+=
  18786         END  DSSUBRECOR D
  18787         BEGI N DSSUBREC ORD
  18788            O wner "APT"
  18789            N ame "SortO rderPreser ved"
  18790            V alue "0"
  18791         END  DSSUBRECOR D
  18792         Stag eVars "\(1 B)tmpCodes "
  18793         Left TextPos "5 89"
  18794         TopT extPos "28 5"
  18795         Link Minimised  "0"
  18796      END DSR ECORD
  18797      BEGIN D SRECORD
  18798         Iden tifier "V1 21S0P6"
  18799         OLET ype "CTrxI nput"
  18800         Read only "0"
  18801         Name  "BusRls"
  18802         Part ner "V81S2 |V81S2P2"
  18803         Link Type "1"
  18804         Meta Bag "CMeta Property"
  18805         BEGI N DSSUBREC ORD
  18806            O wner "APT"
  18807            N ame "RTCol umnProp"
  18808            V alue "0"
  18809         END  DSSUBRECOR D
  18810         BEGI N DSSUBREC ORD
  18811            O wner "APT"
  18812            N ame "Schem a"
  18813            V alue =+=+= +=
  18814   record
  18815   (
  18816     claim_id :nullable  string[max =20];
  18817     diagnose s_code_all :nullable  string[max =200];
  18818     ICDVersi on:nullabl e string[m ax=15];
  18819     start_da te:nullabl e date;
  18820     is_curre nt:string[ 1];
  18821     source_s ystem:null able strin g[max=20];
  18822     source_e ntity:null able strin g[max=50];
  18823     row_id:n ullable st ring[max=2 0];
  18824     claim_ke y_pr:nulla ble int32;
  18825   )
  18826   =+=+=+=
  18827         END  DSSUBRECOR D
  18828         Mult iRow "0"
  18829         Link Minimised  "0"
  18830      END DSR ECORD
  18831      BEGIN D SRECORD
  18832         Iden tifier "V1 23S0"
  18833         OLET ype "CCust omStage"
  18834         Read only "0"
  18835         Name  "Ds_DimDi agnosis"
  18836         Next ID "3"
  18837         Inpu tPins "V12 3S0P2"
  18838         Stag eType "PxD ataSet"
  18839         Allo wColumnMap ping "0"
  18840         Next RecordID " 0"
  18841      END DSR ECORD
  18842      BEGIN D SRECORD
  18843         Iden tifier "V1 23S0P2"
  18844         OLET ype "CCust omInput"
  18845         Read only "0"
  18846         Name  "MissingD iagnosisCo des"
  18847         Part ner "V0S17 4|V0S174P2 "
  18848         Link Type "1"
  18849         Cond itionNotMe t "fail"
  18850         Look upFail "fa il"
  18851         Prop erties "CC ustomPrope rty"
  18852         BEGI N DSSUBREC ORD
  18853            N ame "datas et"
  18854            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_DI M_DIAGNOSI S_Ins.ds"
  18855         END  DSSUBRECOR D
  18856         BEGI N DSSUBREC ORD
  18857            N ame "datas etmode"
  18858            V alue ">| [ ds"
  18859         END  DSSUBRECOR D
  18860         Meta Bag "CMeta Property"
  18861         BEGI N DSSUBREC ORD
  18862            O wner "APT"
  18863            N ame "RTCol umnProp"
  18864            V alue "0"
  18865         END  DSSUBRECOR D
  18866         Tran sactionSiz e "0"
  18867         TXNB ehaviour " 0"
  18868         Enab leTxGroup  "0"
  18869         Link Minimised  "0"
  18870      END DSR ECORD
  18871      BEGIN D SRECORD
  18872         Iden tifier "V1 30S0"
  18873         OLET ype "CCust omStage"
  18874         Read only "0"
  18875         Name  "ds_EDI83 7P_Conform ed"
  18876         Next ID "3"
  18877         Outp utPins "V1 30S0P2"
  18878         Stag eType "PxD ataSet"
  18879         Allo wColumnMap ping "0"
  18880         Meta Bag "CMeta Property"
  18881         BEGI N DSSUBREC ORD
  18882            O wner "APT"
  18883            N ame "Execm ode"
  18884            V alue "seq"
  18885         END  DSSUBRECOR D
  18886         Next RecordID " 0"
  18887      END DSR ECORD
  18888      BEGIN D SRECORD
  18889         Iden tifier "V1 30S0P2"
  18890         OLET ype "CCust omOutput"
  18891         Read only "0"
  18892         Name  "XfrmSrc"
  18893         Part ner "V81S2 |V81S2P3"
  18894         Prop erties "CC ustomPrope rty"
  18895         BEGI N DSSUBREC ORD
  18896            N ame "datas et"
  18897            V alue "#$PR OJ_DATA_DS ##BatchCla imType#_Co nformed.ds "
  18898         END  DSSUBRECOR D
  18899         BEGI N DSSUBREC ORD
  18900            N ame "missi ngcolmode"
  18901            V alue " "
  18902         END  DSSUBRECOR D
  18903         Colu mns "COutp utColumn"
  18904         BEGI N DSSUBREC ORD
  18905            N ame "ROW_N UM"
  18906            S qlType "12 "
  18907            P recision " 8"
  18908            S cale "0"
  18909            N ullable "0 "
  18910            K eyPosition  "0"
  18911            D isplaySize  "0"
  18912            G roup "0"
  18913            S ortKey "0"
  18914            S ortType "0 "
  18915            A llowCRLF " 0"
  18916            L evelNo "0"
  18917            O ccurs "0"
  18918            P adNulls "0 "
  18919            S ignOption  "0"
  18920            S ortingOrde r "0"
  18921            A rrayHandli ng "0"
  18922            S yncIndicat or "0"
  18923            P adChar ""
  18924            E xtendedPre cision "0"
  18925            T aggedSubre c "0"
  18926            O ccursVaryi ng "0"
  18927            P KeyIsCasel ess "0"
  18928            S CDPurpose  "0"
  18929         END  DSSUBRECOR D
  18930         BEGI N DSSUBREC ORD
  18931            N ame "ST_NU M"
  18932            S qlType "12 "
  18933            P recision " 9"
  18934            S cale "0"
  18935            N ullable "1 "
  18936            K eyPosition  "1"
  18937            D isplaySize  "0"
  18938            G roup "0"
  18939            S ortKey "0"
  18940            S ortType "0 "
  18941            A llowCRLF " 0"
  18942            L evelNo "0"
  18943            O ccurs "0"
  18944            P adNulls "0 "
  18945            S ignOption  "0"
  18946            S ortingOrde r "0"
  18947            A rrayHandli ng "0"
  18948            S yncIndicat or "0"
  18949            P adChar ""
  18950            E xtendedPre cision "0"
  18951            T aggedSubre c "0"
  18952            O ccursVaryi ng "0"
  18953            P KeyIsCasel ess "0"
  18954            S CDPurpose  "0"
  18955         END  DSSUBRECOR D
  18956         BEGI N DSSUBREC ORD
  18957            N ame "LOOP"
  18958            S qlType "12 "
  18959            P recision " 10"
  18960            S cale "0"
  18961            N ullable "1 "
  18962            K eyPosition  "0"
  18963            D isplaySize  "0"
  18964            G roup "0"
  18965            S ortKey "0"
  18966            S ortType "0 "
  18967            A llowCRLF " 0"
  18968            L evelNo "0"
  18969            O ccurs "0"
  18970            P adNulls "0 "
  18971            S ignOption  "0"
  18972            S ortingOrde r "0"
  18973            A rrayHandli ng "0"
  18974            S yncIndicat or "0"
  18975            P adChar ""
  18976            E xtendedPre cision "0"
  18977            T aggedSubre c "0"
  18978            O ccursVaryi ng "0"
  18979            P KeyIsCasel ess "0"
  18980            S CDPurpose  "0"
  18981         END  DSSUBRECOR D
  18982         BEGI N DSSUBREC ORD
  18983            N ame "SEG"
  18984            S qlType "12 "
  18985            P recision " 5"
  18986            S cale "0"
  18987            N ullable "0 "
  18988            K eyPosition  "0"
  18989            D isplaySize  "0"
  18990            G roup "0"
  18991            S ortKey "0"
  18992            S ortType "0 "
  18993            A llowCRLF " 0"
  18994            L evelNo "0"
  18995            O ccurs "0"
  18996            P adNulls "0 "
  18997            S ignOption  "0"
  18998            S ortingOrde r "0"
  18999            A rrayHandli ng "0"
  19000            S yncIndicat or "0"
  19001            P adChar ""
  19002            E xtendedPre cision "0"
  19003            T aggedSubre c "0"
  19004            O ccursVaryi ng "0"
  19005            P KeyIsCasel ess "0"
  19006            S CDPurpose  "0"
  19007         END  DSSUBRECOR D
  19008         BEGI N DSSUBREC ORD
  19009            N ame "SEG_C D"
  19010            S qlType "12 "
  19011            P recision " 20"
  19012            S cale "0"
  19013            N ullable "0 "
  19014            K eyPosition  "0"
  19015            D isplaySize  "0"
  19016            G roup "0"
  19017            S ortKey "0"
  19018            S ortType "0 "
  19019            A llowCRLF " 0"
  19020            L evelNo "0"
  19021            O ccurs "0"
  19022            P adNulls "0 "
  19023            S ignOption  "0"
  19024            S ortingOrde r "0"
  19025            A rrayHandli ng "0"
  19026            S yncIndicat or "0"
  19027            P adChar ""
  19028            E xtendedPre cision "0"
  19029            T aggedSubre c "0"
  19030            O ccursVaryi ng "0"
  19031            P KeyIsCasel ess "0"
  19032            S CDPurpose  "0"
  19033         END  DSSUBRECOR D
  19034         BEGI N DSSUBREC ORD
  19035            N ame "EDI83 7P"
  19036            S qlType "12 "
  19037            P recision " 2000"
  19038            S cale "0"
  19039            N ullable "0 "
  19040            K eyPosition  "0"
  19041            D isplaySize  "0"
  19042            G roup "0"
  19043            S ortKey "0"
  19044            S ortType "0 "
  19045            T ableDef "S aved\\Conf orming_rec s\\EDI_ST_ TransSetHd r"
  19046            A llowCRLF " 0"
  19047            L evelNo "0"
  19048            O ccurs "0"
  19049            P adNulls "0 "
  19050            S ignOption  "0"
  19051            S ortingOrde r "0"
  19052            A rrayHandli ng "0"
  19053            S yncIndicat or "0"
  19054            P adChar ""
  19055            C olumnRefer ence "IMPL _CONV_REF"
  19056            E xtendedPre cision "0"
  19057            T aggedSubre c "0"
  19058            O ccursVaryi ng "0"
  19059            P KeyIsCasel ess "0"
  19060            S CDPurpose  "0"
  19061         END  DSSUBRECOR D
  19062         BEGI N DSSUBREC ORD
  19063            N ame "ETL_B ATCH_ID"
  19064            S qlType "12 "
  19065            P recision " 20"
  19066            S cale "0"
  19067            N ullable "0 "
  19068            K eyPosition  "0"
  19069            D isplaySize  "0"
  19070            G roup "0"
  19071            S ortKey "0"
  19072            S ortType "0 "
  19073            A llowCRLF " 0"
  19074            L evelNo "0"
  19075            O ccurs "0"
  19076            P adNulls "0 "
  19077            S ignOption  "0"
  19078            S ortingOrde r "0"
  19079            A rrayHandli ng "0"
  19080            S yncIndicat or "0"
  19081            P adChar ""
  19082            E xtendedPre cision "0"
  19083            T aggedSubre c "0"
  19084            O ccursVaryi ng "0"
  19085            P KeyIsCasel ess "0"
  19086            S CDPurpose  "0"
  19087         END  DSSUBRECOR D
  19088         Left TextPos "2 90"
  19089         TopT extPos "28 7"
  19090         Link Minimised  "0"
  19091      END DSR ECORD
  19092      BEGIN D SRECORD
  19093         Iden tifier "V8 1S2"
  19094         OLET ype "CTran sformerSta ge"
  19095         Read only "0"
  19096         Name  "Xfm_BusR ules"
  19097         Next ID "4"
  19098         Inpu tPins "V81 S2P3"
  19099         Outp utPins "V8 1S2P2"
  19100         Meta Bag "CMeta Property"
  19101         BEGI N DSSUBREC ORD
  19102            O wner "APT"
  19103            N ame "TrxGe nCode"
  19104            V alue =+=+= +=
  19105   //
  19106   // Generat ed file to  implement  the V81S2 _EDI837P_D IM_DIAGNOS IS_CODE_pr ep_Xfm_Bus Rules tran sform oper ator.
  19107   //
  19108  
  19109   // define  our input/ output lin k names
  19110   inputname  0 XfrmSrc;
  19111   outputname  0 BusRls;
  19112  
  19113   global {
  19114    string DS JobStartDa te;
  19115   }
  19116  
  19117   initialize  {
  19118    // define  our contr ol variabl es
  19119    int8 RowR ejected0;
  19120    int8 Null SetVar0;
  19121  
  19122    // declar e our inte rmediate v ariables f or this se ction (1)
  19123    string In terVar0_0;
  19124    string In terVar0_1;
  19125    string In terVar0_2;
  19126    string In terVar0_3;
  19127    string In terVar0_4;
  19128    string In terVar0_5;
  19129    string In terVar0_6;
  19130    string In terVar0_10 ;
  19131    string In terVar0_11 ;
  19132    string In terVar0_12 ;
  19133    string In terVar0_13 ;
  19134    string In terVar0_14 ;
  19135    string In terVar0_15 ;
  19136    string In terVar0_16 ;
  19137    string In terVar0_17 ;
  19138    string In terVar0_18 ;
  19139    string In terVar0_19 ;
  19140  
  19141    // initia lise const ant values  which req uire conve rsion
  19142    InterVar0 _0 = "ST";
  19143    InterVar0 _1 = "";
  19144    InterVar0 _2 = "2300 ";
  19145    InterVar0 _3 = "REF" ;
  19146    InterVar0 _4 = "REF* D9";
  19147    InterVar0 _5 = "*";
  19148    InterVar0 _6 = "HI";
  19149    InterVar0 _10 = "HI* BK";
  19150    InterVar0 _11 = "HI* BF";
  19151    InterVar0 _12 = "ICD 9";
  19152    InterVar0 _13 = "HI* ABK";
  19153    InterVar0 _14 = "HI* ABF";
  19154    InterVar0 _15 = "ICD 10";
  19155    InterVar0 _16 = "GS" ;
  19156    InterVar0 _17 = "ISA ";
  19157    InterVar0 _18 = "Y";
  19158    InterVar0 _19 = "837 P";
  19159    // Stage  variable d eclaration  and initi alisation
  19160    string St ageVar0_sv ClaimId;
  19161    StageVar0 _svClaimId  = "";
  19162    string St ageVar0_sv DiagnosisC odeLen;
  19163    StageVar0 _svDiagnos isCodeLen  = "";
  19164    string St ageVar0_sv DiagnosisC odesAll;
  19165    StageVar0 _svDiagnos isCodesAll  = "";
  19166    string St ageVar0_sv ICDVersion ;
  19167    StageVar0 _svICDVers ion = "";
  19168    string St ageVar0_sv RefSourceE ntity;
  19169    StageVar0 _svRefSour ceEntity =  "";
  19170    string St ageVar0_sv RefRowId;
  19171    StageVar0 _svRefRowI d = "";
  19172   }
  19173  
  19174   mainloop {
  19175  
  19176    // declar e our inte rmediate v ariables f or this se ction (2)
  19177    string In terVar0_7;
  19178    dfloat In terVar0_8;
  19179    int32 Int erVar0_9;
  19180  
  19181    // evalua te the sta ge variabl es first
  19182    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  19183     StageVar 0_svClaimI d = InterV ar0_1;
  19184    } else {
  19185     if ((((X frmSrc.LOO P == Inter Var0_2) &&  (XfrmSrc. SEG == Int erVar0_3))  && (XfrmS rc.SEG_CD  == InterVa r0_4))) {
  19186      StageVa r0_svClaim Id = subst ring_by_de limiter(Xf rmSrc.EDI8 37P , Inte rVar0_5 ,  3 , 1);
  19187     } else {
  19188      StageVa r0_svClaim Id = Stage Var0_svCla imId;
  19189     }
  19190     //;
  19191    }
  19192    //;
  19193    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  19194     StageVar 0_svDiagno sisCodeLen  = InterVa r0_1;
  19195    } else {
  19196     if (((Xf rmSrc.LOOP  == InterV ar0_2) &&  (XfrmSrc.S EG == Inte rVar0_6)))  {
  19197      InterVa r0_7 = str ing_length (XfrmSrc.E DI837P);
  19198      StageVa r0_svDiagn osisCodeLe n = InterV ar0_7;
  19199     } else {
  19200      StageVa r0_svDiagn osisCodeLe n = StageV ar0_svDiag nosisCodeL en;
  19201     }
  19202     //;
  19203    }
  19204    //;
  19205    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  19206     StageVar 0_svDiagno sisCodesAl l = InterV ar0_1;
  19207    } else {
  19208     if (((Xf rmSrc.LOOP  == InterV ar0_2) &&  (XfrmSrc.S EG == Inte rVar0_6)))  {
  19209      InterVa r0_8 = Sta geVar0_svD iagnosisCo deLen;
  19210      InterVa r0_9 = Int erVar0_8 -  3;
  19211      StageVa r0_svDiagn osisCodesA ll = subst ring_1(Xfr mSrc.EDI83 7P , 4 , I nterVar0_9 );
  19212     } else {
  19213      StageVa r0_svDiagn osisCodesA ll = Stage Var0_svDia gnosisCode sAll;
  19214     }
  19215     //;
  19216    }
  19217    //;
  19218    if ((Xfrm Src.SEG ==  InterVar0 _0)) {
  19219     StageVar 0_svICDVer sion = Int erVar0_1;
  19220    } else {
  19221     if ((((X frmSrc.LOO P == Inter Var0_2) &&  (XfrmSrc. SEG == Int erVar0_6))  && ((Xfrm Src.SEG_CD  == InterV ar0_10) ||  (XfrmSrc. SEG_CD ==  InterVar0_ 11)))) {
  19222      StageVa r0_svICDVe rsion = In terVar0_12 ;
  19223     } else {
  19224      if (((( XfrmSrc.LO OP == Inte rVar0_2) & & (XfrmSrc .SEG == In terVar0_6) ) && ((Xfr mSrc.SEG_C D == Inter Var0_13) | | (XfrmSrc .SEG_CD ==  InterVar0 _14)))) {
  19225       StageV ar0_svICDV ersion = I nterVar0_1 5;
  19226      } else  {
  19227       StageV ar0_svICDV ersion = I nterVar0_1 ;
  19228      }
  19229      //;
  19230     }
  19231     //;
  19232    }
  19233    //;
  19234    if ((Xfrm Src.SEG ==  InterVar0 _16)) {
  19235     StageVar 0_svRefSou rceEntity  = ((substr ing_by_del imiter(Xfr mSrc.EDI83 7P , Inter Var0_5 , 3  , 1) + su bstring_by _delimiter (XfrmSrc.E DI837P , I nterVar0_5  , 5 , 1))  + substri ng_by_deli miter(Xfrm Src.EDI837 P , InterV ar0_5 , 7  , 1));
  19236    } else {
  19237     StageVar 0_svRefSou rceEntity  = StageVar 0_svRefSou rceEntity;
  19238    }
  19239    //;
  19240    if ((((tr imc_string (XfrmSrc.L OOP) == In terVar0_2)  && (XfrmS rc.SEG ==  InterVar0_ 3)) && (Xf rmSrc.SEG_ CD == Inte rVar0_4)))  {
  19241     StageVar 0_svRefRow Id = subst ring_by_de limiter(Xf rmSrc.EDI8 37P , Inte rVar0_5 ,  3 , 1);
  19242    } else {
  19243     StageVar 0_svRefRow Id = Stage Var0_svRef RowId;
  19244    }
  19245    //;
  19246  
  19247    // initia lise the r ejected ro w variable
  19248    RowReject ed0 = 1;
  19249  
  19250    // evalua te constra int and co lumns for  link: BusR ls
  19251    if ((((St ageVar0_sv DiagnosisC odesAll !=  InterVar0 _1) || (Xf rmSrc.SEG  == InterVa r0_17)) ||  (XfrmSrc. SEG == Int erVar0_16) ))
  19252    {
  19253     BusRls.c laim_id =  StageVar0_ svClaimId;
  19254     BusRls.d iagnoses_c ode_all =  StageVar0_ svDiagnosi sCodesAll;
  19255     BusRls.I CDVersion  = StageVar 0_svICDVer sion;
  19256     BusRls.s tart_date  = date_fro m_string(D SJobStartD ate);
  19257     BusRls.i s_current  = InterVar 0_18;
  19258     BusRls.s ource_syst em = Inter Var0_19;
  19259     BusRls.s ource_enti ty = Stage Var0_svRef SourceEnti ty;
  19260     BusRls.r ow_id = St ageVar0_sv RefRowId;
  19261     BusRls.c laim_key_p r = set_nu ll();
  19262     writerec ord 0;
  19263     RowRejec ted0 = 0;
  19264    }
  19265   }
  19266  
  19267   finish {
  19268   }
  19269  
  19270   =+=+=+=
  19271         END  DSSUBRECOR D
  19272         BEGI N DSSUBREC ORD
  19273            O wner "APT"
  19274            N ame "TrxGe nCache"
  19275            V alue "0"
  19276         END  DSSUBRECOR D
  19277         BEGI N DSSUBREC ORD
  19278            O wner "APT"
  19279            N ame "TrxCl assName"
  19280            V alue "V81S 2_EDI837P_ DIM_DIAGNO SIS_CODE_p rep_Xfm_Bu sRules"
  19281         END  DSSUBRECOR D
  19282         BEGI N DSSUBREC ORD
  19283            O wner "APT"
  19284            N ame "TrxGe nWarnings"
  19285            V alue =+=+= +=
  19286   Xfm_BusRul es
  19287      WARNING : Error in  Stage Var iable deri vation exp ression fo r variable  svDiagnos isCodesAll
  19288          - p otential d ata or pre cision los s in arith metic expr ession whe n converti ng numbers  from stri ng
  19289  
  19290   =+=+=+=
  19291         END  DSSUBRECOR D
  19292         Vali dationStat us "0"
  19293         Stag eType "CTr ansformerS tage"
  19294         Bloc kSize "0"
  19295         SKKe ySourceTyp e "file"
  19296         Stag eVars "CSt ageVar"
  19297         BEGI N DSSUBREC ORD
  19298            N ame "svCla imId"
  19299            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='REF' a nd XfrmSrc .SEG_CD =  'REF*D9' T hen FIELD( XfrmSrc.ED I837P, \"* \", 3, 1)   Else svCl aimId"
  19300            S qlType "12 "
  19301            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'RE F' and Xfr mSrc.SEG_C D = 'REF*D 9' Then FI ELD(XfrmSr c.EDI837P,  \"*\", 3,  1) Else s vClaimId"
  19302            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD;XfrmSrc .EDI837P"
  19303            S tageVars " svClaimId"
  19304            P recision " 20"
  19305            C olScale "0 "
  19306            E xtendedPre cision "0"
  19307         END  DSSUBRECOR D
  19308         BEGI N DSSUBREC ORD
  19309            N ame "svDia gnosisCode Len"
  19310            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'  T hen Len(Xf rmSrc.EDI8 37P) Else  svDiagnosi sCodeLen"
  19311            S qlType "12 "
  19312            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' Then Len (XfrmSrc.E DI837P) El se svDiagn osisCodeLe n"
  19313            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  19314            S tageVars " svDiagnosi sCodeLen"
  19315            P recision " 200"
  19316            C olScale "0 "
  19317            E xtendedPre cision "0"
  19318         END  DSSUBRECOR D
  19319         BEGI N DSSUBREC ORD
  19320            N ame "svDia gnosisCode sAll"
  19321            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If Xfr mSrc.LOOP= '2300' and  XfrmSrc.S EG='HI'  T hen XfrmSr c.EDI837P[ 4, svDiagn osisCodeLe n - 3] Els e svDiagno sisCodesAl l"
  19322            S qlType "12 "
  19323            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If Xfr mSrc.LOOP  = '2300' a nd XfrmSrc .SEG = 'HI ' Then Xfr mSrc.EDI83 7P[4, svDi agnosisCod eLen - 3]  Else svDia gnosisCode sAll"
  19324            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.EDI8 37P"
  19325            S tageVars " svDiagnosi sCodeLen;s vDiagnosis CodesAll"
  19326            P recision " 200"
  19327            C olScale "0 "
  19328            E xtendedPre cision "0"
  19329         END  DSSUBRECOR D
  19330         BEGI N DSSUBREC ORD
  19331            N ame "svICD Version"
  19332            E xpression  "If XfrmSr c.SEG='ST'  Then '' E lse If ( X frmSrc.LOO P='2300' a nd XfrmSrc .SEG='HI'   And (Xfrm Src.SEG_CD  = \"HI*BK \" Or Xfrm Src.SEG_CD  = \"HI*BF \")) Then  \"ICD9\" E lse If (Xf rmSrc.LOOP ='2300' an d XfrmSrc. SEG='HI'   And (XfrmS rc.SEG_CD  = \"HI*ABK \" Or Xfrm Src.SEG_CD  = \"HI*AB F\")  )The n \"ICD10\ " Else \"\ ""
  19333            S qlType "12 "
  19334            P arsedExpre ssion " If  XfrmSrc.S EG = 'ST'  Then '' El se  If (Xf rmSrc.LOOP  = '2300'  and XfrmSr c.SEG = 'H I' And (Xf rmSrc.SEG_ CD = \"HI* BK\" Or Xf rmSrc.SEG_ CD = \"HI* BF\")) The n \"ICD9\"  Else  If  (XfrmSrc.L OOP = '230 0' and Xfr mSrc.SEG =  'HI' And  (XfrmSrc.S EG_CD = \" HI*ABK\" O r XfrmSrc. SEG_CD = \ "HI*ABF\") ) Then \"I CD10\" Els e \"\""
  19335            S ourceColum n "XfrmSrc .SEG;XfrmS rc.LOOP;Xf rmSrc.SEG_ CD"
  19336            P recision " 15"
  19337            C olScale "0 "
  19338            E xtendedPre cision "0"
  19339         END  DSSUBRECOR D
  19340         BEGI N DSSUBREC ORD
  19341            N ame "svRef SourceEnti ty"
  19342            E xpression  "If XfrmSr c.SEG = 'G S' Then FI ELD(XfrmSr c.EDI837P,  '*', 3, 1 ): FIELD(X frmSrc.EDI 837P, '*',  5, 1):FIE LD(XfrmSrc .EDI837P,  '*', 7, 1)  Else svRe fSourceEnt ity"
  19343            S qlType "12 "
  19344            P arsedExpre ssion " If  XfrmSrc.S EG = 'GS'  Then FIELD (XfrmSrc.E DI837P, '* ', 3, 1) :  FIELD(Xfr mSrc.EDI83 7P, '*', 5 , 1) : FIE LD(XfrmSrc .EDI837P,  '*', 7, 1)  Else svRe fSourceEnt ity"
  19345            S ourceColum n "XfrmSrc .SEG;XfrmS rc.EDI837P "
  19346            S tageVars " svRefSourc eEntity"
  19347            P recision " 50"
  19348            C olScale "0 "
  19349            E xtendedPre cision "0"
  19350         END  DSSUBRECOR D
  19351         BEGI N DSSUBREC ORD
  19352            N ame "svRef RowId"
  19353            E xpression  "If Trim(X frmSrc.LOO P) = '2300 ' And Xfrm Src.SEG =  'REF' And  XfrmSrc.SE G_CD = 'RE F*D9' Then  FIELD(Xfr mSrc.EDI83 7P, '*', 3 , 1) Else  svRefRowId "
  19354            S qlType "12 "
  19355            P arsedExpre ssion " If  Trim(Xfrm Src.LOOP)  = '2300' A nd XfrmSrc .SEG = 'RE F' And Xfr mSrc.SEG_C D = 'REF*D 9' Then FI ELD(XfrmSr c.EDI837P,  '*', 3, 1 ) Else svR efRowId"
  19356            S ourceColum n "XfrmSrc .LOOP;Xfrm Src.SEG;Xf rmSrc.SEG_ CD;XfrmSrc .EDI837P"
  19357            S tageVars " svRefRowId "
  19358            P recision " 20"
  19359            C olScale "0 "
  19360            E xtendedPre cision "0"
  19361         END  DSSUBRECOR D
  19362         Stag eVarsMinim ised "0"
  19363         Loop VarsMaximi sed "0"
  19364         MaxL oopIterati ons "0"
  19365      END DSR ECORD
  19366      BEGIN D SRECORD
  19367         Iden tifier "V8 1S2P2"
  19368         OLET ype "CTrxO utput"
  19369         Read only "0"
  19370         Name  "BusRls"
  19371         Part ner "V121S 0|V121S0P6 "
  19372         Cons traint "sv DiagnosisC odesAll <>  \"\" Or X frmSrc.SEG  = 'ISA' O r XfrmSrc. SEG = 'GS' "
  19373         Reje ct "0"
  19374         Erro rPin "0"
  19375         RowL imit "0"
  19376         Pars edConstrai nt "svDiag nosisCodes All <> \"\ " Or XfrmS rc.SEG = ' ISA' Or Xf rmSrc.SEG  = 'GS'"
  19377         Sour ceColumns  "XfrmSrc.S EG"
  19378         Colu mns "COutp utColumn"
  19379         BEGI N DSSUBREC ORD
  19380            N ame "claim _id"
  19381            S qlType "12 "
  19382            P recision " 20"
  19383            S cale "0"
  19384            N ullable "1 "
  19385            K eyPosition  "0"
  19386            D isplaySize  "0"
  19387            D erivation  "svClaimId "
  19388            G roup "0"
  19389            P arsedDeriv ation "svC laimId"
  19390            S ortKey "0"
  19391            S ortType "0 "
  19392            A llowCRLF " 0"
  19393            L evelNo "0"
  19394            O ccurs "0"
  19395            P adNulls "0 "
  19396            S ignOption  "0"
  19397            S ortingOrde r "0"
  19398            S tageVars " svClaimId"
  19399            A rrayHandli ng "0"
  19400            S yncIndicat or "0"
  19401            P adChar ""
  19402            E xtendedPre cision "0"
  19403            T aggedSubre c "0"
  19404            O ccursVaryi ng "0"
  19405            P KeyIsCasel ess "0"
  19406            S CDPurpose  "0"
  19407         END  DSSUBRECOR D
  19408         BEGI N DSSUBREC ORD
  19409            N ame "diagn oses_code_ all"
  19410            D escription  =+=+=+=
  19411   <none>
  19412   Searchable ? N 
  19413   =+=+=+=
  19414            S qlType "12 "
  19415            P recision " 200"
  19416            S cale "0"
  19417            N ullable "1 "
  19418            K eyPosition  "0"
  19419            D isplaySize  "11"
  19420            D erivation  "svDiagnos isCodesAll "
  19421            G roup "0"
  19422            P arsedDeriv ation "svD iagnosisCo desAll"
  19423            S ortKey "0"
  19424            S ortType "0 "
  19425            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  19426            A llowCRLF " 0"
  19427            L evelNo "0"
  19428            O ccurs "0"
  19429            P adNulls "0 "
  19430            S ignOption  "0"
  19431            S ortingOrde r "0"
  19432            S tageVars " svDiagnosi sCodesAll"
  19433            A rrayHandli ng "0"
  19434            S yncIndicat or "0"
  19435            P adChar ""
  19436            C olumnRefer ence "DIAG NOSIS_key"
  19437            A PTFieldPro p "quote=n one, null_ field=''"
  19438            E xtendedPre cision "0"
  19439            T aggedSubre c "0"
  19440            O ccursVaryi ng "0"
  19441            P KeyIsCasel ess "0"
  19442            S CDPurpose  "0"
  19443         END  DSSUBRECOR D
  19444         BEGI N DSSUBREC ORD
  19445            N ame "ICDVe rsion"
  19446            S qlType "12 "
  19447            P recision " 15"
  19448            S cale "0"
  19449            N ullable "1 "
  19450            K eyPosition  "0"
  19451            D isplaySize  "0"
  19452            D erivation  "svICDVers ion"
  19453            G roup "0"
  19454            P arsedDeriv ation "svI CDVersion"
  19455            S ortKey "0"
  19456            S ortType "0 "
  19457            A llowCRLF " 0"
  19458            L evelNo "0"
  19459            O ccurs "0"
  19460            P adNulls "0 "
  19461            S ignOption  "0"
  19462            S ortingOrde r "0"
  19463            S tageVars " svICDVersi on"
  19464            A rrayHandli ng "0"
  19465            S yncIndicat or "0"
  19466            P adChar ""
  19467            E xtendedPre cision "0"
  19468            T aggedSubre c "0"
  19469            O ccursVaryi ng "0"
  19470            P KeyIsCasel ess "0"
  19471            S CDPurpose  "0"
  19472         END  DSSUBRECOR D
  19473         BEGI N DSSUBREC ORD
  19474            N ame "start _date"
  19475            D escription  =+=+=+=
  19476   <none>
  19477   Searchable ? N 
  19478   =+=+=+=
  19479            S qlType "9"
  19480            P recision " 10"
  19481            S cale "0"
  19482            N ullable "1 "
  19483            K eyPosition  "0"
  19484            D isplaySize  "10"
  19485            D erivation  "DSJobStar tDate"
  19486            G roup "0"
  19487            P arsedDeriv ation "DSJ obStartDat e"
  19488            S ortKey "0"
  19489            S ortType "0 "
  19490            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  19491            A llowCRLF " 0"
  19492            L evelNo "0"
  19493            O ccurs "0"
  19494            P adNulls "0 "
  19495            S ignOption  "0"
  19496            S ortingOrde r "0"
  19497            A rrayHandli ng "0"
  19498            S yncIndicat or "0"
  19499            P adChar ""
  19500            C olumnRefer ence "star t_date"
  19501            A PTFieldPro p "null_fi eld=''"
  19502            E xtendedPre cision "0"
  19503            T aggedSubre c "0"
  19504            O ccursVaryi ng "0"
  19505            P KeyIsCasel ess "0"
  19506            S CDPurpose  "0"
  19507         END  DSSUBRECOR D
  19508         BEGI N DSSUBREC ORD
  19509            N ame "is_cu rrent"
  19510            S qlType "1"
  19511            P recision " 1"
  19512            S cale "0"
  19513            N ullable "0 "
  19514            K eyPosition  "0"
  19515            D isplaySize  "0"
  19516            D erivation  "'Y'"
  19517            G roup "0"
  19518            P arsedDeriv ation "'Y' "
  19519            S ortKey "0"
  19520            S ortType "0 "
  19521            A llowCRLF " 0"
  19522            L evelNo "0"
  19523            O ccurs "0"
  19524            P adNulls "0 "
  19525            S ignOption  "0"
  19526            S ortingOrde r "0"
  19527            A rrayHandli ng "0"
  19528            S yncIndicat or "0"
  19529            P adChar ""
  19530            E xtendedPre cision "0"
  19531            T aggedSubre c "0"
  19532            O ccursVaryi ng "0"
  19533            P KeyIsCasel ess "0"
  19534            S CDPurpose  "0"
  19535         END  DSSUBRECOR D
  19536         BEGI N DSSUBREC ORD
  19537            N ame "sourc e_system"
  19538            D escription  =+=+=+=
  19539   <none>
  19540   Searchable ? N 
  19541   =+=+=+=
  19542            S qlType "12 "
  19543            P recision " 20"
  19544            S cale "0"
  19545            N ullable "1 "
  19546            K eyPosition  "0"
  19547            D isplaySize  "20"
  19548            D erivation  "'837P'"
  19549            G roup "0"
  19550            P arsedDeriv ation "'83 7P'"
  19551            S ortKey "0"
  19552            S ortType "0 "
  19553            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  19554            A llowCRLF " 0"
  19555            L evelNo "0"
  19556            O ccurs "0"
  19557            P adNulls "0 "
  19558            S ignOption  "0"
  19559            S ortingOrde r "0"
  19560            A rrayHandli ng "0"
  19561            S yncIndicat or "0"
  19562            P adChar ""
  19563            C olumnRefer ence "sour ce_system"
  19564            A PTFieldPro p "null_fi eld=''"
  19565            E xtendedPre cision "0"
  19566            T aggedSubre c "0"
  19567            O ccursVaryi ng "0"
  19568            P KeyIsCasel ess "0"
  19569            S CDPurpose  "0"
  19570         END  DSSUBRECOR D
  19571         BEGI N DSSUBREC ORD
  19572            N ame "sourc e_entity"
  19573            D escription  =+=+=+=
  19574   <none>
  19575   Searchable ? N 
  19576   =+=+=+=
  19577            S qlType "12 "
  19578            P recision " 50"
  19579            S cale "0"
  19580            N ullable "1 "
  19581            K eyPosition  "0"
  19582            D isplaySize  "50"
  19583            D erivation  "svRefSour ceEntity"
  19584            G roup "0"
  19585            P arsedDeriv ation "svR efSourceEn tity"
  19586            S ortKey "0"
  19587            S ortType "0 "
  19588            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  19589            A llowCRLF " 0"
  19590            L evelNo "0"
  19591            O ccurs "0"
  19592            P adNulls "0 "
  19593            S ignOption  "0"
  19594            S ortingOrde r "0"
  19595            S tageVars " svRefSourc eEntity"
  19596            A rrayHandli ng "0"
  19597            S yncIndicat or "0"
  19598            P adChar ""
  19599            C olumnRefer ence "sour ce_entity"
  19600            A PTFieldPro p "null_fi eld=''"
  19601            E xtendedPre cision "0"
  19602            T aggedSubre c "0"
  19603            O ccursVaryi ng "0"
  19604            P KeyIsCasel ess "0"
  19605            S CDPurpose  "0"
  19606         END  DSSUBRECOR D
  19607         BEGI N DSSUBREC ORD
  19608            N ame "row_i d"
  19609            D escription  =+=+=+=
  19610   <none>
  19611   Searchable ? N 
  19612   =+=+=+=
  19613            S qlType "12 "
  19614            P recision " 20"
  19615            S cale "0"
  19616            N ullable "1 "
  19617            K eyPosition  "0"
  19618            D isplaySize  "20"
  19619            D erivation  "svRefRowI d"
  19620            G roup "0"
  19621            P arsedDeriv ation "svR efRowId"
  19622            S ortKey "0"
  19623            S ortType "0 "
  19624            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  19625            A llowCRLF " 0"
  19626            L evelNo "0"
  19627            O ccurs "0"
  19628            P adNulls "0 "
  19629            S ignOption  "0"
  19630            S ortingOrde r "0"
  19631            S tageVars " svRefRowId "
  19632            A rrayHandli ng "0"
  19633            S yncIndicat or "0"
  19634            P adChar ""
  19635            C olumnRefer ence "row_ id"
  19636            A PTFieldPro p "null_fi eld=''"
  19637            E xtendedPre cision "0"
  19638            T aggedSubre c "0"
  19639            O ccursVaryi ng "0"
  19640            P KeyIsCasel ess "0"
  19641            S CDPurpose  "0"
  19642         END  DSSUBRECOR D
  19643         BEGI N DSSUBREC ORD
  19644            N ame "claim _key_pr"
  19645            D escription  =+=+=+=
  19646   <none>
  19647   Searchable ? N 
  19648   =+=+=+=
  19649            S qlType "4"
  19650            P recision " 10"
  19651            S cale "0"
  19652            N ullable "1 "
  19653            K eyPosition  "0"
  19654            D isplaySize  "11"
  19655            D erivation  "SetNull() "
  19656            G roup "0"
  19657            P arsedDeriv ation "Set Null()"
  19658            S ortKey "0"
  19659            S ortType "0 "
  19660            T ableDef "O DBC\\VAPIT DB0\\PITED R_ETL.dbo. CLAIM_DIAG NOSIS"
  19661            A llowCRLF " 0"
  19662            L evelNo "0"
  19663            O ccurs "0"
  19664            P adNulls "0 "
  19665            S ignOption  "0"
  19666            S ortingOrde r "0"
  19667            A rrayHandli ng "0"
  19668            S yncIndicat or "0"
  19669            P adChar ""
  19670            C olumnRefer ence "clai m_key_pr"
  19671            A PTFieldPro p "quote=n one, null_ field=''"
  19672            E xtendedPre cision "0"
  19673            T aggedSubre c "0"
  19674            O ccursVaryi ng "0"
  19675            P KeyIsCasel ess "0"
  19676            S CDPurpose  "0"
  19677         END  DSSUBRECOR D
  19678         Meta Bag "CMeta Property"
  19679         BEGI N DSSUBREC ORD
  19680            O wner "APT"
  19681            N ame "DiskW riteInc"
  19682            V alue "1048 576"
  19683         END  DSSUBRECOR D
  19684         BEGI N DSSUBREC ORD
  19685            O wner "APT"
  19686            N ame "BufFr eeRun"
  19687            V alue "50"
  19688         END  DSSUBRECOR D
  19689         BEGI N DSSUBREC ORD
  19690            O wner "APT"
  19691            N ame "MaxMe mBufSize"
  19692            V alue "3145 728"
  19693         END  DSSUBRECOR D
  19694         BEGI N DSSUBREC ORD
  19695            O wner "APT"
  19696            N ame "Queue UpperSize"
  19697            V alue "0"
  19698         END  DSSUBRECOR D
  19699         BEGI N DSSUBREC ORD
  19700            O wner "APT"
  19701            N ame "Schem a"
  19702            V alue =+=+= +=
  19703   record
  19704   (
  19705     claim_id :nullable  string[max =20];
  19706     diagnose s_code_all :nullable  string[max =200];
  19707     ICDVersi on:nullabl e string[m ax=15];
  19708     start_da te:nullabl e date;
  19709     is_curre nt:string[ 1];
  19710     source_s ystem:null able strin g[max=20];
  19711     source_e ntity:null able strin g[max=50];
  19712     row_id:n ullable st ring[max=2 0];
  19713     claim_ke y_pr:nulla ble int32;
  19714   )
  19715   =+=+=+=
  19716         END  DSSUBRECOR D
  19717         BEGI N DSSUBREC ORD
  19718            O wner "APT"
  19719            N ame "SortO rderPreser ved"
  19720            V alue "1"
  19721         END  DSSUBRECOR D
  19722         Stag eVars "svD iagnosisCo desAll"
  19723         Left TextPos "4 22"
  19724         TopT extPos "28 6"
  19725         Link Minimised  "0"
  19726      END DSR ECORD
  19727      BEGIN D SRECORD
  19728         Iden tifier "V8 1S2P3"
  19729         OLET ype "CTrxI nput"
  19730         Read only "0"
  19731         Name  "XfrmSrc"
  19732         Part ner "V130S 0|V130S0P2 "
  19733         Link Type "1"
  19734         Meta Bag "CMeta Property"
  19735         BEGI N DSSUBREC ORD
  19736            O wner "APT"
  19737            N ame "RTCol umnProp"
  19738            V alue "0"
  19739         END  DSSUBRECOR D
  19740         BEGI N DSSUBREC ORD
  19741            O wner "APT"
  19742            N ame "Schem a"
  19743            V alue =+=+= +=
  19744   record
  19745   (
  19746     ROW_NUM: string[max =8];
  19747     ST_NUM:n ullable st ring[max=9 ];
  19748     LOOP:nul lable stri ng[max=10] ;
  19749     SEG:stri ng[max=5];
  19750     SEG_CD:s tring[max= 20];
  19751     EDI837P: string[max =2000];
  19752     ETL_BATC H_ID:strin g[max=20];
  19753   )
  19754   =+=+=+=
  19755         END  DSSUBRECOR D
  19756         BEGI N DSSUBREC ORD
  19757            O wner "APT"
  19758            N ame "Part/ Col"
  19759            V alue "same "
  19760         END  DSSUBRECOR D
  19761         BEGI N DSSUBREC ORD
  19762            O wner "APT"
  19763            N ame "SortA dv"
  19764            V alue "-non Stable"
  19765         END  DSSUBRECOR D
  19766         BEGI N DSSUBREC ORD
  19767            O wner "APT"
  19768            N ame "SeqSo rt"
  19769            V alue "0"
  19770         END  DSSUBRECOR D
  19771         Mult iRow "0"
  19772         Link Minimised  "0"
  19773      END DSR ECORD
  19774   END DSJOB
  19775   BEGIN DSJO B
  19776      Identif ier "EDI83 7P_sq4_Pre pLoadExten sionTables "
  19777      DateMod ified "201 8-02-26"
  19778      TimeMod ified "16. 52.49"
  19779      BEGIN D SRECORD
  19780         Iden tifier "RO OT"
  19781         OLET ype "CJobD efn"
  19782         Read only "0"
  19783         Name  "EDI837P_ sq4_PrepLo adExtensio nTables"
  19784         Next ID "1"
  19785         Cont ainer "V0"
  19786         JobV ersion "56 .0.0"
  19787         JobC ontrolCode  =+=+=+=
  19788   * Tokens w ere replac ed below a s follows:
  19789   * IdV0S0%% Result2%%0  <= PrepF_ Prof_Medic al_Claim_D etails.$Us erStatus
  19790   * IdV0S0%% Result1%%1  <= PrepF_ Prof_Medic al_Claim_D etails.$Jo bStatus
  19791   * IdV0S0%% Name%%2 <=  PrepF_Pro f_Medical_ Claim_Deta ils.$JobNa me
  19792   * IdV0S3%% Result2%%3  <= LoadF_ Prof_Medic al_Claim_D etails.$Us erStatus
  19793   * IdV0S3%% Result1%%4  <= LoadF_ Prof_Medic al_Claim_D etails.$Jo bStatus
  19794   * IdV0S3%% Name%%5 <=  LoadF_Pro f_Medical_ Claim_Deta ils.$JobNa me
  19795   * IdV0S4%% Result2%%6  <= PrepCL AIM_LINE_D IAGNOSIS.$ UserStatus
  19796   * IdV0S4%% Result1%%7  <= PrepCL AIM_LINE_D IAGNOSIS.$ JobStatus
  19797   * IdV0S4%% Name%%8 <=  PrepCLAIM _LINE_DIAG NOSIS.$Job Name
  19798   * IdV0S5%% Result2%%9  <= LoadCL AIM_LINE_D IAGNOSIS.$ UserStatus
  19799   * IdV0S5%% Result1%%1 0 <= LoadC LAIM_LINE_ DIAGNOSIS. $JobStatus
  19800   * IdV0S5%% Name%%11 < = LoadCLAI M_LINE_DIA GNOSIS.$Jo bName
  19801   * IdV0S8%% Result2%%1 2 <= PrepC LAIM_LINE_ MODIFIER.$ UserStatus
  19802   * IdV0S8%% Result1%%1 3 <= PrepC LAIM_LINE_ MODIFIER.$ JobStatus
  19803   * IdV0S8%% Name%%14 < = PrepCLAI M_LINE_MOD IFIER.$Job Name
  19804   * IdV0S9%% Result2%%1 5 <= LoadC LAIM_LINE_ MODIFIER.$ UserStatus
  19805   * IdV0S9%% Result1%%1 6 <= LoadC LAIM_LINE_ MODIFIER.$ JobStatus
  19806   * IdV0S9%% Name%%17 < = LoadCLAI M_LINE_MOD IFIER.$Job Name
  19807   * IdV0S12% %Result2%% 18 <= Prep CLAIM_LINE _DME.$User Status
  19808   * IdV0S12% %Result1%% 19 <= Prep CLAIM_LINE _DME.$JobS tatus
  19809   * IdV0S12% %Name%%20  <= PrepCLA IM_LINE_DM E.$JobName
  19810   * IdV0S13% %Result2%% 21 <= Load CLAIM_LINE _DME.$User Status
  19811   * IdV0S13% %Result1%% 22 <= Load CLAIM_LINE _DME.$JobS tatus
  19812   * IdV0S13% %Name%%23  <= LoadCLA IM_LINE_DM E.$JobName
  19813   * IdV0S16% %Result2%% 24 <= Prep _CLAIM_LIN E_SUPP_DOC .$UserStat us
  19814   * IdV0S16% %Result1%% 25 <= Prep _CLAIM_LIN E_SUPP_DOC .$JobStatu s
  19815   * IdV0S16% %Name%%26  <= Prep_CL AIM_LINE_S UPP_DOC.$J obName
  19816   * IdV0S17% %Result2%% 27 <= Load _CLAIM_LIN E_SUPP_DOC .$UserStat us
  19817   * IdV0S17% %Result1%% 28 <= Load _CLAIM_LIN E_SUPP_DOC .$JobStatu s
  19818   * IdV0S17% %Name%%29  <= Load_CL AIM_LINE_S UPP_DOC.$J obName
  19819   * IdV0S20% %Result2%% 30 <= Prep CLAIM_LINE _DRUG.$Use rStatus
  19820   * IdV0S20% %Result1%% 31 <= Prep CLAIM_LINE _DRUG.$Job Status
  19821   * IdV0S20% %Name%%32  <= PrepCLA IM_LINE_DR UG.$JobNam e
  19822   * IdV0S21% %Result2%% 33 <= Load CLAIM_LINE _DRUG.$Use rStatus
  19823   * IdV0S21% %Result1%% 34 <= Load CLAIM_LINE _DRUG.$Job Status
  19824   * IdV0S21% %Name%%35  <= LoadCLA IM_LINE_DR UG.$JobNam e
  19825   * IdV0S24% %Result2%% 36 <= Prep CLAIM_LINE _MED_TEST. $UserStatu s
  19826   * IdV0S24% %Result1%% 37 <= Prep CLAIM_LINE _MED_TEST. $JobStatus
  19827   * IdV0S24% %Name%%38  <= PrepCLA IM_LINE_ME D_TEST.$Jo bName
  19828   * IdV0S25% %Result2%% 39 <= Load CLAIM_LINE _MED_TEST. $UserStatu s
  19829   * IdV0S25% %Result1%% 40 <= Load CLAIM_LINE _MED_TEST. $JobStatus
  19830   * IdV0S25% %Name%%41  <= LoadCLA IM_LINE_ME D_TEST.$Jo bName
  19831   * IdV0S30% %Result2%% 42 <= Prep CLAIM_LINE _ATTACHMEN T.$UserSta tus
  19832   * IdV0S30% %Result1%% 43 <= Prep CLAIM_LINE _ATTACHMEN T.$JobStat us
  19833   * IdV0S30% %Name%%44  <= PrepCLA IM_LINE_AT TACHMENT.$ JobName
  19834   * IdV0S31% %Result2%% 45 <= Load CLAIM_LINE _ATTACHMEN T.$UserSta tus
  19835   * IdV0S31% %Result1%% 46 <= Load CLAIM_LINE _ATTACHMEN T.$JobStat us
  19836   * IdV0S31% %Name%%47  <= LoadCLA IM_LINE_AT TACHMENT.$ JobName
  19837   * IdV0S34% %Result2%% 48 <= Prep CLAIM_COND ITION_CODE .$UserStat us
  19838   * IdV0S34% %Result1%% 49 <= Prep CLAIM_COND ITION_CODE .$JobStatu s
  19839   * IdV0S34% %Name%%50  <= PrepCLA IM_CONDITI ON_CODE.$J obName
  19840   * IdV0S35% %Result2%% 51 <= Load CLAIM_COND ITION_CODE .$UserStat us
  19841   * IdV0S35% %Result1%% 52 <= Load CLAIM_COND ITION_CODE .$JobStatu s
  19842   * IdV0S35% %Name%%53  <= LoadCLA IM_CONDITI ON_CODE.$J obName
  19843   *
  19844   *** [Gener ated at 20 18-02-26 1 6:52:47 -  11.5.0.0]
  19845      $INCLUD E DSINCLUD E DSJ_XFUN CS.H
  19846      EQU Tim e$$ Lit "O conv(Time( ), 'MTS:') :': '"
  19847   ********** ********** ********** **********
  19848   * Graphica l Sequence r generate d code for  Job EDI83 7P_sq4_Pre pLoadExten sionTables
  19849   ********** ********** ********** **********
  19850      
  19851      handle$ list = ""
  19852      id$list  = ""
  19853      abort$l ist = ""
  19854      b$Aband oning = @F alse
  19855      b$CPRes tarted = @ False
  19856      b$InErr orRef = @F alse
  19857      summary $restartin g = @False
  19858   *** Create  new check point for  sequence i f not rest arting
  19859      If DSCh eckPointEx ists(DSJ.M E, cp$dtm)  Then GoTo  L$RESTART
  19860      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0015\\St arting new  run of ch eckpointed  Sequence  job", ""),  "@Coordin ator")
  19861      If (Not (DSCheckPo intValidat e(DSJ.ME,  cp$msg)))  Then
  19862         err$ source = " @Coordinat or"; err$n umber = -1
  19863         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 6\\Error c reating ch eckpoint r ecord<L>%1 ", cp$msg)
  19864         msg$ id = "@Coo rdinator";  GoTo L$ER ROR
  19865      End
  19866      GoTo L$ MAINSTART
  19867   L$RESTART:
  19868   *** Valida te restart ed job mat ches prior  state
  19869      summary $restartin g = @True
  19870      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0017\\Se quence job  is being  restarted  after fail ure<L>Chec kpoint rec ord last m odified at  %1", cp$d tm), "@Coo rdinator")
  19871      b$CPRes tarted = @ True
  19872      If Not( DSCheckPoi ntValidate (DSJ.ME, c p$msg)) Th en
  19873         Call  DSLogWarn (cp$msg, " @Coordinat or")
  19874      End
  19875   L$MAINSTAR T:
  19876   *** Sequen ce start p oint
  19877      summary $ = DSMake Msg("DSTAG E_JSG_M_00 48\\Summar y of seque nce run",  "")
  19878      If summ ary$restar ting Then
  19879         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0049\\Se quence res tarted aft er failure ", ""))
  19880      End Els e
  19881         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0050\\Se quence sta rted (chec kpointing  on)", ""))
  19882      End
  19883      GoTo L$ V0S0$START
  19884   L$RETURN$1 :
  19885      GoTo L$ WAITFORJOB
  19886   ********** ********** ********** ********** **********
  19887   L$V0S0$STA RT:
  19888   *** Activi ty "PrepF_ Prof_Medic al_Claim_D etails": I nitialize  job
  19889      h$V0S0  = DSAttach Job("EDI83 7P_F_PROFE SSIONAL_CL AIMS_prep" , DSJ.ERRN ONE)
  19890      If (Not (h$V0S0))  Then
  19891         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19892         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_F _PROFESSIO NAL_CLAIMS _prep":@FM :DSGetLast ErrorMsg() )
  19893         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19894      End
  19895      If DSGe tJobInfo(h $V0S0, DSJ .JOBMULTII NVOKABLE)  Then
  19896         jb$V 0S0 = "EDI 837P_F_PRO FESSIONAL_ CLAIMS_pre p":'.':"Pr epF_Prof_M edical_Cla im_Details "
  19897      End Els e
  19898         jb$V 0S0 = "EDI 837P_F_PRO FESSIONAL_ CLAIMS_pre p"
  19899      End
  19900      dummy$  = DSDetach Job(h$V0S0 )
  19901      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epF_Prof_M edical_Cla im_Details ":@FM:jb$V 0S0))
  19902      h$V0S0  = DSAttach Job(jb$V0S 0, DSJ.ERR NONE)
  19903      If (Not (h$V0S0))  Then
  19904         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19905         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S0:@F M:DSGetLas tErrorMsg( ))
  19906         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19907      End
  19908      h$V0S0  = DSPrepar eJob(h$V0S 0)
  19909      If (Not (h$V0S0))  Then
  19910         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19911         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S0:@ FM:DSGetLa stErrorMsg ())
  19912         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19913      End
  19914   L$V0S0$PRE PARED:
  19915      p$V0S0$ 1 = ($PROJ _DATA_AUDL OGS)
  19916      err$cod e = DSSetP aram(h$V0S 0, "$PROJ_ DATA_AUDLO GS", p$V0S 0$1)
  19917      If (err $code <> D SJE.NOERRO R) Then
  19918         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19919         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_AU DLOGS":@FM :err$code)
  19920         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19921      End
  19922      p$V0S0$ 2 = ($PROJ _DATA_SFIL E)
  19923      err$cod e = DSSetP aram(h$V0S 0, "$PROJ_ DATA_SFILE ", p$V0S0$ 2)
  19924      If (err $code <> D SJE.NOERRO R) Then
  19925         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19926         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  19927         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19928      End
  19929      p$V0S0$ 3 = ($SQL_ DB_DSN)
  19930      err$cod e = DSSetP aram(h$V0S 0, "$SQL_D B_DSN", p$ V0S0$3)
  19931      If (err $code <> D SJE.NOERRO R) Then
  19932         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19933         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  19934         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19935      End
  19936      p$V0S0$ 4 = ($SQL_ DB_UID)
  19937      err$cod e = DSSetP aram(h$V0S 0, "$SQL_D B_UID", p$ V0S0$4)
  19938      If (err $code <> D SJE.NOERRO R) Then
  19939         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19940         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  19941         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19942      End
  19943      p$V0S0$ 5 = ($SQL_ DB_PWD)
  19944      err$cod e = DSSetP aram(h$V0S 0, "$SQL_D B_PWD", p$ V0S0$5)
  19945      If (err $code <> D SJE.NOERRO R) Then
  19946         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19947         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  19948         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19949      End
  19950      p$V0S0$ 6 = ($PROJ _DATA_DS)
  19951      err$cod e = DSSetP aram(h$V0S 0, "$PROJ_ DATA_DS",  p$V0S0$6)
  19952      If (err $code <> D SJE.NOERRO R) Then
  19953         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19954         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  19955         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19956      End
  19957      p$V0S0$ 7 = (Batch ID)
  19958      err$cod e = DSSetP aram(h$V0S 0, "BatchI D", p$V0S0 $7)
  19959      If (err $code <> D SJE.NOERRO R) Then
  19960         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19961         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  19962         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19963      End
  19964      p$V0S0$ 8 = (Batch ClaimType)
  19965      err$cod e = DSSetP aram(h$V0S 0, "BatchC laimType",  p$V0S0$8)
  19966      If (err $code <> D SJE.NOERRO R) Then
  19967         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19968         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  19969         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19970      End
  19971      p$V0S0$ 9 = ($SQL_ DB)
  19972      err$cod e = DSSetP aram(h$V0S 0, "$SQL_D B", p$V0S0 $9)
  19973      If (err $code <> D SJE.NOERRO R) Then
  19974         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19975         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  19976         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19977      End
  19978      err$cod e = DSRunJ ob(h$V0S0,  DSJ.RUNNO RMAL)
  19979      If (err $code <> D SJE.NOERRO R) Then
  19980         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  19981         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 0:@FM:err$ code)
  19982         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  19983      End
  19984      handle$ list<-1> =  h$V0S0
  19985      id$list <-1> = "V0 S0"
  19986      GoTo L$ RETURN$1
  19987   ********** ********** ********** ********** **********
  19988   L$V0S0$FIN ISHED:
  19989      job$V0S 0$status =  DSGetJobI nfo(h$V0S0 , DSJ.JOBS TATUS)
  19990      job$V0S 0$userstat us = DSGet JobInfo(h$ V0S0, DSJ. USERSTATUS )
  19991      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepF_P rof_Medica l_Claim_De tails":@FM :jb$V0S0:@ FM:job$V0S 0$status))
  19992      IdV0S0% %Result2%% 0 = job$V0 S0$usersta tus
  19993      IdV0S0% %Result1%% 1 = job$V0 S0$status
  19994      IdV0S0% %Name%%2 =  jb$V0S0
  19995      dummy$  = DSDetach Job(h$V0S0 )
  19996      If (job $V0S0$stat us <> DSJS .RUNOK And  job$V0S0$ status <>  DSJS.RUNWA RN And Not (b$Abandon ing)) Then
  19997         err$ source = " PrepF_Prof _Medical_C laim_Detai ls"; err$n umber = 1
  19998         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S0 )
  19999         msg$ id = "@Pre pF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20000      End
  20001      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0038\\Om itted chec kpoint for  run of jo b '%1'", j b$V0S0), " @PrepF_Pro f_Medical_ Claim_Deta ils")
  20002      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20003      If (IdV 0S0%%Resul t1%%1 <3)  Then GoTo  L$V0S3$STA RT
  20004   L$V0S0$RET URN$1:
  20005      GoTo L$ WAITFORJOB
  20006   ********** ********** ********** ********** **********
  20007   L$V0S3$STA RT:
  20008   *** Activi ty "LoadF_ Prof_Medic al_Claim_D etails": I nitialize  job
  20009      b$InErr orRef$V0S3  = b$InErr orRef
  20010      h$V0S3  = DSAttach Job("EDI83 7P_F_PROFE SSIONAL_CL AIMS_load" , DSJ.ERRN ONE)
  20011      If (Not (h$V0S3))  Then
  20012         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20013         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_F _PROFESSIO NAL_CLAIMS _load":@FM :DSGetLast ErrorMsg() )
  20014         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20015      End
  20016      If DSGe tJobInfo(h $V0S3, DSJ .JOBMULTII NVOKABLE)  Then
  20017         jb$V 0S3 = "EDI 837P_F_PRO FESSIONAL_ CLAIMS_loa d":'.':"Lo adF_Prof_M edical_Cla im_Details "
  20018      End Els e
  20019         jb$V 0S3 = "EDI 837P_F_PRO FESSIONAL_ CLAIMS_loa d"
  20020      End
  20021      dummy$  = DSDetach Job(h$V0S3 )
  20022      b$V0S3s kipping =  @False
  20023      h$V0S3$ cp = "h$V0 S3"
  20024      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 3$cp, cp$v alue) = DS JE.NOERROR  Then
  20025         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S3), "@ LoadF_Prof _Medical_C laim_Detai ls")
  20026         job$ V0S3$statu s = Raise( cp$value<1 >)
  20027         job$ V0S3$users tatus = Ra ise(cp$val ue<2>)
  20028         IdV0 S3%%Result 2%%3 = job $V0S3$user status
  20029         IdV0 S3%%Result 1%%4 = job $V0S3$stat us
  20030         IdV0 S3%%Name%% 5 = jb$V0S 3
  20031         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadF_Pro f_Medical_ Claim_Deta ils":@FM:j b$V0S3))
  20032         b$V0 S3skipping  = @True
  20033         Goto  L$V0S3$SK IPPED
  20034      End
  20035      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adF_Prof_M edical_Cla im_Details ":@FM:jb$V 0S3))
  20036      h$V0S3  = DSAttach Job(jb$V0S 3, DSJ.ERR NONE)
  20037      If (Not (h$V0S3))  Then
  20038         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20039         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S3:@F M:DSGetLas tErrorMsg( ))
  20040         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20041      End
  20042      h$V0S3  = DSPrepar eJob(h$V0S 3)
  20043      If (Not (h$V0S3))  Then
  20044         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20045         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S3:@ FM:DSGetLa stErrorMsg ())
  20046         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20047      End
  20048   L$V0S3$PRE PARED:
  20049      p$V0S3$ 1 = ($SQL_ DB_UID)
  20050      err$cod e = DSSetP aram(h$V0S 3, "$SQL_D B_UID", p$ V0S3$1)
  20051      If (err $code <> D SJE.NOERRO R) Then
  20052         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20053         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  20054         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20055      End
  20056      p$V0S3$ 2 = ($SQL_ DB_PWD)
  20057      err$cod e = DSSetP aram(h$V0S 3, "$SQL_D B_PWD", p$ V0S3$2)
  20058      If (err $code <> D SJE.NOERRO R) Then
  20059         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20060         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  20061         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20062      End
  20063      p$V0S3$ 3 = ($PROJ _DATA_DS)
  20064      err$cod e = DSSetP aram(h$V0S 3, "$PROJ_ DATA_DS",  p$V0S3$3)
  20065      If (err $code <> D SJE.NOERRO R) Then
  20066         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20067         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  20068         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20069      End
  20070      p$V0S3$ 4 = (Batch ClaimType)
  20071      err$cod e = DSSetP aram(h$V0S 3, "BatchC laimType",  p$V0S3$4)
  20072      If (err $code <> D SJE.NOERRO R) Then
  20073         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20074         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20075         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20076      End
  20077      p$V0S3$ 5 = ($SQL_ DB)
  20078      err$cod e = DSSetP aram(h$V0S 3, "$SQL_D B", p$V0S3 $5)
  20079      If (err $code <> D SJE.NOERRO R) Then
  20080         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20081         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  20082         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20083      End
  20084      p$V0S3$ 6 = ($SQL_ DB_DSN)
  20085      err$cod e = DSSetP aram(h$V0S 3, "$SQL_D B_DSN", p$ V0S3$6)
  20086      If (err $code <> D SJE.NOERRO R) Then
  20087         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20088         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  20089         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20090      End
  20091      err$cod e = DSRunJ ob(h$V0S3,  DSJ.RUNNO RMAL)
  20092      If (err $code <> D SJE.NOERRO R) Then
  20093         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = -1
  20094         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 3:@FM:err$ code)
  20095         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20096      End
  20097      handle$ list<-1> =  h$V0S3
  20098      id$list <-1> = "V0 S3"
  20099      GoTo L$ V0S0$RETUR N$1
  20100   ********** ********** ********** ********** **********
  20101   L$V0S3$FIN ISHED:
  20102      job$V0S 3$status =  DSGetJobI nfo(h$V0S3 , DSJ.JOBS TATUS)
  20103      job$V0S 3$userstat us = DSGet JobInfo(h$ V0S3, DSJ. USERSTATUS )
  20104      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadF_P rof_Medica l_Claim_De tails":@FM :jb$V0S3:@ FM:job$V0S 3$status))
  20105      IdV0S3% %Result2%% 3 = job$V0 S3$usersta tus
  20106      IdV0S3% %Result1%% 4 = job$V0 S3$status
  20107      IdV0S3% %Name%%5 =  jb$V0S3
  20108      dummy$  = DSDetach Job(h$V0S3 )
  20109      If (job $V0S3$stat us <> DSJS .RUNOK And  job$V0S3$ status <>  DSJS.RUNWA RN And Not (b$Abandon ing)) Then
  20110         err$ source = " LoadF_Prof _Medical_C laim_Detai ls"; err$n umber = 1
  20111         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S3 )
  20112         msg$ id = "@Loa dF_Prof_Me dical_Clai m_Details" ; GoTo L$E RROR
  20113      End
  20114      If b$In ErrorRef$V 0S3 Or (jo b$V0S3$sta tus <> DSJ S.RUNOK An d job$V0S3 $status <>  DSJS.RUNW ARN) Then  Goto L$V0S 3$SKIPPED
  20115      cp$valu e = Lower( job$V0S3$s tatus)
  20116      cp$valu e<2> = Low er(job$V0S 3$userstat us)
  20117      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S3$cp , cp$value )
  20118      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S3), " @LoadF_Pro f_Medical_ Claim_Deta ils")
  20119   ********** ********** ********** ********** **********
  20120   L$V0S3$SKI PPED:
  20121      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20122      If (IdV 0S3%%Resul t1%%4 <3)  Then GoTo  L$V0S8$STA RT
  20123   L$V0S3$RET URN$1:
  20124      If (IdV 0S3%%Resul t1%%4 <3)  Then GoTo  L$V0S4$STA RT
  20125   L$V0S3$RET URN$2:
  20126      If b$V0 S3skipping  Then GoTo  L$V0S0$RE TURN$1
  20127      GoTo L$ WAITFORJOB
  20128   ********** ********** ********** ********** **********
  20129   L$V0S4$STA RT:
  20130   *** Activi ty "PrepCL AIM_LINE_D IAGNOSIS":  Initializ e job
  20131      b$InErr orRef$V0S4  = b$InErr orRef
  20132      h$V0S4  = DSAttach Job("EDI83 7P_CLAIM_L INE_DIAGNO SIS_prep",  DSJ.ERRNO NE)
  20133      If (Not (h$V0S4))  Then
  20134         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20135         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ DIAGNOSIS_ prep":@FM: DSGetLastE rrorMsg())
  20136         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20137      End
  20138      If DSGe tJobInfo(h $V0S4, DSJ .JOBMULTII NVOKABLE)  Then
  20139         jb$V 0S4 = "EDI 837P_CLAIM _LINE_DIAG NOSIS_prep ":'.':"Pre pCLAIM_LIN E_DIAGNOSI S"
  20140      End Els e
  20141         jb$V 0S4 = "EDI 837P_CLAIM _LINE_DIAG NOSIS_prep "
  20142      End
  20143      dummy$  = DSDetach Job(h$V0S4 )
  20144      b$V0S4s kipping =  @False
  20145      h$V0S4$ cp = "h$V0 S4"
  20146      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 4$cp, cp$v alue) = DS JE.NOERROR  Then
  20147         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S4), "@ PrepCLAIM_ LINE_DIAGN OSIS")
  20148         job$ V0S4$statu s = Raise( cp$value<1 >)
  20149         job$ V0S4$users tatus = Ra ise(cp$val ue<2>)
  20150         IdV0 S4%%Result 2%%6 = job $V0S4$user status
  20151         IdV0 S4%%Result 1%%7 = job $V0S4$stat us
  20152         IdV0 S4%%Name%% 8 = jb$V0S 4
  20153         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "PrepCLAIM _LINE_DIAG NOSIS":@FM :jb$V0S4))
  20154         b$V0 S4skipping  = @True
  20155         Goto  L$V0S4$SK IPPED
  20156      End
  20157      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epCLAIM_LI NE_DIAGNOS IS":@FM:jb $V0S4))
  20158      h$V0S4  = DSAttach Job(jb$V0S 4, DSJ.ERR NONE)
  20159      If (Not (h$V0S4))  Then
  20160         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20161         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S4:@F M:DSGetLas tErrorMsg( ))
  20162         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20163      End
  20164      h$V0S4  = DSPrepar eJob(h$V0S 4)
  20165      If (Not (h$V0S4))  Then
  20166         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20167         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S4:@ FM:DSGetLa stErrorMsg ())
  20168         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20169      End
  20170   L$V0S4$PRE PARED:
  20171      p$V0S4$ 1 = ($PROJ _DATA_SFIL E)
  20172      err$cod e = DSSetP aram(h$V0S 4, "$PROJ_ DATA_SFILE ", p$V0S4$ 1)
  20173      If (err $code <> D SJE.NOERRO R) Then
  20174         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20175         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  20176         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20177      End
  20178      p$V0S4$ 2 = ($SQL_ DB_UID)
  20179      err$cod e = DSSetP aram(h$V0S 4, "$SQL_D B_UID", p$ V0S4$2)
  20180      If (err $code <> D SJE.NOERRO R) Then
  20181         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20182         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  20183         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20184      End
  20185      p$V0S4$ 3 = ($SQL_ DB_PWD)
  20186      err$cod e = DSSetP aram(h$V0S 4, "$SQL_D B_PWD", p$ V0S4$3)
  20187      If (err $code <> D SJE.NOERRO R) Then
  20188         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20189         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  20190         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20191      End
  20192      p$V0S4$ 4 = ($PROJ _DATA_DS)
  20193      err$cod e = DSSetP aram(h$V0S 4, "$PROJ_ DATA_DS",  p$V0S4$4)
  20194      If (err $code <> D SJE.NOERRO R) Then
  20195         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20196         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  20197         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20198      End
  20199      p$V0S4$ 5 = (Batch ClaimType)
  20200      err$cod e = DSSetP aram(h$V0S 4, "BatchC laimType",  p$V0S4$5)
  20201      If (err $code <> D SJE.NOERRO R) Then
  20202         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20203         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20204         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20205      End
  20206      p$V0S4$ 6 = ($SQL_ DB)
  20207      err$cod e = DSSetP aram(h$V0S 4, "$SQL_D B", p$V0S4 $6)
  20208      If (err $code <> D SJE.NOERRO R) Then
  20209         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20210         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  20211         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20212      End
  20213      p$V0S4$ 7 = ($SQL_ DB_DSN)
  20214      err$cod e = DSSetP aram(h$V0S 4, "$SQL_D B_DSN", p$ V0S4$7)
  20215      If (err $code <> D SJE.NOERRO R) Then
  20216         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20217         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  20218         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20219      End
  20220      p$V0S4$ 8 = (Batch ID)
  20221      err$cod e = DSSetP aram(h$V0S 4, "BatchI D", p$V0S4 $8)
  20222      If (err $code <> D SJE.NOERRO R) Then
  20223         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20224         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  20225         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20226      End
  20227      err$cod e = DSRunJ ob(h$V0S4,  DSJ.RUNNO RMAL)
  20228      If (err $code <> D SJE.NOERRO R) Then
  20229         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20230         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 4:@FM:err$ code)
  20231         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20232      End
  20233      handle$ list<-1> =  h$V0S4
  20234      id$list <-1> = "V0 S4"
  20235      GoTo L$ V0S3$RETUR N$2
  20236   ********** ********** ********** ********** **********
  20237   L$V0S4$FIN ISHED:
  20238      job$V0S 4$status =  DSGetJobI nfo(h$V0S4 , DSJ.JOBS TATUS)
  20239      job$V0S 4$userstat us = DSGet JobInfo(h$ V0S4, DSJ. USERSTATUS )
  20240      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepCLA IM_LINE_DI AGNOSIS":@ FM:jb$V0S4 :@FM:job$V 0S4$status ))
  20241      IdV0S4% %Result2%% 6 = job$V0 S4$usersta tus
  20242      IdV0S4% %Result1%% 7 = job$V0 S4$status
  20243      IdV0S4% %Name%%8 =  jb$V0S4
  20244      dummy$  = DSDetach Job(h$V0S4 )
  20245      If (job $V0S4$stat us <> DSJS .RUNOK And  job$V0S4$ status <>  DSJS.RUNWA RN And Not (b$Abandon ing)) Then
  20246         err$ source = " PrepCLAIM_ LINE_DIAGN OSIS"; err $number =  1
  20247         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S4 )
  20248         msg$ id = "@Pre pCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20249      End
  20250      If b$In ErrorRef$V 0S4 Or (jo b$V0S4$sta tus <> DSJ S.RUNOK An d job$V0S4 $status <>  DSJS.RUNW ARN) Then  Goto L$V0S 4$SKIPPED
  20251      cp$valu e = Lower( job$V0S4$s tatus)
  20252      cp$valu e<2> = Low er(job$V0S 4$userstat us)
  20253      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S4$cp , cp$value )
  20254      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S4), " @PrepCLAIM _LINE_DIAG NOSIS")
  20255   ********** ********** ********** ********** **********
  20256   L$V0S4$SKI PPED:
  20257      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20258      If (IdV 0S4%%Resul t1%%7 <3)  Then GoTo  L$V0S5$STA RT
  20259   L$V0S4$RET URN$1:
  20260      If b$V0 S4skipping  Then GoTo  L$V0S3$RE TURN$2
  20261      GoTo L$ WAITFORJOB
  20262   ********** ********** ********** ********** **********
  20263   L$V0S5$STA RT:
  20264   *** Activi ty "LoadCL AIM_LINE_D IAGNOSIS":  Initializ e job
  20265      b$InErr orRef$V0S5  = b$InErr orRef
  20266      h$V0S5  = DSAttach Job("EDI83 7P_CLAIM_L INE_DIAGNO SIS_load",  DSJ.ERRNO NE)
  20267      If (Not (h$V0S5))  Then
  20268         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20269         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ DIAGNOSIS_ load":@FM: DSGetLastE rrorMsg())
  20270         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20271      End
  20272      If DSGe tJobInfo(h $V0S5, DSJ .JOBMULTII NVOKABLE)  Then
  20273         jb$V 0S5 = "EDI 837P_CLAIM _LINE_DIAG NOSIS_load ":'.':"Loa dCLAIM_LIN E_DIAGNOSI S"
  20274      End Els e
  20275         jb$V 0S5 = "EDI 837P_CLAIM _LINE_DIAG NOSIS_load "
  20276      End
  20277      dummy$  = DSDetach Job(h$V0S5 )
  20278      b$V0S5s kipping =  @False
  20279      h$V0S5$ cp = "h$V0 S5"
  20280      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 5$cp, cp$v alue) = DS JE.NOERROR  Then
  20281         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S5), "@ LoadCLAIM_ LINE_DIAGN OSIS")
  20282         job$ V0S5$statu s = Raise( cp$value<1 >)
  20283         job$ V0S5$users tatus = Ra ise(cp$val ue<2>)
  20284         IdV0 S5%%Result 2%%9 = job $V0S5$user status
  20285         IdV0 S5%%Result 1%%10 = jo b$V0S5$sta tus
  20286         IdV0 S5%%Name%% 11 = jb$V0 S5
  20287         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadCLAIM _LINE_DIAG NOSIS":@FM :jb$V0S5))
  20288         b$V0 S5skipping  = @True
  20289         Goto  L$V0S5$SK IPPED
  20290      End
  20291      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adCLAIM_LI NE_DIAGNOS IS":@FM:jb $V0S5))
  20292      h$V0S5  = DSAttach Job(jb$V0S 5, DSJ.ERR NONE)
  20293      If (Not (h$V0S5))  Then
  20294         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20295         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S5:@F M:DSGetLas tErrorMsg( ))
  20296         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20297      End
  20298      h$V0S5  = DSPrepar eJob(h$V0S 5)
  20299      If (Not (h$V0S5))  Then
  20300         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20301         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S5:@ FM:DSGetLa stErrorMsg ())
  20302         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20303      End
  20304   L$V0S5$PRE PARED:
  20305      p$V0S5$ 1 = ($SQL_ DB_UID)
  20306      err$cod e = DSSetP aram(h$V0S 5, "$SQL_D B_UID", p$ V0S5$1)
  20307      If (err $code <> D SJE.NOERRO R) Then
  20308         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20309         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  20310         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20311      End
  20312      p$V0S5$ 2 = ($SQL_ DB_PWD)
  20313      err$cod e = DSSetP aram(h$V0S 5, "$SQL_D B_PWD", p$ V0S5$2)
  20314      If (err $code <> D SJE.NOERRO R) Then
  20315         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20316         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  20317         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20318      End
  20319      p$V0S5$ 3 = ($PROJ _DATA_DS)
  20320      err$cod e = DSSetP aram(h$V0S 5, "$PROJ_ DATA_DS",  p$V0S5$3)
  20321      If (err $code <> D SJE.NOERRO R) Then
  20322         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20323         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  20324         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20325      End
  20326      p$V0S5$ 4 = (Batch ClaimType)
  20327      err$cod e = DSSetP aram(h$V0S 5, "BatchC laimType",  p$V0S5$4)
  20328      If (err $code <> D SJE.NOERRO R) Then
  20329         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20330         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20331         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20332      End
  20333      p$V0S5$ 5 = ($SQL_ DB)
  20334      err$cod e = DSSetP aram(h$V0S 5, "$SQL_D B", p$V0S5 $5)
  20335      If (err $code <> D SJE.NOERRO R) Then
  20336         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20337         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  20338         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20339      End
  20340      p$V0S5$ 6 = ($SQL_ DB_DSN)
  20341      err$cod e = DSSetP aram(h$V0S 5, "$SQL_D B_DSN", p$ V0S5$6)
  20342      If (err $code <> D SJE.NOERRO R) Then
  20343         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20344         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  20345         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20346      End
  20347      err$cod e = DSRunJ ob(h$V0S5,  DSJ.RUNNO RMAL)
  20348      If (err $code <> D SJE.NOERRO R) Then
  20349         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  -1
  20350         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 5:@FM:err$ code)
  20351         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20352      End
  20353      handle$ list<-1> =  h$V0S5
  20354      id$list <-1> = "V0 S5"
  20355      GoTo L$ V0S4$RETUR N$1
  20356   ********** ********** ********** ********** **********
  20357   L$V0S5$FIN ISHED:
  20358      job$V0S 5$status =  DSGetJobI nfo(h$V0S5 , DSJ.JOBS TATUS)
  20359      job$V0S 5$userstat us = DSGet JobInfo(h$ V0S5, DSJ. USERSTATUS )
  20360      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadCLA IM_LINE_DI AGNOSIS":@ FM:jb$V0S5 :@FM:job$V 0S5$status ))
  20361      IdV0S5% %Result2%% 9 = job$V0 S5$usersta tus
  20362      IdV0S5% %Result1%% 10 = job$V 0S5$status
  20363      IdV0S5% %Name%%11  = jb$V0S5
  20364      dummy$  = DSDetach Job(h$V0S5 )
  20365      If (job $V0S5$stat us <> DSJS .RUNOK And  job$V0S5$ status <>  DSJS.RUNWA RN And Not (b$Abandon ing)) Then
  20366         err$ source = " LoadCLAIM_ LINE_DIAGN OSIS"; err $number =  1
  20367         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S5 )
  20368         msg$ id = "@Loa dCLAIM_LIN E_DIAGNOSI S"; GoTo L $ERROR
  20369      End
  20370      If b$In ErrorRef$V 0S5 Or (jo b$V0S5$sta tus <> DSJ S.RUNOK An d job$V0S5 $status <>  DSJS.RUNW ARN) Then  Goto L$V0S 5$SKIPPED
  20371      cp$valu e = Lower( job$V0S5$s tatus)
  20372      cp$valu e<2> = Low er(job$V0S 5$userstat us)
  20373      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S5$cp , cp$value )
  20374      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S5), " @LoadCLAIM _LINE_DIAG NOSIS")
  20375   ********** ********** ********** ********** **********
  20376   L$V0S5$SKI PPED:
  20377      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20378      If (IdV 0S5%%Resul t1%%10 <3)  Then GoTo  L$V0S20$S TART
  20379   L$V0S5$RET URN$1:
  20380      If b$V0 S5skipping  Then GoTo  L$V0S4$RE TURN$1
  20381      GoTo L$ WAITFORJOB
  20382   ********** ********** ********** ********** **********
  20383   L$V0S8$STA RT:
  20384   *** Activi ty "PrepCL AIM_LINE_M ODIFIER":  Initialize  job
  20385      b$InErr orRef$V0S8  = b$InErr orRef
  20386      h$V0S8  = DSAttach Job("EDI83 7P_CLAIM_L INE_MODIFI ER_prep",  DSJ.ERRNON E)
  20387      If (Not (h$V0S8))  Then
  20388         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20389         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ MODIFIER_p rep":@FM:D SGetLastEr rorMsg())
  20390         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20391      End
  20392      If DSGe tJobInfo(h $V0S8, DSJ .JOBMULTII NVOKABLE)  Then
  20393         jb$V 0S8 = "EDI 837P_CLAIM _LINE_MODI FIER_prep" :'.':"Prep CLAIM_LINE _MODIFIER"
  20394      End Els e
  20395         jb$V 0S8 = "EDI 837P_CLAIM _LINE_MODI FIER_prep"
  20396      End
  20397      dummy$  = DSDetach Job(h$V0S8 )
  20398      b$V0S8s kipping =  @False
  20399      h$V0S8$ cp = "h$V0 S8"
  20400      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 8$cp, cp$v alue) = DS JE.NOERROR  Then
  20401         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S8), "@ PrepCLAIM_ LINE_MODIF IER")
  20402         job$ V0S8$statu s = Raise( cp$value<1 >)
  20403         job$ V0S8$users tatus = Ra ise(cp$val ue<2>)
  20404         IdV0 S8%%Result 2%%12 = jo b$V0S8$use rstatus
  20405         IdV0 S8%%Result 1%%13 = jo b$V0S8$sta tus
  20406         IdV0 S8%%Name%% 14 = jb$V0 S8
  20407         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "PrepCLAIM _LINE_MODI FIER":@FM: jb$V0S8))
  20408         b$V0 S8skipping  = @True
  20409         Goto  L$V0S8$SK IPPED
  20410      End
  20411      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epCLAIM_LI NE_MODIFIE R":@FM:jb$ V0S8))
  20412      h$V0S8  = DSAttach Job(jb$V0S 8, DSJ.ERR NONE)
  20413      If (Not (h$V0S8))  Then
  20414         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20415         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S8:@F M:DSGetLas tErrorMsg( ))
  20416         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20417      End
  20418      h$V0S8  = DSPrepar eJob(h$V0S 8)
  20419      If (Not (h$V0S8))  Then
  20420         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20421         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S8:@ FM:DSGetLa stErrorMsg ())
  20422         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20423      End
  20424   L$V0S8$PRE PARED:
  20425      p$V0S8$ 1 = ($PROJ _DATA_SFIL E)
  20426      err$cod e = DSSetP aram(h$V0S 8, "$PROJ_ DATA_SFILE ", p$V0S8$ 1)
  20427      If (err $code <> D SJE.NOERRO R) Then
  20428         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20429         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  20430         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20431      End
  20432      p$V0S8$ 2 = ($SQL_ DB_UID)
  20433      err$cod e = DSSetP aram(h$V0S 8, "$SQL_D B_UID", p$ V0S8$2)
  20434      If (err $code <> D SJE.NOERRO R) Then
  20435         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20436         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  20437         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20438      End
  20439      p$V0S8$ 3 = ($SQL_ DB_PWD)
  20440      err$cod e = DSSetP aram(h$V0S 8, "$SQL_D B_PWD", p$ V0S8$3)
  20441      If (err $code <> D SJE.NOERRO R) Then
  20442         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20443         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  20444         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20445      End
  20446      p$V0S8$ 4 = ($PROJ _DATA_DS)
  20447      err$cod e = DSSetP aram(h$V0S 8, "$PROJ_ DATA_DS",  p$V0S8$4)
  20448      If (err $code <> D SJE.NOERRO R) Then
  20449         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20450         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  20451         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20452      End
  20453      p$V0S8$ 5 = (Batch ClaimType)
  20454      err$cod e = DSSetP aram(h$V0S 8, "BatchC laimType",  p$V0S8$5)
  20455      If (err $code <> D SJE.NOERRO R) Then
  20456         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20457         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20458         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20459      End
  20460      p$V0S8$ 6 = ($SQL_ DB)
  20461      err$cod e = DSSetP aram(h$V0S 8, "$SQL_D B", p$V0S8 $6)
  20462      If (err $code <> D SJE.NOERRO R) Then
  20463         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20464         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  20465         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20466      End
  20467      p$V0S8$ 7 = ($SQL_ DB_DSN)
  20468      err$cod e = DSSetP aram(h$V0S 8, "$SQL_D B_DSN", p$ V0S8$7)
  20469      If (err $code <> D SJE.NOERRO R) Then
  20470         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20471         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  20472         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20473      End
  20474      p$V0S8$ 8 = (Batch ID)
  20475      err$cod e = DSSetP aram(h$V0S 8, "BatchI D", p$V0S8 $8)
  20476      If (err $code <> D SJE.NOERRO R) Then
  20477         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20478         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  20479         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20480      End
  20481      err$cod e = DSRunJ ob(h$V0S8,  DSJ.RUNNO RMAL)
  20482      If (err $code <> D SJE.NOERRO R) Then
  20483         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20484         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 8:@FM:err$ code)
  20485         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20486      End
  20487      handle$ list<-1> =  h$V0S8
  20488      id$list <-1> = "V0 S8"
  20489      GoTo L$ V0S3$RETUR N$1
  20490   ********** ********** ********** ********** **********
  20491   L$V0S8$FIN ISHED:
  20492      job$V0S 8$status =  DSGetJobI nfo(h$V0S8 , DSJ.JOBS TATUS)
  20493      job$V0S 8$userstat us = DSGet JobInfo(h$ V0S8, DSJ. USERSTATUS )
  20494      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepCLA IM_LINE_MO DIFIER":@F M:jb$V0S8: @FM:job$V0 S8$status) )
  20495      IdV0S8% %Result2%% 12 = job$V 0S8$userst atus
  20496      IdV0S8% %Result1%% 13 = job$V 0S8$status
  20497      IdV0S8% %Name%%14  = jb$V0S8
  20498      dummy$  = DSDetach Job(h$V0S8 )
  20499      If (job $V0S8$stat us <> DSJS .RUNOK And  job$V0S8$ status <>  DSJS.RUNWA RN And Not (b$Abandon ing)) Then
  20500         err$ source = " PrepCLAIM_ LINE_MODIF IER"; err$ number = 1
  20501         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S8 )
  20502         msg$ id = "@Pre pCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20503      End
  20504      If b$In ErrorRef$V 0S8 Or (jo b$V0S8$sta tus <> DSJ S.RUNOK An d job$V0S8 $status <>  DSJS.RUNW ARN) Then  Goto L$V0S 8$SKIPPED
  20505      cp$valu e = Lower( job$V0S8$s tatus)
  20506      cp$valu e<2> = Low er(job$V0S 8$userstat us)
  20507      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S8$cp , cp$value )
  20508      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S8), " @PrepCLAIM _LINE_MODI FIER")
  20509   ********** ********** ********** ********** **********
  20510   L$V0S8$SKI PPED:
  20511      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20512      If (IdV 0S8%%Resul t1%%13 <3)  Then GoTo  L$V0S9$ST ART
  20513   L$V0S8$RET URN$1:
  20514      If b$V0 S8skipping  Then GoTo  L$V0S3$RE TURN$1
  20515      GoTo L$ WAITFORJOB
  20516   ********** ********** ********** ********** **********
  20517   L$V0S9$STA RT:
  20518   *** Activi ty "LoadCL AIM_LINE_M ODIFIER":  Initialize  job
  20519      b$InErr orRef$V0S9  = b$InErr orRef
  20520      h$V0S9  = DSAttach Job("EDI83 7P_CLAIM_L INE_MODIFI ER_load",  DSJ.ERRNON E)
  20521      If (Not (h$V0S9))  Then
  20522         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20523         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ MODIFIER_l oad":@FM:D SGetLastEr rorMsg())
  20524         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20525      End
  20526      If DSGe tJobInfo(h $V0S9, DSJ .JOBMULTII NVOKABLE)  Then
  20527         jb$V 0S9 = "EDI 837P_CLAIM _LINE_MODI FIER_load" :'.':"Load CLAIM_LINE _MODIFIER"
  20528      End Els e
  20529         jb$V 0S9 = "EDI 837P_CLAIM _LINE_MODI FIER_load"
  20530      End
  20531      dummy$  = DSDetach Job(h$V0S9 )
  20532      b$V0S9s kipping =  @False
  20533      h$V0S9$ cp = "h$V0 S9"
  20534      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 9$cp, cp$v alue) = DS JE.NOERROR  Then
  20535         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S9), "@ LoadCLAIM_ LINE_MODIF IER")
  20536         job$ V0S9$statu s = Raise( cp$value<1 >)
  20537         job$ V0S9$users tatus = Ra ise(cp$val ue<2>)
  20538         IdV0 S9%%Result 2%%15 = jo b$V0S9$use rstatus
  20539         IdV0 S9%%Result 1%%16 = jo b$V0S9$sta tus
  20540         IdV0 S9%%Name%% 17 = jb$V0 S9
  20541         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadCLAIM _LINE_MODI FIER":@FM: jb$V0S9))
  20542         b$V0 S9skipping  = @True
  20543         Goto  L$V0S9$SK IPPED
  20544      End
  20545      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adCLAIM_LI NE_MODIFIE R":@FM:jb$ V0S9))
  20546      h$V0S9  = DSAttach Job(jb$V0S 9, DSJ.ERR NONE)
  20547      If (Not (h$V0S9))  Then
  20548         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20549         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S9:@F M:DSGetLas tErrorMsg( ))
  20550         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20551      End
  20552      h$V0S9  = DSPrepar eJob(h$V0S 9)
  20553      If (Not (h$V0S9))  Then
  20554         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20555         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S9:@ FM:DSGetLa stErrorMsg ())
  20556         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20557      End
  20558   L$V0S9$PRE PARED:
  20559      p$V0S9$ 1 = ($SQL_ DB_UID)
  20560      err$cod e = DSSetP aram(h$V0S 9, "$SQL_D B_UID", p$ V0S9$1)
  20561      If (err $code <> D SJE.NOERRO R) Then
  20562         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20563         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  20564         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20565      End
  20566      p$V0S9$ 2 = ($SQL_ DB_PWD)
  20567      err$cod e = DSSetP aram(h$V0S 9, "$SQL_D B_PWD", p$ V0S9$2)
  20568      If (err $code <> D SJE.NOERRO R) Then
  20569         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20570         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  20571         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20572      End
  20573      p$V0S9$ 3 = ($PROJ _DATA_DS)
  20574      err$cod e = DSSetP aram(h$V0S 9, "$PROJ_ DATA_DS",  p$V0S9$3)
  20575      If (err $code <> D SJE.NOERRO R) Then
  20576         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20577         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  20578         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20579      End
  20580      p$V0S9$ 4 = (Batch ClaimType)
  20581      err$cod e = DSSetP aram(h$V0S 9, "BatchC laimType",  p$V0S9$4)
  20582      If (err $code <> D SJE.NOERRO R) Then
  20583         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20584         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20585         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20586      End
  20587      p$V0S9$ 5 = ($SQL_ DB)
  20588      err$cod e = DSSetP aram(h$V0S 9, "$SQL_D B", p$V0S9 $5)
  20589      If (err $code <> D SJE.NOERRO R) Then
  20590         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20591         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  20592         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20593      End
  20594      p$V0S9$ 6 = ($SQL_ DB_DSN)
  20595      err$cod e = DSSetP aram(h$V0S 9, "$SQL_D B_DSN", p$ V0S9$6)
  20596      If (err $code <> D SJE.NOERRO R) Then
  20597         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20598         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  20599         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20600      End
  20601      err$cod e = DSRunJ ob(h$V0S9,  DSJ.RUNNO RMAL)
  20602      If (err $code <> D SJE.NOERRO R) Then
  20603         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = - 1
  20604         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 9:@FM:err$ code)
  20605         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20606      End
  20607      handle$ list<-1> =  h$V0S9
  20608      id$list <-1> = "V0 S9"
  20609      GoTo L$ V0S8$RETUR N$1
  20610   ********** ********** ********** ********** **********
  20611   L$V0S9$FIN ISHED:
  20612      job$V0S 9$status =  DSGetJobI nfo(h$V0S9 , DSJ.JOBS TATUS)
  20613      job$V0S 9$userstat us = DSGet JobInfo(h$ V0S9, DSJ. USERSTATUS )
  20614      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadCLA IM_LINE_MO DIFIER":@F M:jb$V0S9: @FM:job$V0 S9$status) )
  20615      IdV0S9% %Result2%% 15 = job$V 0S9$userst atus
  20616      IdV0S9% %Result1%% 16 = job$V 0S9$status
  20617      IdV0S9% %Name%%17  = jb$V0S9
  20618      dummy$  = DSDetach Job(h$V0S9 )
  20619      If (job $V0S9$stat us <> DSJS .RUNOK And  job$V0S9$ status <>  DSJS.RUNWA RN And Not (b$Abandon ing)) Then
  20620         err$ source = " LoadCLAIM_ LINE_MODIF IER"; err$ number = 1
  20621         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S9 )
  20622         msg$ id = "@Loa dCLAIM_LIN E_MODIFIER "; GoTo L$ ERROR
  20623      End
  20624      If b$In ErrorRef$V 0S9 Or (jo b$V0S9$sta tus <> DSJ S.RUNOK An d job$V0S9 $status <>  DSJS.RUNW ARN) Then  Goto L$V0S 9$SKIPPED
  20625      cp$valu e = Lower( job$V0S9$s tatus)
  20626      cp$valu e<2> = Low er(job$V0S 9$userstat us)
  20627      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S9$cp , cp$value )
  20628      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S9), " @LoadCLAIM _LINE_MODI FIER")
  20629   ********** ********** ********** ********** **********
  20630   L$V0S9$SKI PPED:
  20631      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20632      If (IdV 0S9%%Resul t1%%16 <3)  Then GoTo  L$V0S12$S TART
  20633   L$V0S9$RET URN$1:
  20634      If b$V0 S9skipping  Then GoTo  L$V0S8$RE TURN$1
  20635      GoTo L$ WAITFORJOB
  20636   ********** ********** ********** ********** **********
  20637   L$V0S12$ST ART:
  20638   *** Activi ty "PrepCL AIM_LINE_D ME": Initi alize job
  20639      b$InErr orRef$V0S1 2 = b$InEr rorRef
  20640      h$V0S12  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_DME_p rep", DSJ. ERRNONE)
  20641      If (Not (h$V0S12))  Then
  20642         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20643         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ DME_prep": @FM:DSGetL astErrorMs g())
  20644         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20645      End
  20646      If DSGe tJobInfo(h $V0S12, DS J.JOBMULTI INVOKABLE)  Then
  20647         jb$V 0S12 = "ED I837P_CLAI M_LINE_DME _prep":'.' :"PrepCLAI M_LINE_DME "
  20648      End Els e
  20649         jb$V 0S12 = "ED I837P_CLAI M_LINE_DME _prep"
  20650      End
  20651      dummy$  = DSDetach Job(h$V0S1 2)
  20652      b$V0S12 skipping =  @False
  20653      h$V0S12 $cp = "h$V 0S12"
  20654      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 12$cp, cp$ value) = D SJE.NOERRO R Then
  20655         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S12), " @PrepCLAIM _LINE_DME" )
  20656         job$ V0S12$stat us = Raise (cp$value< 1>)
  20657         job$ V0S12$user status = R aise(cp$va lue<2>)
  20658         IdV0 S12%%Resul t2%%18 = j ob$V0S12$u serstatus
  20659         IdV0 S12%%Resul t1%%19 = j ob$V0S12$s tatus
  20660         IdV0 S12%%Name% %20 = jb$V 0S12
  20661         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "PrepCLAIM _LINE_DME" :@FM:jb$V0 S12))
  20662         b$V0 S12skippin g = @True
  20663         Goto  L$V0S12$S KIPPED
  20664      End
  20665      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epCLAIM_LI NE_DME":@F M:jb$V0S12 ))
  20666      h$V0S12  = DSAttac hJob(jb$V0 S12, DSJ.E RRNONE)
  20667      If (Not (h$V0S12))  Then
  20668         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20669         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S12:@ FM:DSGetLa stErrorMsg ())
  20670         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20671      End
  20672      h$V0S12  = DSPrepa reJob(h$V0 S12)
  20673      If (Not (h$V0S12))  Then
  20674         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20675         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S12: @FM:DSGetL astErrorMs g())
  20676         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20677      End
  20678   L$V0S12$PR EPARED:
  20679      p$V0S12 $1 = ($PRO J_DATA_SFI LE)
  20680      err$cod e = DSSetP aram(h$V0S 12, "$PROJ _DATA_SFIL E", p$V0S1 2$1)
  20681      If (err $code <> D SJE.NOERRO R) Then
  20682         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20683         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  20684         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20685      End
  20686      p$V0S12 $2 = ($SQL _DB_UID)
  20687      err$cod e = DSSetP aram(h$V0S 12, "$SQL_ DB_UID", p $V0S12$2)
  20688      If (err $code <> D SJE.NOERRO R) Then
  20689         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20690         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  20691         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20692      End
  20693      p$V0S12 $3 = ($SQL _DB_PWD)
  20694      err$cod e = DSSetP aram(h$V0S 12, "$SQL_ DB_PWD", p $V0S12$3)
  20695      If (err $code <> D SJE.NOERRO R) Then
  20696         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20697         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  20698         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20699      End
  20700      p$V0S12 $4 = ($PRO J_DATA_DS)
  20701      err$cod e = DSSetP aram(h$V0S 12, "$PROJ _DATA_DS",  p$V0S12$4 )
  20702      If (err $code <> D SJE.NOERRO R) Then
  20703         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20704         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  20705         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20706      End
  20707      p$V0S12 $5 = (Batc hClaimType )
  20708      err$cod e = DSSetP aram(h$V0S 12, "Batch ClaimType" , p$V0S12$ 5)
  20709      If (err $code <> D SJE.NOERRO R) Then
  20710         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20711         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20712         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20713      End
  20714      p$V0S12 $6 = ($SQL _DB)
  20715      err$cod e = DSSetP aram(h$V0S 12, "$SQL_ DB", p$V0S 12$6)
  20716      If (err $code <> D SJE.NOERRO R) Then
  20717         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20718         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  20719         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20720      End
  20721      p$V0S12 $7 = ($SQL _DB_DSN)
  20722      err$cod e = DSSetP aram(h$V0S 12, "$SQL_ DB_DSN", p $V0S12$7)
  20723      If (err $code <> D SJE.NOERRO R) Then
  20724         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20725         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  20726         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20727      End
  20728      p$V0S12 $8 = (Batc hID)
  20729      err$cod e = DSSetP aram(h$V0S 12, "Batch ID", p$V0S 12$8)
  20730      If (err $code <> D SJE.NOERRO R) Then
  20731         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20732         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  20733         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20734      End
  20735      err$cod e = DSRunJ ob(h$V0S12 , DSJ.RUNN ORMAL)
  20736      If (err $code <> D SJE.NOERRO R) Then
  20737         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = -1
  20738         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 12:@FM:err $code)
  20739         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20740      End
  20741      handle$ list<-1> =  h$V0S12
  20742      id$list <-1> = "V0 S12"
  20743      GoTo L$ V0S9$RETUR N$1
  20744   ********** ********** ********** ********** **********
  20745   L$V0S12$FI NISHED:
  20746      job$V0S 12$status  = DSGetJob Info(h$V0S 12, DSJ.JO BSTATUS)
  20747      job$V0S 12$usersta tus = DSGe tJobInfo(h $V0S12, DS J.USERSTAT US)
  20748      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepCLA IM_LINE_DM E":@FM:jb$ V0S12:@FM: job$V0S12$ status))
  20749      IdV0S12 %%Result2% %18 = job$ V0S12$user status
  20750      IdV0S12 %%Result1% %19 = job$ V0S12$stat us
  20751      IdV0S12 %%Name%%20  = jb$V0S1 2
  20752      dummy$  = DSDetach Job(h$V0S1 2)
  20753      If (job $V0S12$sta tus <> DSJ S.RUNOK An d job$V0S1 2$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  20754         err$ source = " PrepCLAIM_ LINE_DME";  err$numbe r = 1
  20755         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S1 2)
  20756         msg$ id = "@Pre pCLAIM_LIN E_DME"; Go To L$ERROR
  20757      End
  20758      If b$In ErrorRef$V 0S12 Or (j ob$V0S12$s tatus <> D SJS.RUNOK  And job$V0 S12$status  <> DSJS.R UNWARN) Th en Goto L$ V0S12$SKIP PED
  20759      cp$valu e = Lower( job$V0S12$ status)
  20760      cp$valu e<2> = Low er(job$V0S 12$usersta tus)
  20761      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S12$c p, cp$valu e)
  20762      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S12),  "@PrepCLAI M_LINE_DME ")
  20763   ********** ********** ********** ********** **********
  20764   L$V0S12$SK IPPED:
  20765      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20766      If (IdV 0S12%%Resu lt1%%19 <3 ) Then GoT o L$V0S13$ START
  20767   L$V0S12$RE TURN$1:
  20768      If b$V0 S12skippin g Then GoT o L$V0S9$R ETURN$1
  20769      GoTo L$ WAITFORJOB
  20770   ********** ********** ********** ********** **********
  20771   L$V0S13$ST ART:
  20772   *** Activi ty "LoadCL AIM_LINE_D ME": Initi alize job
  20773      b$InErr orRef$V0S1 3 = b$InEr rorRef
  20774      h$V0S13  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_DME_l oad", DSJ. ERRNONE)
  20775      If (Not (h$V0S13))  Then
  20776         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20777         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ DME_load": @FM:DSGetL astErrorMs g())
  20778         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20779      End
  20780      If DSGe tJobInfo(h $V0S13, DS J.JOBMULTI INVOKABLE)  Then
  20781         jb$V 0S13 = "ED I837P_CLAI M_LINE_DME _load":'.' :"LoadCLAI M_LINE_DME "
  20782      End Els e
  20783         jb$V 0S13 = "ED I837P_CLAI M_LINE_DME _load"
  20784      End
  20785      dummy$  = DSDetach Job(h$V0S1 3)
  20786      b$V0S13 skipping =  @False
  20787      h$V0S13 $cp = "h$V 0S13"
  20788      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 13$cp, cp$ value) = D SJE.NOERRO R Then
  20789         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S13), " @LoadCLAIM _LINE_DME" )
  20790         job$ V0S13$stat us = Raise (cp$value< 1>)
  20791         job$ V0S13$user status = R aise(cp$va lue<2>)
  20792         IdV0 S13%%Resul t2%%21 = j ob$V0S13$u serstatus
  20793         IdV0 S13%%Resul t1%%22 = j ob$V0S13$s tatus
  20794         IdV0 S13%%Name% %23 = jb$V 0S13
  20795         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadCLAIM _LINE_DME" :@FM:jb$V0 S13))
  20796         b$V0 S13skippin g = @True
  20797         Goto  L$V0S13$S KIPPED
  20798      End
  20799      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adCLAIM_LI NE_DME":@F M:jb$V0S13 ))
  20800      h$V0S13  = DSAttac hJob(jb$V0 S13, DSJ.E RRNONE)
  20801      If (Not (h$V0S13))  Then
  20802         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20803         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S13:@ FM:DSGetLa stErrorMsg ())
  20804         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20805      End
  20806      h$V0S13  = DSPrepa reJob(h$V0 S13)
  20807      If (Not (h$V0S13))  Then
  20808         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20809         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S13: @FM:DSGetL astErrorMs g())
  20810         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20811      End
  20812   L$V0S13$PR EPARED:
  20813      p$V0S13 $1 = ($SQL _DB_UID)
  20814      err$cod e = DSSetP aram(h$V0S 13, "$SQL_ DB_UID", p $V0S13$1)
  20815      If (err $code <> D SJE.NOERRO R) Then
  20816         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20817         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  20818         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20819      End
  20820      p$V0S13 $2 = ($SQL _DB_PWD)
  20821      err$cod e = DSSetP aram(h$V0S 13, "$SQL_ DB_PWD", p $V0S13$2)
  20822      If (err $code <> D SJE.NOERRO R) Then
  20823         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20824         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  20825         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20826      End
  20827      p$V0S13 $3 = ($PRO J_DATA_DS)
  20828      err$cod e = DSSetP aram(h$V0S 13, "$PROJ _DATA_DS",  p$V0S13$3 )
  20829      If (err $code <> D SJE.NOERRO R) Then
  20830         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20831         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  20832         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20833      End
  20834      p$V0S13 $4 = (Batc hClaimType )
  20835      err$cod e = DSSetP aram(h$V0S 13, "Batch ClaimType" , p$V0S13$ 4)
  20836      If (err $code <> D SJE.NOERRO R) Then
  20837         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20838         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20839         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20840      End
  20841      p$V0S13 $5 = ($SQL _DB)
  20842      err$cod e = DSSetP aram(h$V0S 13, "$SQL_ DB", p$V0S 13$5)
  20843      If (err $code <> D SJE.NOERRO R) Then
  20844         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20845         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  20846         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20847      End
  20848      p$V0S13 $6 = ($SQL _DB_DSN)
  20849      err$cod e = DSSetP aram(h$V0S 13, "$SQL_ DB_DSN", p $V0S13$6)
  20850      If (err $code <> D SJE.NOERRO R) Then
  20851         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20852         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  20853         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20854      End
  20855      err$cod e = DSRunJ ob(h$V0S13 , DSJ.RUNN ORMAL)
  20856      If (err $code <> D SJE.NOERRO R) Then
  20857         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = -1
  20858         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 13:@FM:err $code)
  20859         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20860      End
  20861      handle$ list<-1> =  h$V0S13
  20862      id$list <-1> = "V0 S13"
  20863      GoTo L$ V0S12$RETU RN$1
  20864   ********** ********** ********** ********** **********
  20865   L$V0S13$FI NISHED:
  20866      job$V0S 13$status  = DSGetJob Info(h$V0S 13, DSJ.JO BSTATUS)
  20867      job$V0S 13$usersta tus = DSGe tJobInfo(h $V0S13, DS J.USERSTAT US)
  20868      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadCLA IM_LINE_DM E":@FM:jb$ V0S13:@FM: job$V0S13$ status))
  20869      IdV0S13 %%Result2% %21 = job$ V0S13$user status
  20870      IdV0S13 %%Result1% %22 = job$ V0S13$stat us
  20871      IdV0S13 %%Name%%23  = jb$V0S1 3
  20872      dummy$  = DSDetach Job(h$V0S1 3)
  20873      If (job $V0S13$sta tus <> DSJ S.RUNOK An d job$V0S1 3$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  20874         err$ source = " LoadCLAIM_ LINE_DME";  err$numbe r = 1
  20875         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S1 3)
  20876         msg$ id = "@Loa dCLAIM_LIN E_DME"; Go To L$ERROR
  20877      End
  20878      If b$In ErrorRef$V 0S13 Or (j ob$V0S13$s tatus <> D SJS.RUNOK  And job$V0 S13$status  <> DSJS.R UNWARN) Th en Goto L$ V0S13$SKIP PED
  20879      cp$valu e = Lower( job$V0S13$ status)
  20880      cp$valu e<2> = Low er(job$V0S 13$usersta tus)
  20881      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S13$c p, cp$valu e)
  20882      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S13),  "@LoadCLAI M_LINE_DME ")
  20883   ********** ********** ********** ********** **********
  20884   L$V0S13$SK IPPED:
  20885      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20886      If (IdV 0S13%%Resu lt1%%22 <  3) Then Go To L$V0S16 $START
  20887   L$V0S13$RE TURN$1:
  20888      If b$V0 S13skippin g Then GoT o L$V0S12$ RETURN$1
  20889      GoTo L$ WAITFORJOB
  20890   ********** ********** ********** ********** **********
  20891   L$V0S16$ST ART:
  20892   *** Activi ty "Prep_C LAIM_LINE_ SUPP_DOC":  Initializ e job
  20893      b$InErr orRef$V0S1 6 = b$InEr rorRef
  20894      h$V0S16  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_SUPP_ DOC_prep",  DSJ.ERRNO NE)
  20895      If (Not (h$V0S16))  Then
  20896         err$ source = " Prep_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  20897         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ SUPP_DOC_p rep":@FM:D SGetLastEr rorMsg())
  20898         msg$ id = "@Pre p_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20899      End
  20900      If DSGe tJobInfo(h $V0S16, DS J.JOBMULTI INVOKABLE)  Then
  20901         jb$V 0S16 = "ED I837P_CLAI M_LINE_SUP P_DOC_prep ":'.':"Pre p_CLAIM_LI NE_SUPP_DO C"
  20902      End Els e
  20903         jb$V 0S16 = "ED I837P_CLAI M_LINE_SUP P_DOC_prep "
  20904      End
  20905      dummy$  = DSDetach Job(h$V0S1 6)
  20906      b$V0S16 skipping =  @False
  20907      h$V0S16 $cp = "h$V 0S16"
  20908      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 16$cp, cp$ value) = D SJE.NOERRO R Then
  20909         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S16), " @Prep_CLAI M_LINE_SUP P_DOC")
  20910         job$ V0S16$stat us = Raise (cp$value< 1>)
  20911         job$ V0S16$user status = R aise(cp$va lue<2>)
  20912         IdV0 S16%%Resul t2%%24 = j ob$V0S16$u serstatus
  20913         IdV0 S16%%Resul t1%%25 = j ob$V0S16$s tatus
  20914         IdV0 S16%%Name% %26 = jb$V 0S16
  20915         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "Prep_CLAI M_LINE_SUP P_DOC":@FM :jb$V0S16) )
  20916         b$V0 S16skippin g = @True
  20917         Goto  L$V0S16$S KIPPED
  20918      End
  20919      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr ep_CLAIM_L INE_SUPP_D OC":@FM:jb $V0S16))
  20920      h$V0S16  = DSAttac hJob(jb$V0 S16, DSJ.E RRNONE)
  20921      If (Not (h$V0S16))  Then
  20922         err$ source = " Prep_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  20923         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S16:@ FM:DSGetLa stErrorMsg ())
  20924         msg$ id = "@Pre p_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20925      End
  20926      h$V0S16  = DSPrepa reJob(h$V0 S16)
  20927      If (Not (h$V0S16))  Then
  20928         err$ source = " Prep_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  20929         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S16: @FM:DSGetL astErrorMs g())
  20930         msg$ id = "@Pre p_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20931      End
  20932   L$V0S16$PR EPARED:
  20933      p$V0S16 $1 = (Batc hClaimType )
  20934      err$cod e = DSSetP aram(h$V0S 16, "Batch ClaimType" , p$V0S16$ 1)
  20935      If (err $code <> D SJE.NOERRO R) Then
  20936         err$ source = " Prep_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  20937         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  20938         msg$ id = "@Pre p_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20939      End
  20940      p$V0S16 $2 = (Batc hID)
  20941      err$cod e = DSSetP aram(h$V0S 16, "Batch ID", p$V0S 16$2)
  20942      If (err $code <> D SJE.NOERRO R) Then
  20943         err$ source = " Prep_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  20944         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  20945         msg$ id = "@Pre p_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20946      End
  20947      err$cod e = DSRunJ ob(h$V0S16 , DSJ.RUNN ORMAL)
  20948      If (err $code <> D SJE.NOERRO R) Then
  20949         err$ source = " Prep_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  20950         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 16:@FM:err $code)
  20951         msg$ id = "@Pre p_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20952      End
  20953      handle$ list<-1> =  h$V0S16
  20954      id$list <-1> = "V0 S16"
  20955      GoTo L$ V0S13$RETU RN$1
  20956   ********** ********** ********** ********** **********
  20957   L$V0S16$FI NISHED:
  20958      job$V0S 16$status  = DSGetJob Info(h$V0S 16, DSJ.JO BSTATUS)
  20959      job$V0S 16$usersta tus = DSGe tJobInfo(h $V0S16, DS J.USERSTAT US)
  20960      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "Prep_CL AIM_LINE_S UPP_DOC":@ FM:jb$V0S1 6:@FM:job$ V0S16$stat us))
  20961      IdV0S16 %%Result2% %24 = job$ V0S16$user status
  20962      IdV0S16 %%Result1% %25 = job$ V0S16$stat us
  20963      IdV0S16 %%Name%%26  = jb$V0S1 6
  20964      dummy$  = DSDetach Job(h$V0S1 6)
  20965      If (job $V0S16$sta tus <> DSJ S.RUNOK An d job$V0S1 6$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  20966         err$ source = " Prep_CLAIM _LINE_SUPP _DOC"; err $number =  1
  20967         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S1 6)
  20968         msg$ id = "@Pre p_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20969      End
  20970      If b$In ErrorRef$V 0S16 Or (j ob$V0S16$s tatus <> D SJS.RUNOK  And job$V0 S16$status  <> DSJS.R UNWARN) Th en Goto L$ V0S16$SKIP PED
  20971      cp$valu e = Lower( job$V0S16$ status)
  20972      cp$valu e<2> = Low er(job$V0S 16$usersta tus)
  20973      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S16$c p, cp$valu e)
  20974      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S16),  "@Prep_CLA IM_LINE_SU PP_DOC")
  20975   ********** ********** ********** ********** **********
  20976   L$V0S16$SK IPPED:
  20977      If b$Ab andoning T hen GoTo L $WAITFORJO B
  20978      If (IdV 0S16%%Resu lt1%%25 <  3) Then Go To L$V0S17 $START
  20979   L$V0S16$RE TURN$1:
  20980      If b$V0 S16skippin g Then GoT o L$V0S13$ RETURN$1
  20981      GoTo L$ WAITFORJOB
  20982   ********** ********** ********** ********** **********
  20983   L$V0S17$ST ART:
  20984   *** Activi ty "Load_C LAIM_LINE_ SUPP_DOC":  Initializ e job
  20985      b$InErr orRef$V0S1 7 = b$InEr rorRef
  20986      h$V0S17  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_SUPP_ DOC_load",  DSJ.ERRNO NE)
  20987      If (Not (h$V0S17))  Then
  20988         err$ source = " Load_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  20989         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ SUPP_DOC_l oad":@FM:D SGetLastEr rorMsg())
  20990         msg$ id = "@Loa d_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  20991      End
  20992      If DSGe tJobInfo(h $V0S17, DS J.JOBMULTI INVOKABLE)  Then
  20993         jb$V 0S17 = "ED I837P_CLAI M_LINE_SUP P_DOC_load ":'.':"Loa d_CLAIM_LI NE_SUPP_DO C"
  20994      End Els e
  20995         jb$V 0S17 = "ED I837P_CLAI M_LINE_SUP P_DOC_load "
  20996      End
  20997      dummy$  = DSDetach Job(h$V0S1 7)
  20998      b$V0S17 skipping =  @False
  20999      h$V0S17 $cp = "h$V 0S17"
  21000      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 17$cp, cp$ value) = D SJE.NOERRO R Then
  21001         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S17), " @Load_CLAI M_LINE_SUP P_DOC")
  21002         job$ V0S17$stat us = Raise (cp$value< 1>)
  21003         job$ V0S17$user status = R aise(cp$va lue<2>)
  21004         IdV0 S17%%Resul t2%%27 = j ob$V0S17$u serstatus
  21005         IdV0 S17%%Resul t1%%28 = j ob$V0S17$s tatus
  21006         IdV0 S17%%Name% %29 = jb$V 0S17
  21007         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "Load_CLAI M_LINE_SUP P_DOC":@FM :jb$V0S17) )
  21008         b$V0 S17skippin g = @True
  21009         Goto  L$V0S17$S KIPPED
  21010      End
  21011      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo ad_CLAIM_L INE_SUPP_D OC":@FM:jb $V0S17))
  21012      h$V0S17  = DSAttac hJob(jb$V0 S17, DSJ.E RRNONE)
  21013      If (Not (h$V0S17))  Then
  21014         err$ source = " Load_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  21015         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S17:@ FM:DSGetLa stErrorMsg ())
  21016         msg$ id = "@Loa d_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  21017      End
  21018      h$V0S17  = DSPrepa reJob(h$V0 S17)
  21019      If (Not (h$V0S17))  Then
  21020         err$ source = " Load_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  21021         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S17: @FM:DSGetL astErrorMs g())
  21022         msg$ id = "@Loa d_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  21023      End
  21024   L$V0S17$PR EPARED:
  21025      p$V0S17 $1 = (Batc hClaimType )
  21026      err$cod e = DSSetP aram(h$V0S 17, "Batch ClaimType" , p$V0S17$ 1)
  21027      If (err $code <> D SJE.NOERRO R) Then
  21028         err$ source = " Load_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  21029         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21030         msg$ id = "@Loa d_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  21031      End
  21032      err$cod e = DSRunJ ob(h$V0S17 , DSJ.RUNN ORMAL)
  21033      If (err $code <> D SJE.NOERRO R) Then
  21034         err$ source = " Load_CLAIM _LINE_SUPP _DOC"; err $number =  -1
  21035         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 17:@FM:err $code)
  21036         msg$ id = "@Loa d_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  21037      End
  21038      handle$ list<-1> =  h$V0S17
  21039      id$list <-1> = "V0 S17"
  21040      GoTo L$ V0S16$RETU RN$1
  21041   ********** ********** ********** ********** **********
  21042   L$V0S17$FI NISHED:
  21043      job$V0S 17$status  = DSGetJob Info(h$V0S 17, DSJ.JO BSTATUS)
  21044      job$V0S 17$usersta tus = DSGe tJobInfo(h $V0S17, DS J.USERSTAT US)
  21045      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "Load_CL AIM_LINE_S UPP_DOC":@ FM:jb$V0S1 7:@FM:job$ V0S17$stat us))
  21046      IdV0S17 %%Result2% %27 = job$ V0S17$user status
  21047      IdV0S17 %%Result1% %28 = job$ V0S17$stat us
  21048      IdV0S17 %%Name%%29  = jb$V0S1 7
  21049      dummy$  = DSDetach Job(h$V0S1 7)
  21050      If (job $V0S17$sta tus <> DSJ S.RUNOK An d job$V0S1 7$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21051         err$ source = " Load_CLAIM _LINE_SUPP _DOC"; err $number =  1
  21052         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S1 7)
  21053         msg$ id = "@Loa d_CLAIM_LI NE_SUPP_DO C"; GoTo L $ERROR
  21054      End
  21055      If b$In ErrorRef$V 0S17 Or (j ob$V0S17$s tatus <> D SJS.RUNOK  And job$V0 S17$status  <> DSJS.R UNWARN) Th en Goto L$ V0S17$SKIP PED
  21056      cp$valu e = Lower( job$V0S17$ status)
  21057      cp$valu e<2> = Low er(job$V0S 17$usersta tus)
  21058      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S17$c p, cp$valu e)
  21059      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S17),  "@Load_CLA IM_LINE_SU PP_DOC")
  21060   ********** ********** ********** ********** **********
  21061   L$V0S17$SK IPPED:
  21062      If b$Ab andoning T hen GoTo L $WAITFORJO B
  21063      If (IdV 0S17%%Resu lt1%%28 <  3) Then Go To L$V0S34 $START
  21064   L$V0S17$RE TURN$1:
  21065      If b$V0 S17skippin g Then GoT o L$V0S16$ RETURN$1
  21066      GoTo L$ WAITFORJOB
  21067   ********** ********** ********** ********** **********
  21068   L$V0S20$ST ART:
  21069   *** Activi ty "PrepCL AIM_LINE_D RUG": Init ialize job
  21070      b$InErr orRef$V0S2 0 = b$InEr rorRef
  21071      h$V0S20  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_DRUG_ prep", DSJ .ERRNONE)
  21072      If (Not (h$V0S20))  Then
  21073         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21074         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ DRUG_prep" :@FM:DSGet LastErrorM sg())
  21075         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21076      End
  21077      If DSGe tJobInfo(h $V0S20, DS J.JOBMULTI INVOKABLE)  Then
  21078         jb$V 0S20 = "ED I837P_CLAI M_LINE_DRU G_prep":'. ':"PrepCLA IM_LINE_DR UG"
  21079      End Els e
  21080         jb$V 0S20 = "ED I837P_CLAI M_LINE_DRU G_prep"
  21081      End
  21082      dummy$  = DSDetach Job(h$V0S2 0)
  21083      b$V0S20 skipping =  @False
  21084      h$V0S20 $cp = "h$V 0S20"
  21085      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 20$cp, cp$ value) = D SJE.NOERRO R Then
  21086         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S20), " @PrepCLAIM _LINE_DRUG ")
  21087         job$ V0S20$stat us = Raise (cp$value< 1>)
  21088         job$ V0S20$user status = R aise(cp$va lue<2>)
  21089         IdV0 S20%%Resul t2%%30 = j ob$V0S20$u serstatus
  21090         IdV0 S20%%Resul t1%%31 = j ob$V0S20$s tatus
  21091         IdV0 S20%%Name% %32 = jb$V 0S20
  21092         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "PrepCLAIM _LINE_DRUG ":@FM:jb$V 0S20))
  21093         b$V0 S20skippin g = @True
  21094         Goto  L$V0S20$S KIPPED
  21095      End
  21096      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epCLAIM_LI NE_DRUG":@ FM:jb$V0S2 0))
  21097      h$V0S20  = DSAttac hJob(jb$V0 S20, DSJ.E RRNONE)
  21098      If (Not (h$V0S20))  Then
  21099         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21100         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S20:@ FM:DSGetLa stErrorMsg ())
  21101         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21102      End
  21103      h$V0S20  = DSPrepa reJob(h$V0 S20)
  21104      If (Not (h$V0S20))  Then
  21105         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21106         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S20: @FM:DSGetL astErrorMs g())
  21107         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21108      End
  21109   L$V0S20$PR EPARED:
  21110      p$V0S20 $1 = ($PRO J_DATA_SFI LE)
  21111      err$cod e = DSSetP aram(h$V0S 20, "$PROJ _DATA_SFIL E", p$V0S2 0$1)
  21112      If (err $code <> D SJE.NOERRO R) Then
  21113         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21114         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  21115         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21116      End
  21117      p$V0S20 $2 = ($SQL _DB_UID)
  21118      err$cod e = DSSetP aram(h$V0S 20, "$SQL_ DB_UID", p $V0S20$2)
  21119      If (err $code <> D SJE.NOERRO R) Then
  21120         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21121         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  21122         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21123      End
  21124      p$V0S20 $3 = ($SQL _DB_PWD)
  21125      err$cod e = DSSetP aram(h$V0S 20, "$SQL_ DB_PWD", p $V0S20$3)
  21126      If (err $code <> D SJE.NOERRO R) Then
  21127         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21128         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  21129         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21130      End
  21131      p$V0S20 $4 = ($PRO J_DATA_DS)
  21132      err$cod e = DSSetP aram(h$V0S 20, "$PROJ _DATA_DS",  p$V0S20$4 )
  21133      If (err $code <> D SJE.NOERRO R) Then
  21134         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21135         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  21136         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21137      End
  21138      p$V0S20 $5 = (Batc hClaimType )
  21139      err$cod e = DSSetP aram(h$V0S 20, "Batch ClaimType" , p$V0S20$ 5)
  21140      If (err $code <> D SJE.NOERRO R) Then
  21141         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21142         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21143         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21144      End
  21145      p$V0S20 $6 = ($SQL _DB)
  21146      err$cod e = DSSetP aram(h$V0S 20, "$SQL_ DB", p$V0S 20$6)
  21147      If (err $code <> D SJE.NOERRO R) Then
  21148         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21149         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  21150         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21151      End
  21152      p$V0S20 $7 = ($SQL _DB_DSN)
  21153      err$cod e = DSSetP aram(h$V0S 20, "$SQL_ DB_DSN", p $V0S20$7)
  21154      If (err $code <> D SJE.NOERRO R) Then
  21155         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21156         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  21157         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21158      End
  21159      p$V0S20 $8 = (Batc hID)
  21160      err$cod e = DSSetP aram(h$V0S 20, "Batch ID", p$V0S 20$8)
  21161      If (err $code <> D SJE.NOERRO R) Then
  21162         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21163         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  21164         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21165      End
  21166      err$cod e = DSRunJ ob(h$V0S20 , DSJ.RUNN ORMAL)
  21167      If (err $code <> D SJE.NOERRO R) Then
  21168         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = -1
  21169         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 20:@FM:err $code)
  21170         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21171      End
  21172      handle$ list<-1> =  h$V0S20
  21173      id$list <-1> = "V0 S20"
  21174      GoTo L$ V0S5$RETUR N$1
  21175   ********** ********** ********** ********** **********
  21176   L$V0S20$FI NISHED:
  21177      job$V0S 20$status  = DSGetJob Info(h$V0S 20, DSJ.JO BSTATUS)
  21178      job$V0S 20$usersta tus = DSGe tJobInfo(h $V0S20, DS J.USERSTAT US)
  21179      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepCLA IM_LINE_DR UG":@FM:jb $V0S20:@FM :job$V0S20 $status))
  21180      IdV0S20 %%Result2% %30 = job$ V0S20$user status
  21181      IdV0S20 %%Result1% %31 = job$ V0S20$stat us
  21182      IdV0S20 %%Name%%32  = jb$V0S2 0
  21183      dummy$  = DSDetach Job(h$V0S2 0)
  21184      If (job $V0S20$sta tus <> DSJ S.RUNOK An d job$V0S2 0$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21185         err$ source = " PrepCLAIM_ LINE_DRUG" ; err$numb er = 1
  21186         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S2 0)
  21187         msg$ id = "@Pre pCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21188      End
  21189      If b$In ErrorRef$V 0S20 Or (j ob$V0S20$s tatus <> D SJS.RUNOK  And job$V0 S20$status  <> DSJS.R UNWARN) Th en Goto L$ V0S20$SKIP PED
  21190      cp$valu e = Lower( job$V0S20$ status)
  21191      cp$valu e<2> = Low er(job$V0S 20$usersta tus)
  21192      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S20$c p, cp$valu e)
  21193      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S20),  "@PrepCLAI M_LINE_DRU G")
  21194   ********** ********** ********** ********** **********
  21195   L$V0S20$SK IPPED:
  21196      If b$Ab andoning T hen GoTo L $WAITFORJO B
  21197      If (IdV 0S20%%Resu lt1%%31 <3 ) Then GoT o L$V0S21$ START
  21198   L$V0S20$RE TURN$1:
  21199      If b$V0 S20skippin g Then GoT o L$V0S5$R ETURN$1
  21200      GoTo L$ WAITFORJOB
  21201   ********** ********** ********** ********** **********
  21202   L$V0S21$ST ART:
  21203   *** Activi ty "LoadCL AIM_LINE_D RUG": Init ialize job
  21204      b$InErr orRef$V0S2 1 = b$InEr rorRef
  21205      h$V0S21  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_DRUG_ load", DSJ .ERRNONE)
  21206      If (Not (h$V0S21))  Then
  21207         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21208         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ DRUG_load" :@FM:DSGet LastErrorM sg())
  21209         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21210      End
  21211      If DSGe tJobInfo(h $V0S21, DS J.JOBMULTI INVOKABLE)  Then
  21212         jb$V 0S21 = "ED I837P_CLAI M_LINE_DRU G_load":'. ':"LoadCLA IM_LINE_DR UG"
  21213      End Els e
  21214         jb$V 0S21 = "ED I837P_CLAI M_LINE_DRU G_load"
  21215      End
  21216      dummy$  = DSDetach Job(h$V0S2 1)
  21217      b$V0S21 skipping =  @False
  21218      h$V0S21 $cp = "h$V 0S21"
  21219      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 21$cp, cp$ value) = D SJE.NOERRO R Then
  21220         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S21), " @LoadCLAIM _LINE_DRUG ")
  21221         job$ V0S21$stat us = Raise (cp$value< 1>)
  21222         job$ V0S21$user status = R aise(cp$va lue<2>)
  21223         IdV0 S21%%Resul t2%%33 = j ob$V0S21$u serstatus
  21224         IdV0 S21%%Resul t1%%34 = j ob$V0S21$s tatus
  21225         IdV0 S21%%Name% %35 = jb$V 0S21
  21226         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadCLAIM _LINE_DRUG ":@FM:jb$V 0S21))
  21227         b$V0 S21skippin g = @True
  21228         Goto  L$V0S21$S KIPPED
  21229      End
  21230      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adCLAIM_LI NE_DRUG":@ FM:jb$V0S2 1))
  21231      h$V0S21  = DSAttac hJob(jb$V0 S21, DSJ.E RRNONE)
  21232      If (Not (h$V0S21))  Then
  21233         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21234         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S21:@ FM:DSGetLa stErrorMsg ())
  21235         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21236      End
  21237      h$V0S21  = DSPrepa reJob(h$V0 S21)
  21238      If (Not (h$V0S21))  Then
  21239         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21240         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S21: @FM:DSGetL astErrorMs g())
  21241         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21242      End
  21243   L$V0S21$PR EPARED:
  21244      p$V0S21 $1 = ($SQL _DB_UID)
  21245      err$cod e = DSSetP aram(h$V0S 21, "$SQL_ DB_UID", p $V0S21$1)
  21246      If (err $code <> D SJE.NOERRO R) Then
  21247         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21248         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  21249         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21250      End
  21251      p$V0S21 $2 = ($SQL _DB_PWD)
  21252      err$cod e = DSSetP aram(h$V0S 21, "$SQL_ DB_PWD", p $V0S21$2)
  21253      If (err $code <> D SJE.NOERRO R) Then
  21254         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21255         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  21256         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21257      End
  21258      p$V0S21 $3 = ($PRO J_DATA_DS)
  21259      err$cod e = DSSetP aram(h$V0S 21, "$PROJ _DATA_DS",  p$V0S21$3 )
  21260      If (err $code <> D SJE.NOERRO R) Then
  21261         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21262         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  21263         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21264      End
  21265      p$V0S21 $4 = ($SQL _DB)
  21266      err$cod e = DSSetP aram(h$V0S 21, "$SQL_ DB", p$V0S 21$4)
  21267      If (err $code <> D SJE.NOERRO R) Then
  21268         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21269         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  21270         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21271      End
  21272      p$V0S21 $5 = (Batc hClaimType )
  21273      err$cod e = DSSetP aram(h$V0S 21, "Batch ClaimType" , p$V0S21$ 5)
  21274      If (err $code <> D SJE.NOERRO R) Then
  21275         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21276         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21277         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21278      End
  21279      p$V0S21 $6 = ($SQL _DB_DSN)
  21280      err$cod e = DSSetP aram(h$V0S 21, "$SQL_ DB_DSN", p $V0S21$6)
  21281      If (err $code <> D SJE.NOERRO R) Then
  21282         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21283         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  21284         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21285      End
  21286      err$cod e = DSRunJ ob(h$V0S21 , DSJ.RUNN ORMAL)
  21287      If (err $code <> D SJE.NOERRO R) Then
  21288         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = -1
  21289         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 21:@FM:err $code)
  21290         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21291      End
  21292      handle$ list<-1> =  h$V0S21
  21293      id$list <-1> = "V0 S21"
  21294      GoTo L$ V0S20$RETU RN$1
  21295   ********** ********** ********** ********** **********
  21296   L$V0S21$FI NISHED:
  21297      job$V0S 21$status  = DSGetJob Info(h$V0S 21, DSJ.JO BSTATUS)
  21298      job$V0S 21$usersta tus = DSGe tJobInfo(h $V0S21, DS J.USERSTAT US)
  21299      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadCLA IM_LINE_DR UG":@FM:jb $V0S21:@FM :job$V0S21 $status))
  21300      IdV0S21 %%Result2% %33 = job$ V0S21$user status
  21301      IdV0S21 %%Result1% %34 = job$ V0S21$stat us
  21302      IdV0S21 %%Name%%35  = jb$V0S2 1
  21303      dummy$  = DSDetach Job(h$V0S2 1)
  21304      If (job $V0S21$sta tus <> DSJ S.RUNOK An d job$V0S2 1$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21305         err$ source = " LoadCLAIM_ LINE_DRUG" ; err$numb er = 1
  21306         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S2 1)
  21307         msg$ id = "@Loa dCLAIM_LIN E_DRUG"; G oTo L$ERRO R
  21308      End
  21309      If b$In ErrorRef$V 0S21 Or (j ob$V0S21$s tatus <> D SJS.RUNOK  And job$V0 S21$status  <> DSJS.R UNWARN) Th en Goto L$ V0S21$SKIP PED
  21310      cp$valu e = Lower( job$V0S21$ status)
  21311      cp$valu e<2> = Low er(job$V0S 21$usersta tus)
  21312      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S21$c p, cp$valu e)
  21313      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S21),  "@LoadCLAI M_LINE_DRU G")
  21314   ********** ********** ********** ********** **********
  21315   L$V0S21$SK IPPED:
  21316      If b$Ab andoning T hen GoTo L $WAITFORJO B
  21317      If (IdV 0S21%%Resu lt1%%34 <  3) Then Go To L$V0S24 $START
  21318   L$V0S21$RE TURN$1:
  21319      If b$V0 S21skippin g Then GoT o L$V0S20$ RETURN$1
  21320      GoTo L$ WAITFORJOB
  21321   ********** ********** ********** ********** **********
  21322   L$V0S24$ST ART:
  21323   *** Activi ty "PrepCL AIM_LINE_M ED_TEST":  Initialize  job
  21324      b$InErr orRef$V0S2 4 = b$InEr rorRef
  21325      h$V0S24  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_MED_T EST_prep",  DSJ.ERRNO NE)
  21326      If (Not (h$V0S24))  Then
  21327         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21328         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ MED_TEST_p rep":@FM:D SGetLastEr rorMsg())
  21329         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21330      End
  21331      If DSGe tJobInfo(h $V0S24, DS J.JOBMULTI INVOKABLE)  Then
  21332         jb$V 0S24 = "ED I837P_CLAI M_LINE_MED _TEST_prep ":'.':"Pre pCLAIM_LIN E_MED_TEST "
  21333      End Els e
  21334         jb$V 0S24 = "ED I837P_CLAI M_LINE_MED _TEST_prep "
  21335      End
  21336      dummy$  = DSDetach Job(h$V0S2 4)
  21337      b$V0S24 skipping =  @False
  21338      h$V0S24 $cp = "h$V 0S24"
  21339      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 24$cp, cp$ value) = D SJE.NOERRO R Then
  21340         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S24), " @PrepCLAIM _LINE_MED_ TEST")
  21341         job$ V0S24$stat us = Raise (cp$value< 1>)
  21342         job$ V0S24$user status = R aise(cp$va lue<2>)
  21343         IdV0 S24%%Resul t2%%36 = j ob$V0S24$u serstatus
  21344         IdV0 S24%%Resul t1%%37 = j ob$V0S24$s tatus
  21345         IdV0 S24%%Name% %38 = jb$V 0S24
  21346         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "PrepCLAIM _LINE_MED_ TEST":@FM: jb$V0S24))
  21347         b$V0 S24skippin g = @True
  21348         Goto  L$V0S24$S KIPPED
  21349      End
  21350      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epCLAIM_LI NE_MED_TES T":@FM:jb$ V0S24))
  21351      h$V0S24  = DSAttac hJob(jb$V0 S24, DSJ.E RRNONE)
  21352      If (Not (h$V0S24))  Then
  21353         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21354         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S24:@ FM:DSGetLa stErrorMsg ())
  21355         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21356      End
  21357      h$V0S24  = DSPrepa reJob(h$V0 S24)
  21358      If (Not (h$V0S24))  Then
  21359         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21360         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S24: @FM:DSGetL astErrorMs g())
  21361         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21362      End
  21363   L$V0S24$PR EPARED:
  21364      p$V0S24 $1 = ($PRO J_DATA_SFI LE)
  21365      err$cod e = DSSetP aram(h$V0S 24, "$PROJ _DATA_SFIL E", p$V0S2 4$1)
  21366      If (err $code <> D SJE.NOERRO R) Then
  21367         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21368         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  21369         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21370      End
  21371      p$V0S24 $2 = ($SQL _DB_UID)
  21372      err$cod e = DSSetP aram(h$V0S 24, "$SQL_ DB_UID", p $V0S24$2)
  21373      If (err $code <> D SJE.NOERRO R) Then
  21374         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21375         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  21376         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21377      End
  21378      p$V0S24 $3 = ($SQL _DB_PWD)
  21379      err$cod e = DSSetP aram(h$V0S 24, "$SQL_ DB_PWD", p $V0S24$3)
  21380      If (err $code <> D SJE.NOERRO R) Then
  21381         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21382         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  21383         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21384      End
  21385      p$V0S24 $4 = ($PRO J_DATA_DS)
  21386      err$cod e = DSSetP aram(h$V0S 24, "$PROJ _DATA_DS",  p$V0S24$4 )
  21387      If (err $code <> D SJE.NOERRO R) Then
  21388         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21389         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  21390         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21391      End
  21392      p$V0S24 $5 = (Batc hClaimType )
  21393      err$cod e = DSSetP aram(h$V0S 24, "Batch ClaimType" , p$V0S24$ 5)
  21394      If (err $code <> D SJE.NOERRO R) Then
  21395         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21396         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21397         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21398      End
  21399      p$V0S24 $6 = ($SQL _DB)
  21400      err$cod e = DSSetP aram(h$V0S 24, "$SQL_ DB", p$V0S 24$6)
  21401      If (err $code <> D SJE.NOERRO R) Then
  21402         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21403         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  21404         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21405      End
  21406      p$V0S24 $7 = ($SQL _DB_DSN)
  21407      err$cod e = DSSetP aram(h$V0S 24, "$SQL_ DB_DSN", p $V0S24$7)
  21408      If (err $code <> D SJE.NOERRO R) Then
  21409         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21410         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  21411         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21412      End
  21413      p$V0S24 $8 = (Batc hID)
  21414      err$cod e = DSSetP aram(h$V0S 24, "Batch ID", p$V0S 24$8)
  21415      If (err $code <> D SJE.NOERRO R) Then
  21416         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21417         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  21418         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21419      End
  21420      err$cod e = DSRunJ ob(h$V0S24 , DSJ.RUNN ORMAL)
  21421      If (err $code <> D SJE.NOERRO R) Then
  21422         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21423         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 24:@FM:err $code)
  21424         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21425      End
  21426      handle$ list<-1> =  h$V0S24
  21427      id$list <-1> = "V0 S24"
  21428      GoTo L$ V0S21$RETU RN$1
  21429   ********** ********** ********** ********** **********
  21430   L$V0S24$FI NISHED:
  21431      job$V0S 24$status  = DSGetJob Info(h$V0S 24, DSJ.JO BSTATUS)
  21432      job$V0S 24$usersta tus = DSGe tJobInfo(h $V0S24, DS J.USERSTAT US)
  21433      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepCLA IM_LINE_ME D_TEST":@F M:jb$V0S24 :@FM:job$V 0S24$statu s))
  21434      IdV0S24 %%Result2% %36 = job$ V0S24$user status
  21435      IdV0S24 %%Result1% %37 = job$ V0S24$stat us
  21436      IdV0S24 %%Name%%38  = jb$V0S2 4
  21437      dummy$  = DSDetach Job(h$V0S2 4)
  21438      If (job $V0S24$sta tus <> DSJ S.RUNOK An d job$V0S2 4$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21439         err$ source = " PrepCLAIM_ LINE_MED_T EST"; err$ number = 1
  21440         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S2 4)
  21441         msg$ id = "@Pre pCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21442      End
  21443      If b$In ErrorRef$V 0S24 Or (j ob$V0S24$s tatus <> D SJS.RUNOK  And job$V0 S24$status  <> DSJS.R UNWARN) Th en Goto L$ V0S24$SKIP PED
  21444      cp$valu e = Lower( job$V0S24$ status)
  21445      cp$valu e<2> = Low er(job$V0S 24$usersta tus)
  21446      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S24$c p, cp$valu e)
  21447      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S24),  "@PrepCLAI M_LINE_MED _TEST")
  21448   ********** ********** ********** ********** **********
  21449   L$V0S24$SK IPPED:
  21450      If b$Ab andoning T hen GoTo L $WAITFORJO B
  21451      If (IdV 0S24%%Resu lt1%%37 <  3) Then Go To L$V0S25 $START
  21452   L$V0S24$RE TURN$1:
  21453      If b$V0 S24skippin g Then GoT o L$V0S21$ RETURN$1
  21454      GoTo L$ WAITFORJOB
  21455   ********** ********** ********** ********** **********
  21456   L$V0S25$ST ART:
  21457   *** Activi ty "LoadCL AIM_LINE_M ED_TEST":  Initialize  job
  21458      b$InErr orRef$V0S2 5 = b$InEr rorRef
  21459      h$V0S25  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_MED_T EST_load",  DSJ.ERRNO NE)
  21460      If (Not (h$V0S25))  Then
  21461         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21462         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ MED_TEST_l oad":@FM:D SGetLastEr rorMsg())
  21463         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21464      End
  21465      If DSGe tJobInfo(h $V0S25, DS J.JOBMULTI INVOKABLE)  Then
  21466         jb$V 0S25 = "ED I837P_CLAI M_LINE_MED _TEST_load ":'.':"Loa dCLAIM_LIN E_MED_TEST "
  21467      End Els e
  21468         jb$V 0S25 = "ED I837P_CLAI M_LINE_MED _TEST_load "
  21469      End
  21470      dummy$  = DSDetach Job(h$V0S2 5)
  21471      b$V0S25 skipping =  @False
  21472      h$V0S25 $cp = "h$V 0S25"
  21473      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 25$cp, cp$ value) = D SJE.NOERRO R Then
  21474         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S25), " @LoadCLAIM _LINE_MED_ TEST")
  21475         job$ V0S25$stat us = Raise (cp$value< 1>)
  21476         job$ V0S25$user status = R aise(cp$va lue<2>)
  21477         IdV0 S25%%Resul t2%%39 = j ob$V0S25$u serstatus
  21478         IdV0 S25%%Resul t1%%40 = j ob$V0S25$s tatus
  21479         IdV0 S25%%Name% %41 = jb$V 0S25
  21480         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadCLAIM _LINE_MED_ TEST":@FM: jb$V0S25))
  21481         b$V0 S25skippin g = @True
  21482         Goto  L$V0S25$S KIPPED
  21483      End
  21484      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adCLAIM_LI NE_MED_TES T":@FM:jb$ V0S25))
  21485      h$V0S25  = DSAttac hJob(jb$V0 S25, DSJ.E RRNONE)
  21486      If (Not (h$V0S25))  Then
  21487         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21488         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S25:@ FM:DSGetLa stErrorMsg ())
  21489         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21490      End
  21491      h$V0S25  = DSPrepa reJob(h$V0 S25)
  21492      If (Not (h$V0S25))  Then
  21493         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21494         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S25: @FM:DSGetL astErrorMs g())
  21495         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21496      End
  21497   L$V0S25$PR EPARED:
  21498      p$V0S25 $1 = ($SQL _DB_UID)
  21499      err$cod e = DSSetP aram(h$V0S 25, "$SQL_ DB_UID", p $V0S25$1)
  21500      If (err $code <> D SJE.NOERRO R) Then
  21501         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21502         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  21503         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21504      End
  21505      p$V0S25 $2 = ($SQL _DB_PWD)
  21506      err$cod e = DSSetP aram(h$V0S 25, "$SQL_ DB_PWD", p $V0S25$2)
  21507      If (err $code <> D SJE.NOERRO R) Then
  21508         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21509         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  21510         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21511      End
  21512      p$V0S25 $3 = ($PRO J_DATA_DS)
  21513      err$cod e = DSSetP aram(h$V0S 25, "$PROJ _DATA_DS",  p$V0S25$3 )
  21514      If (err $code <> D SJE.NOERRO R) Then
  21515         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21516         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  21517         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21518      End
  21519      p$V0S25 $4 = ($SQL _DB)
  21520      err$cod e = DSSetP aram(h$V0S 25, "$SQL_ DB", p$V0S 25$4)
  21521      If (err $code <> D SJE.NOERRO R) Then
  21522         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21523         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  21524         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21525      End
  21526      p$V0S25 $5 = (Batc hClaimType )
  21527      err$cod e = DSSetP aram(h$V0S 25, "Batch ClaimType" , p$V0S25$ 5)
  21528      If (err $code <> D SJE.NOERRO R) Then
  21529         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21530         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21531         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21532      End
  21533      p$V0S25 $6 = ($SQL _DB_DSN)
  21534      err$cod e = DSSetP aram(h$V0S 25, "$SQL_ DB_DSN", p $V0S25$6)
  21535      If (err $code <> D SJE.NOERRO R) Then
  21536         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21537         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  21538         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21539      End
  21540      err$cod e = DSRunJ ob(h$V0S25 , DSJ.RUNN ORMAL)
  21541      If (err $code <> D SJE.NOERRO R) Then
  21542         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = - 1
  21543         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 25:@FM:err $code)
  21544         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21545      End
  21546      handle$ list<-1> =  h$V0S25
  21547      id$list <-1> = "V0 S25"
  21548      GoTo L$ V0S24$RETU RN$1
  21549   ********** ********** ********** ********** **********
  21550   L$V0S25$FI NISHED:
  21551      job$V0S 25$status  = DSGetJob Info(h$V0S 25, DSJ.JO BSTATUS)
  21552      job$V0S 25$usersta tus = DSGe tJobInfo(h $V0S25, DS J.USERSTAT US)
  21553      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadCLA IM_LINE_ME D_TEST":@F M:jb$V0S25 :@FM:job$V 0S25$statu s))
  21554      IdV0S25 %%Result2% %39 = job$ V0S25$user status
  21555      IdV0S25 %%Result1% %40 = job$ V0S25$stat us
  21556      IdV0S25 %%Name%%41  = jb$V0S2 5
  21557      dummy$  = DSDetach Job(h$V0S2 5)
  21558      If (job $V0S25$sta tus <> DSJ S.RUNOK An d job$V0S2 5$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21559         err$ source = " LoadCLAIM_ LINE_MED_T EST"; err$ number = 1
  21560         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S2 5)
  21561         msg$ id = "@Loa dCLAIM_LIN E_MED_TEST "; GoTo L$ ERROR
  21562      End
  21563      If b$In ErrorRef$V 0S25 Or (j ob$V0S25$s tatus <> D SJS.RUNOK  And job$V0 S25$status  <> DSJS.R UNWARN) Th en Goto L$ V0S25$SKIP PED
  21564      cp$valu e = Lower( job$V0S25$ status)
  21565      cp$valu e<2> = Low er(job$V0S 25$usersta tus)
  21566      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S25$c p, cp$valu e)
  21567      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S25),  "@LoadCLAI M_LINE_MED _TEST")
  21568   ********** ********** ********** ********** **********
  21569   L$V0S25$SK IPPED:
  21570      If b$Ab andoning T hen GoTo L $WAITFORJO B
  21571      If (IdV 0S25%%Resu lt1%%40 <  3) Then Go To L$V0S30 $START
  21572   L$V0S25$RE TURN$1:
  21573      If b$V0 S25skippin g Then GoT o L$V0S24$ RETURN$1
  21574      GoTo L$ WAITFORJOB
  21575   ********** ********** ********** ********** **********
  21576   L$V0S30$ST ART:
  21577   *** Activi ty "PrepCL AIM_LINE_A TTACHMENT" : Initiali ze job
  21578      b$InErr orRef$V0S3 0 = b$InEr rorRef
  21579      h$V0S30  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_ATTAC HMENT_prep ", DSJ.ERR NONE)
  21580      If (Not (h$V0S30))  Then
  21581         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21582         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ ATTACHMENT _prep":@FM :DSGetLast ErrorMsg() )
  21583         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21584      End
  21585      If DSGe tJobInfo(h $V0S30, DS J.JOBMULTI INVOKABLE)  Then
  21586         jb$V 0S30 = "ED I837P_CLAI M_LINE_ATT ACHMENT_pr ep":'.':"P repCLAIM_L INE_ATTACH MENT"
  21587      End Els e
  21588         jb$V 0S30 = "ED I837P_CLAI M_LINE_ATT ACHMENT_pr ep"
  21589      End
  21590      dummy$  = DSDetach Job(h$V0S3 0)
  21591      b$V0S30 skipping =  @False
  21592      h$V0S30 $cp = "h$V 0S30"
  21593      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 30$cp, cp$ value) = D SJE.NOERRO R Then
  21594         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S30), " @PrepCLAIM _LINE_ATTA CHMENT")
  21595         job$ V0S30$stat us = Raise (cp$value< 1>)
  21596         job$ V0S30$user status = R aise(cp$va lue<2>)
  21597         IdV0 S30%%Resul t2%%42 = j ob$V0S30$u serstatus
  21598         IdV0 S30%%Resul t1%%43 = j ob$V0S30$s tatus
  21599         IdV0 S30%%Name% %44 = jb$V 0S30
  21600         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "PrepCLAIM _LINE_ATTA CHMENT":@F M:jb$V0S30 ))
  21601         b$V0 S30skippin g = @True
  21602         Goto  L$V0S30$S KIPPED
  21603      End
  21604      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epCLAIM_LI NE_ATTACHM ENT":@FM:j b$V0S30))
  21605      h$V0S30  = DSAttac hJob(jb$V0 S30, DSJ.E RRNONE)
  21606      If (Not (h$V0S30))  Then
  21607         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21608         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S30:@ FM:DSGetLa stErrorMsg ())
  21609         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21610      End
  21611      h$V0S30  = DSPrepa reJob(h$V0 S30)
  21612      If (Not (h$V0S30))  Then
  21613         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21614         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S30: @FM:DSGetL astErrorMs g())
  21615         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21616      End
  21617   L$V0S30$PR EPARED:
  21618      p$V0S30 $1 = ($PRO J_DATA_SFI LE)
  21619      err$cod e = DSSetP aram(h$V0S 30, "$PROJ _DATA_SFIL E", p$V0S3 0$1)
  21620      If (err $code <> D SJE.NOERRO R) Then
  21621         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21622         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  21623         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21624      End
  21625      p$V0S30 $2 = ($SQL _DB_UID)
  21626      err$cod e = DSSetP aram(h$V0S 30, "$SQL_ DB_UID", p $V0S30$2)
  21627      If (err $code <> D SJE.NOERRO R) Then
  21628         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21629         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  21630         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21631      End
  21632      p$V0S30 $3 = ($SQL _DB_PWD)
  21633      err$cod e = DSSetP aram(h$V0S 30, "$SQL_ DB_PWD", p $V0S30$3)
  21634      If (err $code <> D SJE.NOERRO R) Then
  21635         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21636         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  21637         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21638      End
  21639      p$V0S30 $4 = ($PRO J_DATA_DS)
  21640      err$cod e = DSSetP aram(h$V0S 30, "$PROJ _DATA_DS",  p$V0S30$4 )
  21641      If (err $code <> D SJE.NOERRO R) Then
  21642         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21643         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  21644         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21645      End
  21646      p$V0S30 $5 = (Batc hClaimType )
  21647      err$cod e = DSSetP aram(h$V0S 30, "Batch ClaimType" , p$V0S30$ 5)
  21648      If (err $code <> D SJE.NOERRO R) Then
  21649         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21650         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21651         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21652      End
  21653      p$V0S30 $6 = ($SQL _DB)
  21654      err$cod e = DSSetP aram(h$V0S 30, "$SQL_ DB", p$V0S 30$6)
  21655      If (err $code <> D SJE.NOERRO R) Then
  21656         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21657         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  21658         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21659      End
  21660      p$V0S30 $7 = ($SQL _DB_DSN)
  21661      err$cod e = DSSetP aram(h$V0S 30, "$SQL_ DB_DSN", p $V0S30$7)
  21662      If (err $code <> D SJE.NOERRO R) Then
  21663         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21664         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  21665         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21666      End
  21667      p$V0S30 $8 = (Batc hID)
  21668      err$cod e = DSSetP aram(h$V0S 30, "Batch ID", p$V0S 30$8)
  21669      If (err $code <> D SJE.NOERRO R) Then
  21670         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21671         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  21672         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21673      End
  21674      err$cod e = DSRunJ ob(h$V0S30 , DSJ.RUNN ORMAL)
  21675      If (err $code <> D SJE.NOERRO R) Then
  21676         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21677         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 30:@FM:err $code)
  21678         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21679      End
  21680      handle$ list<-1> =  h$V0S30
  21681      id$list <-1> = "V0 S30"
  21682      GoTo L$ V0S25$RETU RN$1
  21683   ********** ********** ********** ********** **********
  21684   L$V0S30$FI NISHED:
  21685      job$V0S 30$status  = DSGetJob Info(h$V0S 30, DSJ.JO BSTATUS)
  21686      job$V0S 30$usersta tus = DSGe tJobInfo(h $V0S30, DS J.USERSTAT US)
  21687      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepCLA IM_LINE_AT TACHMENT": @FM:jb$V0S 30:@FM:job $V0S30$sta tus))
  21688      IdV0S30 %%Result2% %42 = job$ V0S30$user status
  21689      IdV0S30 %%Result1% %43 = job$ V0S30$stat us
  21690      IdV0S30 %%Name%%44  = jb$V0S3 0
  21691      dummy$  = DSDetach Job(h$V0S3 0)
  21692      If (job $V0S30$sta tus <> DSJ S.RUNOK An d job$V0S3 0$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21693         err$ source = " PrepCLAIM_ LINE_ATTAC HMENT"; er r$number =  1
  21694         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S3 0)
  21695         msg$ id = "@Pre pCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21696      End
  21697      If b$In ErrorRef$V 0S30 Or (j ob$V0S30$s tatus <> D SJS.RUNOK  And job$V0 S30$status  <> DSJS.R UNWARN) Th en Goto L$ V0S30$SKIP PED
  21698      cp$valu e = Lower( job$V0S30$ status)
  21699      cp$valu e<2> = Low er(job$V0S 30$usersta tus)
  21700      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S30$c p, cp$valu e)
  21701      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S30),  "@PrepCLAI M_LINE_ATT ACHMENT")
  21702   ********** ********** ********** ********** **********
  21703   L$V0S30$SK IPPED:
  21704      If b$Ab andoning T hen GoTo L $WAITFORJO B
  21705      If (IdV 0S30%%Resu lt1%%43 <  3) Then Go To L$V0S31 $START
  21706   L$V0S30$RE TURN$1:
  21707      If b$V0 S30skippin g Then GoT o L$V0S25$ RETURN$1
  21708      GoTo L$ WAITFORJOB
  21709   ********** ********** ********** ********** **********
  21710   L$V0S31$ST ART:
  21711   *** Activi ty "LoadCL AIM_LINE_A TTACHMENT" : Initiali ze job
  21712      b$InErr orRef$V0S3 1 = b$InEr rorRef
  21713      h$V0S31  = DSAttac hJob("EDI8 37P_CLAIM_ LINE_ATTAC HMENT_load ", DSJ.ERR NONE)
  21714      If (Not (h$V0S31))  Then
  21715         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21716         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_LINE_ ATTACHMENT _load":@FM :DSGetLast ErrorMsg() )
  21717         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21718      End
  21719      If DSGe tJobInfo(h $V0S31, DS J.JOBMULTI INVOKABLE)  Then
  21720         jb$V 0S31 = "ED I837P_CLAI M_LINE_ATT ACHMENT_lo ad":'.':"L oadCLAIM_L INE_ATTACH MENT"
  21721      End Els e
  21722         jb$V 0S31 = "ED I837P_CLAI M_LINE_ATT ACHMENT_lo ad"
  21723      End
  21724      dummy$  = DSDetach Job(h$V0S3 1)
  21725      b$V0S31 skipping =  @False
  21726      h$V0S31 $cp = "h$V 0S31"
  21727      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 31$cp, cp$ value) = D SJE.NOERRO R Then
  21728         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S31), " @LoadCLAIM _LINE_ATTA CHMENT")
  21729         job$ V0S31$stat us = Raise (cp$value< 1>)
  21730         job$ V0S31$user status = R aise(cp$va lue<2>)
  21731         IdV0 S31%%Resul t2%%45 = j ob$V0S31$u serstatus
  21732         IdV0 S31%%Resul t1%%46 = j ob$V0S31$s tatus
  21733         IdV0 S31%%Name% %47 = jb$V 0S31
  21734         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadCLAIM _LINE_ATTA CHMENT":@F M:jb$V0S31 ))
  21735         b$V0 S31skippin g = @True
  21736         Goto  L$V0S31$S KIPPED
  21737      End
  21738      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adCLAIM_LI NE_ATTACHM ENT":@FM:j b$V0S31))
  21739      h$V0S31  = DSAttac hJob(jb$V0 S31, DSJ.E RRNONE)
  21740      If (Not (h$V0S31))  Then
  21741         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21742         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S31:@ FM:DSGetLa stErrorMsg ())
  21743         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21744      End
  21745      h$V0S31  = DSPrepa reJob(h$V0 S31)
  21746      If (Not (h$V0S31))  Then
  21747         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21748         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S31: @FM:DSGetL astErrorMs g())
  21749         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21750      End
  21751   L$V0S31$PR EPARED:
  21752      p$V0S31 $1 = ($SQL _DB_UID)
  21753      err$cod e = DSSetP aram(h$V0S 31, "$SQL_ DB_UID", p $V0S31$1)
  21754      If (err $code <> D SJE.NOERRO R) Then
  21755         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21756         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  21757         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21758      End
  21759      p$V0S31 $2 = ($SQL _DB_PWD)
  21760      err$cod e = DSSetP aram(h$V0S 31, "$SQL_ DB_PWD", p $V0S31$2)
  21761      If (err $code <> D SJE.NOERRO R) Then
  21762         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21763         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  21764         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21765      End
  21766      p$V0S31 $3 = ($PRO J_DATA_DS)
  21767      err$cod e = DSSetP aram(h$V0S 31, "$PROJ _DATA_DS",  p$V0S31$3 )
  21768      If (err $code <> D SJE.NOERRO R) Then
  21769         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21770         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  21771         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21772      End
  21773      p$V0S31 $4 = ($SQL _DB)
  21774      err$cod e = DSSetP aram(h$V0S 31, "$SQL_ DB", p$V0S 31$4)
  21775      If (err $code <> D SJE.NOERRO R) Then
  21776         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21777         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  21778         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21779      End
  21780      p$V0S31 $5 = (Batc hClaimType )
  21781      err$cod e = DSSetP aram(h$V0S 31, "Batch ClaimType" , p$V0S31$ 5)
  21782      If (err $code <> D SJE.NOERRO R) Then
  21783         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21784         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21785         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21786      End
  21787      p$V0S31 $6 = ($SQL _DB_DSN)
  21788      err$cod e = DSSetP aram(h$V0S 31, "$SQL_ DB_DSN", p $V0S31$6)
  21789      If (err $code <> D SJE.NOERRO R) Then
  21790         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21791         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  21792         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21793      End
  21794      err$cod e = DSRunJ ob(h$V0S31 , DSJ.RUNN ORMAL)
  21795      If (err $code <> D SJE.NOERRO R) Then
  21796         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  -1
  21797         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 31:@FM:err $code)
  21798         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21799      End
  21800      handle$ list<-1> =  h$V0S31
  21801      id$list <-1> = "V0 S31"
  21802      GoTo L$ V0S30$RETU RN$1
  21803   ********** ********** ********** ********** **********
  21804   L$V0S31$FI NISHED:
  21805      job$V0S 31$status  = DSGetJob Info(h$V0S 31, DSJ.JO BSTATUS)
  21806      job$V0S 31$usersta tus = DSGe tJobInfo(h $V0S31, DS J.USERSTAT US)
  21807      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadCLA IM_LINE_AT TACHMENT": @FM:jb$V0S 31:@FM:job $V0S31$sta tus))
  21808      IdV0S31 %%Result2% %45 = job$ V0S31$user status
  21809      IdV0S31 %%Result1% %46 = job$ V0S31$stat us
  21810      IdV0S31 %%Name%%47  = jb$V0S3 1
  21811      dummy$  = DSDetach Job(h$V0S3 1)
  21812      If (job $V0S31$sta tus <> DSJ S.RUNOK An d job$V0S3 1$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21813         err$ source = " LoadCLAIM_ LINE_ATTAC HMENT"; er r$number =  1
  21814         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S3 1)
  21815         msg$ id = "@Loa dCLAIM_LIN E_ATTACHME NT"; GoTo  L$ERROR
  21816      End
  21817      If b$In ErrorRef$V 0S31 Or (j ob$V0S31$s tatus <> D SJS.RUNOK  And job$V0 S31$status  <> DSJS.R UNWARN) Th en Goto L$ V0S31$SKIP PED
  21818      cp$valu e = Lower( job$V0S31$ status)
  21819      cp$valu e<2> = Low er(job$V0S 31$usersta tus)
  21820      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S31$c p, cp$valu e)
  21821      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S31),  "@LoadCLAI M_LINE_ATT ACHMENT")
  21822   ********** ********** ********** ********** **********
  21823   L$V0S31$SK IPPED:
  21824      If b$V0 S31skippin g Then GoT o L$V0S30$ RETURN$1
  21825      GoTo L$ WAITFORJOB
  21826   ********** ********** ********** ********** **********
  21827   L$V0S34$ST ART:
  21828   *** Activi ty "PrepCL AIM_CONDIT ION_CODE":  Initializ e job
  21829      b$InErr orRef$V0S3 4 = b$InEr rorRef
  21830      h$V0S34  = DSAttac hJob("EDI8 37P_CLAIM_ CONDITION_ CODE_prep" , DSJ.ERRN ONE)
  21831      If (Not (h$V0S34))  Then
  21832         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21833         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_CONDI TION_CODE_ prep":@FM: DSGetLastE rrorMsg())
  21834         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21835      End
  21836      If DSGe tJobInfo(h $V0S34, DS J.JOBMULTI INVOKABLE)  Then
  21837         jb$V 0S34 = "ED I837P_CLAI M_CONDITIO N_CODE_pre p":'.':"Pr epCLAIM_CO NDITION_CO DE"
  21838      End Els e
  21839         jb$V 0S34 = "ED I837P_CLAI M_CONDITIO N_CODE_pre p"
  21840      End
  21841      dummy$  = DSDetach Job(h$V0S3 4)
  21842      b$V0S34 skipping =  @False
  21843      h$V0S34 $cp = "h$V 0S34"
  21844      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 34$cp, cp$ value) = D SJE.NOERRO R Then
  21845         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S34), " @PrepCLAIM _CONDITION _CODE")
  21846         job$ V0S34$stat us = Raise (cp$value< 1>)
  21847         job$ V0S34$user status = R aise(cp$va lue<2>)
  21848         IdV0 S34%%Resul t2%%48 = j ob$V0S34$u serstatus
  21849         IdV0 S34%%Resul t1%%49 = j ob$V0S34$s tatus
  21850         IdV0 S34%%Name% %50 = jb$V 0S34
  21851         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "PrepCLAIM _CONDITION _CODE":@FM :jb$V0S34) )
  21852         b$V0 S34skippin g = @True
  21853         Goto  L$V0S34$S KIPPED
  21854      End
  21855      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Pr epCLAIM_CO NDITION_CO DE":@FM:jb $V0S34))
  21856      h$V0S34  = DSAttac hJob(jb$V0 S34, DSJ.E RRNONE)
  21857      If (Not (h$V0S34))  Then
  21858         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21859         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S34:@ FM:DSGetLa stErrorMsg ())
  21860         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21861      End
  21862      h$V0S34  = DSPrepa reJob(h$V0 S34)
  21863      If (Not (h$V0S34))  Then
  21864         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21865         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S34: @FM:DSGetL astErrorMs g())
  21866         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21867      End
  21868   L$V0S34$PR EPARED:
  21869      p$V0S34 $1 = ($PRO J_DATA_SFI LE)
  21870      err$cod e = DSSetP aram(h$V0S 34, "$PROJ _DATA_SFIL E", p$V0S3 4$1)
  21871      If (err $code <> D SJE.NOERRO R) Then
  21872         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21873         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_SF ILE":@FM:e rr$code)
  21874         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21875      End
  21876      p$V0S34 $2 = ($SQL _DB_UID)
  21877      err$cod e = DSSetP aram(h$V0S 34, "$SQL_ DB_UID", p $V0S34$2)
  21878      If (err $code <> D SJE.NOERRO R) Then
  21879         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21880         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  21881         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21882      End
  21883      p$V0S34 $3 = ($SQL _DB_PWD)
  21884      err$cod e = DSSetP aram(h$V0S 34, "$SQL_ DB_PWD", p $V0S34$3)
  21885      If (err $code <> D SJE.NOERRO R) Then
  21886         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21887         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  21888         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21889      End
  21890      p$V0S34 $4 = ($PRO J_DATA_DS)
  21891      err$cod e = DSSetP aram(h$V0S 34, "$PROJ _DATA_DS",  p$V0S34$4 )
  21892      If (err $code <> D SJE.NOERRO R) Then
  21893         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21894         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  21895         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21896      End
  21897      p$V0S34 $5 = (Batc hClaimType )
  21898      err$cod e = DSSetP aram(h$V0S 34, "Batch ClaimType" , p$V0S34$ 5)
  21899      If (err $code <> D SJE.NOERRO R) Then
  21900         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21901         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  21902         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21903      End
  21904      p$V0S34 $6 = ($SQL _DB)
  21905      err$cod e = DSSetP aram(h$V0S 34, "$SQL_ DB", p$V0S 34$6)
  21906      If (err $code <> D SJE.NOERRO R) Then
  21907         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21908         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  21909         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21910      End
  21911      p$V0S34 $7 = ($SQL _DB_DSN)
  21912      err$cod e = DSSetP aram(h$V0S 34, "$SQL_ DB_DSN", p $V0S34$7)
  21913      If (err $code <> D SJE.NOERRO R) Then
  21914         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21915         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  21916         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21917      End
  21918      p$V0S34 $8 = (Batc hID)
  21919      err$cod e = DSSetP aram(h$V0S 34, "Batch ID", p$V0S 34$8)
  21920      If (err $code <> D SJE.NOERRO R) Then
  21921         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21922         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chID":@FM: err$code)
  21923         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21924      End
  21925      err$cod e = DSRunJ ob(h$V0S34 , DSJ.RUNN ORMAL)
  21926      If (err $code <> D SJE.NOERRO R) Then
  21927         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  -1
  21928         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 34:@FM:err $code)
  21929         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21930      End
  21931      handle$ list<-1> =  h$V0S34
  21932      id$list <-1> = "V0 S34"
  21933      GoTo L$ V0S17$RETU RN$1
  21934   ********** ********** ********** ********** **********
  21935   L$V0S34$FI NISHED:
  21936      job$V0S 34$status  = DSGetJob Info(h$V0S 34, DSJ.JO BSTATUS)
  21937      job$V0S 34$usersta tus = DSGe tJobInfo(h $V0S34, DS J.USERSTAT US)
  21938      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "PrepCLA IM_CONDITI ON_CODE":@ FM:jb$V0S3 4:@FM:job$ V0S34$stat us))
  21939      IdV0S34 %%Result2% %48 = job$ V0S34$user status
  21940      IdV0S34 %%Result1% %49 = job$ V0S34$stat us
  21941      IdV0S34 %%Name%%50  = jb$V0S3 4
  21942      dummy$  = DSDetach Job(h$V0S3 4)
  21943      If (job $V0S34$sta tus <> DSJ S.RUNOK An d job$V0S3 4$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  21944         err$ source = " PrepCLAIM_ CONDITION_ CODE"; err $number =  1
  21945         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S3 4)
  21946         msg$ id = "@Pre pCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21947      End
  21948      If b$In ErrorRef$V 0S34 Or (j ob$V0S34$s tatus <> D SJS.RUNOK  And job$V0 S34$status  <> DSJS.R UNWARN) Th en Goto L$ V0S34$SKIP PED
  21949      cp$valu e = Lower( job$V0S34$ status)
  21950      cp$valu e<2> = Low er(job$V0S 34$usersta tus)
  21951      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S34$c p, cp$valu e)
  21952      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S34),  "@PrepCLAI M_CONDITIO N_CODE")
  21953   ********** ********** ********** ********** **********
  21954   L$V0S34$SK IPPED:
  21955      If b$Ab andoning T hen GoTo L $WAITFORJO B
  21956      If (IdV 0S34%%Resu lt1%%49 <  3) Then Go To L$V0S35 $START
  21957   L$V0S34$RE TURN$1:
  21958      If b$V0 S34skippin g Then GoT o L$V0S17$ RETURN$1
  21959      GoTo L$ WAITFORJOB
  21960   ********** ********** ********** ********** **********
  21961   L$V0S35$ST ART:
  21962   *** Activi ty "LoadCL AIM_CONDIT ION_CODE":  Initializ e job
  21963      b$InErr orRef$V0S3 5 = b$InEr rorRef
  21964      h$V0S35  = DSAttac hJob("EDI8 37P_CLAIM_ CONDITION_ CODE_load" , DSJ.ERRN ONE)
  21965      If (Not (h$V0S35))  Then
  21966         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  21967         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  "EDI837P_C LAIM_CONDI TION_CODE_ load":@FM: DSGetLastE rrorMsg())
  21968         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21969      End
  21970      If DSGe tJobInfo(h $V0S35, DS J.JOBMULTI INVOKABLE)  Then
  21971         jb$V 0S35 = "ED I837P_CLAI M_CONDITIO N_CODE_loa d":'.':"Lo adCLAIM_CO NDITION_CO DE"
  21972      End Els e
  21973         jb$V 0S35 = "ED I837P_CLAI M_CONDITIO N_CODE_loa d"
  21974      End
  21975      dummy$  = DSDetach Job(h$V0S3 5)
  21976      b$V0S35 skipping =  @False
  21977      h$V0S35 $cp = "h$V 0S35"
  21978      If DSCh eckPointGe tValue(DSJ .ME, h$V0S 35$cp, cp$ value) = D SJE.NOERRO R Then
  21979         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0021\ \Skipped r un of job  '%1' on re start", jb $V0S35), " @LoadCLAIM _CONDITION _CODE")
  21980         job$ V0S35$stat us = Raise (cp$value< 1>)
  21981         job$ V0S35$user status = R aise(cp$va lue<2>)
  21982         IdV0 S35%%Resul t2%%51 = j ob$V0S35$u serstatus
  21983         IdV0 S35%%Resul t1%%52 = j ob$V0S35$s tatus
  21984         IdV0 S35%%Name% %53 = jb$V 0S35
  21985         summ ary$<1,-1>  = Time$$: Convert(@V M, " ", DS MakeMsg("D STAGE_JSG_ M_0060\\%1  (JOB %2)  skipped",  "LoadCLAIM _CONDITION _CODE":@FM :jb$V0S35) )
  21986         b$V0 S35skippin g = @True
  21987         Goto  L$V0S35$S KIPPED
  21988      End
  21989      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 057\\%1 (J OB %2) sta rted", "Lo adCLAIM_CO NDITION_CO DE":@FM:jb $V0S35))
  21990      h$V0S35  = DSAttac hJob(jb$V0 S35, DSJ.E RRNONE)
  21991      If (Not (h$V0S35))  Then
  21992         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  21993         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 1\\Error c alling DSA ttachJob(% 1)<L>%2",  jb$V0S35:@ FM:DSGetLa stErrorMsg ())
  21994         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  21995      End
  21996      h$V0S35  = DSPrepa reJob(h$V0 S35)
  21997      If (Not (h$V0S35))  Then
  21998         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  21999         msg$  = DSMakeM sg("DSTAGE _JSG_M_001 2\\Error c alling DSP repareJob( %1)<L>%2",  jb$V0S35: @FM:DSGetL astErrorMs g())
  22000         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22001      End
  22002   L$V0S35$PR EPARED:
  22003      p$V0S35 $1 = ($SQL _DB_UID)
  22004      err$cod e = DSSetP aram(h$V0S 35, "$SQL_ DB_UID", p $V0S35$1)
  22005      If (err $code <> D SJE.NOERRO R) Then
  22006         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  22007         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_UID": @FM:err$co de)
  22008         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22009      End
  22010      p$V0S35 $2 = ($SQL _DB_PWD)
  22011      err$cod e = DSSetP aram(h$V0S 35, "$SQL_ DB_PWD", p $V0S35$2)
  22012      If (err $code <> D SJE.NOERRO R) Then
  22013         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  22014         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_PWD": @FM:err$co de)
  22015         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22016      End
  22017      p$V0S35 $3 = ($PRO J_DATA_DS)
  22018      err$cod e = DSSetP aram(h$V0S 35, "$PROJ _DATA_DS",  p$V0S35$3 )
  22019      If (err $code <> D SJE.NOERRO R) Then
  22020         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  22021         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$PR OJ_DATA_DS ":@FM:err$ code)
  22022         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22023      End
  22024      p$V0S35 $4 = ($SQL _DB)
  22025      err$cod e = DSSetP aram(h$V0S 35, "$SQL_ DB", p$V0S 35$4)
  22026      If (err $code <> D SJE.NOERRO R) Then
  22027         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  22028         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB":@FM: err$code)
  22029         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22030      End
  22031      p$V0S35 $5 = (Batc hClaimType )
  22032      err$cod e = DSSetP aram(h$V0S 35, "Batch ClaimType" , p$V0S35$ 5)
  22033      If (err $code <> D SJE.NOERRO R) Then
  22034         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  22035         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "Bat chClaimTyp e":@FM:err $code)
  22036         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22037      End
  22038      p$V0S35 $6 = ($SQL _DB_DSN)
  22039      err$cod e = DSSetP aram(h$V0S 35, "$SQL_ DB_DSN", p $V0S35$6)
  22040      If (err $code <> D SJE.NOERRO R) Then
  22041         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  22042         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 2\\Error c alling DSS etParam(%1 ), code=%2 [E]", "$SQ L_DB_DSN": @FM:err$co de)
  22043         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22044      End
  22045      err$cod e = DSRunJ ob(h$V0S35 , DSJ.RUNN ORMAL)
  22046      If (err $code <> D SJE.NOERRO R) Then
  22047         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  -1
  22048         msg$  = DSMakeM sg("DSTAGE _JSG_M_000 3\\Error c alling DSR unJob(%1),  code=%2[E ]", jb$V0S 35:@FM:err $code)
  22049         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22050      End
  22051      handle$ list<-1> =  h$V0S35
  22052      id$list <-1> = "V0 S35"
  22053      GoTo L$ V0S34$RETU RN$1
  22054   ********** ********** ********** ********** **********
  22055   L$V0S35$FI NISHED:
  22056      job$V0S 35$status  = DSGetJob Info(h$V0S 35, DSJ.JO BSTATUS)
  22057      job$V0S 35$usersta tus = DSGe tJobInfo(h $V0S35, DS J.USERSTAT US)
  22058      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 063\\%1 (J OB %2) fin ished, sta tus=%3[E]" , "LoadCLA IM_CONDITI ON_CODE":@ FM:jb$V0S3 5:@FM:job$ V0S35$stat us))
  22059      IdV0S35 %%Result2% %51 = job$ V0S35$user status
  22060      IdV0S35 %%Result1% %52 = job$ V0S35$stat us
  22061      IdV0S35 %%Name%%53  = jb$V0S3 5
  22062      dummy$  = DSDetach Job(h$V0S3 5)
  22063      If (job $V0S35$sta tus <> DSJ S.RUNOK An d job$V0S3 5$status < > DSJS.RUN WARN And N ot(b$Aband oning)) Th en
  22064         err$ source = " LoadCLAIM_ CONDITION_ CODE"; err $number =  1
  22065         msg$  = DSMakeM sg("DSTAGE _JSG_M_002 4\\Unhandl ed abort e ncountered  in job %1 ", jb$V0S3 5)
  22066         msg$ id = "@Loa dCLAIM_CON DITION_COD E"; GoTo L $ERROR
  22067      End
  22068      If b$In ErrorRef$V 0S35 Or (j ob$V0S35$s tatus <> D SJS.RUNOK  And job$V0 S35$status  <> DSJS.R UNWARN) Th en Goto L$ V0S35$SKIP PED
  22069      cp$valu e = Lower( job$V0S35$ status)
  22070      cp$valu e<2> = Low er(job$V0S 35$usersta tus)
  22071      dummy$  = DSCheckP ointSetVal ue(DSJ.ME,  h$V0S35$c p, cp$valu e)
  22072      Call DS LogInfo(DS MakeMsg("D STAGE_JSG_ M_0025\\Ch eckpointed  run of jo b '%1'", j b$V0S35),  "@LoadCLAI M_CONDITIO N_CODE")
  22073   ********** ********** ********** ********** **********
  22074   L$V0S35$SK IPPED:
  22075      If b$V0 S35skippin g Then GoT o L$V0S34$ RETURN$1
  22076      GoTo L$ WAITFORJOB
  22077   ********** ********** ********** ********** **********
  22078   L$WAITFORJ OB:
  22079      If hand le$list =  "" Then Go To L$FINIS H
  22080      handle$  = DSWaitF orJob(hand le$list)
  22081      If hand le$ = 0 Th en handle$  = handle$ list<1>
  22082      Locate  handle$ In  handle$li st Setting  index$ Th en
  22083         id$  = id$list< index$>
  22084         Del  id$list<in dex$>; Del  handle$li st<index$>
  22085         b$Ab andoning =  abort$lis t<index$>;  Del abort $list<inde x$>
  22086         Begi n Case
  22087         Case  id$ = "V0 S0"
  22088            G oTo L$V0S0 $FINISHED
  22089         Case  id$ = "V0 S3"
  22090            G oTo L$V0S3 $FINISHED
  22091         Case  id$ = "V0 S4"
  22092            G oTo L$V0S4 $FINISHED
  22093         Case  id$ = "V0 S5"
  22094            G oTo L$V0S5 $FINISHED
  22095         Case  id$ = "V0 S8"
  22096            G oTo L$V0S8 $FINISHED
  22097         Case  id$ = "V0 S9"
  22098            G oTo L$V0S9 $FINISHED
  22099         Case  id$ = "V0 S12"
  22100            G oTo L$V0S1 2$FINISHED
  22101         Case  id$ = "V0 S13"
  22102            G oTo L$V0S1 3$FINISHED
  22103         Case  id$ = "V0 S16"
  22104            G oTo L$V0S1 6$FINISHED
  22105         Case  id$ = "V0 S17"
  22106            G oTo L$V0S1 7$FINISHED
  22107         Case  id$ = "V0 S20"
  22108            G oTo L$V0S2 0$FINISHED
  22109         Case  id$ = "V0 S21"
  22110            G oTo L$V0S2 1$FINISHED
  22111         Case  id$ = "V0 S24"
  22112            G oTo L$V0S2 4$FINISHED
  22113         Case  id$ = "V0 S25"
  22114            G oTo L$V0S2 5$FINISHED
  22115         Case  id$ = "V0 S30"
  22116            G oTo L$V0S3 0$FINISHED
  22117         Case  id$ = "V0 S31"
  22118            G oTo L$V0S3 1$FINISHED
  22119         Case  id$ = "V0 S34"
  22120            G oTo L$V0S3 4$FINISHED
  22121         Case  id$ = "V0 S35"
  22122            G oTo L$V0S3 5$FINISHED
  22123         End  Case
  22124      End
  22125   * Error if  fall thou gh
  22126      handle$ list = ""
  22127      err$sou rce = "@Co ordinator" ; err$numb er = -1
  22128      msg$ =  DSMakeMsg( "DSTAGE_JS G_M_0008\\ Error call ing DSWait ForJob(),  code=%1[E] ", handle$ )
  22129      msg$id  = "@Coordi nator"; Go To L$ERROR
  22130   ********** ********** ********** ********** **********
  22131   L$ERROR:
  22132      Call DS LogWarn(DS MakeMsg("D STAGE_JSG_ M_0009\\Co ntroller p roblem: %1 ", msg$),  msg$id)
  22133      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 052\\Excep tion raise d: %1", ms g$id:", ": msg$))
  22134      If Not( b$InErrorR ef) Then
  22135         dumm y$ = DSChe ckPointSet Value(DSJ. ME, "!", D SMakeMsg(" DSTAGE_JSG _M_0031\\F ailed at:  %1, Reason =%2", err$ source:@FM :msg$))
  22136      End
  22137      abort$l ist = Ifs( handle$lis t, Str(1:@ FM, DCount (handle$li st, @FM)),  "")
  22138      b$Aband oning = @T rue
  22139      GoTo L$ WAITFORJOB
  22140   L$ABORT:
  22141      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 055\\Seque nce failed  (restarta ble)", "") )
  22142      x$maske d$summary  = summary$
  22143      Call DS MaskExecAr gs(x$maske d$summary,  '')
  22144      Call DS LogInfo(x$ masked$sum mary, "@Co ordinator" )
  22145      Call DS LogFatal(D SMakeMsg(" DSTAGE_JSG _M_0014\\S equence jo b (restart able) will  abort due  to previo us unrecov erable err ors", ""),  "@Coordin ator")
  22146   ********** ********** ********** ********** **********
  22147   L$FINISH:
  22148      If b$Ab andoning T hen GoTo L $ABORT
  22149   *** At suc cessful ex it remove  checkpoint  record
  22150      If Not( b$InErrorR ef) And DS CheckPoint Exists(DSJ .ME, cp$dt m) Then
  22151         dumm y$ = DSChe ckPointDel ete(DSJ.ME )
  22152         Call  DSLogInfo (DSMakeMsg ("DSTAGE_J SG_M_0018\ \Removed c heckpoint  record at  successful  completio n of seque nce", ""),  "@Coordin ator")
  22153      End
  22154      summary $<1,-1> =  Time$$:Con vert(@VM,  " ", DSMak eMsg("DSTA GE_JSG_M_0 054\\Seque nce finish ed OK", "" ))
  22155      x$maske d$summary  = summary$
  22156      Call DS MaskExecAr gs(x$maske d$summary,  '')
  22157      Call DS LogInfo(x$ masked$sum mary, "@Co ordinator" )
  22158      L$EXIT:  Return To  L$EXIT
  22159    
  22160  
  22161   =+=+=+=
  22162         Cont rolAfterSu br "0"
  22163         Para meters "CP arameters"
  22164         BEGI N DSSUBREC ORD
  22165            N ame "$PROJ _DATA_SFIL E"
  22166            P rompt "Pro ject Data  directory  (sequentia l files)"
  22167            D efault "$P ROJDEF"
  22168            P aramType " 0"
  22169            P aramLength  "0"
  22170            P aramScale  "0"
  22171         END  DSSUBRECOR D
  22172         BEGI N DSSUBREC ORD
  22173            N ame "$PROJ _DATA_AUDL OGS"
  22174            P rompt "Pro ject Data  directory  (nonconfor ming recor ds locatio n)"
  22175            D efault "$P ROJDEF"
  22176            P aramType " 0"
  22177            P aramLength  "0"
  22178            P aramScale  "0"
  22179         END  DSSUBRECOR D
  22180         BEGI N DSSUBREC ORD
  22181            N ame "$PROJ _DATA_DS"
  22182            P rompt "Pro ject Data  directory  (datasets) "
  22183            D efault "$P ROJDEF"
  22184            P aramType " 0"
  22185            P aramLength  "0"
  22186            P aramScale  "0"
  22187         END  DSSUBRECOR D
  22188         BEGI N DSSUBREC ORD
  22189            N ame "$SQL_ DB_UID"
  22190            P rompt "MSS QL DB User -id"
  22191            D efault "$P ROJDEF"
  22192            P aramType " 0"
  22193            P aramLength  "0"
  22194            P aramScale  "0"
  22195         END  DSSUBRECOR D
  22196         BEGI N DSSUBREC ORD
  22197            N ame "$SQL_ DB_PWD"
  22198            P rompt "MSS QL DB Pass word"
  22199            D efault "LE 8@1HVA<9C= 067ID:N<AO AEF<="
  22200            P aramType " 1"
  22201            P aramLength  "0"
  22202            P aramScale  "0"
  22203         END  DSSUBRECOR D
  22204         BEGI N DSSUBREC ORD
  22205            N ame "$SQL_ DB_DSN"
  22206            P rompt "MSS QL DB Data  Source Na me (DSN)"
  22207            D efault "$P ROJDEF"
  22208            P aramType " 0"
  22209            P aramLength  "0"
  22210            P aramScale  "0"
  22211         END  DSSUBRECOR D
  22212         BEGI N DSSUBREC ORD
  22213            N ame "$SQL_ DB"
  22214            P rompt "Tar get (data  load) Data base"
  22215            D efault "$P ROJDEF"
  22216            P aramType " 0"
  22217            P aramLength  "0"
  22218            P aramScale  "0"
  22219         END  DSSUBRECOR D
  22220         BEGI N DSSUBREC ORD
  22221            N ame "Batch ClaimType"
  22222            P rompt "Bat ch Claim T ype"
  22223            P aramType " 0"
  22224            P aramLength  "0"
  22225            P aramScale  "0"
  22226         END  DSSUBRECOR D
  22227         BEGI N DSSUBREC ORD
  22228            N ame "Batch ID"
  22229            P rompt "Bat ch ID"
  22230            P aramType " 0"
  22231            P aramLength  "0"
  22232            P aramScale  "0"
  22233         END  DSSUBRECOR D
  22234         Meta Bag "CMeta Property"
  22235         BEGI N DSSUBREC ORD
  22236            O wner "APT"
  22237            N ame "Advan cedRuntime Options"
  22238            V alue "#DSP rojectARTO ptions#"
  22239         END  DSSUBRECOR D
  22240         BEGI N DSSUBREC ORD
  22241            O wner "APT"
  22242            N ame "Seque nceUseGrid Properties "
  22243            V alue "0"
  22244         END  DSSUBRECOR D
  22245         NULL IndicatorP osition "0 "
  22246         Depe ndencies " CJobDepend "
  22247         BEGI N DSSUBREC ORD
  22248            N ame "EDI83 7P_F_PROFE SSIONAL_CL AIMS_prep"
  22249            T ype "0"
  22250         END  DSSUBRECOR D
  22251         BEGI N DSSUBREC ORD
  22252            N ame "EDI83 7P_F_PROFE SSIONAL_CL AIMS_load"
  22253            T ype "0"
  22254         END  DSSUBRECOR D
  22255         BEGI N DSSUBREC ORD
  22256            N ame "EDI83 7P_CLAIM_L INE_DIAGNO SIS_prep"
  22257            T ype "0"
  22258         END  DSSUBRECOR D
  22259         BEGI N DSSUBREC ORD
  22260            N ame "EDI83 7P_CLAIM_L INE_DIAGNO SIS_load"
  22261            T ype "0"
  22262         END  DSSUBRECOR D
  22263         BEGI N DSSUBREC ORD
  22264            N ame "EDI83 7P_CLAIM_L INE_MODIFI ER_prep"
  22265            T ype "0"
  22266         END  DSSUBRECOR D
  22267         BEGI N DSSUBREC ORD
  22268            N ame "EDI83 7P_CLAIM_L INE_MODIFI ER_load"
  22269            T ype "0"
  22270         END  DSSUBRECOR D
  22271         BEGI N DSSUBREC ORD
  22272            N ame "EDI83 7P_CLAIM_L INE_DME_pr ep"
  22273            T ype "0"
  22274         END  DSSUBRECOR D
  22275         BEGI N DSSUBREC ORD
  22276            N ame "EDI83 7P_CLAIM_L INE_DME_lo ad"
  22277            T ype "0"
  22278         END  DSSUBRECOR D
  22279         BEGI N DSSUBREC ORD
  22280            N ame "EDI83 7P_CLAIM_L INE_SUPP_D OC_prep"
  22281            T ype "0"
  22282         END  DSSUBRECOR D
  22283         BEGI N DSSUBREC ORD
  22284            N ame "EDI83 7P_CLAIM_L INE_SUPP_D OC_load"
  22285            T ype "0"
  22286         END  DSSUBRECOR D
  22287         BEGI N DSSUBREC ORD
  22288            N ame "EDI83 7P_CLAIM_L INE_DRUG_p rep"
  22289            T ype "0"
  22290         END  DSSUBRECOR D
  22291         BEGI N DSSUBREC ORD
  22292            N ame "EDI83 7P_CLAIM_L INE_DRUG_l oad"
  22293            T ype "0"
  22294         END  DSSUBRECOR D
  22295         BEGI N DSSUBREC ORD
  22296            N ame "EDI83 7P_CLAIM_L INE_MED_TE ST_prep"
  22297            T ype "0"
  22298         END  DSSUBRECOR D
  22299         BEGI N DSSUBREC ORD
  22300            N ame "EDI83 7P_CLAIM_L INE_MED_TE ST_load"
  22301            T ype "0"
  22302         END  DSSUBRECOR D
  22303         BEGI N DSSUBREC ORD
  22304            N ame "EDI83 7P_CLAIM_L INE_ATTACH MENT_prep"
  22305            T ype "0"
  22306         END  DSSUBRECOR D
  22307         BEGI N DSSUBREC ORD
  22308            N ame "EDI83 7P_CLAIM_L INE_ATTACH MENT_load"
  22309            T ype "0"
  22310         END  DSSUBRECOR D
  22311         BEGI N DSSUBREC ORD
  22312            N ame "EDI83 7P_CLAIM_C ONDITION_C ODE_prep"
  22313            T ype "0"
  22314         END  DSSUBRECOR D
  22315         BEGI N DSSUBREC ORD
  22316            N ame "EDI83 7P_CLAIM_C ONDITION_C ODE_load"
  22317            T ype "0"
  22318         END  DSSUBRECOR D
  22319         IsTe mplate "0"
  22320         NLSL ocale ",,, ,"
  22321         JobT ype "2"
  22322         Cate gory "\\Jo bs\\PIT\\C P&E_EDI\\S equence"
  22323         Cent uryBreakYe ar "30"
  22324         Next AliasID "2 "
  22325         Para meterFileD DName "DD0 0001"
  22326         Rese rvedWordCh eck "1"
  22327         Tran sactionSiz e "0"
  22328         Vali dationStat us "0"
  22329         Uplo adable "0"
  22330         PgmC ustomizati onFlag "0"
  22331         JobR eportFlag  "0"
  22332         Allo wMultipleI nvocations  "0"
  22333         JobS eqCodeGenO pts "check points,han dleaborts"
  22334         Act2 ActOveride Defaults " 0"
  22335         Act2 ActEnableR owBuffer " 0"
  22336         Act2 ActUseIPC  "0"
  22337         Act2 ActBufferS ize "0"
  22338         Act2 ActIPCTime out "0"
  22339         Expr essionSema nticCheckF lag "0"
  22340         Trac eOption "0 "
  22341         Enab leCacheSha ring "0"
  22342         Runt imeColumnP ropagation  "0"
  22343         RelS tagesInJob Status "-1 "
  22344         WebS erviceEnab led "0"
  22345         MFPr ocessMetaD ata "0"
  22346         MFPr ocessMetaD ataXMLFile ExchangeMe thod "0"
  22347         IMSP rogType "0 "
  22348         Copy LibPrefix  "ARDT"
  22349         Reco rdPerforma nceResults  "0"
  22350      END DSR ECORD
  22351      BEGIN D SRECORD
  22352         Iden tifier "V0 "
  22353         OLET ype "CCont ainerView"
  22354         Read only "0"
  22355         Name  "Job"
  22356         Next ID "1"
  22357         IsTo pLevel "0"
  22358         Stag eList "V0S 0|V0S3|V0S 4|V0S5|V0S 8|V0S9|V0S 12|V0S13|V 0S16|V0S17 |V0S20|V0S 21|V0S24|V 0S25|V0S30 |V0S31|V0S 34|V0S35"
  22359         Stag eXPos "144 |336|552|7 92|576|792 |1008|1248 |1488|1704 |1032|1296 |1536|1800 |2064|2328 |1968|2232 "
  22360         Stag eYPos "336 |336|144|1 44|456|456 |456|456|4 56|456|144 |144|144|1 44|144|144 |456|456"
  22361         Stag eTypes "CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity|CJ SJobActivi ty|CJSJobA ctivity"
  22362         Next StageID "3 8"
  22363         Snap ToGrid "1"
  22364         Grid Lines "0"
  22365         Zoom Value "100 "
  22366         Stag eXSize "48 |48|48|48| 48|48|48|4 8|48|48|48 |48|48|48| 48|48|48|4 8"
  22367         Stag eYSize "48 |48|48|48| 48|48|48|4 8|48|48|48 |48|48|48| 48|48|48|4 8"
  22368         Cont ainerViewS izing "006 6 0066 088 0 0604 000 0 0001 104 0 0000"
  22369         Stag eNames "Pr epF_Prof_M edical_Cla im_Details |LoadF_Pro f_Medical_ Claim_Deta ils|PrepCL AIM_LINE_D IAGNOSIS|L oadCLAIM_L INE_DIAGNO SIS|PrepCL AIM_LINE_M ODIFIER|Lo adCLAIM_LI NE_MODIFIE R|PrepCLAI M_LINE_DME |LoadCLAIM _LINE_DME| Prep_CLAIM _LINE_SUPP _DOC|Load_ CLAIM_LINE _SUPP_DOC| PrepCLAIM_ LINE_DRUG| LoadCLAIM_ LINE_DRUG| PrepCLAIM_ LINE_MED_T EST|LoadCL AIM_LINE_M ED_TEST|Pr epCLAIM_LI NE_ATTACHM ENT|LoadCL AIM_LINE_A TTACHMENT| PrepCLAIM_ CONDITION_ CODE|LoadC LAIM_CONDI TION_CODE"
  22370         Stag eTypeIDs " CJobActivi ty|CJobAct ivity|CJob Activity|C JobActivit y|CJobActi vity|CJobA ctivity|CJ obActivity |CJobActiv ity|CJobAc tivity|CJo bActivity| CJobActivi ty|CJobAct ivity|CJob Activity|C JobActivit y|CJobActi vity|CJobA ctivity|CJ obActivity |CJobActiv ity"
  22371         Link Names "ToL oadFactDet ailsPrep|P repClaimLi neDiagnosi s,PrepClai mLineModif ier|ToClai mLineDiagL oad|ToPrep ClaimLineD rug|ToLoad ClaimLineM odifier|To PrepClaimL ineDME|ToL oadClaimLi neDME|ToPr epCLAIM_LI NE_SUPP_DO C|ToLoadCL AIM_LINE_S UPP_DOC|To PrepClaimC onditionCo de|ToLoadC laimLineDr ug|ToPrepC laimLineMe dTest|ToLo adClaimLin eMedTest|T oPrepClaim LineAttach |ToLoadCla imLineAtta ch| |ToLoa dClaimCond itionCode|  "
  22372         Link HasMetaDat as "False| False,Fals e|False|Fa lse|False| False|Fals e|False|Fa lse|False| False|Fals e|False|Fa lse|False|  |False| "
  22373         Link Types "1|1 ,1|1|1|1|1 |1|1|1|1|1 |1|1|1|1|  |1| "
  22374         Link NamePositi onXs "214| 358,438|56 6|903|636| 882|1100|1 345|1560|1 821|1164|1 396|1644|1 956|2220|  |2084| "
  22375         Link NamePositi onYs "340| 236,433|17 5|169|480| 482|481|48 0|480|484| 168|168|16 8|168|168|  |482| "
  22376         Targ etStageIDs  "V0S3|V0S 4,V0S8|V0S 5|V0S20|V0 S9|V0S12|V 0S13|V0S16 |V0S17|V0S 34|V0S21|V 0S24|V0S25 |V0S30|V0S 31| |V0S35 | "
  22377         Sour ceStageEff ectiveExec utionModes  "0|0,0|0| 0|0|0|0|0| 0|0|0|0|0| 0|0| |0| "
  22378         Sour ceStageRun timeExecut ionModes " 0|0,0|0|0| 0|0|0|0|0| 0|0|0|0|0| 0| |0| "
  22379         Targ etStageEff ectiveExec utionModes  "0|0,0|0| 0|0|0|0|0| 0|0|0|0|0| 0|0| |0| "
  22380         Targ etStageRun timeExecut ionModes " 0|0,0|0|0| 0|0|0|0|0| 0|0|0|0|0| 0| |0| "
  22381         Link IsSingleOp eratorLook up "False| False,Fals e|False|Fa lse|False| False|Fals e|False|Fa lse|False| False|Fals e|False|Fa lse|False|  |False| "
  22382         Link IsSortSequ ential "Fa lse|False, False|Fals e|False|Fa lse|False| False|Fals e|False|Fa lse|False| False|Fals e|False|Fa lse| |Fals e| "
  22383         Link SortMode " 0|0,0|0|0| 0|0|0|0|0| 0|0|0|0|0| 0| |0| "
  22384         Link PartColMod e "0|0,0|0 |0|0|0|0|0 |0|0|0|0|0 |0|0| |0|  "
  22385         Link SourcePinI Ds "V0S0P1 |V0S3P2,V0 S3P3|V0S4P 2|V0S5P2|V 0S8P2|V0S9 P2|V0S12P2 |V0S13P2|V 0S16P2|V0S 17P2|V0S20 P2|V0S21P2 |V0S24P2|V 0S25P2|V0S 30P2| |V0S 34P2| "
  22386      END DSR ECORD
  22387      BEGIN D SRECORD
  22388         Iden tifier "V0 S0"
  22389         OLET ype "CJSJo bActivity"
  22390         Read only "0"
  22391         Name  "PrepF_Pr of_Medical _Claim_Det ails"
  22392         Next ID "2"
  22393         Outp utPins "V0 S0P1"
  22394         JobT ype "0"
  22395         Exec utionType  "1"
  22396         Jobn ame "EDI83 7P_F_PROFE SSIONAL_CL AIMS_prep"
  22397         Para meterValue s "CParamV alues"
  22398         BEGI N DSSUBREC ORD
  22399            N ame "$PROJ _DATA_AUDL OGS"
  22400            D escription  "$PROJ_DA TA_AUDLOGS "
  22401            V alueType " 4"
  22402            D isplayValu e "$PROJ_D ATA_AUDLOG S"
  22403         END  DSSUBRECOR D
  22404         BEGI N DSSUBREC ORD
  22405            N ame "$PROJ _DATA_SFIL E"
  22406            D escription  "$PROJ_DA TA_SFILE"
  22407            V alueType " 4"
  22408            D isplayValu e "$PROJ_D ATA_SFILE"
  22409         END  DSSUBRECOR D
  22410         BEGI N DSSUBREC ORD
  22411            N ame "$SQL_ DB_DSN"
  22412            D escription  "$SQL_DB_ DSN"
  22413            V alueType " 4"
  22414            D isplayValu e "$SQL_DB _DSN"
  22415         END  DSSUBRECOR D
  22416         BEGI N DSSUBREC ORD
  22417            N ame "$SQL_ DB_UID"
  22418            D escription  "$SQL_DB_ UID"
  22419            V alueType " 4"
  22420            D isplayValu e "$SQL_DB _UID"
  22421         END  DSSUBRECOR D
  22422         BEGI N DSSUBREC ORD
  22423            N ame "$SQL_ DB_PWD"
  22424            D escription  "$SQL_DB_ PWD"
  22425            V alueType " 4"
  22426            D isplayValu e "$SQL_DB _PWD"
  22427         END  DSSUBRECOR D
  22428         BEGI N DSSUBREC ORD
  22429            N ame "$PROJ _DATA_DS"
  22430            D escription  "$PROJ_DA TA_DS"
  22431            V alueType " 4"
  22432            D isplayValu e "$PROJ_D ATA_DS"
  22433         END  DSSUBRECOR D
  22434         BEGI N DSSUBREC ORD
  22435            N ame "Batch ID"
  22436            D escription  "BatchID"
  22437            V alueType " 4"
  22438            D isplayValu e "BatchID "
  22439         END  DSSUBRECOR D
  22440         BEGI N DSSUBREC ORD
  22441            N ame "FeedD ate"
  22442            D escription  "FeedDate "
  22443            V alueType " 4"
  22444            D isplayValu e "FeedDat e"
  22445         END  DSSUBRECOR D
  22446         BEGI N DSSUBREC ORD
  22447            N ame "FeedD ateStr"
  22448            D escription  "FeedDate Str"
  22449            V alueType " 4"
  22450            D isplayValu e "FeedDat eStr"
  22451         END  DSSUBRECOR D
  22452         BEGI N DSSUBREC ORD
  22453            N ame "Batch ClaimType"
  22454            D escription  "BatchCla imType"
  22455            V alueType " 4"
  22456            D isplayValu e "BatchCl aimType"
  22457         END  DSSUBRECOR D
  22458         BEGI N DSSUBREC ORD
  22459            N ame "$SQL_ DB"
  22460            D escription  "$SQL_DB"
  22461            V alueType " 4"
  22462            D isplayValu e "$SQL_DB "
  22463         END  DSSUBRECOR D
  22464         BEGI N DSSUBREC ORD
  22465            N ame "$APT_ CONFIG_FIL E"
  22466            D escription  "\"D:\\IB M\\Informa tionServer \\Server\\ Configurat ions\\Sing leNode.apt \""
  22467            V alueType " 4"
  22468            D isplayValu e "\"D:\\I BM\\Inform ationServe r\\Server\ \Configura tions\\Sin gleNode.ap t\""
  22469         END  DSSUBRECOR D
  22470         Chec kPoint "1"
  22471         Stag eType "CJo bActivity"
  22472      END DSR ECORD
  22473      BEGIN D SRECORD
  22474         Iden tifier "V0 S0P1"
  22475         OLET ype "CJSAc tivityOutp ut"
  22476         Read only "0"
  22477         Name  "ToLoadFa ctDetailsP rep"
  22478         Part ner "V0S3| V0S3P1"
  22479         Cond itionType  "6"
  22480         Trig gerExpress ion "PrepF _Prof_Medi cal_Claim_ Details.$J obStatus < 3"
  22481         Left TextPos "2 14"
  22482         TopT extPos "34 0"
  22483         Sour ceID "V0S0 "
  22484      END DSR ECORD
  22485      BEGIN D SRECORD
  22486         Iden tifier "V0 S12"
  22487         OLET ype "CJSJo bActivity"
  22488         Read only "0"
  22489         Name  "PrepCLAI M_LINE_DME "
  22490         Next ID "3"
  22491         Inpu tPins "V0S 12P1"
  22492         Outp utPins "V0 S12P2"
  22493         JobT ype "0"
  22494         Exec utionType  "1"
  22495         Jobn ame "EDI83 7P_CLAIM_L INE_DME_pr ep"
  22496         Para meterValue s "CParamV alues"
  22497         BEGI N DSSUBREC ORD
  22498            N ame "$PROJ _DATA_SFIL E"
  22499            D escription  "$PROJ_DA TA_SFILE"
  22500            V alueType " 4"
  22501            D isplayValu e "$PROJ_D ATA_SFILE"
  22502         END  DSSUBRECOR D
  22503         BEGI N DSSUBREC ORD
  22504            N ame "$SQL_ DB_UID"
  22505            D escription  "$SQL_DB_ UID"
  22506            V alueType " 4"
  22507            D isplayValu e "$SQL_DB _UID"
  22508         END  DSSUBRECOR D
  22509         BEGI N DSSUBREC ORD
  22510            N ame "$SQL_ DB_PWD"
  22511            D escription  "$SQL_DB_ PWD"
  22512            V alueType " 4"
  22513            D isplayValu e "$SQL_DB _PWD"
  22514         END  DSSUBRECOR D
  22515         BEGI N DSSUBREC ORD
  22516            N ame "$PROJ _DATA_DS"
  22517            D escription  "$PROJ_DA TA_DS"
  22518            V alueType " 4"
  22519            D isplayValu e "$PROJ_D ATA_DS"
  22520         END  DSSUBRECOR D
  22521         BEGI N DSSUBREC ORD
  22522            N ame "Batch ClaimType"
  22523            D escription  "BatchCla imType"
  22524            V alueType " 4"
  22525            D isplayValu e "BatchCl aimType"
  22526         END  DSSUBRECOR D
  22527         BEGI N DSSUBREC ORD
  22528            N ame "$SQL_ DB"
  22529            D escription  "$SQL_DB"
  22530            V alueType " 4"
  22531            D isplayValu e "$SQL_DB "
  22532         END  DSSUBRECOR D
  22533         BEGI N DSSUBREC ORD
  22534            N ame "$SQL_ DB_DSN"
  22535            D escription  "$SQL_DB_ DSN"
  22536            V alueType " 4"
  22537            D isplayValu e "$SQL_DB _DSN"
  22538         END  DSSUBRECOR D
  22539         BEGI N DSSUBREC ORD
  22540            N ame "Batch ID"
  22541            D escription  "BatchID"
  22542            V alueType " 4"
  22543            D isplayValu e "BatchID "
  22544         END  DSSUBRECOR D
  22545         Chec kPoint "0"
  22546         Stag eType "CJo bActivity"
  22547      END DSR ECORD
  22548      BEGIN D SRECORD
  22549         Iden tifier "V0 S12P1"
  22550         OLET ype "CJSAc tivityInpu t"
  22551         Read only "0"
  22552         Name  "ToPrepCl aimLineDME "
  22553         Part ner "V0S9| V0S9P2"
  22554         Link Type "1"
  22555      END DSR ECORD
  22556      BEGIN D SRECORD
  22557         Iden tifier "V0 S12P2"
  22558         OLET ype "CJSAc tivityOutp ut"
  22559         Read only "0"
  22560         Name  "ToLoadCl aimLineDME "
  22561         Part ner "V0S13 |V0S13P1"
  22562         Cond itionType  "6"
  22563         Trig gerExpress ion "PrepC LAIM_LINE_ DME.$JobSt atus <3"
  22564         Left TextPos "1 100"
  22565         TopT extPos "48 1"
  22566         Sour ceID "V0S1 2"
  22567      END DSR ECORD
  22568      BEGIN D SRECORD
  22569         Iden tifier "V0 S13"
  22570         OLET ype "CJSJo bActivity"
  22571         Read only "0"
  22572         Name  "LoadCLAI M_LINE_DME "
  22573         Next ID "3"
  22574         Inpu tPins "V0S 13P1"
  22575         Outp utPins "V0 S13P2"
  22576         JobT ype "0"
  22577         Exec utionType  "1"
  22578         Jobn ame "EDI83 7P_CLAIM_L INE_DME_lo ad"
  22579         Para meterValue s "CParamV alues"
  22580         BEGI N DSSUBREC ORD
  22581            N ame "$SQL_ DB_UID"
  22582            D escription  "$SQL_DB_ UID"
  22583            V alueType " 4"
  22584            D isplayValu e "$SQL_DB _UID"
  22585         END  DSSUBRECOR D
  22586         BEGI N DSSUBREC ORD
  22587            N ame "$SQL_ DB_PWD"
  22588            D escription  "$SQL_DB_ PWD"
  22589            V alueType " 4"
  22590            D isplayValu e "$SQL_DB _PWD"
  22591         END  DSSUBRECOR D
  22592         BEGI N DSSUBREC ORD
  22593            N ame "$PROJ _DATA_DS"
  22594            D escription  "$PROJ_DA TA_DS"
  22595            V alueType " 4"
  22596            D isplayValu e "$PROJ_D ATA_DS"
  22597         END  DSSUBRECOR D
  22598         BEGI N DSSUBREC ORD
  22599            N ame "Batch ClaimType"
  22600            D escription  "BatchCla imType"
  22601            V alueType " 4"
  22602            D isplayValu e "BatchCl aimType"
  22603         END  DSSUBRECOR D
  22604         BEGI N DSSUBREC ORD
  22605            N ame "$SQL_ DB"
  22606            D escription  "$SQL_DB"
  22607            V alueType " 4"
  22608            D isplayValu e "$SQL_DB "
  22609         END  DSSUBRECOR D
  22610         BEGI N DSSUBREC ORD
  22611            N ame "$SQL_ DB_DSN"
  22612            D escription  "$SQL_DB_ DSN"
  22613            V alueType " 4"
  22614            D isplayValu e "$SQL_DB _DSN"
  22615         END  DSSUBRECOR D
  22616         Chec kPoint "0"
  22617         Stag eType "CJo bActivity"
  22618      END DSR ECORD
  22619      BEGIN D SRECORD
  22620         Iden tifier "V0 S13P1"
  22621         OLET ype "CJSAc tivityInpu t"
  22622         Read only "0"
  22623         Name  "ToLoadCl aimLineDME "
  22624         Part ner "V0S12 |V0S12P2"
  22625         Link Type "1"
  22626      END DSR ECORD
  22627      BEGIN D SRECORD
  22628         Iden tifier "V0 S13P2"
  22629         OLET ype "CJSAc tivityOutp ut"
  22630         Read only "0"
  22631         Name  "ToPrepCL AIM_LINE_S UPP_DOC"
  22632         Part ner "V0S16 |V0S16P1"
  22633         Cond itionType  "6"
  22634         Trig gerExpress ion "LoadC LAIM_LINE_ DME.$JobSt atus < 3"
  22635         Left TextPos "1 345"
  22636         TopT extPos "48 0"
  22637         Sour ceID "V0S1 3"
  22638      END DSR ECORD
  22639      BEGIN D SRECORD
  22640         Iden tifier "V0 S16"
  22641         OLET ype "CJSJo bActivity"
  22642         Read only "0"
  22643         Name  "Prep_CLA IM_LINE_SU PP_DOC"
  22644         Next ID "3"
  22645         Inpu tPins "V0S 16P1"
  22646         Outp utPins "V0 S16P2"
  22647         JobT ype "0"
  22648         Exec utionType  "1"
  22649         Jobn ame "EDI83 7P_CLAIM_L INE_SUPP_D OC_prep"
  22650         Para meterValue s "CParamV alues"
  22651         BEGI N DSSUBREC ORD
  22652            N ame "Batch ClaimType"
  22653            D escription  "BatchCla imType"
  22654            V alueType " 4"
  22655            D isplayValu e "BatchCl aimType"
  22656         END  DSSUBRECOR D
  22657         BEGI N DSSUBREC ORD
  22658            N ame "Batch ID"
  22659            D escription  "BatchID"
  22660            V alueType " 4"
  22661            D isplayValu e "BatchID "
  22662         END  DSSUBRECOR D
  22663         Chec kPoint "0"
  22664         Stag eType "CJo bActivity"
  22665      END DSR ECORD
  22666      BEGIN D SRECORD
  22667         Iden tifier "V0 S16P1"
  22668         OLET ype "CJSAc tivityInpu t"
  22669         Read only "0"
  22670         Name  "ToPrepCL AIM_LINE_S UPP_DOC"
  22671         Part ner "V0S13 |V0S13P2"
  22672         Link Type "1"
  22673      END DSR ECORD
  22674      BEGIN D SRECORD
  22675         Iden tifier "V0 S16P2"
  22676         OLET ype "CJSAc tivityOutp ut"
  22677         Read only "0"
  22678         Name  "ToLoadCL AIM_LINE_S UPP_DOC"
  22679         Part ner "V0S17 |V0S17P1"
  22680         Cond itionType  "6"
  22681         Trig gerExpress ion "Prep_ CLAIM_LINE _SUPP_DOC. $JobStatus  < 3"
  22682         Left TextPos "1 560"
  22683         TopT extPos "48 0"
  22684         Sour ceID "V0S1 6"
  22685      END DSR ECORD
  22686      BEGIN D SRECORD
  22687         Iden tifier "V0 S17"
  22688         OLET ype "CJSJo bActivity"
  22689         Read only "0"
  22690         Name  "Load_CLA IM_LINE_SU PP_DOC"
  22691         Next ID "3"
  22692         Inpu tPins "V0S 17P1"
  22693         Outp utPins "V0 S17P2"
  22694         JobT ype "0"
  22695         Exec utionType  "1"
  22696         Jobn ame "EDI83 7P_CLAIM_L INE_SUPP_D OC_load"
  22697         Para meterValue s "CParamV alues"
  22698         BEGI N DSSUBREC ORD
  22699            N ame "Batch ClaimType"
  22700            D escription  "BatchCla imType"
  22701            V alueType " 4"
  22702            D isplayValu e "BatchCl aimType"
  22703         END  DSSUBRECOR D
  22704         Chec kPoint "0"
  22705         Stag eType "CJo bActivity"
  22706      END DSR ECORD
  22707      BEGIN D SRECORD
  22708         Iden tifier "V0 S17P1"
  22709         OLET ype "CJSAc tivityInpu t"
  22710         Read only "0"
  22711         Name  "ToLoadCL AIM_LINE_S UPP_DOC"
  22712         Part ner "V0S16 |V0S16P2"
  22713         Link Type "1"
  22714      END DSR ECORD
  22715      BEGIN D SRECORD
  22716         Iden tifier "V0 S17P2"
  22717         OLET ype "CJSAc tivityOutp ut"
  22718         Read only "0"
  22719         Name  "ToPrepCl aimConditi onCode"
  22720         Part ner "V0S34 |V0S34P1"
  22721         Cond itionType  "6"
  22722         Trig gerExpress ion "Load_ CLAIM_LINE _SUPP_DOC. $JobStatus  < 3"
  22723         Left TextPos "1 821"
  22724         TopT extPos "48 4"
  22725         Sour ceID "V0S1 7"
  22726      END DSR ECORD
  22727      BEGIN D SRECORD
  22728         Iden tifier "V0 S20"
  22729         OLET ype "CJSJo bActivity"
  22730         Read only "0"
  22731         Name  "PrepCLAI M_LINE_DRU G"
  22732         Next ID "3"
  22733         Inpu tPins "V0S 20P1"
  22734         Outp utPins "V0 S20P2"
  22735         JobT ype "0"
  22736         Exec utionType  "1"
  22737         Jobn ame "EDI83 7P_CLAIM_L INE_DRUG_p rep"
  22738         Para meterValue s "CParamV alues"
  22739         BEGI N DSSUBREC ORD
  22740            N ame "$PROJ _DATA_SFIL E"
  22741            D escription  "$PROJ_DA TA_SFILE"
  22742            V alueType " 4"
  22743            D isplayValu e "$PROJ_D ATA_SFILE"
  22744         END  DSSUBRECOR D
  22745         BEGI N DSSUBREC ORD
  22746            N ame "$SQL_ DB_UID"
  22747            D escription  "$SQL_DB_ UID"
  22748            V alueType " 4"
  22749            D isplayValu e "$SQL_DB _UID"
  22750         END  DSSUBRECOR D
  22751         BEGI N DSSUBREC ORD
  22752            N ame "$SQL_ DB_PWD"
  22753            D escription  "$SQL_DB_ PWD"
  22754            V alueType " 4"
  22755            D isplayValu e "$SQL_DB _PWD"
  22756         END  DSSUBRECOR D
  22757         BEGI N DSSUBREC ORD
  22758            N ame "$PROJ _DATA_DS"
  22759            D escription  "$PROJ_DA TA_DS"
  22760            V alueType " 4"
  22761            D isplayValu e "$PROJ_D ATA_DS"
  22762         END  DSSUBRECOR D
  22763         BEGI N DSSUBREC ORD
  22764            N ame "Batch ClaimType"
  22765            D escription  "BatchCla imType"
  22766            V alueType " 4"
  22767            D isplayValu e "BatchCl aimType"
  22768         END  DSSUBRECOR D
  22769         BEGI N DSSUBREC ORD
  22770            N ame "$SQL_ DB"
  22771            D escription  "$SQL_DB"
  22772            V alueType " 4"
  22773            D isplayValu e "$SQL_DB "
  22774         END  DSSUBRECOR D
  22775         BEGI N DSSUBREC ORD
  22776            N ame "$SQL_ DB_DSN"
  22777            D escription  "$SQL_DB_ DSN"
  22778            V alueType " 4"
  22779            D isplayValu e "$SQL_DB _DSN"
  22780         END  DSSUBRECOR D
  22781         BEGI N DSSUBREC ORD
  22782            N ame "Batch ID"
  22783            D escription  "BatchID"
  22784            V alueType " 4"
  22785            D isplayValu e "BatchID "
  22786         END  DSSUBRECOR D
  22787         Chec kPoint "0"
  22788         Stag eType "CJo bActivity"
  22789      END DSR ECORD
  22790      BEGIN D SRECORD
  22791         Iden tifier "V0 S20P1"
  22792         OLET ype "CJSAc tivityInpu t"
  22793         Read only "0"
  22794         Name  "ToPrepCl aimLineDru g"
  22795         Part ner "V0S5| V0S5P2"
  22796         Link Type "1"
  22797      END DSR ECORD
  22798      BEGIN D SRECORD
  22799         Iden tifier "V0 S20P2"
  22800         OLET ype "CJSAc tivityOutp ut"
  22801         Read only "0"
  22802         Name  "ToLoadCl aimLineDru g"
  22803         Part ner "V0S21 |V0S21P1"
  22804         Cond itionType  "6"
  22805         Trig gerExpress ion "PrepC LAIM_LINE_ DRUG.$JobS tatus <3"
  22806         Left TextPos "1 164"
  22807         TopT extPos "16 8"
  22808         Sour ceID "V0S2 0"
  22809      END DSR ECORD
  22810      BEGIN D SRECORD
  22811         Iden tifier "V0 S21"
  22812         OLET ype "CJSJo bActivity"
  22813         Read only "0"
  22814         Name  "LoadCLAI M_LINE_DRU G"
  22815         Next ID "3"
  22816         Inpu tPins "V0S 21P1"
  22817         Outp utPins "V0 S21P2"
  22818         JobT ype "0"
  22819         Exec utionType  "1"
  22820         Jobn ame "EDI83 7P_CLAIM_L INE_DRUG_l oad"
  22821         Para meterValue s "CParamV alues"
  22822         BEGI N DSSUBREC ORD
  22823            N ame "$SQL_ DB_UID"
  22824            D escription  "$SQL_DB_ UID"
  22825            V alueType " 4"
  22826            D isplayValu e "$SQL_DB _UID"
  22827         END  DSSUBRECOR D
  22828         BEGI N DSSUBREC ORD
  22829            N ame "$SQL_ DB_PWD"
  22830            D escription  "$SQL_DB_ PWD"
  22831            V alueType " 4"
  22832            D isplayValu e "$SQL_DB _PWD"
  22833         END  DSSUBRECOR D
  22834         BEGI N DSSUBREC ORD
  22835            N ame "$PROJ _DATA_DS"
  22836            D escription  "$PROJ_DA TA_DS"
  22837            V alueType " 4"
  22838            D isplayValu e "$PROJ_D ATA_DS"
  22839         END  DSSUBRECOR D
  22840         BEGI N DSSUBREC ORD
  22841            N ame "$SQL_ DB"
  22842            D escription  "$SQL_DB"
  22843            V alueType " 4"
  22844            D isplayValu e "$SQL_DB "
  22845         END  DSSUBRECOR D
  22846         BEGI N DSSUBREC ORD
  22847            N ame "Batch ClaimType"
  22848            D escription  "BatchCla imType"
  22849            V alueType " 4"
  22850            D isplayValu e "BatchCl aimType"
  22851         END  DSSUBRECOR D
  22852         BEGI N DSSUBREC ORD
  22853            N ame "$SQL_ DB_DSN"
  22854            D escription  "$SQL_DB_ DSN"
  22855            V alueType " 4"
  22856            D isplayValu e "$SQL_DB _DSN"
  22857         END  DSSUBRECOR D
  22858         Chec kPoint "0"
  22859         Stag eType "CJo bActivity"
  22860      END DSR ECORD
  22861      BEGIN D SRECORD
  22862         Iden tifier "V0 S21P1"
  22863         OLET ype "CJSAc tivityInpu t"
  22864         Read only "0"
  22865         Name  "ToLoadCl aimLineDru g"
  22866         Part ner "V0S20 |V0S20P2"
  22867         Link Type "1"
  22868      END DSR ECORD
  22869      BEGIN D SRECORD
  22870         Iden tifier "V0 S21P2"
  22871         OLET ype "CJSAc tivityOutp ut"
  22872         Read only "0"
  22873         Name  "ToPrepCl aimLineMed Test"
  22874         Part ner "V0S24 |V0S24P1"
  22875         Cond itionType  "6"
  22876         Trig gerExpress ion "LoadC LAIM_LINE_ DRUG.$JobS tatus < 3"
  22877         Left TextPos "1 396"
  22878         TopT extPos "16 8"
  22879         Sour ceID "V0S2 1"
  22880      END DSR ECORD
  22881      BEGIN D SRECORD
  22882         Iden tifier "V0 S24"
  22883         OLET ype "CJSJo bActivity"
  22884         Read only "0"
  22885         Name  "PrepCLAI M_LINE_MED _TEST"
  22886         Next ID "3"
  22887         Inpu tPins "V0S 24P1"
  22888         Outp utPins "V0 S24P2"
  22889         JobT ype "0"
  22890         Exec utionType  "1"
  22891         Jobn ame "EDI83 7P_CLAIM_L INE_MED_TE ST_prep"
  22892         Para meterValue s "CParamV alues"
  22893         BEGI N DSSUBREC ORD
  22894            N ame "$PROJ _DATA_SFIL E"
  22895            D escription  "$PROJ_DA TA_SFILE"
  22896            V alueType " 4"
  22897            D isplayValu e "$PROJ_D ATA_SFILE"
  22898         END  DSSUBRECOR D
  22899         BEGI N DSSUBREC ORD
  22900            N ame "$SQL_ DB_UID"
  22901            D escription  "$SQL_DB_ UID"
  22902            V alueType " 4"
  22903            D isplayValu e "$SQL_DB _UID"
  22904         END  DSSUBRECOR D
  22905         BEGI N DSSUBREC ORD
  22906            N ame "$SQL_ DB_PWD"
  22907            D escription  "$SQL_DB_ PWD"
  22908            V alueType " 4"
  22909            D isplayValu e "$SQL_DB _PWD"
  22910         END  DSSUBRECOR D
  22911         BEGI N DSSUBREC ORD
  22912            N ame "$PROJ _DATA_DS"
  22913            D escription  "$PROJ_DA TA_DS"
  22914            V alueType " 4"
  22915            D isplayValu e "$PROJ_D ATA_DS"
  22916         END  DSSUBRECOR D
  22917         BEGI N DSSUBREC ORD
  22918            N ame "Batch ClaimType"
  22919            D escription  "BatchCla imType"
  22920            V alueType " 4"
  22921            D isplayValu e "BatchCl aimType"
  22922         END  DSSUBRECOR D
  22923         BEGI N DSSUBREC ORD
  22924            N ame "$SQL_ DB"
  22925            D escription  "$SQL_DB"
  22926            V alueType " 4"
  22927            D isplayValu e "$SQL_DB "
  22928         END  DSSUBRECOR D
  22929         BEGI N DSSUBREC ORD
  22930            N ame "$SQL_ DB_DSN"
  22931            D escription  "$SQL_DB_ DSN"
  22932            V alueType " 4"
  22933            D isplayValu e "$SQL_DB _DSN"
  22934         END  DSSUBRECOR D
  22935         BEGI N DSSUBREC ORD
  22936            N ame "Batch ID"
  22937            D escription  "BatchID"
  22938            V alueType " 4"
  22939            D isplayValu e "BatchID "
  22940         END  DSSUBRECOR D
  22941         Chec kPoint "0"
  22942         Stag eType "CJo bActivity"
  22943      END DSR ECORD
  22944      BEGIN D SRECORD
  22945         Iden tifier "V0 S24P1"
  22946         OLET ype "CJSAc tivityInpu t"
  22947         Read only "0"
  22948         Name  "ToPrepCl aimLineMed Test"
  22949         Part ner "V0S21 |V0S21P2"
  22950         Link Type "1"
  22951      END DSR ECORD
  22952      BEGIN D SRECORD
  22953         Iden tifier "V0 S24P2"
  22954         OLET ype "CJSAc tivityOutp ut"
  22955         Read only "0"
  22956         Name  "ToLoadCl aimLineMed Test"
  22957         Part ner "V0S25 |V0S25P1"
  22958         Cond itionType  "6"
  22959         Trig gerExpress ion "PrepC LAIM_LINE_ MED_TEST.$ JobStatus  < 3"
  22960         Left TextPos "1 644"
  22961         TopT extPos "16 8"
  22962         Sour ceID "V0S2 4"
  22963      END DSR ECORD
  22964      BEGIN D SRECORD
  22965         Iden tifier "V0 S25"
  22966         OLET ype "CJSJo bActivity"
  22967         Read only "0"
  22968         Name  "LoadCLAI M_LINE_MED _TEST"
  22969         Next ID "3"
  22970         Inpu tPins "V0S 25P1"
  22971         Outp utPins "V0 S25P2"
  22972         JobT ype "0"
  22973         Exec utionType  "1"
  22974         Jobn ame "EDI83 7P_CLAIM_L INE_MED_TE ST_load"
  22975         Para meterValue s "CParamV alues"
  22976         BEGI N DSSUBREC ORD
  22977            N ame "$SQL_ DB_UID"
  22978            D escription  "$SQL_DB_ UID"
  22979            V alueType " 4"
  22980            D isplayValu e "$SQL_DB _UID"
  22981         END  DSSUBRECOR D
  22982         BEGI N DSSUBREC ORD
  22983            N ame "$SQL_ DB_PWD"
  22984            D escription  "$SQL_DB_ PWD"
  22985            V alueType " 4"
  22986            D isplayValu e "$SQL_DB _PWD"
  22987         END  DSSUBRECOR D
  22988         BEGI N DSSUBREC ORD
  22989            N ame "$PROJ _DATA_DS"
  22990            D escription  "$PROJ_DA TA_DS"
  22991            V alueType " 4"
  22992            D isplayValu e "$PROJ_D ATA_DS"
  22993         END  DSSUBRECOR D
  22994         BEGI N DSSUBREC ORD
  22995            N ame "$SQL_ DB"
  22996            D escription  "$SQL_DB"
  22997            V alueType " 4"
  22998            D isplayValu e "$SQL_DB "
  22999         END  DSSUBRECOR D
  23000         BEGI N DSSUBREC ORD
  23001            N ame "Batch ClaimType"
  23002            D escription  "BatchCla imType"
  23003            V alueType " 4"
  23004            D isplayValu e "BatchCl aimType"
  23005         END  DSSUBRECOR D
  23006         BEGI N DSSUBREC ORD
  23007            N ame "$SQL_ DB_DSN"
  23008            D escription  "$SQL_DB_ DSN"
  23009            V alueType " 4"
  23010            D isplayValu e "$SQL_DB _DSN"
  23011         END  DSSUBRECOR D
  23012         Chec kPoint "0"
  23013         Stag eType "CJo bActivity"
  23014      END DSR ECORD
  23015      BEGIN D SRECORD
  23016         Iden tifier "V0 S25P1"
  23017         OLET ype "CJSAc tivityInpu t"
  23018         Read only "0"
  23019         Name  "ToLoadCl aimLineMed Test"
  23020         Part ner "V0S24 |V0S24P2"
  23021         Link Type "1"
  23022      END DSR ECORD
  23023      BEGIN D SRECORD
  23024         Iden tifier "V0 S25P2"
  23025         OLET ype "CJSAc tivityOutp ut"
  23026         Read only "0"
  23027         Name  "ToPrepCl aimLineAtt ach"
  23028         Part ner "V0S30 |V0S30P1"
  23029         Cond itionType  "6"
  23030         Trig gerExpress ion "LoadC LAIM_LINE_ MED_TEST.$ JobStatus  < 3"
  23031         Left TextPos "1 956"
  23032         TopT extPos "16 8"
  23033         Sour ceID "V0S2 5"
  23034      END DSR ECORD
  23035      BEGIN D SRECORD
  23036         Iden tifier "V0 S3"
  23037         OLET ype "CJSJo bActivity"
  23038         Read only "0"
  23039         Name  "LoadF_Pr of_Medical _Claim_Det ails"
  23040         Next ID "4"
  23041         Inpu tPins "V0S 3P1"
  23042         Outp utPins "V0 S3P2|V0S3P 3"
  23043         JobT ype "0"
  23044         Exec utionType  "1"
  23045         Jobn ame "EDI83 7P_F_PROFE SSIONAL_CL AIMS_load"
  23046         Para meterValue s "CParamV alues"
  23047         BEGI N DSSUBREC ORD
  23048            N ame "$SQL_ DB_UID"
  23049            D escription  "$SQL_DB_ UID"
  23050            V alueType " 4"
  23051            D isplayValu e "$SQL_DB _UID"
  23052         END  DSSUBRECOR D
  23053         BEGI N DSSUBREC ORD
  23054            N ame "$SQL_ DB_PWD"
  23055            D escription  "$SQL_DB_ PWD"
  23056            V alueType " 4"
  23057            D isplayValu e "$SQL_DB _PWD"
  23058         END  DSSUBRECOR D
  23059         BEGI N DSSUBREC ORD
  23060            N ame "$PROJ _DATA_DS"
  23061            D escription  "$PROJ_DA TA_DS"
  23062            V alueType " 4"
  23063            D isplayValu e "$PROJ_D ATA_DS"
  23064         END  DSSUBRECOR D
  23065         BEGI N DSSUBREC ORD
  23066            N ame "Batch ClaimType"
  23067            D escription  "BatchCla imType"
  23068            V alueType " 4"
  23069            D isplayValu e "BatchCl aimType"
  23070         END  DSSUBRECOR D
  23071         BEGI N DSSUBREC ORD
  23072            N ame "$SQL_ DB"
  23073            D escription  "$SQL_DB"
  23074            V alueType " 4"
  23075            D isplayValu e "$SQL_DB "
  23076         END  DSSUBRECOR D
  23077         BEGI N DSSUBREC ORD
  23078            N ame "$SQL_ DB_DSN"
  23079            D escription  "$SQL_DB_ DSN"
  23080            V alueType " 4"
  23081            D isplayValu e "$SQL_DB _DSN"
  23082         END  DSSUBRECOR D
  23083         Chec kPoint "0"
  23084         Stag eType "CJo bActivity"
  23085      END DSR ECORD
  23086      BEGIN D SRECORD
  23087         Iden tifier "V0 S30"
  23088         OLET ype "CJSJo bActivity"
  23089         Read only "0"
  23090         Name  "PrepCLAI M_LINE_ATT ACHMENT"
  23091         Next ID "3"
  23092         Inpu tPins "V0S 30P1"
  23093         Outp utPins "V0 S30P2"
  23094         JobT ype "0"
  23095         Exec utionType  "1"
  23096         Jobn ame "EDI83 7P_CLAIM_L INE_ATTACH MENT_prep"
  23097         Para meterValue s "CParamV alues"
  23098         BEGI N DSSUBREC ORD
  23099            N ame "$PROJ _DATA_SFIL E"
  23100            D escription  "$PROJ_DA TA_SFILE"
  23101            V alueType " 4"
  23102            D isplayValu e "$PROJ_D ATA_SFILE"
  23103         END  DSSUBRECOR D
  23104         BEGI N DSSUBREC ORD
  23105            N ame "$SQL_ DB_UID"
  23106            D escription  "$SQL_DB_ UID"
  23107            V alueType " 4"
  23108            D isplayValu e "$SQL_DB _UID"
  23109         END  DSSUBRECOR D
  23110         BEGI N DSSUBREC ORD
  23111            N ame "$SQL_ DB_PWD"
  23112            D escription  "$SQL_DB_ PWD"
  23113            V alueType " 4"
  23114            D isplayValu e "$SQL_DB _PWD"
  23115         END  DSSUBRECOR D
  23116         BEGI N DSSUBREC ORD
  23117            N ame "$PROJ _DATA_DS"
  23118            D escription  "$PROJ_DA TA_DS"
  23119            V alueType " 4"
  23120            D isplayValu e "$PROJ_D ATA_DS"
  23121         END  DSSUBRECOR D
  23122         BEGI N DSSUBREC ORD
  23123            N ame "Batch ClaimType"
  23124            D escription  "BatchCla imType"
  23125            V alueType " 4"
  23126            D isplayValu e "BatchCl aimType"
  23127         END  DSSUBRECOR D
  23128         BEGI N DSSUBREC ORD
  23129            N ame "$SQL_ DB"
  23130            D escription  "$SQL_DB"
  23131            V alueType " 4"
  23132            D isplayValu e "$SQL_DB "
  23133         END  DSSUBRECOR D
  23134         BEGI N DSSUBREC ORD
  23135            N ame "$SQL_ DB_DSN"
  23136            D escription  "$SQL_DB_ DSN"
  23137            V alueType " 4"
  23138            D isplayValu e "$SQL_DB _DSN"
  23139         END  DSSUBRECOR D
  23140         BEGI N DSSUBREC ORD
  23141            N ame "Batch ID"
  23142            D escription  "BatchID"
  23143            V alueType " 4"
  23144            D isplayValu e "BatchID "
  23145         END  DSSUBRECOR D
  23146         Chec kPoint "0"
  23147         Stag eType "CJo bActivity"
  23148      END DSR ECORD
  23149      BEGIN D SRECORD
  23150         Iden tifier "V0 S30P1"
  23151         OLET ype "CJSAc tivityInpu t"
  23152         Read only "0"
  23153         Name  "ToPrepCl aimLineAtt ach"
  23154         Part ner "V0S25 |V0S25P2"
  23155         Link Type "1"
  23156      END DSR ECORD
  23157      BEGIN D SRECORD
  23158         Iden tifier "V0 S30P2"
  23159         OLET ype "CJSAc tivityOutp ut"
  23160         Read only "0"
  23161         Name  "ToLoadCl aimLineAtt ach"
  23162         Part ner "V0S31 |V0S31P1"
  23163         Cond itionType  "6"
  23164         Trig gerExpress ion "PrepC LAIM_LINE_ ATTACHMENT .$JobStatu s < 3"
  23165         Left TextPos "2 220"
  23166         TopT extPos "16 8"
  23167         Sour ceID "V0S3 0"
  23168      END DSR ECORD
  23169      BEGIN D SRECORD
  23170         Iden tifier "V0 S31"
  23171         OLET ype "CJSJo bActivity"
  23172         Read only "0"
  23173         Name  "LoadCLAI M_LINE_ATT ACHMENT"
  23174         Next ID "2"
  23175         Inpu tPins "V0S 31P1"
  23176         JobT ype "0"
  23177         Exec utionType  "1"
  23178         Jobn ame "EDI83 7P_CLAIM_L INE_ATTACH MENT_load"
  23179         Para meterValue s "CParamV alues"
  23180         BEGI N DSSUBREC ORD
  23181            N ame "$SQL_ DB_UID"
  23182            D escription  "$SQL_DB_ UID"
  23183            V alueType " 4"
  23184            D isplayValu e "$SQL_DB _UID"
  23185         END  DSSUBRECOR D
  23186         BEGI N DSSUBREC ORD
  23187            N ame "$SQL_ DB_PWD"
  23188            D escription  "$SQL_DB_ PWD"
  23189            V alueType " 4"
  23190            D isplayValu e "$SQL_DB _PWD"
  23191         END  DSSUBRECOR D
  23192         BEGI N DSSUBREC ORD
  23193            N ame "$PROJ _DATA_DS"
  23194            D escription  "$PROJ_DA TA_DS"
  23195            V alueType " 4"
  23196            D isplayValu e "$PROJ_D ATA_DS"
  23197         END  DSSUBRECOR D
  23198         BEGI N DSSUBREC ORD
  23199            N ame "$SQL_ DB"
  23200            D escription  "$SQL_DB"
  23201            V alueType " 4"
  23202            D isplayValu e "$SQL_DB "
  23203         END  DSSUBRECOR D
  23204         BEGI N DSSUBREC ORD
  23205            N ame "Batch ClaimType"
  23206            D escription  "BatchCla imType"
  23207            V alueType " 4"
  23208            D isplayValu e "BatchCl aimType"
  23209         END  DSSUBRECOR D
  23210         BEGI N DSSUBREC ORD
  23211            N ame "$SQL_ DB_DSN"
  23212            D escription  "$SQL_DB_ DSN"
  23213            V alueType " 4"
  23214            D isplayValu e "$SQL_DB _DSN"
  23215         END  DSSUBRECOR D
  23216         Chec kPoint "0"
  23217         Stag eType "CJo bActivity"
  23218      END DSR ECORD
  23219      BEGIN D SRECORD
  23220         Iden tifier "V0 S31P1"
  23221         OLET ype "CJSAc tivityInpu t"
  23222         Read only "0"
  23223         Name  "ToLoadCl aimLineAtt ach"
  23224         Part ner "V0S30 |V0S30P2"
  23225         Link Type "1"
  23226      END DSR ECORD
  23227      BEGIN D SRECORD
  23228         Iden tifier "V0 S34"
  23229         OLET ype "CJSJo bActivity"
  23230         Read only "0"
  23231         Name  "PrepCLAI M_CONDITIO N_CODE"
  23232         Next ID "3"
  23233         Inpu tPins "V0S 34P1"
  23234         Outp utPins "V0 S34P2"
  23235         JobT ype "0"
  23236         Exec utionType  "1"
  23237         Jobn ame "EDI83 7P_CLAIM_C ONDITION_C ODE_prep"
  23238         Para meterValue s "CParamV alues"
  23239         BEGI N DSSUBREC ORD
  23240            N ame "$PROJ _DATA_SFIL E"
  23241            D escription  "$PROJ_DA TA_SFILE"
  23242            V alueType " 4"
  23243            D isplayValu e "$PROJ_D ATA_SFILE"
  23244         END  DSSUBRECOR D
  23245         BEGI N DSSUBREC ORD
  23246            N ame "$SQL_ DB_UID"
  23247            D escription  "$SQL_DB_ UID"
  23248            V alueType " 4"
  23249            D isplayValu e "$SQL_DB _UID"
  23250         END  DSSUBRECOR D
  23251         BEGI N DSSUBREC ORD
  23252            N ame "$SQL_ DB_PWD"
  23253            D escription  "$SQL_DB_ PWD"
  23254            V alueType " 4"
  23255            D isplayValu e "$SQL_DB _PWD"
  23256         END  DSSUBRECOR D
  23257         BEGI N DSSUBREC ORD
  23258            N ame "$PROJ _DATA_DS"
  23259            D escription  "$PROJ_DA TA_DS"
  23260            V alueType " 4"
  23261            D isplayValu e "$PROJ_D ATA_DS"
  23262         END  DSSUBRECOR D
  23263         BEGI N DSSUBREC ORD
  23264            N ame "Batch ClaimType"
  23265            D escription  "BatchCla imType"
  23266            V alueType " 4"
  23267            D isplayValu e "BatchCl aimType"
  23268         END  DSSUBRECOR D
  23269         BEGI N DSSUBREC ORD
  23270            N ame "$SQL_ DB"
  23271            D escription  "$SQL_DB"
  23272            V alueType " 4"
  23273            D isplayValu e "$SQL_DB "
  23274         END  DSSUBRECOR D
  23275         BEGI N DSSUBREC ORD
  23276            N ame "$SQL_ DB_DSN"
  23277            D escription  "$SQL_DB_ DSN"
  23278            V alueType " 4"
  23279            D isplayValu e "$SQL_DB _DSN"
  23280         END  DSSUBRECOR D
  23281         BEGI N DSSUBREC ORD
  23282            N ame "Batch ID"
  23283            D escription  "BatchID"
  23284            V alueType " 4"
  23285            D isplayValu e "BatchID "
  23286         END  DSSUBRECOR D
  23287         Chec kPoint "0"
  23288         Stag eType "CJo bActivity"
  23289      END DSR ECORD
  23290      BEGIN D SRECORD
  23291         Iden tifier "V0 S34P1"
  23292         OLET ype "CJSAc tivityInpu t"
  23293         Read only "0"
  23294         Name  "ToPrepCl aimConditi onCode"
  23295         Part ner "V0S17 |V0S17P2"
  23296         Link Type "1"
  23297      END DSR ECORD
  23298      BEGIN D SRECORD
  23299         Iden tifier "V0 S34P2"
  23300         OLET ype "CJSAc tivityOutp ut"
  23301         Read only "0"
  23302         Name  "ToLoadCl aimConditi onCode"
  23303         Part ner "V0S35 |V0S35P1"
  23304         Cond itionType  "6"
  23305         Trig gerExpress ion "PrepC LAIM_CONDI TION_CODE. $JobStatus  < 3"
  23306         Left TextPos "2 084"
  23307         TopT extPos "48 2"
  23308         Sour ceID "V0S3 4"
  23309      END DSR ECORD
  23310      BEGIN D SRECORD
  23311         Iden tifier "V0 S35"
  23312         OLET ype "CJSJo bActivity"
  23313         Read only "0"
  23314         Name  "LoadCLAI M_CONDITIO N_CODE"
  23315         Next ID "2"
  23316         Inpu tPins "V0S 35P1"
  23317         JobT ype "0"
  23318         Exec utionType  "1"
  23319         Jobn ame "EDI83 7P_CLAIM_C ONDITION_C ODE_load"
  23320         Para meterValue s "CParamV alues"
  23321         BEGI N DSSUBREC ORD
  23322            N ame "$SQL_ DB_UID"
  23323            D escription  "$SQL_DB_ UID"
  23324            V alueType " 4"
  23325            D isplayValu e "$SQL_DB _UID"
  23326         END  DSSUBRECOR D
  23327         BEGI N DSSUBREC ORD
  23328            N ame "$SQL_ DB_PWD"
  23329            D escription  "$SQL_DB_ PWD"
  23330            V alueType " 4"
  23331            D isplayValu e "$SQL_DB _PWD"
  23332         END  DSSUBRECOR D
  23333         BEGI N DSSUBREC ORD
  23334            N ame "$PROJ _DATA_DS"
  23335            D escription  "$PROJ_DA TA_DS"
  23336            V alueType " 4"
  23337            D isplayValu e "$PROJ_D ATA_DS"
  23338         END  DSSUBRECOR D
  23339         BEGI N DSSUBREC ORD
  23340            N ame "$SQL_ DB"
  23341            D escription  "$SQL_DB"
  23342            V alueType " 4"
  23343            D isplayValu e "$SQL_DB "
  23344         END  DSSUBRECOR D
  23345         BEGI N DSSUBREC ORD
  23346            N ame "Batch ClaimType"
  23347            D escription  "BatchCla imType"
  23348            V alueType " 4"
  23349            D isplayValu e "BatchCl aimType"
  23350         END  DSSUBRECOR D
  23351         BEGI N DSSUBREC ORD
  23352            N ame "$SQL_ DB_DSN"
  23353            D escription  "$SQL_DB_ DSN"
  23354            V alueType " 4"
  23355            D isplayValu e "$SQL_DB _DSN"
  23356         END  DSSUBRECOR D
  23357         Chec kPoint "0"
  23358         Stag eType "CJo bActivity"
  23359      END DSR ECORD
  23360      BEGIN D SRECORD
  23361         Iden tifier "V0 S35P1"
  23362         OLET ype "CJSAc tivityInpu t"
  23363         Read only "0"
  23364         Name  "ToLoadCl aimConditi onCode"
  23365         Part ner "V0S34 |V0S34P2"
  23366         Link Type "1"
  23367      END DSR ECORD
  23368      BEGIN D SRECORD
  23369         Iden tifier "V0 S3P1"
  23370         OLET ype "CJSAc tivityInpu t"
  23371         Read only "0"
  23372         Name  "ToLoadFa ctDetailsP rep"
  23373         Part ner "V0S0| V0S0P1"
  23374         Link Type "1"
  23375      END DSR ECORD
  23376      BEGIN D SRECORD
  23377         Iden tifier "V0 S3P2"
  23378         OLET ype "CJSAc tivityOutp ut"
  23379         Read only "0"
  23380         Name  "PrepClai mLineDiagn osis"
  23381         Part ner "V0S4| V0S4P1"
  23382         Cond itionType  "6"
  23383         Trig gerExpress ion "LoadF _Prof_Medi cal_Claim_ Details.$J obStatus < 3"
  23384         Left TextPos "3 58"
  23385         TopT extPos "23 6"
  23386         Sour ceID "V0S3 "
  23387      END DSR ECORD
  23388      BEGIN D SRECORD
  23389         Iden tifier "V0 S3P3"
  23390         OLET ype "CJSAc tivityOutp ut"
  23391         Read only "0"
  23392         Name  "PrepClai mLineModif ier"
  23393         Part ner "V0S8| V0S8P1"
  23394         Cond itionType  "6"
  23395         Trig gerExpress ion "LoadF _Prof_Medi cal_Claim_ Details.$J obStatus < 3"
  23396         Left TextPos "4 38"
  23397         TopT extPos "43 3"
  23398         Sour ceID "V0S3 "
  23399      END DSR ECORD
  23400      BEGIN D SRECORD
  23401         Iden tifier "V0 S4"
  23402         OLET ype "CJSJo bActivity"
  23403         Read only "0"
  23404         Name  "PrepCLAI M_LINE_DIA GNOSIS"
  23405         Next ID "3"
  23406         Inpu tPins "V0S 4P1"
  23407         Outp utPins "V0 S4P2"
  23408         JobT ype "0"
  23409         Exec utionType  "1"
  23410         Jobn ame "EDI83 7P_CLAIM_L INE_DIAGNO SIS_prep"
  23411         Para meterValue s "CParamV alues"
  23412         BEGI N DSSUBREC ORD
  23413            N ame "$PROJ _DATA_SFIL E"
  23414            D escription  "$PROJ_DA TA_SFILE"
  23415            V alueType " 4"
  23416            D isplayValu e "$PROJ_D ATA_SFILE"
  23417         END  DSSUBRECOR D
  23418         BEGI N DSSUBREC ORD
  23419            N ame "$SQL_ DB_UID"
  23420            D escription  "$SQL_DB_ UID"
  23421            V alueType " 4"
  23422            D isplayValu e "$SQL_DB _UID"
  23423         END  DSSUBRECOR D
  23424         BEGI N DSSUBREC ORD
  23425            N ame "$SQL_ DB_PWD"
  23426            D escription  "$SQL_DB_ PWD"
  23427            V alueType " 4"
  23428            D isplayValu e "$SQL_DB _PWD"
  23429         END  DSSUBRECOR D
  23430         BEGI N DSSUBREC ORD
  23431            N ame "$PROJ _DATA_DS"
  23432            D escription  "$PROJ_DA TA_DS"
  23433            V alueType " 4"
  23434            D isplayValu e "$PROJ_D ATA_DS"
  23435         END  DSSUBRECOR D
  23436         BEGI N DSSUBREC ORD
  23437            N ame "Batch ClaimType"
  23438            D escription  "BatchCla imType"
  23439            V alueType " 4"
  23440            D isplayValu e "BatchCl aimType"
  23441         END  DSSUBRECOR D
  23442         BEGI N DSSUBREC ORD
  23443            N ame "$SQL_ DB"
  23444            D escription  "$SQL_DB"
  23445            V alueType " 4"
  23446            D isplayValu e "$SQL_DB "
  23447         END  DSSUBRECOR D
  23448         BEGI N DSSUBREC ORD
  23449            N ame "$SQL_ DB_DSN"
  23450            D escription  "$SQL_DB_ DSN"
  23451            V alueType " 4"
  23452            D isplayValu e "$SQL_DB _DSN"
  23453         END  DSSUBRECOR D
  23454         BEGI N DSSUBREC ORD
  23455            N ame "Batch ID"
  23456            D escription  "BatchID"
  23457            V alueType " 4"
  23458            D isplayValu e "BatchID "
  23459         END  DSSUBRECOR D
  23460         Chec kPoint "0"
  23461         Stag eType "CJo bActivity"
  23462      END DSR ECORD
  23463      BEGIN D SRECORD
  23464         Iden tifier "V0 S4P1"
  23465         OLET ype "CJSAc tivityInpu t"
  23466         Read only "0"
  23467         Name  "PrepClai mLineDiagn osis"
  23468         Part ner "V0S3| V0S3P2"
  23469         Link Type "1"
  23470      END DSR ECORD
  23471      BEGIN D SRECORD
  23472         Iden tifier "V0 S4P2"
  23473         OLET ype "CJSAc tivityOutp ut"
  23474         Read only "0"
  23475         Name  "ToClaimL ineDiagLoa d"
  23476         Part ner "V0S5| V0S5P1"
  23477         Cond itionType  "6"
  23478         Trig gerExpress ion "PrepC LAIM_LINE_ DIAGNOSIS. $JobStatus  <3"
  23479         Left TextPos "5 66"
  23480         TopT extPos "17 5"
  23481         Sour ceID "V0S4 "
  23482      END DSR ECORD
  23483      BEGIN D SRECORD
  23484         Iden tifier "V0 S5"
  23485         OLET ype "CJSJo bActivity"
  23486         Read only "0"
  23487         Name  "LoadCLAI M_LINE_DIA GNOSIS"
  23488         Next ID "3"
  23489         Inpu tPins "V0S 5P1"
  23490         Outp utPins "V0 S5P2"
  23491         JobT ype "0"
  23492         Exec utionType  "1"
  23493         Jobn ame "EDI83 7P_CLAIM_L INE_DIAGNO SIS_load"
  23494         Para meterValue s "CParamV alues"
  23495         BEGI N DSSUBREC ORD
  23496            N ame "$SQL_ DB_UID"
  23497            D escription  "$SQL_DB_ UID"
  23498            V alueType " 4"
  23499            D isplayValu e "$SQL_DB _UID"
  23500         END  DSSUBRECOR D
  23501         BEGI N DSSUBREC ORD
  23502            N ame "$SQL_ DB_PWD"
  23503            D escription  "$SQL_DB_ PWD"
  23504            V alueType " 4"
  23505            D isplayValu e "$SQL_DB _PWD"
  23506         END  DSSUBRECOR D
  23507         BEGI N DSSUBREC ORD
  23508            N ame "$PROJ _DATA_DS"
  23509            D escription  "$PROJ_DA TA_DS"
  23510            V alueType " 4"
  23511            D isplayValu e "$PROJ_D ATA_DS"
  23512         END  DSSUBRECOR D
  23513         BEGI N DSSUBREC ORD
  23514            N ame "Batch ClaimType"
  23515            D escription  "BatchCla imType"
  23516            V alueType " 4"
  23517            D isplayValu e "BatchCl aimType"
  23518         END  DSSUBRECOR D
  23519         BEGI N DSSUBREC ORD
  23520            N ame "$SQL_ DB"
  23521            D escription  "$SQL_DB"
  23522            V alueType " 4"
  23523            D isplayValu e "$SQL_DB "
  23524         END  DSSUBRECOR D
  23525         BEGI N DSSUBREC ORD
  23526            N ame "$SQL_ DB_DSN"
  23527            D escription  "$SQL_DB_ DSN"
  23528            V alueType " 4"
  23529            D isplayValu e "$SQL_DB _DSN"
  23530         END  DSSUBRECOR D
  23531         Chec kPoint "0"
  23532         Stag eType "CJo bActivity"
  23533      END DSR ECORD
  23534      BEGIN D SRECORD
  23535         Iden tifier "V0 S5P1"
  23536         OLET ype "CJSAc tivityInpu t"
  23537         Read only "0"
  23538         Name  "ToClaimL ineDiagLoa d"
  23539         Part ner "V0S4| V0S4P2"
  23540         Link Type "1"
  23541      END DSR ECORD
  23542      BEGIN D SRECORD
  23543         Iden tifier "V0 S5P2"
  23544         OLET ype "CJSAc tivityOutp ut"
  23545         Read only "0"
  23546         Name  "ToPrepCl aimLineDru g"
  23547         Part ner "V0S20 |V0S20P1"
  23548         Cond itionType  "6"
  23549         Trig gerExpress ion "LoadC LAIM_LINE_ DIAGNOSIS. $JobStatus  <3"
  23550         Left TextPos "9 03"
  23551         TopT extPos "16 9"
  23552         Sour ceID "V0S5 "
  23553      END DSR ECORD
  23554      BEGIN D SRECORD
  23555         Iden tifier "V0 S8"
  23556         OLET ype "CJSJo bActivity"
  23557         Read only "0"
  23558         Name  "PrepCLAI M_LINE_MOD IFIER"
  23559         Next ID "3"
  23560         Inpu tPins "V0S 8P1"
  23561         Outp utPins "V0 S8P2"
  23562         JobT ype "0"
  23563         Exec utionType  "1"
  23564         Jobn ame "EDI83 7P_CLAIM_L INE_MODIFI ER_prep"
  23565         Para meterValue s "CParamV alues"
  23566         BEGI N DSSUBREC ORD
  23567            N ame "$PROJ _DATA_SFIL E"
  23568            D escription  "$PROJ_DA TA_SFILE"
  23569            V alueType " 4"
  23570            D isplayValu e "$PROJ_D ATA_SFILE"
  23571         END  DSSUBRECOR D
  23572         BEGI N DSSUBREC ORD
  23573            N ame "$SQL_ DB_UID"
  23574            D escription  "$SQL_DB_ UID"
  23575            V alueType " 4"
  23576            D isplayValu e "$SQL_DB _UID"
  23577         END  DSSUBRECOR D
  23578         BEGI N DSSUBREC ORD
  23579            N ame "$SQL_ DB_PWD"
  23580            D escription  "$SQL_DB_ PWD"
  23581            V alueType " 4"
  23582            D isplayValu e "$SQL_DB _PWD"
  23583         END  DSSUBRECOR D
  23584         BEGI N DSSUBREC ORD
  23585            N ame "$PROJ _DATA_DS"
  23586            D escription  "$PROJ_DA TA_DS"
  23587            V alueType " 4"
  23588            D isplayValu e "$PROJ_D ATA_DS"
  23589         END  DSSUBRECOR D
  23590         BEGI N DSSUBREC ORD
  23591            N ame "Batch ClaimType"
  23592            D escription  "BatchCla imType"
  23593            V alueType " 4"
  23594            D isplayValu e "BatchCl aimType"
  23595         END  DSSUBRECOR D
  23596         BEGI N DSSUBREC ORD
  23597            N ame "$SQL_ DB"
  23598            D escription  "$SQL_DB"
  23599            V alueType " 4"
  23600            D isplayValu e "$SQL_DB "
  23601         END  DSSUBRECOR D
  23602         BEGI N DSSUBREC ORD
  23603            N ame "$SQL_ DB_DSN"
  23604            D escription  "$SQL_DB_ DSN"
  23605            V alueType " 4"
  23606            D isplayValu e "$SQL_DB _DSN"
  23607         END  DSSUBRECOR D
  23608         BEGI N DSSUBREC ORD
  23609            N ame "Batch ID"
  23610            D escription  "BatchID"
  23611            V alueType " 4"
  23612            D isplayValu e "BatchID "
  23613         END  DSSUBRECOR D
  23614         Chec kPoint "0"
  23615         Stag eType "CJo bActivity"
  23616      END DSR ECORD
  23617      BEGIN D SRECORD
  23618         Iden tifier "V0 S8P1"
  23619         OLET ype "CJSAc tivityInpu t"
  23620         Read only "0"
  23621         Name  "PrepClai mLineModif ier"
  23622         Part ner "V0S3| V0S3P3"
  23623         Link Type "1"
  23624      END DSR ECORD
  23625      BEGIN D SRECORD
  23626         Iden tifier "V0 S8P2"
  23627         OLET ype "CJSAc tivityOutp ut"
  23628         Read only "0"
  23629         Name  "ToLoadCl aimLineMod ifier"
  23630         Part ner "V0S9| V0S9P1"
  23631         Cond itionType  "6"
  23632         Trig gerExpress ion "PrepC LAIM_LINE_ MODIFIER.$ JobStatus  <3"
  23633         Left TextPos "6 36"
  23634         TopT extPos "48 0"
  23635         Sour ceID "V0S8 "
  23636      END DSR ECORD
  23637      BEGIN D SRECORD
  23638         Iden tifier "V0 S9"
  23639         OLET ype "CJSJo bActivity"
  23640         Read only "0"
  23641         Name  "LoadCLAI M_LINE_MOD IFIER"
  23642         Next ID "3"
  23643         Inpu tPins "V0S 9P1"
  23644         Outp utPins "V0 S9P2"
  23645         JobT ype "0"
  23646         Exec utionType  "1"
  23647         Jobn ame "EDI83 7P_CLAIM_L INE_MODIFI ER_load"
  23648         Para meterValue s "CParamV alues"
  23649         BEGI N DSSUBREC ORD
  23650            N ame "$SQL_ DB_UID"
  23651            D escription  "$SQL_DB_ UID"
  23652            V alueType " 4"
  23653            D isplayValu e "$SQL_DB _UID"
  23654         END  DSSUBRECOR D
  23655         BEGI N DSSUBREC ORD
  23656            N ame "$SQL_ DB_PWD"
  23657            D escription  "$SQL_DB_ PWD"
  23658            V alueType " 4"
  23659            D isplayValu e "$SQL_DB _PWD"
  23660         END  DSSUBRECOR D
  23661         BEGI N DSSUBREC ORD
  23662            N ame "$PROJ _DATA_DS"
  23663            D escription  "$PROJ_DA TA_DS"
  23664            V alueType " 4"
  23665            D isplayValu e "$PROJ_D ATA_DS"
  23666         END  DSSUBRECOR D
  23667         BEGI N DSSUBREC ORD
  23668            N ame "Batch ClaimType"
  23669            D escription  "BatchCla imType"
  23670            V alueType " 4"
  23671            D isplayValu e "BatchCl aimType"
  23672         END  DSSUBRECOR D
  23673         BEGI N DSSUBREC ORD
  23674            N ame "$SQL_ DB"
  23675            D escription  "$SQL_DB"
  23676            V alueType " 4"
  23677            D isplayValu e "$SQL_DB "
  23678         END  DSSUBRECOR D
  23679         BEGI N DSSUBREC ORD
  23680            N ame "$SQL_ DB_DSN"
  23681            D escription  "$SQL_DB_ DSN"
  23682            V alueType " 4"
  23683            D isplayValu e "$SQL_DB _DSN"
  23684         END  DSSUBRECOR D
  23685         Chec kPoint "0"
  23686         Stag eType "CJo bActivity"
  23687      END DSR ECORD
  23688      BEGIN D SRECORD
  23689         Iden tifier "V0 S9P1"
  23690         OLET ype "CJSAc tivityInpu t"
  23691         Read only "0"
  23692         Name  "ToLoadCl aimLineMod ifier"
  23693         Part ner "V0S8| V0S8P2"
  23694         Link Type "1"
  23695      END DSR ECORD
  23696      BEGIN D SRECORD
  23697         Iden tifier "V0 S9P2"
  23698         OLET ype "CJSAc tivityOutp ut"
  23699         Read only "0"
  23700         Name  "ToPrepCl aimLineDME "
  23701         Part ner "V0S12 |V0S12P1"
  23702         Cond itionType  "6"
  23703         Trig gerExpress ion "LoadC LAIM_LINE_ MODIFIER.$ JobStatus  <3"
  23704         Left TextPos "8 82"
  23705         TopT extPos "48 2"
  23706         Sour ceID "V0S9 "
  23707      END DSR ECORD
  23708   END DSJOB