Routine: BHSRAD

Information

BHSRAD ;IHS/CIA/MGH - Health Summary for V RAD file ;02-Aug-2013 16:17;DU

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Health Summary Components	2	DISPREF^BHSRAD PRTTXT^BHSUTL
IHS VA Utilities	2	$$VAL^XBDIQ1 $$EXTSET^XBFUNC
IHS Standard Terminology	1	$$DESC^BSTSAPI
Kernel	1	$$FMTE^XLFDT
Patient Care Component	1	$$DATE^APCHSMU
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Health Summary Components	17	BHSCPT BHSHS1 BHSLAB BHSLAB1 BHSLABA BHSLABB BHSMBN BHSMEA BHSMED BHSMEDAL BHSMEDG BHSMEDH BHSMEDI BHSMEDSF BHSPED BHSRAD BHSSUR

Entry Points

Name	Comments	DBIA/ICR reference
RPRT
RAD	; ******************* RAD TESTS - ALL * 9000010.12 ******* ; <SETUP>
RADDSP	;
RPRT2	;
RADBLD1	;
RSET
RADBLD
RBLD
RDATE
MRR	; ******************** MOST RECENT RADIOLOGY * 9000010.22 *******
MRRX
DISPREF	;EP added in patch 2
RADX

External References

Name	Field # of Occurrence
$$DATE^APCHSMU	DISPREF+14
DISPREF^BHSRAD	MRR+3, MRR+10, RAD+3, RAD+8
PRTTXT^BHSUTL	RPRT2+8, RADDSP+6
$$DESC^BSTSAPI	DISPREF+12
$$GET1^DIQ	DISPREF+11
REGDT4^GMTSU	RPRT2+1, RPRT2+2, RADBLD1+1
CKP^GMTSUP	MRR+4, RPRT2+4, DISPREF+1, DISPREF+10, RAD+6, RADBLD1+1
$$VAL^XBDIQ1	RSET+4, DISPREF+13, DISPREF+14, RADDSP+5
$$EXTSET^XBFUNC	RSET+2
$$FMTE^XLFDT	RADDSP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: BHSRTX,?BHSRW,"(",BHSRTD,") ",BHSRR,! Line Location: RPRT2+3
Function Call: WRITE	Prompt: !,BHSRTX,?BHSRW,"(",$S(BHSEDT]"":BHSEDT,1:BHSRTD),") " Line Location: RPRT2+4
Function Call: WRITE	Prompt: "RESULT: " Line Location: RPRT2+6
Function Call: WRITE	Prompt: $S(BHSDCD]"":BHSDCD,1:"<none recorded>"),! Line Location: RPRT2+6
Function Call: WRITE	Prompt: ?3,"Diagnostic Code: ",$P(BHSRRT(BHSRT),U,5),! Line Location: RPRT2+7
Function Call: WRITE	Prompt: ?3,"IMPRESSION: " Line Location: RPRT2+8
Function Call: WRITE	Prompt: !,BHST," Refusals " Line Location: DISPREF+9
Function Call: WRITE	Prompt: ! Line Location: DISPREF+18
Function Call: WRITE	Prompt: !,BHSDAT Line Location: RADBLD1+1
Function Call: WRITE	Prompt: " ("_$$FMTE^XLFDT(BHSEDT,5)_")" Line Location: RADDSP+2
Function Call: WRITE	Prompt: !?11,"RESULT: " Line Location: RADDSP+4
Function Call: WRITE	Prompt: $S(BHSDCD]"":BHSDCD,1:"<none recorded>"),! Line Location: RADDSP+4
Function Call: WRITE	Prompt: ?3,"Diagnostic Code: ",$$VAL^XBDIQ1(9000010.22,BHSDFN,.05),! Line Location: RADDSP+5
Function Call: WRITE	Prompt: ?11,"IMPRESSION: " Line Location: RADDSP+6
Function Call: WRITE	Prompt: ! Line Location: RADDSP+7

FileNo	Call Tags
^AUPNPREF - [#9000022]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPREF("AA"	DISPREF+4, DISPREF+5, DISPREF+6
^AUPNVRAD - [#9000010.22]	RSET, RSET+1, RADBLD1+3, RADBLD1+4, RADDSP+1, RADDSP+6, RADDSP+7
^AUPNVRAD("AA"	MRR+3, RBLD+1, RDATE, RAD+3, RAD+6, RADBLD, RADBLD1+2
^RAMIS(71 - [#71]	RSET+5, RPRT2+4, RAD+6, RADDSP+2

Label References

Name	Line Occurrences
RADBLD	RAD+6
RADBLD1	RADBLD
RADDSP	RADBLD1+5
RBLD	MRR+7
RDATE	RBLD+1
RPRT	MRR+7
RPRT2	RPRT+1
RSET	RDATE

Naked Globals

Name	Field # of Occurrence
^(	RDATE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DISPREF+2~, DISPREF+7
BHS0	RADX+1!, RADDSP+1*, RADDSP+2, RADDSP+4, RADDSP+5
BHSD	DISPREF+5*, DISPREF+6, DISPREF+14, DISPREF+19!
BHSDAT	RADX!, RADBLD1+1*
BHSDCD	MRRX!, RSET+2, RSET+4, RPRT2+6, RADDSP+4*
BHSDFN	MRRX!, RDATE, RSET, RSET+1, RSET+4, RADX!, RADBLD1+2, RADBLD1+3, RADBLD1+4, RADDSP+1 , RADDSP+5, RADDSP+6, RADDSP+7
BHSEDT	MRRX!, RSET+1, RSET+4, RPRT2+2, RPRT2+4, RADBLD1+4*, RADDSP+2
BHSFN	MRR+3, MRR+10, MRR+11!, DISPREF+4, DISPREF+5, DISPREF+6, DISPREF+19!, RAD+3, RAD+8, RAD+9!
BHSI	DISPREF+6*, DISPREF+11, DISPREF+13, DISPREF+14, DISPREF+19!
BHSICD	MRR+1~, RPRT2+8, RADDSP+6
BHSICL	MRR+1~, RPRT2+8, RADDSP+6
BHSITE	RADX+1!
BHSIVD	MRRX!, RDATE, RSET+4, RADX!, RADBLD, RADBLD1+1, RADBLD1+2, RADDSP+2
BHSMXL	MRRX!, RBLD, RSET+5, RPRT
BHSN	MRRX!, RSET*, RSET+2
BHSNAB	RADX+1!
BHSNFL	RADX+1!
BHSNMX	MRRX!, RPRT*
BHSNRQ	RPRT2+8, RPRT2+9!, RADDSP+6, RADDSP+8!
BHSNSH	RADX+1!
BHSPAT	MRR+1~, MRR+2, MRR+3, RBLD+1, RDATE, DISPREF+4, DISPREF+5, DISPREF+6, RAD+2, RAD+3 , RAD+6, RADBLD, RADBLD1+2
BHSQ	MRR+1~, RBLD+1, RPRT+1, RAD+6, RADBLD, RADBLD1+2*
BHSRC	DISPREF+3, DISPREF+8, DISPREF+9, DISPREF+19!
BHSRDG	RADX!
BHSRL	MRRX!, RPRT*
BHSRR	MRRX!, RSET, RSET+4, RPRT2+1, RPRT2+8
BHSRRT	MRRX!, RBLD!, RBLD+1*, RDATE, RSET+4, RSET+5, RAD+4!
BHSRRT(	RSET+4*, RPRT+1, RPRT2+1, RPRT2+2, RPRT2+6, RPRT2+7
BHSRT	MRRX!, RPRT+1*, RPRT2+1, RPRT2+2, RPRT2+4, RPRT2+6, RPRT2+7
BHSRTD	MRRX!, RPRT2+1*, RPRT2+4
BHSRTX	MRRX!, RSET+5, RPRT2+4, RADDSP+2*
BHSRW	MRRX!, RPRT*, RPRT2+4
BHSS	DISPREF+7, DISPREF+19!
BHST	MRR+3, MRR+10, MRR+11!, DISPREF+9, DISPREF+19!, RAD+3, RAD+6, RAD+8*, RAD+9!, RADX! , RADBLD, RADBLD1+2
BHSTL	RAD+6*, RADX!
BHSTX	RAD+6*, RADX!
BHSTXT	RPRT2+8, RPRT2+9!, RADDSP+6, RADDSP+8!
BHSVDF	RADX!
BHSVSC	RADX+1!
BHSX	DISPREF+4*, DISPREF+5, DISPREF+6, DISPREF+19!
>> DFN	MRR+2, RAD+2
>> GMTSDLM	RDATE, DISPREF+5, RADBLD
>> GMTSQIT	MRR+4, RPRT2+4, DISPREF+1, DISPREF+4, DISPREF+5, DISPREF+6, DISPREF+10, RAD+6, RADBLD1+1
IOM	RPRT
SNO	DISPREF+2~, DISPREF+11, DISPREF+12, DISPREF+13*, DISPREF+14
U	RSET+1, RSET+2, RSET+4, RSET+5, RPRT2+1, RPRT2+2, RPRT2+4, RPRT2+6, RPRT2+7, DISPREF+12 , RAD+6, RADBLD1+4, RADDSP+1, RADDSP+2, RADDSP+4, RADDSP+5
X	MRR+1~, RSET+2, RPRT2+1, RPRT2+2, RADX!, RADBLD1+1
Y	MRRX!, RADX!

Customize PDF page

Package: Health Summary Components

Routine: BHSRAD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: