©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RAFLH2 ;HISC/GJC-Utility determines if flash cards print. ; 01 Jun 2012 10:58 AM
Source file <RAFLH2.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 1 | $$USESSAN^RAHLRU1 |
| Registration | 1 | $$SITE^VASITE |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | RAFLH RAFLH1 RAJAC RAMAIN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LONGCASE(X) | ;Set the INTERNAL VARIABLE (78.7 field 5) to the TEST VALUE (78.7 field 4)
|
|
| SETFLH(Y) | ; Set Flash Card Formats variables.
; Y -> IEN of file of the Label Print Fields file. ; Called from 6^RAMAIN & START^RAFLH1 |
|
| KILFLH(X) | ; Kill Flash Card Formats variables.
; X -> IEN of file of the Label Print Fields file. ; Called from 6^RAMAIN & Q^RAFLH1 |
|
| 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. |
|
| 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 |
| 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 |