Routine: BUD0RPP1

Package	Total	Call Graph
IHS Uniform Data System	1	HEADER^BUD0RPTP
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
IHS Uniform Data System	1	BUD0RPTP

Name	Comments	DBIA/ICR reference
LOC()	;EP - Return location name from file 4 based on DUZ(2).
T6	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
T6SH	;
DENT	;
USR()	;EP - Return name of current user from ^VA(200.
SRV	;
T6SH1	;
C(X)	;

Name	Field # of Occurrence
COMMA^%DTC	C+2
HEADER^BUD0RPTP	T6+2, T6+8, T6+10, T6+12, T6+14, T6+17, T6+19, T6+22, T6+24, T6+26 , T6+28, T6+30, T6+32, T6+34, T6+36, T6+41, T6+43, T6+45, T6+47, T6+51 , T6+54, T6+57, T6+59, T6+62, T6+65, T6+68, SRV+1, SRV+4, SRV+7, SRV+10 , SRV+14, SRV+18, SRV+31, SRV+33, SRV+35, SRV+37, SRV+40, SRV+43, SRV+46, SRV+50 , SRV+53, DENT+3, DENT+5, DENT+7, DENT+10, DENT+12, DENT+15, DENT+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SELECTED INFECTIOUS AND PARASITIC DISEASES" Line Location: T6+4
Function Call: WRITE	Prompt: !," 1,2. Symptomatic and Asymptomatic",!?6,"HIV",?35,$$CTR("042,079.53, V08",15),?56,$$C($P(BUDT6("V"),U,1)),?70,$$C($P(BUDT6("P"),U,1)),!,BUD80L Line Location: T6+5
Function Call: WRITE	Prompt: !," 3. Tuberculosis",?35,$$CTR("010.xx-018.xx",15),?56,$$C($P(BUDT6("V"),U,3)),?70,$$C($P(BUDT6("P"),U,3)),!,BUD80L Line Location: T6+7
Function Call: WRITE	Prompt: !," 4. Syphilis and other sexually",!?6,"transmitted diseases",?35,$$CTR("090.xx-099.xx",15),?56,$$C($P(BUDT6("V"),U,4)),?70,$$C($P(BUDT6("P"),U,4)),!,BUD80L Line Location: T6+9
Function Call: WRITE	Prompt: !," 4a. Hepatitis B",?35,$$CTR("070.20, 070.22, 070.30",15),!?35,$$CTR("070.32",15),?56,$$C($P(BUDT6("V"),U,67)),?70,$$C($P(BUDT6("P"),U,67)),!,BUD80L Line Location: T6+11
Function Call: WRITE	Prompt: !," 4b. Hepatitis C",?35,$$CTR("070.41, 070.44, 070.51",15),!?35,$$CTR("070.54, 070.70, 070.71",15),?56,$$C($P(BUDT6("V"),U,68)),?70,$$C($P(BUDT6("P"),U,68)),!,BUD80L Line Location: T6+13
Function Call: WRITE	Prompt: !!,"SELECTED DISEASES OF THE RESPIRATORY SYSTEM",!,BUD80L Line Location: T6+15
Function Call: WRITE	Prompt: !," 5. Asthma",?35,$$CTR("493.xx",15),?56,$$C($P(BUDT6("V"),U,5)),?70,$$C($P(BUDT6("P"),U,5)),!,BUD80L Line Location: T6+16
Function Call: WRITE	Prompt: !," 6. Chronic bronchitis and ",?35,$$CTR("490.xx-492.xx",15),!?6,"emphysema",?56,$$C($P(BUDT6("V"),U,6)),?70,$$C($P(BUDT6("P"),U,6)),!,BUD80L Line Location: T6+18
Function Call: WRITE	Prompt: !!,"SELECTED OTHER MEDICAL CONDITIONS",!,BUD80L Line Location: T6+20
Function Call: WRITE	Prompt: !," 7. Abnormal breast findings,",?35,$$CTR("174.xx; 198.81; 233.0x",15),!,?6,"female",?35,$$CTR("238.3; 793.8x",15),?56,$$C($P(BUDT6("V"),U,7)),?70,$$C($P(BUDT6("P"),U,7)),!,BUD80L Line Location: T6+21
Function Call: WRITE	Prompt: !," 8. Abnormal cervical findings",?35,$$CTR("180.xx; 198.82;",15),!,?35,"233.1x; 795.0x",?56,$$C($P(BUDT6("V"),U,8)),?70,$$C($P(BUDT6("P"),U,8)),!,BUD80L Line Location: T6+23
Function Call: WRITE	Prompt: !," 9. Diabetes mellitus",?35,$$CTR("250.xx; 648.0x;",15),!?35,"775.1x",?56,$$C($P(BUDT6("V"),U,9)),?70,$$C($P(BUDT6("P"),U,9)),!,BUD80L Line Location: T6+25
Function Call: WRITE	Prompt: !,"10. Heart disease (selected)",?35,$$CTR("391.xx-392.0x",15),!?35,$$CTR("410.xx-429.xx",15),?56,$$C($P(BUDT6("V"),U,10)),?70,$$C($P(BUDT6("P"),U,10)),!,BUD80L Line Location: T6+27
Function Call: WRITE	Prompt: !,"11. Hypertension",?35,$$CTR("401.xx-405.xx",15),?56,$$C($P(BUDT6("V"),U,11)),?70,$$C($P(BUDT6("P"),U,11)),!,BUD80L Line Location: T6+29
Function Call: WRITE	Prompt: !,"12. Contact dermatitis and",?35,$$CTR("692.xx",15),!?6,"other eczema",?56,$$C($P(BUDT6("V"),U,12)),?70,$$C($P(BUDT6("P"),U,12)),!,BUD80L Line Location: T6+31
Function Call: WRITE	Prompt: !,"13. Dehydration",?35,$$CTR("276.5x",15),?56,$$C($P(BUDT6("V"),U,13)),?70,$$C($P(BUDT6("P"),U,13)),!,BUD80L Line Location: T6+33
Function Call: WRITE	Prompt: !,"14. Exposure to heat or cold",?35,$$CTR("991.xx-992.xx",15),?56,$$C($P(BUDT6("V"),U,14)),?70,$$C($P(BUDT6("P"),U,14)),!,BUD80L Line Location: T6+35
Function Call: WRITE	Prompt: !,?35,$$CTR("278.00-278.02,",15) Line Location: T6+37
Function Call: WRITE	Prompt: !?35,$$CTR("V85.xx excluding V85.0,",15) Line Location: T6+38
Function Call: WRITE	Prompt: !,"14a. Overweight and obesity",?35,$$CTR("V85.1, V85.51, V85.52",14),?56,$$C($P(BUDT6("V"),U,60)),?70,$$C($P(BUDT6("P"),U,60)) Line Location: T6+39
Function Call: WRITE	Prompt: !,BUD80L Line Location: T6+40
Function Call: WRITE	Prompt: !!,"SELECTED CHILDHOOD CONDITIONS",!,BUD80L Line Location: T6+42
Function Call: WRITE	Prompt: !,"15. Otitis Media and eustachian tube",!?6,"disorders",?35,$$CTR("381.xx-382.xx",15),?56,$$C($P(BUDT6("V"),U,15)),?70,$$C($P(BUDT6("P"),U,15)),!,BUD80L Line Location: T6+44
Function Call: WRITE	Prompt: !,"16. Selected perinatal medical",?35,$$CTR("770.xx; 771.xx; 773.xx",23),!?6," conditions",?35,$$CTR("774.xx-779.xx",15),!,?35,"excluding 779.3x",?56,$$C($P(BUDT6("V"),U,16)),?70,$$C($P(BUDT6("P"),U,16)),!,BUD80L Line Location: T6+46
Function Call: WRITE	Prompt: !,"17. Lack of expected normal",?35,$$CTR("260.xx-269.xx; 779.3x",22),!?6,"physical development",?35,$$CTR("783.3x-783.4x",15) Line Location: T6+48
Function Call: WRITE	Prompt: !?6,"(such as delayed milestone;",!?6,"failure to gain weight; failure to",!?6,"thrive)-does not include sexual" Line Location: T6+49
Function Call: WRITE	Prompt: !?6,"or mental development;",!?6,"Nutritional deficiencies",?56,$$C($P(BUDT6("V"),U,17)),?70,$$C($P(BUDT6("P"),U,17)),!,BUD80L Line Location: T6+50
Function Call: WRITE	Prompt: !!,"SELECTED MENTAL HEALTH AND SUBSTANCE ABUSE CONDITIONS",!,BUD80L Line Location: T6+52
Function Call: WRITE	Prompt: !,?35,"291.xx; 303.xx; ",!,"18. Alcohol related disorders",?35,"305.0x, 357.5x",?56,$$C($P(BUDT6("V"),U,18)),?70,$$C($P(BUDT6("P"),U,18)),!,BUD80L Line Location: T6+53
Function Call: WRITE	Prompt: !,"19. Other substance related",?35,"292.1x-292.8x",!?6,"disorders (excluding tobacco",?35,"304.xx, 305.2x-305.9x" Line Location: T6+55
Function Call: WRITE	Prompt: !?6,"use disorders)",?35,"357.6x, 648.3x",?56,$$C($P(BUDT6("V"),U,19)),?70,$$C($P(BUDT6("P"),U,19)),!,BUD80L Line Location: T6+56
Function Call: WRITE	Prompt: !,"19a. Tobacco use disorder",?35,"305.1",?56,$$C($P(BUDT6("V"),U,61)),?70,$$C($P(BUDT6("P"),U,61)),!,BUD80L Line Location: T6+58
Function Call: WRITE	Prompt: !,"20a. Depression and other mood",?35,"296.xx, 300.4" Line Location: T6+60
Function Call: WRITE	Prompt: !,?6,"disorders",?35,"301.13, 311.xx",?56,$$C($P(BUDT6("V"),U,40)),?70,$$C($P(BUDT6("P"),U,40)),!,BUD80L Line Location: T6+61
Function Call: WRITE	Prompt: !,"20b. Anxiety disorders including",?35,"300.0x, 300.2x, 300.3" Line Location: T6+63
Function Call: WRITE	Prompt: !,?6,"PTSD",?35,"308.3, 309.81",?56,$$C($P(BUDT6("V"),U,41)),?70,$$C($P(BUDT6("P"),U,41)),!,BUD80L Line Location: T6+64
Function Call: WRITE	Prompt: !,"20c. Attention Deficit and",?35,"312.8x, 312.9x," Line Location: T6+66
Function Call: WRITE	Prompt: !?5,"disruptive behavior disorders",?35,"313.81, 314.xx",?56,$$C($P(BUDT6("V"),U,42)),?70,$$C($P(BUDT6("P"),U,42)),!,BUD80L Line Location: T6+67
Function Call: WRITE	Prompt: !?35,"290.xx",!?35,"293.xx - 302.xx",!?35,"(excluding 296.xx" Line Location: T6+69
Function Call: WRITE	Prompt: !,"20d. Other mental disorders,",?35,"300.0x, 300.2x, 300.3" Line Location: T6+70
Function Call: WRITE	Prompt: !?6,"excluding drug or alcohol",?35,"300.4, 301.13); ",!?6,"dependence" Line Location: T6+71
Function Call: WRITE	Prompt: !?6,"(includes mental",?35,"306.xx-319.xx (excluding 308.3,",!?6," retardation)",?35,"309.81, 311.xx, 312.8x,",!?35,"312.9x, 313.81, " Line Location: T6+72
Function Call: WRITE	Prompt: !?35,"314.xx)",?56,$$C($P(BUDT6("V"),U,43)),?70,$$C($P(BUDT6("P"),U,43)),!,BUD80L Line Location: T6+73
Function Call: WRITE	Prompt: !!,"SELECTED DIAGNOSTIC TESTS/SCREENING/PREVENTIVE SERVICES",!,BUD80L Line Location: SRV+2
Function Call: WRITE	Prompt: !,"21. HIV Test",?33,"CPT-4: 86689; 86701-86703",!,?33,"87390-87391",!,?33,"LOINC & site-",!,?33,"defined taxonomies",?56,$$C($P(BUDT6("V"),U,21)),?70,$$C($P(BUDT6("P"),U,21)),!,BUD80L Line Location: SRV+3
Function Call: WRITE	Prompt: !,"21a. Hepatitis B test",?33,"CPT-4: 86704, 86706, 87515-87517 ",!?33,"or VLab ",!?33,"[BUD HEPATITIS B TESTS]" Line Location: SRV+5
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,69)),?70,$$C($P(BUDT6("P"),U,69)),!,BUD80L Line Location: SRV+6
Function Call: WRITE	Prompt: !,"21b. Hepatitis C test",?33,"CPT-4: 86803-86804, 87520-87522 ",!?33,"or VLab ",!?33,"[BUD HEPATITIS C TESTS]" Line Location: SRV+8
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,70)),?70,$$C($P(BUDT6("P"),U,70)),!,BUD80L Line Location: SRV+9
Function Call: WRITE	Prompt: !,"22. Mammogram",?33,"CPT-4: 77052, 77057",!,?33,"ICD-9: V76.11, V76.12" Line Location: SRV+11
Function Call: WRITE	Prompt: !?33,"WH Mammogram Screening",!?33,"WH Mammogram DX Bilat",!?33,"WH Mammogram DX Unilat" Line Location: SRV+12
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,22)),?70,$$C($P(BUDT6("P"),U,22)),!,BUD80L Line Location: SRV+13
Function Call: WRITE	Prompt: !,"23. Pap Test",?33,"CPT-4: 88141-88155, 88164-88167, ",?33,"88174-88175" Line Location: SRV+15
Function Call: WRITE	Prompt: !?33,"ICD-9: V72.3, V72.31, V76.2",!?33,"VLab Pap Smear; WH Pap Smear; " Line Location: SRV+16
Function Call: WRITE	Prompt: !?33,"LOINC & site",!,?33,"defined taxonomies",?56,$$C($P(BUDT6("V"),U,23)),?70,$$C($P(BUDT6("P"),U,23)),!,BUD80L Line Location: SRV+17
Function Call: WRITE	Prompt: !,"24. Selected immunizations;",?33,"CPT-4: 90633-90634" Line Location: SRV+19
Function Call: WRITE	Prompt: !?6,"Hepatitis A, Hemophilius ",?33,"90645-90648" Line Location: SRV+20
Function Call: WRITE	Prompt: !?6,"Influenza B (HIB), ",?33,"90670, 90696-90702" Line Location: SRV+21
Function Call: WRITE	Prompt: !?6,"Pneumococcal, ",?33,"90704-90716," Line Location: SRV+22
Function Call: WRITE	Prompt: !?6,"Diphtheria, ",?33,"90718-90723" Line Location: SRV+23
Function Call: WRITE	Prompt: !?6,"Tetanus, Pertussis (DTap)",?33,"90743-90744, 90748" Line Location: SRV+24
Function Call: WRITE	Prompt: !?6,"(DTP)(DT), Mumps, Measles,",?33,"CVX: 31,52,83-84,85,104,17,22" Line Location: SRV+25
Function Call: WRITE	Prompt: !?6,"Rubella, Poliovirus, ",?33,"46-47,48-49,50-51,102,120,132" Line Location: SRV+26
Function Call: WRITE	Prompt: !?6,"Varicella, ",?33,"33,109,133,01,09,11" Line Location: SRV+27
Function Call: WRITE	Prompt: !?6,"Hepatitis B Child",?33,"20,22,28,50,106,107,110,113",!?33,"115,130,132,138,139,03-07" Line Location: SRV+28
Function Call: WRITE	Prompt: !?33,"38,94,02,10,89,21,94,08,42",!?33,"43,44,45" Line Location: SRV+29
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,24)),?70,$$C($P(BUDT6("P"),U,24)),!,BUD80L Line Location: SRV+30
Function Call: WRITE	Prompt: !,"24a. Seasonal Flu vaccine",?33,"CPT-4: 90655-90662, CVX: 16,",!?33,"111, 135, 140, 141",?56,$$C($P(BUDT6("V"),U,65)),?70,$$C($P(BUDT6("P"),U,65)),!,BUD80L Line Location: SRV+32
Function Call: WRITE	Prompt: !,"24b. H1N1 Flu vaccine",?33,"CPT-4: 90663; 90470",?56,$$C($P(BUDT6("V"),U,66)),?70,$$C($P(BUDT6("P"),U,66)),!,BUD80L Line Location: SRV+34
Function Call: WRITE	Prompt: !,"25. Contraceptive Management",?35,$$CTR("ICD-9: V25.xx",15),?56,$$C($P(BUDT6("V"),U,25)),?70,$$C($P(BUDT6("P"),U,25)),!,BUD80L Line Location: SRV+36
Function Call: WRITE	Prompt: !,"26. Health supervision of infant",?34,"Clinic code 24, 57;",!?6," or child (ages 0 - 11)",?34,"CPT-4: 99381-99383,",!?34," 99391-99393" Line Location: SRV+38
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,26)),?70,$$C($P(BUDT6("P"),U,26)),!,BUD80L Line Location: SRV+39
Function Call: WRITE	Prompt: !,"26a. Childhood lead test",?35,"CPT-4: 83655" Line Location: SRV+41
Function Call: WRITE	Prompt: !?6,"screening (9-72 months)",?56,$$C($P(BUDT6("V"),U,62)),?70,$$C($P(BUDT6("P"),U,62)),!,BUD80L Line Location: SRV+42
Function Call: WRITE	Prompt: !,"26b. Screening, Brief Intervention",?35,"CPT-4: 99408-99409" Line Location: SRV+44
Function Call: WRITE	Prompt: !?6,"and Referral (SBIRT)",?35,"Pat Ed: AOD-INJ",?56,$$C($P(BUDT6("V"),U,63)),?70,$$C($P(BUDT6("P"),U,63)),!,BUD80L Line Location: SRV+45
Function Call: WRITE	Prompt: !,"26c. Smoke and tobacco use",?35,"CPT-4: 99406 and 99407;" Line Location: SRV+47
Function Call: WRITE	Prompt: !?6,"cessation counseling",?35,"S9075; Pat Ed: TO-*;",?56,$$C($P(BUDT6("V"),U,64)),?70,$$C($P(BUDT6("P"),U,64)) Line Location: SRV+48
Function Call: WRITE	Prompt: !?35,"-TO, -SHS; 305.1",!,BUD80L Line Location: SRV+49
Function Call: WRITE	Prompt: !,"26d. Comprehensive and intermediate",?35,"CPT-4: 92002, 92004," Line Location: SRV+51
Function Call: WRITE	Prompt: !?6,"eye exams",?35,"92012, 92014",?56,$$C($P(BUDT6("V"),U,71)),?70,$$C($P(BUDT6("P"),U,71)),!,BUD80L Line Location: SRV+52
Function Call: WRITE	Prompt: !!,"SELECTED DENTAL SERVICES",!,BUD80L Line Location: DENT+1
Function Call: WRITE	Prompt: !,"27. I. Emergency Services",?34,"ADA: 9110",?56,$$C($P(BUDT6("V"),U,27)),?70,$$C($P(BUDT6("P"),U,27)),!?34,"CPT-4: D9110",!,BUD80L Line Location: DENT+2
Function Call: WRITE	Prompt: !,"28. II. Oral Exams",?34,"ADA: 0120, 0140, 0145, 0150",!?34,"0160, 0170, 0180; CPT-4: D0120",!?34,"D0140, D0145, D0150, D0160",!?34,"D0170, D0180",?56,$$C($P(BUDT6("V"),U,28)),?70,$$C($P(BUDT6("P"),U,28)),!,BUD80L Line Location: DENT+4
Function Call: WRITE	Prompt: !,"29. Prophylaxis - adult",?34,"ADA: 1110, 1120,",!?11,"or child",?34,"CPT-4: D1110, D1120",?56,$$C($P(BUDT6("V"),U,29)),?70,$$C($P(BUDT6("P"),U,29)),!,BUD80L Line Location: DENT+6
Function Call: WRITE	Prompt: !,"30. Sealants",?34,"ADA: 1351;",!?34,"CPT-4: D1351" Line Location: DENT+8
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,30)),?70,$$C($P(BUDT6("P"),U,30)),!,BUD80L Line Location: DENT+9
Function Call: WRITE	Prompt: !,"31. Fluoride treatment - ",?34,"ADA: 1203, 1204, 1206",!?10,"adult or child",?34,"CPT-4: D1203, D1204",!?34,"D1206",?56,$$C($P(BUDT6("V"),U,31)),?70,$$C($P(BUDT6("P"),U,31)),!,BUD80L Line Location: DENT+11
Function Call: WRITE	Prompt: !,"32. III. Restorative Services",?34,"ADA: 21xx-29xx",!?34,"CPT-4: D21xx-D29xx" Line Location: DENT+13
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,32)),?70,$$C($P(BUDT6("P"),U,32)),!,BUD80L Line Location: DENT+14
Function Call: WRITE	Prompt: !,"33. IV. Oral Surgery",?34,"ADA: 7111, 7140, 7210, 7220" Line Location: DENT+16
Function Call: WRITE	Prompt: !?6,"(extractions and other",?34,"7230, 7240, 7241, 7250, 7260" Line Location: DENT+17
Function Call: WRITE	Prompt: !?6,"surgical procedures)",?34,"7261, 7270, 7272, 7280",!?34,"CPT-4: D7111, D7140, D7210, ",!?34,"D7220, D7230, D7240, D7241,",!?34,"D7250, D7260, D7261, ",!?34,"D7270, D7272, D7280" Line Location: DENT+18
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,33)),?70,$$C($P(BUDT6("P"),U,33)),!,BUD80L Line Location: DENT+19
Function Call: WRITE	Prompt: !,"34. V. Rehabilitative services ",!?6,"(Endo, Perio, Prostho, Ortho)",?34,"ADA: 3xxx, 4xxx, 5xxx",!?34,"6xxx, 8xxx",!?34,"CPT-4: D3xxx, D4xxx, D5xxx",!?34,"D6xxx, D8xxx" Line Location: DENT+21
Function Call: WRITE	Prompt: ?56,$$C($P(BUDT6("V"),U,34)),?70,$$C($P(BUDT6("P"),U,34)),!,BUD80L Line Location: DENT+22
Function Call: WRITE	Prompt: ! Line Location: DENT+23
Function Call: WRITE	Prompt: !,$$CTR("TABLE 6A-",80),! Line Location: T6SH+1
Function Call: WRITE	Prompt: $$CTR("SELECTED DIAGNOSES AND SERVICES RENDERED",80) Line Location: T6SH+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T6SH+3
Function Call: WRITE	Prompt: !,?35,"Applicable",?54,"Number of",?69,"# of Pts" Line Location: T6SH+4
Function Call: WRITE	Prompt: !?35,"icd-9-cm",?54,"Visits by",?69,"w/this prim" Line Location: T6SH+5
Function Call: WRITE	Prompt: !?35,"code",?54,"prim dx",?70,"Dx" Line Location: T6SH+6
Function Call: WRITE	Prompt: !,"DIAGNOSTIC CATEGORY",?60,"(a)",?75,"(b)" Line Location: T6SH+7
Function Call: WRITE	Prompt: !,"SERVICE CATEGORY",?61,"(a)",?75,"(b)" Line Location: T6SH+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T6SH+9
Function Call: WRITE	Prompt: !,$$CTR("TABLE 6A-",80),! Line Location: T6SH1+1
Function Call: WRITE	Prompt: $$CTR("SELECTED DIAGNOSES AND SERVICES RENDERED",80) Line Location: T6SH1+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T6SH1+3
Function Call: WRITE	Prompt: !,?37,"Applicable",?54,"Number of",?70,"# of Pts" Line Location: T6SH1+4
Function Call: WRITE	Prompt: !?37,"icd-9-cm or",?54,"Visits" Line Location: T6SH1+5
Function Call: WRITE	Prompt: !?37,"CPT-4 codes" Line Location: T6SH1+6
Function Call: WRITE	Prompt: !,"DIAGNOSTIC CATEGORY",?60,"(a)",?75,"(b)" Line Location: T6SH1+7
Function Call: WRITE	Prompt: !,"SERVICE CATEGORY",?61,"(a)",?75,"(b)" Line Location: T6SH1+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T6SH1+9

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUD80L	T6+5, T6+7, T6+9, T6+11, T6+13, T6+15, T6+16, T6+18, T6+20, T6+21 , T6+23, T6+25, T6+27, T6+29, T6+31, T6+33, T6+35, T6+40, T6+42, T6+44 , T6+46, T6+50, T6+52, T6+53, T6+56, T6+58, T6+61, T6+64, T6+67, T6+73 , SRV+2, SRV+3, SRV+6, SRV+9, SRV+13, SRV+17, SRV+30, SRV+32, SRV+34, SRV+36 , SRV+39, SRV+42, SRV+45, SRV+49, SRV+52, DENT+1, DENT+2, DENT+4, DENT+6, DENT+9 , DENT+11, DENT+14, DENT+19, DENT+22
BUDFNP	T6+1*, T6+3!
>> BUDPG	T6+1*
>> BUDQUIT	T6+1*, T6+2, T6+8, T6+10, T6+12, T6+14, T6+17, T6+19, T6+22, T6+24 , T6+26, T6+28, T6+30, T6+32, T6+34, T6+36, T6+41, T6+43, T6+45, T6+47 , T6+51, T6+54, T6+57, T6+59, T6+62, T6+65, T6+68, SRV+1, SRV+4, SRV+7 , SRV+10, SRV+14, SRV+18, SRV+31, SRV+33, SRV+35, SRV+37, SRV+40, SRV+43, SRV+46 , SRV+50, SRV+53, DENT+3, DENT+5, DENT+7, DENT+10, DENT+12, DENT+15, DENT+20
>> BUDT6("P"	T6+5, T6+7, T6+9, T6+11, T6+13, T6+16, T6+18, T6+21, T6+23, T6+25 , T6+27, T6+29, T6+31, T6+33, T6+35, T6+39, T6+44, T6+46, T6+50, T6+53 , T6+56, T6+58, T6+61, T6+64, T6+67, T6+73, SRV+3, SRV+6, SRV+9, SRV+13 , SRV+17, SRV+30, SRV+32, SRV+34, SRV+36, SRV+39, SRV+42, SRV+45, SRV+48, SRV+52 , DENT+2, DENT+4, DENT+6, DENT+9, DENT+11, DENT+14, DENT+19, DENT+22
>> BUDT6("V"	T6+5, T6+7, T6+9, T6+11, T6+13, T6+16, T6+18, T6+21, T6+23, T6+25 , T6+27, T6+29, T6+31, T6+33, T6+35, T6+39, T6+44, T6+46, T6+50, T6+53 , T6+56, T6+58, T6+61, T6+64, T6+67, T6+73, SRV+3, SRV+6, SRV+9, SRV+13 , SRV+17, SRV+30, SRV+32, SRV+34, SRV+36, SRV+39, SRV+42, SRV+45, SRV+48, SRV+52 , DENT+2, DENT+4, DENT+6, DENT+9, DENT+11, DENT+14, DENT+19, DENT+22
>> BUDTYPE	T6+1, SRV+1, T6SH+7, T6SH+8, T6SH1+7, T6SH1+8
DUZ	USR+1
DUZ(2	LOC+1
IOM	CTR+1
IOSL	T6+8, T6+10, T6+12, T6+14, T6+17, T6+19, T6+22, T6+24, T6+26, T6+28 , T6+30, T6+32, T6+34, T6+36, T6+41, T6+43, T6+45, T6+47, T6+51, T6+54 , T6+57, T6+59, T6+62, T6+65, T6+68, SRV+4, SRV+7, SRV+10, SRV+14, SRV+18 , SRV+31, SRV+33, SRV+35, SRV+37, SRV+40, SRV+43, SRV+46, SRV+50, SRV+53, DENT+3 , DENT+5, DENT+7, DENT+10, DENT+12, DENT+15, DENT+20
U	T6+5, T6+7, T6+9, T6+11, T6+13, T6+16, T6+18, T6+21, T6+23, T6+25 , T6+27, T6+29, T6+31, T6+33, T6+35, T6+39, T6+44, T6+46, T6+50, T6+53 , T6+56, T6+58, T6+61, T6+64, T6+67, T6+73, SRV+3, SRV+6, SRV+9, SRV+13 , SRV+17, SRV+30, SRV+32, SRV+34, SRV+36, SRV+39, SRV+42, SRV+45, SRV+48, SRV+52 , DENT+2, DENT+4, DENT+6, DENT+9, DENT+11, DENT+14, DENT+19, DENT+22, USR+1, LOC+1
X	C~, C+3, CTR~, CTR+1
>> X2	C+1*
>> X3	C+1*
Y	CTR~, CTR+1

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD0RPP1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
$$C	T6+5, T6+7, T6+9, T6+11, T6+13, T6+16, T6+18, T6+21, T6+23, T6+25 , T6+27, T6+29, T6+31, T6+33, T6+35, T6+39, T6+44, T6+46, T6+50, T6+53 , T6+56, T6+58, T6+61, T6+64, T6+67, T6+73, SRV+3, SRV+6, SRV+9, SRV+13 , SRV+17, SRV+30, SRV+32, SRV+34, SRV+36, SRV+39, SRV+42, SRV+45, SRV+48, SRV+52 , DENT+2, DENT+4, DENT+6, DENT+9, DENT+11, DENT+14, DENT+19, DENT+22
$$CTR	T6+5, T6+7, T6+9, T6+11, T6+13, T6+16, T6+18, T6+21, T6+23, T6+25 , T6+27, T6+29, T6+31, T6+33, T6+35, T6+37, T6+38, T6+39, T6+44, T6+46 , T6+48, SRV+36, T6SH+1, T6SH+2, T6SH1+1, T6SH1+2
T6SH	T6+2, T6+8, T6+10, T6+12, T6+14, T6+17, T6+19, T6+22, T6+24, T6+26 , T6+28, T6+30, T6+32, T6+34, T6+36, T6+41, T6+43, T6+45, T6+47, T6+51 , T6+54, T6+57, T6+59, T6+62, T6+65, T6+68
T6SH1	SRV+1, SRV+4, SRV+7, SRV+10, SRV+14, SRV+18, SRV+31, SRV+33, SRV+35, SRV+37 , SRV+40, SRV+43, SRV+46, SRV+50, SRV+53, DENT+3, DENT+5, DENT+7, DENT+10, DENT+12 , DENT+15, DENT+20