ADGDSN ; IHS/ADC/PDW/ENM - PATIENTS NOT RELEASED FROM DAY SURGERY ; [ 01/05/2004 11:45 AM ]
Source file <ADGDSN.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
END1 | ;***> eoj
|
|
END2 | ||
HEAD | ;***> subrtn to print heading
|
|
DATE2 | ||
END | ||
PRNT | ;***> print list
|
|
A1 | ||
NEWPG | ;***> subrtn for end of page control
|
|
A3 | ||
A2 | ||
QUE | ||
A4 | ||
PR2 | ||
DATE | ||
PR1 | ||
CALC | ;***> calculate patients not released; screen out no-shows & cancels
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ADGDS - [#9009012] | A3+1, A3+2 |
^ADGDS("AA" | A1, A2, A3 |
^AUPNPAT - [#9000001] | PR2+4 |
^DIC(4 - [#4] | PRNT+3 |
^DPT - [#2] | PR2+3 |
^TMP("DGZDSN" | CALC+1!, A4*, PR1, PR2, END2+1! |
^VA(200 - [#200] | PRNT+3 |
Name | Line Occurrences |
---|---|
A1 | A2 |
A2 | A3 |
A3 | A3+1, A3+3, A4 |
A4 | A3+2 |
CALC | DATE2+6 |
DATE | DATE2 |
DATE2 | DATE2+1 |
END | DATE+1, DATE2+6 |
END1 | PR1 |
END2 | PR2+5 |
HEAD | PRNT+4, NEWPG+1, NEWPG+3 |
NEWPG | PR2+5 |
PR1 | PR2 |
PR2 | PR2+5 |
PRNT | A1 |
QUE | DATE2+6 |
Name | Field # of Occurrence |
---|---|
^(0 | PR2+4 |
^(2 | A3+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %DT | DATE*, DATE2* |
>> %DT("A" | DATE*, DATE2* |
>> %ZIS | DATE2+6* |
>> DFN | A1*, A2*, A3, A3+1, A3+2, A4, PR1*, PR2*, PR2+3, PR2+4 |
>> DGBDT | DATE+1*, DATE2+1, CALC+1 |
DGBED | END! |
>> DGDT | CALC+1*, A1*, A2, A3, A4, PRNT+1*, PR1*, PR2, PR2+1, PR2+2 |
>> DGDUZ | PRNT+3*, HEAD+4 |
DGEDT | DATE2*, DATE2+1, DATE2+4*, END!, CALC+1*, A1 |
>> DGFAC | PRNT+3*, HEAD+4 |
>> DGI | QUE+2* |
>> DGLIN | PRNT+2*, HEAD+7 |
>> DGN | A2*, A3*, A3+1, A3+2 |
>> DGPAGE | PRNT+1*, NEWPG+2, HEAD+1, HEAD+2* |
>> DGSTOP | PRNT+1*, PR2+5, NEWPG+1*, NEWPG+2*, NEWPG+3 |
>> DGSTR | A3+2*, A3+3 |
>> DGT | PR2+1*, PR2+2 |
DIR | NEWPG+2! |
DIR(0 | NEWPG+2* |
DT | DATE2+4 |
DUZ | PRNT+3 |
DUZ(2 | PRNT+3, PR2+4 |
IO | DATE2+6 |
IO("Q" | DATE2+6, QUE! |
IOF | END2, HEAD+1 |
IOSL | PR2+5 |
IOST | END1+1, NEWPG+1, HEAD+1 |
>> POP | DATE2+6 |
U | A3+3, PRNT+3, PR2+3, PR2+4, PR2+5, NEWPG+3 |
>> X | DATE*, DATE2*, DATE2+4, PR2+2*, PR2+4, NEWPG+2 |
>> X1 | DATE2+4* |
>> X2 | DATE2+4* |
>> Y | DATE+1, DATE2 |
>> ZTDESC | QUE* |
>> ZTRTN | QUE* |
>> ZTSAVE( | QUE+2* |
ZTSK | QUE+3! |