©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGUTL2 ;ALB/MJK/AAS - CALCULATE PASS DAYS UTILITY ; 8/5/02 5:48pm
Source file <DGUTL2.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 3 | DGAINP0 DGPTC1 DGPTTS2 |
| Integrated Billing | 1 | IBCU64 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASIH | ;calculate asih days
|
|
| PLASIH | ;calculate pass, leave and asih days
|
|
| IBCHK | ||
| ENDREC | ||
| CALCQ | ||
| APLD(DGPMCA,DGARR,DGBDT,DGEDT,DGMTYP) | ;Return ASIH, pass & leave days and dates
|
|
| 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 |
|
| PL | ;calculate total PASS and UA, AA leave days
|
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | CALC+11, APLD+59, IBCHK+3 |
| 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! |
| Name | Line Occurrences |
|---|---|
| CALC | ASIH+1, PL+1, PLASIH+1 |
| ENDREC | APLD+40 |
| IBCHK | APLD+40, APLD+56 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CALC+10 |
| ^(0 | CALC+10 |
| >> | 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~ |