Routine: BCDMSNDR

Package	Total	Call Graph
Patient Care Component	4	^APCDALV ^APCDALVR (,GETVISIT)^APCDAPI4 DEDT^APCDEA2
VA Fileman	4	C^%DTC ^DIC (FILE,UPDATE)^DIE $$GET1^DIQ
IHS Support HL7 Interfaces	1	($$BCDM,$$BCDMMED)^BHLEVENT
IHS VA Utilities	1	^XBFMK
Patient Care Component Reports	1	$$START1^APCLDF

Entry Points

Name	Comments	DBIA/ICR reference
VFILES	;
SET(P,D)	;-- set the BCDMPAT file
SEND(VISIEN)	;
A2(P)	;did patient ever have an A2 visit?
BSD	;
EVSIT	;EP - get/create event visit
SENDMED	;EP - called from option to send all visits for one patient in past 5 years
VDT(P,VDT)	;-- check to see if the patient has a record in ^BCDMPAT and the date so as not to send if not necessary
TEST	;
EP	;
A2CHK(V)	;-- is the visit A2

External References

Name	Field # of Occurrence
C^%DTC	EP+7
^APCDALV	EVSIT+13
^APCDALVR	VFILES+8
^APCDAPI4	EVSIT+3
GETVISIT^APCDAPI4	BSD+12
DEDT^APCDEA2	EVSIT+15, BSD+16
$$START1^APCLDF	EP+21, A2+6, SENDMED+10
$$BCDM^BHLEVENT	SEND+46
$$BCDMMED^BHLEVENT	SEND+50
^DIC	SENDMED+5
FILE^DIE	SET+13
UPDATE^DIE	SET+7
$$GET1^DIQ	SEND+7, SEND+11, SEND+12, SEND+22, SEND+34
^XBFMK	SENDMED+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to send all medical visits for one patient who has" Line Location: SENDMED+1
Function Call: WRITE	Prompt: !,"had a Diabetic Retinopathy (A2) telehealth visit. This is in support of" Line Location: SENDMED+2
Function Call: WRITE	Prompt: !,"the Chronic Disease Management System.",! Line Location: SENDMED+3
Function Call: WRITE	Prompt: !!,"Clinic A2 missing from clinic stop file, notify supervisor." Line Location: EVSIT+2
Function Call: WRITE	Prompt: !!,"error creating event visit for this patient, notify supervisor" Line Location: BSD+14
Function Call: WRITE	Prompt: !!,"error creating V POV for event visit....notify supervisor.." Line Location: VFILES+9
Routine Call	DIE Line Location: SET+7
Routine Call	DIE Line Location: SET+13
Routine Call	DIC Line Location: SENDMED+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	EVSIT+11, BSD+6
^AUPNPAT - [#9000001]	SEND+17, SEND+19, SEND+30, SEND+32
^AUPNVMED("AD"	SEND+14, SEND+47
^AUPNVSIT - [#9000010]	EP+12, EP+13, EP+23, EP+24, A2CHK+3, A2+9, A2+10, A2+11, SEND+8, SENDMED+12 , SENDMED+13
^AUPNVSIT("AC"	A2+3, TEST+7
^AUPNVSIT("ACDMP"	EP+9, EP+11, EP+15!, EP+16!, EP+27!
^BCDMPAT - [#90520]	VDT+4, SET+9
^BCDMPAT("B"	VDT+1, VDT+3, SET+1
^DIC(40.7 - [#40.7]	A2CHK+2, A2+4, EVSIT+1

Label References

Name	Line Occurrences
$$A2	SENDMED+16
$$A2CHK	EP+15
$$VDT	EP+16
BSD	EVSIT+3
EVSIT	SENDMED+16
SEND	EP+25, TEST+7, SENDMED+14
SET	EP+26
VFILES	EVSIT+3, EVSIT+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	SENDMED+17!, EVSIT+5!, EVSIT+16!, BSD+10!, VFILES+2!, VFILES+10!
APCDALVR("APCDAFLG"	VFILES+9
APCDALVR("APCDATMP"	VFILES+5*
APCDALVR("APCDAUTO"	EVSIT+6*
APCDALVR("APCDCAT"	EVSIT+8*
APCDALVR("APCDCLN"	EVSIT+10*
APCDALVR("APCDDATE"	EVSIT+12*
APCDALVR("APCDLOC"	EVSIT+9*
APCDALVR("APCDPAT"	EVSIT+7, VFILES+3
APCDALVR("APCDTNQ"	VFILES+7*
APCDALVR("APCDTPOV"	VFILES+6*
APCDALVR("APCDTYPE"	EVSIT+11*
APCDALVR("APCDVSIT"	EVSIT+14, EVSIT+15, VFILES+4*
APCDVSIT	SENDMED+17!, EVSIT+4!
ASUFAC	SEND+11, SEND+16, SEND+24, SEND+34, SEND+37, SEND+40, SEND+51!
>> ASUFAC2	SEND+22*, SEND+23
B	EP+21, EP+28!, A2+1~, A2+6, SENDMED+10*, SENDMED+17!
BCDMBD	EP+19, EP+21, EP+28!, SENDMED+8, SENDMED+10, SENDMED+17!
BCDMBSDV	SENDMED+17!, BSD+11!, BSD+12
BCDMBSDV(	BSD+16
BCDMBSDV(0	BSD+13, BSD+15
>> BCDMCLN	EVSIT+1*, EVSIT+2, EVSIT+10, BSD+5
BCDMCNTR	SEND+26~, SEND+29, SEND+36, SEND+37, SEND+39*, SEND+40
BCDMDA	SEND+26~, SEND+30*, SEND+32, SEND+34, SEND+35, SEND+38
BCDMDATE	EP+8, EP+9, EP+11, EP+15, EP+16, EP+27, EP+28!
BCDMG	A2+1~, A2+7
BCDMG(	A2+8
BCDMHRN	SEND+31~, SEND+32*, SEND+33
BCDMIN	BSD+1!, BSD+12
BCDMIN("CLINI	C CODE" , BSD+5*
BCDMIN("PAT"	BSD+2*
BCDMIN("SITE"	BSD+4*
BCDMIN("SRV C	AT" , BSD+7*
BCDMIN("TIME	RANGE" , BSD+8*
BCDMIN("USR"	BSD+9*
BCDMIN("VISIT	DATE" , BSD+3, TYPE" , BSD+6
BCDMINHF	SEND+44~, SEND+46*
>> BCDMMCNT	EP+4, SEND+49
BCDMMED	SEND+48~, SEND+50*
BCDMPSTR	SEND+26~, SEND+28, SEND+37, SEND+40*, SEND+41, SEND+42
BCDMV	EP+20!, EP+28!, SENDMED+9!, SENDMED+17!
BCDMV(	EP+22, SENDMED+11
>> BCDMVCNT	EP+4, SEND+45
BCDMVIEN	EP+22, EP+23, EP+24, EP+25, EP+28!, SENDMED+11, SENDMED+12, SENDMED+13, SENDMED+14, SENDMED+17!
>> BCDMVSIT	EVSIT+14, EVSIT+15, BSD+15, BSD+16, VFILES+4
>> BCDMX	EP+22, SENDMED+11
BIEN	VDT+2~, VDT+3*, VDT+4
C	A2+1~, A2+4*, A2+5, A2+11
CLN	A2CHK+1~, A2CHK+2*, A2CHK+3
>> CS	TEST+2*
D	SET~, SET+6, SET+9, SET+12
DFN	EP+13, EP+14, EP+16, EP+21, EP+26, TEST+7, SEND+8, SEND+9, SEND+17, SEND+19 , SEND+30, SEND+32, SEND+37, SEND+41, SEND+43, SENDMED+7*, SENDMED+10, SENDMED+16, SENDMED+17!, EVSIT+7 , BSD+2, VFILES+3
DIC	SENDMED+4!, SENDMED+5*!
DIC(0	SENDMED+5*
DOMAIN	SEND+12*, SEND+51!
DT	EP+5, EP+19, EP+21, EP+26, SENDMED+8, SENDMED+10, EVSIT+12, BSD+3
DUZ	BSD+9
DUZ(2	SEND+10, SEND+17, SEND+35, SEND+38, EVSIT+9, EVSIT+11, BSD+4, BSD+6
DUZ2	SEND+19*, SEND+20, SEND+21, SEND+51!
E	EP+21, EP+28!, A2+1~, A2+6, SENDMED+10*, SENDMED+17!
>> ERR	SET+8*
>> ESC	TEST+5*
FDA	SET+2~, SET+10~
FDA(90520	SET+5, SET+6, SET+12*
FERR	SET+2~, SET+10~
FERR(1	SET+8
G	A2+1~, A2+8, A2+12, A2+13
HRCN	SEND+17, SEND+18, SEND+23, SEND+24, SEND+31~, SEND+33, SEND+40
ID2	SEND+1!, SEND+23, SEND+24
IENS	SET+2~, SET+3, SET+10~, SET+11, SET+12, SEND+6, SEND+7, SEND+10, SEND+11, SEND+12 , SEND+21*, SEND+22, SEND+51!
IENS(1	SET+4*
INA	SEND+1!, SEND+46, SEND+50
INA("ASUFAC"	SEND+16*
INA("BCDMUSA"	SEND+5*
INA("BCDUSA"	SEND+43*
INA("EVDT"	SEND+7*
INA("PATID"	SEND+41, SEND+42
INA("VISIEN"	SEND+4*
INDA	SEND+1!, SEND+3*
INDA(	SEND+2, SEND+15
INDA(2	SEND+9*
IVISIEN	EP+28!
NUMSNT	EP+3*, EP+9, EP+28!
OK	A2CHK+1~
P	A2~, A2+2, A2+3, A2+6, VDT~, VDT+1, VDT+3, SET~, SET+1, SET+4 , SET+5, SET+9, SET+11
R	SEND+26~, SEND+27*, SEND+37, SEND+40
>> RS	TEST+3*
>> SCS	TEST+4*
SERVCAT	EP+28!
T	SENDMED+17!, BSD+13*, BSD+14
U	EP+12, EP+13, EP+22, EP+24, A2CHK+3, A2+8, A2+10, A2+11, VDT+4, SET+9 , TEST+2, SEND+8, SEND+17, SEND+33, SENDMED+11, SENDMED+13, EVSIT+11, BSD+6, BSD+13
V	EP+28!, A2CHK~, A2CHK+3, A2+8, A2+9, A2+10, A2+11, BSD+15, BSD+16
VDT	VDT~, VDT+4
VISIEN	EP+10, EP+11, EP+12, EP+13, EP+15, EP+16, EP+27, EP+28!, TEST+6, TEST+7 , SEND~, SEND+2, SEND+3, SEND+4, SEND+6, SEND+8, SEND+14, SEND+46, SEND+47, SEND+50
VMEDIEN	SEND+13, SEND+14, SEND+15, SEND+16, SEND+51!
X	EP+8, EP+28!, A2+8*
>> X1	EP+5*
>> X2	EP+6*
>> Y	SENDMED+6, SENDMED+7

Marked Items

Customize PDF page

Package: Comprehensive Diabetes Management

Routine: BCDMSNDR

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items