Routine: BHSRCIS

Package	Total	Call Graph
DRG Grouper	3	$$ICDDX^ICDCODE $$ICDDX^ICDEX $$CPT^ICPTCOD
Referred Care Information System	3	($$CTR,$$TOFAC)^BMC ^BMCREF $$AVDOS^BMCRLU
Health Summary	1	CKP^GMTSUP
Health Summary Components	1	$$AICD^BHSUTL
IHS VA Utilities	1	($$VAL,ENP)^XBDIQ1
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	C^%DTC

Package

Total

Call Graph

DRG Grouper

$$ICDDX^ICDCODE $$ICDDX^ICDEX $$CPT^ICPTCOD

Referred Care Information System

($$CTR,$$TOFAC)^BMC ^BMCREF $$AVDOS^BMCRLU

Health Summary

CKP^GMTSUP

Health Summary Components

$$AICD^BHSUTL

IHS VA Utilities

($$VAL,ENP)^XBDIQ1

Kernel

$$FMTE^XLFDT

VA Fileman

C^%DTC

Package	Total	Caller Graph
Health Summary Components	1	BHSHS2

Package

Total

Caller Graph

Health Summary Components

BHSHS2

Entry Points

Name	Comments	DBIA/ICR reference
WRTCAT	; WRITE DX/SVC CAT
WRTDX2	; WRITE ONE DX
WRTDXLP	; LOOP THRU DX ENTRIES
WRTPX2	; WRITE ONE PX
HS	;EP-called from health summary
WRTDXPX	; WRITE DX's and PX's
WRTCATS	; WRITE PX CAT
WRTREF	; WRITE RCIS REFERRAL ENTRY
XIT	;
WRTCATD	; WRITE DX CAT
WRTDX	; WRITE DX'S FOR THIS REFERRAL
WRTPX	; WRITE PX'S FOR THIS REFERRAL
WRTPXLP	; LOOP THRU PX ENTRIES

External References

Name	Field # of Occurrence
C^%DTC	HS+5
$$AICD^BHSUTL	WRTDX2+4
$$CTR^BMC	HS+3
$$TOFAC^BMC	WRTREF+16
^BMCREF	WRTREF+3
$$AVDOS^BMCRLU	WRTREF+8
CKP^GMTSUP	HS+2, HS+4, HS+6, WRTREF+7, WRTREF+15, WRTREF+17, WRTDX+3, WRTDX2+15, WRTPX+3, WRTPX2+11 , WRTCATD+3, WRTCATS+4
$$ICDDX^ICDCODE	WRTDX2+7
$$ICDDX^ICDEX	WRTDX2+5
$$CPT^ICPTCOD	WRTPX2+4
$$VAL^XBDIQ1	WRTREF+11, WRTREF+14, WRTREF+18
ENP^XBDIQ1	WRTDX2+11, WRTPX2+7, WRTCATD+1, WRTCATS+2
$$FMTE^XLFDT	WRTREF+8, WRTREF+9, WRTREF+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR^BMC(" <<< RCIS ACTIVE REFERRALS >>> ",80),! Line Location: HS+3
Function Call: WRITE	Prompt: !,"No Referred Care Referral records on file.",! Line Location: HS+4
Function Call: WRITE	Prompt: !,"No Referred Care Referral records within last year.",! Line Location: HS+6
Function Call: WRITE	Prompt: !,"BEGIN DOS: ",$$AVDOS^BMCRLU(BMCRIEN,"C")," ",$$AVDOS^BMCRLU(BMCRIEN,"E"),?37,"DISCHARGE CONSULT DT: ",$$FMTE^XLFDT($P(BMCRREC,U,18),"5D") Line Location: WRTREF+8
Function Call: WRITE	Prompt: !,"DATE REFERRED: ",$$FMTE^XLFDT($P(BMCRREC,U),"5D") Line Location: WRTREF+8
Function Call: WRITE	Prompt: ?37,"DISCHARGE CONSULT DT: ",$$FMTE^XLFDT($P(BMCRREC,U,18),"5D") Line Location: WRTREF+9
Function Call: WRITE	Prompt: !,"DATE REFERRED: ",$$FMTE^XLFDT($P(BMCRREC,U),"5D") Line Location: WRTREF+10
Function Call: WRITE	Prompt: ?37,"CHS STATUS: ",$$VAL^XBDIQ1(90001,BMCRIEN,1112) Line Location: WRTREF+11
Function Call: WRITE	Prompt: ?37,"MCC ACTION: ",$$VAL^XBDIQ1(90001,BMCRIEN,1123) Line Location: WRTREF+14
Function Call: WRITE	Prompt: !,"REFERRED BY: ",$S($P(BMCRREC,U,6):$E($P(^VA(200,$P(BMCRREC,U,6),0),U),1,22),1:"???"),?37,"REFERRED TO: ",$$TOFAC^BMC(BMCRIEN) Line Location: WRTREF+16
Function Call: WRITE	Prompt: !,"PURPOSE: "_$$VAL^XBDIQ1(90001,BMCRIEN,1201) Line Location: WRTREF+18
Function Call: WRITE	Prompt: ! Line Location: WRTREF+19
Function Call: WRITE	Prompt: "DIAGNOSES",! Line Location: WRTDX+2
Function Call: WRITE	Prompt: ?27,X Line Location: WRTDX2+12
Function Call: WRITE	Prompt: ! Line Location: WRTDX2+13
Function Call: WRITE	Prompt: "PROCEDURES",! Line Location: WRTPX+2
Function Call: WRITE	Prompt: ?27,X Line Location: WRTPX2+8
Function Call: WRITE	Prompt: ! Line Location: WRTPX2+9
Function Call: WRITE	Prompt: "DIAGNOSTIC CATEGORY:",?25,X,! Line Location: WRTCATD+2
Function Call: WRITE	Prompt: "CPT SERVICE CATEGORY:",?25,X,! Line Location: WRTCATS+3

Name	Line Occurrences (* Changed, ! Killed)
^AUTNPOV - [#9999999.27]	WRTDX2+10, WRTPX2+6
^BMCDX - [#90001.01]	WRTDX2+1
^BMCDX("AD"	WRTDX+1, WRTDXLP+2
^BMCPARM - [#90001.31]	WRTREF+13
^BMCPX - [#90001.02]	WRTPX2+1
^BMCPX("AD"	WRTPX+1, WRTPXLP+2
^BMCREF - [#90001]	WRTREF+1
^BMCREF("AA"	HS+4, HS+6, HS+8, HS+9
^VA(200 - [#200]	WRTREF+16

Name	Line Occurrences
WRTCATD	WRTDX+1, WRTCAT+1
WRTCATS	WRTPX+1, WRTCAT+2
WRTDX	WRTDXPX+1
WRTDX2	WRTDXLP+2
WRTDXLP	WRTDX+5, WRTDX+6
WRTDXPX	WRTREF+20
WRTPX	WRTDXPX+3
WRTPX2	WRTPXLP+2
WRTPXLP	WRTPX+5, WRTPX+6
WRTREF	HS+9

Local Variables

Name	Field # of Occurrence
>> BHSPAT	HS+4, HS+6, HS+8, HS+9
BMCCHSCT	XIT+1!
BMCDFN	XIT+1!
BMCDIEN	XIT+1!, WRTDXLP+1, WRTDXLP+2, WRTDX2+1, WRTDX2+11
BMCMCC	XIT+1!, WRTREF+12, WRTREF+13, WRTREF+14
BMCPFH	XIT+1!, WRTDX+6, WRTDXLP+1, WRTDX2+14, WRTPX+6, WRTPXLP+1, WRTPX2+10
BMCPFS	XIT+1!, WRTDX+4, WRTDX+6, WRTDX2+2, WRTPX+4, WRTPX+6, WRTPX2+2
BMCPIEN	XIT+1!, WRTPXLP+1, WRTPXLP+2, WRTPX2+1, WRTPX2+7
BMCRDATE	HS+7, HS+8, HS+9, XIT+1!
BMCREC	XIT+1!
BMCRIEN	HS+9*, XIT+1!, WRTREF+1, WRTREF+2, WRTREF+8, WRTREF+11, WRTREF+14, WRTREF+16, WRTREF+18, WRTDX+1 , WRTDXLP+2, WRTPX+1, WRTPXLP+2, WRTCATD+1, WRTCATS+2
BMCRIO	XIT+1!
BMCRNUMB	XIT+1!
BMCRREC	XIT+1!, WRTREF+1*, WRTREF+8, WRTREF+9, WRTREF+10, WRTREF+16
BMCRSTAT	XIT+1!, WRTREF+5, WRTDX+6, WRTPX+6
BMCRTYPE	XIT+1!
BMCX	XIT+1!
BMCX(".019"	WRTDX2+11, WRTPX2+7
BMCX(".12"	WRTCATD+1
BMCX(".13"	WRTCATS+2
BMCYAGO	HS+5*, HS+6, HS+8, XIT+1!
DIEN	XIT+1!
DT	HS+5
DUZ(2	WRTREF+13
>> GMTSQIT	HS+2, HS+4, HS+6, HS+8, HS+9, WRTREF+7, WRTREF+15, WRTREF+17, WRTDXPX+2, WRTDX+3 , WRTDXLP+2, WRTPX+3, WRTPXLP+2, WRTCATD+3, WRTCATS+4
U	WRTREF+8, WRTREF+9, WRTREF+10, WRTREF+13, WRTREF+16, WRTDX2+2, WRTDX2+5, WRTDX2+7, WRTDX2+9, WRTDX2+10 , WRTPX2+2, WRTPX2+4, WRTPX2+5, WRTPX2+6
X	HS+1~, HS+5, WRTDX2+1, WRTDX2+2, WRTDX2+5, WRTDX2+7, WRTDX2+9, WRTDX2+10, WRTDX2+11, WRTDX2+12 , WRTPX2+1, WRTPX2+2, WRTPX2+4, WRTPX2+5, WRTPX2+6, WRTPX2+7, WRTPX2+8, WRTCATD+1, WRTCATD+2, WRTCATS+2 , WRTCATS+3
X1	HS+1~, HS+5*
X2	HS+1~, HS+5*
Y	HS+1~, WRTREF+2*

Customize PDF page

Package: Health Summary Components

Routine: BHSRCIS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed