Routine: BDMDR6

Package	Total	Call Graph
VA Fileman	7	(C,NOW)^%DTC ^DIC FILE^DICN ^DIE IX1^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	5	^XBDBQUE $$VALI^XBDIQ1 ^XBFMK GUIR^XBLM EN^XBVK
Diabetes Registry	4	XTMP^BDMOSUT EN2^BDMRML $$DATE^BDMS9B1 ($$DEMO,$$LBLK,DEMOCHK)^BDMUTL
Kernel	4	^%ZISC $$OPEN^%ZISH ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Patient Care Component Reports	2	ALLV^APCLAPIU $$START1^APCLDF
IHS Patient	1	($$COMMRES,$$DOB,$$DOD,$$HRN,KILL)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
NUMDXS(P,BD,ED)	;
GUIEP	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
ZIS	;
PIH
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
ONREG(P,R)	;
RSTAT(REG,PAT)	;
INFORM	;
DEMO	;
DATE(D)	;EP
HEAD
R1	;
ED	;
SCREEN	;
LASTV(P)	;
ENDLOG	;-- write the end of the log
D	;
START	;
R	;
PT	;EP
HEAD1	;
VLOCS(P,BDATE,EDATE)	;
ST	;
LASTDMDX(P,BDATE,EDATE,N)	;
GETDATES	;
EXIT	;clean up and exit
CM(REG,PAT)	;
BDMG(BDMTR,BDMREG,BDMSTAT,BDMND,BDMLDAT)	;EP - GUI DMS Entry Point
TEST	;
PROC	;EP - called from XBDBQUE
DELR	;
WRITEF	;

External References

Name	Field # of Occurrence
C^%DTC	ED+5
NOW^%DTC	BDMG+6, ENDLOG+1
^%ZISC	WRITEF+8
$$OPEN^%ZISH	WRITEF+2
^%ZTLOAD	BDMG+20
ALLV^APCLAPIU	VLOCS+2
$$START1^APCLDF	NUMDXS+4, LASTDMDX+5
$$COMMRES^AUPNPAT	PRINT+14, DELR+6
$$DOB^AUPNPAT	PRINT+13, PRINT+18, DELR+5, DELR+10
$$DOD^AUPNPAT	PROC+8
$$HRN^AUPNPAT	PRINT+13, DELR+4
KILL^AUPNPAT	EXIT+3
XTMP^BDMOSUT	PROC+3
EN2^BDMRML	ZIS+7
$$DATE^BDMS9B1	PRINT+13, DELR+5
$$DEMO^BDMUTL	PROC+7
$$LBLK^BDMUTL	PRINT+17
DEMOCHK^BDMUTL	DEMO+1
^DIC	R1+1
FILE^DICN	BDMG+12
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10
$$GET1^DIQ	PROC+13, LASTV+11, CM+4, RSTAT+4
^DIR	BD+2, ED+1, D+3, ZIS+2, DONE+3, HEAD+2, EOP+5, PT+5, PT+9
^XBDBQUE	DEMO+5, BROWSE+2
$$VALI^XBDIQ1	VLOCS+5
^XBFMK	EXIT+2, BDMG+17
GUIR^XBLM	GUIEP+4
EN^XBVK	EXIT+1
$$FMTE^XLFDT	HEAD1+10
$$NOW^XLFDT	BDMG+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No register selected." Line Location: R1+3
Function Call: WRITE	Prompt: !!!,"Enter the time frame to look for visits with a diabetes diagnosis.",! 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: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will list patients who are not on any diabetes register ",! Line Location: INFORM+4
Function Call: WRITE	Prompt: "but who have had a visit with a diagnosis of diabetes in a date range",! Line Location: INFORM+5
Function Call: WRITE	Prompt: "specified by the user. If you are multi-divisional with multiple registers",! Line Location: INFORM+6
Function Call: WRITE	Prompt: "you can enter all of the register names. Only patients who are not on ANY",! Line Location: INFORM+7
Function Call: WRITE	Prompt: "of the registers will be displayed on the list.",! Line Location: INFORM+8
Function Call: WRITE	Prompt: ! Line Location: INFORM+9
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"Search Template ",$P(^DIBT(BDMSTMP,0),U,1)," has been created.",! Line Location: DONE+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",BDMPG,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U))/2),$P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR("Patients NOT on any of the following Registers:"),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR("with at least "_BDMND_" visits with a DX of Diabetes between ",80),! Line Location: HEAD1+9
Function Call: WRITE	Prompt: $$CTR($$FMTE^XLFDT(BDMBD)_" and "_$$FMTE^XLFDT(BDMED),80),! Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?40,"COMMUNITY",?53,"LAST VISIT",?64,"# DM",?70,"LAST DM",!,?64,"DXS",?70,"DX",!,BDM80D Line Location: PIH+0
Function Call: WRITE	Prompt: !!,"You have selected to create a delimited output file. You can have this",!,"output file created as a text file in the pub directory, ",!,"OR you can have the delimited output display on your screen so that" Line Location: PT+3
Function Call: WRITE	Prompt: !,"you can do a file capture. Keep in mind that if you choose to",!,"do a screen capture you CANNOT Queue your report to run in the background!!",!! Line Location: PT+4
Function Call: WRITE	Prompt: !!,"When the report is finished your delimited output will be found in the",!,BDMHDIR," directory. The filename will be ",BDMDELF,".txt",! Line Location: PT+14
Function Call: WRITE	Prompt: !,"NAME^HRN^DOB^COMMUNITY^LAST VISIT^# DM DXS^LAST DM DXS^LOCATIONS WHERE SEEN" Line Location: WRITEF+5
Function Call: WRITE	Prompt: !,^TMP($J,"DELIMITED",X) Line Location: WRITEF+6
Function Call: WRITE	Prompt: ! Line Location: WRITEF+7
Function Call: WRITE	Prompt: !,"NAME^HRN^DOB^COMMUNITY^LAST VISIT^# DM DXS^LAST DM DXS^LOCATIONS WHERE SEEN" Line Location: SCREEN+1
Function Call: WRITE	Prompt: !,^TMP($J,"DELIMITED",X) Line Location: SCREEN+2
Function Call: WRITE	Prompt: ! Line Location: SCREEN+3
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: R1+1
Routine Call	DIR Line Location: BD+2 ED+1 D+3 ZIS+2 DONE+3 HEAD+2 EOP+5 PT+5 PT+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^ACM(41 - [#9002241]	GET1^DIQ
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^BDMGUI - [#9003201.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	ONREG+3, CM+2, RSTAT+2
^ACM(41.1 - [#9002241.1]	HEAD1+8
^AUPNPAT - [#9000001]	PROC+4, PROC+9, PROC+10
^AUPNVSIT - [#9000010]	LASTV+5, LASTV+6, LASTV+7, LASTV+8
^AUPNVSIT("AA"	LASTV+3, LASTV+4
^AUTTLOC - [#9999999.06]	VLOCS+6
^AUTTSITE(1	PT+12
^BDMGUI - [#9003201.4]	GUIEP+8, GUIEP+9
^DIBT(	PRINT+10*, DONE+1
^DIC(4 - [#4]	HEAD1+5, VLOCS+8, LOC+1
^DPT - [#2]	PROC+5, PROC+6
^TMP($J	PRINT+4!, DELR+12*, GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!, WRITEF+6, SCREEN+2
^VA(200 - [#200]	HEAD1+4, USR+1
^XTMP("BDMDR6"	PROC+2!, PROC+13*, PRINT+5, PRINT+8, PRINT+9, DONE+5!
^XTV(8989.3 - [#8989.3]	PT+12

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, HEAD1+6, HEAD1+8, HEAD1+9, HEAD1+10
$$DATE	PRINT+16, PRINT+18, DELR+8, DELR+10
$$LASTDMDX	PROC+12, PRINT+18, DELR+10
$$LASTV	PRINT+15, DELR+7
$$LOC	INFORM+2
$$NUMDXS	PRINT+17, DELR+9
$$ONREG	PROC+11
$$USR	INFORM+3
$$VLOCS	PRINT+19, DELR+11
BDMG	TEST+1
BROWSE	DEMO+3
DELR	PRINT+11
DEMO	ZIS+5, ZIS+6
DONE	PRINT+5
ED	ED+3
ENDLOG	GUIEP+11
EXIT	START+2, R1+3, DEMO+2, DEMO+3, DEMO+6, BDMG+21, GUIEP+13
GETDATES	R1+2, ED+2, D+4, ZIS+3
HEAD	PRINT+3, PRINT+12
HEAD1	HEAD+1
INFORM	START+1
PROC	GUIEP+1
PT	ZIS+9, PT+6, PT+10
R	BD+3
R1	R1+5
SCREEN	WRITEF+1
WRITEF	DONE+2
ZIS	ZIS+6, ZIS+9

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+7, ENDLOG+2
BD	NUMDXS~, NUMDXS+4
BDATE	LASTDMDX~, LASTDMDX+5, VLOCS~, VLOCS+2
BDM	NUMDXS+2~, LASTDMDX+3~
BDM(	NUMDXS+6, LASTDMDX+6
>> BDM80D	PRINT+2*, PIH
>> BDMBD	BD+4*, ED+3, ED+5, PROC+12, PRINT+17, PRINT+19, DELR+9, DELR+11, HEAD1+10
BDMBTH	PROC+1*, PROC+2, PROC+13, PRINT+5, PRINT+8, PRINT+9, DONE+5!
>> BDMDATA	GUIEP+6*, GUIEP+8
>> BDMDCNT	PRINT+7, DELR+1, DELR+12
>> BDMDELF	ZIS+9, PT+1, PT+2, PT+11*, PT+14, WRITEF+2
>> BDMDELT	ZIS+9, PT+1, PT+2, PT+7*, PT+8, WRITEF+1
>> BDMDEMO	DEMO+1, DEMO+2, PROC+7
>> BDMDUZ2	PROC+9, PROC+10, PRINT+13, DELR+4, HEAD1+5
>> BDMED	ED+4*, PROC+12, PRINT+17, PRINT+19, DELR+9, DELR+11, HEAD1+10
>> BDMGIEN	BDMG+16*
>> BDMGUI	EXIT+1, PRINT+1, HEAD1+2, BDMG+2*
>> BDMHDIR	PT+12, PT+13, PT+14, WRITEF+2
BDMIEN	BDMG+4~, BDMG+14, BDMG+15, BDMG+16, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BDMIOSL	PRINT+1*, PRINT+12
BDMJOB	PROC+1*, PROC+2, PROC+13, PRINT+5, PRINT+8, PRINT+9, DONE+5!
BDMLDAT	BDMG~, BDMG+3*
BDMLOCS	VLOCS+1~
BDMLOCS(	VLOCS+9*, VLOCS+11
>> BDMNAME	PRINT+6, PRINT+8, PRINT+9, PRINT+13, DELR+3
BDMND	D+2, D+5, PROC+12, HEAD1+9, BDMG~, BDMG+1*
BDMNOW	BDMG+4~, BDMG+7, BDMG+9, BDMG+10, ENDLOG+2, ENDLOG+3
BDMOPT	BDMG+4~, BDMG+5*, BDMG+10
>> BDMPG	PRINT+3, HEAD+1, HEAD1+1, HEAD1+2, HEAD1+4
BDMQ	PRINT+6!, PRINT+8, PRINT+9, PRINT+12, HEAD+2*
>> BDMREC	DELR+2, DELR+3, DELR+4, DELR+5, DELR+6, DELR+8, DELR+9, DELR+10, DELR+11*, DELR+12
BDMREG	R+1!, R1+1, R1+2, R1+3, PROC+11, BDMG~
BDMREG(	R1+4*, ONREG+3, HEAD1+7
>> BDMROT	PT+1*
>> BDMSD	ED+5*
BDMSTAT	BDMG~
>> BDMSTMP	ZIS+6, PRINT+10, DONE+1
>> BDMTEMP	ZIS+1, ZIS+4, ZIS+5, ZIS+6, DEMO+3, PRINT+5, PRINT+10, PRINT+11, DONE+1, DONE+2 , HEAD
BDMTR	BDMG~
BDMVS	VLOCS+1~
BDMVS(	VLOCS+3, VLOCS+4
>> BDMX	PRINT+9*
>> C	GUIEP+5, GUIEP+8, GUIEP+9
D	LASTV+1~, LASTV+3*, LASTV+4, DATE~, DATE+1, DATE+2
DA	D+3!, ZIS+2!, BDMG+13!, GUIEP+10, ENDLOG+3, ENDLOG+5!, PT+5!, PT+9!
DD	BDMG+8!
>> DFN	PROC+4, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PROC+11, PROC+12, PROC+13 , ONREG+3, PRINT+9, PRINT+10, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+19, DELR+4 , DELR+5, DELR+6, DELR+7, DELR+9, DELR+10, DELR+11
DFOUT	EOP+4!
DIADD	BDMG+11*, BDMG+13!
DIC	R1+1, BDMG+8!, BDMG+11, BDMG+13!
DIC("A"	R1+1*
DIC("DR"	BDMG+10*
DIC(0	R1+1, BDMG+11
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10*
DIR	BD+2!, ED+1!, D+3!, ZIS+2!, DONE+3!, HEAD+2!, EOP+3~, PT+5!, PT+9!
DIR("?"	BD+2*
DIR("A"	BD+2, ED+1, D+3, ZIS+2, DONE+3, PT+5, PT+9*
DIR("B"	D+3, ZIS+2, PT+5*
DIR(0	BD+2, ED+1, D+3, ZIS+2, DONE+3, HEAD+2, EOP+5, PT+5, PT+9*
DIRUT	BD+2, BD+3, ED+1, ED+2, D+4, ZIS+3, DONE+3*, EOP+4!, PT+6, PT+10
DLAYGO	BDMG+11*, BDMG+13!
DLOUT	EOP+4!
DO	BDMG+8!
DR	ENDLOG+3*, ENDLOG+5!
DT	PRINT+18, DELR+10, GUIEP+9
DTOUT	HEAD+2, EOP+4!
DUOUT	BD+2, ED+1, DONE+3, EOP+4!
DUZ	HEAD1+4, USR+1, BDMG+9, BDMG+10
DUZ(2	PROC+9, PROC+10, PRINT+13, DELR+4, HEAD1+5, LOC+1
E	NUMDXS+2~, NUMDXS+4, LASTDMDX+3~, LASTDMDX+5
ED	NUMDXS~, NUMDXS+4
EDATE	LASTDMDX~, LASTDMDX+5, VLOCS~, VLOCS+2
G	ONREG+1~, ONREG+2, ONREG+3, ONREG+4
IO	DONE+3, HEAD+2, WRITEF+4
IO("S"	EOP+2
IO(0	DONE+3, HEAD+2
IOF	INFORM+1, DONE+4, HEAD1+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+1
IOST	DONE+3, HEAD+2, EOP+1
>> IOT	EOP+2
L	VLOCS+1~, VLOCS+5, VLOCS+6, VLOCS+8, VLOCS+9, VLOCS+10, VLOCS+11
N	LASTDMDX~, LASTDMDX+2*, LASTDMDX+5, LASTDMDX+6
P	ONREG~, NUMDXS~, NUMDXS+1, NUMDXS+4, LASTV~, LASTV+3, LASTV+4, LASTDMDX~, LASTDMDX+1, LASTDMDX+5 , VLOCS~, VLOCS+2
PAT	CM~, CM+2, RSTAT~, RSTAT+2
R	ONREG~
REG	CM~, CM+2, RSTAT~, RSTAT+2
U	PROC+5, PROC+9, PROC+10, PRINT+16, DONE+1, DELR+3, DELR+4, DELR+5, DELR+6, DELR+8 , DELR+9, DELR+10, DELR+11, HEAD1+4, HEAD1+5, HEAD1+8, LASTV+6, LASTV+7, LASTV+8, LASTV+11 , LASTDMDX+6, VLOCS+4, VLOCS+8, USR+1, LOC+1, PT+12
V	PRINT+15, PRINT+16, DELR+7, DELR+8, LASTV+1~, LASTV+2, LASTV+3, LASTV+4, LASTV+9, LASTV+10 , LASTV+11, VLOCS+1~, VLOCS+4, VLOCS+5, VLOCS+10, VLOCS+11*, VLOCS+12
X	ED+5, PROC+12, PROC+13, ONREG+1~, ONREG+3, HEAD1+7, HEAD1+8, NUMDXS+2~, NUMDXS+4, NUMDXS+5* , NUMDXS+6, LASTV+1~, LASTV+4, LASTV+5, LASTV+6, LASTV+7, LASTV+8, LASTV+9, LASTDMDX+3~, LASTDMDX+5* , VLOCS+1~, VLOCS+3, VLOCS+4, CM+1~, CM+2, CM+3, CM+4, RSTAT+1~, RSTAT+2, RSTAT+3 , RSTAT+4, CTR~, CTR+1, BDMG+9, GUIEP+5, GUIEP+6, GUIEP+8, WRITEF+6, SCREEN+2*
>> 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	R1+2, R1+3, R1+4, BD+4, ED+3, ED+4, D+5, ZIS+4, HEAD+2, NUMDXS+2~ , NUMDXS+3, NUMDXS+4, NUMDXS+5, NUMDXS+6, NUMDXS+7, LASTV+1~, LASTDMDX+3~, LASTDMDX+4, LASTDMDX+5, CTR~ , CTR+1, BDMG+14, BDMG+15, PT+7, PT+11, WRITEF+2*, WRITEF+3
Z	LASTV+1~
>> ZTDESC	BDMG+20*
>> ZTDTH	BDMG+20*
>> ZTIO	BDMG+20*
>> ZTQUEUED	EOP+2, WRITEF+3
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+20*
ZTSAVE	BDMG+18!
ZTSAVE("*"	BDMG+18*

Customize PDF page

Package: Diabetes Registry

Routine: BDMDR6

Information

Source Information

Call Graph

Call Graph Total: 23

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: