Routine: BMCHS

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

Package	Total	Caller Graph
Patient Care Component	1	APCHS9

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+4
$$CTR^BMC	HS+2
$$TOFAC^BMC	WRTREF+15
^BMCREF	WRTREF+4
$$AVDOS^BMCRLU	WRTREF+8
$$ICDDX^ICDCODE	WRTDX2+5
$$CPT^ICPTCOD	WRTPX2+5
$$VAL^XBDIQ1	WRTREF+11, WRTREF+14, WRTREF+16
ENP^XBDIQ1	WRTDX2+8, WRTPX2+8, WRTCATD+1, WRTCATS+2
$$FMTE^XLFDT	WRTREF+9, WRTREF+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR^BMC(" <<< RCIS ACTIVE REFERRALS >>> ",80),! Line Location: HS+2
Function Call: WRITE	Prompt: !,"No Referred Care Referral records on file.",! Line Location: HS+3
Function Call: WRITE	Prompt: !,"No Referred Care Referral records within last year.",! Line Location: HS+5
Function Call: WRITE	Prompt: !,"BEGIN DOS: ",$$AVDOS^BMCRLU(BMCRIEN,"C")," ",$$AVDOS^BMCRLU(BMCRIEN,"E") 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+15
Function Call: WRITE	Prompt: !,"PURPOSE: "_$$VAL^XBDIQ1(90001,BMCRIEN,1201) Line Location: WRTREF+16
Function Call: WRITE	Prompt: ! Line Location: WRTREF+17
Function Call: WRITE	Prompt: "DIAGNOSES",! Line Location: WRTDX+2
Function Call: WRITE	Prompt: ?10,$P($$ICDDX^ICDCODE($P(X,U),,,"I"),U,2),?18,$S($P(X,U,4)="P":"PROV",$P(X,U,4)="F":"FINAL",1:"???")," ",$S($P(X,U,5)="P":"PRI",$P(X,U,5)="S":"SEC",1:"???") Line Location: WRTDX2+5
Function Call: WRITE	Prompt: ?27,X Line Location: WRTDX2+9
Function Call: WRITE	Prompt: ! Line Location: WRTDX2+10
Function Call: WRITE	Prompt: "PROCEDURES",! Line Location: WRTPX+2
Function Call: WRITE	Prompt: ?27,X Line Location: WRTPX2+9
Function Call: WRITE	Prompt: ! Line Location: WRTPX2+10
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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNPOV - [#9999999.27]	WRTDX2+7, WRTPX2+7
^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+2
^BMCREF("AA"	HS+3, HS+5, HS+7
^VA(200 - [#200]	WRTREF+15

Label References

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+18
WRTPX	WRTDXPX+3
WRTPX2	WRTPXLP+2
WRTPXLP	WRTPX+5, WRTPX+6
WRTREF	HS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Referred Care Information System

Routine: BMCHS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: