Routine: APCLDMAS

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
Patient Care Component	1	EN^APCHS
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
ZIS	;
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
BDMG(APCLREG,APCLDATE,APCLTYPE,BDMGIEN)	;EP - GUI DMS Entry Point
HSTYPE	;get hs type

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+6, ENDLOG+1
^%ZTLOAD	BDMG+21
EN^APCHS	PRINT+12
$$DEMO^APCLUTL	PRINT+7
DEMOCHK^APCLUTL	DEMO+1
^DIC	REGISTER+2, HSTYPE+6
FILE^DICN	BDMG+13
^DIE	ENDLOG+4
IX1^DIK	GUIEP+6
^DIR	DATE+2
^XBDBQUE	DEMO+4
^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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCLGUIR - [#9001004.4]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	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
^APCLGUIR - [#9001004.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
DATE	REGISTER+3
ENDLOG	GUIEP+7
EOJ	EP+1, DATE+3, 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*
>> APCLBTH	BDMG+9*, BDMG+10
APCLDATE	DATE+1, DATE+4, EOJ+3!, PRINT+2, PRINT+10, QUEUE+5*, BDMG~
>> APCLDEMO	DEMO+1, DEMO+2, PRINT+7
>> APCLDMX	PRINT+4*, PRINT+6
>> APCLDMY	PRINT+10*, PRINT+11
>> APCLIEN	BDMG+15, BDMG+16, BDMG+17, GUIEP+4, GUIEP+5, GUIEP+6, ENDLOG+3
>> APCLJOB	BDMG+9*, BDMG+10
>> APCLNOW	BDMG+7, BDMG+11, ENDLOG+2, ENDLOG+3
APCLOPT	BDMG+4~, BDMG+5*, BDMG+11
>> APCLPREP	BDMG+11
APCLREG	REGISTER+1, REGISTER+3, REGISTER+4, EOJ+3!, PRINT+4, QUEUE+1, QUEUE+2!, QUEUE+4!, BDMG~
>> APCLSDAT	PRINT+2*, PRINT+10
APCLTYPE	HSTYPE+6, EOJ+3!, PRINT+12, QUEUE+3, QUEUE+4!, BDMG~, BDMG+2*
BDMGIEN	BDMG~, BDMG+17*
>> C	GUIEP+4*, GUIEP+5
D0	BDMG+8!
DA	DATE+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!, EOJ+2!
DIR("A"	DATE+2*
DIR(0	DATE+2*
>> DIRUT	DATE+3
DLAYGO	BDMG+12*, BDMG+14!
DR	ENDLOG+3*, ENDLOG+5!
DT	QUEUE+5, GUIEP+5
DUZ	HSTYPE+3, 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*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
>> Y	DATE+4, REGISTER+3, REGISTER+4, HSTYPE+3*, HSTYPE+6, 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: Patient Care Component Reports

Routine: APCLDMAS

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: