SRSCDS1 ;B'HAM ISC/MAM - SCHEDULED OPERATIONS BY SERVICE ; [ 07/27/98 2:33 PM ]
Source file <SRSCDS1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
END | ||
HDR | ; print heading
|
|
UTL | ; set ^TMP("SR",$J)
|
|
PAGE | ||
SRS | ; entry when queued
|
|
; loop through ^TMP and print cases
|
||
WARD | ; check for scheduled admission
|
|
OUT | ; output data
|
|
OR | ||
LOOP | ; break procedure if greater than 65 characters
|
|
ZTSAVE |
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: READ |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGS(41.1 - [#41.1] | WARD+1 |
^DPT - [#2] | UTL+1 |
^SC - [#44] | UTL+2 |
^SRF - [#130] | OR, UTL+1 |
^SRF("AOR" | OR |
^SRO(137.45 - [#137.45] | UTL+3 |
^SRS - [#131.7] | UTL+2 |
^TMP("SR" | OR+1!, OR+2, UTL+6*, PRINT+2, OUT+2 |
Name | Line Occurrences |
---|---|
END | SRSCDS1+3 |
HDR | OR+2, PRINT+2, OUT+1 |
LOOP | OUT+2 |
OUT | PRINT+2 |
PAGE | PRINT+2, OUT+1 |
OR+1 | |
UTL | OR |
WARD | UTL+1 |
Name | Field # of Occurrence |
---|---|
^( | UTL+1 |
^(31 | OR |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | SRSCDS1+2!, SRSCDS1+3* |
%ZIS("A" | SRSCDS1+3* |
>> DFN | UTL+1*, WARD+1 |
DT | ZTSAVE, WARD+1 |
DTIME | END, PAGE |
IO | SRS+1 |
IO("Q" | SRSCDS1+2!, SRSCDS1+3! |
IOF | OR+1, END+1, HDR+2 |
IOP | SRSCDS1+2! |
IOSL | OUT+1 |
IOST | OR+1, END, PAGE |
>> LINE | HDR+2*, OUT+4* |
>> LOOP | LOOP+1* |
>> M | LOOP+1, OUT+2* |
MM | LOOP+1*, OUT+2! |
MMM | LOOP+1*, OUT+2! |
>> PDATE | WARD+1* |
>> PEND | WARD+1* |
POP | SRSCDS1+2!, SRSCDS1+3 |
>> SR | OUT+2*, OUT+3 |
>> SRDATE | SRS+1*, HDR+2 |
>> SRFIND | UTL+4* |
>> SRHALT | HDR+1 |
>> SRNM | UTL+1*, UTL+6 |
>> SROPER | LOOP+1*, OUT+2* |
SROPS | OUT+2! |
SROPS( | LOOP+1* |
SROPS(1 | OUT+2*, OUT+3 |
SROPS(2 | OUT+3 |
SROPS(3 | OUT+3 |
>> SROR | SRS+1*, OR*, UTL+2, PRINT+1*, PRINT+2*, OUT+2, OUT+3 |
>> SROR("N" | UTL+2*, UTL+6 |
>> SRQ | SRS+1*, OR, END, HDR+1*, PRINT+2, OUT+1, PAGE* |
>> SRS | ZTSAVE |
>> SRS("C" | ZTSAVE |
>> SRS("N" | ZTSAVE |
>> SRSDATE | SRS+1, OR |
>> SRSITE("DIV" | OR |
>> SRSOP | UTL+1*, UTL+6 |
>> SRSS | SRS+1*, HDR+2, UTL+1*, UTL+3*, UTL+5*, UTL+6, PRINT+1*, PRINT+2*, OUT+2 |
>> SRSSN | UTL+1*, UTL+6 |
>> SRST | OR*, UTL+4, UTL+6, PRINT+1*, PRINT+2*, OUT+2 |
>> SRTIME | UTL+4*, UTL+6 |
SRTN | SRS+1*, OR*, END+1!, UTL+1 |
>> SRWARD | UTL+1*, UTL+6, WARD+1*, WARD+2* |
>> SRZ | HDR+2*, PRINT+1*, PRINT+2 |
>> VA("PID" | UTL+1 |
>> VADM(1 | UTL+1 |
>> X | END*, PAGE*, WARD+1*, WARD+2 |
>> Y | SRS+1*, UTL+4* |
>> ZTDESC | SRSCDS1+3* |
>> ZTQUEUED | OR+1, HDR+1 |
>> ZTREQ | OR+1* |
>> ZTRTN | SRSCDS1+3* |
>> ZTSAVE("DT" | ZTSAVE* |
>> ZTSAVE("SRS" | ZTSAVE* |
>> ZTSAVE("SRS(""C"")" | ZTSAVE* |
>> ZTSAVE("SRS(""N"")" | ZTSAVE* |
>> ZTSAVE("SRSDATE" | SRSCDS1+3* |
>> ZTSAVE("SRSITE*" | SRSCDS1+3*, ZTSAVE* |
>> ZTSTOP | OR+1 |