Routine: CIMGAGPS

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPQ

Entry Points

Name	Comments	DBIA/ICR reference
USR()	;EP - Return name of current user from ^VA(200.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
1	;;1/1 Diabetes Prevalance;;Listing of Patients Diagnosed with Diabetes
3	;;2/2 Diabetes;;Listing of Diabetic Patients and HGB A1C Values
2	;;1/2 Diabetes Incidence;;Listing of Patients Diagnosed with Diabetes in Time Period
5	;;4/4 Diabetes;;Listing of Diabetics and Date LDL done
4	;;3/3 Diabetes;;Listing of Diabetics/w HTN and Blood Pressure Control
7	;;6/6 Women's Health;;Listing of Women over 17 years old and Date of Pap Screening
6	;;5/5 Diabetes;;Listing of Diabetics and Urine Protein Value
9	;;8/8 Child Health;;Listing of Children turning 27 Months and # of Well child visits
8	;;7/7 Women's Health;;Listing of Women 40-69 and Date of Mammogram Screeing
V(R,N,P)	;
HEADER	;EP
C(X,X2,X3)	;
PRINTL	;print one line
11	;;12/13 Dental Health;;Children 6-8 or 14-15 and Sealant Status
10	;;11/12 Dental Health;;Active Users and Dental Visit Status
13	;;Child Obesity;;Listing of Children 3-5 and 8-10 and Obesity Status
12	;;Child Health Immunization;;Listing of Children 2 Yrs old and Immunization Needs
15	;;Adult Immunizations;;Listing of Patients Over 65 and Date of Flu Vaccine
14	;;Adult Immuniations;;Listing of Patients Over 65 and Pneumovax date
16	;;24/2000 Smoking;;Listing of Documented Current Tobacco Users
HEADER1	;
CALC(N,O)	;ENTRY POINT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,25),?27,$$HRN^AUPNPAT(DFN,DUZ(2)),?33,$E(CIMCOM,1,18),?52,CIMSEX,?56,CIMAGE,?60,^XTMP("CIMGAGP",CIMGJ,CIMGH,"LIST",CIML,CIMCOM,CIMSEX,CIMAGE,DFN) Line Location: PRINTL+2
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 ",CIMGPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* ABERDEEN AREA GPRA INDICATORS *",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: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(CIMTITL,80),! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $$CTR(CIMTITL1,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: "PATIENT NAME",?27,"HRN",?33,"COMMUNITY",?52,"SEX",?56,"AGE",?60,"VALUE" Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+10
Routine Call	DIR Line Location: HEADER+2

Name	Line Occurrences (* Changed, ! Killed)
^CIMAGP(	V+1
^DIC(4 - [#4]	HEADER1+4, LOC+1
^DPT - [#2]	PRINTL+2
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("CIMGAGP"	CIMGAGPS+4, CIMGAGPS+7, CIMGAGPS+8, CIMGAGPS+9, CIMGAGPS+10, PRINTL+2

Name	Line Occurrences
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8
HEADER	CIMGAGPS+6, CIMGAGPS+14, PRINTL+1
HEADER1	HEADER+1
PRINTL	CIMGAGPS+10

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

Name	Field # of Occurrence
>> CIM98B	HEADER1+6
>> CIM98E	HEADER1+6
>> CIMAGE	CIMGAGPS+9*, CIMGAGPS+10, PRINTL+2
>> CIMBD	HEADER1+5
>> CIMCOM	CIMGAGPS+7*, CIMGAGPS+8, CIMGAGPS+9, CIMGAGPS+10, PRINTL+2
>> CIMCOUNT	CIMGAGPS+5, CIMGAGPS+15, PRINTL+3
>> CIMED	HEADER1+5
>> CIMGH	CIMGAGPS+4, CIMGAGPS+7, CIMGAGPS+8, CIMGAGPS+9, CIMGAGPS+10, PRINTL+2
>> CIMGJ	CIMGAGPS+4, CIMGAGPS+7, CIMGAGPS+8, CIMGAGPS+9, CIMGAGPS+10, PRINTL+2
>> CIMGPG	CIMGAGPS+3, HEADER+1, HEADER1+1, HEADER1+2
>> CIML	CIMGAGPS+4*, CIMGAGPS+7, CIMGAGPS+8, CIMGAGPS+9, CIMGAGPS+10, PRINTL+2
>> CIMQUIT	CIMGAGPS+3, CIMGAGPS+4, CIMGAGPS+6, CIMGAGPS+7, CIMGAGPS+8, CIMGAGPS+9, CIMGAGPS+10, CIMGAGPS+14, PRINTL+1, HEADER+2
>> CIMSEX	CIMGAGPS+8*, CIMGAGPS+9, CIMGAGPS+10, PRINTL+2
>> CIMTITL	CIMGAGPS+5*, HEADER1+7
>> CIMTITL1	CIMGAGPS+5*, HEADER1+8
>> DFN	CIMGAGPS+10*, PRINTL+2
DIR	HEADER+2!
DIR(0	HEADER+2*
DT	HEADER1+2
>> DTOUT	HEADER+2
DUZ	HEADER1+2, USR+1
DUZ(2	PRINTL+2, HEADER1+4, LOC+1
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	CIMGAGPS+14, PRINTL+1
IOST	HEADER+2
N	CALC~, CALC+4, CALC+6*, CALC+9, V~, V+1
O	CALC~, CALC+4, CALC+7*, CALC+8, CALC+9
P	V~, V+1
R	V~, V+1
U	PRINTL+2, V+1, HEADER1+2, HEADER1+4, USR+1, LOC+1
X	CALC+5~, CALC+6, CALC+7, C~, C+2, HEADER1+5, HEADER1+6, CTR~, CTR+1
X2	CALC+5~, CALC+6, CALC+7, C~
X3	CALC+5~, CALC+6, CALC+7, C~
Y	HEADER+2, CTR~, CTR+1
Z	CALC+3~, CALC+9*, CALC+10
>> ZTQUEUED	HEADER+2

Name	Field # of Occurrence
$T(@CIML	CIMGAGPS+5