ECXTRT ;ALB/JAP,BIR/DMA,CML,PTD-Treating Specialty Change Extract ;6/29/18 14:57
Source file <ECXTRT.m>
| Package | Total | Call Graph |
|---|---|---|
| DSS Extracts | 9 | $$GETDIV^ECXDEPT ^ECXKILL QUE^ECXTAUTO ^ECXTRAC (PREVATT,PREVPRV,PREVTRT)^ECXTRT1 FILE^ECXTRT2 ($$ECXDATE,$$ECXTIME,$$PATCAT,$$PRVCLASS)^ECXUTL ($$PATDEM,ECXDEF,KPATDEM)^ECXUTL2 ($$ENCNUM,$$OBSPAT)^ECXUTL4 |
| Kernel | 3 | $$FMTE^XLFDT $$LJ^XLFSTR $$NPI^XUSNPI |
| VA FileMan | 3 | ^%DTC FIELD^DID $$GET1^DIQ |
| MailMan | 1 | ^XMD |
| Registration | 1 | DEM^VADPT |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ; start package specific extract
|
|
| NPDIV(WRD) | ;National Production Division
|
|
| SETLOC(ECXDFN,ECXADM,ECXPRO,ECXLOC) | ;setup the local array from the ATS index
; output ; ECXLOC = local array (passed by reference) |
|
| FINDLOC(ECXTSD,ECXLOC,ECXSPC,ECXPRV,ECXATT,ECXMOV,ECXTRT) | ;find local array node for current ts movement
; input ; ECXTSD = inverse date/time for current ts movement; required ; ECXLOC = local array; passed by reference; required ; output; data from record contained in MOVE ; ECXSPC = piece 1 of LOC (passed by reference) ; ECXPRV = piece 2 of LOC concatenated to PRO (passed by reference) ; ECXATT = piece 3 of LOC concatenated to PRO (passed by reference) ; ECXMOV = piece 4 of LOC (passed by reference) ; ECXTRT = pointer to file #45.7 |
|
| SETUP | ;Set required input for ECXTRAC
|
|
| QUE | ; entry point for the background requeuing handled by ECXTAUTO
|
|
| SETTMP(ERRMSG,ECDA,ECDATE,DFN,ECADM) | ;190 Set TMP global for MM messages
|
|
| SENDMSG | ;190 Send error MM messages
|
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | START+102, START+103, START+104 |
| FIELD^DID | START+5 |
| $$GET1^DIQ | NPDIV+2, SETTMP+2, SETTMP+7, SETTMP+10, SETTMP+11, SENDMSG+21 |
| $$GETDIV^ECXDEPT | NPDIV+3 |
| ^ECXKILL | BEG+2, QUE+1 |
| QUE^ECXTAUTO | QUE+1 |
| ^ECXTRAC | BEG+2 |
| PREVATT^ECXTRT1 | START+41, START+109 |
| PREVPRV^ECXTRT1 | START+38, START+108 |
| PREVTRT^ECXTRT1 | START+35, START+107 |
| FILE^ECXTRT2 | START+73, START+141 |
| $$ECXDATE^ECXUTL | START+42, START+43, START+83, START+98 |
| $$ECXTIME^ECXUTL | START+42, START+43, START+83, START+98 |
| $$PATCAT^ECXUTL | START+54, START+122 |
| $$PRVCLASS^ECXUTL | START+57, START+60, START+63, START+66, START+125, START+128, START+131, START+134 |
| $$PATDEM^ECXUTL2 | START+17, START+95 |
| ECXDEF^ECXUTL2 | SETUP+2 |
| KPATDEM^ECXUTL2 | START+143 |
| $$ENCNUM^ECXUTL4 | START+71, START+139 |
| $$OBSPAT^ECXUTL4 | START+49, START+117 |
| DEM^VADPT | SETTMP+4 |
| $$FMTE^XLFDT | SETTMP+5, SETTMP+12 |
| $$LJ^XLFSTR | SENDMSG+22, SENDMSG+23 |
| ^XMD | SENDMSG+26 |
| $$NPI^XUSNPI | START+58, START+61, START+64, START+67, START+126, START+129, START+132, START+135 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGPM - [#405] | FIELD^DID, GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | START+12, START+19, START+81, START+85, SETLOC+11 |
| ^DGPM("ATS" | SETLOC+6, SETLOC+8, SETLOC+9 |
| ^DGPM("ATT3" | START+80 |
| ^DGPM("ATT6" | START+11 |
| ^DIC(45.7 - [#45.7] | START+8 |
| ^TMP($J | START+7!, START+8*, START+142, SETLOC+10, SETTMP+13*, SENDMSG+2, SENDMSG+10, SENDMSG+17, SENDMSG+19, SENDMSG+20 , SENDMSG+27! |
| ^XMB("NETNAME" | SENDMSG+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACADM | SENDMSG+20* |
| ATT | SETLOC+4~, SETLOC+11*, SETLOC+13*, SETLOC+14 |
| >> DATA | SETLOC+11*, SETLOC+12 |
| DFN | SETTMP~, SETTMP+2, SETTMP+13 |
| DIV | NPDIV+1~, NPDIV+2*, NPDIV+3 |
| >> EC | START+12*, START+13, START+19, START+21, START+81*, START+82, START+85 |
| >> EC23 | SENDMSG+7 |
| ECADM | SETTMP~, SETTMP+7, SENDMSG+21* |
| ECADMDT | SETTMP+1~, SETTMP+7*, SETTMP+12*, SETTMP+13 |
| ECATLNPI | START+1~, START+58*, START+59*, START+126*, START+127* |
| >> ECATTNPI | START+64*, START+65*, START+132*, START+133* |
| >> ECD | START+9*, START+11*, START+79*, START+80* |
| ECD1 | START+3~, START+25*, START+27, START+29, START+35, START+38, START+41, START+88*, START+90, START+107 , START+108, START+109 |
| ECD2 | START+3~, START+29*, START+30, START+32, START+33, START+35, START+38, START+41, START+90*, START+91 , START+92, START+100, START+107, START+108, START+109 |
| ECDA | START+11*, START+12, START+26, START+32, START+80*, START+81, START+91, SETTMP~, SETTMP+10, SETTMP+13 , SENDMSG+1~, SENDMSG+18*, SENDMSG+19*, SENDMSG+20, SENDMSG+21, SENDMSG+22 |
| ECDATE | SETTMP~, SETTMP+5 |
| ECDFN | SENDMSG+1~, SENDMSG+16*, SENDMSG+17*, SENDMSG+19, SENDMSG+20 |
| ECDIS | SETTMP+1~, SETTMP+7*, SETTMP+10*, SETTMP+11, SENDMSG+20*, SENDMSG+21* |
| ECDISDT | SETTMP+1~, SETTMP+11*, SETTMP+12*, SETTMP+13 |
| >> ECED | START+9*, START+11, START+80 |
| >> ECEDN | SENDMSG+7 |
| >> ECFILE | BEG+1, SETUP+2 |
| >> ECGRP | SETUP+2, SENDMSG+4 |
| >> ECHEAD | START+71, START+139, SETUP+1*, SETUP+2 |
| ECMOVDT | SETTMP+1~, SETTMP+5*, SETTMP+13 |
| ECMSG | SENDMSG+1~ |
| ECMSG(1 | SENDMSG+5* |
| ECMSG(2 | SENDMSG+6* |
| ECMSG(3 | SENDMSG+7* |
| ECMSG(4 | SENDMSG+8* |
| ECMSG(5 | SENDMSG+11*, SENDMSG+12*, SENDMSG+13*, SENDMSG+14*, SENDMSG+15*, SENDMSG+22*, SENDMSG+23*, SENDMSG+24* |
| >> ECMT | START+19*, START+85* |
| >> ECPACK | SETUP+2, SENDMSG+3 |
| >> ECPIECE | SETUP+2 |
| ECPRLNPI | START+1~, START+67*, START+68*, START+135*, START+136* |
| ECPRO | START+3~, START+6*, START+23, START+87 |
| >> ECPRVNPI | START+61*, START+62*, START+129*, START+130* |
| >> ECRTN | SETUP+2 |
| >> ECSD1 | START+9, START+79 |
| >> ECSDN | SENDMSG+7 |
| ECSSN | SENDMSG+1~ |
| ECSTR | SENDMSG+1~, SENDMSG+20*, SENDMSG+22, SENDMSG+23 |
| >> ECVER | SETUP+2 |
| >> ECXA | START+49, START+52*, START+71, START+72*, START+117, START+120*, START+139, START+140* |
| ECXADM | START+19*, START+21, START+23, START+26, START+32, START+85*, START+87, START+91, START+101, START+106 , SETLOC~, SETLOC+6, SETLOC+8, SETLOC+9 |
| >> ECXADMDT | START+43*, START+98* |
| ECXADMTM | START+1~, START+43*, START+98* |
| >> ECXADT | START+19*, START+43, START+57, START+58, START+60, START+61, START+63, START+64, START+66, START+67 , START+71, START+85*, START+98, START+125, START+126, START+128, START+129, START+131, START+132, START+134 , START+135, START+139 |
| ECXASIH | START+2~, START+72, START+140 |
| ECXATLPC | START+1~, START+57*, START+125* |
| ECXATNPC | START+1~, START+63*, START+131* |
| ECXATT | FINDLOC~, FINDLOC+12*, FINDLOC+17* |
| >> ECXATTL | START+33, START+41, START+57, START+58, START+92, START+104, START+109, START+125, START+126 |
| >> ECXATTN | START+27, START+41, START+63, START+64, START+86*, START+109, START+131, START+132 |
| ECXCERN | START+14~ |
| >> ECXDATE | START+42*, START+83* |
| ECXDCDT | START+1~, START+43*, START+83*, START+84* |
| ECXDCTM | START+3~, START+43*, START+83* |
| ECXDD | START+5!, START+6! |
| ECXDD("SPECIFIER" | START+6 |
| ECXDFN | START+12*, START+17, START+23, START+26, START+32, START+54, START+81*, START+87, START+91, START+95 , START+122, SETLOC~, SETLOC+6, SETLOC+8, SETLOC+9 |
| >> ECXDSSD | START+22*, START+86* |
| ECXDWARD | START+2~, START+97 |
| >> ECXENC | START+71*, START+73, START+139*, START+141 |
| ECXLOC | SETLOC~, FINDLOC~ |
| ECXLOC( | SETLOC+10*, SETLOC+14*, FINDLOC+14, FINDLOC+15, FINDLOC+16 |
| >> ECXLOGIC | START+46, START+114 |
| >> ECXLOS | START+22*, START+35, START+86*, START+102*, START+107, START+110* |
| >> ECXLOSA | START+22*, START+41, START+86*, START+104*, START+109, START+110* |
| >> ECXLOSP | START+22*, START+38, START+86*, START+103*, START+108, START+111* |
| ECXMOV | FINDLOC~, FINDLOC+12*, FINDLOC+17* |
| ECXMOVL | START+1~, START+33, START+92 |
| ECXMOVN | START+1~, START+27 |
| >> ECXMPI | START+18, START+96 |
| ECXMVD1 | START+1~, START+13*, START+17, START+25, START+26, START+32, START+42, START+52, START+82*, START+83 , START+88, START+91, START+102, START+103, START+104, START+120 |
| ECXMVD2 | START+1~, START+30*, START+90*, START+95, START+102, START+103, START+104 |
| ECXNMPI | START+14~, START+18*, START+96* |
| >> ECXOBS | START+49*, START+52, START+71, START+117*, START+120, START+139 |
| >> ECXPATCAT | START+54*, START+122* |
| >> ECXPDIV | START+45*, START+46*, START+113*, START+114* |
| ECXPRLPC | START+1~, START+66*, START+134* |
| ECXPRNPC | START+1~, START+60*, START+128* |
| ECXPRO | SETLOC~, SETLOC+13 |
| ECXPRV | FINDLOC~, FINDLOC+12*, FINDLOC+17* |
| >> ECXPRVL | START+33, START+38, START+66, START+67, START+92, START+103, START+108, START+134, START+135 |
| >> ECXPRVN | START+27, START+38, START+60, START+61, START+86*, START+108, START+128, START+129 |
| ECXSIGI | START+14~ |
| ECXSPC | FINDLOC~, FINDLOC+12*, FINDLOC+16* |
| >> ECXSPCL | START+33, START+92 |
| >> ECXSPCN | START+27, START+28, START+86* |
| ECXSSN | START+71, START+139, SETTMP+1~ |
| ECXTIME | START+1~, START+42*, START+83* |
| ECXTRT | FINDLOC~, FINDLOC+16* |
| >> ECXTRTL | START+33, START+35, START+92, START+107 |
| >> ECXTRTN | START+27, START+35, START+86* |
| >> ECXTS | START+49, START+71, START+117, START+139 |
| ECXTSD | FINDLOC~, FINDLOC+13 |
| >> ECXYM | START+42, START+43, START+83, START+98 |
| ERRMSG | SETTMP~, SETTMP+13, SENDMSG+1~, SENDMSG+9*, SENDMSG+10*, SENDMSG+11, SENDMSG+17, SENDMSG+19, SENDMSG+20 |
| I | SENDMSG+1~, SENDMSG+10*, SENDMSG+11, SENDMSG+12, SENDMSG+13, SENDMSG+14, SENDMSG+15, SENDMSG+22, SENDMSG+23, SENDMSG+24 |
| J | SENDMSG+1~, SENDMSG+9*, SENDMSG+11*, SENDMSG+12*, SENDMSG+13*, SENDMSG+14*, SENDMSG+15*, SENDMSG+17*, SENDMSG+22*, SENDMSG+23* , SENDMSG+24* |
| LOC | START+1~, START+23!, START+27, START+33, START+35, START+38, START+41, START+87!, START+92, START+107 , START+108, START+109, FINDLOC+11~, FINDLOC+16*, FINDLOC+17 |
| LOC( | START+29, START+90, START+100 |
| MOV | SETLOC+4~, SETLOC+12*, SETLOC+14 |
| PRV | SETLOC+4~, SETLOC+11*, SETLOC+13*, SETLOC+14 |
| PTNAME | SETTMP+1~, SETTMP+2*, SETTMP+3 |
| >> QFLG | START+4*, START+11, START+12, START+80, START+81 |
| REC | START+1~, START+100*, START+101, START+106 |
| SPC | START+1~, START+8*, SETLOC+4~, SETLOC+10*, SETLOC+14 |
| >> SSN | SETTMP+6*, SETTMP+13 |
| SUB3 | SETLOC+4~, SETLOC+5*, SETLOC+6*, SETLOC+8, SETLOC+9, SETLOC+10, SETLOC+14, FINDLOC+11~, FINDLOC+13*, FINDLOC+14 , FINDLOC+15, FINDLOC+16 |
| SUB4 | SETLOC+4~, SETLOC+7*, SETLOC+8*, SETLOC+9, SETLOC+10, SETLOC+14, FINDLOC+11~, FINDLOC+15*, FINDLOC+16 |
| SUB5 | SETLOC+4~, SETLOC+7*, SETLOC+9*, SETLOC+10, SETLOC+11, SETLOC+14, FINDLOC+11~, FINDLOC+15*, FINDLOC+16 |
| TEMPPDIV | START+2~ |
| TRT | START+1~, START+7*, START+8*, START+100* |
| U | START+8, START+12, START+13, START+19, START+21, START+59, START+62, START+65, START+68, START+81 , START+82, START+85, START+97, START+127, START+130, START+133, START+136, SETLOC+11, SETLOC+12, SETLOC+14 , FINDLOC+16, FINDLOC+17, SETTMP+6, SETTMP+13, SENDMSG+7, SENDMSG+22, SENDMSG+23 |
| VADM | SETTMP+1~ |
| VADM(1 | SETTMP+13 |
| VADM(2 | SETTMP+6 |
| WRD | START+1~, START+46, START+97*, START+114, NPDIV~, NPDIV+2 |
| >> X | START+102, START+103, START+104 |
| >> X1 | START+102*, START+103*, START+104* |
| >> X2 | START+102*, START+103*, START+104* |
| XMDUZ | SENDMSG+1~, SENDMSG+4* |
| XMSUB | SENDMSG+1~, SENDMSG+3* |
| XMTEXT | SENDMSG+1~, SENDMSG+25* |
| XMY | SENDMSG+1~, SENDMSG+4! |
| XMY("G.DSS-" | SENDMSG+4* |
