Routine: RARTUTL

Information

RARTUTL ;HIRMFO/GJC-Utility to display Pharm & Radiopharm data ;11/18/97 13:33

Source Information

Source file <RARTUTL.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Radiology Nuclear Medicine	4	WAIT^RART1 HD^RARTR HANG^RARTR2 $$INCR^RAUTL4
VA Fileman	1	GETS^DIQ

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RART1 RART3 RARTR RARTR3

Entry Points

Name	Comments	DBIA/ICR reference
PHARM1(RADA)	; Display Pharmaceutical default data ; Input: RADA -> ien for the Examinations (50) multiple. ; in the following format: RACNI_","_RADTI_","_RADFN_"," ; Output: 'X' -> $S(X'="":'abnormal exit',1:'full display') ; * Called only if $O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"RX",0)) *
PHARM(RADA)	; Display Pharmaceutical default data ; Input: RADA -> ien for the Examinations (50) multiple. ; in the following format: RACNI_","_RADTI_","_RADFN_"," ; * Called only if $O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"RX",0)) *
RDIO(RADA)	; Display Radiopharmaceutical default data for Report displays ; Input: RADA -> ien of the Nuc Med Exam Data record (file 70.2) ; * Called only if $P(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0),U,28)>0 *

External References

Name	Field # of Occurrence
GETS^DIQ	PHARM+5, RDIO+4, PHARM1+6
WAIT^RART1	PHARM1+7, PHARM1+15
HD^RARTR	PHARM+6, PHARM+14, RDIO+5, RDIO+9, RDIO+25, RDIO+35
HANG^RARTR2	PHARM+6, PHARM+14, RDIO+5, RDIO+9, RDIO+25, RDIO+35
$$INCR^RAUTL4	PHARM+12, PHARM+22, PHARM+33, RDIO+14, RDIO+20, RDIO+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Adm'd on "_$E($G(RAPHARM(RASUB,RA1,3,"E")),1,21) Line Location: PHARM+19
Function Call: WRITE	Prompt: !," Radiopharmaceutical: "_$G(RADARY(70.21,RAIENS,.01,"E"))_RADOSE Line Location: RDIO+11
Function Call: WRITE	Prompt: ! Line Location: RDIO+25
Function Call: WRITE	Prompt: $E($G(RADARY(70.21,RAIENS,RADFLDS,"E")),1,(IOM-($X-1))) Line Location: RDIO+32
Function Call: WRITE	Prompt: $G(RADARY(70.21,RAIENS,RADFLDS,"E")) Line Location: RDIO+34
Function Call: WRITE	Prompt: ! Line Location: RDIO+35
Function Call: WRITE	Prompt: @IOF Line Location: PHARM1+8
Function Call: WRITE	Prompt: !," Pharmaceutical: ",$E($G(RAPHARM(RASUB,RA1,.01,"E")),1,40)_RADOSE Line Location: PHARM1+13
Function Call: WRITE	Prompt: @IOF Line Location: PHARM1+17
Function Call: WRITE	Prompt: " Adm'd "_$E($G(RAPHARM(RASUB,RA1,3,"E")),1,21) Line Location: PHARM1+21

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
70.03	GETS^DIQ
^RADPTN - [#70.2]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	PHARM+12, PHARM+22, PHARM+32, PHARM+33, RDIO+14, RDIO+20, RDIO+38, RDIO+39, RDIO+40, RDIO+41 , RDIO+42, RDIO+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
IOF	PHARM1+8, PHARM1+17
IOM	RDIO+31, RDIO+32
IOSL	PHARM+6, PHARM+14, RDIO+5, RDIO+9, RDIO+25, RDIO+35, PHARM1+7, PHARM1+15
RA1	PHARM+4~, PHARM+7, PHARM+9, PHARM+10, PHARM+11, PHARM+12, PHARM+15, PHARM+16, PHARM+19, PHARM+22 , PHARM+25, PHARM+32, PHARM+33, PHARM1+5~, PHARM1+9, PHARM1+11, PHARM1+12, PHARM1+13, PHARM1+18, PHARM1+19 , PHARM1+21, PHARM1+23
>> RAACNT	PHARM+12, PHARM+22, PHARM+32, PHARM+33, RDIO+14, RDIO+20, RDIO+38, RDIO+39, RDIO+40, RDIO+41 , RDIO+42, RDIO+43
RACNT	PHARM+4~, PHARM+8, PHARM+17, PHARM+26, PHARM+29, PHARM+32, PHARM+33, RDIO+17~, RDIO+19, RDIO+20 , RDIO+22, RDIO+23, RDIO+26, RDIO+27, RDIO+28, RDIO+29, RDIO+31, RDIO+38, RDIO+39, RDIO+40 , RDIO+41, RDIO+43, RDIO+44, PHARM1+5~, PHARM1+10, PHARM1+20, PHARM1+24, PHARM1+26
RADA	PHARM~, PHARM+5, RDIO~, RDIO+4, PHARM1~, PHARM1+6
RADARY	RDIO+3~, RDIO+4
RADARY(	RDIO+7, RDIO+8, RDIO+11, RDIO+14, RDIO+16, RDIO+21, RDIO+30, RDIO+32, RDIO+34, RDIO+42
>> RADFLDS	RDIO+18*, RDIO+19, RDIO+20, RDIO+21, RDIO+26, RDIO+27, RDIO+28, RDIO+29, RDIO+30, RDIO+32 , RDIO+34, RDIO+38, RDIO+39, RDIO+40, RDIO+41, RDIO+42
RADOSE	PHARM+10~, PHARM+11, PHARM+12, RDIO+8~, RDIO+11, RDIO+14, PHARM1+12~*, PHARM1+13
RAIENS	RDIO+6~, RDIO+7, RDIO+8, RDIO+11, RDIO+14, RDIO+16, RDIO+21, RDIO+30, RDIO+32, RDIO+34 , RDIO+42
RALNGTH	RDIO+17~, RDIO+30*, RDIO+31
>> RAOOUT	PHARM+6, PHARM+7, PHARM+14, RDIO+5, RDIO+7, RDIO+9, RDIO+18, RDIO+25, RDIO+35
RAPHARM	PHARM+4~, PHARM+5, PHARM1+5~, PHARM1+6
RAPHARM(	PHARM+7, PHARM+9, PHARM+10, PHARM+11, PHARM+12, PHARM+15, PHARM+16, PHARM+19, PHARM+22, PHARM+25 , PHARM+32, PHARM+33, PHARM1+9, PHARM1+11, PHARM1+12, PHARM1+13, PHARM1+18, PHARM1+19, PHARM1+21, PHARM1+23
>> RARTVERF	PHARM1+7, PHARM1+15
RASUB	PHARM+4~, PHARM+7, PHARM+9, PHARM+10, PHARM+11, PHARM+12, PHARM+15, PHARM+16, PHARM+19, PHARM+22 , PHARM+25, PHARM+32, PHARM+33, PHARM1+5~, PHARM1+9, PHARM1+11, PHARM1+12, PHARM1+13, PHARM1+18, PHARM1+19 , PHARM1+21, PHARM1+23
>> RAUTOE	PHARM+6, PHARM+11, PHARM+12, PHARM+14, PHARM+15, PHARM+18, PHARM+27, RDIO+5, RDIO+9, RDIO+10 , RDIO+18, RDIO+19, RDIO+20, RDIO+24
RAX	PHARM+28~, PHARM+29, PHARM1+25~, PHARM1+26
RAXIT	PHARM1+5~, PHARM1+9, PHARM1+15, PHARM1+16
X	PHARM+4~, RDIO+3~, PHARM1+5, PHARM1+7, PHARM1+8, PHARM1+15, PHARM1+17*, PHARM1+29
Y	PHARM+4~, RDIO+3~, PHARM1+5~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTUTL

Call Graph Total: 5

Caller Graph Total: 4