Routine: BDMDG1E

Information

BDMDG1E ; IHS/CMI/LAB - IHS Diabetes Audit 2019 ;

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
Diabetes Registry	4	(BDMG,FLAT,WRITEF)^BDMDG1 EAUDIT^BDMDG10 TAXCHK^BDMDG19 DEMOCHK^BDMUTL
IHS VA Utilities	4	^XBDBQUE ^XBFMK GUIR^XBLM EN^XBVK
Kernel	2	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
IHS Patient	1	KILL^AUPNPAT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Diabetes Registry	1	BDMGRJ

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+29, ENDLOG+1
^%ZTLOAD	BDMG+43
KILL^AUPNPAT	XIT+2
BDMG^BDMDG1	TEST+3
FLAT^BDMDG1	FLAT+1
WRITEF^BDMDG1	WRITEF+1
EAUDIT^BDMDG10	GUIEP+1
TAXCHK^BDMDG19	BEGIN+1
DEMOCHK^BDMUTL	ZIS+1
^DIC	REGASK+26, COMM+7, P1+1, S+3, PCP+6, CC+5, C+3
FILE^DICN	BDMG+35
^DIE	ENDLOG+4
IX1^DIK	GUIEP+12
^DIR	REGASK+23, ACT+3, PREG+3, IF+4, IF2+2, PCP+3, CC+2, C+8, C+12, RAND+3 , RAND+7, TIME+4
^XBDBQUE	ZIS+4
^XBFMK	COMM+4, XIT+2, BDMG+40
GUIR^XBLM	GUIEP+5
EN^XBVK	XIT+1
$$FMADD^XLFDT	TIME+8, BDMG+23
$$FMTE^XLFDT	TIME+7, TIME+9, BDMG+22, BDMG+24
$$NOW^XLFDT	BDMG+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR("ASSESSMENT OF DIABETES CARE, 2019") Line Location: REGASK+1
Function Call: WRITE	Prompt: !,$$CTR("PCC DIABETES E-AUDIT") Line Location: REGASK+2
Function Call: WRITE	Prompt: !!,"This option is used to run the 2019 Electronic Diabetes Audit for a" Line Location: REGASK+3
Function Call: WRITE	Prompt: !,"predefined set of patients. The patients selected are 'Active Diabetic" Line Location: REGASK+4
Function Call: WRITE	Prompt: !,"Patients' as defined by the Clinical Reporting system (GPRA). In " Line Location: REGASK+5
Function Call: WRITE	Prompt: !,"addition you can optionally only include the patient if they are an" Line Location: REGASK+6
Function Call: WRITE	Prompt: !,"active member of the Diabetes register." Line Location: REGASK+7
Function Call: WRITE	Prompt: !,"The definition used to select patients is the following:" Line Location: REGASK+8
Function Call: WRITE	Prompt: !?3,"1. Must reside in a community specified in the official GPRA " Line Location: REGASK+9
Function Call: WRITE	Prompt: !?6,"community taxonomy." Line Location: REGASK+10
Function Call: WRITE	Prompt: !?3,"2. Must be alive on the audit date." Line Location: REGASK+11
Function Call: WRITE	Prompt: !?3,"3. Indian/Alaska Natives Only - based on Classification of 01." Line Location: REGASK+12
Function Call: WRITE	Prompt: !?3,"4. Must have 2 visits to medical clinics in the 3 years prior to the" Line Location: REGASK+13
Function Call: WRITE	Prompt: !?6,"audit date. At least one visit must include: 01 General," Line Location: REGASK+14
Function Call: WRITE	Prompt: !?6,"06 Diabetic, 10 GYN, 12 Immunization, 13 Internal Med," Line Location: REGASK+15
Function Call: WRITE	Prompt: !?6,"20 Pediatrics, 24 Well Child, 28 Family Practice, 57 EPSDT," Line Location: REGASK+16
Function Call: WRITE	Prompt: !?6,"70 Women's Health, 80 Urgent, 89 Evening." Line Location: REGASK+17
Function Call: WRITE	Prompt: !?3,"5. The patient must have been diagnosed with diabetes at" Line Location: REGASK+18
Function Call: WRITE	Prompt: !?6,"least 1 year prior to the audit date." Line Location: REGASK+19
Function Call: WRITE	Prompt: !?3,"6. The patient must have had at least 2 visits during the" Line Location: REGASK+20
Function Call: WRITE	Prompt: !?6,"year prior to the Audit date, AND 2 DM-related visits ever." Line Location: REGASK+21
Function Call: WRITE	Prompt: ! Line Location: REGASK+22
Function Call: WRITE	Prompt: !! Line Location: REGASK+24
Function Call: WRITE	Prompt: !,"NO Register Selected!!! The CMS register will not be used in retrieving",!,"any data." Line Location: REGASK+27
Function Call: WRITE	Prompt: !!,"Specify the community taxonomy to determine which patients will be",!,"included in the report. You should have created this taxonomy using QMAN.",! Line Location: COMM+1
Function Call: WRITE	Prompt: !!,"There are no communities in that taxonomy." Line Location: COM1+4
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+4
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: !!,"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
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: REGASK+26 COMM+7 P1+1 S+3 PCP+6 CC+5 C+3
Routine Call	DIR Line Location: REGASK+23 ACT+3 PREG+3 IF+4 IF2+2 PCP+3 CC+2 C+8 C+12 RAND+3 RAND+7 TIME+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^ATXAX - [#9002226]	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]	ACT+2, C1+6
^ATXAX - [#9002226]	COMM+6, COM1+1, COM1+2, BDMG+18, BDMG+19
^AUPNPAT - [#9000001]	PCP+9, CC+8
^AUTTCOM - [#9999999.05]	CC+7
^BDMDATA("BDMEPI"	XIT1+1!
^BDMDATA($J	XIT1+1!
^BDMGUI - [#9003201.4]	GUIEP+10, GUIEP+11
^BGPSITE - [#90241.02]	COMM+6
^DD(9000001	PCP+6
^DIBT(	S+5, S+6
^TMP($J	P+1!, S+1!, S+5, PCP+9!, PCP+10, CC+8!, CC+9, C+1!, C1+2!, C1+3 , C1+4*, C1+5, RAND+1, RAND+5, RAND+6!, RAND+10!, RAND+11!, XIT+3!, GUIEP+3!, GUIEP+7 , GUIEP+8
^XTMP("BDMDM19"	P+1!, P1+2, P1+4, S+1!, C+1!, RAND+5, RAND+10, XIT1+2!, TEST+2

Label References

Name	Line Occurrences
$$CTR	REGASK+1, REGASK+2
ACT	PREG+4
C	C+9, C+13, C1+5, RAND+4
C1	C+10
CC	S+9, CC+6, C1+9
COMM	COM1+4, ACT+4
ENDLOG	GUIEP+2, GUIEP+13
FLAT	IF+7
GETDATES	IF+5
GUIEP	BDMG+25
IF	ACT+1, IF2+1, ZIS+1
P1	P1+5
PCP	S+7, PCP+7, C1+7
RAND	S+11, C1+11
TIME	GETDATES+1
XIT	GETDATES+1, ZIS+5, BDMG+44
XIT1	GETDATES+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+30, ENDLOG+2
>> B	COMM+6*
>> BDMACTI	ACT+1, ACT+5, BDMG+13, BDMG+16
BDMADAT	TIME+2, TIME+6, TIME+7, TIME+8, BDMG~, BDMG+4, BDMG+22, BDMG+23
>> BDMBDAT	TIME+8, TIME+9, BDMG+23, BDMG+24
>> BDMBEN	BEN+1, BDMG+14
BDMBTH	REGASK+29, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+2!, BDMG~ , BDMG+3, BDMG+32, TEST+1, TEST+2, TEST+3
BDMCMS	C+2, C+5, 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+7
>> BDMDATA	GUIEP+8*, GUIEP+10
BDMDEMO	ZIS+1, BDMG~, BDMG+8*
BDMDMRG	REGASK+25, REGASK+27, REGASK+28*, ACT+1, ACT+2, BDMG~
BDMDQ	BDMG~, BDMG+9
BDMDSP	BDMG~, BDMG+25, GUIEP+2, GUIEP+6
BDMDUZ2	BDMG~
BDMFILE	BDMG~, BDMG+21
BDMGIEN	BDMG~, BDMG+39*
>> BDMGUI	XIT+1, BDMG+11*
>> BDMIEN	BDMG+2, BDMG+3, BDMG+4, BDMG+6, BDMG+21, BDMG+37, BDMG+38*, BDMG+39, GUIEP+10, GUIEP+11 , GUIEP+12, ENDLOG+3, TEST+3
BDMJOB	REGASK+29, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+2!, BDMG~ , BDMG+2, TEST+1, TEST+2, TEST+3
>> BDMNOW	BDMG+30, BDMG+33, ENDLOG+2, ENDLOG+3
BDMOPT	BDMG+27~, BDMG+28*, BDMG+33
>> BDMPD	S+5*
BDMPDP	PCP+8*, PCP+9, BDMG~
>> BDMPPN	IF2+1, IF2+4
>> BDMPREG	PREG+1, PREG+5
BDMPREP	IF+6*, IF+7, IF2+1, ZIS+2, ZIS+3, BDMG~, BDMG+6, BDMG+21, BDMG+33, GUIEP+2
>> BDMQSRT	BDMG+9*
BDMRAND	BDMG~
>> BDMRBD	TIME+2, TIME+9, BDMG+24*
BDMRCNT	BDMG~
>> BDMRED	TIME+2, TIME+7, BDMG+22*
BDMSDPG	SDPI+1*, BDMG~
BDMSDPI	SDPI+1*, BDMG~
BDMSTAT	C+7, C+14, C1+3, C1+4, C1+6, BDMG~, BDMG+15
BDMSTMP	BDMG~
>> BDMSTP	GETDATES+1, PREG+1, IF+1, IF+7, IF2+1, IF2+3, P+1, P1+2, S+1, S+4 , S+8, S+10, PCP+1, PCP+4, CC+1, CC+3, C+2, C+4, C1+5, C1+8 , C1+10, RAND+9, TIME+1, TIME+5
BDMTAX	COMM+2!, COM1+4
BDMTAX(	COM1+2, BDMG+19
>> BDMTAXI	COMM+3, COMM+9, COM1+1, COM1+2, BDMG+7*, BDMG+18, BDMG+19
BDMTYPE	BDMG~, BDMG+7
>> C	PCP+10, PCP+11, CC+9, CC+10, RAND+5, RAND+10, GUIEP+7, GUIEP+10, GUIEP+11
D0	BDMG+31!
DA	ACT+2!, PREG+3!, IF2+2!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!, RAND+7!, TIME+4! , BDMG+36!, GUIEP+12, ENDLOG+3, ENDLOG+5!
DD	BDMG+31!
DIADD	BDMG+34*, BDMG+36!
DIC	REGASK+26!, COMM+5, COMM+7!, P1+1!, S+2!, S+3!, PCP+6!, CC+5!, C+3, BDMG+31! , BDMG+34, BDMG+36!
DIC("A"	REGASK+26, COMM+5, S+2, C+3
DIC("B"	COMM+6*
DIC("DR"	BDMG+33*
DIC("S"	COMM+5, S+2
DIC(0	REGASK+26, COMM+5, P1+1, S+3, PCP+6, CC+5, C+3, BDMG+34
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+12*
DIR	REGASK+23!, ACT+3!, PREG+3!, IF+2!, IF+4!, IF2+2!, PCP+3!, CC+2!, C+8!, C+12! , RAND+3!, RAND+7!, TIME+4!
DIR("A"	REGASK+23, ACT+2, PREG+2, IF+4, IF2+2, PCP+3, CC+2, C+8, C+12, RAND+3 , RAND+7, TIME+4
DIR("B"	ACT+2, PREG+3, IF+4, IF2+2, PCP+3, CC+2, C+8, C+12, RAND+3*
DIR(0	REGASK+23, ACT+2, PREG+2, IF+3, IF2+2, PCP+3, CC+2, C+8, C+12, RAND+3 , RAND+7, TIME+4
>> DIRUT	ACT+4, PREG+4, IF+4*, IF+5, IF2+3, PCP+4, CC+3, C+9, C+13, RAND+4 , RAND+9, TIME+5
DLAYGO	BDMG+34*, BDMG+36!
DR	ENDLOG+3*, ENDLOG+5!
DT	GUIEP+11, TEST+3
>> DUOUT	IF+4
DUZ	BDMG+32, BDMG+33
DUZ(2	COMM+6
>> I	RAND+10*
IOF	BEGIN+2
IOM	CTR+1, GUIEP+4*
>> N	RAND+10*
>> P	PCP+9, CC+8
U	COMM+6, COM1+2, ACT+2, S+6, PCP+6, PCP+9, CC+7, CC+8, C1+3, C1+4 , C1+6, BDMG+19
X	COM1, COM1+1, COM1+2, PCP+9, PCP+10, CC+8, CC+9, C1+2, C1+3, C1+4 , RAND+1, RAND+5, RAND+10, CTR~, CTR+1, BDMG+1, BDMG+17, BDMG+18, BDMG+19, BDMG+32 , GUIEP+7, GUIEP+8, GUIEP+10, TEST+2
>> XBNS	ZIS+2, ZIS+3
>> XBRC	ZIS+2, ZIS+3
>> XBRP	ZIS+2, ZIS+3
>> XBRX	ZIS+2, ZIS+3
Y	REGASK+27, REGASK+28, COMM+8, COMM+9, ACT+5, PREG+5, IF+6, IF2+4, 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+4, C+5, C+10, C+14, RAND+5, RAND+6, RAND+10, TIME+6, CTR~, CTR+1 , BDMG+37, BDMG+38
>> ZTDESC	BDMG+43*
>> ZTDTH	BDMG+43*
>> ZTIO	BDMG+43*
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+43*
ZTSAVE	BDMG+41!
ZTSAVE("*"	BDMG+41*

Customize PDF page

Package: Diabetes Registry

Routine: BDMDG1E

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: