Routine: BDMDG1

Package	Total	Call Graph
Diabetes Registry	6	^BDMDG10 TAXCHK^BDMDG19 $$PREG^BDMDG1B ^BDMDG2 BLDTAX^BDMTAPI DEMOCHK^BDMUTL
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	5	^XBDBQUE ^XBFMK ^XBGSAVE GUIR^XBLM EN^XBVK
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT ($$LOW,$$UP)^XLFSTR
IHS Patient	1	($$BEN,KILL)^AUPNPAT

Package	Total	Caller Graph
Diabetes Registry	4	BDMDG10 BDMDG1E BDMGRJ BDMVRL

Entry Points

Name	Comments	DBIA/ICR reference
RAND	;random sample or not
BEN	;
DEMO	;
PCP	;
REGASK	;
GUIEP	;EP - called from taskman
PTAX	;
BEGIN	;EP - called from option
BDMG(BDMJOB,BDMBTH,BDMDMRG,BDMADAT,BDMTYPE,BDMSTMP,BDMPDP,BDMCOM,BDMRAND,BDMRCNT,BDMCMS,BDMSTAT,BDMPREP,BDMFILE,BDMDSP,BDMGIEN,BDMSDPI,BDMSDPG,BDMPPN,BDMDUZ2,BDMDEMO,BDMBEN,BDMDQ,BDMACTI)	;PEP - gui call
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
C1	;
C0	;get status
FLAT	;EP
C	;get register, status, random or not
P1	;
E	;
ZIS	;
CC	;current community
ENDLOG	;-- write the end of the log
P	;
S	; Get patient name or cohort
XIT	;
BENC(B)	;
IF	;PEP - called from BDM indivdual or epi
IF2	;
PREG	;
XIT1	;
GETDATES	;
IAEP	;EP
TIME	;PEP - called from BDM Get fiscal year or time frame
TYPE	;
WRITEF	;EP write flat file

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+29, ENDLOG+1
^%ZTLOAD	BDMG+42
$$BEN^AUPNPAT	BEN+7, BEN+8, BDMG+21, BDMG+22
KILL^AUPNPAT	XIT+2
^BDMDG10	GUIEP+1
TAXCHK^BDMDG19	BEGIN+1
$$PREG^BDMDG1B	PREG+11
^BDMDG2	E+1
BLDTAX^BDMTAPI	PTAX+8
DEMOCHK^BDMUTL	DEMO+2
^DIC	REGASK+4, P1+1, S+3, PCP+6, CC+5, C+4
FILE^DICN	BDMG+35
^DIE	ENDLOG+4
IX1^DIK	GUIEP+13
^DIR	TYPE+4, IF+4, IF2+2, DEMO+5, PCP+3, CC+2, C0+2, C0+6, BEN+3, PREG+3 , RAND+3, RAND+7, TIME+4, FLAT+3, FLAT+16
^XBDBQUE	DEMO+4, DEMO+10, BROWSE+2
^XBFMK	XIT+2, BDMG+40
^XBGSAVE	WRITEF+18
GUIR^XBLM	GUIEP+6
EN^XBVK	XIT+1
$$FMADD^XLFDT	TIME+8, BDMG+16
$$FMTE^XLFDT	TIME+7, TIME+9, BDMG+15, BDMG+17
$$NOW^XLFDT	BDMG+42
$$LOW^XLFSTR	FLAT+7
$$UP^XLFSTR	BDMG+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,$$CTR("ASSESSMENT OF DIABETES CARE, 2019") Line Location: REGASK+1
Function Call: WRITE	Prompt: !!,$$CTR("DIABETES AUDIT") Line Location: REGASK+2
Function Call: WRITE	Prompt: !! Line Location: REGASK+3
Function Call: WRITE	Prompt: !,"NO Register Selected!!! The CMS register will not be used in retrieving",!,"any data." Line Location: REGASK+6
Function Call: WRITE	Prompt: ! Line Location: DEMO+5
Function Call: WRITE	Prompt: !,"No patients selected" Line Location: P1+2
Function Call: WRITE	Prompt: !,"No template selected." Line Location: S+4
Function Call: WRITE	Prompt: !!,"There are ",BDMCNT," patients in the ",$P(^DIBT(+Y,0),U)," template/cohort.",! Line Location: S+6
Function Call: WRITE	Prompt: !,"You have selected a register or template/cohort of patients. ",!,"You can run the audit just for the subset of patients in the cohort or register",!,"who live in a particular community or have a particular primary care provider.",! Line Location: PCP+2
Function Call: WRITE	Prompt: !!,C," patients will be used in the audit.",! Line Location: PCP+11
Function Call: WRITE	Prompt: ! Line Location: CC+2
Function Call: WRITE	Prompt: !!,C," patients will be used in the audit.",! Line Location: CC+10
Function Call: WRITE	Prompt: !,"No register selected." Line Location: C+5
Function Call: WRITE	Prompt: !,"No patients with that status in that register!" Line Location: C1+5
Function Call: WRITE	Prompt: !!,"There are ",BDMCNT," patients in the ",$P(^ACM(41.1,BDMCMS,0),U)," register with a status of ",BDMSTAT,".",!! Line Location: C1+6
Function Call: WRITE	Prompt: !,"okay, hold on...this may take a few minutes.." Line Location: PREG+7
Function Call: WRITE	Prompt: !!,"There are ",BDMCNT," patients selected so far to be used in the audit.",! Line Location: RAND+2
Function Call: WRITE	Prompt: !!,"Enter the date of the audit. This date will be considered the ending",!,"date of the audit period. For most data items all data for the period one",!,"year prior to this date will be reviewed.",! Line Location: TIME+3
Function Call: WRITE	Prompt: !!,"The file generated will be in a ""^"" delimited format. You can use",!,"this file to review your data in EXCEL if you so choose.",!! Line Location: FLAT+1
Function Call: WRITE	Prompt: !!,"You cannot use '/' in the filename." Line Location: FLAT+5
Function Call: WRITE	Prompt: !!,"You cannot use '\' in the filename." Line Location: FLAT+6
Function Call: WRITE	Prompt: !!,"I am going to create a file called ",BDMFILE," which will reside in ",!,"the " Line Location: FLAT+8
Function Call: WRITE	Prompt: $S($P($G(^APCCCTRL($S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0)),U,11)]"":$P(^APCCCTRL($S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U,11),$P($G(^AUTTSITE(1,1)),U,2)]"":$P(^AUTTSITE(1,1),U,2),$P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT") Line Location: FLAT+9
Function Call: WRITE	Prompt: " directory on your RPMS server. ",! Line Location: FLAT+10
Function Call: WRITE	Prompt: "It is the same directory that the data export globals are placed." Line Location: FLAT+11
Function Call: WRITE	Prompt: !,"See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"******** ",BDMFILE," ********",! Line Location: FLAT+12
Function Call: WRITE	Prompt: "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",! Line Location: FLAT+13
Function Call: WRITE	Prompt: !,"The records that are generated and placed in file ",BDMFILE Line Location: FLAT+14
Function Call: WRITE	Prompt: !,"are in a format readable by Excel. For a definition of the format",!,"please see your user manual.",! Line Location: FLAT+15
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: REGASK+4 P1+1 S+3 PCP+6 CC+5 C+4
Routine Call	DIR Line Location: TYPE+4 IF+4 IF2+2 DEMO+5 PCP+3 CC+2 C0+2 C0+6 BEN+3 PREG+3 RAND+3 RAND+7 TIME+4 FLAT+3 FLAT+16

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	C1+2, C1+3, C1+4
^ACM(41.1 - [#9002241.1]	C1+6
^APCCCTRL - [#9001000]	FLAT+9, WRITEF+15
^ATXAX - [#9002226]	BDMG+7, BDMG+8
^ATXAX("B"	PTAX+6
^AUPNPAT - [#9000001]	PCP+9, CC+8
^AUTTCOM - [#9999999.05]	CC+7
^AUTTSITE(1	FLAT+9
^BDMDATA("BDMEPI"	XIT1+1!, WRITEF+2, WRITEF+12, WRITEF+13!, WRITEF+20!
^BDMDATA($J	XIT1+1!, WRITEF+1!, WRITEF+9, WRITEF+12, WRITEF+22!
^BDMGUI - [#9003201.4]	GUIEP+11, GUIEP+12
^BDMRECD - [#9003202.1]	WRITEF+5, WRITEF+6, WRITEF+7
^BDMRECD("B"	WRITEF+4
^DD(9000001	PCP+6
^DIBT(	S+5, S+6
^DPT - [#2]	PREG+9
^ICDS(0	PTAX+1
^TMP($J	TYPE+2!, P+1!, S+1!, S+5, PCP+9!, PCP+10, CC+8!, CC+9, C+1!, C1+2! , C1+3, C1+4*, C1+5, BEN+6, BEN+7!, BEN+8!, PREG+8, PREG+11!, RAND+1, RAND+5 , RAND+6!, RAND+10!, RAND+11!, BDMG+20, BDMG+21!, BDMG+22!, GUIEP+3!, GUIEP+8, GUIEP+9, GUIEP+15!
^VA(200 - [#200]	WRITEF+16
^XTMP("BDMDM19"	TYPE+2!, P+1!, P1+2, P1+4, S+1!, C+1!, RAND+5, RAND+10*, XIT1+3!, WRITEF+24!
^XTMP("BDMTAX"	PREG+12!, PTAX+2!, XIT1+2!, WRITEF+23!

Label References

Name	Line Occurrences
$$CTR	REGASK+1, REGASK+2
@(	TYPE+8
BEN	S+11, C1+11
BROWSE	DEMO+8
C	C0+7, C1+5, RAND+4
C0	C+2
C1	C0+4
CC	S+9, CC+6, C1+9
ENDLOG	GUIEP+2, GUIEP+14
FLAT	IF+7, FLAT+5, FLAT+6
GETDATES	TYPE+5
GUIEP	BDMG+23
IF	IF2+1, DEMO+2
IF2	IAEP+4
P1	P1+5
PCP	S+7, PCP+7, C1+7
PREG	S+13, C1+13
RAND	S+15, C1+15
TIME	GETDATES+1
TYPE	TYPE+9, IF+5
XIT	REGASK+5, GETDATES+1, DEMO+4, DEMO+6, DEMO+8, DEMO+11, BDMG+43
XIT1	GETDATES+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+30, ENDLOG+2
B	BENC~, BENC+1, BENC+2, BENC+3
BDMACTI	BDMG~
BDMADAT	PREG+11, TIME+2, TIME+6, TIME+7, TIME+8, BDMG~, BDMG+3, BDMG+15, BDMG+16
>> BDMBDAT	PREG+11, TIME+8, TIME+9, BDMG+16, BDMG+17
BDMBEN	P+2, BEN+1, BEN+5*, BEN+7, BEN+8, BDMG~, BDMG+21, BDMG+22
BDMBTH	REGASK+8*, TYPE+2, P+1, P1+2, P1+4, S+1, C+1, PREG+12, PTAX+2, PTAX+7 , RAND+5, RAND+10, XIT1+2, XIT1+3!, WRITEF+23, WRITEF+24!, BDMG~, BDMG+2, BDMG+32
BDMCMS	REGASK+7, C+2, C+3, C+6*, C1+2, C1+6, BDMG~
>> BDMCNT	S+5, S+6, C1+2, C1+3, C1+4, C1+6, RAND+1*, RAND+2, RAND+7, RAND+10
BDMCOM	CC+7*, CC+8, BDMG~, BDMG+6
>> BDMDATA	GUIEP+9*, GUIEP+11
BDMDEMO	DEMO+1, DEMO+2, DEMO+3, BDMG~, BDMG+9, BDMG+19
BDMDMRG	REGASK+6, REGASK+7, BDMG~
BDMDQ	BDMG~, BDMG+11
BDMDSP	BDMG~, BDMG+23, GUIEP+2, GUIEP+4, GUIEP+7
BDMDUZ2	FLAT+9, WRITEF+15, BDMG~, BDMG+10*
BDMFILE	FLAT+2, FLAT+7, FLAT+8, FLAT+12, FLAT+14, WRITEF+16, BDMG~, BDMG+12*, BDMG+13
>> BDMFL	PTAX+4*
BDMGIEN	BDMG~, BDMG+39*
>> BDMGUI	XIT+1, BDMG+18*
>> BDMIEN	BDMG+1, BDMG+2, BDMG+3, BDMG+4, BDMG+5, BDMG+13, BDMG+37, BDMG+38, BDMG+39, GUIEP+11 , GUIEP+12, GUIEP+13, ENDLOG+3
BDMJOB	REGASK+8*, TYPE+2, P+1, P1+2, P1+4, S+1, C+1, PREG+12, PTAX+2, PTAX+7 , RAND+5, RAND+10, XIT1+2, XIT1+3!, WRITEF+23, WRITEF+24!, BDMG~, BDMG+1
>> BDMNOW	BDMG+30, BDMG+33, ENDLOG+2, ENDLOG+3
BDMOPT	DEMO+7, BDMG+25~, BDMG+26, BDMG+27, BDMG+28, BDMG+33
>> BDMPD	S+5*
BDMPDP	PCP+8*, PCP+9, BDMG~
BDMPPN	IF2+1, IF2+4, BDMG~, BDMG+14*
>> BDMPREG	PREG+1, PREG+5, PREG+6
BDMPREP	IF+6, IF+7, IF2+1, DEMO+4, IAEP+2, BDMG~, BDMG+5, BDMG+13, BDMG+27, BDMG+28 , BDMG+33, GUIEP+2, GUIEP+4
>> BDMQSRT	BDMG+11*
BDMRAND	BDMG~
>> BDMRBD	TIME+2, TIME+9, BDMG+17*
BDMRCNT	BDMG~
>> BDMRED	TIME+2, TIME+7, BDMG+15*
BDMSDPG	BDMG~
BDMSDPI	BDMG~
BDMSTAT	C0+1, C0+8, C1+3, C1+4, C1+6, BDMG~
BDMSTMP	BDMG~
>> BDMSTP	GETDATES+1, TYPE+1, TYPE+7, TYPE+9, IF+1, IF+7, IF2+1, IF2+3, IAEP+3, P+1* , P1+2, S+1, S+4, S+8, S+10, S+12, S+14, PCP+1, PCP+4, CC+1 , CC+3, C+2, C+3, C+5, C0+3, C1+5, C1+8, C1+10, C1+12, C1+14 , BEN+1, BEN+4, PREG+1, PREG+4, RAND+9, TIME+1, TIME+5, FLAT+4, FLAT+17, FLAT+18
>> BDMTAX	PTAX+3*, PTAX+6, PTAX+7, PTAX+8
>> BDMTAX(	BDMG+8*
>> BDMTAXI	PTAX+6, PTAX+8, BDMG+6, BDMG+7, BDMG+8
>> BDMTGT	PTAX+7*, PTAX+8
>> BDMTYP	PTAX+5*, PTAX+8
BDMTYPE	TYPE+3, TYPE+6, TYPE+8, DEMO+2, DEMO+3, IAEP+1*, BDMG~, BDMG+4, BDMG+6, BDMG+19
>> C	PCP+10, PCP+11, CC+9, CC+10, RAND+5, RAND+10, GUIEP+8, GUIEP+11, GUIEP+12
D0	BDMG+31!
DA	TYPE+4!, IF2+2!, DEMO+5!, PCP+3!, CC+2!, C0+2!, C0+6!, BEN+3!, PREG+3!, RAND+3! , RAND+7!, TIME+4!, FLAT+3!, FLAT+16!, BDMG+36!, GUIEP+13, ENDLOG+3, ENDLOG+5!
DD	BDMG+31!
DIADD	BDMG+34*, BDMG+36!
DIC	REGASK+4!, P1+1!, S+2!, S+3!, PCP+6!, CC+5!, C+4!, BDMG+31!, BDMG+34*, BDMG+36!
DIC("A"	REGASK+4, S+2, C+4*
DIC("DR"	BDMG+33*
DIC("S"	S+2*
DIC(0	REGASK+4, P1+1, S+3, PCP+6, CC+5, C+4, BDMG+34*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+13*
DIR	TYPE+4!, IF+2!, IF+4!, IF2+2!, DEMO+5!, PCP+3!, CC+2!, C0+2!, C0+6!, BEN+3! , PREG+3!, RAND+3!, RAND+7!, TIME+4!, FLAT+3!, FLAT+16!
DIR("A"	TYPE+4, IF+4, IF2+2, DEMO+5, PCP+3, CC+2, C0+2, C0+6, BEN+2, PREG+2 , RAND+3, RAND+7, TIME+4, FLAT+3, FLAT+16*
DIR("B"	TYPE+4, IF+4, IF2+2, DEMO+5, PCP+3, CC+2, C0+2, C0+6, BEN+3, PREG+3 , RAND+3, FLAT+16
DIR(0	TYPE+4, IF+3, IF2+2, DEMO+5, PCP+3, CC+2, C0+2, C0+6, BEN+2, PREG+2 , RAND+3, RAND+7, TIME+4, FLAT+3, FLAT+16*
>> DIRUT	TYPE+5, IF+4*, IF+5, IF2+3, DEMO+6, PCP+4, CC+3, C0+3, C0+7, BEN+4 , PREG+4, RAND+4, RAND+9, TIME+5, FLAT+4, FLAT+17
DLAYGO	BDMG+34*, BDMG+36!
DR	ENDLOG+3*, ENDLOG+5!
DT	GUIEP+12
>> DUOUT	IF+4
DUZ	WRITEF+16, BDMG+32, BDMG+33
DUZ(2	FLAT+9, WRITEF+15
>> I	RAND+10, WRITEF+4, WRITEF+5, WRITEF+6, WRITEF+7
IOF	BEGIN+2
IOM	CTR+1, GUIEP+5*
>> N	RAND+10, WRITEF+5, WRITEF+8, WRITEF+9, WRITEF+10, WRITEF+12*
>> O	WRITEF+5*, WRITEF+6
>> P	PCP+9, CC+8, BEN+6, BEN+7, BEN+8, PREG+8, PREG+9, PREG+11, BDMG+20*, BDMG+21 , BDMG+22
>> T	WRITEF+5, WRITEF+7, WRITEF+8
U	S+6, PCP+6, PCP+9, CC+7, CC+8, C1+3, C1+4, C1+6, PREG+9, FLAT+9 , WRITEF+7, WRITEF+8, WRITEF+15, WRITEF+16, BDMG+8
X	REGASK+5, PCP+9, PCP+10, CC+8, CC+9, C1+2, C1+3, C1+4, BEN+6, BEN+7 , BEN+8, PREG+8, PREG+11, RAND+1, RAND+5, RAND+10, CTR~, CTR+1, WRITEF+5, WRITEF+6 , WRITEF+7, WRITEF+12, BDMG+7, BDMG+8, BDMG+20, BDMG+21, BDMG+22, BDMG+32, GUIEP+8*, GUIEP+9 , GUIEP+11
XBE	WRITEF+17*, WRITEF+21!
XBF	WRITEF+17*, WRITEF+21!
XBFLT	WRITEF+17*, WRITEF+21!
XBFN	WRITEF+16*, WRITEF+21!
XBGL	WRITEF+14*, WRITEF+21!
>> XBIOP	BROWSE+2*
XBMED	WRITEF+16*, WRITEF+21!
>> XBNS	DEMO+4, DEMO+9
XBQ	WRITEF+17*, WRITEF+21!
>> XBRC	DEMO+4, DEMO+9, BROWSE+2*
>> XBRP	DEMO+4, DEMO+9, BROWSE+1*
>> XBRX	DEMO+4, DEMO+9, BROWSE+2*
XBTLE	WRITEF+16*, WRITEF+21!
XBUF	WRITEF+15!*
Y	REGASK+6, REGASK+7, TYPE+6, IF+6, IF2+4, DEMO+7, DEMO+8, P1+2, P1+3, P1+4 , S+4, S+5, S+6, PCP+5, PCP+7, PCP+8, CC+4, CC+6, CC+7, C+5 , C+6, C0+4, C0+8, BEN+5, PREG+5, RAND+5, RAND+6, RAND+10, TIME+6, CTR~ , CTR+1, FLAT+5, FLAT+6, FLAT+7, FLAT+18, BDMG+37, BDMG+38
>> ZTDESC	BDMG+42*
>> ZTDTH	BDMG+42*
>> ZTIO	BDMG+42*
>> ZTREQ	GUIEP+16*
>> ZTRTN	BDMG+42*
ZTSAVE	BDMG+41!
ZTSAVE("*"	BDMG+41*

Customize PDF page

Package: Diabetes Registry

Routine: BDMDG1

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: