DVBADSCK ;ALB/GTS-557/THM-DISCHARGE CHECKER ;21 JUL 89
Source file <DVBADSCK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DATE | ||
ZTM | ||
CHK | ;* Find the IFN of the 7131 which matches the admission date (If a 7131
|
|
SET | ;* Set up TMP global of admissions for discharges within range
|
|
SET1 | ;* Get the discharge type and execute CREATE and CREAT1 as needed
|
|
LOOK | ;* Loop through Admission Date TMP global execute CHK and SET1
|
|
DATA | ||
KILL | ||
CREATE | ;create notice
|
|
CREAT1 | ||
DOC | ;XADMDT=admission date on 7131
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DVB(396.2 - [#396.2] | Classic Fileman Calls |