RAFLH2 ;HISC/GJC-Utility determines if flash cards print. ;4/3/97 07:57
Source file <RAFLH2.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 |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 4 | RAFLH RAFLH1 RAJAC RAMAIN |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRINT(RADIV,RALOC,RAPRC) | ;
; Pass in 'RAMDIV', 'RAMLC' & proc. array i.e, 'RAPX'. ; Pass back '0' if the print is to be aborted, '>0' to print. |
|
KILFLH(X) | ; Kill Flash Card Formats variables.
; X -> IEN of file of the Label Print Fields file. ; Called from 6^RAMAIN & Q^RAFLH1 |
|
SETFLH(Y) | ; Set Flash Card Formats variables.
; Y -> IEN of file of the Label Print Fields file. ; Called from 6^RAMAIN & START^RAFLH1 |
|
XECFLH(X,Y) | ; Execute the "E" node for the Flash Card Formats file (78.2).
; X -> IEN of the top level ; Y -> IEN at the first subfile level. ; Called from RAFLH & RAFLH1 |
|
LONGCASE(X) | ;Set the INTERNAL VARIABLE (78.7 field 5) to the TEST VALUE (78.7 field 4)
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RA(78.2 - [#78.2] | XECFLH+5, XECFLH+6, XECFLH+8* |
^RA(78.7 - [#78.7] | KILFLH+3, SETFLH+3 |
^RA(79 - [#79] | PRINT+4 |
^RA(79.1 - [#79.1] | PRINT+4 |
^TMP($J | XECFLH+4* |
Name | Line Occurrences |
---|---|
LONGCASE | SETFLH+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
I | PRINT+3~, PRINT+12*, PRINT+13, XECFLH+3~*, XECFLH+4* |
RA71 | PRINT+3~, PRINT+14*, PRINT+16 |
>> RA787(0 | KILFLH+3*, KILFLH+4!, SETFLH+3*, SETFLH+4, SETFLH+5 |
RA79 | PRINT+3~ |
RA79( | PRINT+4*, PRINT+5*, PRINT+6*, PRINT+16 |
RA791 | PRINT+3~ |
RA791(0 | PRINT+4*, PRINT+7, PRINT+8, PRINT+9 |
RA791(2 | PRINT+7*, PRINT+16 |
RA791(4 | PRINT+8*, PRINT+16 |
RA791(8 | PRINT+9*, PRINT+16 |
RADIV | PRINT~, PRINT+4 |
RAFLG | PRINT+3~, PRINT+16*, PRINT+17 |
RAI | LONGCASE+7~*, LONGCASE+8 |
>> RAIND1( | XECFLH+4 |
RALOC | PRINT~, PRINT+4 |
RAPRC | PRINT~ |
RAPRC( | PRINT+12, PRINT+13 |
RASAV | XECFLH+6~*, XECFLH+7, XECFLH+8 |
>> RATEST | XECFLH+5 |
RATMP | XECFLH+6~, XECFLH+7* |
U | SETFLH+4, LONGCASE+8 |
X | PRINT+3~, PRINT+13*, KILFLH~, KILFLH+3, XECFLH~, XECFLH+5, XECFLH+6, XECFLH+8, LONGCASE~, LONGCASE+8 |
X1 | PRINT+3~, PRINT+13*, PRINT+14 |
Y | SETFLH~, SETFLH+3, XECFLH~, XECFLH+5, XECFLH+6, XECFLH+8 |