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 |  Marked Items |  All
Print Page as PDF
Routine: BUDRPTL

Package: IHS Uniform Data System

Routine: BUDRPTL


Information

BUDRPTL ; IHS/CMI/LAB - UDS print lists ;

Source Information

Source file <BUDRPTL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Uniform Data System 3 $$RACE^BUDRPTC  TOL^BUDRPTL1  T52^BUDRPTL2  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 ($$CLINIC,$$LOCENC,$$PRIMPROV)^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDRPTP  

Entry Points

Name Comments DBIA/ICR reference
T51H1 ;
T6W ;
22 ;;Mammogram
T5H1 ;
USR() ;EP - Return name of current user from ^VA(200.
T6H ;
TOL ;
24 ;;Selected Immunizations
25 ;;Contraceptive Management
26 ;;Health supervision of infant or child (ages 0 through 11)
20 ;;Other Mental disorders, excluding drug or alcohol dependence
21 ;;HIV Test
LOC() ;EP - Return location name from file 4 based on DUZ(2).
23 ;;Pap Smear
CTR(X,Y) ;EP - Center X in a field Y wide.
T52 ;
3 ;;Tuberculosis
1 ;;Symptomatic HIV
T51H ;
2 ;;Asymptomatic HIV
5 ;;Asthma
4 ;;Syphilis and other venereal diseases
7 ;;Abnormal breast findings, female
6 ;;Chronic bronchitis and emphysema
9 ;;Diabetes mellitus
8 ;;Abnormal cervical findings
T6 ;
T4 ;
T5 ;
T5W
T5H ;
START ;
17 ;;Lack of expected normal physiological development
T3H1 ;
11 ;;Hypertension
10 ;;Heart disease (selected)
13 ;;Dehydration
12 ;;Contact dermatitis and other eczema
15 ;;Otitis media and eustachian tube disorders
14 ;;Exposure to heat or cold
T3H ;
16 ;;Selected perinatal medical conditions
19 ;;Drug dependence
18 ;;Alcohol dependence
T3A ;
T51 ;
T6H1 ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV T3A+11, T5W+6, T6W+4
$$LOCENC^APCLV T3A+11, T5W+6, T6W+4
$$PRIMPROV^APCLV T3A+11, T5W+6
$$AGE^AUPNPAT T3A+8, T5W, T6W+1
$$HRN^AUPNPAT T3A+8, T5W, T6W+1
$$RACE^BUDRPTC T3A+8, T5W, T6W+1
TOL^BUDRPTL1 TOL+1
T52^BUDRPTL2 T52+1
^DIR T3H+2, T51H+2, T5H+2, T6H+2
$$FMTE^XLFDT T3A+11, T3H1+3, T3H1+7, T51H1+3, T51H1+7, T5W+6, T5H1+3, T5H1+7, T6W+4, T6H1+3
, T6H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: T3H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T3H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T3H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T3H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Tables 3A, 3B",80),!
  • Line Location: T3H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T3H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T3H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T3H1+8
Function Call: WRITE
  • Prompt: !,"List of all Users, defined as any patient with one or more visits during the",!,"calendar year, with gender, age, race or ethnicity, and visit information.",!,"Age is calculated as of June 30.",!
  • Line Location: T3H1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN"
  • Line Location: T3H1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T3H1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: T51H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T51H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T51H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T51H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Provider List for Table 5 Columns A, By Service Category",80),!
  • Line Location: T51H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T51H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T51H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T51H1+8
Function Call: WRITE
  • Prompt: !,"PROVIDER NAME",?35,"PROVIDER CODE",?70,"FTE"
  • Line Location: T51H1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T51H1+11
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,22),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCOM,1,12),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$P($$RACE^BUDRPTC(DFN),U,2)
  • Line Location: T5W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: T5H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T5H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T5H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T5H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 5 Columns B & C, By Service Category",80),!
  • Line Location: T5H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T5H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T5H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T5H1+8
Function Call: WRITE
  • Prompt: !,"List of all Users, sorted by defined Service Categories. Displays",!,"community, gender, age and visit data, including Provider codes."
  • Line Location: T5H1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN"
  • Line Location: T5H1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5H1+11
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,22),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCOM,1,12),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$P($$RACE^BUDRPTC(DFN),U,2)
  • Line Location: T6W+1
Function Call: WRITE
  • Prompt: !
  • Line Location: T6H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T6H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T6H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T6H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6, By Diagnosis Category",80),!
  • Line Location: T6H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T6H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T6H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T6H1+8
Function Call: WRITE
  • Prompt: !,"List of all Users, sorted by primary diagnosis and tests/screening",!,"categories. Displays community, gender, age and visit data, and codes."
  • Line Location: T6H1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN"
  • Line Location: T6H1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T6H1+11
Routine Call
  • DIR
  • Line Location:
    • T3H+2
    • T51H+2
    • T5H+2
    • T6H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] T3A+11, T5W+2, T5W+6, T6W+4
^BUDTFIVE - [#90345.5] T51+4, T5+5
^BUDTFIVE("B" T51+4, T5+5
^DIC(4 - [#4] T3H1+6, T51H1+6, T5H1+6, T6H1+6, LOC+1
^DPT - [#2] T3A+8, T5W, T6W+1
^VA(200 - [#200] T3H1+3, T51H1+3, T5H1+3, T6H1+3, USR+1
^XTMP("BUDRPT1" T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+6, T51+7, T5+3, T5+7
, T5+8, T5+9, T5+10, T5W+1, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+2
, T6W+4

Label References

Name Line Occurrences
$$CTR T3H1+4, T3H1+5, T3H1+6, T3H1+7, T51H1+4, T51H1+5, T51H1+6, T51H1+7, T5H1+4, T5H1+5
, T5H1+6, T5H1+7, T6H1+4, T6H1+5, T6H1+6, T6H1+7
T3A START+2, START+4
T3H T3A+2, T3A+7, T3A+10
T3H1 T3H+1
T4 START+6
T5 START+8
T51 START+10
T51H T51+1, T51+3
T51H1 T51H+1
T52 START+12
T5H T5+4, T5W+5
T5H1 T5H+1
T5W T5+10
T6 START+14
T6H T6+4, T6W+3
T6H1 T6H+1
T6W T6+9
TOL START+16

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUD5L T51+2*, T51+4, T51+5, T51+6, T51+7, T5+3*, T5+5, T5+6, T5+7, T5+8
, T5+9, T5+10, T5W+1
>> BUD6L T6+3*, T6+5, T6+6, T6+7, T6+8, T6+9, T6W+2, T6W+4
>> BUDAGE T3A+3*, T3A+4, T3A+5, T3A+6, T3A+9, T5+8*, T5+9, T5+10, T5W+1, T6+7*
, T6+8, T6+9, T6W+2, T6W+4
>> BUDBD T3H1+7, T51H1+7, T5H1+7, T6H1+7
>> BUDCAD T3A+8, T5W, T6W+1
>> BUDCOM T3A+5*, T3A+6, T3A+8, T3A+9, T5+7*, T5+8, T5+9, T5+10, T5W, T5W+1
, T6+6*, T6+7, T6+8, T6+9, T6W+1, T6W+2, T6W+4
>> BUDDD T5W+3*, T5W+4
>> BUDED T3H1+7, T51H1+7, T5H1+7, T6H1+7
>> BUDGPG START+1*, T3H+1, T3H1+1*, T3H1+3, T51H+1, T51H1+1*, T51H1+3, T5H+1, T5H1+1*, T5H1+3
, T6H+1, T6H1+1*, T6H1+3
>> BUDH T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+6, T51+7, T5+3, T5+7
, T5+8, T5+9, T5+10, T5W+1, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+2
, T6W+4
>> BUDJ T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+6, T51+7, T5+3, T5+7
, T5+8, T5+9, T5+10, T5W+1, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+2
, T6W+4
>> BUDP T3A+1*, T3H1+9, T3H1+11*, T5+1*, T5H1+9, T5H1+12*, T6+1*, T6H1+9, T6H1+12*
>> BUDPROV T51+6*, T51+7
>> BUDQUIT START+1*, START+3, START+5, START+7, START+9, START+11, START+13, START+15, T3A+2, T3A+3
, T3A+4, T3A+5, T3A+6, T3A+7, T3A+9, T3A+10, T3H+2*, T51+1, T51+2, T51+3
, T51+6, T51H+2*, T5+3, T5+4, T5+7, T5+8, T5+9, T5+10, T5W+1, T5W+3
, T5W+4, T5W+5, T5H+2*, T6+3, T6+4, T6+6, T6+7, T6+8, T6+9, T6W+2
, T6W+3, T6H+2*
>> BUDSEX T3A+4*, T3A+5, T3A+6, T3A+9, T5+9*, T5+10, T5W+1, T6+8*, T6+9, T6W+2
, T6W+4
>> BUDSITE T3A+8, T3H1+6, T51H1+6, T5W, T5H1+6, T6W+1, T6H1+6
>> BUDT3AL START+2, START+4
>> BUDT3BL START+4
>> BUDT4L START+6
>> BUDT5L START+8
>> BUDT5L1 START+10
>> BUDT5L2 START+12
>> BUDT6L START+14
>> BUDTOL START+16
>> BUDV T3A+9*, T3A+11, T5W+1*, T5W+2, T5W+4*, T5W+6, T6W+2*, T6W+4
BUDVLST T5W+1!
BUDVLST( T5W+2*, T5W+3, T5W+4
>> BUDY T51+4*, T51+5, T5+5*, T5+6
>> DFN T3A+6*, T3A+8, T3A+9, T5+10*, T5W, T5W+1, T6+9*, T6W+1, T6W+2, T6W+4
DIR T3H+2!, T51H+2!, T5H+2!, T6H+2!
DIR(0 T3H+2*, T51H+2*, T5H+2*, T6H+2*
DT T3H1+3, T51H1+3, T5H1+3, T6H1+3
>> DTOUT T3H+2, T51H+2, T5H+2, T6H+2
DUZ T3H1+3, T51H1+3, T5H1+3, T6H1+3, USR+1
DUZ(2 T3A+8, T5W, T6W+1, LOC+1
IO T3H+2, T51H+2, T5H+2, T6H+2
IO(0 T3H+2, T51H+2, T5H+2, T6H+2
IOF T3H1+1, T51H1+1, T5H1+1, T6H1+1
IOM CTR+1
IOSL T3A+7, T3A+10, T51+3, T5W+5, T6W+3
IOST T3H+2, T51H+2, T5H+2, T6H+2
U T3A+8, T3A+11, T3H1+3, T3H1+6, T51+4, T51H1+3, T51H1+6, T5+5, T5W, T5W+2
, T5W+6, T5H1+3, T5H1+6, T6W+1, T6W+4, T6H1+3, T6H1+6, USR+1, LOC+1
X T3H1+7*, T51H1+7*, T5H1+7*, T6H1+7*, CTR~, CTR+1
Y T3H+2, T51H+2, T5H+2, T6H+2, CTR~, CTR+1
>> ZTQUEUED T3H+2, T51H+2, T5H+2, T6H+2

Marked Items

Name Field # of Occurrence
$T(@BUD6L T6+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All