Routine: BSDX41J

Information

BSDX41J ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Referred Care Information System	3	($$CTR,$$TOFAC)^BMC ^BMCREF $$AVDOS^BMCRLU
Clinical Scheduling for Windows	2	$$FILL^BSDX41 DISPREF^BSDX41F
IHS VA Utilities	1	($$VAL,$$VALI,ENP)^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component	1	$$DATE^APCHSMU
Patient Care Component Reports	1	$$START1^APCLDF
VA Fileman	1	C^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Clinical Scheduling for Windows	1	BSDX41

Entry Points

Name	Comments	DBIA/ICR reference
WRTDX2	; WRITE ONE DX
HS	;EP-called from health summary
LPRT2	;
EKGPRT	;computers/prints ekg info
WRTCAT	; WRITE DX/SVC CAT
WRTDXPX	; WRITE DX's and PX's
EKGLABX	;
LSET	;
WRTREF	; WRITE RCIS REFERRAL ENTRY
WRTPX	; WRITE PX'S FOR THIS REFERRAL
MCIS	; *********** MANAGED CARE MIS * 90001
LPRT	;
WRTPXLP	; LOOP THRU PX ENTRIES
MRL	; ******************** MOST RECENT LAB * 9000010.09 *******
XIT	;
EKGLAB	;ENTRY POINT - EKG display in most recent lab panel
REORDER	;reorder by accession, parent and child
LDATE
WRTCATS	; WRITE PX CAT
MRLX
WRTDXLP	; LOOP THRU DX ENTRIES
WRTPX2	; WRITE ONE PX
MCISX	;MCIS EXIT
WRTCATD	; WRITE DX CAT
WRTDX	; WRITE DX'S FOR THIS REFERRAL
LBLD

External References

Name	Field # of Occurrence
C^%DTC	HS+7
$$DATE^APCHSMU	LPRT2+2
$$START1^APCLDF	EKGLAB+3
$$CTR^BMC	HS+1
$$TOFAC^BMC	WRTREF+19
^BMCREF	WRTREF+3
$$AVDOS^BMCRLU	WRTREF+8
$$FILL^BSDX41	LPRT+2, LPRT+3, LPRT+4, LPRT+5, LPRT+6, LPRT2+6, LPRT2+7, LPRT2+8, LPRT2+9, LPRT2+10 , LPRT2+15, LPRT2+16, LPRT2+17, LPRT2+18, LPRT2+19, EKGPRT+6, WRTREF+9, WRTREF+13, WRTREF+17, WRTREF+19 , WRTDX2+3, WRTDX2+4, WRTDX2+8, WRTPX2+3, WRTPX2+4, WRTPX2+8, WRTCATD+3, WRTCATS+4
DISPREF^BSDX41F	MRL+9
$$VAL^XBDIQ1	WRTREF+13, WRTREF+17, WRTREF+20
$$VALI^XBDIQ1	LSET+2
ENP^XBDIQ1	WRTDX2+7, WRTPX2+7, WRTCATD+1, WRTCATS+2
$$FMTE^XLFDT	LPRT2+2, WRTREF+9, WRTREF+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	MCIS+5
^APCHSCTL - [#9001015]	LPRT2+21
^AUPNVDXP("AC"	EKGLAB+1
^AUPNVLAB - [#9000010.09]	REORDER+3, REORDER+4, REORDER+5, LSET+1, LSET+2, LPRT2+2, LPRT2+18, LPRT2+19, LPRT2+23, LPRT2+25 , LPRT2+26, LPRT2+28
^AUPNVLAB("AA"	MRL+1, LBLD+1, LDATE, LDATE+1
^AUTNPOV - [#9999999.27]	WRTDX2+6, WRTPX2+6
^BMCDX - [#90001.01]	WRTDX2+1
^BMCDX("AD"	WRTDX+1, WRTDXLP+2
^BMCPARM - [#90001.31]	WRTREF+16
^BMCPX - [#90001.02]	WRTPX2+1
^BMCPX("AD"	WRTPX+1, WRTPXLP+2
^BMCREF - [#90001]	WRTREF+1
^BMCREF("AA"	HS+2, HS+8, HS+14
^BMCREF("D"	MCIS+6
^BSDXTMP($J	LPRT+7, LPRT2+11, LPRT2+20, LPRT2+25, LPRT2+28, EKGPRT+5, EKGPRT+6, MCIS+2, MCIS+3, MCIS+8 , HS+1, HS+4, HS+5, HS+10, HS+11, WRTREF+7, WRTREF+10, WRTREF+13, WRTREF+17, WRTREF+19 , WRTREF+20, WRTDX+2, WRTDX2+8, WRTPX+2, WRTPX2+8, WRTCATD+3, WRTCATS+4*
^ICD9 - [#80]	WRTDX2+3
^ICPT - [#81]	WRTPX2+3
^LAB(60 - [#60]	LSET+5, LPRT2+1
^TMP($J	MRLX+1!, LBLD!, REORDER+1, REORDER+2, REORDER+6, REORDER+8!, LSET+4, LSET+5, LPRT+9, LPRT+10 , LPRT+11, LPRT+12, LPRT+13, LPRT+14
^VA(200 - [#200]	WRTREF+18

Label References

Name	Line Occurrences
EKGLAB	MRL+1, MRL+7
EKGLABX	EKGLAB+4
EKGPRT	EKGLAB+11
HS	MCIS+5
LBLD	MRL+6
LDATE	LBLD+1
LPRT	MRL+6
LPRT2	LPRT+15
LSET	LDATE+1
MCISX	MCIS+6
MRLX	MRL+1
REORDER	LBLD+2
WRTCATD	WRTDX+1, WRTCAT+1
WRTCATS	WRTPX+1, WRTCAT+2
WRTDX	WRTDXPX+1
WRTDX2	WRTDXLP+2
WRTDXLP	WRTDX+5, WRTDX+6
WRTDXPX	WRTREF+21
WRTPX	WRTDXPX+3
WRTPX2	WRTPXLP+2
WRTPXLP	WRTPX+5, WRTPX+6
WRTREF	HS+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	REORDER+3*, REORDER+6
>> %1	REORDER+4*, REORDER+6
>> %2	REORDER+5*, REORDER+6
APCHCHIL	LPRT+11*, LPRT+12, LPRT+13, LPRT+14, LPRT+16!, LPRT2+13
APCHS	EKGLAB+2!
APCHS(1	EKGLAB+7, EKGLAB+10, EKGLABX+1!
APCHSACC	LPRT+9*, LPRT+10, LPRT+11, LPRT+12, LPRT+13, LPRT+14, LPRT+16!
>> APCHSCVD	LPRT+14, EKGPRT+1
APCHSDFN	MRLX!, LDATE+1, LSET+1, LSET+2, LSET+5, LPRT+13, LPRT2+2, LPRT2+18, LPRT2+19, LPRT2+23 , LPRT2+25, LPRT2+26, LPRT2+28
>> APCHSDLM	LDATE+1, EKGLAB+8
APCHSERR	EKGLAB+3*, EKGLAB+4, EKGLAB+6!, EKGLABX+1!
APCHSFN	MRL+9*, MRL+10!
APCHSIVD	MRLX!, LDATE, LDATE+1, LSET+5, EKGLAB+7, EKGLAB+8
APCHSLL	MRLX!
APCHSLR	MRLX!, LSET+1, LSET+2, LSET+3, LSET+4, LSET+5, LPRT+14, LPRT2+17, EKGPRT+2, EKGPRT+3* , EKGPRT+6
APCHSLRT	MRLX!, LBLD+1*, LDATE, LDATE+1, LSET+4, LSET+5
APCHSLRT(	EKGPRT+1, EKGPRT+2
APCHSLRT("EKG"	EKGLAB+10*
APCHSLT	MRLX!, LPRT+12, LPRT+13, LPRT+14, LPRT+16!, LPRT2+1, EKGLAB+9, EKGPRT+1, EKGPRT+2
APCHSLTD	MRLX!, LPRT+14, LPRT2+16, EKGPRT+1, EKGPRT+6
APCHSLTX	MRLX!, LSET+5, LPRT2+1, LPRT2+14, EKGLAB+9*, EKGPRT+6
APCHSLW	MRLX!, EKGPRT+4*, EKGPRT+6
APCHSN	MRLX!, LSET+1*, LSET+2, LSET+3
APCHSNMX	MRLX!
>> APCHSNPG	LPRT2+4
APCHSPAR	LPRT+10*, LPRT+11, LPRT+12, LPRT+13, LPRT+14, LPRT+16!
>> APCHSPAT	MRL+1, LBLD+1, LDATE, LDATE+1, EKGLAB+1, EKGLAB+3, MCIS+6, HS+2, HS+8, HS+14
>> APCHSQ	LBLD+1*
>> APCHSQIT	LPRT+9, LPRT+10, LPRT2+23, LPRT2+26, HS+14, WRTDXPX+2, WRTDXLP+2, WRTPXLP+2
>> APCHSRDT	LPRT2+2*, LPRT2+15
APCHST	MRL+9*, MRL+10!
>> APCHSTYP	LPRT2+21
>> APCHSX	LPRT2+23, LPRT2+25, LPRT2+26, LPRT2+28
BMCCHSCT	XIT+1!
BMCDFN	XIT+1!
BMCDIEN	XIT+1!, WRTDXLP+1, WRTDXLP+2, WRTDX2+1, WRTDX2+7
>> BMCMCC	WRTREF+15, WRTREF+16, WRTREF+17
BMCPFH	XIT+1!, WRTDX+6, WRTDXLP+1, WRTDX2+10, 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+13, HS+14, XIT+1!
BMCREC	XIT+1!
BMCRIEN	HS+14*, XIT+1!, WRTREF+1, WRTREF+2, WRTREF+8, WRTREF+13, WRTREF+17, WRTREF+19, WRTREF+20, WRTDX+1 , WRTDXLP+2, WRTPX+1, WRTPXLP+2, WRTCATD+1, WRTCATS+2
BMCRIO	XIT+1!
BMCRNUMB	XIT+1!
BMCRREC	XIT+1!, WRTREF+1*, WRTREF+9, WRTREF+12, WRTREF+18
BMCRSTAT	XIT+1!, WRTREF+5, WRTDX+6, WRTPX+6
BMCRTYPE	XIT+1!
BMCX	XIT+1!
BMCX(".019"	WRTDX2+7, WRTPX2+7
BMCX(".12"	WRTCATD+1
BMCX(".13"	WRTCATS+2
BMCYAGO	HS+7*, HS+8, HS+14, XIT+1!
>> BSDXI	LPRT+7, LPRT2+11, LPRT2+20, LPRT2+25, LPRT2+28, EKGPRT+5, EKGPRT+6, MCIS+2, MCIS+3, MCIS+8 , HS+1, HS+4, HS+5, HS+10, HS+11, WRTREF+7, WRTREF+10, WRTREF+13, WRTREF+17, WRTREF+19 , WRTREF+20, WRTDX+2, WRTDX2+8, WRTPX+2, WRTPX2+8, WRTCATD+3, WRTCATS+4*
>> BSDXTMP	LPRT+1, LPRT+2, LPRT+3, LPRT+4, LPRT+5, LPRT+6, LPRT+7, LPRT+8, LPRT2+5, LPRT2+6* , LPRT2+7, LPRT2+8, LPRT2+9, LPRT2+10, LPRT2+11, LPRT2+12, LPRT2+13, LPRT2+14, LPRT2+15, LPRT2+16* , LPRT2+17, LPRT2+18, LPRT2+19, LPRT2+20, WRTREF+8, WRTREF+9, WRTREF+10, WRTREF+11, WRTREF+12, WRTREF+13 , WRTREF+14, WRTREF+18, WRTREF+19, WRTDX2+3, WRTDX2+4, WRTDX2+8, WRTDX2+9, WRTPX2+3, WRTPX2+4, WRTPX2+8 , WRTPX2+9, WRTCATD+2, WRTCATD+3, WRTCATD+4, WRTCATS+3, WRTCATS+4, WRTCATS+5*
DIEN	XIT+1!
DT	HS+7
DUZ(2	WRTREF+16
U	REORDER+2, REORDER+3, REORDER+4, REORDER+5, LSET+1, LSET+2, LSET+3, LSET+4, LSET+5, LPRT+13 , LPRT+14, LPRT2+1, LPRT2+2, LPRT2+18, LPRT2+19, LPRT2+21, LPRT2+26, LPRT2+28, EKGLAB+7, EKGLAB+10 , EKGPRT+1, EKGPRT+2, WRTREF+9, WRTREF+12, WRTREF+16, WRTREF+18, WRTDX2+2, WRTDX2+3, WRTDX2+4, WRTDX2+5 , WRTDX2+6, WRTPX2+2, WRTPX2+3, WRTPX2+4, WRTPX2+5, WRTPX2+6
X	REORDER+1, REORDER+2, REORDER+6, MCIS+4~, MCIS+5, HS+7, WRTDX2+1, WRTDX2+2, WRTDX2+3, WRTDX2+4 , WRTDX2+5, WRTDX2+6, WRTDX2+7, WRTDX2+8, WRTPX2+1, WRTPX2+2, WRTPX2+3, WRTPX2+4, WRTPX2+5, WRTPX2+6* , WRTPX2+7, WRTPX2+8, WRTCATD+1, WRTCATD+3, WRTCATS+2*, WRTCATS+4
>> X1	HS+7*
>> X2	HS+7*
Y	MRLX!, REORDER+2, REORDER+3, REORDER+4, REORDER+5, LPRT+14, EKGPRT+1, WRTREF+2

Customize PDF page

Package: Clinical Scheduling for Windows

Routine: BSDX41J

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: