Routine: APCLDR3

Package	Total	Call Graph
VA Fileman	6	(COMMA,NOW)^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	5	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK GUIR^XBLM EN^XBVK
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU
Patient Care Component Reports	3	HEAD^APCLDR31 XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	($$COMMRES,$$DOD,KILL)^AUPNPAT

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLDR31

Entry Points

Name	Comments	DBIA/ICR reference
PER(N,D)	;n=numerator, d=denominator
REGPROC	;
DEMO	;
PCP	;
DATE(B)	;
FINTOT1	;
GUIEP	;EP
FINH	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
EDATE	;get visit date range for functional assessment
SUBTOT	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
FINLDL	;
INFORM	;
CHKSET	;
ZIS	;call to XBDBQUE
FINBP	;
ENDLOG	;-- write the end of the log
START	;
R	;
C(X,X2,X3)	;
W	;
POST	;EP
GETINFO	;
BDMG(APCLREG,APCLSTAT,APCLPCP,APCLED,APCLSTAR)	;EP - GUI DMS Entry Point
FINTOT	;EP
EXIT	;clean up and exit
TEST	;
PROC	;EP - called from XBDBQUE

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
NOW^%DTC	BDMG+9, ENDLOG+1
^%ZTLOAD	BDMG+23
HEAD^APCLDR31	SUBTOT+3, FINTOT1+3, FINTOT1+9, FINTOT1+11, FINTOT1+13, FINTOT1+15, FINTOT1+17, FINTOT1+19, FINTOT1+21, FINTOT1+23 , FINBP+1, FINBP+3, FINBP+5, FINBP+7, FINBP+9, FINBP+11, FINBP+13, FINLDL+1, FINLDL+3, FINLDL+5 , FINLDL+7, FINLDL+9, FINLDL+11, FINLDL+13
XTMP^APCLOSUT	PROC+3
$$DEMO^APCLUTL	CHKSET+2
DEMOCHK^APCLUTL	DEMO+1
$$COMMRES^AUPNPAT	CHKSET+6
$$DOD^AUPNPAT	CHKSET+1
KILL^AUPNPAT	EXIT+4
^DIC	R+3, PCP+5
FILE^DICN	BDMG+15
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10
^DIR	R+8, R+12, PCP+2, EDATE+3, EOP+5
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	CHKSET+4
$$VALI^XBDIQ1	CHKSET+5
^XBFMK	EXIT+3, BDMG+20
GUIR^XBLM	GUIEP+4
EN^XBVK	EXIT+2
$$FMADD^XLFDT	EDATE+4, EDATE+5, BDMG+4, BDMG+5
$$FMTE^XLFDT	EDATE+3, BDMG+2
$$NOW^XLFDT	BDMG+23
$$ADD^XPDMENU	POST+1

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",!,"that you select.",!,"The following data items will be printed for each patient: Name, HRN, DOB",!,"Community of Residence.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"For each of the following tests the last value in the 4 months prior to the",!,"as of date you enter and the next most recent prior to that one will be",!,"displayed:" Line Location: INFORM+5
Function Call: WRITE	Prompt: !?5,"Hbg A1C, BP, Total Cholesterol, HDL, LDL",!! Line Location: INFORM+6
Function Call: WRITE	Prompt: !!,"Patients must be a member of the Diabetes Register in order to be included in",!,"this report.",! Line Location: R+1
Function Call: WRITE	Prompt: !,"No register selected." Line Location: R+4
Function Call: WRITE	Prompt: ! Line Location: EDATE+2
Function Call: WRITE	Prompt: "Attempt to add Patients w/selected values in 4 months option failed.." Line Location: POST+2
Function Call: WRITE	Prompt: !,"Subtotals for "_$E(APCLP,1,16)_": ",?37,"# Patients",?50," # w/item done",?70,"%" Line Location: SUBTOT+4
Function Call: WRITE	Prompt: !?2,"Last Clinic Visit",?38,$J($$C(APCLSTOT(0),0,8),9),?52,$J($$C($G(APCLSTOT(1)),0,8),9) Line Location: SUBTOT+5
Function Call: WRITE	Prompt: ?67,$J(X,6,2) Line Location: SUBTOT+7
Function Call: WRITE	Prompt: !?2,"Blood Pressure",?38,$J($$C(APCLSTOT(0),0,8),9),?52,$J($$C($G(APCLSTOT(2)),0,8),9) Line Location: SUBTOT+8
Function Call: WRITE	Prompt: ?67,$J(X,6,2) Line Location: SUBTOT+10
Function Call: WRITE	Prompt: !?2,"HGB A1C",?38,$J($$C(APCLSTOT(0),0,8),9),?52,$J($$C($G(APCLSTOT(3)),0,8),9) Line Location: SUBTOT+11
Function Call: WRITE	Prompt: ?67,$J(X,6,2) Line Location: SUBTOT+13
Function Call: WRITE	Prompt: !?2,"Total Cholesterol",?38,$J($$C(APCLSTOT(0),0,8),9),?52,$J($$C($G(APCLSTOT(4)),0,8),9) Line Location: SUBTOT+14
Function Call: WRITE	Prompt: ?67,$J(X,6,2) Line Location: SUBTOT+16
Function Call: WRITE	Prompt: !?2,"LDL Cholesterol",?38,$J($$C(APCLSTOT(0),0,8),9),?52,$J($$C($G(APCLSTOT(5)),0,8),9) Line Location: SUBTOT+17
Function Call: WRITE	Prompt: ?67,$J(X,6,2) Line Location: SUBTOT+19
Function Call: WRITE	Prompt: !?2,"HDL Cholesterol",?38,$J($$C(APCLSTOT(0),0,8),9),?52,$J($$C($G(APCLSTOT(6)),0,8),9) Line Location: SUBTOT+20
Function Call: WRITE	Prompt: ?67,$J(X,6,2) Line Location: SUBTOT+22
Function Call: WRITE	Prompt: !,$$CTR("Value Totals/Comparisons for: "_APCLP,80),! Line Location: FINH+1
Function Call: WRITE	Prompt: !?35,"PROVIDER SPECIFIC",?56,"TOTAL REGISTER",! Line Location: FINH+2
Function Call: WRITE	Prompt: ?35,"# pats",?48,"%",?56,"# pats",?68,"%",! Line Location: FINH+3
Function Call: WRITE	Prompt: !,"Total Number of Patients",?33,$J($$C(APCLTOPP,0,8),9),?53,$J($$C(APCLTOTP,0,8),9),! Line Location: FINTOT1+7
Function Call: WRITE	Prompt: !,"Blood Glucose Control" Line Location: FINTOT1+8
Function Call: WRITE	Prompt: !?2,"HbA1c <7.0" Line Location: FINTOT1+10
Function Call: WRITE	Prompt: !?8,"7.0-7.9" Line Location: FINTOT1+12
Function Call: WRITE	Prompt: !?8,"8.0-8.9" Line Location: FINTOT1+14
Function Call: WRITE	Prompt: !?8,"9.0-9.9" Line Location: FINTOT1+16
Function Call: WRITE	Prompt: !?8,"10.0-10.9" Line Location: FINTOT1+18
Function Call: WRITE	Prompt: !?8,"11.0 or higher" Line Location: FINTOT1+20
Function Call: WRITE	Prompt: !?8,"Tested but no value" Line Location: FINTOT1+22
Function Call: WRITE	Prompt: !?8,"Not tested in 4 months" Line Location: FINTOT1+24
Function Call: WRITE	Prompt: !!,"Blood Pressure Control" Line Location: FINBP+2
Function Call: WRITE	Prompt: !?8,"<120/80" Line Location: FINBP+4
Function Call: WRITE	Prompt: !?8,"120/80-<130/85" Line Location: FINBP+6
Function Call: WRITE	Prompt: !?8,"130/85-<140/90" Line Location: FINBP+8
Function Call: WRITE	Prompt: !?8,"140/90-<160/95" Line Location: FINBP+10
Function Call: WRITE	Prompt: !?8,"160/95 or higher" Line Location: FINBP+12
Function Call: WRITE	Prompt: !?8,"Not tested in 4 months" Line Location: FINBP+14
Function Call: WRITE	Prompt: !!,"LDL Cholesterol" Line Location: FINLDL+2
Function Call: WRITE	Prompt: !?8,"<100 mg/dl" Line Location: FINLDL+4
Function Call: WRITE	Prompt: !?8,"100-129 mg/dl" Line Location: FINLDL+6
Function Call: WRITE	Prompt: !?8,"130-160 mg/dl" Line Location: FINLDL+8
Function Call: WRITE	Prompt: !?8,">160 mg/dl" Line Location: FINLDL+10
Function Call: WRITE	Prompt: !?8,"Tested but no value" Line Location: FINLDL+12
Function Call: WRITE	Prompt: !?8,"Not tested in 15 months" Line Location: FINLDL+14
Function Call: WRITE	Prompt: ?33,$J($$C(APCLPN,0,8),9),?45,$$PER(APCLPN,APCLTOPP),?53,$J($$C(APCLTN,0,8),9),?65,$$PER(APCLTN,APCLTOTP) Line Location: W+1
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: R+3 PCP+5
Routine Call	DIR Line Location: R+8 R+12 PCP+2 EDATE+3 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+1, REGPROC+2, REGPROC+3
^APCLGUIR - [#9001004.4]	GUIEP+8, GUIEP+9
^DD(9000001	PCP+5
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	CHKSET+7
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200]	USR+1
^XTMP("APCLDR3"	PROC+2!, CHKSET+7*

Label References

Name	Line Occurrences
$$C	SUBTOT+5, SUBTOT+8, SUBTOT+11, SUBTOT+14, SUBTOT+17, SUBTOT+20, FINTOT1+7, W+1
$$CTR	INFORM+2, INFORM+3, FINH+1
$$LOC	INFORM+2
$$PER	W+1
$$USR	INFORM+3
BDMG	TEST+1
CHKSET	REGPROC+2, REGPROC+3
EDATE	PCP+4, DEMO+2
ENDLOG	GUIEP+11
EXIT	START+2, START+4, DEMO+5, BDMG+24, GUIEP+13
FINH	FINTOT1+5, FINTOT1+9, FINTOT1+11, FINTOT1+13, FINTOT1+15, FINTOT1+17, FINTOT1+19, FINTOT1+21, FINTOT1+23, FINBP+1 , FINBP+3, FINBP+5, FINBP+7, FINBP+9, FINBP+11, FINBP+13, FINLDL+1, FINLDL+3, FINLDL+5, FINLDL+7 , FINLDL+9, FINLDL+11, FINLDL+13
FINTOT1	FINTOT+4
GETINFO	START+3
INFORM	START+1
PCP	R+10, PCP+6, EDATE+3
PROC	GUIEP+1
R	R+9, R+13, PCP+3
REGPROC	PROC+4
W	FINTOT1+10, FINTOT1+12, FINTOT1+14, FINTOT1+16, FINTOT1+18, FINTOT1+20, FINTOT1+22, FINTOT1+24, FINBP+4, FINBP+6 , FINBP+8, FINBP+10, FINBP+12, FINBP+14, FINLDL+4, FINLDL+6, FINLDL+8, FINLDL+10, FINLDL+12, FINLDL+14
ZIS	START+5

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+10, ENDLOG+2
A	EXIT+1!
>> APCLBD	EDATE+4, EDATE+5, BDMG+4, BDMG+5
>> APCLBTH	PROC+1*, PROC+2, CHKSET+7
>> APCLDATA	GUIEP+6, GUIEP+7, GUIEP+8
>> APCLDEMO	DEMO+1, DEMO+2, CHKSET+2
APCLED	EDATE+1, EDATE+3, EDATE+4, BDMG~, BDMG+2, BDMG+4
>> APCLEDD	EDATE+3, BDMG+2
>> APCLFINL	FINTOT+1*
>> APCLGUI	BDMG+3*
APCLIEN	BDMG+7~, BDMG+17, BDMG+18, BDMG+19, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> APCLIOSL	SUBTOT+3, FINTOT1+9, FINTOT1+11, FINTOT1+13, FINTOT1+15, FINTOT1+17, FINTOT1+19, FINTOT1+21, FINTOT1+23, FINBP+1 , FINBP+3, FINBP+5, FINBP+7, FINBP+9, FINBP+11, FINBP+13, FINLDL+1, FINLDL+3, FINLDL+5, FINLDL+7 , FINLDL+9, FINLDL+11, FINLDL+13
>> APCLJOB	PROC+1*, PROC+2, CHKSET+7
APCLNOW	BDMG+7~, BDMG+10, BDMG+12, BDMG+13, ENDLOG+2, ENDLOG+3
APCLOPT	BDMG+7~, BDMG+8*, BDMG+13
>> APCLP	SUBTOT+4, FINH+1, FINTOT+3*, FINTOT+4, FINTOT1+6, FINTOT1+10, FINTOT1+12, FINTOT1+14, FINTOT1+16, FINTOT1+18 , FINTOT1+20, FINTOT1+22, FINTOT1+24, FINBP+4, FINBP+6, FINBP+8, FINBP+10, FINBP+12, FINBP+14, FINLDL+4 , FINLDL+6, FINLDL+8, FINLDL+10, FINLDL+12, FINLDL+14
>> APCLP1	FINTOT+4*, FINTOT1+1, FINTOT1+6, FINTOT1+10, FINTOT1+12, FINTOT1+14, FINTOT1+16, FINTOT1+18, FINTOT1+20, FINTOT1+22 , FINTOT1+24, FINBP+4, FINBP+6, FINBP+8, FINBP+10, FINBP+12, FINBP+14, FINLDL+4, FINLDL+6, FINLDL+8 , FINLDL+10, FINLDL+12, FINLDL+14
APCLPCP	PCP+1, PCP+7, FINTOT1+1, BDMG~, BDMG+6*
>> APCLPN	FINTOT1+10, FINTOT1+12, FINTOT1+14, FINTOT1+16, FINTOT1+18, FINTOT1+20, FINTOT1+22, FINTOT1+24, FINBP+4, FINBP+6 , FINBP+8, FINBP+10, FINBP+12, FINBP+14, FINLDL+4, FINLDL+6, FINLDL+8, FINLDL+10, FINLDL+12, FINLDL+14 , W+1
>> APCLQ	SUBTOT+3, FINTOT+3, FINTOT1+4, FINTOT1+9, FINTOT1+11, FINTOT1+13, FINTOT1+15, FINTOT1+17, FINTOT1+19, FINTOT1+21 , FINTOT1+23, FINBP+1, FINBP+3, FINBP+5, FINBP+7, FINBP+9, FINBP+11, FINBP+13, FINLDL+1, FINLDL+3 , FINLDL+5, FINLDL+7, FINLDL+9, FINLDL+11, FINLDL+13
>> APCLQUIT	START+4, R+4*
APCLREG	R+2, R+5, REGPROC+1, BDMG~
>> APCLSD	EDATE+5, BDMG+5
APCLSTAR	R+14*, BDMG~
APCLSTAT	R+7, R+10, R+14*, REGPROC+2, REGPROC+3, BDMG~
>> APCLSTOT(0	SUBTOT+5, SUBTOT+6, SUBTOT+8, SUBTOT+9, SUBTOT+11, SUBTOT+12, SUBTOT+14, SUBTOT+15, SUBTOT+17, SUBTOT+18 , SUBTOT+20, SUBTOT+21
>> APCLSTOT(1	SUBTOT+5, SUBTOT+6
>> APCLSTOT(2	SUBTOT+8, SUBTOT+9
>> APCLSTOT(3	SUBTOT+11, SUBTOT+12
>> APCLSTOT(4	SUBTOT+14, SUBTOT+15
>> APCLSTOT(5	SUBTOT+17, SUBTOT+18
>> APCLSTOT(6	SUBTOT+20, SUBTOT+21
APCLSUB	SUBTOT+2*, SUBTOT+23!
>> APCLTBP	FINBP+4, FINBP+6, FINBP+8, FINBP+10, FINBP+12, FINBP+14
>> APCLTBP(	FINBP+4, FINBP+6, FINBP+8, FINBP+10, FINBP+12, FINBP+14
>> APCLTHGB	FINTOT1+6, FINTOT1+10, FINTOT1+12, FINTOT1+14, FINTOT1+16, FINTOT1+18, FINTOT1+20, FINTOT1+22, FINTOT1+24
>> APCLTHGB(	FINTOT+3, FINTOT+4, FINTOT1+6, FINTOT1+10, FINTOT1+12, FINTOT1+14, FINTOT1+16, FINTOT1+18, FINTOT1+20, FINTOT1+22 , FINTOT1+24
>> APCLTLDL	FINLDL+4, FINLDL+6, FINLDL+8, FINLDL+10, FINLDL+12, FINLDL+14
>> APCLTLDL(	FINLDL+4, FINLDL+6, FINLDL+8, FINLDL+10, FINLDL+12, FINLDL+14
>> APCLTN	FINTOT1+10, FINTOT1+12, FINTOT1+14, FINTOT1+16, FINTOT1+18, FINTOT1+20, FINTOT1+22, FINTOT1+24, FINBP+4, FINBP+6 , FINBP+8, FINBP+10, FINBP+12, FINBP+14, FINLDL+4, FINLDL+6, FINLDL+8, FINLDL+10, FINLDL+12, FINLDL+14 , W+1
>> APCLTOPP	FINTOT1+6*, FINTOT1+7, W+1
>> APCLTOTP	FINTOT1+6*, FINTOT1+7, W+1
>> APCLWR	SUBTOT+1
B	EXIT+1!, DATE~, DATE+1, DATE+2
>> BDMGIEN	BDMG+19*
C	EXIT+1!, CHKSET+6, CHKSET+7, GUIEP+5, GUIEP+8*, GUIEP+9
D	PER~, PER+1, PER+2, PER+4
DA	R+8!, R+12!, PCP+2!, BDMG+16!, GUIEP+10, ENDLOG+3, ENDLOG+5!
DD	BDMG+11!
>> DFN	REGPROC+2, REGPROC+3, CHKSET+1, CHKSET+2, CHKSET+4, CHKSET+5, CHKSET+6, CHKSET+7
DFOUT	EOP+4!
DIADD	BDMG+14*, BDMG+16!
DIC	R+3, PCP+5!, BDMG+11!, BDMG+14*, BDMG+16!
DIC("A"	R+3*
DIC("DR"	BDMG+13*
DIC(0	R+3, PCP+5, BDMG+14*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10*
DIR	R+8!, R+12!, PCP+2!, EDATE+2!, EDATE+3!, EOP+3~
DIR("A"	R+8, R+12, PCP+2, EDATE+2
DIR("B"	R+8, R+12, PCP+2*
DIR(0	R+8, R+12, PCP+2, EDATE+2, EOP+5*
DIRUT	R+9, R+13, PCP+3, EOP+4!
DLAYGO	BDMG+14*, BDMG+16!
DLOUT	EOP+4!
DO	BDMG+11!
DR	ENDLOG+3*, ENDLOG+5!
DT	TEST+1, GUIEP+9
DTOUT	EOP+4!
DUOUT	EOP+4!
DUZ	USR+1, BDMG+12, BDMG+13
DUZ(2	LOC+1
IO("S"	EOP+2
IOF	INFORM+1
IOM	CTR+1, GUIEP+3*
IOST	EOP+1
>> IOT	EOP+2
N	PER~, PER+4
P	EXIT+1!, CHKSET+4*, CHKSET+7
>> P1	CHKSET+5*, CHKSET+7
U	PCP+5, REGPROC+2, REGPROC+3, CHKSET+7, USR+1, LOC+1, FINTOT1+6, FINTOT1+10, FINTOT1+12, FINTOT1+14 , FINTOT1+16, FINTOT1+18, FINTOT1+20, FINTOT1+22, FINTOT1+24, FINBP+4, FINBP+6, FINBP+8, FINBP+10, FINBP+12 , FINBP+14, FINLDL+4, FINLDL+6, FINLDL+8, FINLDL+10, FINLDL+12, FINLDL+14
X	EXIT+1!, REGPROC+1, REGPROC+2, REGPROC+3, C~, C+2, CTR~, CTR+1, POST+1, POST+2 , SUBTOT+6, SUBTOT+7, SUBTOT+9, SUBTOT+10, SUBTOT+12, SUBTOT+13, SUBTOT+15, SUBTOT+16, SUBTOT+18, SUBTOT+19 , SUBTOT+21, SUBTOT+22, PER+3~, PER+4, PER+5, BDMG+12, GUIEP+5*, GUIEP+6, GUIEP+8
X2	C~
X3	C~
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	R+4, R+5, R+10, R+14, PCP+4, PCP+6, PCP+7, EDATE+3, EXIT+1!, CTR~ , CTR+1, PER+3~, BDMG+17, BDMG+18
Y(0	R+14
Z	PER+3~
>> ZTDESC	BDMG+23*
>> ZTDTH	BDMG+23*
>> ZTIO	BDMG+23*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+23*
ZTSAVE	BDMG+21!
ZTSAVE("*"	BDMG+21*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDR3

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: