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/30/97 09:02

Source Information

Source file <RAHLO2.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RAHLO  RAHLO1  

Entry Points

Name Comments DBIA/ICR reference
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.
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.
ERR(A) ; Invalid impression/report text message.
; Input: 'A' - either "I" for impression, or "R" for report
; Output: the appropriate error message
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.
ADENDUM ; This functions store new lines of text at the end of the existing

External References

Name Field # of Occurrence
$$FIND1^DIC DIAG+15
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+16
^RADPT - [#70] SECDX+3
^RARPT - [#74] ADENDUM+9
^TMP("RARPT-REC" ADENDUM+8, DIAG+6, DIAG+7, 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+6*, DIAG+7, DIAG+25!
>> 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+7*, DIAG+9, DIAG+12, DIAG+15, DIAG+25!
>> RADTI SECDX+2, SECDX+3, SECDX+17
>> RADX DIAG+17*, DIAG+20
RADXIEN DIAG+12*, DIAG+15*, DIAG+16, DIAG+17, DIAG+20, DIAG+22, DIAG+23, DIAG+25!
>> RAERR DIAG+6, DIAG+16*
RAFDA SECDX+14~, SECDX+15!
RAFDA( SECDX+19*
RAIMP IMPTXT+4~*, IMPTXT+5, IMPTXT+6*, IMPTXT+10*, IMPTXT+11
>> RARPT ADENDUM+9
RASECDX DIAG+5!
RASECDX( DIAG+22, DIAG+23*, SECDX+18
>> RASUB ADENDUM+8, DIAG+6, DIAG+7, IMPTXT+3, IMPTXT+4, IMPTXT+11, IMPTXT+13, IMPTXT+14
RAX SECDX+13~*, SECDX+18*, SECDX+19
RAXFIRST DIAG+3~, DIAG+4*, DIAG+17*
ROOT ADENDUM+4~, ADENDUM+8*, ADENDUM+15, ADENDUM+16
SUB ADENDUM+4~, ADENDUM+8*
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