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: BUD9RP6I

Package: IHS Uniform Data System

Routine: BUD9RP6I


Information

BUD9RP6I ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;

Source Information

Source file <BUD9RP6I.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 $$CLINIC^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUD9RP6B  

Entry Points

Name Comments DBIA/ICR reference
PRGALX ;
PAUSE ;
IMM2L1 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
PRGA ;EP
IMM2H1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
IMM1L ;EP
PRGAH ;
PRGAL ;EP
IMM2H ;
IMM1 ;EP
USR() ;EP - Return name of current user from ^VA(200.
IMM1H1 ;
IMM2L ;EP
GENI ;EP - general introductions
PRGAL1 ;
IMM1H ;
IMM2 ;EP
PRGAH1 ;
IMM1L1 ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV PRGAL1+16
$$AGE^AUPNPAT PRGAL1+9, IMM1L1+6, IMM2L1+6
$$HRN^AUPNPAT PRGAL1+9, IMM1L1+6, IMM2L1+6
^DIR PAUSE+1, GENI+4, PRGAH+2, IMM1H+2, IMM2H+2
$$VAL^XBDIQ1 PRGAL1+16
$$FMTE^XLFDT PRGAL1+16, PRGAH1+3, PRGAH1+7, IMM1H1+3, IMM1H1+7, IMM2H1+3, IMM2H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
  • Line Location: GENI+1
Function Call: WRITE
  • Prompt: !,"patient population. It is recommended that you run these reports at night and"
  • Line Location: GENI+2
Function Call: WRITE
  • Prompt: !,"print to an electronic file, not directly to a printer.",!
  • Line Location: GENI+3
Function Call: WRITE
  • Prompt: !!,"This Patient List option documents the individual patients and visits"
  • Line Location: GENI+5
Function Call: WRITE
  • Prompt: !,"that are counted and summarized on each Table report (main menu"
  • Line Location: GENI+6
Function Call: WRITE
  • Prompt: !,"option REP). The summary Table report is included at the beginning of each"
  • Line Location: GENI+7
Function Call: WRITE
  • Prompt: !,"List report."
  • Line Location: GENI+8
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all visits and related patients"
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !,"during the time period selected. Based on the UDS definition, to be counted"
  • Line Location: GENI+10
Function Call: WRITE
  • Prompt: !,"as a patient, the patient must have had at least one visit meeting the "
  • Line Location: GENI+11
Function Call: WRITE
  • Prompt: !,"following criteria:"
  • Line Location: GENI+12
Function Call: WRITE
  • Prompt: !?4,"- must be to a location specified in your visit location setup"
  • Line Location: GENI+13
Function Call: WRITE
  • Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  • Line Location: GENI+14
Function Call: WRITE
  • Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  • Line Location: GENI+15
Function Call: WRITE
  • Prompt: !?6,"or In-Hospital (I) visit"
  • Line Location: GENI+16
Function Call: WRITE
  • Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  • Line Location: GENI+17
Function Call: WRITE
  • Prompt: !?4,"- must have a primary provider and a coded purpose of visit"
  • Line Location: GENI+18
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PRGA+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2009",80)
  • Line Location: PRGA+3
Function Call: WRITE
  • Prompt: !!,"Prenatal Patients by Age (Table 6B)",!
  • Line Location: PRGA+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of patients by age that had pregnancy-related"
  • Line Location: PRGA+7
Function Call: WRITE
  • Prompt: !,"visits during the past 20 months, with at least one pregnancy-related visit"
  • Line Location: PRGA+8
Function Call: WRITE
  • Prompt: !,"during the report period."
  • Line Location: PRGA+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGA+10
Function Call: WRITE
  • Prompt: !!,"No patients to report."
  • Line Location: PRGAL+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PREGNANT PATIENTS: ",BUDTOT,!
  • Line Location: PRGAL+15
Function Call: WRITE
  • Prompt: !,BUDAB,!
  • Line Location: PRGAL1+2
Function Call: WRITE
  • Prompt: ?5,BUDV,!
  • Line Location: PRGAL1+14
Function Call: WRITE
  • Prompt: !,"Sub-Total ",BUDAB,": ",BUDSTOT,!
  • Line Location: PRGAL1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGAH+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: PRGAH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: PRGAH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: PRGAH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Sections A & B, Pregnant Patients",80),!
  • Line Location: PRGAH1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: PRGAH1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PRGAH1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: PRGAH1+8
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"AGE"
  • Line Location: PRGAH1+15
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?20,"DX OR SVC CD",?33,"SVC CAT",?41,"CLINIC",?60,"LOCATION"
  • Line Location: PRGAH1+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: PRGAH1+17
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IMM1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2009",80)
  • Line Location: IMM1+3
Function Call: WRITE
  • Prompt: !!,"All Patients Age 2 w/All Child Immunizations (Table 6B)",!
  • Line Location: IMM1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of two year old patients who had their first"
  • Line Location: IMM1+7
Function Call: WRITE
  • Prompt: !,"visit prior to their 2nd birthday, had a medical visit during the report"
  • Line Location: IMM1+8
Function Call: WRITE
  • Prompt: !,"period, and have all required childhood immunizations."
  • Line Location: IMM1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM1+10
Function Call: WRITE
  • Prompt: !!,"No patients to report."
  • Line Location: IMM1L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS IMMUNIZED: ",BUDTOT,!
  • Line Location: IMM1L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM1H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: IMM1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: IMM1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: IMM1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Sections C, With Childhood Immunizations",80),!
  • Line Location: IMM1H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: IMM1H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IMM1H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IMM1H1+8
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IMM1H1+14
Function Call: WRITE
  • Prompt: !?5,"IMMUNIZATIONS RCVD, CONTRAIND, EVID OF DISEASE"
  • Line Location: IMM1H1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IMM1H1+16
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IMM2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2009",80)
  • Line Location: IMM2+3
Function Call: WRITE
  • Prompt: !!,"All Patients Age 2 w/o All Child Immunizations (Table 6B)",!
  • Line Location: IMM2+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of two year old patients who had their first"
  • Line Location: IMM2+7
Function Call: WRITE
  • Prompt: !,"visit prior to their 2nd birthday, had a medical visit during the report"
  • Line Location: IMM2+8
Function Call: WRITE
  • Prompt: !,"period, and do not have all required childhood immunizations."
  • Line Location: IMM2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM2+10
Function Call: WRITE
  • Prompt: !!,"No patients to report."
  • Line Location: IMM2L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS NOT IMMUNIZED: ",BUDTOT,!
  • Line Location: IMM2L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM2H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: IMM2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: IMM2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: IMM2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Sections C, Without Childhood Immunizations",80),!
  • Line Location: IMM2H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: IMM2H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IMM2H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IMM2H1+8
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IMM2H1+14
Function Call: WRITE
  • Prompt: !?5,"IMMUNIZATIONS NOT RECEIVED"
  • Line Location: IMM2H1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IMM2H1+16
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • PRGAH+2
    • IMM1H+2
    • IMM2H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] PRGAL1+16
^DIC(4 - [#4] LOC+1, PRGAH1+6, IMM1H1+6, IMM2H1+6
^DPT - [#2] PRGAL1+9, IMM1L1+6, IMM2L1+6
^VA(200 - [#200] USR+1, PRGAH1+3, IMM1H1+3, IMM2H1+3
^XTMP("BUD9RP6B" PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4
, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8

Label References

Name Line Occurrences
$$CTR PRGA+2, PRGA+3, PRGAH1+4, PRGAH1+5, PRGAH1+6, PRGAH1+7, IMM1+2, IMM1+3, IMM1H1+4, IMM1H1+5
, IMM1H1+6, IMM1H1+7, IMM2+2, IMM2+3, IMM2H1+4, IMM2H1+5, IMM2H1+6, IMM2H1+7
$$LOC PRGA+2, IMM1+2, IMM2+2
GENI PRGA+5, IMM1+5, IMM2+5
IMM1H IMM1L+2, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10
IMM1H1 IMM1H+1
IMM1L1 IMM1L+4
IMM2H IMM2L+2, IMM2L+5, IMM2L1+1, IMM2L1+5, IMM2L1+10
IMM2H1 IMM2H+1
IMM2L1 IMM2L+4
PAUSE PRGA+6, IMM1+6, IMM2+6
PRGAH PRGAL+2, PRGAL+14, PRGAL1+1, PRGAL1+8, PRGAL1+13
PRGAH1 PRGAH+1
PRGAL1 PRGAL+4, PRGAL+6, PRGAL+8, PRGAL+10, PRGAL+12
PRGALX PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+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
>> BUDA PRGAL1+4*, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11
>> BUDAB PRGAL+4*, PRGAL+6*, PRGAL+8*, PRGAL+10*, PRGAL+12*, PRGAL1+2, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7
, PRGAL1+11, PRGAL1+17
>> BUDALL PRGAL1+11*, PRGAL1+12, IMM1L1+8*, IMM1L1+9, IMM2L1+8*, IMM2L1+9
>> BUDBD PRGAH1+7, IMM1H1+7, IMM2H1+7
>> BUDCAD PRGAL1+9
>> BUDCOM PRGAL1+6*, PRGAL1+7, PRGAL1+9, PRGAL1+11, IMM1L1+3*, IMM1L1+4, IMM1L1+6, IMM1L1+8, IMM2L1+3*, IMM2L1+4
, IMM2L1+6, IMM2L1+8
>> BUDED PRGAH1+7, IMM1L1+6, IMM1H1+7, IMM2L1+6, IMM2H1+7
>> BUDGPG PRGAH+1, PRGAH1+1*, PRGAH1+3, IMM1H+1, IMM1H1+1*, IMM1H1+3, IMM2H+1, IMM2H1+1*, IMM2H1+3
>> BUDH PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4
, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDJ PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4
, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDNAME PRGAL1+5*, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L1+2*, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L1+2*, IMM2L1+3
, IMM2L1+4, IMM2L1+8
>> BUDP PRGAL+1*, PRGAH1+9, PRGAH1+18*, IMM1L+1*, IMM1H1+9, IMM1H1+17*, IMM2L+1*, IMM2H1+9, IMM2H1+17*
>> BUDQUIT PRGAL+1*, PRGAL+2, PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+14, PRGAL1+1, PRGAL1+4
, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12, PRGAL1+13, PRGAH+2*, IMM1L+1*, IMM1L+2, IMM1L+5
, IMM1L1+1, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+5, IMM1L1+9, IMM1L1+10, IMM1H+2*, IMM2L+1*, IMM2L+2
, IMM2L+5, IMM2L1+1, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+5, IMM2L1+9, IMM2L1+10, IMM2H+2*
>> BUDSITE PRGAL1+9, PRGAH1+6, IMM1L1+6, IMM1H1+6, IMM2L1+6, IMM2H1+6
>> BUDSTOT PRGAL1+3*, PRGAL1+10*, PRGAL1+17
>> BUDTOT PRGAL+1*, PRGAL+15, PRGAL1+10*, IMM1L+1*, IMM1L+6, IMM1L1+7*, IMM2L+1*, IMM2L+6, IMM2L1+7*
>> BUDV PRGAL1+12*, PRGAL1+14, PRGAL1+15, IMM1L1+9*, IMM1L1+11, IMM2L1+9*, IMM2L1+11
>> BUDX PRGAL1+12*, IMM1L1+9*, IMM2L1+9*
>> C PRGAL1+15*, PRGAL1+16
DA PAUSE+1!
>> DFN PRGAL1+7*, PRGAL1+9, PRGAL1+11, IMM1L1+4*, IMM1L1+6, IMM1L1+8, IMM2L1+4*, IMM2L1+6, IMM2L1+8
DIR PAUSE+1!, GENI+4!, PRGAH+2!, IMM1H+2!, IMM2H+2!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, PRGAH+2*, IMM1H+2*, IMM2H+2*
DT PRGAH1+3, IMM1H1+3, IMM2H1+3
>> DTOUT PRGAH+2, IMM1H+2, IMM2H+2
DUZ USR+1, PRGAH1+3, IMM1H1+3, IMM2H1+3
DUZ(2 LOC+1, PRGAL1+9, IMM1L1+6, IMM2L1+6
IO PRGAH+2, IMM1H+2, IMM2H+2
IO(0 PRGAH+2, IMM1H+2, IMM2H+2
IOF PRGA+1, PRGAH1+1, IMM1+1, IMM1H1+1, IMM2+1, IMM2H1+1
IOM CTR+1
IOSL PRGAL+14, PRGAL1+1, PRGAL1+8, PRGAL1+13, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10, IMM2L+5, IMM2L1+1
, IMM2L1+5, IMM2L1+10
IOST PRGAH+2, IMM1H+2, IMM2H+2
U USR+1, LOC+1, PRGAL1+9, PRGAL1+12, PRGAL1+16, PRGAH1+3, PRGAH1+6, IMM1L1+6, IMM1L1+9, IMM1H1+3
, IMM1H1+6, IMM2L1+6, IMM2L1+9, IMM2H1+3, IMM2H1+6
>> V PRGAL1+15*, PRGAL1+16
X CTR~, CTR+1, PRGAH1+7*, IMM1H1+7*, IMM2H1+7*
Y CTR~, CTR+1, PRGAH+2, IMM1H+2, IMM2H+2
>> ZTQUEUED PRGAH+2, IMM1H+2, IMM2H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All