Routine: RAPROD2

Information

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

Source Information

Source file <RAPROD2.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	($$GET1,GETS)^DIQ ^DIWP ^DIWW
Kernel	2	$$FMTE^XLFDT $$CJ^XLFSTR
Radiology Nuclear Medicine	2	$$CONTRAST^RACMHIS $$EOS^RAUTL5

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAPROD RAPROD1

Entry Points

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

External References

Name	Field # of Occurrence
$$GET1^DIQ	CMHIST+15
GETS^DIQ	PHARM+5, RDIO+4
^DIWP	CMHIST+21
^DIWW	CMHIST+20
$$CONTRAST^RACMHIS	CMHIST+16
$$EOS^RAUTL5	PHARM+7, PHARM+19, RDIO+6, RDIO+12, CMHIST+17, CMHIST+19
$$FMTE^XLFDT	CMHIST+14
$$CJ^XLFSTR	PHARM+6, RDIO+5, EXIT+2, CMHDR+2, CMHDR+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RADPT - [#70]	CMHIST+10, CMHIST+11, CMHIST+13
^UTILITY($J	CMHIST+20!

Label References

Name	Line Occurrences
$$TRN1	RDIO+13
CMHDR	CMHIST+8, CMHIST+17, CMHIST+19
HDR	PHARM+19, RDIO+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DIWF	CMHIST+21*
>> DIWL	CMHIST+21*
>> DIWR	CMHIST+21*
IOF	PHARM+7, RDIO+6, HDR+1, CMHIST+7, CMHDR+1
IOM	PHARM+6, RDIO+5, CMHIST+6, EXIT+2, CMHDR+2, CMHDR+4
IOSL	PHARM+7, PHARM+19, RDIO+6, RDIO+12, CMHIST+17, CMHIST+19
IOST	CMHIST+7
RA1	PHARM+4~, PHARM+9, PHARM+11, PHARM+12, PHARM+15, PHARM+21, PHARM+26, PHARM+30
RAADT	CMHIST+14*, CMHIST+18, EXIT+3!
RAAU	CMHIST+15*, CMHIST+18, EXIT+3!
RACH2	EXIT+3!
RACHNG2	EXIT+3!
RACMDT	CMHIST+8, CMHIST+10, CMHIST+11, EXIT+4!
RACMU	CMHIST+14*, CMHIST+16, EXIT+3!
RACNI	CMHIST~, CMHIST+10, CMHIST+11, CMHIST+13
RACNT	PHARM+4~, PHARM+10, PHARM+13, PHARM+17, PHARM+20, PHARM+23, PHARM+25, PHARM+28, RDIO+3~, RDIO+9 , RDIO+13, RDIO+14, RDIO+15, HDR+1*
RADA	PHARM~, PHARM+5, RDIO~, RDIO+4
RADARY	RDIO+3~, RDIO+5
RADARY(	RDIO+8, RDIO+10, RDIO+11, RDIO+13, RDIO+17
RADFN	CMHIST~, CMHIST+10, CMHIST+11, CMHIST+13
RADTI	CMHIST~, CMHIST+10, CMHIST+11, CMHIST+13
RAFLDS	RDIO+3~, RDIO+9, RDIO+10, RDIO+11, RDIO+13
RAHD	CMHIST+5*, EXIT+3!, CMHDR+2
RAHDR	PHARM+4~, PHARM+6, PHARM+8, RDIO+3~, RDIO+5, RDIO+7, HDR+1
RAIEN	CMHIST+11*, CMHIST+13, EXIT+3!
RAIENS	RDIO+3~, RDIO+4, RDIO+8, RDIO+10, RDIO+11, RDIO+13, RDIO+17
RALINE	CMHIST+6*, EXIT+3!, CMHDR+4
RAOPUT	RDIO+3~, RDIO+13*, RDIO+14
RAPG	CMHIST+7, EXIT+3!, CMHDR+1
RAPHARM	PHARM+4~, PHARM+5
RAPHARM(	PHARM+9, PHARM+11, PHARM+12, PHARM+15, PHARM+21, PHARM+26, PHARM+30
RASUB	PHARM+4~*, PHARM+9, PHARM+11, PHARM+12, PHARM+15, PHARM+21, PHARM+26, PHARM+30
RAX	PHARM+16~, PHARM+17, PHARM+22~, PHARM+23, PHARM+27~*, PHARM+28
>> RAXIT	PHARM+4, PHARM+7, PHARM+9, PHARM+19, RDIO+4, RDIO+6, RDIO+8, RDIO+10, RDIO+12, CMHIST+8* , CMHIST+10, CMHIST+17, CMHIST+19
RAY	EXIT+4!
RAY(0	CMHIST+13*, CMHIST+14, CMHIST+15, EXIT+2
U	CMHIST+14, CMHIST+15
X	RDIO+3~, TRN1~, TRN1+1, TRN1+2, TRN1+3, TRN1+4, TRN1+5, TRN1+6, CMHIST+5~, CMHIST+16* , CMHIST+18, CMHIST+20
Y	RDIO+3~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPROD2

Call Graph Total: 7

Caller Graph Total: 2