Routine: BDMSELFM

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	5	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK GUIR^XBLM EN^XBVK
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU
Patient Care Component Reports	2	$$START1^APCLDF $$LASTVD^APCLV1
Diabetes Registry	1	($$DEMO,DEMOCHK)^BDMUTL
IHS Patient	1	($$COMMRES,$$DOD,$$HRN)^AUPNPAT

Package	Total	Caller Graph
Diabetes Registry	1	BDMGR

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
GUIEP	;EP - called from taskman ;Visiual DMS Entry Point
REPORT	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
SORTED	;
PRINT1
SETVAL	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
REGISTER	;get register name
HEADER1	;
ENDDATE	;
ZIS	;
ENDLOG	;-- write the end of the log
LASTHF(P,C,BDATE,F)	;EP - get last factor in category C for patient P
POST	;
EP	;EP - called from option interactive
HEADER	;EP
BDMGA(BDMRET,BDMREG,BDMSTAT,BDMRPT,BDMED,BDMSORT,BDMGUI,BDMDEMO)	;PEP - gui call
SORT(P,BDMSORT)	;
PROC	;

External References

Name	Field # of Occurrence
NOW^%DTC	BDMGA+8, ENDLOG+1
^%ZTLOAD	BDMGA+22
$$START1^APCLDF	PROC+16
$$LASTVD^APCLV1	PRINT+7
$$COMMRES^AUPNPAT	SORT+4, PRINT+7
$$DOD^AUPNPAT	PROC+8
$$HRN^AUPNPAT	SORT+2, PRINT+7
$$DEMO^BDMUTL	PROC+9
DEMOCHK^BDMUTL	ZIS+1
^DIC	REGISTER+2
FILE^DICN	BDMGA+14
^DIE	ENDLOG+4
IX1^DIK	GUIEP+13
^DIR	REGISTER+7, REGISTER+11, REPORT+2, ENDDATE+3, SORTED+1, DONE+1, HEADER+2, EOP+5
^XBDBQUE	ZIS+4
$$VAL^XBDIQ1	LASTHF+16, LASTHF+18
^XBFMK	EOJ+1, BDMGA+19
GUIR^XBLM	GUIEP+4
EN^XBVK	EOJ+3
$$FMADD^XLFDT	PROC+2, PROC+10, PROC+16
$$FMTE^XLFDT	PRINT+17, HEADER1+3, HEADER1+8, LASTHF+18
$$NOW^XLFDT	BDMGA+22
$$ADD^XPDMENU	POST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will provide a list of patients on a register" Line Location: EP+3
Function Call: WRITE	Prompt: !,"(e.g. IHS Diabetes) that either are doing Self Monitoring of" Line Location: EP+4
Function Call: WRITE	Prompt: !,"Glucose or who are not doing Self Monitoring of Glucose." Line Location: EP+5
Function Call: WRITE	Prompt: !,"The following definitions/logic is used:" Line Location: EP+6
Function Call: WRITE	Prompt: !?5,"Yes, Doing self monitoring:" Line Location: EP+7
Function Call: WRITE	Prompt: !?7,"- the last health factor documented in the 365 days prior to the" Line Location: EP+8
Function Call: WRITE	Prompt: !?7,"end date is SELF MONITORING BLOOD GLUCOSE-YES" Line Location: EP+9
Function Call: WRITE	Prompt: !?7,"- the patient has had strips dispensed through pharmacy in " Line Location: EP+10
Function Call: WRITE	Prompt: !?7,"the 365 days prior to the end date." Line Location: EP+11
Function Call: WRITE	Prompt: !?5,"No, not doing self monitoring" Line Location: EP+12
Function Call: WRITE	Prompt: !?7,"- the last health factor documented in the 365 days prior to" Line Location: EP+13
Function Call: WRITE	Prompt: !?7,"the end date is SELF MONITORING BLOOD GLUCOSE-NO or SELF MONITORING" Line Location: EP+14
Function Call: WRITE	Prompt: !?7,"BLOOD GLUCOSE-REFUSED" Line Location: EP+15
Function Call: WRITE	Prompt: !?7,"- the patient has had no strips dispensed through pharmacy" Line Location: EP+16
Function Call: WRITE	Prompt: !?7,"- the patient has had neither strips dispensed nor a health" Line Location: EP+17
Function Call: WRITE	Prompt: !?7,"factor documented in the 365 days prior to the end date" Line Location: EP+18
Function Call: WRITE	Prompt: !!,"In the case of the following conflict: the patient's last" Line Location: EP+19
Function Call: WRITE	Prompt: !,"health factor states NO or REFUSED but they have had strips" Line Location: EP+20
Function Call: WRITE	Prompt: !,"dispensed they will show up on each report with a status of" Line Location: EP+21
Function Call: WRITE	Prompt: !,"Maybe." Line Location: EP+22
Function Call: WRITE	Prompt: ! Line Location: REGISTER+2
Function Call: WRITE	Prompt: !,"No Register Selected." Line Location: REGISTER+3
Function Call: WRITE	Prompt: !!,"Enter the end date to use in calculating the 365 day time period." Line Location: ENDDATE+2
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",! Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+6
Function Call: WRITE	Prompt: !?3,"Health Factor: ",BDMLHF Line Location: PRINT1+1
Function Call: WRITE	Prompt: !?3,"Medication Dispensed: ",BDMLMED Line Location: PRINT1+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BDMPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,$$CTR("PATIENTS ON THE "_$P(^ACM(41.1,BDMREG,0),U)_" REGISTER - BLOOD GLUCOSE SELF MONITORING",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR("Patients Doing Self Monitoring",80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR("Patients NOT Doing Self Monitoring",80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR("List of Patients w/Self Monitoring of Blood Glucose Status",80),! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,"HRN",?7,"PATIENT NAME",?38,"COMMUNITY",?54,"LAST VISIT",?75,"SMBG?" Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+10
Function Call: WRITE	Prompt: "Attempt to new appt list of reg pats failed.." Line Location: POST+3
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: REGISTER+2
Routine Call	DIR Line Location: REGISTER+7 REGISTER+11 REPORT+2 ENDDATE+3 SORTED+1 DONE+1 HEADER+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^BDMGUI - [#9003201.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	PROC+3, PROC+6, PROC+7
^ACM(41.1 - [#9002241.1]	HEADER1+4
^AUPNVHF - [#9000010.23]	LASTHF+17
^AUPNVHF("AA"	LASTHF+8, LASTHF+9, LASTHF+12
^AUTTHF("AC"	LASTHF+7
^AUTTHF("B"	LASTHF+4
^BDMGUI - [#9003201.4]	GUIEP+10, GUIEP+12
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	SORT+3, PRINT+7
^TMP($J	GUIEP+2!, GUIEP+6, GUIEP+8
^VA(200 - [#200]	HEADER1+3, USR+1
^XTMP("BDMSELFM"	PROC+2, PROC+22, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10

Label References

Name	Line Occurrences
$$CTR	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8
$$LASTHF	PROC+10
$$SORT	PROC+22
DONE	PRINT+2, PRINT1+3
ENDDATE	SORTED+2
ENDLOG	GUIEP+14
EOJ	EP+1, REGISTER+3, BDMGA+23
HEADER	PRINT+1, PRINT+5
HEADER1	HEADER+1
PROC	GUIEP+1
REGISTER	REGISTER+8, REGISTER+12, REPORT+3
REPORT	REGISTER+9, ENDDATE+4
SETVAL	PROC+19

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMGA+9, ENDLOG+2
BDATE	LASTHF~, LASTHF+11
BDMDEMO	ZIS+1, ZIS+2, PROC+9, BDMGA~
>> BDMDMX	PROC+3*, PROC+6, PROC+7
BDMED	ENDDATE+1, ENDDATE+5, PROC+10, PROC+16, HEADER1+8, BDMGA~
BDMET	DONE+3!
BDMGDATA	GUIEP+7~, GUIEP+8*, GUIEP+10
BDMGUI	HEADER1+2, BDMGA~
BDMH	PROC+1, PROC+22, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10, BDMGA+2 , BDMGA+4, BDMGA+11
>> BDMHF	PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, PROC+22, PRINT+10, PRINT+16
>> BDMHFG	PROC+11, PROC+12, PROC+13, PROC+14, SETVAL+2, SETVAL+3, SETVAL+4, SETVAL+5, SETVAL+6, SETVAL+7
>> BDMIEN	BDMGA+17*, BDMGA+18, GUIEP+10, GUIEP+12, GUIEP+13, ENDLOG+3
BDMJ	PROC+1, PROC+22, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10, BDMGA+1 , BDMGA+3
>> BDMLHF	PRINT+11, PRINT+16, PRINT1+1
>> BDMLMED	PRINT+11, PRINT+17, PRINT1+2
BDMM	DONE+3!
BDMMED	PROC+15!, PRINT+9*, PRINT+17
BDMMED(1	PROC+17, PROC+18, PROC+22
>> BDMMEDG	PROC+17, PROC+18, SETVAL+2, SETVAL+3, SETVAL+4
>> BDMNOW	BDMGA+9, BDMGA+12, ENDLOG+2, ENDLOG+3
BDMOPT	BDMGA+6~, BDMGA+7*, BDMGA+12
>> BDMPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2, HEADER1+3
BDMQ	PRINT+1!, PRINT+3, PRINT+4, PRINT+5, HEADER+2*
BDMREG	REGISTER+1, REGISTER+3, REGISTER+4*, PROC+3, HEADER1+4, BDMGA~
BDMRET	BDMGA~, BDMGA+3, BDMGA+4, BDMGA+16, BDMGA+18
BDMRPT	REPORT+1, REPORT+4, PROC+20, PROC+21, PRINT+6, HEADER1+5, HEADER1+6, HEADER1+7, BDMGA~
BDMS	DONE+3!
BDMSORT	SORTED+3*, PROC+22, SORT~, SORT+2, SORT+3, SORT+4, BDMGA~
BDMSTAT	REGISTER+6, REGISTER+9, REGISTER+13*, PROC+6, BDMGA~
>> BDMSV	PRINT+3*, PRINT+4, PRINT+8, PRINT+9, PRINT+10
BDMTS	DONE+3!
>> BDMVAL	PROC+20, PROC+21, PROC+22, SETVAL+1, SETVAL+2, SETVAL+3, SETVAL+4, SETVAL+5, SETVAL+6, SETVAL+7* , PRINT+8*, PRINT+12, PRINT+13, PRINT+14
C	LASTHF~, LASTHF+2, LASTHF+4, LASTHF+5, LASTHF+7, GUIEP+6, GUIEP+11*, GUIEP+12
D	LASTHF+6~, LASTHF+9, LASTHF+10, LASTHF+11, LASTHF+12, LASTHF+14, LASTHF+15, LASTHF+16, LASTHF+17, LASTHF+18 , LASTHF+19
D0	BDMGA+10!
DA	REGISTER+7!, REGISTER+11!, REPORT+2!, ENDDATE+3!, SORTED+1!, BDMGA+15!, GUIEP+13, ENDLOG+3, ENDLOG+5!
DD	BDMGA+10!
>> DFN	PROC+7, PROC+8, PROC+9, PROC+10, PROC+16, PROC+22, PRINT+4, PRINT+7, PRINT+8, PRINT+9 , PRINT+10
DFOUT	EOP+4!
DIADD	BDMGA+13*, BDMGA+15!
DIC	REGISTER+2, EOJ+2!, BDMGA+10!, BDMGA+13, BDMGA+15!
DIC("A"	REGISTER+2*
DIC("DR"	BDMGA+12*
DIC(0	REGISTER+2, BDMGA+13
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+13*
DIR	REGISTER+7!, REGISTER+11!, REPORT+2!, ENDDATE+3!, SORTED+1!, EOJ+2!, DONE+1!, HEADER+2!, EOP+3~
DIR("A"	REGISTER+7, REGISTER+11, REPORT+2, ENDDATE+3, SORTED+1, DONE+1, EOP+5*
DIR("B"	REGISTER+7, REGISTER+11, REPORT+2, SORTED+1
DIR(0	REGISTER+7, REGISTER+11, REPORT+2, ENDDATE+3, SORTED+1, DONE+1, HEADER+2, EOP+5
DIRUT	REGISTER+8, REGISTER+12, REPORT+3, ENDDATE+4, SORTED+2, DONE+1*, EOP+4!
DLAYGO	BDMGA+13*, BDMGA+15!
DLOUT	EOP+4!
DR	ENDLOG+3*, ENDLOG+5!
DT	PROC+2, HEADER1+3, GUIEP+12
DTOUT	HEADER+2, EOP+4!
DUOUT	DONE+1, EOP+4!
DUZ	HEADER1+3, USR+1, BDMGA+11, BDMGA+12
DUZ(2	SORT+2, PRINT+7, LOC+1
>> E	PROC+16*
F	LASTHF~, LASTHF+3*, LASTHF+16, LASTHF+17, LASTHF+18
H	LASTHF+6~, LASTHF+7, LASTHF+8, LASTHF+9, LASTHF+12
IO	DONE+1, HEADER+2
IO("S"	EOP+2
IO(0	DONE+1, HEADER+2
IOF	EP+2, DONE+2, HEADER1+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+5
IOST	DONE+1, HEADER+2, EOP+1
>> IOT	EOP+2
O	LASTHF+6~!
O(	LASTHF+12*, LASTHF+16, LASTHF+17, LASTHF+18
O(0	LASTHF+14
P	SORT~, SORT+2, SORT+3, SORT+4, LASTHF~, LASTHF+1, LASTHF+8, LASTHF+9, LASTHF+12
U	PROC+6, PROC+7, SORT+3, PRINT+7, PRINT+17, HEADER1+3, HEADER1+4, USR+1, LOC+1, LASTHF+17
X	PROC+16, SORT+1~, SORT+2, SORT+3, SORT+4, SORT+5, SORT+6, PRINT+11, PRINT+12, PRINT+13* , PRINT+14, PRINT1, HEADER1+8, CTR~, CTR+1, POST+1~, POST+2, POST+3, BDMGA+11, GUIEP+6* , GUIEP+8, GUIEP+10
>> XBNS	ZIS+3*
>> XBRC	ZIS+3*
>> XBRP	ZIS+3*
>> XBRX	ZIS+3*
Y	REGISTER+3, REGISTER+4, REGISTER+9, REGISTER+13, REPORT+4, ENDDATE+5, SORTED+3, HEADER+2, CTR~, CTR+1 , BDMGA+16, BDMGA+17
>> ZTDESC	BDMGA+22*
>> ZTDTH	BDMGA+22*
>> ZTIO	BDMGA+22*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+15*
>> ZTRTN	BDMGA+22*
ZTSAVE	BDMGA+20!
ZTSAVE("*"	BDMGA+20*

Customize PDF page

Package: Diabetes Registry

Routine: BDMSELFM

Information

Source Information

Call Graph

Call Graph Total: 18

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

Naked Globals

Local Variables

Legend: