Routine: BDMRMC

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VALI^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	3	C^%DTC ^DIC ^DIR
Case Management System	1	PAUSE1^ACMPPDTX
Diabetes Registry	1	CS1^BDMVRL
IHS Patient	1	KILL^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
WF	;
GROUP	;get register, status, random or not
HS	;
SELTYP	;PEP;TO SELECT HEALTH SUMMARY TYPE
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
PRINT	;EP - called from xbdbque
PS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
I1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INFORM	;
DEMO	;
GROUP1	;
ZIS	;call to XBDBQUE
CM	;
CC	;current community
ED	;
START	;
R	;
GETINFO	;
NRD	;NEXT REVIEW DATE RANGE
BROWSE	;
GETDATES	;
EXIT	;clean up and exit
GETPATS	;
WF1	;which status
CM1	;which status

External References

Name	Field # of Occurrence
C^%DTC	ED+5
PAUSE1^ACMPPDTX	PRINT+9
KILL^AUPNPAT	EXIT+6
CS1^BDMVRL	PRINT+7
^DIC	R+2, I1+1, CM1+1, WF1+1, CC+5, SELTYP+4
^DIR	PS+2, HS+4, EOP+5, GROUP+4, GROUP+8, NRD+1, BD+2, ED+1, CM+2, WF+2 , CC+2
^XBDBQUE	DEMO+5, BROWSE+2
$$VALI^XBDIQ1	ED+10, CM1+7, WF1+8
^XBFMK	EXIT+5
EN^XBVK	EXIT+2, EXIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No register selected." Line Location: R+3
Function Call: WRITE	Prompt: !!,"No patients selected." Line Location: PS+5
Function Call: WRITE	Prompt: !!,"No patients selected." Line Location: PS+8
Function Call: WRITE	Prompt: !,"No Health summary will be included.",! Line Location: HS+5
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,$$CTR("DIABETES REGISTER MULTIPLE PATIENTS SUMMARIES",80) Line Location: INFORM+4
Function Call: WRITE	Prompt: !!,"This report will print patient summaries for a selected set of patients." Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"You may select individual patients by name/HRN or you may select a group" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"of patients by any combination of the following attributes:" Line Location: INFORM+7
Function Call: WRITE	Prompt: ?5,"- Register Status",! Line Location: INFORM+8
Function Call: WRITE	Prompt: ?5,"- Community of Residence",! Line Location: INFORM+9
Function Call: WRITE	Prompt: ?5,"- Case Manager",! Line Location: INFORM+10
Function Call: WRITE	Prompt: ?5,"- Where Followed",! Line Location: INFORM+11
Function Call: WRITE	Prompt: ?5,"- Next Review Date",! Line Location: INFORM+12
Function Call: WRITE	Prompt: ! Line Location: INFORM+13
Function Call: WRITE	Prompt: !,"No patients selected" Line Location: I1+2
Function Call: WRITE	Prompt: !,"That patient is not on the register!" Line Location: I1+4
Function Call: WRITE	Prompt: !,"No patients with that status in that register!" Line Location: GROUP1+5
Function Call: WRITE	Prompt: !!,"There are ",BDMCNT," patients in the ",$P(^ACM(41.1,BDMREG,0),U)," register with a status of ",BDMSTAT,".",!! Line Location: GROUP1+6
Function Call: WRITE	Prompt: !!!,"Enter the next review date range.",! Line Location: BD+1
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,"There are no patients with that case manager." Line Location: ED+15
Function Call: WRITE	Prompt: !,"There are ",C," patients selected so far.",! Line Location: ED+16
Function Call: WRITE	Prompt: !!,"There are no patients with that case manager." Line Location: CM1+11
Function Call: WRITE	Prompt: !!,"There are no patients with that Where Followed Value." Line Location: WF1+12
Function Call: WRITE	Prompt: ! Line Location: CC+2
Function Call: WRITE	Prompt: !!,"There are no patients living in that community." Line Location: CC+10
Function Call: WRITE	Prompt: !!,C," patients have been selected so far.",! Line Location: CC+11
Function Call: WRITE	Prompt: ! Line Location: SELTYP+3
Routine Call	DIC Line Location: R+2 I1+1 CM1+1 WF1+1 CC+5 SELTYP+4
Routine Call	DIR Line Location: PS+2 HS+4 EOP+5 GROUP+4 GROUP+8 NRD+1 BD+2 ED+1 CM+2 WF+2 CC+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^APCHSCTL - [#9001015]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	PRINT+6, I1+4, GROUP1+2, GROUP1+3, GROUP1+4, ED+8, CM1+5, WF1+6
^ACM(41.1 - [#9002241.1]	HS+1, GROUP1+6
^AUPNPAT - [#9000001]	CC+8
^AUTTCOM - [#9999999.05]	CC+7
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, INFORM+4
$$LOC	INFORM+2
$$USR	INFORM+3
CC	GROUP1+9, CC+6
CM	GROUP1+7, CM1+2
CM1	CM1+14
ED	ED+3
EXIT	START+2, R+3, PS+3, PS+5, PS+8, DEMO+6, PRINT+10
GETDATES	ED+2
GETPATS	PS+5
GROUP	PS+7, GROUP+5, GROUP+9, GROUP1+5
GROUP1	GROUP+6
HS	PS+6
I1	I1+4, I1+6
INFORM	START+1
NRD	GROUP1+13
SELTYP	HS+5
WF	GROUP1+11, WF1+2, WF1+3
WF1	WF1+15

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACMMHS	HS+5*, EXIT+4!
ACMSTYP	HS+5, EXIT+4!, SELTYP+7*
>> ACMZQUIT	PRINT+3
>> BDMBD	BD+4*, ED+3, ED+5, ED+12
BDMCM	CM+1!, CM1+1, CM1+2, CM1+3
BDMCM(	CM1+9, CM1+13*
>> BDMCNT	GROUP1+2, GROUP1+3, GROUP1+4*, GROUP1+6
>> BDMCOM	CC+7*, CC+8
>> BDMED	ED+4*, ED+13
>> BDMMULTS	PRINT+2*
BDMPATS	PS+1!, PS+5, PS+8, GETPATS+1!, I1+2, GROUP+2!, GROUP1+2!, GROUP1+5, GROUP1+8!, GROUP1+10! , GROUP1+12!, GROUP1+14!
BDMPATS(	PRINT+3, I1+5, GROUP1+3, GROUP1+4*, ED+8, ED+9!, ED+11!, ED+12!, ED+13!, ED+14 , CM1+5, CM1+6!, CM1+8!, CM1+9!, CM1+10, WF1+6, WF1+7!, WF1+9!, WF1+10!, WF1+11 , CC+8!, CC+9
>> BDMPATX	PRINT+3*, PRINT+4, PRINT+6
>> BDMPS	PS+4*, PS+5, PS+6
>> BDMQUIT	R+3*
BDMRDA	EXIT+1~, PRINT+5*
>> BDMREG	R+1, R+4, HS+1, PRINT+5, PRINT+6, I1+4, GROUP1+2, GROUP1+6, ED+8, CM1+5 , WF1+6
BDMREGNM	EXIT+1~
>> BDMRPDA	PRINT+6*
>> BDMSD	ED+5*
BDMSTAT	GETINFO+1!, GROUP+3, GROUP+10, GROUP1+3, GROUP1+4, GROUP1+6
>> BDMSTP	GETPATS+1, I1+2, GROUP+1, GROUP1+5, GROUP1+8, GROUP1+10, GROUP1+12, GROUP1+14, BD+3, ED+15 , CM+3, CM1+11, WF+3, WF1+12, CC+1, CC+3, CC+10*
BDMWF	WF+1!, WF+4!, WF1+1, WF1+2, WF1+3, WF1+4
BDMWF(	WF1+10, WF1+14*
>> BDMX	ED+8, ED+9, ED+10, CM1+5, CM1+6, CM1+7, WF1+6*, WF1+7, WF1+8
>> C	ED+14, ED+15, ED+16, CM1+10, CM1+11, CM1+12, WF1+11, WF1+12, WF1+13, CC+9 , CC+10, CC+11
DA	PS+2!, GROUP+4!, GROUP+8!, NRD+1!, CM+2!, WF+2!, CC+2!, SELTYP+5!
>> DFN	PRINT+4*
DFOUT	EOP+4!
DIC	R+2, I1+1!, CM1+1!, WF1+1!, CC+5!, SELTYP+1!, SELTYP+2, SELTYP+5!
DIC("A"	R+2, CM1+1, WF1+1, SELTYP+2
DIC("B"	SELTYP+2*
DIC("S"	I1+1*
DIC(0	R+2, I1+1, CM1+1, WF1+1, CC+5, SELTYP+2
DIR	PS+2!, HS+4!, EOP+3~, GROUP+4!, GROUP+8!, NRD+1!, BD+2!, ED+1!, CM+2!, WF+2! , CC+2!
DIR("?"	BD+2*
DIR("A"	PS+2, HS+2, GROUP+4, GROUP+8, NRD+1, BD+2, ED+1, CM+2, WF+2, CC+2
DIR("B"	PS+2, HS+2, GROUP+4, GROUP+8, NRD+1, CM+2, WF+2, CC+2
DIR(0	PS+2, HS+2, EOP+5, GROUP+4, GROUP+8, NRD+1, BD+2, ED+1, CM+2, WF+2 , CC+2*
DIRUT	PS+3, EOP+4!, GROUP+5, GROUP+9, NRD+3, BD+2, BD+3, ED+1, ED+2, CM+3 , WF+3, WF1+3, CC+3
DLOUT	EOP+4!
DR	SELTYP+5!
DTOUT	EOP+4!
DUOUT	EOP+4!, BD+2, ED+1
DUZ	USR+1
DUZ(2	LOC+1
IO("S"	EOP+2
IOF	INFORM+1
IOM	CTR+1
IOST	PRINT+9, EOP+1
>> IOT	EOP+2
>> P	ED+8, ED+9, ED+11, ED+12, ED+13, ED+14, CM1+5, CM1+6, CM1+8, CM1+9 , CM1+10, WF1+6, WF1+7, WF1+9, WF1+10, WF1+11
U	HS+1, USR+1, LOC+1, GROUP1+3, GROUP1+4, GROUP1+6, CC+7, CC+8
X	CTR~, CTR+1, GROUP1+2, GROUP1+3, GROUP1+4, ED+5, ED+10, ED+11, ED+12, ED+13 , CM1+7, CM1+8, CM1+9, WF1+8, WF1+9, WF1+10, CC+8, CC+9
>> X1	ED+5*
>> X2	ED+5*
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+4*
>> XBRC	DEMO+4, BROWSE+2
>> XBRP	DEMO+4, BROWSE+1
>> XBRX	DEMO+4, BROWSE+2
Y	R+3, R+4, PS+4, HS+5, CTR~, CTR+1, I1+2, I1+3, I1+4, I1+5 , GROUP+6, GROUP+10, NRD+2, BD+4, ED+3, ED+4, CM+4, CM1+2, CM1+3, CM1+13 , WF+4, WF1+2, WF1+4, WF1+14, CC+4, CC+6, CC+7, SELTYP+6, SELTYP+7
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Diabetes Registry

Routine: BDMRMC

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: