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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BUD6RPT1

Package: IHS Uniform Data System

Routine: BUD6RPT1


Information

BUD6RPT1 ; IHS/CMI/LAB - UDS REPORT DRIVER ;

Source Information

Source file <BUD6RPT1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS Uniform Data System 3 PROC^BUD6RPTC  PRINT^BUD6RPTP  TAXCHK^BUD6XTCH  
VA Fileman 2 ^DIC  ^DIR  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
EOJ ;
USR() ;EP - Return name of current user from ^VA(200.
T6I ;intro for table 6
TSKMN ;EP ENTRY POINT FROM TASKMAN
TZ ;EP - entry point for Table 3A only
LOC() ;EP - Return location name from file 4 based on DUZ(2).
T51 ;EP
EN1 ;
T51I ;
T3AI ;intro for table 3A
T3BI ;
EN ;EP
ZIS ;call to XBDBQUE
T6 ;EP - entry point for Table 6 only
DRIVER ;
T5 ;EP
M ;EP - called from option
T5I ;
YEAR ;
QUARTER ;
CTR(X,Y) ;EP - Center X in a field Y wide.
ZIS1 ;
T3B ;EP
T3A ;EP - entry point for Table 3A only
GENI ;general introductions
TZAI ;intro for table Z

External References

Name Field # of Occurrence
^%ZIS ZIS+2
^%ZISC DRIVER+4
^%ZTLOAD TSKMN+5
PROC^BUD6RPTC DRIVER+1
PRINT^BUD6RPTP DRIVER+3
TAXCHK^BUD6XTCH EN1+6
^DIC EN1+2
^DIR M+12, QUARTER+9, YEAR+7
EN^XBVK EOJ+1
$$FMTE^XLFDT QUARTER+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Warning: There are no locations defined in the site parameter file for this",!,"site. Report will not be accurate!"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"Year not entered.",!
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !,"Time period not entered."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: !!,"UDS Table Selection"
  • Line Location: M+4
Function Call: WRITE
  • Prompt: !!?5,"1 Center/Grantee Profile: User/Patient by Zip Code"
  • Line Location: M+5
Function Call: WRITE
  • Prompt: !?5,"2 Table 3A: Users by Age and Gender"
  • Line Location: M+6
Function Call: WRITE
  • Prompt: !?5,"3 Table 3B: Users by Race/Ethnicity & Linguistic Pref"
  • Line Location: M+7
Function Call: WRITE
  • Prompt: !?5,"4 Table 5 col b&c: Staffing and Utilization (columns b & c)"
  • Line Location: M+8
Function Call: WRITE
  • Prompt: !?5,"5 Table 6: Selected Diagnoses and Services Rendered"
  • Line Location: M+9
Function Call: WRITE
  • Prompt: !?5,"6 Staff List for Table 5 col a"
  • Line Location: M+10
Function Call: WRITE
  • Prompt: !?5,"7 ALL Tables"
  • Line Location: M+11
Function Call: WRITE
  • Prompt: !!,"Center/Grantee Profile: User/Patient by Zip Code"
  • Line Location: TZAI+1
Function Call: WRITE
  • Prompt: !,"The User/Patient by Zip Code table reports the number of users by"
  • Line Location: TZAI+2
Function Call: WRITE
  • Prompt: !,"their zip code as entered in patient registration."
  • Line Location: TZAI+3
Function Call: WRITE
  • Prompt: !!,"TABLE 3A: USERS BY AGE AND GENDER"
  • Line Location: T3AI+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 3A, an itemization of users (patients) by age"
  • Line Location: T3AI+2
Function Call: WRITE
  • Prompt: !,"and gender. Users must have at least one visit during the selected time period.",!,"as defined above. Age is calculated as of June 30th of the year you select.",!
  • Line Location: T3AI+3
Function Call: WRITE
  • Prompt: !!,"TABLE 3B: USERS BY RACE/ETHNICITY/LANGUAGE"
  • Line Location: T3BI+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 3B, an itemization of users",!,"by race/ethnicity."
  • Line Location: T3BI+2
Function Call: WRITE
  • Prompt: !!,"TABLE 5 (b&c): STAFFING AND UTILIZATION"
  • Line Location: T5I+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 5 that itemizes encounters and users",!,"(columns b and c only) by primary provider discipline."
  • Line Location: T5I+2
Function Call: WRITE
  • Prompt: !!,"STAFF LIST FOR TABLE 5 col a: STAFFING"
  • Line Location: T51I+1
Function Call: WRITE
  • Prompt: !,"This report will produce a Staff List to be used to manually calculate",!,"Column A on Table 5 Staffing and Utilization, itemizing all staff by"
  • Line Location: T51I+2
Function Call: WRITE
  • Prompt: !,"disciplines and by FTE."
  • Line Location: T51I+3
Function Call: WRITE
  • Prompt: !!,"TABLE 6: SELECTED DIAGNOSES AND SERVICES RENDERED"
  • Line Location: T6I+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 6 which itemizes encounters",!,"and users by selected diagnoses and services provided.",!
  • Line Location: T6I+2
Function Call: WRITE
  • Prompt: !!,"Your report will be run for the time period: ",$$FMTE^XLFDT(BUDBD)," to ",$$FMTE^XLFDT(BUDED)
  • Line Location: QUARTER+17
Function Call: WRITE
  • Prompt: !
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: !,"Enter the Calendar Year. Use a 4 digit year, e.g. 2003, 2006"
  • Line Location: YEAR+3
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: YEAR+11
Function Call: WRITE
  • Prompt: !!,$$CTR($$LOC,80),!,$$CTR("UDS 2006",80),!
  • Line Location: GENI+2
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all visits (encounters) and related users"
  • Line Location: GENI+3
Function Call: WRITE
  • Prompt: !,"during the time period selected. Based on the UDS definition, to be considered"
  • Line Location: GENI+4
Function Call: WRITE
  • Prompt: !,"a user the patient must have had at least one visit meeting the following"
  • Line Location: GENI+5
Function Call: WRITE
  • Prompt: !,"criteria:"
  • Line Location: GENI+6
Function Call: WRITE
  • Prompt: !?4,"- must be to a location specified in your visit location setup"
  • Line Location: GENI+7
Function Call: WRITE
  • Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  • Line Location: GENI+8
Function Call: WRITE
  • Prompt: !?6,"Surgery (S), Observation (O), Nursing home visit (R), Historical"
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !?6,"Event (E) visit or In-Hospital (I) visit"
  • Line Location: GENI+10
Function Call: WRITE
  • Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  • Line Location: GENI+11
Function Call: WRITE
  • Prompt: !?4,"- must have a primary provider and a coded purpose of visit"
  • Line Location: GENI+12
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+13
Routine Call
  • DIC
  • Line Location:
    • EN1+2
Routine Call
  • DIR
  • Line Location:
    • M+12
    • QUARTER+9
    • YEAR+7
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BUDSSITE - [#90348.1] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CTR GENI+2
$$LOC GENI+2
EN EN1+5
EN1 M+21, T3A+5, TZ+5, T3B+5, T5+5, T51+5, T6+5
EOJ EN1+3, EN1+8, EN1+10, ZIS+3, DRIVER+5, TSKMN+5, M+1, M+13, T3A+1, TZ+1
, T3B+1, T5+1, T51+1, T6+1
GENI M+2, T3A+3, TZ+3, T3B+3, T5+3, T51+3, T6+3
QUARTER EN1+9
T3AI T3A+4
T3BI T3B+4
T51I T51+4
T5I T5+4
T6I T6+4
TSKMN ZIS1+1
TZAI TZ+4
YEAR EN1+7, YEAR+11

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ZIS+1!, ZIS+2*
>> BUDBD QUARTER+12*, QUARTER+13*, QUARTER+14*, QUARTER+15*, QUARTER+16*, QUARTER+17, YEAR+12*
>> BUDCAD YEAR+13*
>> BUDED QUARTER+12*, QUARTER+13*, QUARTER+14*, QUARTER+15*, QUARTER+16*, QUARTER+17, YEAR+12*
>> BUDQTR EN1+10, QUARTER+1*, QUARTER+11*
>> BUDQUIT QUARTER+10*
>> BUDSITE EN1+1*, EN1+4*, EN1+5
BUDT3A M+3!, M+14*, M+15*, T3A+2*
BUDT3B M+3!, M+14*, M+16*, T3B+2*
BUDT4 M+3!, M+14*
BUDT5 M+3!, M+14*, M+17*, M+19*, T5+2*, T51+2*
>> BUDT5L1 M+14*, M+19*, T51+2*
BUDT6 M+3!, M+14*, M+18*, T6+2*
BUDTZ M+3!, M+14*, M+20*, TZ+2*
>> BUDYEAR EN1+8, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+1*, YEAR+12*, YEAR+13
DA M+12!, QUARTER+9!
DIC EN1+2*, YEAR+8!
DIC("A" EN1+2*
DIC(0 EN1+2*
DIR M+12!, QUARTER+9!, YEAR+7!
DIR("?" QUARTER+2*, QUARTER+3*, QUARTER+4*, QUARTER+5*, QUARTER+6*, QUARTER+7*, YEAR+6*
DIR("A" M+12*, QUARTER+9*, YEAR+5*
DIR("B" M+12*, QUARTER+9*
DIR(0 M+12*, QUARTER+8*, YEAR+4*
>> DIRUT M+13, QUARTER+10, YEAR+9*, YEAR+10
>> DUOUT YEAR+9
DUZ USR+1
DUZ(2 LOC+1
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS1+1
>> IOCPU TSKMN+5
IOF GENI+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+1!
IOSL TSKMN+3
IOST TSKMN+1
>> POP ZIS+3
U USR+1, LOC+1
X CTR~, CTR+1
Y EN1+3, EN1+4, M+14, M+15, M+16, M+17, M+18, M+19, M+20, QUARTER+10
, QUARTER+11, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+11, YEAR+12, CTR~, CTR+1
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("BUD*" TSKMN+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All