Routine: BDMVRL6

Package	Total	Call Graph
Case Management System	7	CONTROL^ACMCTRL (CURRENT,QONE)^ACMED ^ACMGTP ^ACMQK ^ACMRL INFORM^ACMRL01 ENTRY^ACMSRT
Diabetes Registry	7	^BDMDATE (DIC,DIR)^BDMFDIC PAUSE^BDMFMENU REG^BDMFUTIL ^BDMFZIS VALM^BDMVRL PAT^BDMVRL4
VA Fileman	4	NOW^%DTC FILE^DICN ^DIE IX1^DIK
IHS VA Utilities	3	^XBFMK GUIR^XBLM EN^XBVK
Kernel	2	^%ZTLOAD $$NOW^XLFDT
IHS Patient	1	KILL^AUPNPAT

Package

Total

Call Graph

Case Management System

CONTROL^ACMCTRL (CURRENT,QONE)^ACMED ^ACMGTP ^ACMQK ^ACMRL INFORM^ACMRL01 ENTRY^ACMSRT

Diabetes Registry

^BDMDATE (DIC,DIR)^BDMFDIC PAUSE^BDMFMENU REG^BDMFUTIL ^BDMFZIS VALM^BDMVRL PAT^BDMVRL4

VA Fileman

NOW^%DTC FILE^DICN ^DIE IX1^DIK

IHS VA Utilities

^XBFMK GUIR^XBLM EN^XBVK

Kernel

^%ZTLOAD $$NOW^XLFDT

IHS Patient

KILL^AUPNPAT

Package	Total	Caller Graph
Diabetes Registry	2	BDMGR BDMVRL42

Package

Total

Caller Graph

Diabetes Registry

BDMGR BDMVRL42

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;SORT REPORTS
REPORTS	;EP;TO SELECT REPORTS
GUIEP	;EP - called from taskman
APRINT	;EP;TO PRINT APPOINTMENT LIST
ACTIVE	;EP;TO SELECT PATIENT STATUS FOR REPORTS
DIAG	;SELECT DIAGNOSIS
ZIS	;DEVICE INTERFACE
APPT	;EP;TO PRINT LIST OF DM PATIENT'S APPOINTMENTS
A1	;
C1	;
APPHEAD	;PRINT APPOINTMENT LIST HEADER
R4	;STATISTICAL REPORTS
BDMGA(BDMRET,BDMBEGIN,BDNEND,BDMRDA,BDMGUI)	;PEP - gui call
R1	;INDIVIDUAL HEALTH SUMMARY
R2	;MULTIPLE HEALTH SUMMARY
R3	;MASTER LIST
COMP	;SELECT COMPLICATION
ENDLOG	;-- write the end of the log
APP1
APPINIT	;DISPLAY APPOINTMENTS
PSR	;EP;TO PRINT PATIENT AND STATISTICAL REPORTS
Z(X)	;SET TMP GLOBAL
COMM	;SELECT COMMUNITY
APP(DFN,BDMBEGIN,BDMEND)	;EP;TO LIST UPCOMING APPOINTMENTS
ICS	;EP;TO PRINT INDIVIDUAL CASE SUMMARY
APPEXIT
GENRET	;EP;TO ACCESS GENERAL RETRIEVAL (LISTER)
ML	;EP;TO PRINT MASTER LIST
PROVIDER	;EP;SELECT PROVIDER
SORT1	;EP;TO SORT DIAGNOSIS AND COMPLICATION REPORTS
XIT	;-- remove variables and quit
MCS	;EP;TO PRINT MULTIPLE CASE SUMMARY
D1	;

External References

Name	Field # of Occurrence
NOW^%DTC	BDMGA+9, ENDLOG+1
^%ZTLOAD	BDMGA+23
CONTROL^ACMCTRL	GENRET+7
CURRENT^ACMED	PSR+7
QONE^ACMED	ICS+7
^ACMGTP	MCS+3, ICS+5, ML+5, PSR+6, GENRET+12
^ACMQK	PSR+13
^ACMRL	GENRET+14
INFORM^ACMRL01	GENRET+9
ENTRY^ACMSRT	MCS+5, ML+7
KILL^AUPNPAT	XIT+2
^BDMDATE	APP1+2
DIC^BDMFDIC	COMM+5, PROVIDER+5, COMP+6, DIAG+6
DIR^BDMFDIC	ACTIVE+6, REPORTS+4, SORT1+5, A1+6, C1+6, D1+6
PAUSE^BDMFMENU	APRINT+12
REG^BDMFUTIL	ICS+1, ML+1, PSR+1, GENRET+2, APPT+1, APRINT+1
^BDMFZIS	ZIS+3
VALM^BDMVRL	APRINT+7
PAT^BDMVRL4	APPINIT+9
FILE^DICN	BDMGA+15
^DIE	ENDLOG+4
IX1^DIK	GUIEP+13
^XBFMK	BDMGA+20, XIT+2
GUIR^XBLM	GUIEP+4
EN^XBVK	PSR+15, XIT+1
$$NOW^XLFDT	BDMGA+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select the Patient Status for this report" Line Location: ACTIVE+2
Function Call: WRITE	Prompt: ! Line Location: REPORTS+3
Function Call: WRITE	Prompt: !,"Sort the ",$G(BDM("REPORT"))," Report by" Line Location: SORT1+1
Function Call: WRITE	Prompt: !,"Press ENTER to include all communities)" Line Location: COMM+4
Function Call: WRITE	Prompt: !,"Press ENTER to include all PROVIDERS)" Line Location: PROVIDER+4
Function Call: WRITE	Prompt: ! Line Location: C1+5
Function Call: WRITE	Prompt: ! Line Location: D1+5
Function Call: WRITE	Prompt: ! Line Location: COMP+5
Function Call: WRITE	Prompt: ! Line Location: DIAG+5
Function Call: WRITE	Prompt: @IOF Line Location: GENRET+1
Function Call: WRITE	Prompt: !,X Line Location: Z+1
Function Call: WRITE	Prompt: !,X Line Location: APRINT+11
Function Call: WRITE	Prompt: @IOF Line Location: APRINT+12
Routine Call	DIE Line Location: ENDLOG+4

FileNo	Call Tags
^ACM(42.1 - [#9002242.1]	Classic Fileman Calls
^ACM(44.1 - [#9002244.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]	APPINIT+6, APPINIT+7
^ACM(41.1 - [#9002241.1]	APP1
^BDMGUI - [#9003201.4]	GUIEP+10, GUIEP+12
^DD("DD"	APP+12, APPHEAD+6, APPHEAD+11, APPHEAD+16
^DD(9000001	PROVIDER+1
^DPT - [#2]	APPINIT+8, APPINIT+10, APP+5, APP+6, APP+9
^SC - [#44]	APP+10
^TMP("BDMTMP"	APPINIT+1!, APPINIT+13, APPINIT+15, APPINIT+16, APP+16*
^TMP("BDMVR"	APPEXIT+1!, APPINIT+1!, Z+3*, APRINT+9, APRINT+10
^TMP($J	GUIEP+2!, GUIEP+6, GUIEP+8, XIT+3!

Label References

Name	Line Occurrences
A1	DIAG+15
APP	APPINIT+11
APP1	APPT+3
APPHEAD	APPINIT+3, APRINT+12
APPINIT	APRINT+3
C1	DIAG+15
COMP	C1+9, D1+9
ENDLOG	GUIEP+14
R1	REPORTS+6
R2	REPORTS+7
R3	REPORTS+8
R4	REPORTS+9
SORT1	DIAG+15
XIT	BDMGA+24
Z	APPINIT+17, APP+23, APPHEAD+4, APPHEAD+9, APPHEAD+14, APPHEAD+19, APPHEAD+21, APPHEAD+25, APPHEAD+29
ZIS	APP1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMGA+10, ENDLOG+2
ACMCRTLS	GENRET+15!
ACMCTRL	GENRET+8, GENRET+15!
ACMCTRLP	PSR+11, GENRET+8, GENRET+15!
>> ACMCTRLS	PSR+12*
>> ACMDM	MCS+3, ICS+5, ML+5, PSR+2, PSR+6, GENRET+6, GENRET+12
>> ACMENTRY	MCS+4, ML+6
ACMEP	MCS+1!, MCS+2, ICS+3!, ICS+4, ML+3!, ML+4, PSR+4!, GENRET+10!, GENRET+11, GENRET+15!
ACMES	MCS+1!, ICS+3!, ML+3!, PSR+4!, GENRET+10!
ACMPP	MCS+2, ICS+4, ICS+6, ML+4, PSR+5, PSR+8, PSR+14!, GENRET+11*, GENRET+13!, GENRET+15!
ACMPS	MCS+1!, ICS+3!, ML+3!, PSR+4!, GENRET+10!
>> ACMRG	PSR+9, GENRET+4
>> ACMRGNA	PSR+10, GENRET+5
ACMRGTP	MCS+2, ICS+4, ML+4, PSR+5, GENRET+11*, GENRET+15!
BDM	APPEXIT!
BDM("ACTIVE"	A1+8*
BDM("COMMUNITY"	COMM+7, COMM+8
BDM("COMPLICATION"	C1+8, COMP+9, COMP+13*
BDM("DIAGNOSIS"	D1+8, DIAG+9, DIAG+13*
BDM("ORDER"	SORT1+7*
BDM("PROVIDER"	PROVIDER+7, PROVIDER+8
BDM("REPORT"	SORT1+1
BDM("STATUS"	ACTIVE+7*
BDMBEGIN	APPINIT+11, APP~, APP+1, APP+3, APPHEAD+10, BDMGA~
BDMBROWS	APP1+4*, APP1+6!
BDMEND	APPINIT+11, APP~, APP+1, APP+5, APPHEAD+15
>> BDMFUAPP	APP+18
BDMGDATA	GUIEP+7~, GUIEP+8*, GUIEP+10
BDMGUI	BDMGA~
>> BDMH	BDMGA+2*, BDMGA+5, BDMGA+12
>> BDMHDR	APRINT+5*
>> BDMIEN	BDMGA+18*, BDMGA+19, GUIEP+10, GUIEP+12, GUIEP+13, ENDLOG+3
>> BDMJ	APPINIT+2, APP+15, APP+16, BDMGA+1*, BDMGA+4
>> BDMNOW	BDMGA+10, BDMGA+13, ENDLOG+2, ENDLOG+3
BDMOPT	BDMGA+7~, BDMGA+8*, BDMGA+13
BDMOUT	COMM+6, PROVIDER+6, COMP+7, DIAG+7, APPEXIT!
>> BDMPRINT	APRINT+4
BDMQUIT	ACTIVE+1!, ACTIVE+8, REPORTS+5, SORT1+6, COMM+6, PROVIDER+6, A1+7, C1+7, D1+7, COMP+7* , DIAG+7*, ICS+2, ML+2, PSR+3, GENRET+3, APPT+2, APPEXIT!, APP1+3, APRINT+2, APRINT+9 , APRINT+12
BDMRDA	PSR+9, GENRET+4, APP1*, APP1+1, APPINIT+6, BDMGA~
>> BDMREGNM	PSR+10, GENRET+5, APP1
BDMRET	BDMGA~, BDMGA+4, BDMGA+5, BDMGA+17, BDMGA+19
>> BDMRPDA	APPINIT+5, APPINIT+6, APPINIT+7, APPINIT+9
>> BDMRTN	ZIS+2*
>> BDMVALM	APRINT+6*, APRINT+7
BDNEND	BDMGA~
>> C	GUIEP+6, GUIEP+11, GUIEP+12
D0	BDMGA+11!
DA	BDMGA+16!, GUIEP+13, ENDLOG+3, ENDLOG+5!
>> DATE	APP+11*
DD	BDMGA+11!
DFN	APPINIT+4~, APPINIT+7*, APPINIT+8, APPINIT+9, APPINIT+10, APPINIT+11, APP~, APP+1, APP+5, APP+6 , APP+9
DIADD	BDMGA+14*, BDMGA+16!
DIC	COMM+1, PROVIDER+1, COMP+1, DIAG+1, BDMGA+11!, BDMGA+14*, BDMGA+16!
DIC("A"	COMM+3, PROVIDER+3, COMP+3, DIAG+3
DIC("DR"	BDMGA+13*
DIC("S"	COMP+4, DIAG+4
DIC(0	COMM+2, PROVIDER+2, COMP+2, DIAG+2, BDMGA+14*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+13*
>> DIR("A"	ACTIVE+4, REPORTS+2, SORT1+3, A1+2, A1+3, A1+4, C1+2, C1+3, D1+2, D1+3
>> DIR("B"	ACTIVE+5, SORT1+4, A1+5, C1+4, D1+4*
>> DIR(0	ACTIVE+3, REPORTS+1, SORT1+2, A1+1, C1+1, D1+1
DLAYGO	BDMGA+14*, BDMGA+16!
DR	ENDLOG+3*, ENDLOG+5!
DT	APPHEAD+5, GUIEP+12
DUZ	BDMGA+12, BDMGA+13
IO	Z+1, APRINT+4, APRINT+11
IO(0	Z+1, APRINT+4
IOF	GENRET+1, APRINT+12
IOM	GUIEP+3*
IOSL	APRINT+12
>> J	APRINT+8, APRINT+9, APRINT+10, APRINT+12*
PAT	APPINIT+4~, APP+2~, APP+9*, APP+16
U	APPINIT+7, APP+9, APP+10
>> VALMCNT	APPINIT+2, Z+2, Z+3
X	COMM+7, PROVIDER+7, COMP+8, DIAG+8, APPINIT+4~, APPINIT+16, APPINIT+17, APP+2~, APP+4, APP+8* , APP+9, APP+10, APP+13, APP+14, APP+16, APP+19, APP+20, APP+21, APP+22, APP+23 , APPHEAD+1~, APPHEAD+2, APPHEAD+3, APPHEAD+4, APPHEAD+7, APPHEAD+8, APPHEAD+9, APPHEAD+12, APPHEAD+13, APPHEAD+14 , APPHEAD+17, APPHEAD+18, APPHEAD+19, APPHEAD+20, APPHEAD+21, APPHEAD+22, APPHEAD+23, APPHEAD+24, APPHEAD+25, APPHEAD+26 , APPHEAD+27, APPHEAD+28, APPHEAD+29, Z~, Z+1, Z+3, APRINT+10, APRINT+11, BDMGA+3, BDMGA+12* , GUIEP+6*, GUIEP+8, GUIEP+10
Y	ACTIVE+7, REPORTS+5, REPORTS+6, REPORTS+7, REPORTS+8, REPORTS+9, SORT1+6, SORT1+7, COMM+8, PROVIDER+8 , A1+7, A1+8, C1+7, C1+8, D1+7, D1+8, COMP+13, DIAG+13, APPINIT+4~, APPINIT+12* , APPINIT+13, APPINIT+15, APPINIT+16, APP+2~, APP+3, APP+5, APP+6, APP+11, APP+13, APP+14 , APP+19, APP+22, APPHEAD+1~, APPHEAD+5, APPHEAD+8, APPHEAD+10, APPHEAD+13, APPHEAD+15*, APPHEAD+18, BDMGA+17 , BDMGA+18
Z	APPINIT+4~, APPINIT+14, APPINIT+15, APPINIT+16, APP+2~, APP+6*, APP+7, APP+10, APPHEAD+1~
>> ZTDESC	BDMGA+23*
>> ZTDTH	BDMGA+23*
>> ZTIO	BDMGA+23*
>> ZTREQ	GUIEP+15*
>> ZTRTN	ZIS+2, BDMGA+23
ZTSAVE	BDMGA+21!
ZTSAVE("*"	BDMGA+21*
ZTSAVE("BDM*"	ZIS+1*

Customize PDF page

Package: Diabetes Registry

Routine: BDMVRL6

Information

Source Information