Routine: APCLD214

Package	Total	Call Graph
Patient Care Component Reports	2	($$CMSFDX,$$PLDMDOO)^APCLD217 ^APCLD21A
VA Fileman	2	COMMA^%DTC ^DIR
IHS Patient	1	$$AGE^AUPNPAT
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLD215 APCLD21P

Name	Comments	DBIA/ICR reference
BPC	;
CUML	;EP
PRINT	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
D(D)	;
TOB	;
DURDM(P,R,EDATE)	;EP
TX	;
WTCNTL	;
CTR(X,Y)	;EP - Center X in a field Y wide.
BSC	;
OB(APCLPD,BMI,D)	;EP obese
HEADER	;EP
C(X,X2,X3)	;
DMDUR	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
P(D,N)	;return %
PRINT1	;
HEADER1	;
EXIT	;
CALC(N,O)	;ENTRY POINT
TYPE	;
OW(APCLPD,BMI,D)	;EP overweight

Name	Field # of Occurrence
COMMA^%DTC	CALC+6, CALC+7, C+3
$$CMSFDX^APCLD217	DURDM+3
$$PLDMDOO^APCLD217	DURDM+5
^APCLD21A	TX+13
$$AGE^AUPNPAT	OB+4, OW+4
^DIR	EXIT+1, HEADER+2, EOP+5
$$FMDIFF^XLFDT	DURDM+4, DURDM+6
$$FMTE^XLFDT	HEADER1+2, HEADER1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(APCLCUML(10),U),!,?7,"Female",?53,$$C($P(APCLCUML(10),U,3)),?65,$$P($P(APCLCUML(10),U,2),$P(APCLCUML(10),U,3)) Line Location: PRINT1+1
Function Call: WRITE	Prompt: !,?7,"Male",?53,$$C($P(APCLCUML(10),U,4)),?65,$$P($P(APCLCUML(10),U,2),$P(APCLCUML(10),U,4)) Line Location: PRINT1+2
Function Call: WRITE	Prompt: !!,"Age" Line Location: PRINT1+4
Function Call: WRITE	Prompt: !?7,"<15 yrs",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: PRINT1+5
Function Call: WRITE	Prompt: !?7,"15-44 yrs",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: PRINT1+6
Function Call: WRITE	Prompt: !?7,"45-64 yrs",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: PRINT1+7
Function Call: WRITE	Prompt: !?7,"65 yrs and older",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6)) Line Location: PRINT1+8
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TYPE+3
Function Call: WRITE	Prompt: !?7,"Type 1",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: TYPE+4
Function Call: WRITE	Prompt: !?7,"Type 2",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: TYPE+5
Function Call: WRITE	Prompt: !?7,"Unknown",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: TYPE+6
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: DMDUR+2
Function Call: WRITE	Prompt: !?7,"Less than 10 years",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: DMDUR+3
Function Call: WRITE	Prompt: !?7,"10 years or more",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: DMDUR+4
Function Call: WRITE	Prompt: !?7,"Diagnosis date not recorded",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: DMDUR+5
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: WTCNTL+2
Function Call: WRITE	Prompt: !?7,"Overweight or Obese (BMI>85%ile)",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: WTCNTL+3
Function Call: WRITE	Prompt: !?7,"Obese (BMI>95%ile)",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: WTCNTL+4
Function Call: WRITE	Prompt: !?7,"BMI could not be calculated",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: WTCNTL+5
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: BSC+2
Function Call: WRITE	Prompt: !?7,"HbA1c <7.0",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: BSC+3
Function Call: WRITE	Prompt: !?7,"HbA1c 7.0-7.9",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: BSC+4
Function Call: WRITE	Prompt: !?7,"HbA1c 8.0-8.9",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: BSC+5
Function Call: WRITE	Prompt: !?7,"HbA1c 9.0-9.9",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6)) Line Location: BSC+6
Function Call: WRITE	Prompt: !?7,"HbA1c 10.0-10.9",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7)) Line Location: BSC+7
Function Call: WRITE	Prompt: !?7,"HbA1c 11.0 or higher",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8)) Line Location: BSC+8
Function Call: WRITE	Prompt: !?7,"Undocumented",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,2),$P(V,U,9)) Line Location: BSC+9
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: BPC+2
Function Call: WRITE	Prompt: !?7,"Ideal BP Control (<120/<80)",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: BPC+3
Function Call: WRITE	Prompt: !?7,"Target (120/80-<130/<85)",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: BPC+4
Function Call: WRITE	Prompt: !?7,"Adequate (130/85-<140/<90)",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: BPC+5
Function Call: WRITE	Prompt: !?7,"Inadequate (140/90-<160/<95)",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6)) Line Location: BPC+6
Function Call: WRITE	Prompt: !?7,"Markedly Poor (160/95 or higher)",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7)) Line Location: BPC+7
Function Call: WRITE	Prompt: !?7,"BP Control Undetermined",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8)) Line Location: BPC+8
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TOB+2
Function Call: WRITE	Prompt: !?7,"Current Tobacco User",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: TOB+3
Function Call: WRITE	Prompt: !?9,"Counseled - Yes",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,3),$P(V,U,4)) Line Location: TOB+4
Function Call: WRITE	Prompt: !?9,"Counseled - No",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,3),$P(V,U,5)) Line Location: TOB+5
Function Call: WRITE	Prompt: !?7,"Not a current tobacco user",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6)) Line Location: TOB+6
Function Call: WRITE	Prompt: !?7,"Tobacco use not documented",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7)) Line Location: TOB+7
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TX+2
Function Call: WRITE	Prompt: !?7,"Diet and Exercise Alone",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: TX+3
Function Call: WRITE	Prompt: !?7,"Insulin",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: TX+4
Function Call: WRITE	Prompt: !?7,"Oral Med (monotherapy)" Line Location: TX+5
Function Call: WRITE	Prompt: !?10,"Sulfonylurea",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: TX+6
Function Call: WRITE	Prompt: !?10,"Metformin",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6)) Line Location: TX+7
Function Call: WRITE	Prompt: !?10,"Acarbose",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7)) Line Location: TX+8
Function Call: WRITE	Prompt: !?10,"Glitazone",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8)) Line Location: TX+9
Function Call: WRITE	Prompt: !?7,"Combination of Oral Meds",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,2),$P(V,U,9)) Line Location: TX+10
Function Call: WRITE	Prompt: !?7,"Combination of Oral Meds+Insulin",?53,$$C($P(V,U,10)),?65,$$P($P(V,U,2),$P(V,U,10)) Line Location: TX+11
Function Call: WRITE	Prompt: !?7,"Refused or Undetermined",?53,$$C($P(V,U,11)),?65,$$P($P(V,U,2),$P(V,U,11)) Line Location: TX+12
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* HEALTH STATUS OF DIABETIC PATIENTS *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U)),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+6
Function Call: WRITE	Prompt: !!,$P(APCLCUML(10),U,2)," patients were reviewed" Line Location: HEADER1+7
Function Call: WRITE	Prompt: ?55," n",?63,"Percent" Line Location: HEADER1+8
Routine Call	DIR Line Location: EXIT+1 HEADER+2 EOP+5

Name	Line Occurrences (* Changed, ! Killed)
^APCLBMI - [#9001003.9]	OB+7, OB+8, OW+7, OW+8
^APCLBMI("H"	OB+5, OW+5
^DIC(4 - [#4]	HEADER1+4, LOC+1
^DPT - [#2]	OB+2, OW+2
^VA(200 - [#200]	HEADER1+2, USR+1

Name	Line Occurrences
$$C	PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, TYPE+4, TYPE+5, TYPE+6, DMDUR+3 , DMDUR+4, DMDUR+5, WTCNTL+3, WTCNTL+4, WTCNTL+5, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7 , BSC+8, BSC+9, BPC+3, BPC+4, BPC+5, BPC+6, BPC+7, BPC+8, TOB+3, TOB+4 , TOB+5, TOB+6, TOB+7, TX+3, TX+4, TX+6, TX+7, TX+8, TX+9, TX+10 , TX+11, TX+12
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5
$$P	PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, TYPE+4, TYPE+5, TYPE+6, DMDUR+3 , DMDUR+4, DMDUR+5, WTCNTL+3, WTCNTL+4, WTCNTL+5, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7 , BSC+8, BSC+9, BPC+3, BPC+4, BPC+5, BPC+6, BPC+7, BPC+8, TOB+3, TOB+4 , TOB+5, TOB+6, TOB+7, TX+3, TX+4, TX+6, TX+7, TX+8, TX+9, TX+10 , TX+11, TX+12
EXIT	PRINT+5
HEADER	PRINT+3, PRINT1+3, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TOB+1, TX+1
HEADER1	HEADER+1
PRINT1	PRINT+4

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	OB+4~, OB+5, OW+4~, OW+5
>> APCLADAT	HEADER1+5
>> APCLBDAT	HEADER1+5
>> APCLCUML	CUML+1
>> APCLCUML(10	PRINT1+1, PRINT1+2, HEADER1+7
>> APCLCUML(20	PRINT1+4
>> APCLCUML(25	TYPE+2
>> APCLCUML(30	DMDUR+2
>> APCLCUML(40	WTCNTL+2
>> APCLCUML(50	BSC+2
>> APCLCUML(60	BPC+2
>> APCLCUML(80	TOB+2
>> APCLCUML(90	TX+2
APCLPD	OB~, OB+2, OB+4, OW~, OW+2, OW+4
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
>> APCLQUIT	PRINT+2, PRINT1+3, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TOB+1, TX+1, HEADER+2
BMI	OB~, OB+1, OB+7, OB+8, OW~, OW+1, OW+7, OW+8
D	D~, D+1, D+2, OB~, OB+4, OW~, OW+4, P~, P+1, P+3
DATE	DURDM+1~, DURDM+2, DURDM+3, DURDM+4, DURDM+5*, DURDM+6
DFOUT	EOP+4!
DIR	EXIT+1!, HEADER+2!, EOP+3~
DIR("A"	EXIT+1*
DIR(0	EXIT+1, HEADER+2, EOP+5*
DIRUT	EXIT+1*, EOP+4!
DLOUT	EOP+4!
DT	HEADER1+2
DTOUT	HEADER+2, EOP+4!
DUOUT	EXIT+1, EOP+4!
DUZ	HEADER1+2, USR+1
DUZ(2	HEADER1+4, LOC+1
EDATE	DURDM~, DURDM+4, DURDM+6
IO	EXIT+1, HEADER+2
IO("S"	EOP+2
IO(0	EXIT+1, HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	PRINT1+3, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TOB+1, TX+1
IOST	EXIT+1, HEADER+2, EOP+1
>> IOT	EOP+2
N	CALC~, CALC+4, CALC+6*, CALC+8, P~, P+2, P+3
O	CALC~, CALC+4, CALC+7*, CALC+8
P	DURDM~, DURDM+3, DURDM+5
R	DURDM~, DURDM+3, OB+5~, OB+6, OB+7, OB+8, OW+5~, OW+6, OW+7, OW+8
S	OB+2~, OB+3, OB+5, OW+2~, OW+3, OW+5
U	OB+2, OB+7, OB+8, OW+2, OW+7, OW+8, PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6 , PRINT1+7, PRINT1+8, TYPE+3, TYPE+4, TYPE+5, TYPE+6, DMDUR+2, DMDUR+3, DMDUR+4, DMDUR+5 , WTCNTL+2, WTCNTL+3, WTCNTL+4, WTCNTL+5, BSC+2, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7 , BSC+8, BSC+9, BPC+2, BPC+3, BPC+4, BPC+5, BPC+6, BPC+7, BPC+8, TOB+2 , TOB+3, TOB+4, TOB+5, TOB+6, TOB+7, TX+2, TX+3, TX+4, TX+6, TX+7 , TX+8, TX+9, TX+10, TX+11, TX+12, HEADER1+2, HEADER1+4, HEADER1+7, USR+1, LOC+1
>> V	PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, TYPE+2, TYPE+3, TYPE+4, TYPE+5, TYPE+6 , DMDUR+2, DMDUR+3, DMDUR+4, DMDUR+5, WTCNTL+2, WTCNTL+3, WTCNTL+4, WTCNTL+5, BSC+2, BSC+3 , BSC+4, BSC+5, BSC+6, BSC+7, BSC+8, BSC+9, BPC+2, BPC+3, BPC+4, BPC+5 , BPC+6, BPC+7, BPC+8, TOB+2, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7, TX+2 , TX+3, TX+4, TX+6, TX+7, TX+8, TX+9, TX+10, TX+11, TX+12
X	CALC+5~, CALC+6, CALC+7, P+3~, P+4, C~, C+4, HEADER1+5, CTR~, CTR+1
X2	CALC+5~, CALC+6, CALC+7, C~, C+1*
X3	CALC+5~, CALC+6, CALC+7, C~, C+2*
Y	HEADER+2, CTR~, CTR+1
Z	CALC+3~, CALC+8*, CALC+9
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLD214

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: