Routine: BDMVRL4

Package	Total	Call Graph
Diabetes Registry	11	(DIC,DIE,DIR)^BDMFDIC REG^BDMFUTIL ^BDMFZIS (PRINT,SELECT)^BDMLET ($$DEMO,BUILDSML,DEMOCHK)^BDMUTL VALM^BDMVRL (DX,LMEDS,PATDX)^BDMVRL2 (APCLED,APCLEXAM,DENT,FLUC,HEPBC,HEPCC,HTN,IEN,LMAM,LPAP,PNEUMOC,TDC)^BDMVRL41 (ALL,APPT,FUHEAD,FURESULT,PARSE,SCREEN)^BDMVRL42 (IMMUN,LAB,PROVIDER)^BDMVRL43 RES^BDMVRL5
VA Fileman	4	(C,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
Registration	1	CLEAR^VALM1

Package	Total	Caller Graph
Diabetes Registry	6	BDMGR BDMVRL41 BDMVRL42 BDMVRL43 BDMVRL5 BDMVRL6

Entry Points

Name	Comments	DBIA/ICR reference
FUOUT	;EP;
FU	;EP;TO PRINT FOLLOW-UP NEEDED REPORTS
GUIEP	;EP - called from taskman
FUGET1
REPLET	;PRINT REPORT OR LETTER
DX	;EP;TO SELECT DIABETES DIAGNOSIS
DENT
FIND	;FIND PATIENTS WITHOUT SPECIFIED ITEM
BDMG(BDM)	;EP - Visual DMS Entry Point
PATDX	;INCLUDE PATIENTS WITH SPECIFIC DIAGNOSIS
FUPRINT	;EP;TO DISPLAY THE FOLLOW-UP REPORT
FULAST	;EP;
FUVALM	;USE LIST MANAGER TO DISPLAY REPORT TO SCREEN
FUOUT1
FUL1	;PRINT FOLLOW-UP LETTER
LSTVST(X)	;EP;LAST VISIT
ZIS	;DEVICE INTERFACE
FUD1
F1
FUGET	;EP;GET DATA
EDONE	;EP;FOLLOW-UP DONE
ENDLOG	;-- write the end of the log
PAT(DFN,ACMRPDA)	;EP;TO CHECK PATIENT DOD STATUS
Z(X)	;SET TMP NODE
XIT	;-- remove variables and quit
ACTIVE	;EP;TO SELECT PATIENT STATUS
ENTRY	;EP;FOR INDEPENDENT CALLS
FUNO	;EP Followup Entry
FUDISP	;DISPLAY REPORT
BDMGA(BDMRET,BDM,BDMFUAPP,BDMFL,BDMK,BDMRL,BDMFU,BDMLDA,BDMREG,BDMGUI,BDMDEMO)	;PEP - gui call
LMEDS
ST	;SELECT SEARCH TEMPLATE OR ENTIRE REGISTER
EXIT	;EP
FUEN	;
FUPAT	;EP;TO GATHER FOLLOW-UP INFO ON A PATIENT
PAGE	;PAGE CONTROL
D1

External References

Name	Field # of Occurrence
C^%DTC	FULAST+3
NOW^%DTC	BDMGA+9, ENDLOG+1
^%ZTLOAD	BDMGA+23
KILL^AUPNPAT	XIT+2
DIC^BDMFDIC	ST+10
DIE^BDMFDIC	PAT+6
DIR^BDMFDIC	FUEN+14, ACTIVE+5, REPLET+4, ST+4
REG^BDMFUTIL	FU+1, FUEN+1
^BDMFZIS	ZIS+3
PRINT^BDMLET	FUL1+7
SELECT^BDMLET	REPLET+8
$$DEMO^BDMUTL	FUPAT+5
BUILDSML^BDMUTL	FUPRINT+4
DEMOCHK^BDMUTL	FUEN+35
VALM^BDMVRL	FUVALM+2
DX^BDMVRL2	DX+1
LMEDS^BDMVRL2	LMEDS
PATDX^BDMVRL2	PATDX+1
APCLED^BDMVRL41	FUPAT+42
APCLEXAM^BDMVRL41	FUPAT+41
DENT^BDMVRL41	D1
FLUC^BDMVRL41	FUPAT+43
HEPBC^BDMVRL41	FUPAT+46
HEPCC^BDMVRL41	FUPAT+47
HTN^BDMVRL41	FUPAT+38
IEN^BDMVRL41	FUGET1+11
LMAM^BDMVRL41	FUPAT+40
LPAP^BDMVRL41	FUPAT+39
PNEUMOC^BDMVRL41	FUPAT+44
TDC^BDMVRL41	FUPAT+45
ALL^BDMVRL42	FUEN+21
APPT^BDMVRL42	FUEN+29
FUHEAD^BDMVRL42	FUD1
FURESULT^BDMVRL42	F1+6
PARSE^BDMVRL42	FUEN+22
SCREEN^BDMVRL42	FUEN+9
IMMUN^BDMVRL43	FIND+4
LAB^BDMVRL43	FIND+3, F1+5
PROVIDER^BDMVRL43	FUEN+31
RES^BDMVRL5	FUPAT+19
FILE^DICN	BDMGA+15
^DIE	ENDLOG+4
IX1^DIK	GUIEP+15
CLEAR^VALM1	FUEN+5
^XBFMK	BDMGA+20, XIT+2
GUIR^XBLM	GUIEP+6
EN^XBVK	XIT+1
$$NOW^XLFDT	BDMGA+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?8,"DIABETES REGISTER - FOLLOW-UP NEEDED REPORTS" Line Location: FUEN+6
Function Call: WRITE	Prompt: !?8,"(Patients due now or within the next 30 days.)" Line Location: FUEN+7
Function Call: WRITE	Prompt: ! Line Location: FUEN+8
Function Call: WRITE	Prompt: ! Line Location: FUEN+13
Function Call: WRITE	Prompt: "." Line Location: FUGET1+21
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+3
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: PAGE+4
Function Call: WRITE	Prompt: !?8,$S($G(BDMREGNM)]"":BDMREGNM,1:"DIABETES REGISTER") Line Location: PAGE+5
Function Call: WRITE	Prompt: !?8,"FOLLOW-UP REPORT: ",BDM("FOLLOW-UP TYPE"),?60,"PAGE: ",BDMPAGE Line Location: PAGE+6
Function Call: WRITE	Prompt: !!,"COMMUNITY",?16,"PATIENT",?42,"HRN",?49,"STATUS" Line Location: PAGE+7
Function Call: WRITE	Prompt: !,"---------------",?16,"-------------------------",?42,"------",?49,"--------------------" Line Location: PAGE+8
Function Call: WRITE	Prompt: !!,"Select the Patient Status for this report" Line Location: ACTIVE+1
Routine Call	DIE Line Location: ENDLOG+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls
^BDMGUI - [#9003201.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	FUEN+19
^ACM(41 - [#9002241]	FUGET1+19, FUPAT+1, FUPAT+10, FUPAT+22, FUL1+4
^ACM(41.1 - [#9002241.1]	FUGET1+1
^AUPNPAT - [#9000001]	FUPAT+16, FUPAT+24, FUPAT+34
^AUTTADA("B"	DENT+2
^AUTTCOM - [#9999999.05]	FUPAT+20
^BDMGUI - [#9003201.4]	GUIEP+12, GUIEP+14
^DD("DD"	LSTVST+5
^DIBT(	FUPAT+7
^DIC(4 - [#4]	FUPAT+26
^DPT - [#2]	FUPAT+36, PAT+2
^TMP("BDMTMP"	EXIT+3!, FUL1+3, FUOUT+2, FUOUT+3, FUOUT1*, EDONE+2!
^TMP("BDMVR"	EXIT+3!, FUD1+3, FUD1+4, Z+2*
^TMP($J	GUIEP+2!, GUIEP+8, GUIEP+10, XIT+3!
^VA(200 - [#200]	FUPAT+17
^XTMP("BDMTAX"	BDMG+3!

Label References

Name	Line Occurrences
$$LSTVST	ENTRY+2
ACTIVE	FUEN+25
D1	DENT+3
DENT	FIND+6
DX	FUEN+27
ENDLOG	GUIEP+16
ENTRY	F1+8
EXIT	FUEN+3
F1	DENT+4
FIND	FUPAT+48
FUD1	FUDISP+1
FUDISP	FUPRINT+6
FUEN	FU+3
FUGET	FUPRINT+5
FUGET1	FUGET+2
FUL1	FUDISP+2
FULAST	FUGET1+15
FUNO	ENTRY+1
FUOUT	EDONE+10
FUOUT1	FUOUT+1
FUPAT	FUGET1+16, FUGET1+17, FUGET1+20
FUPRINT	BDMG+2
FUVALM	FUD1+1
LMEDS	F1+2
PAGE	FUD1+6
PAT	FUPAT+8, FUL1+6
PATDX	FUPAT+6
REPLET	FUEN+33
ST	FUEN+23
XIT	BDMGA+24
Z	FUGET1+4
ZIS	FUEN+37

Naked Globals

Name	Field # of Occurrence
^(0	DENT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMGA+10, ENDLOG+2
ACMRPDA	PAT~, PAT+1, PAT+3
BDM	EXIT+1!, BDMG~, FUPAT+14, FUPAT+16, FUPAT+17, FUPAT+20, FUPAT+22, FUPAT+23, FUPAT+24, FUPAT+26 , FUPAT+27, FUPAT+29, FUPAT+30, FUPAT+31, FUPAT+33, BDMGA~
BDM("COMMUNITY"	FUPAT+33*, FUOUT+2, FUOUT+3, EDONE+2
BDM("DM DIAGN	OSIS" , FUPAT+6
BDM("FOLLOW-U	P TYPE" , FUGET1+9*, PAGE+6, FUNO+1, FUOUT+2, FUOUT1, LSTVST+6, EDONE+2
BDM("HRN"	FUPAT+13!, FUPAT+24, FUPAT+25!, FUPAT+34, FUPAT+35*, FUOUT+2
BDM("IEN"	DENT!, DENT+2*, DENT+3
BDM("PARSE"	FUGET+2
BDM("PATIENT"	FUPAT+36*, FUOUT+2, FUOUT+3, EDONE+2
BDM("PPD"	EDONE+4, EDONE+5, EDONE+6, EDONE+7, EDONE+8!
BDM("REPORT"	FUGET1
BDM("RES"	FUPAT+20
BDM("SEARCH T	EMPLATE" , FUPAT+7, ST+11*, ST+12!
BDM("SHOULD H	AVE FOLLOW-UP AFTER" , FULAST+4*, LSTVST+3
BDM("STATUS"	FUPAT+11, ACTIVE+6*
>> BDMBTH	BDMG+3, FUPRINT+3*
BDMDEMO	FUEN+35, FUEN+36, FUPAT+5, BDMGA~
>> BDMDUZ2	FUPAT+34
BDMFL	BDMGA~
BDMFU	EXIT+1!, FUGET1*, FUGET1+9, FUGET1+14, FUPAT+38, FUPAT+39, FUPAT+40, FUPAT+41, FUPAT+42, FUPAT+43 , FUPAT+44, FUPAT+45, FUPAT+46, FUPAT+47, FIND+2, FIND+3, FIND+4, F1+5, EDONE+4, BDMGA~
BDMFUAPP	EXIT+1!, BDMGA~
>> BDMGBL	F1*
BDMGDATA	GUIEP+9~, GUIEP+10*, GUIEP+12
BDMGUI	PAGE+4, BDMGA~
>> BDMH	BDMGA+2*, BDMGA+5, BDMGA+12
>> BDMIANL	FUGET1+17, FUPAT+1, FUOUT+1
>> BDMIEN	BDMGA+18*, BDMGA+19, GUIEP+12, GUIEP+14, GUIEP+15, ENDLOG+3
>> BDMJ	BDMGA+1*, BDMGA+4
>> BDMJOB	BDMG+3, FUPRINT+3*
BDMK	FUPAT+15, FUPAT+18, FUPAT+21, BDMGA~
BDMK(	FUPAT+30, FUPAT+31
BDMK(0	FUPAT+17, FUPAT+20, FUPAT+23, FUPAT+29
BDMLDA	REPLET+9, BDMGA~
>> BDMLET	FUDISP+1, FUDISP+2, FUOUT+4, REPLET+6*
>> BDMNOW	BDMGA+10, BDMGA+13, ENDLOG+2, ENDLOG+3
BDMOPT	BDMGA+7~, BDMGA+8*, BDMGA+13
BDMOUT	FU+3, EXIT+1!
>> BDMP	FUGET+1, FUGET+2, FUGET1, FUOUT+2, FUOUT1, EDONE+2
>> BDMPAGE	PAGE+2*, PAGE+4, PAGE+6
BDMPROV	EXIT+1!
BDMQUIT	FU+2, FU+3, EXIT+1!, FUEN+2, FUEN+15, FUEN+17!, FUEN+20, FUEN+24, FUEN+26, FUEN+28 , FUEN+30, FUEN+32, FUEN+34, FUPAT+6!, FUPAT+28!, FUPAT+30, FUPAT+32!, FUPAT+50!, FUL1+1!, FUL1+3 , F1+1, F1+4!, F1+7!, EDONE+3, ACTIVE+7, REPLET+5, REPLET+9*
>> BDMRDA	FUGET1+1*, FUGET1+2, FUGET1+19, FUL1+4
>> BDMRECST	FUPAT+9, FUPAT+10, FUPAT+11
BDMREG	BDMGA~
>> BDMREGNM	FUGET1+1, FUGET1+3, PAGE+5
BDMRET	BDMGA~, BDMGA+4, BDMGA+5, BDMGA+17, BDMGA+19
BDMRL	BDMGA~
BDMRPDA	EXIT+1!, FUGET1+16, FUGET1+18, FUGET1+19, FUPAT+1, FUPAT+8, FUPAT+10, FUPAT+22, FUL1+4*, FUL1+5 , FUL1+6
>> BDMRTN	ZIS+2*
BDMTAX	EXIT+1!
>> BDMVALM	FUVALM+1*, FUVALM+2
>> BDMY	FUEN+21*
BY	EXIT+2!
>> C	GUIEP+8, GUIEP+13, GUIEP+14
D0	BDMGA+11!
DA	PAT+3, BDMGA+16!, GUIEP+15, ENDLOG+3*, ENDLOG+5!
DD	BDMGA+11!
DFN	FUPAT+1, FUPAT+2, FUPAT+5, FUPAT+7, FUPAT+8, FUPAT+16, FUPAT+19, FUPAT+24, FUPAT+34, FUPAT+36 , FUL1+2, FUL1+3*, FUL1+4, FUL1+6, FUOUT+3, FUOUT1, PAT~, PAT+2
DIADD	BDMGA+14*, BDMGA+16!
DIC	ST+6, BDMGA+11!, BDMGA+14, BDMGA+16!
DIC("A"	ST+8*
DIC("DR"	BDMGA+13*
DIC("S"	ST+9*
DIC(0	ST+7, BDMGA+14
DIE	PAT+4, ENDLOG+3, ENDLOG+5!
>> DIK	GUIEP+15*
>> DIR("A"	FUEN+11, FUEN+12, ACTIVE+3, REPLET+2, ST+2*
>> DIR("B"	ACTIVE+4, REPLET+3, ST+3*
>> DIR(0	FUEN+10, ACTIVE+2, REPLET+1, ST+1
DLAYGO	BDMGA+14*, BDMGA+16!
DR	PAT+5, ENDLOG+3, ENDLOG+5!
DT	FULAST+1, GUIEP+14
DUZ	BDMGA+12, BDMGA+13
DUZ(2	FUPAT+34
FLDS	EXIT+2!
FR	EXIT+2!
IOF	PAGE+3
IOM	GUIEP+3*
IOSL	PAGE+1, GUIEP+4*
IOST	FUPRINT+1, FUGET1+21, FUD1+1, GUIEP+5*
L	EXIT+2!
TO	EXIT+2!
U	FUGET1, FUPAT+1, FUPAT+10, FUPAT+16, FUPAT+17, FUPAT+20, FUPAT+22, FUPAT+24, FUPAT+26, FUPAT+34 , FUPAT+36, FUPAT+41, FUPAT+42, FIND+8, FUOUT+2, EDONE+5, EDONE+6, EDONE+7
>> VALMCNT	Z+1*, Z+2
>> VALMWD	FUEN+4*
X	FUEN+15, FUEN+18, FUGET1+3, FUGET1+4, FUD1+2, FUD1+3, FUD1+4, FIND+1~, FIND+2, FIND+6 , FIND+7, FIND+8, FIND+9, FIND+10, FIND+11, FIND+12, FIND+13, FIND+14, F1+1, FUNO+1 , FUOUT+2, FUOUT1, FULAST+4, LSTVST~, LSTVST+2, LSTVST+3, LSTVST+6, LSTVST+7, EDONE+9, Z~ , Z+2, DENT+2, BDMGA+3, BDMGA+12, GUIEP+8*, GUIEP+10, GUIEP+12
X1	FULAST+1*, FULAST+5!
X2	FUGET1+13!, FUGET1+14, FULAST+2, FULAST+5!
Y	FUEN+17, FUEN+18, FUEN+20, FUEN+21, FUD1+4, FUD1+5, FIND+1~, FIND+7, FIND+8, FIND+9 , FIND+10, FIND+11, FIND+12, FIND+13, FIND+14, F1, LSTVST+1~, LSTVST+2, LSTVST+3, LSTVST+6 , ACTIVE+6, REPLET+5, REPLET+6, REPLET+7, ST+5, ST+11, DENT+1*, BDMGA+17, BDMGA+18
>> Z	ENTRY+1, ENTRY+2, EDONE+1, EDONE+5, EDONE+6, EDONE+7, EDONE+9
>> ZTDESC	BDMGA+23*
>> ZTDTH	BDMGA+23*
>> ZTIO	BDMGA+23*
>> ZTREQ	GUIEP+17*
>> ZTRTN	ZIS+2, BDMGA+23
ZTSAVE	BDMGA+21!
ZTSAVE("*"	BDMGA+21*
ZTSAVE("BDM*"	ZIS+1*

Customize PDF page

Package: Diabetes Registry

Routine: BDMVRL4

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: