Routine: APCH20P8

Entry Points

Name	Comments	DBIA/ICR reference
DMADA	;
42	;;REHAB/FUNCTIONAL SCREEN
29	;;PHYSICAL EXAM;;
35	;;DM URINE PROTEIN;;
PRE	;EP - pre init
25	;;DM CHOLESTEROL;;
26	;;DM CREATININE;;
27	;;DM TRIGLYCERIDE;;
20	;;PNEUMOVAX;;
21	;;DM FOOT EXAM;;
22	;;DM EYE EXAM;;
23	;;SCREEN FOR ALCOHOL USE;;
28	;;DM DENTAL EXAM;;
LAB1	;
40	;;PPD - TUBERCULOSIS;;
41	;;ANMC DEPRESSION SCREEN SCORE;;
1	;;BREAST EXAM;;
3	;;BLOOD PRESSURE;;
2	;;DIABETES SCREENING;;
5	;;RECTAL;;
4	;;PAP SMEAR;;
7	;;URINALYSIS;;
6	;;TONOMETRY;;
9	;;VISUAL ACUITY EXAM;;
8	;;PELVIC EXAM;;
24	;;SCREEN FOR TOBACCO USE;;
39	;;STRABISMUS/AMBLYOPIA SCREEN;;
38	;;HEARING INQUIRY;;
ADA	;
POST	;
11	;;HCT/HGB;;
10	;;HEARING TEST;;
13	;;NON-ENDEMIC TB;;
12	;;ENDEMIC TB;;
15	;;HEIGHT;;
14	;;HEAD CIRCUMFERENCE;;
17	;;IMMUNIZATIONS;;
16	;;WEIGHT;;
19	;;MAMMOGRAM;;
18	;;HEARING TEST ANNUAL;;
30	;;TD-ADULT;;
37	;;ALASKA DOMESTIC VIOLENCE;;
36	;;COLORECTAL CA-SCOPE/XRAY;;
LAB	;
34	;;CHOLESTEROL;;
33	;;COLORECTAL CA SCRN-FOBT;;
32	;;INFLUENZA;;

Name	Line Occurrences
Function Call: WRITE	Prompt: "Attempt to add Health Maintenance Menu option failed." Line Location: POST+4
Function Call: WRITE	Prompt: !,"Creating APCH ADA Codes Taxonomy..." Line Location: DMADA+2
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING APCH DM ADA EXAMS TAXONOMY" Line Location: DMADA+6
Function Call: WRITE	Prompt: !,"Creating ",APCHX," Taxonomy..." Line Location: LAB1+1
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING ",APCHX," TAX" Line Location: LAB1+5
Routine Call	DIE Line Location: PRE+2
Routine Call	DIC Line Location: DMADA+5 DMADA+8 LAB1+4

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCMP("B"	PRE+1
^APCHSURV - [#9001018]	POST+6, POST+11
^APCHSURV("B"	POST+7!, POST+11
^ATXAX - [#9002226]	DMADA+7, DMADA+9
^ATXAX("B"	DMADA+3
^ATXLAB - [#9002228]	LAB1+6*
^ATXLAB("B"	LAB1+2

Name	Line Occurrences
LAB	DMADA+4, DMADA+6
LAB1	LAB+1, LAB+2

Name	Field # of Occurrence
^(0	DMADA+7, DMADA+9, LAB1+6*

Name	Field # of Occurrence
APCHDA	DMADA+3, DMADA+4, DMADA+12!, LAB1+2, LAB1+3
APCHTEXT	DMADA+8*, DMADA+12!
APCHTX	DMADA+7, DMADA+9, DMADA+11, DMADA+12!, LAB1+6, LAB1+7
>> APCHX	DMADA+8, DMADA+9, LAB+1, LAB+2*, LAB1+1, LAB1+2, LAB1+4, LAB1+5, LAB1+6
ATXFLG	DMADA+1*, DMADA+12!
D0	DMADA+8!
D1	DMADA+8!
DA	PRE+1, PRE+2!, DMADA+5!, DMADA+8!, DMADA+11, LAB1+4!, LAB1+7*
DI	DMADA+8!
DIADD	DMADA+5!, DMADA+8!, LAB1+4!
DIC	DMADA+5!, DMADA+8!, LAB1+4*!
DIC(0	DMADA+5, DMADA+8, LAB1+4*
DIE	PRE+2*!
>> DIK	POST+8, DMADA+11, LAB1+7*
>> DIK(1	POST+8*
DLAYGO	DMADA+5!, DMADA+8!, LAB1+4!
DQ	DMADA+8!
DR	PRE+2*!, DMADA+8!
DT	DMADA+7, LAB1+6
DUZ	DMADA+7, LAB1+6
I	DMADA+5!, LAB1+4!
U	POST+6, POST+11, DMADA+7, DMADA+8, DMADA+9, LAB1+6
X	PRE+2!, POST+2~, POST+3, POST+4, POST+6, POST+11, DMADA+5, DMADA+8, LAB1+4
>> XPDDIQ("XPZ1"	APCH20P8+6*
>> XPDDIQ("XPZ2"	APCH20P8+6*
>> XPDENV	APCH20P8+6
Y	PRE+2!, POST+6*, DMADA+6, DMADA+7, DMADA+8, DMADA+9, LAB1+5, LAB1+6

Name	Field # of Occurrence
$T(@(1)	POST+6
$T(@APCHTEXT+APCHX	DMADA+8