Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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 ***
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)) ***

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call