- BUDRPTP1 ; IHS/CMI/LAB - UDS PRINT TABLE 6 ;
- ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
- T6 ;EP
- S BUDPG=0,BUDQUIT="",BUDTYPE="D"
- D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"SELECTED INFECTIOUS AND PARASITIC DISEASES"
- W !," 1. Symptomatic HIV",?35,$$CTR("042.xx",15),?54,$$C($P(BUDT6("V"),U,1)),?70,$$C($P(BUDT6("P"),U,1)),!,BUD80L
- W !," 2. Asymptomatic HIV",?35,$$CTR("V08",15),?54,$$C($P(BUDT6("V"),U,2)),?70,$$C($P(BUDT6("P"),U,2)),!,BUD80L
- W !," 3. Tuberculosis",?35,$$CTR("010.xx-018.xx",15),?54,$$C($P(BUDT6("V"),U,3)),?70,$$C($P(BUDT6("P"),U,3)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !," 4. Syphilis and other venereal",!?6,"diseases",?35,$$CTR("090.xx-099.xx",15),?54,$$C($P(BUDT6("V"),U,4)),?70,$$C($P(BUDT6("P"),U,4)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !!,"SELECTED DISEASES OF THE RESPIRATORY SYSTEM",!,BUD80L
- W !," 5. Asthma",?35,$$CTR("493.xx",15),?54,$$C($P(BUDT6("V"),U,5)),?70,$$C($P(BUDT6("P"),U,5)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !," 6. Chronic bronchitis and ",?35,$$CTR("490.xx-492.xx",15),!?6,"emphysema",?35,$$CTR("496.xx",15),?54,$$C($P(BUDT6("V"),U,6)),?70,$$C($P(BUDT6("P"),U,6)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !!,"SELECTED OTHER MEDICAL CONDITIONS",!,BUD80L
- W !," 7. Abnormal breast findings,",?35,$$CTR("174.xx; 198.81;",15),!,?6,"female",?35,$$CTR("233.0x; 793.8",15),?54,$$C($P(BUDT6("V"),U,7)),?70,$$C($P(BUDT6("P"),U,7)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !," 8. Abnormal cervical findings",?35,$$CTR("180.xx; 198.82;",15),!,?35,"233.1x; 795.0x",?54,$$C($P(BUDT6("V"),U,8)),?70,$$C($P(BUDT6("P"),U,8)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !," 9. Diabetes mellitus",?35,$$CTR("250.xx; 775.1x",15),!,?35,$$CTR("790.2",15),?54,$$C($P(BUDT6("V"),U,9)),?70,$$C($P(BUDT6("P"),U,9)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"10. Heart disease (selected)",?35,$$CTR("391.xx-392.0x",15),!?35,$$CTR("410.xx-429.xx",15),?54,$$C($P(BUDT6("V"),U,10)),?70,$$C($P(BUDT6("P"),U,10)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"11. Hypertension",?35,$$CTR("401.xx-405.xx",15),?54,$$C($P(BUDT6("V"),U,11)),?70,$$C($P(BUDT6("P"),U,11)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"12. Contact dermatitis and",?35,$$CTR("692.xx",15),!?6,"other eczema",?54,$$C($P(BUDT6("V"),U,12)),?70,$$C($P(BUDT6("P"),U,12)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"13. Dehydration",?35,$$CTR("276.5x",15),?54,$$C($P(BUDT6("V"),U,13)),?70,$$C($P(BUDT6("P"),U,13)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"14. Exposure to heat or cold",?35,$$CTR("991.xx-992.xx",15),?54,$$C($P(BUDT6("V"),U,14)),?70,$$C($P(BUDT6("P"),U,14)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !!,"SELECTED CHILDHOOD CONDITIONS",!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"15. Otitis Media and other eustachian tube",!?6,"disorders",?35,$$CTR("381.xx-382.xx",15),?54,$$C($P(BUDT6("V"),U,15)),?70,$$C($P(BUDT6("P"),U,15)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"16. Selected perinatal medical",?35,$$CTR("770.xx; 771.xx; 773.xx",23),!?6," conditions",?35,$$CTR("774.xx-779.xx",15),!,?35,$$CTR("excl 779.3x",15),?54,$$C($P(BUDT6("V"),U,16)),?70,$$C($P(BUDT6("P"),U,16)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"17. Lack of expected normal",?35,$$CTR("260.xx-269.xx; 779.3x",22),!?6,"physical development...",?35,$$CTR("783.3x-783.4x",15),?54,$$C($P(BUDT6("V"),U,17)),?70,$$C($P(BUDT6("P"),U,17)),!,BUD80L
- I $Y>(IOSL-4) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !!,"SELECTED MENTAL HEALTH AND SUBSTANCE ABUSE CONDITIONS",!,BUD80L
- W !,?35,$$CTR("291.xx; 303.xx; 305.0x",15),!,"18. Alcohol related disorders",?35,$$CTR("357.5x",15),?54,$$C($P(BUDT6("V"),U,18)),?70,$$C($P(BUDT6("P"),U,18)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"19. Other substance related",?35,$$CTR("292.1x-292.8x",15),!?6,"disorders (excluding tobacco",?35,$$CTR("304.xx, 305.2x-305.9x",22)
- W !?6,"use disorders)",?35,$$CTR("357.6x, 648.3x",15),?54,$$C($P(BUDT6("V"),U,19)),?70,$$C($P(BUDT6("P"),U,19)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,?35,$$CTR("290.xx; 293.xx-302.xx;",22),!?35,$$CTR("(excluding 300.0x,",20),!?5,"Other mental disorders,",?35,$$CTR("300.21, 300.22, 300.23,",23)
- W !,"20. dependence (includes mental",?35,$$CTR("306.xx-319.xx",15),!?5,"retardation)",?35,$$CTR("(excl 308.3, 309.81, 312.8x,",25)
- W !?35,$$CTR("312.9x, 313.81, 314.xx",22),?54,$$C($P(BUDT6("V"),U,20)),?70,$$C($P(BUDT6("P"),U,20)),!,BUD80L
- ;
- SRV ;
- S BUDTYPE="S" D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !!,"SELECTED DIAGNOSTIC TESTS/SCREENING/PREVENTIVE SERVICES",!,BUD80L
- W !,"21. HIV Test",?30,$$CTR("CPT-4: 86689; 86701-86703",26),!,?30,$$CTR("87390-87391; LOINC & site-",26),!,?35,$$CTR("defined taxonomies",18),?54,$$C($P(BUDT6("V"),U,21)),?70,$$C($P(BUDT6("P"),U,21)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"22. Mammogram",?30,$$CTR("CPT-4: 76090-76092",20),!,?30,$$CTR("ICD-9: V76.1",15),!,?35,$$CTR("VProc 87.35-.37",15),?54,?54,$$C($P(BUDT6("V"),U,22)),?70,$$C($P(BUDT6("P"),U,22)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"23. Pap Smear",?30,$$CTR("CPT-4: 88141-88155, 88164-88167",32),!?30,$$CTR("ICD-9: V72.3, V76.2; VLab Pap Smear;",32),!
- W ?30,$$CTR("VProc 91.46; LOINC & site",15),!,?30,$$CTR("defined taxonomies",18),?54,$$C($P(BUDT6("V"),U,23)),?70,$$C($P(BUDT6("P"),U,23)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"24. Selected immunizations"
- W ?54,$$C($P(BUDT6("V"),U,24)),?70,$$C($P(BUDT6("P"),U,24)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"25. Contraceptive Management",?35,$$CTR("ICD-9: V25.xx",15),?54,$$C($P(BUDT6("V"),U,25)),?70,$$C($P(BUDT6("P"),U,25)),!,BUD80L
- I $Y>(IOSL-3) D HEADER^BUDRPTP Q:BUDQUIT D T6SH
- W !,"26. Health supervision of infant",?34,"Clinic code 24, 57;",!?6," or child (ages 0 - 11)",?34,"ICD-9: V20.xx; V29.xx",!?34,"CPT-4: 99391-99393;",!?34,"99381-83; 99431-33"
- W ?54,$$C($P(BUDT6("V"),U,26)),?70,$$C($P(BUDT6("P"),U,26)),!,BUD80L
- Q
- T6SH ;
- W !,$$CTR("TABLE 6-",80),!
- W $$CTR("SELECTED DIAGNOSES AND SERVICES RENDERED",80)
- W !,$TR($J("",80)," ","-")
- W !,?35,"Applicable",?54,"Number of",?70,"# of Users"
- W !?35,"icd-9-cm",?54,"Encounters by",?69,"w/this prim"
- W !?35,"code",?54,"prim dx",?70,"Diagnosis"
- I BUDTYPE="D" W !,"DIAGNOSTIC CATEGORY",?62,"(a)",?75,"(b)"
- I BUDTYPE="S" W !,"SERVICE CATEGORY",?63,"(a)",?75,"(b)"
- W !,$TR($J("",80)," ","-"),!
- Q
- C(X) ;
- S X2=0,X3=9
- D COMMA^%DTC
- Q X
- CTR(X,Y) ;EP - Center X in a field Y wide.
- Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
- ;----------
- USR() ;EP - Return name of current user from ^VA(200.
- Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
- ;----------
- LOC() ;EP - Return location name from file 4 based on DUZ(2).
- Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
- ;----------
- BUDRPTP1 ; IHS/CMI/LAB - UDS PRINT TABLE 6 ;
- +1 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
- T6 ;EP
- +1 SET BUDPG=0
- SET BUDQUIT=""
- SET BUDTYPE="D"
- +2 DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +3 WRITE !,"SELECTED INFECTIOUS AND PARASITIC DISEASES"
- +4 WRITE !," 1. Symptomatic HIV",?35,$$CTR("042.xx",15),?54,$$C($PIECE(BUDT6("V"),U,1)),?70,$$C($PIECE(BUDT6("P"),U,1)),!,BUD80L
- +5 WRITE !," 2. Asymptomatic HIV",?35,$$CTR("V08",15),?54,$$C($PIECE(BUDT6("V"),U,2)),?70,$$C($PIECE(BUDT6("P"),U,2)),!,BUD80L
- +6 WRITE !," 3. Tuberculosis",?35,$$CTR("010.xx-018.xx",15),?54,$$C($PIECE(BUDT6("V"),U,3)),?70,$$C($PIECE(BUDT6("P"),U,3)),!,BUD80L
- +7 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +8 WRITE !," 4. Syphilis and other venereal",!?6,"diseases",?35,$$CTR("090.xx-099.xx",15),?54,$$C($PIECE(BUDT6("V"),U,4)),?70,$$C($PIECE(BUDT6("P"),U,4)),!,BUD80L
- +9 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +10 WRITE !!,"SELECTED DISEASES OF THE RESPIRATORY SYSTEM",!,BUD80L
- +11 WRITE !," 5. Asthma",?35,$$CTR("493.xx",15),?54,$$C($PIECE(BUDT6("V"),U,5)),?70,$$C($PIECE(BUDT6("P"),U,5)),!,BUD80L
- +12 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +13 WRITE !," 6. Chronic bronchitis and ",?35,$$CTR("490.xx-492.xx",15),!?6,"emphysema",?35,$$CTR("496.xx",15),?54,$$C($PIECE(BUDT6("V"),U,6)),?70,$$C($PIECE(BUDT6("P"),U,6)),!,BUD80L
- +14 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +15 WRITE !!,"SELECTED OTHER MEDICAL CONDITIONS",!,BUD80L
- +16 WRITE !," 7. Abnormal breast findings,",?35,$$CTR("174.xx; 198.81;",15),!,?6,"female",?35,$$CTR("233.0x; 793.8",15),?54,$$C($PIECE(BUDT6("V"),U,7)),?70,$$C($PIECE(BUDT6("P"),U,7)),!,BUD80L
- +17 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +18 WRITE !," 8. Abnormal cervical findings",?35,$$CTR("180.xx; 198.82;",15),!,?35,"233.1x; 795.0x",?54,$$C($PIECE(BUDT6("V"),U,8)),?70,$$C($PIECE(BUDT6("P"),U,8)),!,BUD80L
- +19 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +20 WRITE !," 9. Diabetes mellitus",?35,$$CTR("250.xx; 775.1x",15),!,?35,$$CTR("790.2",15),?54,$$C($PIECE(BUDT6("V"),U,9)),?70,$$C($PIECE(BUDT6("P"),U,9)),!,BUD80L
- +21 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +22 WRITE !,"10. Heart disease (selected)",?35,$$CTR("391.xx-392.0x",15),!?35,$$CTR("410.xx-429.xx",15),?54,$$C($PIECE(BUDT6("V"),U,10)),?70,$$C($PIECE(BUDT6("P"),U,10)),!,BUD80L
- +23 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +24 WRITE !,"11. Hypertension",?35,$$CTR("401.xx-405.xx",15),?54,$$C($PIECE(BUDT6("V"),U,11)),?70,$$C($PIECE(BUDT6("P"),U,11)),!,BUD80L
- +25 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +26 WRITE !,"12. Contact dermatitis and",?35,$$CTR("692.xx",15),!?6,"other eczema",?54,$$C($PIECE(BUDT6("V"),U,12)),?70,$$C($PIECE(BUDT6("P"),U,12)),!,BUD80L
- +27 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +28 WRITE !,"13. Dehydration",?35,$$CTR("276.5x",15),?54,$$C($PIECE(BUDT6("V"),U,13)),?70,$$C($PIECE(BUDT6("P"),U,13)),!,BUD80L
- +29 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +30 WRITE !,"14. Exposure to heat or cold",?35,$$CTR("991.xx-992.xx",15),?54,$$C($PIECE(BUDT6("V"),U,14)),?70,$$C($PIECE(BUDT6("P"),U,14)),!,BUD80L
- +31 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +32 WRITE !!,"SELECTED CHILDHOOD CONDITIONS",!,BUD80L
- +33 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +34 WRITE !,"15. Otitis Media and other eustachian tube",!?6,"disorders",?35,$$CTR("381.xx-382.xx",15),?54,$$C($PIECE(BUDT6("V"),U,15)),?70,$$C($PIECE(BUDT6("P"),U,15)),!,BUD80L
- +35 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +36 WRITE !,"16. Selected perinatal medical",?35,$$CTR("770.xx; 771.xx; 773.xx",23),!?6," conditions",?35,$$CTR("774.xx-779.xx",15),!,?35,$$CTR("excl 779.3x",15),?54,$$C($PIECE(BUDT6("V"),U,16)),?70,$$C($PIECE(BUDT6("P"),U,16)),!,BUD80L
- +37 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +38 WRITE !,"17. Lack of expected normal",?35,$$CTR("260.xx-269.xx; 779.3x",22),!?6,"physical development...",?35,$$CTR("783.3x-783.4x",15),?54,$$C($PIECE(BUDT6("V"),U,17)),?70,$$C($PIECE(BUDT6("P"),U,17)),!,BUD80L
- +39 IF $Y>(IOSL-4)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +40 WRITE !!,"SELECTED MENTAL HEALTH AND SUBSTANCE ABUSE CONDITIONS",!,BUD80L
- +41 WRITE !,?35,$$CTR("291.xx; 303.xx; 305.0x",15),!,"18. Alcohol related disorders",?35,$$CTR("357.5x",15),?54,$$C($PIECE(BUDT6("V"),U,18)),?70,$$C($PIECE(BUDT6("P"),U,18)),!,BUD80L
- +42 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +43 WRITE !,"19. Other substance related",?35,$$CTR("292.1x-292.8x",15),!?6,"disorders (excluding tobacco",?35,$$CTR("304.xx, 305.2x-305.9x",22)
- +44 WRITE !?6,"use disorders)",?35,$$CTR("357.6x, 648.3x",15),?54,$$C($PIECE(BUDT6("V"),U,19)),?70,$$C($PIECE(BUDT6("P"),U,19)),!,BUD80L
- +45 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +46 WRITE !,?35,$$CTR("290.xx; 293.xx-302.xx;",22),!?35,$$CTR("(excluding 300.0x,",20),!?5,"Other mental disorders,",?35,$$CTR("300.21, 300.22, 300.23,",23)
- +47 WRITE !,"20. dependence (includes mental",?35,$$CTR("306.xx-319.xx",15),!?5,"retardation)",?35,$$CTR("(excl 308.3, 309.81, 312.8x,",25)
- +48 WRITE !?35,$$CTR("312.9x, 313.81, 314.xx",22),?54,$$C($PIECE(BUDT6("V"),U,20)),?70,$$C($PIECE(BUDT6("P"),U,20)),!,BUD80L
- +49 ;
- SRV ;
- +1 SET BUDTYPE="S"
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +2 WRITE !!,"SELECTED DIAGNOSTIC TESTS/SCREENING/PREVENTIVE SERVICES",!,BUD80L
- +3 WRITE !,"21. HIV Test",?30,$$CTR("CPT-4: 86689; 86701-86703",26),!,?30,$$CTR("87390-87391; LOINC & site-",26),!,?35,$$CTR("defined taxonomies",18),?54,$$C($PIECE(BUDT6("V"),U,21)),?70,$$C($PIECE(BUDT6("P"),U,21)),!,BUD80L
- +4 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +5 WRITE !,"22. Mammogram",?30,$$CTR("CPT-4: 76090-76092",20),!,?30,$$CTR("ICD-9: V76.1",15),!,?35,$$CTR("VProc 87.35-.37",15),?54,?54,$$C($PIECE(BUDT6("V"),U,22)),?70,$$C($PIECE(BUDT6("P"),U,22)),!,BUD80L
- +6 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +7 WRITE !,"23. Pap Smear",?30,$$CTR("CPT-4: 88141-88155, 88164-88167",32),!?30,$$CTR("ICD-9: V72.3, V76.2; VLab Pap Smear;",32),!
- +8 WRITE ?30,$$CTR("VProc 91.46; LOINC & site",15),!,?30,$$CTR("defined taxonomies",18),?54,$$C($PIECE(BUDT6("V"),U,23)),?70,$$C($PIECE(BUDT6("P"),U,23)),!,BUD80L
- +9 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +10 WRITE !,"24. Selected immunizations"
- +11 WRITE ?54,$$C($PIECE(BUDT6("V"),U,24)),?70,$$C($PIECE(BUDT6("P"),U,24)),!,BUD80L
- +12 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +13 WRITE !,"25. Contraceptive Management",?35,$$CTR("ICD-9: V25.xx",15),?54,$$C($PIECE(BUDT6("V"),U,25)),?70,$$C($PIECE(BUDT6("P"),U,25)),!,BUD80L
- +14 IF $Y>(IOSL-3)
- DO HEADER^BUDRPTP
- IF BUDQUIT
- QUIT
- DO T6SH
- +15 WRITE !,"26. Health supervision of infant",?34,"Clinic code 24, 57;",!?6," or child (ages 0 - 11)",?34,"ICD-9: V20.xx; V29.xx",!?34,"CPT-4: 99391-99393;",!?34,"99381-83; 99431-33"
- +16 WRITE ?54,$$C($PIECE(BUDT6("V"),U,26)),?70,$$C($PIECE(BUDT6("P"),U,26)),!,BUD80L
- +17 QUIT
- T6SH ;
- +1 WRITE !,$$CTR("TABLE 6-",80),!
- +2 WRITE $$CTR("SELECTED DIAGNOSES AND SERVICES RENDERED",80)
- +3 WRITE !,$TRANSLATE($JUSTIFY("",80)," ","-")
- +4 WRITE !,?35,"Applicable",?54,"Number of",?70,"# of Users"
- +5 WRITE !?35,"icd-9-cm",?54,"Encounters by",?69,"w/this prim"
- +6 WRITE !?35,"code",?54,"prim dx",?70,"Diagnosis"
- +7 IF BUDTYPE="D"
- WRITE !,"DIAGNOSTIC CATEGORY",?62,"(a)",?75,"(b)"
- +8 IF BUDTYPE="S"
- WRITE !,"SERVICE CATEGORY",?63,"(a)",?75,"(b)"
- +9 WRITE !,$TRANSLATE($JUSTIFY("",80)," ","-"),!
- +10 QUIT
- C(X) ;
- +1 SET X2=0
- SET X3=9
- +2 DO COMMA^%DTC
- +3 QUIT X
- CTR(X,Y) ;EP - Center X in a field Y wide.
- +1 QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X
- +2 ;----------
- USR() ;EP - Return name of current user from ^VA(200.
- +1 QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
- +2 ;----------
- LOC() ;EP - Return location name from file 4 based on DUZ(2).
- +1 QUIT $SELECT($GET(DUZ(2)):$SELECT($DATA(^DIC(4,DUZ(2),0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
- +2 ;----------
