DGUTL2 ;ALB/MJK/AAS - CALCULATE PASS DAYS UTILITY ; 8/5/02 5:48pm
Source file <DGUTL2.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 1 | ^%DTC |
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 |
---|---|---|
Registration | 3 | DGAINP0 DGPTC1 DGPTTS2 |
Integrated Billing | 2 | IBAECU2 IBCU64 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CALC | ; -- calculate days
; input: DGBDT := begin date ; DGEDT := end date ; DGADM := adm date ; DGPMCA:= corresponding. admission. ; DGMVTP:= type movements to count - see below ; output: DGREC := #days count asih |
|
CALCQ | ||
ASIH | ;calculate asih days
|
|
PL | ;calculate total PASS and UA, AA leave days
|
|
PLASIH | ;calculate pass, leave and asih days
|
|
APLD(DGPMCA,DGARR,DGBDT,DGEDT,DGMTYP) | ;Return ASIH, pass & leave days and dates
|
|
ENDREC | ||
IBCHK |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | CALC+10, APLD+24, APLD+31, APLD+32, APLD+34, APLD+37, IBCHK+2 |
^DGPM("APCA" | CALC+10, APLD+36, APLD+37, IBCHK, IBCHK+1 |
^TMP("DGMOV" | APLD+30!, ENDREC! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | CALC+10, APLD+21~, APLD+31*, APLD+36, APLD+37, IBCHK, IBCHK+1 |
DG | APLD+41~*, APLD+53 |
>> DGA | CALC+11* |
>> DGADM | CALC+10 |
DGARR | APLD~, APLD+22! |
DGARR( | APLD+61*, APLD+62* |
DGARR(0 | ENDREC* |
DGB | APLD+41~, APLD+47*, APLD+48*, APLD+49 |
DGBDT | CALC+11, APLD~, APLD+23*, APLD+24, APLD+35, APLD+36, APLD+40, APLD+55, ENDREC, IBCHK+2 |
DGCT | APLD+21~, APLD+30*, APLD+63*, ENDREC, IBCHK+3* |
DGDIS | APLD+21~, APLD+32*, APLD+33, APLD+35, APLD+59 |
DGEDT | CALC+10, CALC+11, APLD~, APLD+23*, APLD+24, APLD+25, APLD+33*, APLD+36, APLD+38, APLD+40 , APLD+54, ENDREC |
DGI | CALC+10*, CALC+11*, CALCQ!, APLD+21~, APLD+30*, APLD+36*, APLD+37, APLD+38, APLD+41*, APLD+42 , APLD+43, APLD+48, APLD+50 |
DGIB | APLD+22~, APLD+40*, APLD+42*, APLD+58, IBCHK+2*, IBCHK+3 |
DGK | APLD+41~, APLD+47*, APLD+48* |
DGM | APLD+21~, APLD+37*, APLD+38, APLD+42*, APLD+43, APLD+48, APLD+57, APLD+61, APLD+62 |
DGM0 | APLD+21~, APLD+31*, APLD+32, APLD+34, APLD+37*, APLD+38, APLD+40*, APLD+43*, APLD+44, APLD+45 , APLD+55, APLD+56, APLD+57, APLD+58, APLD+61, IBCHK, IBCHK+2 |
DGMOV | APLD+21~, APLD+30*, APLD+38, APLD+41, APLD+42, APLD+43, APLD+50, APLD+51, APLD+52 |
DGMTYP | APLD~, APLD+23*, APLD+27, APLD+28 |
DGMVTP | CALC+8, CALC+11, ASIH+1*, PL+1*, PLASIH+1*, APLD+21~, APLD+27*, APLD+34*, APLD+44, IBCHK+2 |
DGPL | APLD+22~, APLD+29* |
DGPMCA | CALC+10, APLD~, APLD+23*, APLD+24, APLD+31, APLD+36, APLD+37, IBCHK, IBCHK+1 |
DGRC | APLD+22~, APLD+36*, APLD+38*, APLD+40, IBCHK+2, IBCHK+3 |
>> DGREC | CALC+9*, CALC+11* |
DGRTMV | APLD+22~, APLD+28*, APLD+45, APLD+51, APLD+56 |
DGRTNCHK | APLD+41~ |
DGRTNCHK( | APLD+48, APLD+53* |
DGXFRS | CALC+9*, CALC+10, CALC+11, CALCQ! |
DT | APLD+25 |
EOL | APLD+21~, APLD+40*, APLD+42*, APLD+50, APLD+52*, APLD+54*, APLD+59, APLD+61, IBCHK+2*, IBCHK+3 |
ISOL | APLD+22~, IBCHK*, IBCHK+1 |
MDT | APLD+22~, APLD+37*, APLD+38 |
NDGM | APLD+22~, APLD+42*, APLD+54, APLD+59 |
PROCESS | APLD+22~, APLD+44*, APLD+45*, APLD+46 |
RCNT | APLD+22~, APLD+41*, APLD+45, APLD+55, APLD+56, APLD+58, IBCHK+2 |
RTN | APLD+22~, APLD+41*, APLD+52*, APLD+57*, APLD+59, APLD+60*, APLD+62* |
SOL | APLD+21~, APLD+40*, APLD+43*, APLD+55*, APLD+59, APLD+61, IBCHK+2*, IBCHK+3 |
TDGI | APLD+21~, APLD+50*, APLD+51, APLD+52, APLD+53 |
TDGM | APLD+21~, APLD+51*, APLD+52, APLD+53 |
U | CALC+10, CALC+11, APLD+31, APLD+32, APLD+34, APLD+38, APLD+43, APLD+44, APLD+45, APLD+51 , APLD+52, APLD+55, APLD+56, APLD+57, APLD+58, APLD+61, ENDREC, IBCHK+2 |
X | CALC+11, APLD+21~, APLD+59*, APLD+60, APLD+61, APLD+63, IBCHK+3 |
X1 | CALC+11*, APLD+21~, APLD+59*, IBCHK+3* |
X2 | CALC+11*, APLD+21~, APLD+59*, IBCHK+3* |
XDGMOV | APLD+22~, IBCHK+1*, IBCHK+2 |
XSOL | APLD+22~ |