PSIVWL ;BIR/RGY,PR - COMPILE AND PRT WARD LIST ;13 MAR 97 / 10:18 AM
Source file <PSIVWL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DEQ | ;
|
|
Q | ||
SETP | ||
MAN1 | ||
MAN2 | ||
MAN3 | ;I P(4)=""!(P(4)'=PSIVT) S NOFLG=1 D NOW^%DTC S PSIVRUN=$E(%,1,12) K %,%I,%H D HDR^PSIVWL1 W !!,"****NO DATA FOUND FOR THIS REPORT!***" Q
|
|
QUE | ||
ENP3 | ;
|
|
QSP | ||
CHK | ||
ENP4 | ||
ENT | ;PSIVMIN=# of min. to add or sub, PSIVSD=date to add or sub from in FM format -- Answer ret. in 'Y'
|
|
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|