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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: RARTUTL

Package: Radiology Nuclear Medicine

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All