IB20PT85 ;ALB/CPM - EXPORT ROUTINE 'DGPTTS3' ; 14-FEB-94
Source file <IB20PT85.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DGPTTS3 | ;ALB/MJK - Physical Mvt ; MAY 04, 1990
|
|
| EN | ; -- entry used to update PTF rec
; input: PTF := PTF# ; DFN := pt# ; DGPMCA := adm mvt # ; DGDT := d/c date |
|
| ENQ | ||
| TABLE | ; -- setup 535 node data
; DGDATA := 1:ward cdr ^ 2:ward specialty ^ 3:leave days ^ 4:pass days ^ ^ 6:ward ^ ^ ^ ^ 10:mvt date/time |
|
| TABLEQ | ||
| CREATE | ; -- create CDR mvt
|
|
| L | ||
| CREATEQ | ||
| KILL | ; -- clean out ward mvts
|
|
| T | ; -- test tag
|
|
| PTF | ||
| DAYS | ; -- calc leave and pass days from DGBEG to DGEND
; -- if last 501 date is after last 535 date then ; calc from last 535 mvt d/t to last 501 mvt d/t |
|
| DAYS0 | ;
|
|
| DAYS1 | ||
| NEXT | ; -- find next x-ref date
|
|
| NEXTQ | ||
| MVT | ; -- find last 501 mvt d/t since the last 535 mvt d/t
; and before the new 535 mvt d/t |
|
| FLCHK | ; -- check if more than 25 535s, then re-set x-mit flags
|
|
| FLQ |
