DGPTTS3 ;ALB/MJK - Physical Mvt ; 2/10/11 6:19pm
Source file <DGPTTS3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 MPCR 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
