Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: RAHLO2

Package: Radiology Nuclear Medicine

Routine: RAHLO2


Information

RAHLO2 ;HIRMFO/GJC-File rpt (data from bridge program) ;10 Apr 2019 3:05 PM

Source Information

Source file <RAHLO2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 $$DT^XLFDT  $$UP^XLFSTR  
VA FileMan 2 $$FIND1^DIC  UPDATE^DIE  
Radiology Nuclear Medicine 1 KILSECDG^RAHLO4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RAHLO  RAHLO1  

Entry Points

Name Comments DBIA/ICR reference
ADENDUM ; This functions store new lines of text at the end of the existing
ERR(A) ; Invalid impression/report text message.
; Input: 'A' - either "I" for impression, or "R" for report
; Output: the appropriate error message
DIAG ; Check if the Diagnostic Codes passed are valid. Set RADX equal
; to primary Dx code pntr value. Set RASECDX(x) to the secondary
; Dx code(s) if any.
SECDX ; Kill old sec. Dx nodes, and add the new ones into the 70.14 multiple
; called from RAHLO. Needs RADFN,RADTI & RACNI to function.
IMPTXT ; Check if the impression text consists only of the string
; 'impression:". If 'impression:' is the only set of characters,
; (spaces are excluded) then delete the "RAIMP" node.

External References

Name Field # of Occurrence
$$FIND1^DIC DIAG+18
UPDATE^DIE SECDX+20
KILSECDG^RAHLO4 SECDX+3
$$DT^XLFDT ADENDUM+30
$$UP^XLFSTR IMPTXT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(78.3 - [#78.3] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(78.3 - [#78.3] DIAG+19, DIAG+21
^RADPT - [#70] SECDX+3
^RARPT - [#74] ADENDUM+9
^TMP("RARPT-REC" ADENDUM+8, DIAG+7, DIAG+9, DIAG+10, IMPTXT+3, IMPTXT+4, IMPTXT+11*, IMPTXT+13, IMPTXT+14!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ADENDUM+4~, ADENDUM+7*, ADENDUM+8, ADENDUM+9, ERR~, ERR+3
COUNTER ADENDUM+4~, ADENDUM+10*, ADENDUM+13*, ADENDUM+25*, ADENDUM+28, ADENDUM+30
I ADENDUM+4~, ADENDUM+7!, ADENDUM+13*, DIAG+4*, DIAG+9*, DIAG+10, DIAG+23, DIAG+31!
>> I1 IMPTXT+10*
J ADENDUM+4~, ADENDUM+7!, ADENDUM+27*
NODE ADENDUM+4~, ADENDUM+9*, ADENDUM+10, ADENDUM+13, ADENDUM+28, ADENDUM+30
RA1 IMPTXT+3~*, IMPTXT+4, IMPTXT+11, IMPTXT+13, IMPTXT+14
RA2 SECDX+14~, SECDX+17*, SECDX+19
>> RACNI SECDX+2, SECDX+3, SECDX+17
>> RADFN SECDX+2, SECDX+3, SECDX+17
RADIAG DIAG+10*, DIAG+12, DIAG+15, DIAG+18, DIAG+31!
>> RADTI SECDX+2, SECDX+3, SECDX+17
>> RADX DIAG+23*, DIAG+26
RADXIEN DIAG+15*, DIAG+18*, DIAG+19, DIAG+21, DIAG+23, DIAG+26, DIAG+28, DIAG+29, DIAG+31!
>> RAERR DIAG+9, DIAG+19*, DIAG+21*
RAFDA SECDX+14~, SECDX+15!
RAFDA( SECDX+19*
RAIMP IMPTXT+4~*, IMPTXT+5, IMPTXT+6*, IMPTXT+10*, IMPTXT+11
>> RAPRIM DIAG+7*, DIAG+8, DIAG+23
>> RARPT ADENDUM+9
RASECDX DIAG+5!
RASECDX( DIAG+28, DIAG+29*, SECDX+18
>> RASUB ADENDUM+8, DIAG+7, DIAG+9, DIAG+10, IMPTXT+3, IMPTXT+4, IMPTXT+11, IMPTXT+13, IMPTXT+14
RAX SECDX+13~*, SECDX+18*, SECDX+19
RAXFIRST DIAG+3~, DIAG+4*, DIAG+8*, DIAG+23*
ROOT ADENDUM+4~, ADENDUM+8*, ADENDUM+15, ADENDUM+16
SUB ADENDUM+4~, ADENDUM+8*
U DIAG+21
X ADENDUM+4~, ADENDUM+16*, ADENDUM+27*, ADENDUM+28
Y ADENDUM+4~, ADENDUM+15*, ADENDUM+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All