DGUTL2 ;ALB/MJK/AAS - CALCULATE PASS DAYS UTILITY ; 8/5/02 5:48pm
Source file <DGUTL2.m>
| 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 |
