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: RAPROD2

Package: Radiology Nuclear Medicine

Routine: RAPROD2


Information

RAPROD2 ;HIRMFO/GJC-Display Med & Radiopharm values for exams ;12/12/96 13:35

Source Information

Source file <RAPROD2.m>

Entry Points

Name Comments DBIA/ICR reference
PHARM(RADA) ; Display Pharmaceutical default data for Exam displays
; 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 Exam 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 ***
TRN1(X) ; Translate Radiopharmaceutical field name to a shorter length.
HDR ; Pharmaceutical/Radiopharmaceutical Header
CMHIST(RADFN,RADTI,RACNI) ;main body
EXIT ;clean up symbol table, message to user
CMHDR ; print header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PHARM+7
Function Call: WRITE
  • Prompt: !,RAHDR,!
  • Line Location: PHARM+8
Function Call: WRITE
  • Prompt: "Med: ",$E($G(RAPHARM(RASUB,RA1,.01,"E")),1,32)
  • Line Location: PHARM+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PHARM+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PHARM+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RDIO+6
Function Call: WRITE
  • Prompt: !,RAHDR,!
  • Line Location: RDIO+7
Function Call: WRITE
  • Prompt: @IOF,!,RAHDR,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(RAHD,IOM)
  • Line Location: CMHDR+2
Function Call: WRITE
  • Prompt: !,"Date/Time Changed",?40,"User",!?2,"Contrast Media"
  • Line Location: CMHDR+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(RALINE,IOM)
  • Line Location: CMHDR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
70.03 GETS^DIQ
^RADPTN - [#70.2] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call