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 |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAHLO4

Package: Radiology Nuclear Medicine

Routine: RAHLO4


Information

RAHLO4 ;HIRMFO/GJC-File rpt (data from bridge program) ;7/21/99 11:45

Source Information

Source file <RAHLO4.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 NOW^%DTC  FIND^DIC  ^DIE  ^DIK  ($$GET1,GETS)^DIQ  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
Radiology Nuclear Medicine 1 $$SSN^RAUTL  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Radiology Nuclear Medicine 6 RAHLBMS  RAHLO  RAHLO1  RAHLO2  RAHLTCPB  RART  

Entry Points

Name Comments DBIA/ICR reference
TASK ; Task ORU message
ISITDUP ; X1=last ien ^RARPT, X2=LAST IEN ^TMP, x21=first ien ^TMP
SETPHYS ;set Primary Resident or Staff, either piece 12 or piece 15 of case
UPMEM ;copy (prim:dx,stf,res),rpt ien to other members of same print set
; first clear those fields
KQ
KILSECDG ;kill secondary diagnoses nodes of this case
K1
KILL ; kill the RAHLD* variables
LSTPCE(X,DEL) ; given a string and a delimiter, return the last piece
VOICE ; voice dictation auto-print (background process)
CKDUPA ; if duplicate addendum, send msg to members of unverify rpt mailgroup
PCEXTR(RASUB,RASEG,RAPCE,RADEL) ; extract the right piece of data
; from the right data node
; input: RASUB-data node subscript
; RASEG-HL7 segment (minus the segment header)
; RAPCE-data's piece position
; RADEL-delimiter (field separator)

External References

Name Field # of Occurrence
NOW^%DTC CKDUPA+15
^%ZTLOAD TASK+4, VOICE+6
FIND^DIC CKDUPA+25
^DIE UPMEM+4, UPMEM+6, SETPHYS+5
^DIK K1+3
$$GET1^DIQ VOICE+2, CKDUPA+17, CKDUPA+31, CKDUPA+40, CKDUPA+45, CKDUPA+48
GETS^DIQ CKDUPA+28
$$SSN^RAUTL CKDUPA+43
^XMD CKDUPA+54

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^%ZIS(1 - [#3.5] GET1^DIQ
^XMB(3.6 - [#3.6] FIND^DIC,  GETS^DIQ
^XMB(3.8 - [#3.8] GET1^DIQ
^XMB(3.9 - [#3.9] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.1 - [#79.1] VOICE+1, VOICE+2
^RADPT - [#70] UPMEM+8*, KILSECDG+3, K1
^RARPT - [#74] CKDUPA+3, CKDUPA+5, ISITDUP+4, ISITDUP+5, ISITDUP+9, ISITDUP+13
^TMP("RARPT-HL7" PCEXTR+10, PCEXTR+12, PCEXTR+16, PCEXTR+18, PCEXTR+19, PCEXTR+20, PCEXTR+21, PCEXTR+33, PCEXTR+34
^TMP("RARPT-REC" CKDUPA+37, ISITDUP+1, ISITDUP+6, ISITDUP+11, ISITDUP+13
^XMB(3.9 - [#3.9] CKDUPA+16, CKDUPA+18

Label References

Name Line Occurrences
$$LSTPCE PCEXTR+21
ISITDUP CKDUPA+3, CKDUPA+5
K1 K1+4
KILL PCEXTR+8, PCEXTR+14, PCEXTR+16, PCEXTR+39
KQ K1

Naked Globals

Name Field # of Occurrence
^(0 ISITDUP+6, ISITDUP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA UPMEM+2!*, UPMEM+6!, SETPHYS+3*, SETPHYS+5!, K1+1*, KQ!
DA(1 UPMEM+2*, UPMEM+3, SETPHYS+3*, SETPHYS+4, KILSECDG+4*, K1+2
DA(2 UPMEM+2*, UPMEM+3, SETPHYS+3*, SETPHYS+4, KILSECDG+4*, K1+2
DA(3 KILSECDG+4*, K1+2
DEL LSTPCE~, LSTPCE+1
DIE UPMEM+2!, UPMEM+3*, UPMEM+6!, SETPHYS+4*
>> DIK K1+2*
DR UPMEM+2!, UPMEM+4*, UPMEM+6*!, SETPHYS+2*, SETPHYS+5!
I PCEXTR+17*, PCEXTR+18*, PCEXTR+19, PCEXTR+20, PCEXTR+33, KILL+1!
I1 CKDUPA+2~, CKDUPA+3*, CKDUPA+5*, ISITDUP+4, ISITDUP+5, ISITDUP+9, ISITDUP+13
I2 CKDUPA+2~, CKDUPA+3*, CKDUPA+5*, ISITDUP+1, ISITDUP+6, ISITDUP+11, ISITDUP+13
II1 PCEXTR+10*, PCEXTR+11, PCEXTR+12, PCEXTR+22*, PCEXTR+24, PCEXTR+27, PCEXTR+29, PCEXTR+30, KILL+1!
MATCH CKDUPA+2~
MSGTXT CKDUPA+33~
MSGTXT(1 CKDUPA+37*
MSGTXT(10 CKDUPA+52*
MSGTXT(2 CKDUPA+38*
MSGTXT(3 CKDUPA+39*
MSGTXT(4 CKDUPA+42*
MSGTXT(5 CKDUPA+43*
MSGTXT(6 CKDUPA+44*
MSGTXT(7 CKDUPA+47*
MSGTXT(8 CKDUPA+50*
MSGTXT(9 CKDUPA+51*
N1 PCEXTR+33*, PCEXTR+34, KILL+1!
R0 CKDUPA+2~
R0("DILIST" CKDUPA+26, CKDUPA+28, CKDUPA+30, CKDUPA+32
R1 CKDUPA+2~
R1( CKDUPA+30, CKDUPA+32
R2 CKDUPA+2~
RA1 KILSECDG+5~*, K1*, K1+1
>> RA12 UPMEM+6
>> RA13 UPMEM+6
>> RA15 UPMEM+6
>> RACNI UPMEM+2, UPMEM+8, SETPHYS+3, KILSECDG+1, KILSECDG+2, KILSECDG+3, KILSECDG+4, K1
RADEL PCEXTR~, PCEXTR+6, PCEXTR+7, PCEXTR+8, PCEXTR+10, PCEXTR+12, PCEXTR+21, PCEXTR+22, PCEXTR+24, PCEXTR+27
, PCEXTR+29, PCEXTR+30, PCEXTR+34
>> RADFN UPMEM+2, UPMEM+8, SETPHYS+3, KILSECDG+1, KILSECDG+2, KILSECDG+3, KILSECDG+4, K1, CKDUPA+40
>> RADPIECE SETPHYS+1, SETPHYS+2
>> RADTI UPMEM+2, UPMEM+8, SETPHYS+3, KILSECDG+1, KILSECDG+2, KILSECDG+3, KILSECDG+4, K1
>> RADUPA CKDUPA+1*, CKDUPA+5, ISITDUP+3*, ISITDUP+15*
>> RAHL70 PCEXTR+6*, PCEXTR+8*, PCEXTR+10*, PCEXTR+12*, PCEXTR+14, PCEXTR+29*, PCEXTR+32*, PCEXTR+34*, PCEXTR+40
RAHL7ARY PCEXTR+36!, KILL+1!
RAHL7ARY( PCEXTR+24*, PCEXTR+27*, PCEXTR+29, PCEXTR+32
RAHL7CNT PCEXTR+17*, PCEXTR+24, PCEXTR+26*, PCEXTR+27, PCEXTR+29, PCEXTR+30, PCEXTR+32, KILL+1!
RAHL7LST PCEXTR+7*, PCEXTR+21*, PCEXTR+24, KILL+1!
RAHL7OFF PCEXTR+6*, PCEXTR+7, PCEXTR+8, PCEXTR+9, PCEXTR+17, KILL+1!
RAHL7PRE PCEXTR+20*, PCEXTR+21, KILL+1!
RAHL7SUB PCEXTR+19*, PCEXTR+22, PCEXTR+24, PCEXTR+27, PCEXTR+29, PCEXTR+30, KILL+1!
RAHL7X PCEXTR+6*, PCEXTR+11*, PCEXTR+12*, PCEXTR+14, PCEXTR+18, PCEXTR+22, PCEXTR+29*, PCEXTR+32*, PCEXTR+36, KILL+1!
>> RALONGCN CKDUPA+18, CKDUPA+44
RAMES VOICE+6!
>> RAMLC VOICE+1, VOICE+2
>> RANOSEND TASK+4
RAPCE PCEXTR~, PCEXTR+8, PCEXTR+9, PCEXTR+10, PCEXTR+29, PCEXTR+30
>> RARPT UPMEM+8, CKDUPA+3, CKDUPA+5, ISITDUP+4, ISITDUP+5, ISITDUP+9, ISITDUP+13
RASEG PCEXTR~, PCEXTR+6, PCEXTR+7, PCEXTR+8, PCEXTR+10
RASUB PCEXTR~, PCEXTR+10, PCEXTR+12, PCEXTR+16, PCEXTR+18, PCEXTR+19, PCEXTR+20, PCEXTR+21, PCEXTR+33, PCEXTR+34
, CKDUPA+37, ISITDUP+1, ISITDUP+6, ISITDUP+11, ISITDUP+13
RASV VOICE+6!
RATDY CKDUPA+15*, CKDUPA+17, CKDUPA+20!
>> RATRANSC CKDUPA+48
>> RAVERF SETPHYS+2, CKDUPA+45
U VOICE+1, VOICE+2
X LSTPCE~, LSTPCE+1, CKDUPA+15!, CKDUPA+30*!, CKDUPA+31!, CKDUPA+32*!, CKDUPA+34*!
X1 CKDUPA+2~, ISITDUP+2~, ISITDUP+4*, ISITDUP+5, ISITDUP+7, ISITDUP+13*, ISITDUP+14
X2 CKDUPA+2~, ISITDUP+2~, ISITDUP+6*, ISITDUP+7, ISITDUP+13, ISITDUP+14
X21 CKDUPA+2~, ISITDUP+2~, ISITDUP+6*, ISITDUP+11, ISITDUP+13*
X3 CKDUPA+2~, ISITDUP+2~, ISITDUP+7*, ISITDUP+9, ISITDUP+13*
X4 CKDUPA+2~, ISITDUP+2~, ISITDUP+9*, ISITDUP+10*, ISITDUP+11
>> XMATCH CKDUPA+14*, CKDUPA+16, CKDUPA+17*, CKDUPA+19*, CKDUPA+21
XMB CKDUPA+14*, CKDUPA+16*, CKDUPA+17, CKDUPA+18, CKDUPA+20!
XMDUZ CKDUPA+33~, CKDUPA+36*
XMSUB CKDUPA+2~, CKDUPA+8*, CKDUPA+16
XMTEXT CKDUPA+33~, CKDUPA+53*
XMY CKDUPA+33~
XMY( CKDUPA+34*
XRADFN CKDUPA+33~, CKDUPA+40*, CKDUPA+41*, CKDUPA+42
XRATRANS CKDUPA+33~, CKDUPA+48*, CKDUPA+49*, CKDUPA+50
XRAVERF CKDUPA+33~, CKDUPA+45*, CKDUPA+46*, CKDUPA+47
XX ISITDUP+2~, ISITDUP+5*, ISITDUP+7
ZTDESC TASK+1*, TASK+5!, VOICE+5*, VOICE+6!
ZTDTH TASK+1*, TASK+3*, TASK+5!, VOICE+4*, VOICE+6!
ZTIO TASK+1*, TASK+5!, VOICE+2*, VOICE+3, VOICE+6!
ZTRTN TASK+1*, TASK+5!, VOICE+4*, VOICE+6!
ZTSAVE TASK+5!, VOICE+6!
ZTSAVE("RACNI" TASK+1*
ZTSAVE("RADFN" TASK+1*
ZTSAVE("RADTI" TASK+1*
ZTSAVE("RANOSEND" TASK+4*
ZTSAVE("RARPT" TASK+1*, VOICE+4*
ZTSK VOICE+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All