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

Package: IHS Uniform Data System

Routine: BUDCRP6I


Information

BUDCRP6I ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ; 14 Jan 2015 2:27 PM

Source Information

Source file <BUDCRP6I.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS Uniform Data System 12 (DS1L,DS2L)^BUDCRP61  (HIV1L,HIV2L)^BUDCRP6A  (WAC1L,WAC2L)^BUDCRP6F  (AWS1L,AWS2L)^BUDCRP6G  (CAD1L,CAD2L)^BUDCRP6J  (IVD1L,IVD2L)^BUDCRP6K  (CRC1L,CRC2L)^BUDCRP6L  (DEP1L,DEP2L)^BUDCRP6N  
(PAP1L,PAP2L)^BUDCRP6P  (APT1L,APT2L)^BUDCRP6S  (TUA1L,TUA2L)^BUDCRP6T  PRGAL^BUDCRP6W  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Uniform Data System 5 BUDCRP61  BUDCRP6A  BUDCRP6B  BUDCRP6N  BUDCRP6W  

Entry Points

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

External References

Name Field # of Occurrence
$$AGE^AUPNPAT IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
$$HRN^AUPNPAT IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
DS1L^BUDCRP61 LISTS+24
DS2L^BUDCRP61 LISTS+25
HIV1L^BUDCRP6A LISTS+20
HIV2L^BUDCRP6A LISTS+21
WAC1L^BUDCRP6F LISTS+6
WAC2L^BUDCRP6F LISTS+7
AWS1L^BUDCRP6G LISTS+8
AWS2L^BUDCRP6G LISTS+9
CAD1L^BUDCRP6J LISTS+14
CAD2L^BUDCRP6J LISTS+15
IVD1L^BUDCRP6K LISTS+16
IVD2L^BUDCRP6K LISTS+17
CRC1L^BUDCRP6L LISTS+18
CRC2L^BUDCRP6L LISTS+19
DEP1L^BUDCRP6N LISTS+22
DEP2L^BUDCRP6N LISTS+23
PAP1L^BUDCRP6P LISTS+4
PAP2L^BUDCRP6P LISTS+5
APT1L^BUDCRP6S LISTS+12
APT2L^BUDCRP6S LISTS+13
TUA1L^BUDCRP6T LISTS+10
TUA2L^BUDCRP6T LISTS+11
PRGAL^BUDCRP6W LISTS+1
^DIR PAUSE+1, GENI+4, IMM1H+3, IMM2H+3
$$FMTE^XLFDT IMM1HD+3, IMM1HD+7, IMM1H1+3, IMM1H1+7, IMM2HD+3, IMM2HD+7, IMM2H1+3, IMM2H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"UDS does not calculate the prenatal care indicators in Sections A and B."
  • Line Location: PRENATT+1
Function Call: WRITE
  • Prompt: !,"However, you can run a list of patients identified by UDS as pregnant to"
  • Line Location: PRENATT+2
Function Call: WRITE
  • Prompt: !,"determine which of them received prenatal care at your facility or were "
  • Line Location: PRENATT+3
Function Call: WRITE
  • Prompt: !,"referred elsewhere by your facility for prenatal and perinatal services "
  • Line Location: PRENATT+4
Function Call: WRITE
  • Prompt: !,"to assist you with completing Table 6B, Sections A and B. The menu options"
  • Line Location: PRENATT+5
Function Call: WRITE
  • Prompt: !,"you would select to run the patient list are: LST, LST2, A-D, PRGA."
  • Line Location: PRENATT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRENATT+7
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: !?4,"- the patient must NOT have a gender of 'Unknown'"
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+20
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IMM1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: IMM1+3
Function Call: WRITE
  • Prompt: !!,"All Patients Age 3 w/All Child Immunizations (Table 6B)",!
  • Line Location: IMM1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of three year old patients who had their first"
  • Line Location: IMM1+7
Function Call: WRITE
  • Prompt: !,"visit prior to their 3rd 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: !!,"TOTAL PATIENTS IMMUNIZED: ",BUDTOT,!
  • Line Location: IMM1L+6
Function Call: WRITE
  • Prompt: $E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,$$AGE^AUPNPAT(DFN,BUDED),!
  • Line Location: IMM1L1+6
Function Call: WRITE
  • Prompt: ?4,BUDV,!
  • Line Location: IMM1L1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM1H+3
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, Section 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: $$CTR(X,80),!
  • Line Location: IMM1H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IMM1H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IMM1H1+15
Function Call: WRITE
  • Prompt: !?5,"IMMUNIZATIONS RCVD, CONTRAIND, EVID OF DISEASE"
  • Line Location: IMM1H1+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IMM1H1+17
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IMM2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: IMM2+3
Function Call: WRITE
  • Prompt: !!,"All Patients Age 3 w/o All Child Immunizations (Table 6B)",!
  • Line Location: IMM2+4
Function Call: WRITE
  • Prompt: !!,"List of all 3-year old patients who had their first visit prior to their"
  • Line Location: IMM2+7
Function Call: WRITE
  • Prompt: !,"3rd birthday, had a medical visit during the report period, and are in "
  • Line Location: IMM2+8
Function Call: WRITE
  • Prompt: !,"need of the following immunizations to complete all required childhood "
  • Line Location: IMM2+9
Function Call: WRITE
  • Prompt: !,"immunizations."
  • Line Location: IMM2+10
Function Call: WRITE
  • Prompt: !,"Age is calculated as of December 31."
  • Line Location: IMM2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM2+12
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS NOT IMMUNIZED: ",BUDTOT,!
  • Line Location: IMM2L+6
Function Call: WRITE
  • Prompt: $E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,$$AGE^AUPNPAT(DFN,BUDED),!
  • Line Location: IMM2L1+6
Function Call: WRITE
  • Prompt: ?4,BUDV,!
  • Line Location: IMM2L1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM2H+3
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, Section 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: $$CTR(X,80),!
  • Line Location: IMM2H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IMM2H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IMM2H1+16
Function Call: WRITE
  • Prompt: !?5,"IMMUNIZATIONS NOT RECEIVED"
  • Line Location: IMM2H1+17
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IMM2H1+18
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • IMM1H+3
    • IMM2H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, IMM1HD+6, IMM1H1+6, IMM2HD+6, IMM2H1+6
^DPT - [#2] IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
^TMP($J S+2*
^VA(200 - [#200] USR+1, IMM1HD+3, IMM1H1+3, IMM2HD+3, IMM2H1+3
^XTMP("BUDCRP6B" 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 IMM1+2, IMM1+3, IMM1H1+4, IMM1H1+5, IMM1H1+6, IMM1H1+7, IMM1H1+8, IMM2+2, IMM2+3, IMM2H1+4
, IMM2H1+5, IMM2H1+6, IMM2H1+7, IMM2H1+8
$$LOC IMM1+2, IMM2+2
GENI IMM1+5, IMM2+5
IMM1H IMM1L+2, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10
IMM1H1 IMM1H+2
IMM1HD IMM1H+1
IMM1L LISTS+2
IMM1L1 IMM1L+4
IMM2H IMM2L+2, IMM2L+5, IMM2L1+1, IMM2L1+5, IMM2L1+10
IMM2H1 IMM2H+2
IMM2HD IMM2H+1
IMM2L LISTS+3
IMM2L1 IMM2L+4
PAUSE IMM1+6, IMM2+6
S IMM1L+3, IMM1L+7, IMM1L1+13, IMM1HD+1, IMM1HD+2, IMM1HD+3, IMM1HD+4, IMM1HD+5, IMM1HD+6, IMM1HD+7
, IMM1HD+8, IMM1HD+9, IMM1HD+10, IMM1HD+11, IMM1HD+12, IMM1HD+13, IMM1HD+14, IMM1HD+15, IMM2L+3, IMM2L+7
, IMM2L1+13, IMM2HD+1, IMM2HD+2, IMM2HD+3, IMM2HD+4, IMM2HD+5, IMM2HD+6, IMM2HD+7, IMM2HD+8, IMM2HD+9
, IMM2HD+10, IMM2HD+11, IMM2HD+12, IMM2HD+13, IMM2HD+14, IMM2HD+15, IMM2HD+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
>> BUDALL IMM1L1+8*, IMM1L1+9, IMM2L1+8*, IMM2L1+9
>> BUDAPT1L LISTS+12
>> BUDAPT2L LISTS+13
>> BUDAWS1L LISTS+8
>> BUDAWS2L LISTS+9
>> BUDBD IMM1HD+7, IMM1H1+7, IMM2HD+7, IMM2H1+7
>> BUDCAD1L LISTS+14
>> BUDCAD2L LISTS+15
>> BUDCEN IMM1HD+8, IMM1H1+8, IMM2HD+8, IMM2H1+8
>> BUDCOM IMM1L1+3*, IMM1L1+4, IMM1L1+6, IMM1L1+8, IMM1L1+13, IMM2L1+3*, IMM2L1+4, IMM2L1+6, IMM2L1+8, IMM2L1+13
>> BUDCRC1L LISTS+18
>> BUDCRC2L LISTS+19
>> BUDDECNT S+1*, S+2
>> BUDDEP1L LISTS+22
>> BUDDEP2L LISTS+23
>> BUDDS1L LISTS+24
>> BUDDS2L LISTS+25
>> BUDED IMM1L1+6, IMM1L1+13, IMM1HD+7, IMM1H1+7, IMM2L1+6, IMM2L1+13, IMM2HD+7, IMM2H1+7
>> BUDGPG LISTS+1*, LISTS+2*, LISTS+3*, LISTS+4*, LISTS+5*, LISTS+6*, LISTS+7*, LISTS+8*, LISTS+9*, LISTS+10*
, LISTS+11*, LISTS+12*, LISTS+13*, LISTS+14*, LISTS+15*, LISTS+16*, LISTS+17*, LISTS+18*, LISTS+19*, LISTS+20*
, LISTS+21*, LISTS+22*, LISTS+23*, LISTS+24*, LISTS+25*, IMM1H+2, IMM1H1+1*, IMM1H1+3, IMM2H+2, IMM2H1+1*
, IMM2H1+3
>> BUDH IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDHIV1L LISTS+20
>> BUDHIV2L LISTS+21
>> BUDIMM1L LISTS+2
>> BUDIMM2L LISTS+3
>> BUDIVD1L LISTS+16
>> BUDIVD2L LISTS+17
>> BUDJ IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDNAME IMM1L1+2*, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L1+2*, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDP IMM1L+1*, IMM1H1+10, IMM1H1+18*, IMM2L+1*, IMM2H1+10, IMM2H1+19*
>> BUDPAP1L LISTS+4
>> BUDPAP2L LISTS+5
>> BUDPRGAL LISTS+1
>> BUDQUIT IMM1L+1*, IMM1L+2, IMM1L+5, IMM1L1+1, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+5, IMM1L1+9, IMM1L1+10
, IMM1H+3*, IMM2L+1*, IMM2L+2, IMM2L+5, IMM2L1+1, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+5, IMM2L1+9
, IMM2L1+10, IMM2H+3*
>> BUDROT IMM1L+3, IMM1L+5, IMM1L+6, IMM1L+7, IMM1L1+1, IMM1L1+5, IMM1L1+6, IMM1L1+10, IMM1L1+11, IMM1L1+12
, IMM1L1+13, IMM1H+1, IMM2L+3, IMM2L+5, IMM2L+6, IMM2L+7, IMM2L1+1, IMM2L1+5, IMM2L1+6, IMM2L1+10
, IMM2L1+11, IMM2L1+12, IMM2L1+13, IMM2H+1
>> BUDSITE IMM1L1+6, IMM1L1+13, IMM1HD+6, IMM1H1+6, IMM2L1+6, IMM2L1+13, IMM2HD+6, IMM2H1+6
>> BUDTOT IMM1L+1*, IMM1L+6, IMM1L+7, IMM1L1+7*, IMM2L+1*, IMM2L+6, IMM2L+7, IMM2L1+7*
>> BUDTUA1L LISTS+10
>> BUDTUA2L LISTS+11
>> BUDV IMM1L1+9*, IMM1L1+11, IMM1L1+12, IMM2L1+9*, IMM2L1+11, IMM2L1+12
>> BUDWAC1L LISTS+6
>> BUDWAC2L LISTS+7
>> BUDX IMM1L1+9*, IMM2L1+9*
DA PAUSE+1!
>> DFN IMM1L1+4*, IMM1L1+6, IMM1L1+8, IMM1L1+13, IMM2L1+4*, IMM2L1+6, IMM2L1+8, IMM2L1+13
DIR PAUSE+1!, GENI+4!, IMM1H+3!, IMM2H+3!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, IMM1H+3*, IMM2H+3*
DT IMM1HD+3, IMM1H1+3, IMM2HD+3, IMM2H1+3
>> DTOUT IMM1H+3, IMM2H+3
DUZ USR+1, IMM1HD+3, IMM1H1+3, IMM2HD+3, IMM2H1+3
DUZ(2 LOC+1, IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
IO IMM1H+3, IMM2H+3
IO(0 IMM1H+3, IMM2H+3
IOF IMM1+1, IMM1H1+1, IMM2+1, IMM2H1+1
IOM CTR+1
IOSL IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10, IMM2L+5, IMM2L1+1, IMM2L1+5, IMM2L1+10
IOST IMM1H+3, IMM2H+3
U USR+1, LOC+1, IMM1L1+6, IMM1L1+9, IMM1L1+13, IMM1HD+3, IMM1HD+6, IMM1H1+3, IMM1H1+6, IMM2L1+6
, IMM2L1+9, IMM2L1+13, IMM2HD+3, IMM2HD+6, IMM2H1+3, IMM2H1+6
V S~, S+2
X CTR~, CTR+1, IMM1L1+9*, IMM1L1+12*, IMM1L1+13, IMM1HD+7*, IMM1HD+8*, IMM1H1+7*, IMM1H1+8*, IMM2L1+9*
, IMM2L1+12*, IMM2L1+13, IMM2HD+7*, IMM2HD+8*, IMM2H1+7*, IMM2H1+8*
Y CTR~, CTR+1, IMM1L1+13*, IMM1H+3, IMM2L1+13*, IMM2H+3
>> ZTQUEUED IMM1H+3, IMM2H+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All