Routine: APCLDR2

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
Patient Care Component Reports	4	$$DODX^APCLD206 $$START1^APCLDF XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
Kernel	2	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
IHS Patient	1	($$DOB,$$DOD,$$HRN,KILL)^AUPNPAT
Taxonomy	1	$$ICD^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
DMPROB(P)	;is DM on problem list 1=yes 0=no
REGPROC	;
DEMO	;
BDMG(APCLTR,APCLREG,APCLSTAT)	;EP - GUI DMS Entry Point
GUIEP	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
PIH
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
NUMDXS(P)	;
INFORM	;
CHKSET	;
HEAD
ZIS	;call to XBDBQUE
ENDLOG	;-- write the end of the log
START	;
R	;
HEAD1	;
GETINFO	;
BDMGO(APCLTR,APCLREG,APCLSTAT)	;EP - GUI DMS Entry Point
EXIT	;clean up and exit
LASTDMDX(P)	;
TEST	;
PROC	;EP - called from XBDBQUE

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+4, ENDLOG+1
^%ZTLOAD	BDMG+18
$$DODX^APCLD206	CHKSET+2
$$START1^APCLDF	LASTDMDX+4, NUMDXS+4
XTMP^APCLOSUT	PROC+3
$$DEMO^APCLUTL	CHKSET+1
DEMOCHK^APCLUTL	DEMO+1
$$ICD^ATXAPI	DMPROB+7
$$DOB^AUPNPAT	PRINT+9
$$DOD^AUPNPAT	CHKSET+3
$$HRN^AUPNPAT	PRINT+9
KILL^AUPNPAT	EXIT+3
^DIC	R+2
FILE^DICN	BDMG+10
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10
^DIR	R+7, R+11, DONE+1, HEAD+1, EOP+5
^XBDBQUE	DEMO+4
^XBFMK	EXIT+2, BDMG+15
GUIR^XBLM	BDMGO+4, GUIEP+4
EN^XBVK	EXIT+1
$$FMTE^XLFDT	PRINT+9
$$NOW^XLFDT	BDMG+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will list patients who are on the Diabetes Register who do not",!,"have a date of diagnosis recorded in either the Register or on the problem list.",!! Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"No register selected." Line Location: R+3
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",APCLPG,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR("DIABETES REGISTER PATIENTS WITH NO RECORDED DATE OF ONSET OF DIABETES",80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR("Patients on the "_$P(^ACM(41.1,APCLREG,0),U)_" Register",80),! Line Location: HEAD1+7
Function Call: WRITE	Prompt: $$CTR("Patients w/at least "_APCLND_" diabetes diagnoses",80),! Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?47,"LAST DM DX",?63,"#DM DXS",?71,"DM ON PL",!,APCL80D Line Location: PIH+0
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: R+2
Routine Call	DIR Line Location: R+7 R+11 DONE+1 HEAD+1 EOP+5

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]	REGPROC+4, REGPROC+5, REGPROC+6
^ACM(41.1 - [#9002241.1]	HEAD1+7
^APCLGUIR - [#9001004.4]	GUIEP+8, GUIEP+9
^ATXAX("B"	DMPROB+3
^AUPNPAT - [#9000001]	CHKSET+4, CHKSET+5
^AUPNPROB - [#9000011]	DMPROB+6
^AUPNPROB("AC"	DMPROB+2, DMPROB+5
^DIC(4 - [#4]	HEAD1+5, LOC+1
^DPT - [#2]	CHKSET+7, PRINT+9
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200]	HEAD1+4, USR+1
^XTMP("APCLDR2"	PROC+2!, CHKSET+7*, PRINT+4, PRINT+6, PRINT+7, DONE+3!

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, HEAD1+6, HEAD1+7, HEAD1+8
$$DMPROB	CHKSET+6
$$LASTDMDX	CHKSET+7
$$LOC	INFORM+2
$$NUMDXS	CHKSET+7
$$USR	INFORM+3
BDMG	TEST+1
CHKSET	REGPROC+5, REGPROC+6
DONE	PRINT+4
ENDLOG	GUIEP+11
EXIT	START+2, START+4, GETINFO+3, DEMO+5, BDMGO+5, BDMG+19, GUIEP+13
GETINFO	START+3
HEAD	PRINT+3, PRINT+8
HEAD1	HEAD
INFORM	START+1
PROC	BDMGO+3, GUIEP+1
R	GETINFO+2, R+8, R+12, DEMO+2
REGPROC	PROC+4
ZIS	GETINFO+4

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+5, ENDLOG+2
APCL	LASTDMDX+2~, NUMDXS+2~
APCL(	NUMDXS+6
APCL(1	LASTDMDX+5
>> APCL80D	PRINT+1*, PIH
APCLBTH	PROC+1*, PROC+2, CHKSET+7, PRINT+4, PRINT+6, PRINT+7, DONE+3!
>> APCLDATA	GUIEP+6, GUIEP+7, GUIEP+8
>> APCLDEMO	DEMO+1, DEMO+2, CHKSET+1
>> APCLGUI	PRINT+2, HEAD1+2, BDMGO+2, BDMG+1
APCLIEN	BDMG+2~, BDMG+12, BDMG+13, BDMG+14, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> APCLIOSL	PRINT+2*, PRINT+8
APCLJOB	PROC+1*, PROC+2, CHKSET+7, PRINT+4, PRINT+6, PRINT+7, DONE+3!
>> APCLNAME	PRINT+5, PRINT+6, PRINT+7, PRINT+9
>> APCLND	GETINFO+1*, HEAD1+8
APCLNOW	BDMG+2~, BDMG+5, BDMG+7, BDMG+8, ENDLOG+2, ENDLOG+3
APCLOPT	BDMG+2~, BDMG+3*, BDMG+8
>> APCLPG	PRINT+2, HEAD, HEAD1+1, HEAD1+2, HEAD1+4
>> APCLPLDX	CHKSET+6*, CHKSET+7
APCLQ	PRINT+5!, PRINT+6, PRINT+7, PRINT+8, HEAD+1*
>> APCLQUIT	START+4, GETINFO+3, R+3*
APCLREG	GETINFO+1, R+1, R+4*, REGPROC+4, CHKSET+2, HEAD1+7, BDMGO~, BDMG~
APCLSTAT	GETINFO+1, R+6, R+9, R+13, REGPROC+5, REGPROC+6, BDMGO~, BDMG~
APCLTR	GETINFO+1, GETINFO+3, PROC+4, HEAD1+7, HEAD1+8, BDMGO~, BDMG~, BDMG+1*
>> APCLX	PRINT+7*, PRINT+9
>> BDMGIEN	BDMG+14*
>> C	GUIEP+5, GUIEP+8, GUIEP+9
D	DMPROB+5~*
DA	R+7!, R+11!, BDMG+11!, GUIEP+10, ENDLOG+3, ENDLOG+5!
DD	BDMG+6!
>> DFN	REGPROC+5, REGPROC+6, CHKSET+1, CHKSET+2, CHKSET+3, CHKSET+4, CHKSET+5, CHKSET+6, CHKSET+7, PRINT+7* , PRINT+9
DFOUT	EOP+4!
DIADD	BDMG+9*, BDMG+11!
DIC	R+2, BDMG+6!, BDMG+9, BDMG+11!
DIC("A"	R+2*
DIC("DR"	BDMG+8*
DIC(0	R+2, BDMG+9
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10*
DIR	R+7!, R+11!, DONE+1!, HEAD+1!, EOP+3~
DIR("A"	R+7, R+11, DONE+1*
DIR("B"	R+7, R+11
DIR(0	R+7, R+11, DONE+1, HEAD+1, EOP+5*
DIRUT	R+8, R+12, DONE+1*, EOP+4!
DLAYGO	BDMG+9*, BDMG+11!
DLOUT	EOP+4!
DO	BDMG+6!
DR	ENDLOG+3*, ENDLOG+5!
DT	GUIEP+9
DTOUT	HEAD+1, EOP+4!
DUOUT	DONE+1, EOP+4!
DUZ	HEAD1+4, USR+1, BDMG+7, BDMG+8
DUZ(2	CHKSET+4, CHKSET+5, PRINT+9, HEAD1+5, LOC+1
E	LASTDMDX+2~, LASTDMDX+4, NUMDXS+2~, NUMDXS+4
G	DMPROB+5~, DMPROB+7, DMPROB+9
I	DMPROB+5~, DMPROB+6*, DMPROB+7
IO	DONE+1, HEAD+1
IO("S"	EOP+2
IO(0	DONE+1, HEAD+1
IOF	INFORM+1, DONE+2, HEAD1+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+2
IOST	DONE+1, HEAD+1, EOP+1
>> IOT	EOP+2
P	LASTDMDX~, LASTDMDX+1, LASTDMDX+4, NUMDXS~, NUMDXS+1, NUMDXS+4, DMPROB~, DMPROB+1, DMPROB+2, DMPROB+5
T	DMPROB+3~*, DMPROB+4, DMPROB+7
U	LASTDMDX+5, REGPROC+5, REGPROC+6, CHKSET+4, CHKSET+5, CHKSET+7, DMPROB+6, PRINT+9, HEAD1+4, HEAD1+5 , HEAD1+7, USR+1, LOC+1
X	LASTDMDX+2~, LASTDMDX+4, NUMDXS+2~, NUMDXS+4, NUMDXS+5, NUMDXS+6, REGPROC+4, REGPROC+5, REGPROC+6, CTR~ , CTR+1, BDMG+7, GUIEP+5*, GUIEP+6, GUIEP+8
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	R+3, R+4, R+9, R+13, LASTDMDX+2~, LASTDMDX+3, LASTDMDX+4, NUMDXS+2~, NUMDXS+3, NUMDXS+4 , NUMDXS+5, NUMDXS+6, NUMDXS+7, DMPROB+5~*, DMPROB+6, HEAD+1, CTR~, CTR+1, BDMG+12, BDMG+13
>> ZTDESC	BDMG+18*
>> ZTDTH	BDMG+18*
>> ZTIO	BDMG+18*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+18*
ZTSAVE	BDMG+16!
ZTSAVE("*"	BDMG+16*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDR2

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: