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 |
VA FileMan | 3 | ^%DTC FIELD^DID $$GET1^DIQ |
Kernel | 1 | $$NPI^XUSNPI |
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 |
Package | Total | Caller Graph |
---|---|---|
DSS Extracts | 1 | ECXTRT |
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
|
Name | Field # of Occurrence |
---|---|
^%DTC | START+98, START+99, START+100 |
FIELD^DID | START+4 |
$$GET1^DIQ | NPDIV+2 |
$$GETDIV^ECXDEPT | NPDIV+3 |
^ECXKILL | BEG+2, QUE+1 |
QUE^ECXTAUTO | QUE+1 |
^ECXTRAC | BEG+2 |
PREVATT^ECXTRT1 | START+38, START+105 |
PREVPRV^ECXTRT1 | START+35, START+104 |
PREVTRT^ECXTRT1 | START+32, START+103 |
FILE^ECXTRT2 | START+70, START+137 |
$$ECXDATE^ECXUTL | START+39, START+40, START+80, START+94 |
$$ECXTIME^ECXUTL | START+39, START+40, START+80, START+94 |
$$PATCAT^ECXUTL | START+51, START+118 |
$$PRVCLASS^ECXUTL | START+54, START+57, START+60, START+63, START+121, START+124, START+127, START+130 |
$$PATDEM^ECXUTL2 | START+16, START+91 |
ECXDEF^ECXUTL2 | SETUP+2 |
KPATDEM^ECXUTL2 | START+138 |
$$ENCNUM^ECXUTL4 | START+68, START+135 |
$$OBSPAT^ECXUTL4 | START+46, START+113 |
$$NPI^XUSNPI | START+55, START+58, START+61, START+64, START+122, START+125, START+128, START+131 |
FileNo | Call Tags |
---|---|
^DGPM - [#405] | FIELD^DID |
^DIC(42 - [#42] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | START+11, START+18, START+78, START+82, SETLOC+11 |
^DGPM("ATS" | SETLOC+6, SETLOC+8, SETLOC+9 |
^DGPM("ATT3" | START+77 |
^DGPM("ATT6" | START+10 |
^DIC(45.7 - [#45.7] | START+7 |
^TMP($J | START+6!, START+7*, SETLOC+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATT | SETLOC+4~, SETLOC+11*, SETLOC+13*, SETLOC+14 |
>> DATA | SETLOC+11*, SETLOC+12 |
DIV | NPDIV+1~, NPDIV+2*, NPDIV+3 |
>> EC | START+11*, START+12, START+18, START+20, START+78*, START+79, START+82 |
ECATLNPI | START+1~, START+55*, START+56*, START+122*, START+123* |
>> ECATTNPI | START+61*, START+62*, START+128*, START+129* |
>> ECD | START+8*, START+10*, START+76*, START+77* |
>> ECD1 | START+24*, START+25, START+27, START+32, START+35, START+38, START+85*, START+87, START+103, START+104 , START+105 |
>> ECD2 | START+27*, START+28, START+30, START+32, START+35, START+38, START+87*, START+88, START+96, START+103 , START+104, START+105 |
>> ECDA | START+10*, START+11, START+77*, START+78 |
>> ECED | START+8*, START+10, START+77 |
>> ECFILE | BEG+1, SETUP+2 |
>> ECGRP | SETUP+2 |
>> ECHEAD | START+68, START+135, SETUP+1*, SETUP+2 |
>> ECMT | START+18*, START+82* |
>> ECPACK | SETUP+2 |
>> ECPIECE | SETUP+2 |
ECPRLNPI | START+1~, START+64*, START+65*, START+131*, START+132* |
>> ECPRO | START+5*, START+22, START+84 |
>> ECPRVNPI | START+58*, START+59*, START+125*, START+126* |
>> ECRTN | SETUP+2 |
>> ECSD1 | START+8, START+76 |
>> ECVER | SETUP+2 |
>> ECXA | START+46, START+49*, START+68, START+69*, START+113, START+116*, START+135, START+136* |
ECXADM | START+18*, START+20, START+22, START+82*, START+84, START+97, START+102, SETLOC~, SETLOC+6, SETLOC+8 , SETLOC+9 |
>> ECXADMDT | START+40*, START+94* |
ECXADMTM | START+1~, START+40*, START+94* |
>> ECXADT | START+18*, START+40, START+54, START+55, START+57, START+58, START+60, START+61, START+63, START+64 , START+68, START+82*, START+94, START+121, START+122, START+124, START+125, START+127, START+128, START+130 , START+131, START+135 |
ECXASIH | START+2~, START+69, START+136 |
ECXATLPC | START+1~, START+54*, START+121* |
ECXATNPC | START+1~, START+60*, START+127* |
ECXATT | FINDLOC~, FINDLOC+12*, FINDLOC+17* |
>> ECXATTL | START+30, START+38, START+54, START+55, START+88, START+100, START+105, START+121, START+122 |
>> ECXATTN | START+25, START+38, START+60, START+61, START+83*, START+105, START+127, START+128 |
ECXCERN | START+13~ |
>> ECXDATE | START+39*, START+80* |
ECXDCDT | START+1~, START+40*, START+80*, START+81* |
ECXDD | START+4!, START+5! |
ECXDD("SPECIFIER" | START+5 |
ECXDFN | START+11*, START+16, START+22, START+51, START+78*, START+84, START+91, START+118, SETLOC~, SETLOC+6 , SETLOC+8, SETLOC+9 |
>> ECXDSSD | START+21*, START+83* |
ECXDWARD | START+2~, START+93 |
>> ECXENC | START+68*, START+70, START+135*, START+137 |
ECXLOC | SETLOC~, FINDLOC~ |
ECXLOC( | SETLOC+10*, SETLOC+14*, FINDLOC+14, FINDLOC+15, FINDLOC+16 |
>> ECXLOGIC | START+43, START+110 |
>> ECXLOS | START+21*, START+32, START+83*, START+98*, START+103, START+106* |
>> ECXLOSA | START+21*, START+38, START+83*, START+100*, START+105, START+106* |
>> ECXLOSP | START+21*, START+35, START+83*, START+99*, START+104, START+107* |
ECXMOV | FINDLOC~, FINDLOC+12*, FINDLOC+17* |
ECXMOVL | START+1~, START+30, START+88 |
ECXMOVN | START+1~, START+25 |
>> ECXMPI | START+17, START+92 |
ECXMVD1 | START+1~, START+12*, START+16, START+24, START+39, START+49, START+79*, START+80, START+85, START+98 , START+99, START+100, START+116 |
ECXMVD2 | START+1~, START+28*, START+87*, START+91, START+98, START+99, START+100 |
ECXNMPI | START+13~, START+17*, START+92* |
>> ECXOBS | START+46*, START+49, START+68, START+113*, START+116, START+135 |
>> ECXPATCAT | START+51*, START+118* |
>> ECXPDIV | START+42*, START+43*, START+109*, START+110* |
ECXPRLPC | START+1~, START+63*, START+130* |
ECXPRNPC | START+1~, START+57*, START+124* |
ECXPRO | SETLOC~, SETLOC+13 |
ECXPRV | FINDLOC~, FINDLOC+12*, FINDLOC+17* |
>> ECXPRVL | START+30, START+35, START+63, START+64, START+88, START+99, START+104, START+130, START+131 |
>> ECXPRVN | START+25, START+35, START+57, START+58, START+83*, START+104, START+124, START+125 |
ECXSIGI | START+13~ |
ECXSPC | FINDLOC~, FINDLOC+12*, FINDLOC+16* |
>> ECXSPCL | START+30, START+88 |
>> ECXSPCN | START+25, START+26, START+83* |
>> ECXSSN | START+68, START+135 |
ECXTIME | START+1~, START+39*, START+80* |
ECXTRT | FINDLOC~, FINDLOC+16* |
>> ECXTRTL | START+30, START+32, START+88, START+103 |
>> ECXTRTN | START+25, START+32, START+83* |
>> ECXTS | START+46, START+68, START+113, START+135 |
ECXTSD | FINDLOC~, FINDLOC+13 |
>> ECXYM | START+39, START+40, START+80, START+94 |
LOC | START+1~, START+22!, START+25, START+30, START+32, START+35, START+38, START+84!, START+88, START+103 , START+104, START+105, FINDLOC+11~, FINDLOC+16*, FINDLOC+17 |
LOC( | START+27, START+87, START+96 |
MOV | SETLOC+4~, SETLOC+12*, SETLOC+14 |
PRV | SETLOC+4~, SETLOC+11*, SETLOC+13*, SETLOC+14 |
>> QFLG | START+3*, START+10, START+11, START+77, START+78 |
REC | START+1~, START+96*, START+97, START+102 |
SPC | START+1~, START+7*, SETLOC+4~, SETLOC+10*, SETLOC+14 |
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+6*, START+7*, START+96* |
U | START+7, START+11, START+12, START+18, START+20, START+56, START+59, START+62, START+65, START+78 , START+79, START+82, START+93, START+123, START+126, START+129, START+132, SETLOC+11, SETLOC+12, SETLOC+14 , FINDLOC+16, FINDLOC+17 |
WRD | START+1~, START+43, START+93*, START+110, NPDIV~, NPDIV+2 |
>> X | START+98, START+99, START+100 |
>> X1 | START+98*, START+99*, START+100* |
>> X2 | START+98*, START+99*, START+100* |