Routine: BDMRML

Information

BDMRML ; IHS/CMI/LAB - patients w/o dm on problem list ; 28 Nov 2017 1:25 PM

Call Graph

Call Graph Total: 19

Package	Total	Call Graph
VA Fileman	7	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	2	XTMP^BDMOSUT ($$DEMO,DEMOCHK)^BDMUTL
Kernel	2	^%ZTLOAD $$NOW^XLFDT
IHS Patient	1	($$AGE,$$DOD,$$HRN,KILL)^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	$$VD^APCLV

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Diabetes Registry	2	BDMDR6 BDMGRG

Entry Points

Name	Comments	DBIA/ICR reference
WF	;
BDMG(BDMIEN,BDMREG,BDMAGET,BDMSTAT,BDMCOMT,BDMCOMM,BDMSEX,BDMCM,BDMWF,BDMSORT1,BDMSORT2,BDMTEMP,BDMDEMO,BDMSTMP)	;EP - GUI DMS Entry Point
HDR	;
DEMO	;
AGE	;Age Screening
CMMNTS	;
AGER	;Age Screening
GUIEP	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
ZIS	;call to XBDBQUE
PIH
G	;
TEMP	;
RS	;get status
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
A	;
SEX	;
INFORM	;
EN2	;EP
DATE(D)	;
SORT	;
HEAD
R1	;which status
CM	;
M	;
ENDLOG	;-- write the end of the log
BACK	;
START	;
SSORT	;
R	;
W	;
DUP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEAD1	;
GETINFO	;
C	;
S	;
EXIT	;clean up and exit
TEST	;
LASTVD(P)	;
WF1	;which status
PROC	;EP - called from XBDBQUE
P	;
CM1	;which status

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+11, ENDLOG+1
^%ZTLOAD	BDMG+25
PEP^AMQQGTX0	CMMNTS+11
$$VD^APCLV	LASTVD+11, LASTVD+12
$$AGE^AUPNPAT	PROC+10, PROC+11, A+1
$$DOD^AUPNPAT	PROC+8
$$HRN^AUPNPAT	PRINT+14
KILL^AUPNPAT	EXIT+3
XTMP^BDMOSUT	PROC+4
$$DEMO^BDMUTL	PROC+7
DEMOCHK^BDMUTL	DEMO+1
^DIC	R+2, CMMNTS+7, CMMNTS+10, CM1+1, WF1+2, EN2+4
FILE^DICN	BDMG+17
^DIE	ENDLOG+4, DUP+16
^DIK	DUP+7
IX1^DIK	GUIEP+10, DUP+8
$$GET1^DIQ	PROC+13, PRINT+14, PRINT+15, S+1, G+1, M+1, W+1
^DIR	RS+2, R1+1, AGE+4, AGER+2, CMMNTS+2, SEX+2, CM+2, WF+2, SORT+3, SSORT+11 , TEMP+2, DONE+2, HEAD+1, EOP+5, DUP+3
^XBDBQUE	DEMO+5, BROWSE+2
$$VALI^XBDIQ1	PROC+14, PROC+15
^XBFMK	EXIT+2, BDMG+22
GUIR^XBLM	GUIEP+4
EN^XBVK	EXIT+1
$$NOW^XLFDT	BDMG+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No register selected." Line Location: R+3
Function Call: WRITE	Prompt: ! Line Location: AGE+2
Function Call: WRITE	Prompt: ! Line Location: AGER+1
Function Call: WRITE	Prompt: !!,"No age range entered." Line Location: AGER+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20." Line Location: AGER+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CMMNTS+10
Function Call: WRITE	Prompt: !,"* ISN'T ALLOWED, CHOOSE ALL" Line Location: CMMNTS+13
Function Call: WRITE	Prompt: !!,"This list can be sorted by a primary and optionally a secondary sort value.",! Line Location: SORT+2
Function Call: WRITE	Prompt: !,"You can optionally sort by a second sort value. If you do not pick a",!,"secondary sort value it will default to patient name.",! Line Location: SSORT+1
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 MASTER LIST",80) Line Location: INFORM+4
Function Call: WRITE	Prompt: !!,"This report will list all patients on the Diabetes Register.",! Line Location: INFORM+5
Function Call: WRITE	Prompt: "You will be able to select which patients will be included on the list",! Line Location: INFORM+6
Function Call: WRITE	Prompt: "based on any of the following:",! Line Location: INFORM+7
Function Call: WRITE	Prompt: ?5,"- Register Status",! Line Location: INFORM+8
Function Call: WRITE	Prompt: ?5,"- Age",! Line Location: INFORM+9
Function Call: WRITE	Prompt: ?5,"- Community of Residence",! Line Location: INFORM+10
Function Call: WRITE	Prompt: ?5,"- Gender",! Line Location: INFORM+11
Function Call: WRITE	Prompt: ?5,"- Case Manager",! Line Location: INFORM+12
Function Call: WRITE	Prompt: ?5,"- Where Followed",! Line Location: INFORM+13
Function Call: WRITE	Prompt: ! Line Location: INFORM+14
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: !!?5,BDMSOR1T,": ",BDMS1," (Subtotal: ",BDMSORT(BDMS1),")" Line Location: PRINT+8
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("DIABETES REGISTER MASTER LIST",80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR("Total number of patient selected for this report: "_BDMTOT),! Line Location: HEAD1+7
Function Call: WRITE	Prompt: !?48,"LAST",?60,"LAST",?70,"NEXT" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,"HRN",?8,"PATIENT",?30,"CASE MANAGER",?48,"VISIT",?60,"REVIEW",?70,"REVIEW",!,BDM80D,! Line Location: PIH+0
Function Call: WRITE	Prompt: ! Line Location: EN2+3
Function Call: WRITE	Prompt: !!,"No Search Template selected." Line Location: EN2+5
Function Call: WRITE	Prompt: !!,"A brief report will be printed after the search template is complete.",!,"You must enter a device for this report OR you may queue at this time.",! Line Location: BACK+2
Function Call: WRITE	Prompt: !!,?15,"*SEARCH TEMPLATE CREATION*" Line Location: HDR+1
Function Call: WRITE	Prompt: !!,?1,"Template Created: ",$P(^DIBT(BDMSTMP,0),U) Line Location: HDR+2
Function Call: WRITE	Prompt: !,?1,"Created by: ",$P(^VA(200,DUZ,0),U) Line Location: HDR+3
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------",! Line Location: HDR+4
Routine Call	DIE Line Location: ENDLOG+4 DUP+16
Routine Call	DIC Line Location: R+2 CMMNTS+7 CMMNTS+10 CM1+1 WF1+2 EN2+4
Routine Call	DIR Line Location: RS+2 R1+1 AGE+4 AGER+2 CMMNTS+2 SEX+2 CM+2 WF+2 SORT+3 SSORT+11 TEMP+2 DONE+2 HEAD+1 EOP+5 DUP+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	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
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	PROC+5, PROC+6, PROC+9
^AUPNPAT - [#9000001]	PROC+12, C+1
^AUPNVSIT - [#9000010]	LASTVD+5, LASTVD+6, LASTVD+7, LASTVD+8
^AUPNVSIT("AA"	LASTVD+3, LASTVD+4
^AUTTCOM - [#9999999.05]	CMMNTS+9
^BDMGUI - [#9003201.4]	GUIEP+8, GUIEP+9
^DIBT(	PRINT+12, BDMG+5, EN2+7, DUP+6, DUP+7, DUP+8, DUP+9, DUP+11, DUP+13!, HDR+2
^DIC(4 - [#4]	HEAD1+5, LOC+1
^DPT - [#2]	PRINT+14, P+1
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200]	HEAD1+4, USR+1, HDR+3
^XTMP("BDMRML"	PROC+3!, PROC+20*, PRINT+4, PRINT+6, PRINT+9, PRINT+10, PRINT+11, DONE+4!

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, INFORM+4, HEAD1+6, HEAD1+7
$$DATE	PRINT+15, LASTVD+12
$$LASTVD	PRINT+15
$$LOC	INFORM+2
$$USR	INFORM+3
@(	PROC+16, PROC+18
AGE	RS+4, R1+4, R1+5, AGER+3, CMMNTS+3
AGER	AGER+4
BDMG	TEST+1
BROWSE	DEMO+3
CM	CM1+2, CM1+3, WF+3
CM1	CM1+7
CMMNTS	AGE+6, CMMNTS+6, CMMNTS+12, CMMNTS+13, SEX+3
DONE	PRINT+4
EN2	TEMP+7, DUP
ENDLOG	GUIEP+11
EXIT	R+3, DEMO+3, DEMO+6, BDMG+26, GUIEP+13
HDR	DONE+1
HEAD	PRINT+3, PRINT+7, PRINT+13
HEAD1	HEAD
INFORM	START+1
PROC	GUIEP+1
R	RS+3, DEMO+2
R1	R1+7
RS	R1+2, R1+3, AGE+5
SEX	CMMNTS+5, CMMNTS+6, CM+3
SORT	WF+4, WF1+5, WF1+6, SSORT+13, TEMP+3
TEMP	SSORT+12, TEMP+8
WF	CM+4, CM1+4, CM1+5, WF1+3, WF1+4, SORT+4
WF1	WF1+8
ZIS	TEMP+5, TEMP+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+12, ENDLOG+2
>> BDM80D	PRINT+2*, PIH
BDMAGE	AGE+1!
BDMAGET	AGE+1!, AGER+5*, PROC+10, PROC+11, BDMG~, BDMG+4!
BDMBTH	PROC+1*, PROC+3, PROC+20, PRINT+4, PRINT+6, PRINT+9, PRINT+10, PRINT+11, DONE+4!
BDMCM	CM+1!, CM+4!, CM1+1, CM1+2, CM1+3, PROC+14, BDMG~
BDMCM(	CM1+6*, PROC+14
BDMCOMM	CMMNTS+1!, CMMNTS+6, CMMNTS+12, CMMNTS+13!, PROC+12, BDMG~
BDMCOMM(	CMMNTS+9*, PROC+12
BDMCOMM("*"	CMMNTS+13
BDMCOMT	CMMNTS+1, CMMNTS+4, CMMNTS+5, CMMNTS+6, BDMG~
>> BDMDATA	GUIEP+6*, GUIEP+8
BDMDEMO	DEMO+1, DEMO+2, PROC+7, BDMG~
>> BDMDIC	EN2+6*, DUP+14
>> BDMDUZ2	PRINT+14, HEAD1+5
>> BDMERR	CMMNTS+10*
>> BDMGIEN	BDMG+21*
>> BDMGUI	EXIT+1, PRINT+1, HEAD1+2, BDMG+2*
BDMIEN	BDMG~, BDMG+9~, BDMG+19, BDMG+20, BDMG+21, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BDMIOSL	PRINT+1*, PRINT+13
BDMJOB	PROC+1*, PROC+3, PROC+20, PRINT+4, PRINT+6, PRINT+9, PRINT+10, PRINT+11, DONE+4!
>> BDMLDAT	BDMG+3*
>> BDMND	BDMG+1*
BDMNOW	BDMG+9~, BDMG+12, BDMG+14, BDMG+15, ENDLOG+2, ENDLOG+3
BDMOPT	BDMG+9~, BDMG+10*, BDMG+15
>> BDMPG	PRINT+3, HEAD, HEAD1+1, HEAD1+2, HEAD1+4
BDMQ	PRINT+5!, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+13, HEAD+1*
>> BDMQUIT	R+3*
BDMREG	R+1, R+4, PROC+5, BDMG~
>> BDMS1	PROC+17, PROC+20, PROC+21, PRINT+5, PRINT+6*, PRINT+8, PRINT+9, PRINT+10, PRINT+11
>> BDMS2	PROC+19, PROC+20, PRINT+5, PRINT+9*, PRINT+10, PRINT+11
BDMSEX	SEX+1, SEX+4, PROC+13, BDMG~
>> BDMSNAM	BDMG+5, EN2+1, EN2+7*, DUP+8, DUP+12
>> BDMSOR1T	SORT+5, PRINT+8, BDMG+6
>> BDMSOR2T	SSORT+12, SSORT+14, BDMG+7*
BDMSORT	PROC+2!
BDMSORT(	PROC+21*, PRINT+8
BDMSORT1	SORT+1, SORT+5, SSORT+4, SSORT+5, SSORT+6, SSORT+7, SSORT+8, SSORT+9, SSORT+10, PROC+16 , PROC+21, PRINT+8, BDMG~, BDMG+6
BDMSORT2	SORT+1, SSORT+2, SSORT+12, SSORT+14, PROC+18, BDMG~, BDMG+7, BDMG+8*
BDMSTAT	GETINFO+1!, RS+1!, RS+4!, R1+1, R1+2, R1+3, PROC+9, BDMG~
BDMSTAT(	R1+6*, PROC+9
BDMSTMP	TEMP+8, PRINT+12, BDMG~, BDMG+5, EN2+1, EN2+7, DUP!, DUP+6, DUP+7, DUP+8 , DUP+9, DUP+11, DUP+13, DUP+14, DUP+15, HDR+2
>> BDMSTN	DUP+7*
BDMTEMP	TEMP+1, TEMP+4, TEMP+5, TEMP+6, DEMO+3, PRINT+8, PRINT+12, DONE+1, BDMG~
>> BDMTOT	PROC+1, PROC+22, HEAD1+7
BDMWF	WF+1!, WF+4!, WF1+2, WF1+3, WF1+4, PROC+15, BDMG~
BDMWF(	WF1+7*, PROC+15
>> BDMX	PROC+5, PROC+6, PROC+9, PROC+14, PROC+15, PROC+20, PRINT+10, PRINT+11, PRINT+14, PRINT+15 , S+1, M+1, W+1
>> C	GUIEP+5, GUIEP+8, GUIEP+9
D	DATE~, DATE+1, DATE+2, LASTVD+1~, LASTVD+3, LASTVD+4, LASTVD+11
DA	RS+2!, R1+1!, CMMNTS+2!, CMMNTS+10!, SEX+2!, CM+2!, WF+2!, SORT+3!, SSORT+11!, TEMP+2! , BDMG+18!, GUIEP+10, ENDLOG+3, ENDLOG+5!, DUP+3!, DUP+7, DUP+8, DUP+15*, DUP+17!
DD	BDMG+13!
>> DFN	PROC+6, PROC+7, PROC+8, PROC+10, PROC+11, PROC+12, PROC+13, PROC+20, PRINT+11, PRINT+12 , PRINT+14, PRINT+15, P+1, A+1, C+1, G+1
DFOUT	EOP+4!
>> DHD	BACK+1*
>> DHIT	DUP+14*
DIADD	BDMG+16*, BDMG+18!
DIC	R+2, CMMNTS+7!, CMMNTS+10!, CM1+1!, WF1+2!, BDMG+13!, BDMG+16, BDMG+18!, EN2+2*, EN2+6
DIC("A"	R+2, CMMNTS+7, CM1+1, WF1+2, EN2+2*
DIC("DR"	BDMG+15*
DIC("S"	CMMNTS+10, EN2+2
DIC(0	R+2, CMMNTS+7, CMMNTS+10, CM1+1, WF1+2, BDMG+16, EN2+2*
DIE	ENDLOG+3, ENDLOG+5!, DUP+15, DUP+17!
>> DIK	GUIEP+10, DUP+7, DUP+8*
DIR	RS+2!, R1+1!, AGE+4!, CMMNTS+2!, SEX+2!, CM+2!, WF+2!, SORT+3!, SSORT+3!, SSORT+11! , TEMP+2!, DONE+2!, HEAD+1!, EOP+3~, DUP+3!
DIR("?"	AGE+3*
DIR("A"	RS+2, R1+1, AGE+2, AGER+2, CMMNTS+2, SEX+2, CM+2, WF+2, SORT+3, SSORT+11 , TEMP+2, DONE+2, DUP+3*
DIR("B"	RS+2, R1+1, AGE+2, CMMNTS+2, SEX+2, CM+2, WF+2, TEMP+2, DUP+3*
DIR(0	RS+2, R1+1, AGE+2, AGER+2, CMMNTS+2, SEX+2, CM+2, WF+2, SORT+3, SSORT+4 , SSORT+5, SSORT+6, SSORT+7, SSORT+8, SSORT+9, SSORT+10, TEMP+2, DONE+2, HEAD+1, EOP+5 , DUP+3*
DIRUT	RS+3, R1+3, R1+4, AGE+5, CMMNTS+3, SEX+3, CM+3, CM1+3, CM1+4, WF+3 , WF1+4, WF1+5, SORT+4, SSORT+13, TEMP+3, DONE+2*, EOP+4!, DUP+4
DLAYGO	BDMG+16*, BDMG+18!
DLOUT	EOP+4!
DO	BDMG+13!
DR	ENDLOG+3, ENDLOG+5!, DUP+15, DUP+17!
DT	A+1, GUIEP+9, DUP+15
DTOUT	HEAD+1, EOP+4!
DUOUT	DONE+2, EOP+4!
DUZ	HEAD1+4, USR+1, BDMG+14, BDMG+15, DUP+15, HDR+3
DUZ(2	PRINT+14, HEAD1+5, LOC+1
>> FLDS	BACK+1*
IO	DONE+2, HEAD+1
IO("S"	EOP+2
IO(0	DONE+2, HEAD+1
IOF	INFORM+1, DONE+3, HEAD1+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+1, PRINT+7
IOST	DONE+2, HEAD+1, EOP+1
>> IOT	EOP+2
P	LASTVD~, LASTVD+3, LASTVD+4
>> Q	DUP, DUP+1, DUP+4, DUP+5*
U	CMMNTS+9, PROC+6, PROC+9, PROC+12, PRINT+14, LASTVD+6, LASTVD+7, LASTVD+8, HEAD1+4, HEAD1+5 , USR+1, LOC+1, P+1, C+1, BDMG+5, EN2+7, DUP, DUP+7, HDR+2, HDR+3
V	LASTVD+1~, LASTVD+2, LASTVD+3, LASTVD+4, LASTVD+9, LASTVD+10, LASTVD+11, LASTVD+12
X	CMMNTS+10, SSORT+12, PROC+9, PROC+12, PROC+13, PROC+14, PROC+15, PROC+17, PROC+19, LASTVD+1~ , LASTVD+4, LASTVD+5, LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+9, CTR~, CTR+1, P+1, S+1* , S+2, A+1, C+1, C+2, G+1, G+2, M+1, M+2, W+1, W+2 , BDMG+14, GUIEP+5, GUIEP+6, GUIEP+8
>> 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, RS+4, R1+2, R1+5, R1+6, AGE+6, AGER+3, AGER+4, AGER+5 , CMMNTS+4, CMMNTS+8, CMMNTS+9, CMMNTS+10, CMMNTS+11, SEX+4, CM+4, CM1+2, CM1+5, CM1+6 , WF+4, WF1+3, WF1+6, WF1+7, SORT+5, SSORT+14, TEMP+4, LASTVD+1~, HEAD+1, CTR~ , CTR+1, BDMG+19, BDMG+20, EN2+5, EN2+7, DUP!, DUP+5
Y(0	SORT+5, SSORT+14
Z	LASTVD+1~
>> ZTDESC	BDMG+25*
>> ZTDTH	BDMG+25*
>> ZTIO	BDMG+25*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+25*
ZTSAVE	BDMG+23!
ZTSAVE("*"	BDMG+23*

Customize PDF page

Package: Diabetes Registry

Routine: BDMRML

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: