Routine: BDMDR5

Information

BDMDR5 ; IHS/CMI/LAB - patients w/o dm on problem list ;

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
VA Fileman	7	(C,NOW)^%DTC ^DIC FILE^DICN ^DIE IX1^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	4	^XBDBQUE ^XBFMK GUIR^XBLM EN^XBVK
Diabetes Registry	3	XTMP^BDMOSUT $$DATE^BDMS9B1 ($$DEMO,$$LBLK,DEMOCHK)^BDMUTL
Kernel	2	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Patient Care Component Reports	2	ALLV^APCLAPIU $$START1^APCLDF
IHS Patient	1	($$HRN,KILL)^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
STAT	;get status
DEMO	;
GUIEP	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
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.
NUMDXS(P)	;
RSTAT(REG,PAT)	;
INFORM	;
CM(REG,PAT)	;
HEAD
ZIS	;
ED	;
LASTV(P)	;
ENDLOG	;-- write the end of the log
START	;
CLINIC	;
R	;
HEAD1	;
GETDATES	;
EXIT	;clean up and exit
LASTDMDX(P)	;
BDMG(BDMTR,BDMREG,BDMSTAT,BDMND,BDMLDAT)	;EP - GUI DMS Entry Point
TEST	;
PROC	;EP - called from XBDBQUE

External References

Name	Field # of Occurrence
C^%DTC	ED+5
NOW^%DTC	BDMG+6, ENDLOG+1
^%ZTLOAD	BDMG+20
PEP^AMQQGTX0	CLINIC+5
ALLV^APCLAPIU	PROC+11
$$START1^APCLDF	NUMDXS+4, LASTDMDX+4
$$HRN^AUPNPAT	PRINT+9
KILL^AUPNPAT	EXIT+3
XTMP^BDMOSUT	PROC+3
$$DATE^BDMS9B1	PRINT+12, PRINT+14
$$DEMO^BDMUTL	PROC+7
$$LBLK^BDMUTL	PRINT+13
DEMOCHK^BDMUTL	DEMO+1
^DIC	R+2, CLINIC+4
FILE^DICN	BDMG+12
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10
$$GET1^DIQ	PROC+15, PROC+19, LASTV+11, CM+4, RSTAT+4
^DIR	STAT+4, BD+1, ED+1, ZIS+2, DONE+1, HEAD+1, EOP+5
^XBDBQUE	DEMO+5, BROWSE+2
^XBFMK	EXIT+2, BDMG+17
GUIR^XBLM	GUIEP+4
EN^XBVK	EXIT+1
$$FMTE^XLFDT	HEAD1+7
$$NOW^XLFDT	BDMG+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No register selected." Line Location: R+3
Function Call: WRITE	Prompt: !!,"Select the Patient Status for this report" Line Location: STAT+1
Function Call: WRITE	Prompt: !!,"Enter the list of clinics that you have determined to be primary care clinics." Line Location: CLINIC+1
Function Call: WRITE	Prompt: !,"You can enter them 1 at a time or enter a taxonomy using the '[' notation." Line Location: CLINIC+2
Function Call: WRITE	Prompt: !,"NO CLINICS SELECTED" Line Location: CLINIC+6
Function Call: WRITE	Prompt: !,"ALL (ANY) CLINIC WILL BE INCLUDED" Line Location: CLINIC+7
Function Call: WRITE	Prompt: !!!,"Enter the time frame to look for visits.",! 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 on the diabetes register who have not",! Line Location: INFORM+4
Function Call: WRITE	Prompt: "had a visit to a set of primary care clinics in a date range defined by the ",!,"user.",! Line Location: INFORM+5
Function Call: WRITE	Prompt: "The report provides a way to identify patients who could possibly be inactivated",! Line Location: INFORM+6
Function Call: WRITE	Prompt: "in the register.",!! Line Location: INFORM+7
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
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 on the "_$P(^ACM(41.1,BDMREG,0),U)_" Register",80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR("without a visit between "_$$FMTE^XLFDT(BDMBD)_" and "_$$FMTE^XLFDT(BDMED),80),! Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?29,"STATUS",?38,"CASE ",?49,"LAST VISIT",?61,"# DM",?68,"LAST DM DX",!,?38,"MANAGER",?61,"DXS",!,BDM80D Line Location: PIH+0
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: R+2 CLINIC+4
Routine Call	DIR Line Location: STAT+4 BD+1 ED+1 ZIS+2 DONE+1 HEAD+1 EOP+5

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
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	PROC+4, PROC+5, PROC+6, PROC+8, CM+2, RSTAT+2
^ACM(41.1 - [#9002241.1]	HEAD1+6
^AUPNVSIT - [#9000010]	LASTV+5, LASTV+6, LASTV+7, LASTV+8
^AUPNVSIT("AA"	LASTV+3, LASTV+4
^BDMGUI - [#9003201.4]	GUIEP+8, GUIEP+9
^DD(9002241	STAT+4
^DIC(4 - [#4]	HEAD1+5, LOC+1
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200]	HEAD1+4, USR+1
^XTMP("BDMDR5"	PROC+2!, PROC+19*, PRINT+4, PRINT+6, PRINT+7, DONE+3!

Label References

Name	Line Occurrences
$$CM	PRINT+10
$$CTR	INFORM+2, INFORM+3, HEAD1+6, HEAD1+7
$$LASTDMDX	PRINT+14
$$LASTV	PRINT+11
$$LOC	INFORM+2
$$NUMDXS	PRINT+13
$$RSTAT	PRINT+9
$$USR	INFORM+3
BDMG	TEST+1
BROWSE	DEMO+3
CLINIC	STAT+6, BD+2
DONE	PRINT+4
ED	ED+3
ENDLOG	GUIEP+11
EXIT	START+2, R+3, DEMO+2, DEMO+3, DEMO+6, BDMG+21, GUIEP+13
GETDATES	ED+2, ZIS+3
HEAD	PRINT+3, PRINT+8
HEAD1	HEAD
INFORM	START+1
PROC	GUIEP+1
R	STAT+5
STAT	CLINIC+6

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
BDM	NUMDXS+2~, LASTDMDX+2~
BDM(	NUMDXS+6
BDM(1	LASTDMDX+5
>> BDM80D	PRINT+2*, PIH
>> BDMBD	BD+3*, ED+3, ED+5, PROC+11, HEAD1+7
BDMBTH	PROC+1*, PROC+2, PROC+19, PRINT+4, PRINT+6, PRINT+7, DONE+3!
>> BDMC	PROC+15*, PROC+16, PROC+17
BDMCLIN	CLINIC+3!, CLINIC+6!, CLINIC+7!, PROC+17
BDMCLIN(	PROC+17
BDMCLIN("*"	CLINIC+7
>> BDMDATA	GUIEP+6*, GUIEP+8
>> BDMDEMO	DEMO+1, DEMO+2, PROC+7
>> BDMDUZ2	PRINT+9, HEAD1+5
>> BDMED	ED+4*, PROC+11, HEAD1+7
>> BDMG	PROC+12, PROC+13, PROC+18, PROC+19
>> BDMGIEN	BDMG+16*
>> BDMGUI	EXIT+1, PRINT+1, HEAD1+2, BDMG+2*
BDMIEN	BDMG+4~, BDMG+14, BDMG+15, BDMG+16, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BDMIOSL	PRINT+1*, PRINT+8
BDMJOB	PROC+1*, PROC+2, PROC+19, PRINT+4, PRINT+6, PRINT+7, DONE+3!
BDMLDAT	BDMG~, BDMG+3*
>> BDMNAME	PRINT+5, PRINT+6, PRINT+7, PRINT+9
BDMND	BDMG~, BDMG+1*
BDMNOW	BDMG+4~, BDMG+7, BDMG+9, BDMG+10, ENDLOG+2, ENDLOG+3
BDMOPT	BDMG+4~, BDMG+5*, BDMG+10
>> BDMP	PROC+4*, PROC+5, PROC+6, PROC+8
>> BDMPAT	PROC+6*, PROC+7, PROC+11, PROC+19
>> BDMPG	PRINT+3, HEAD, HEAD1+1, HEAD1+2, HEAD1+4
BDMQ	PRINT+5!, PRINT+6, PRINT+7, PRINT+8, HEAD+1*
BDMREG	R+1, R+4, PROC+4, PRINT+9, PRINT+10, HEAD1+6, BDMG~
>> BDMSD	ED+5*
BDMSTAT	STAT+2, STAT+6, STAT+7*, PROC+8, BDMG~
>> BDMTEMP	ZIS+1, ZIS+4, DEMO+3
BDMTR	BDMG~
BDMV	PROC+10!
BDMV(	PROC+13, PROC+14
>> BDMVST	PROC+14*, PROC+15
>> BDMX	PROC+12, PROC+13, PROC+14, PRINT+7*
>> C	GUIEP+5, GUIEP+8, GUIEP+9
D	LASTV+1~, LASTV+3*, LASTV+4
DA	STAT+4!, CLINIC+4!, ZIS+2!, BDMG+13!, GUIEP+10, ENDLOG+3, ENDLOG+5!
DD	BDMG+8!
>> DFN	PRINT+7*, PRINT+9, PRINT+10, PRINT+11, PRINT+13, PRINT+14
DFOUT	EOP+4!
DIADD	BDMG+11*, BDMG+13!
DIC	R+2, CLINIC+4!, BDMG+8!, BDMG+11*, BDMG+13!
DIC("A"	R+2*
DIC("DR"	BDMG+10*
DIC("S"	CLINIC+4*
DIC(0	R+2, CLINIC+4, BDMG+11*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10*
DIR	STAT+3!, STAT+4!, BD+1!, ED+1!, ZIS+2!, DONE+1!, HEAD+1!, EOP+3~
DIR("?"	BD+1*
DIR("A"	STAT+4, BD+1, ED+1, ZIS+2, DONE+1*
DIR("B"	STAT+4, ZIS+2
DIR(0	STAT+4, BD+1, ED+1, ZIS+2, DONE+1, HEAD+1, EOP+5*
DIRUT	STAT+5, BD+1, BD+2, ED+1, ED+2, ZIS+3, DONE+1*, EOP+4!
DLAYGO	BDMG+11*, BDMG+13!
DLOUT	EOP+4!
DO	BDMG+8!
DR	ENDLOG+3*, ENDLOG+5!
DT	GUIEP+9
DTOUT	HEAD+1, EOP+4!
DUOUT	BD+1, ED+1, DONE+1, EOP+4!
DUZ	HEAD1+4, USR+1, BDMG+9, BDMG+10
DUZ(2	PRINT+9, HEAD1+5, LOC+1
E	NUMDXS+2~, NUMDXS+4, LASTDMDX+2~, LASTDMDX+4
IO	DONE+1, HEAD+1
IO("S"	EOP+2
IO(0	DONE+1, HEAD+1
IOF	INFORM+1, DONE+2, HEAD1+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+1
IOST	DONE+1, HEAD+1, EOP+1
>> IOT	EOP+2
P	NUMDXS~, NUMDXS+1, NUMDXS+4, LASTV~, LASTV+3, LASTV+4, LASTDMDX~, LASTDMDX+1, LASTDMDX+4
PAT	CM~, CM+2, RSTAT~, RSTAT+2
REG	CM~, CM+2, RSTAT~, RSTAT+2
U	STAT+4, PROC+6, PROC+8, PROC+14, PRINT+12, HEAD1+4, HEAD1+5, HEAD1+6, LASTV+6, LASTV+7 , LASTV+8, LASTV+11, LASTDMDX+5, USR+1, LOC+1
V	PRINT+11, PRINT+12, LASTV+1~, LASTV+2, LASTV+3, LASTV+4, LASTV+9*, LASTV+10, LASTV+11
X	CLINIC+4, ED+5, NUMDXS+2~, NUMDXS+4, NUMDXS+5, NUMDXS+6, LASTV+1~, LASTV+4, LASTV+5, LASTV+6 , LASTV+7, LASTV+8, LASTV+9, LASTDMDX+2~, LASTDMDX+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
>> 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, STAT+6, STAT+7, CLINIC+5, BD+3, ED+3, ED+4, ZIS+4, HEAD+1 , NUMDXS+2~, NUMDXS+3, NUMDXS+4, NUMDXS+5, NUMDXS+6, NUMDXS+7, LASTV+1~, LASTDMDX+2~, LASTDMDX+3, LASTDMDX+4 , CTR~, CTR+1, BDMG+14, BDMG+15
Z	LASTV+1~
>> ZTDESC	BDMG+20*
>> ZTDTH	BDMG+20*
>> ZTIO	BDMG+20*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+20*
ZTSAVE	BDMG+18!
ZTSAVE("*"	BDMG+18*

Customize PDF page

Package: Diabetes Registry

Routine: BDMDR5

Information

Source Information

Call Graph

Call Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: