Routine: BDMDMAS

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	4	^XBDBQUE ^XBFMK GUIR^XBLM EN^XBVK
Kernel	2	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
Diabetes Registry	1	($$DEMO,DEMOCHK)^BDMUTL
Patient Care Component	1	EN^APCHS

Package	Total	Caller Graph
Diabetes Registry	1	BDMGRB

Entry Points

Name	Comments	DBIA/ICR reference
ZIS	;
BDMG(BDMREG,BDMDATE,BDMTYPE,BDMGIEN)	;EP - GUI DMS Entry Point
BROWSE	;
DEMO	;
REGISTER	;get register name
ENDLOG	;-- write the end of the log
GUIEP	;EP - called from taskman
QUEUE	;EP - called from queued option
PRINT	;EP - called from xbdbque
EOJ	;
DATE	;get appt date
EP	;EP - called from option interactive
HSTYPE	;get hs type

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+6, ENDLOG+1
^%ZTLOAD	BDMG+21
EN^APCHS	PRINT+12
$$DEMO^BDMUTL	PRINT+7
DEMOCHK^BDMUTL	DEMO+1
^DIC	REGISTER+2, HSTYPE+6
FILE^DICN	BDMG+13
^DIE	ENDLOG+4
IX1^DIK	GUIEP+6
^DIR	DATE+2, ZIS+2
^XBDBQUE	DEMO+5, BROWSE+2
^XBFMK	EOJ+1, BDMG+18
GUIR^XBLM	GUIEP+3
EN^XBVK	EOJ+4
$$FMADD^XLFDT	PRINT+2
$$NOW^XLFDT	BDMG+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a health summary for all patients who are on the ",!,"Diabetes Register that have an appointment on the date you specify.",!! Line Location: EP+3
Function Call: WRITE	Prompt: !,"Goodbye" Line Location: DATE+3
Function Call: WRITE	Prompt: !,"No Register Selected." Line Location: REGISTER+3
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: REGISTER+2 HSTYPE+6
Routine Call	DIR Line Location: DATE+2 ZIS+2

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]	PRINT+4, PRINT+6
^ACM(41.1 - [#9002241.1]	QUEUE+1
^APCCCTRL - [#9001000]	HSTYPE+2
^APCHSCTL - [#9001015]	HSTYPE+3
^APCHSCTL("B"	BDMG+2
^APCHSTYP("B"	QUEUE+3
^BDMGUI - [#9003201.4]	GUIEP+4, GUIEP+5
^DISV(	HSTYPE+3
^DPT - [#2]	PRINT+10, PRINT+11
^TMP($J	PRINT+1!, PRINT+8, PRINT+9*, GUIEP+1!, GUIEP+4

Label References

Name	Line Occurrences
BROWSE	DEMO+3
DATE	REGISTER+3
ENDLOG	GUIEP+7
EOJ	EP+1, DATE+3, ZIS+3, DEMO+3, DEMO+6, QUEUE+7, BDMG+22
HSTYPE	DEMO+2
PRINT	QUEUE+6

Naked Globals

Name	Field # of Occurrence
^("^APCHSCTL("	HSTYPE+3
^(0	HSTYPE+2, HSTYPE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+7, ENDLOG+2
>> APCHSPAT	PRINT+12*
APCHSTYP	EOJ+3!, PRINT+12*
>> BDMBTH	BDMG+9*, BDMG+10
BDMDATE	DATE+1, DATE+4, EOJ+3!, PRINT+2, PRINT+10, QUEUE+5*, BDMG~
>> BDMDEMO	DEMO+1, DEMO+2, PRINT+7
>> BDMDMX	PRINT+4*, PRINT+6
>> BDMDMY	PRINT+10*, PRINT+11
BDMGIEN	BDMG~, BDMG+17*
>> BDMIEN	BDMG+15, BDMG+16, BDMG+17, GUIEP+4, GUIEP+5, GUIEP+6, ENDLOG+3
>> BDMJOB	BDMG+9*
>> BDMNOW	BDMG+7, BDMG+11, ENDLOG+2, ENDLOG+3
BDMOPT	BDMG+4~, BDMG+5*, BDMG+11
>> BDMPREP	BDMG+11
BDMREG	REGISTER+1, REGISTER+3, REGISTER+4, EOJ+3!, PRINT+4, QUEUE+1, QUEUE+2!, QUEUE+4!, BDMG~
>> BDMSDAT	PRINT+2*, PRINT+10
>> BDMTEMP	ZIS+1, ZIS+4, DEMO+3
BDMTYPE	HSTYPE+6, EOJ+3!, PRINT+12, QUEUE+3, QUEUE+4!, BDMG~, BDMG+2*
>> C	GUIEP+4*, GUIEP+5
D0	BDMG+8!
DA	DATE+2!, ZIS+2!, BDMG+14!, GUIEP+6, ENDLOG+3, ENDLOG+5!
DD	BDMG+8!
>> DFN	PRINT+6*, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12
DIADD	BDMG+12*, BDMG+14!
DIC	REGISTER+2, HSTYPE+1!, EOJ+2!, BDMG+8!, BDMG+12*, BDMG+14!
DIC("A"	REGISTER+2, HSTYPE+1
DIC("B"	HSTYPE+5*
DIC("DR"	BDMG+11*
DIC(0	REGISTER+2, HSTYPE+1, BDMG+12*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+6*
DIR	DATE+2!, ZIS+2!, EOJ+2!
DIR("A"	DATE+2, ZIS+2
DIR("B"	ZIS+2*
DIR(0	DATE+2, ZIS+2
>> DIRUT	DATE+3, ZIS+3
DLAYGO	BDMG+12*, BDMG+14!
DR	ENDLOG+3*, ENDLOG+5!
DT	QUEUE+5, GUIEP+5
DUZ	HSTYPE+3, BDMG+10, BDMG+11
DUZ(2	HSTYPE+2
IOF	EP+2
IOM	GUIEP+2*
U	HSTYPE+2, HSTYPE+3, PRINT+6, PRINT+11
>> X	HSTYPE+2, HSTYPE+3, HSTYPE+4, HSTYPE+5, BDMG+10, GUIEP+4*
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+4*
>> XBRC	DEMO+4, BROWSE+2
>> XBRP	DEMO+4, BROWSE+1
>> XBRX	DEMO+4, BROWSE+2
>> Y	DATE+4, REGISTER+3, REGISTER+4, HSTYPE+3*, HSTYPE+6, ZIS+4, BDMG+15, BDMG+16
>> ZTDESC	BDMG+21*
>> ZTDTH	BDMG+21*
>> ZTIO	BDMG+21*
>> ZTREQ	GUIEP+8*
>> ZTRTN	BDMG+21*
ZTSAVE	BDMG+19!
ZTSAVE("*"	BDMG+19*

Customize PDF page

Package: Diabetes Registry

Routine: BDMDMAS

Information

Source Information

Call Graph

Call Graph Total: 14

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: