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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BUD4RPL1

Package: IHS Uniform Data System

Routine: BUD4RPL1


Information

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

Source Information

Source file <BUD4RPL1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS Uniform Data System 1 $$RACE^BUD4RPTC  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 ($$CLINIC,$$LOCENC)^APCLV  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
T6W ;
22 ;;Mammogram
USR() ;EP - Return name of current user from ^VA(200.
T6H ;
TOL ;EP
32 ;;Dental: III. Restorative Services
24 ;;Selected Immunizations
25 ;;Contraceptive Management
26 ;;Health supervision of infant or child (ages 0 through 11)
27 ;;Dental: I. Emergency Services
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.
28 ;;Dental: II. Oral Exams
29 ;;Dental: Prophylaxis - adult or child
1 ;;Symptomatic HIV
3 ;;Tuberculosis
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
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
17 ;;Lack of expected normal physiological development
16 ;;Selected perinatal medical conditions
19 ;;Other substance related disorders (excluding tobacco use disorder)
18 ;;Alcohol related disorders
31 ;;Dental: Flouride treatment
30 ;;Dental: Sealants
34 ;;Dental: V. Rehabilitative services (Endo, Perio, Porstho, Ortho)
33 ;;Dental: IV. Oral Surger (extractions only)
T6H1 ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV T6W+5
$$LOCENC^APCLV T6W+5
$$AGE^AUPNPAT T6W+2
$$HRN^AUPNPAT T6W+1
$$RACE^BUD4RPTC T6W+2
^DIR T6H+2
$$FMTE^XLFDT T6W+5, T6H1+3, T6H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Incomplete visits to report.",!!
  • Line Location: TOL+1
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)
  • Line Location: T6W+1
Function Call: WRITE
  • Prompt: ?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$P($$RACE^BUD4RPTC(DFN),U,2)
  • Line Location: T6W+2
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("Incomplete Visit List w/Services relevant to Table 6",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 incomplete visits with a service relevant to Table 6.",!,"These services are not included in Table 6."
  • 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: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION"
  • Line Location: T6H1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T6H1+12
Routine Call
  • DIR
  • Line Location:
    • T6H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] T6W+5
^DIC(4 - [#4] T6H1+6, LOC+1
^DPT - [#2] T6W+1
^VA(200 - [#200] T6H1+3, USR+1
^XTMP("BUD4RPT1" TOL+1, TOL+3, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+5

Label References

Name Line Occurrences
$$CTR T6H1+4, T6H1+5, T6H1+6, T6H1+7
T6H TOL+1, TOL+4, T6W+4
T6H1 T6H+1
T6W TOL+9

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUD6L TOL+3*, TOL+5, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+5
>> BUDAGE TOL+7*, TOL+8, TOL+9, T6W+3, T6W+5
>> BUDBD T6H1+7
>> BUDCAD T6W+2
>> BUDCOM TOL+6*, TOL+7, TOL+8, TOL+9, T6W+1, T6W+3, T6W+5
>> BUDED T6H1+7
>> BUDGPG T6H+1, T6H1+1*, T6H1+3
>> BUDH TOL+1, TOL+3, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+5
>> BUDJ TOL+1, TOL+3, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+5
>> BUDP TOL+2*, T6H1+9, T6H1+13*
>> BUDQUIT TOL+3, TOL+4, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+4, T6H+2*
>> BUDSEX TOL+8*, TOL+9, T6W+3, T6W+5
>> BUDSITE T6W+1, T6H1+6
>> BUDV T6W+3*, T6W+5
>> DFN TOL+9*, T6W+1, T6W+2, T6W+3, T6W+5
DIR T6H+2!
DIR(0 T6H+2*
DT T6H1+3
>> DTOUT T6H+2
DUZ T6H1+3, USR+1
DUZ(2 T6W+1, LOC+1
IO T6H+2
IO(0 T6H+2
IOF T6H1+1
IOM CTR+1
IOSL T6W+4
IOST T6H+2
U T6W+1, T6W+2, T6W+5, T6H1+3, T6H1+6, USR+1, LOC+1
X T6H1+7*, CTR~, CTR+1
Y T6H+2, CTR~, CTR+1
>> ZTQUEUED T6H+2

Marked Items

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