Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BUDRPTP1

Package: IHS Uniform Data System

Routine: BUDRPTP1


Information

BUDRPTP1 ; IHS/CMI/LAB - UDS PRINT TABLE 6 ;

Source Information

Source file <BUDRPTP1.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDRPTP  

Entry Points

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 ;
USR() ;EP - Return name of current user from ^VA(200.
SRV ;
C(X) ;

External References

Name Field # of Occurrence
COMMA^%DTC C+2
HEADER^BUDRPTP T6+2, T6+7, T6+9, T6+12, T6+14, T6+17, T6+19, T6+21, T6+23, T6+25
, T6+27, T6+29, T6+31, T6+33, T6+35, T6+37, T6+39, T6+42, T6+45, SRV+1
, SRV+4, SRV+6, SRV+9, SRV+12, SRV+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"SELECTED INFECTIOUS AND PARASITIC DISEASES"
  • Line Location: T6+3
Function Call: WRITE
  • Prompt: !," 1. Symptomatic HIV",?35,$$CTR("042.xx",15),?54,$$C($P(BUDT6("V"),U,1)),?70,$$C($P(BUDT6("P"),U,1)),!,BUD80L
  • Line Location: T6+4
Function Call: WRITE
  • Prompt: !," 2. Asymptomatic HIV",?35,$$CTR("V08",15),?54,$$C($P(BUDT6("V"),U,2)),?70,$$C($P(BUDT6("P"),U,2)),!,BUD80L
  • Line Location: T6+5
Function Call: WRITE
  • Prompt: !," 3. Tuberculosis",?35,$$CTR("010.xx-018.xx",15),?54,$$C($P(BUDT6("V"),U,3)),?70,$$C($P(BUDT6("P"),U,3)),!,BUD80L
  • Line Location: T6+6
Function Call: WRITE
  • Prompt: !," 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
  • Line Location: T6+8
Function Call: WRITE
  • Prompt: !!,"SELECTED DISEASES OF THE RESPIRATORY SYSTEM",!,BUD80L
  • Line Location: T6+10
Function Call: WRITE
  • Prompt: !," 5. Asthma",?35,$$CTR("493.xx",15),?54,$$C($P(BUDT6("V"),U,5)),?70,$$C($P(BUDT6("P"),U,5)),!,BUD80L
  • Line Location: T6+11
Function Call: WRITE
  • Prompt: !," 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
  • Line Location: T6+13
Function Call: WRITE
  • Prompt: !!,"SELECTED OTHER MEDICAL CONDITIONS",!,BUD80L
  • Line Location: T6+15
Function Call: WRITE
  • Prompt: !," 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
  • Line Location: T6+16
Function Call: WRITE
  • Prompt: !," 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
  • Line Location: T6+18
Function Call: WRITE
  • Prompt: !," 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
  • Line Location: T6+20
Function Call: WRITE
  • Prompt: !,"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
  • Line Location: T6+22
Function Call: WRITE
  • Prompt: !,"11. Hypertension",?35,$$CTR("401.xx-405.xx",15),?54,$$C($P(BUDT6("V"),U,11)),?70,$$C($P(BUDT6("P"),U,11)),!,BUD80L
  • Line Location: T6+24
Function Call: WRITE
  • Prompt: !,"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
  • Line Location: T6+26
Function Call: WRITE
  • Prompt: !,"13. Dehydration",?35,$$CTR("276.5x",15),?54,$$C($P(BUDT6("V"),U,13)),?70,$$C($P(BUDT6("P"),U,13)),!,BUD80L
  • Line Location: T6+28
Function Call: WRITE
  • Prompt: !,"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
  • Line Location: T6+30
Function Call: WRITE
  • Prompt: !!,"SELECTED CHILDHOOD CONDITIONS",!,BUD80L
  • Line Location: T6+32
Function Call: WRITE
  • Prompt: !,"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
  • Line Location: T6+34
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,$$CTR("excl 779.3x",15),?54,$$C($P(BUDT6("V"),U,16)),?70,$$C($P(BUDT6("P"),U,16)),!,BUD80L
  • Line Location: T6+36
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),?54,$$C($P(BUDT6("V"),U,17)),?70,$$C($P(BUDT6("P"),U,17)),!,BUD80L
  • Line Location: T6+38
Function Call: WRITE
  • Prompt: !!,"SELECTED MENTAL HEALTH AND SUBSTANCE ABUSE CONDITIONS",!,BUD80L
  • Line Location: T6+40
Function Call: WRITE
  • Prompt: !,?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
  • Line Location: T6+41
Function Call: WRITE
  • Prompt: !,"19. Other substance related",?35,$$CTR("292.1x-292.8x",15),!?6,"disorders (excluding tobacco",?35,$$CTR("304.xx, 305.2x-305.9x",22)
  • Line Location: T6+43
Function Call: WRITE
  • Prompt: !?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
  • Line Location: T6+44
Function Call: WRITE
  • Prompt: !,?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)
  • Line Location: T6+46
Function Call: WRITE
  • Prompt: !,"20. dependence (includes mental",?35,$$CTR("306.xx-319.xx",15),!?5,"retardation)",?35,$$CTR("(excl 308.3, 309.81, 312.8x,",25)
  • Line Location: T6+47
Function Call: WRITE
  • Prompt: !?35,$$CTR("312.9x, 313.81, 314.xx",22),?54,$$C($P(BUDT6("V"),U,20)),?70,$$C($P(BUDT6("P"),U,20)),!,BUD80L
  • Line Location: T6+48
Function Call: WRITE
  • Prompt: !!,"SELECTED DIAGNOSTIC TESTS/SCREENING/PREVENTIVE SERVICES",!,BUD80L
  • Line Location: SRV+2
Function Call: WRITE
  • Prompt: !,"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
  • Line Location: SRV+3
Function Call: WRITE
  • Prompt: !,"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
  • Line Location: SRV+5
Function Call: WRITE
  • Prompt: !,"23. Pap Smear",?30,$$CTR("CPT-4: 88141-88155, 88164-88167",32),!?30,$$CTR("ICD-9: V72.3, V76.2; VLab Pap Smear;",32),!
  • Line Location: SRV+7
Function Call: WRITE
  • Prompt: ?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
  • Line Location: SRV+8
Function Call: WRITE
  • Prompt: !,"24. Selected immunizations"
  • Line Location: SRV+10
Function Call: WRITE
  • Prompt: ?54,$$C($P(BUDT6("V"),U,24)),?70,$$C($P(BUDT6("P"),U,24)),!,BUD80L
  • Line Location: SRV+11
Function Call: WRITE
  • Prompt: !,"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
  • Line Location: SRV+13
Function Call: WRITE
  • Prompt: !,"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"
  • Line Location: SRV+15
Function Call: WRITE
  • Prompt: ?54,$$C($P(BUDT6("V"),U,26)),?70,$$C($P(BUDT6("P"),U,26)),!,BUD80L
  • Line Location: SRV+16
Function Call: WRITE
  • Prompt: !,$$CTR("TABLE 6-",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",?70,"# of Users"
  • Line Location: T6SH+4
Function Call: WRITE
  • Prompt: !?35,"icd-9-cm",?54,"Encounters by",?69,"w/this prim"
  • Line Location: T6SH+5
Function Call: WRITE
  • Prompt: !?35,"code",?54,"prim dx",?70,"Diagnosis"
  • Line Location: T6SH+6
Function Call: WRITE
  • Prompt: !,"DIAGNOSTIC CATEGORY",?62,"(a)",?75,"(b)"
  • Line Location: T6SH+7
Function Call: WRITE
  • Prompt: !,"SERVICE CATEGORY",?63,"(a)",?75,"(b)"
  • Line Location: T6SH+8
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: T6SH+9

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$C T6+4, T6+5, T6+6, T6+8, T6+11, T6+13, T6+16, T6+18, T6+20, T6+22
, T6+24, T6+26, T6+28, T6+30, T6+34, T6+36, T6+38, T6+41, T6+44, T6+48
, SRV+3, SRV+5, SRV+8, SRV+11, SRV+13, SRV+16
$$CTR T6+4, T6+5, T6+6, T6+8, T6+11, T6+13, T6+16, T6+18, T6+20, T6+22
, T6+24, T6+26, T6+28, T6+30, T6+34, T6+36, T6+38, T6+41, T6+43, T6+44
, T6+46, T6+47, T6+48, SRV+3, SRV+5, SRV+7, SRV+8, SRV+13, T6SH+1, T6SH+2
T6SH T6+2, T6+7, T6+9, T6+12, T6+14, T6+17, T6+19, T6+21, T6+23, T6+25
, T6+27, T6+29, T6+31, T6+33, T6+35, T6+37, T6+39, T6+42, T6+45, SRV+1
, SRV+4, SRV+6, SRV+9, SRV+12, SRV+14

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUD80L T6+4, T6+5, T6+6, T6+8, T6+10, T6+11, T6+13, T6+15, T6+16, T6+18
, T6+20, T6+22, T6+24, T6+26, T6+28, T6+30, T6+32, T6+34, T6+36, T6+38
, T6+40, T6+41, T6+44, T6+48, SRV+2, SRV+3, SRV+5, SRV+8, SRV+11, SRV+13
, SRV+16
>> BUDPG T6+1*
>> BUDQUIT T6+1*, T6+2, T6+7, T6+9, T6+12, T6+14, T6+17, T6+19, T6+21, T6+23
, T6+25, T6+27, T6+29, T6+31, T6+33, T6+35, T6+37, T6+39, T6+42, T6+45
, SRV+1, SRV+4, SRV+6, SRV+9, SRV+12, SRV+14
>> BUDT6("P" T6+4, T6+5, T6+6, T6+8, T6+11, T6+13, T6+16, T6+18, T6+20, T6+22
, T6+24, T6+26, T6+28, T6+30, T6+34, T6+36, T6+38, T6+41, T6+44, T6+48
, SRV+3, SRV+5, SRV+8, SRV+11, SRV+13, SRV+16
>> BUDT6("V" T6+4, T6+5, T6+6, T6+8, T6+11, T6+13, T6+16, T6+18, T6+20, T6+22
, T6+24, T6+26, T6+28, T6+30, T6+34, T6+36, T6+38, T6+41, T6+44, T6+48
, SRV+3, SRV+5, SRV+8, SRV+11, SRV+13, SRV+16
>> BUDTYPE T6+1*, SRV+1*, T6SH+7, T6SH+8
DUZ USR+1
DUZ(2 LOC+1
IOM CTR+1
IOSL T6+7, T6+9, T6+12, T6+14, T6+17, T6+19, T6+21, T6+23, T6+25, T6+27
, T6+29, T6+31, T6+33, T6+35, T6+37, T6+39, T6+42, T6+45, SRV+4, SRV+6
, SRV+9, SRV+12, SRV+14
U T6+4, T6+5, T6+6, T6+8, T6+11, T6+13, T6+16, T6+18, T6+20, T6+22
, T6+24, T6+26, T6+28, T6+30, T6+34, T6+36, T6+38, T6+41, T6+44, T6+48
, SRV+3, SRV+5, SRV+8, SRV+11, SRV+13, SRV+16, USR+1, LOC+1
X C~, C+3, CTR~, CTR+1
>> X2 C+1*
>> X3 C+1*
Y CTR~, CTR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All