RAMAINP ;HISC/GJC AISC/TMP,RMO-Utility Files Print ;9/22/98 15:26
Source file <RAMAINP.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
2 | ;;Long Active Procedure List
|
|
3 | ;;Major AMIS Code Print
|
|
4 | ;;Film Sizes Print
|
|
5 | ;;Diagnostic Code Print
|
|
6 | ;;Flash Card/Label Formatter Print
|
|
7 | ;;Complication Type Print
|
|
8 | ;;Contract/Sharing Agreements Print
|
|
9 | ;;Short Active Procedure List
|
|
10 | ;;Long Inactive Procedure List
|
|
11 | ;;Short Inactive Procedure List
|
|
12 | ;;Series Procedures Only
|
|
13 | ;;Standard Reports List
|
|
14 | ;;Procedure Modifiers Print
|
|
15 | ;;Alpha List of Active Procedures
|
|
16 | ;;Reports Distribution List
|
|
17 | ;;Rad/Nuc Med Procedure Message List
|
|
132 | ||
KILL | ; Kill locals, and set ZTREQ if applicable.
|
|
IMG(RA) | ; Screens procedures by I-Type. Called from the following
; subroutines: 2,9,10,11,12 & 15. Contained in variable DIS(0)! ; 'RA' is the ien of file 71. ; return '1' if procedure is correct I-Type, else '0'! |
|
ENTASK | ; Entry point for tasked job.
; All necessary variables are defined by the code calling ENTASK. |
|
ZIS(RA) | ; Select a device
; RAPOP=device selection successful ^ '^%ZTLOAD' called 1-yes |
|
ZTSAVE | ; Save variables for tasked job
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(34 - [#34] | Classic Fileman Calls |
^RAMIS(71 - [#71] | Classic Fileman Calls |
^RAMIS(71.1 - [#71.1] | Classic Fileman Calls |
^RAMIS(71.2 - [#71.2] | Classic Fileman Calls |
^RAMIS(71.4 - [#71.4] | Classic Fileman Calls |
^RA(74.1 - [#74.1] | Classic Fileman Calls |
^RABTCH(74.3 - [#74.3] | Classic Fileman Calls |
^RA(78.1 - [#78.1] | Classic Fileman Calls |
^RA(78.2 - [#78.2] | Classic Fileman Calls |
^RA(78.3 - [#78.3] | Classic Fileman Calls |
^RA(78.4 - [#78.4] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RA(79.2 - [#79.2] | IMG+6 |
^RAMIS(71 - [#71] | IMG+4 |
^TMP($J | KILL+1!, IMG+7, ZTSAVE+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | 7+1! |
%X | 7+1!, KILL+1! |
%XX | KILL+1! |
%Y | 7+1!, KILL+1! |
%YY | KILL+1! |
%ZIS | KILL+2!, ZIS+3!* |
%ZIS("A" | ZIS+3* |
BY | 2+4*, 3+1*!, 4+1*, 4+2!, 5+1*!, 6+1*!, 7+1*!, 8+1*!, 9+4*, 10+4* , 11+5*, 12+4*, 13+1*, 13+2!, 14+1*, 14+3!, 15+4*, 16+1*!, 17+1*!, KILL+2! |
D0 | 17+1! |
DD00 | 14+3! |
DHD | 2+5*, 3+1*!, 5+1*!, 6+1*!, 7+1*!, 8+1*!, 9+5*, 10+5*, 11+6*, 12+5* , 13+2!, 14+2*, 14+3!, 16+1!, 17+1!, KILL+2!, ZTSAVE+3 |
DHIT | 2+6*, 10+6*, 12+6*, KILL+2!, ZTSAVE+4 |
DIC | 2+3*, 3+1*, 4+1*, 5+1*, 6+1*, 7+1*, 8+1*, 9+3*, 10+3*, 11+4* , 12+4*, 13+1*, 14+1*, 15+3*, 16+1*, 17+1*, KILL+2! |
DIJ | 4+2! |
DIS | KILL+2!, ZTSAVE+2 |
DIS(0 | 2+7*, 9+6*, 10+7*, 11+7*, 12+7*, 15+5* |
DP | 4+2! |
DTOUT | KILL+2! |
DUOUT | KILL+2! |
FLDS | 2+3*, 3+1*!, 4+1*, 4+2!, 5+1*!, 6+1*!, 7+1*!, 8+1*!, 9+3*, 10+3* , 11+4*, 12+4*, 13+1*, 13+2!, 14+1*, 14+3!, 15+3*, 16+1*!, 17+1*!, KILL+2! |
FR | 2+4*, 3+1*!, 4+1*, 4+2!, 5+1*!, 6+1*!, 7+1*!, 8+1*!, 9+4*, 10+4* , 11+5*, 13+1*, 13+2!, 14+1*, 14+3!, 15+4*, 16+1*!, 17+1*!, KILL+2! |
I | KILL+4!, ZTSAVE+1~* |
IO("Q" | ZIS+5, ZIS+6! |
IOM | ENTASK+2 |
ION | ENTASK+2 |
IOP | ENTASK+2*, ZIS+3! |
IOSL | ENTASK+2 |
IOST | ENTASK+2 |
L | 2+3*, 3+1*, 4+1*, 5+1*, 6+1*!, 7+1*, 8+1*, 9+3*, 10+3*, 11+4* , 12+4*, 13+1*, 14+1*, 15+3*, 16+1*, 17+1*, KILL+2! |
P | 4+2! |
POP | 3+1!, 4+2!, 5+1!, 6+1!, 7+1!, 8+1!, 13+2!, 14+3!, 16+1!, KILL+2! , KILL+4!, ZIS+4 |
RA | IMG~, IMG+4, ZIS~, ZIS+6 |
RA1 | 2+1~, 9+1~, 10+1~, 12+1~, 15+1~ |
RA2 | 2+1~, 9+1~, 10+1~, 12+1~, 15+1~ |
RA3 | 2+1~, 10+1~, 12+1~ |
RADIO | KILL+4! |
RAI | IMG+4~*, IMG+5, IMG+6, IMG+7 |
RAII | IMG+4~, IMG+6*, IMG+7 |
RAIOP | KILL+2!, ENTASK+2* |
RALINE | KILL+2! |
RAPHARM | KILL+4! |
RAPOP | 2+8*, 2+9, 2+10, 9+7*, 9+8, 9+9, 10+8*, 10+9, 10+10, 11+8* , 11+9, 11+10, 12+8*, 12+9, 12+10, 15+6*, 15+7, 15+8, KILL+2!, ZIS+2~ , ZIS+4*, ZIS+5, ZIS+7*, ZIS+11 |
RAX | 2+1~*, 9+1~*, 10+1~*, 11+1~, 11+2*, 12+1~, 12+2*, 15+1~* |
RAY | 2+1~, 2+2*, 2+8, 9+1~, 9+2*, 9+7, 10+1~, 10+2*, 10+8, 11+1~ , 11+3*, 11+8, 12+1~, 12+3*, 12+8, 15+1~, 15+2*, 15+6 |
TO | 2+4*, 3+1*!, 4+1*, 4+2!, 5+1*!, 6+1*!, 7+1*!, 8+1*!, 9+4*, 10+4* , 11+5*, 13+1*, 13+2!, 14+1*, 14+3!, 15+4*, 16+1*!, 17+1*!, KILL+3! |
X | 4+2!, 8+1!, 13+2!, 16+1!, KILL+3! |
X1 | 16+1! |
Y | KILL+3! |
ZTDESC | KILL+3!, ZIS+6* |
>> ZTQUEUED | KILL+5 |
>> ZTREQ | KILL+5* |
ZTRTN | KILL+3!, ZIS+6* |
ZTSAVE | KILL+3! |
ZTSAVE( | ZTSAVE+1* |
ZTSAVE("DHD" | ZTSAVE+3* |
ZTSAVE("DHIT" | ZTSAVE+4* |
ZTSAVE("DIS(" | ZTSAVE+2* |
ZTSAVE("^TMP( | $J, ""RA I-TYPE"", " , ZTSAVE+5* |
ZTSK | 7+1!, ZIS+8 |