Routine: APCLCARP

Package	Total	Call Graph
Patient Care Component Reports	2	^APCLCARQ PCPT^APCLCART
VA Fileman	2	COMMA^%DTC ^DIR
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
AGE	;
67	;;Psychiatrist
60	;;Physicians
61	;;Physician Assistants
USR()	;EP - Return name of current user from ^VA(200.
63	;;Certified Nurse Midwives
64	;;Visiting Nurses
65	;;Dentists
66	;;Registered Dental Hygenists (Alternative Practice)
ETHNIC	;
PRINT	;
69	;;Licensed Clinical Social Worker (LCSW)
80	;;Registered Dental Hygenists
81	;;Registered Dental Assistants
HEADER21	;
87	;;Non-Licensed Patient Education Staff
84	;;Registered Nurses
85	;;Licensed Vocational Nurses
PRINT1	;
86	;;Medical Assistants - Not licensed
20	;;Family Planning S-codes
21	;;Other
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
82	;;Dental Assistants - Not licensed
88	;;Substance Abuse Counselors
1	;;Infectious and Parasitic Diseases;;001-139
3	;;Endocrine, Nutritional, Metabolic, Immunity;;240-279
RACE	;
POVERTY	;
4	;;Blood and Blood Forming Disorders;;280-289
7	;;Circulatory System Diseases;;390-459
6	;;Nervous System and Sense Organs Diseases;;320-389
9	;;Digestive System Diseases;;530-579
5	;;Mental Disorders;;290-319
68	;;Clincial Psychologist
11	;;Pregnancy, Childbirth & the Puerperium;;630-679
89	;;Billing Staff
HEADERUN	;
83	;;Marriage and Family Therapists (MFT)
13	;;Musculoskeletal and Connective Tissue Dis;;710-739
V(R,N,P)	;
15	;;Certain Conditions Originating/Perinatal;;760-779
HEADER	;EP
74	;;Other Certified CPSP providers not listed above
SECT21	;
C(X,X2,X3)	;
70	;;Other Providers billable to Medi-Cal**
90	;;Other Administrative Staff
94	;;Other Providers not listed above
2	;;Neoplasms;;140-239
10	;;Geniourinary System Diseases;;580-629
SECT4	;
SECT5	;
SECT2	;
14	;;Congenital Anomalies;;740-759
17	;;Injury and Poisoning;;800-999
16	;;Symptoms, Signs, and Ill-defined Cond;;780-799
19	;;Dental Diagnoses;;Clinic=56
18	;;Factors Influencing Health Status;;V01-V89
62	;;Family Nurse Practitioners
HEADER2	;
HEADER3	;
HEADER1	;
EXIT	;
CALC(N,O)	;ENTRY POINT
12	;;Skin and Subcutaneous Tissue Diseases;;680-709
8	;;Respiratory System Diseases;;460-519

External References

Name	Field # of Occurrence
COMMA^%DTC	CALC+6, CALC+7, C+1
^APCLCARQ	SECT5+1
PCPT^APCLCART	SECT5+3
^DIR	EXIT+1, HEADER+2
$$VAL^XBDIQ1	SECT21+21
$$FMTE^XLFDT	HEADER1+2, HEADER1+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: SECT2+9
Function Call: WRITE	Prompt: !?1,"75",?5,"Totals",?60,$$C($P($G(^XTMP("APCLCAR",APCLJ,APCLH,2)),U,14),0,8) Line Location: SECT2+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: SECT21+10
Function Call: WRITE	Prompt: !?1,"90",?5,"Totals",?60,$$C($P($G(^XTMP("APCLCAR",APCLJ,APCLH,2)),U,30),0,8) Line Location: SECT21+11
Function Call: WRITE	Prompt: !!,"PATIENT DEMOGRAPHICS - SECTION 3" Line Location: RACE+3
Function Call: WRITE	Prompt: !!,"RACE",!,"LINE",?45,"(1)" Line Location: RACE+4
Function Call: WRITE	Prompt: !,"NO.",?40,"No. of Patients" Line Location: RACE+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: RACE+6
Function Call: WRITE	Prompt: !?3,"1",?7,"White",?40,$$C($G(APCLRACE(1)),0,9) Line Location: RACE+7
Function Call: WRITE	Prompt: !?3,"2",?7,"Black",?40,$$C($G(APCLRACE(2)),0,9) Line Location: RACE+8
Function Call: WRITE	Prompt: !?3,"3",?7,"American Indian/Alaskan Native",?40,$$C($G(APCLRACE(3)),0,9) Line Location: RACE+9
Function Call: WRITE	Prompt: !?3,"4",?7,"Asian/Pacific Islander",?40,$$C($G(APCLRACE(4)),0,9) Line Location: RACE+10
Function Call: WRITE	Prompt: !?3,"9",?7,"Other/Unknown",?40,$$C($G(APCLRACE(9)),0,9) Line Location: RACE+11
Function Call: WRITE	Prompt: !?3,"10",?7,"Total Patients",?40,$$C($G(APCLRACE(10)),0,9) Line Location: RACE+12
Function Call: WRITE	Prompt: !!,$TR($J("",80)," ","-") Line Location: RACE+13
Function Call: WRITE	Prompt: !!,"PATIENT DEMOGRAPHICS - SECTION 3" Line Location: ETHNIC+3
Function Call: WRITE	Prompt: !!,"ETHNICITY",!,"LINE",?45,"(1)" Line Location: ETHNIC+4
Function Call: WRITE	Prompt: !,"NO.",?40,"No. of Patients" Line Location: ETHNIC+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: ETHNIC+6
Function Call: WRITE	Prompt: !?3,"11",?7,"Hispanic",?40,$$C($G(APCLETH(11)),0,9) Line Location: ETHNIC+7
Function Call: WRITE	Prompt: !?3,"12",?7,"Non-Hispanic",?40,$$C($G(APCLETH(12)),0,9) Line Location: ETHNIC+8
Function Call: WRITE	Prompt: !?3,"13",?7,"Unknown",?40,$$C($G(APCLETH(13)),0,9) Line Location: ETHNIC+9
Function Call: WRITE	Prompt: !?3,"15",?7,"Total Patients",?40,$$C($G(APCLRACE(10)),0,9) Line Location: ETHNIC+10
Function Call: WRITE	Prompt: !!,$TR($J("",80)," ","-") Line Location: ETHNIC+11
Function Call: WRITE	Prompt: !!,"PATIENT DEMOGRAPHICS - SECTION 3" Line Location: POVERTY+3
Function Call: WRITE	Prompt: !!,"FEDERAL POVERTY LEVEL" Line Location: POVERTY+4
Function Call: WRITE	Prompt: !,"LINE",?45,"(1)",!,"NO.",?45,"PATIENTS" Line Location: POVERTY+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: POVERTY+6
Function Call: WRITE	Prompt: !?3,"20",?7,"Under 100%",?40,$$C($G(APCLINC("UNDER 100%")),0,9) Line Location: POVERTY+7
Function Call: WRITE	Prompt: !?3,"21",?7,"100-200%",?40,$$C($G(APCLINC("100-200%")),0,9) Line Location: POVERTY+8
Function Call: WRITE	Prompt: !?3,"22",?7,"Above 200%",?40,$$C($G(APCLINC("ABOVE 200%")),0,9) Line Location: POVERTY+9
Function Call: WRITE	Prompt: !?3,"23",?7,"Unknown",?40,$$C($G(APCLINC("UNKNOWN/UNREPORTED")),0,9) Line Location: POVERTY+10
Function Call: WRITE	Prompt: !?3,"24",?7,"Total Patients",?40,$$C($G(APCLRACE(10)),0,9) Line Location: POVERTY+11
Function Call: WRITE	Prompt: !!,$TR($J("",80)," ","-") Line Location: POVERTY+12
Function Call: WRITE	Prompt: !!,"PATIENT DEMOGRAPHICS - SECTION 3" Line Location: AGE+3
Function Call: WRITE	Prompt: !?5,"AGE CATEGORIES" Line Location: AGE+4
Function Call: WRITE	Prompt: !,"LINE",?40,"(1)",?55,"(2)" Line Location: AGE+5
Function Call: WRITE	Prompt: !,"NO.",?40,"MALES",?55,"FEMALES" Line Location: AGE+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: AGE+7
Function Call: WRITE	Prompt: !?3,"40",?7,"Under 1 year",?40,$$C($P($G(APCLAGEG("Under 1 year")),U,1),0,9),?55,$$C($P($G(APCLAGEG("Under 1 year")),U,2),0,9) Line Location: AGE+8
Function Call: WRITE	Prompt: !?3,"41",?7,"1-4 years",?40,$$C($P($G(APCLAGEG("1-4 years")),U,1),0,9),?55,$$C($P($G(APCLAGEG("1-4 years")),U,2),0,9) Line Location: AGE+9
Function Call: WRITE	Prompt: !?3,"42",?7,"5-12 years",?40,$$C($P($G(APCLAGEG("5-12 years")),U,1),0,9),?55,$$C($P($G(APCLAGEG("5-12 years")),U,2),0,9) Line Location: AGE+10
Function Call: WRITE	Prompt: !?3,"43",?7,"13-14 years",?40,$$C($P($G(APCLAGEG("13-14 years")),U,1),0,9),?55,$$C($P($G(APCLAGEG("13-14 years")),U,2),0,9) Line Location: AGE+11
Function Call: WRITE	Prompt: !?3,"44",?7,"15-19 years",?40,$$C($P($G(APCLAGEG("15-19 years")),U,1),0,9),?55,$$C($P($G(APCLAGEG("15-19 years")),U,2),0,9) Line Location: AGE+12
Function Call: WRITE	Prompt: !?3,"45",?7,"20-34 years",?40,$$C($P($G(APCLAGEG("20-34 years")),U,1),0,9),?55,$$C($P($G(APCLAGEG("20-34 years")),U,2),0,9) Line Location: AGE+13
Function Call: WRITE	Prompt: !?3,"46",?7,"35-44 years",?40,$$C($P($G(APCLAGEG("35-44 years")),U,1),0,9),?55,$$C($P($G(APCLAGEG("35-44 years")),U,2),0,9) Line Location: AGE+14
Function Call: WRITE	Prompt: !?3,"47",?7,"45-64 years",?40,$$C($P($G(APCLAGEG("45-64 years")),U,1),0,9),?55,$$C($P($G(APCLAGEG("45-64 years")),U,2),0,9) Line Location: AGE+15
Function Call: WRITE	Prompt: !?3,"48",?7,"65 and over",?40,$$C($P($G(APCLAGEG("65 and over")),U,1),0,9),?55,$$C($P($G(APCLAGEG("65 and over")),U,2),0,9) Line Location: AGE+16
Function Call: WRITE	Prompt: !!?3,"55",?7,"Total Patients",?40,$$C($G(APCLSEX(1)),0,9),?55,$$C($G(APCLSEX(2)),0,9) Line Location: AGE+17
Function Call: WRITE	Prompt: !!,$TR($J("",80)," ","-") Line Location: AGE+18
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: SECT4+10
Function Call: WRITE	Prompt: !?1,"25",?5,"Totals",?70,$$C($G(APCLS4(25)),0,9) Line Location: SECT4+11
Function Call: WRITE	Prompt: !,"SECTION 4",!,"ENCOUNTERS BY PRINCIPAL DIAGNOSIS" Line Location: HEADER3+1
Function Call: WRITE	Prompt: !?72,"(1)" Line Location: HEADER3+2
Function Call: WRITE	Prompt: !,"LINE",?5,"Classification of Diseases and/or Injuries",?71,"NO. OF" Line Location: HEADER3+3
Function Call: WRITE	Prompt: !,"NO.",?5,"for each Principal Diagnosis",?60,"ICD-9",?70,"Encounters" Line Location: HEADER3+4
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER3+5
Function Call: WRITE	Prompt: !,"SECTION 2",!,"FTEs AND ENCOUNTERS BY PRIMARY CARE PROVIDER Column 5 - No. of Encounters" Line Location: HEADER2+1
Function Call: WRITE	Prompt: !?63,"(5)" Line Location: HEADER2+2
Function Call: WRITE	Prompt: !,"LINE",?62,"NO. OF" Line Location: HEADER2+3
Function Call: WRITE	Prompt: !,"NO.",?5,"PRIMARY CARE PROVIDERS",?60,"ENCOUNTERS" Line Location: HEADER2+4
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER2+5
Function Call: WRITE	Prompt: !,"SECTION 2",!,"FTEs AND CONTACTS BY PRIMARY CARE PROVIDER Column 5 - No. of Contacts" Line Location: HEADER21+1
Function Call: WRITE	Prompt: !?62,"(5)" Line Location: HEADER21+2
Function Call: WRITE	Prompt: !,"LINE",?61,"NO. OF" Line Location: HEADER21+3
Function Call: WRITE	Prompt: !,"NO.",?5,"PRIMARY CARE PROVIDERS",?60,"CONTACTS" Line Location: HEADER21+4
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER21+5
Function Call: WRITE	Prompt: !!,"LISTING OF PROVIDERS WHO WERE NOT CATEGORIZED INTO ANY OF THE LINES ABOVE." Line Location: HEADERUN+1
Function Call: WRITE	Prompt: !!,"PROVIDER",?35,"PROVIDER CLASS" Line Location: HEADERUN+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADERUN+3
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("* CALIFORNIA ANNUAL UTILIZATION REPORT OF PRIMARY CARE CLINICS, 2008 *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+11
Routine Call	DIR Line Location: EXIT+1 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLCAAR(	V+1
^DIC(4 - [#4]	HEADER1+8, LOC+1
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("APCLCAR"	SECT2+6, SECT2+10, SECT21+7, SECT21+11, SECT5+4!
^XTMP("APCLCARUNCAT"	SECT21+18, SECT21+19, SECT5+5!

Label References

Name	Line Occurrences
$$C	SECT2+6, SECT2+10, SECT21+7, SECT21+11, RACE+7, RACE+8, RACE+9, RACE+10, RACE+11, RACE+12 , ETHNIC+7, ETHNIC+8, ETHNIC+9, ETHNIC+10, POVERTY+7, POVERTY+8, POVERTY+9, POVERTY+10, POVERTY+11, AGE+8 , AGE+9, AGE+10, AGE+11, AGE+12, AGE+13, AGE+14, AGE+15, AGE+16, AGE+17, SECT4+7 , SECT4+11
$$CTR	HEADER1+3, HEADER1+5, HEADER1+10
EXIT	PRINT+5
HEADER	PRINT+3, SECT2+4, SECT2+8, SECT21+1, SECT21+5, SECT21+9, SECT21+15, SECT21+20, RACE+1, ETHNIC+1 , POVERTY+1, AGE+1, SECT4+1, SECT4+5, SECT4+9
HEADER1	HEADER+1
HEADER2	SECT2+1, SECT2+4, SECT2+8
HEADER21	SECT21+2, SECT21+5, SECT21+9
HEADER3	SECT4+2, SECT4+5, SECT4+9
HEADERUN	SECT21+17, SECT21+20
PRINT1	PRINT+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
>> APCLAGEG("1-4	years" , AGE+9
>> APCLAGEG("13-	14 years" , AGE+11
>> APCLAGEG("15-	19 years" , AGE+12
>> APCLAGEG("20-	34 years" , AGE+13
>> APCLAGEG("35-	44 years" , AGE+14
>> APCLAGEG("45-	64 years" , AGE+15
>> APCLAGEG("5-1	2 years" , AGE+10
>> APCLAGEG("65	and over" , AGE+16
>> APCLAGEG("Und	er 1 year" , AGE+8
>> APCLBD	HEADER1+10
>> APCLC	SECT21+18*, SECT21+19, SECT21+21
>> APCLCPTR	SECT5+3
>> APCLED	HEADER1+10
>> APCLETH(11	ETHNIC+7
>> APCLETH(12	ETHNIC+8
>> APCLETH(13	ETHNIC+9
APCLH	SECT2+6, SECT2+10, SECT21+7, SECT21+11, SECT21+18, SECT21+19, SECT5+4, SECT5+5!
>> APCLINC("100-200%"	POVERTY+8
>> APCLINC("ABOV	E 200%" , POVERTY+9
>> APCLINC("UNDE	R 100%" , POVERTY+7
>> APCLINC("UNKNOWN/UNREPORTED"	POVERTY+10
APCLJ	SECT2+6, SECT2+10, SECT21+7, SECT21+11, SECT21+18, SECT21+19, SECT5+4, SECT5+5!
>> APCLLOCT	HEADER1+5, HEADER1+6
>> APCLLOCT(	HEADER1+8
>> APCLNPRV	SECT21+12, SECT21+13
>> APCLP	SECT2+2, SECT2+3, SECT2+6, SECT21+3, SECT21+4, SECT21+7, SECT4+3, SECT4+4
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
>> APCLQUIT	PRINT+2, SECT2+2, SECT2+4, SECT2+7, SECT2+8, SECT21+1, SECT21+3, SECT21+5, SECT21+8, SECT21+9 , SECT21+16, SECT21+18, SECT21+19, SECT21+20, SECT21+22, RACE+2, ETHNIC+2, POVERTY+2, POVERTY+13, AGE+2 , SECT4+1, SECT4+3, SECT4+5, SECT4+8, SECT4+9, SECT5+3, HEADER+2
>> APCLRACE(1	RACE+7
>> APCLRACE(10	RACE+12, ETHNIC+10, POVERTY+11
>> APCLRACE(2	RACE+8
>> APCLRACE(3	RACE+9
>> APCLRACE(4	RACE+10
>> APCLRACE(9	RACE+11
>> APCLS4(	SECT4+7
>> APCLS4(25	SECT4+11
>> APCLSEX(1	AGE+17
>> APCLSEX(2	AGE+17
>> APCLT	SECT2+5, SECT2+6, SECT21+6, SECT21+7, SECT4+6*, SECT4+7
>> APCLV	SECT21+19*, SECT21+21
>> APCLX	SECT2+2, SECT2+6, SECT21+3, SECT21+7, SECT4+3*, SECT4+7
DIR	EXIT+1!, HEADER+2!
DIR("A"	EXIT+1*
DIR(0	EXIT+1, HEADER+2
>> DIRUT	EXIT+1*
DT	HEADER1+2
>> DTOUT	HEADER+2
>> DUOUT	EXIT+1
DUZ	HEADER1+2, USR+1
DUZ(2	LOC+1
IO	EXIT+1, HEADER+2
IO(0	EXIT+1, HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	SECT2+4, SECT2+8, SECT21+5, SECT21+9, SECT21+20, SECT4+5, SECT4+9
IOST	EXIT+1, HEADER+2
N	V~, V+1, CALC~, CALC+4, CALC+6*, CALC+8
O	CALC~, CALC+4, CALC+7*, CALC+8
P	V~, V+1
R	V~, V+1
U	SECT2+6, SECT2+10, SECT21+7, SECT21+11, AGE+8, AGE+9, AGE+10, AGE+11, AGE+12, AGE+13 , AGE+14, AGE+15, AGE+16, V+1, HEADER1+2, HEADER1+8, USR+1, LOC+1
X	CALC+5~, CALC+6, CALC+7, C~, C+2, HEADER1+5, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10 , CTR~, CTR+1
X2	CALC+5~, CALC+6, CALC+7, C~
X3	CALC+5~, CALC+6, CALC+7, C~
Y	HEADER+2, HEADER1+8*, CTR~, CTR+1
Z	CALC+3~, CALC+8*, CALC+9

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCARP

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items