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

Package: IHS Uniform Data System

Routine: BUDHRPT1


Information

BUDHRPT1 ;IHS/CMI/LAB - UDS REPORT PRINT;

Source Information

Source file <BUDHRPT1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Uniform Data System 5 PRENATT^BUDHRP6B  (PAUSE,PRENATT)^BUDHRP7  PROC^BUDHRPTC  PRINT^BUDHRPTP  TAXCHK^BUDHXTCH  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBVK  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDHRPT2  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS ZIS+2
^%ZISC DRIVER+4
^%ZTLOAD TSKMN+5
PRENATT^BUDHRP6B EN1+1
PAUSE^BUDHRP7 EN1+20, EN1+28, GENI+21
PRENATT^BUDHRP7 EN1+2
PROC^BUDHRPTC DRIVER+1
PRINT^BUDHRPTP DRIVER+3
TAXCHK^BUDHXTCH EN1+30
^DIC EN1+5
^DIR Y+10, M+18, PNC+2, QUARTER+9, YEAR+7, PT1
$$VAL^XBDIQ1 EN1+24
EN^XBVK EOJ+1
$$FMTE^XLFDT QUARTER+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Table 6B:"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,"Table 7:"
  • Line Location: EN1+2
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+8
Function Call: WRITE
  • Prompt: !!,"SORRY, but I can't tell what state your clinic is located in"
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !!,"Year not entered.",!
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: !,"Time period not entered."
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: !!,"UDS Table Selection"
  • Line Location: M+5
Function Call: WRITE
  • Prompt: !!?5,"1 Patient Zip Code"
  • Line Location: M+6
Function Call: WRITE
  • Prompt: !?5,"2 Table 3A: Patients by Age and Sex Assigned at Birth"
  • Line Location: M+7
Function Call: WRITE
  • Prompt: !?5,"3 Table 3B: Demographic Characteristics"
  • Line Location: M+8
Function Call: WRITE
  • Prompt: !?5,"4 Table 4: Selected Patient Characteristics"
  • Line Location: M+9
Function Call: WRITE
  • Prompt: !?5,"5 Table 5 (a): Staffing List only (column A)"
  • Line Location: M+10
Function Call: WRITE
  • Prompt: !?5,"6 Table 5 (b&c): Staffing and Utilization (cols b&c)"
  • Line Location: M+11
Function Call: WRITE
  • Prompt: !?5,"7 Table 6A: Selected Diagnoses and Services Rendered"
  • Line Location: M+12
Function Call: WRITE
  • Prompt: !?5,"8 Table 6B: Quality of Care Measures"
  • Line Location: M+13
Function Call: WRITE
  • Prompt: !?5,"9 Table 7: Health Outcomes and Disparities"
  • Line Location: M+14
Function Call: WRITE
  • Prompt: !?5,"10 Table 9D: Patient-Related Revenue (Total Counts Only)"
  • Line Location: M+15
Function Call: WRITE
  • Prompt: !?5,"11 Table 9D: Patient-Related Revenue (Delimited Report)"
  • Line Location: M+16
Function Call: WRITE
  • Prompt: !?5,"12 Multiple/ALL Tables Zip through 9D"
  • Line Location: M+17
Function Call: WRITE
  • Prompt: !!,"Patients by Zip Code"
  • Line Location: TZAI+1
Function Call: WRITE
  • Prompt: !,"The Patient Zip Code table reports the number of patients by their"
  • Line Location: TZAI+2
Function Call: WRITE
  • Prompt: !,"most recent (last) zip code as entered in patient registration and "
  • Line Location: TZAI+3
Function Call: WRITE
  • Prompt: !,"their primary health insurance source as of the last visit during"
  • Line Location: TZAI+4
Function Call: WRITE
  • Prompt: !,"the report period."
  • Line Location: TZAI+5
Function Call: WRITE
  • Prompt: !!,"TABLE 3A: PATIENTS BY AGE AND BY SEX ASSIGNED AT BIRTH"
  • Line Location: T3AI+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 3A, an itemization of patients by age"
  • Line Location: T3AI+2
Function Call: WRITE
  • Prompt: !,"and sex assigned at birth. Patients must have at least one visit during "
  • Line Location: T3AI+3
Function Call: WRITE
  • Prompt: !,"the selected reporting period. Age is calculated as of June 30th of the"
  • Line Location: T3AI+4
Function Call: WRITE
  • Prompt: !,"year you select.",!
  • Line Location: T3AI+5
Function Call: WRITE
  • Prompt: !!,"TABLE 4: SELECTED PATIENT CHARACTERISTICS"
  • Line Location: T4I+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 4, selected patient characteristics."
  • Line Location: T4I+2
Function Call: WRITE
  • Prompt: !,"Patients must meet additional criteria as specified for each measure."
  • Line Location: T4I+3
Function Call: WRITE
  • Prompt: !,"Age is calculated as of June 30th of the year you select."
  • Line Location: T4I+4
Function Call: WRITE
  • Prompt: !
  • Line Location: T4I+5
Function Call: WRITE
  • Prompt: !!,"TABLE 3B: DEMOGRAPHIC CHARACTERISTICS"
  • Line Location: T3BI+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 3B, an itemization of users"
  • Line Location: T3BI+2
Function Call: WRITE
  • Prompt: !,"by Demographic Characteristics."
  • Line Location: T3BI+3
Function Call: WRITE
  • Prompt: !,"Patients must have at least one visit during the selected reporting"
  • Line Location: T3BI+4
Function Call: WRITE
  • Prompt: !,"period.",!
  • Line Location: T3BI+5
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 visits and patients",!,"(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 6A: SELECTED DIAGNOSES AND SERVICES RENDERED"
  • Line Location: T6I+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 6A which itemizes visits and patients",!,"by selected diagnoses and services provided regardless of primacy.",!
  • Line Location: T6I+2
Function Call: WRITE
  • Prompt: !!,"TABLE 9D: Patient-Related Revenue (Delimited Report)"
  • Line Location: T9DI+1
Function Call: WRITE
  • Prompt: !,"This is a delimited report, which will can be used to produce UDS Table 9D,"
  • Line Location: T9DI+2
Function Call: WRITE
  • Prompt: !,"Patient-Related Revenue. Table 9D collects information on charges, "
  • Line Location: T9DI+3
Function Call: WRITE
  • Prompt: !,"collections, retroactive settlements, allowances, self-pay sliding "
  • Line Location: T9DI+4
Function Call: WRITE
  • Prompt: !,"discounts, and self-pay bad debt write-off."
  • Line Location: T9DI+5
Function Call: WRITE
  • Prompt: !!,"NOTE: This delimited file will include only A/R Transactions for patients"
  • Line Location: T9DI+6
Function Call: WRITE
  • Prompt: !,"who are considered 'UDS' patients (i.e. they are included in Table 3A)"
  • Line Location: T9DI+7
Function Call: WRITE
  • Prompt: !!,"NOTE: You will be required to enter a name for the delimited output file."
  • Line Location: T9DI+8
Function Call: WRITE
  • Prompt: !,"This file will be placed in the following directory:"
  • Line Location: T9DI+9
Function Call: WRITE
  • Prompt: !?10,BUDDIR,!
  • Line Location: T9DI+10
Function Call: WRITE
  • Prompt: !!,"TABLE 9D: Patient-Related Revenue (Total Counts Only)"
  • Line Location: T9I+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 9D, Patient-Related Revenue. This table "
  • Line Location: T9I+2
Function Call: WRITE
  • Prompt: !,"collects information on charges, collections, retroactive settlements, "
  • Line Location: T9I+3
Function Call: WRITE
  • Prompt: !,"allowances, self-pay sliding discounts, and self-pay bad debt write-off. "
  • Line Location: T9I+4
Function Call: WRITE
  • Prompt: !,"Because there is currently no way to distinguish between non-managed care "
  • Line Location: T9I+5
Function Call: WRITE
  • Prompt: !,"and managed care in RPMS, UDS will only calculate the total counts (lines 3,"
  • Line Location: T9I+6
Function Call: WRITE
  • Prompt: !,"6, 9, 12, and 14) for columns a, b, and d."
  • Line Location: T9I+7
Function Call: WRITE
  • Prompt: !
  • Line Location: T9I+8
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. 2018"
  • 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 2018",80),!
  • Line Location: GENI+3
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all visits and related patients"
  • Line Location: GENI+4
Function Call: WRITE
  • Prompt: !,"during the time period selected. Based on the UDS definition, to be considered"
  • Line Location: GENI+5
Function Call: WRITE
  • Prompt: !,"a patient the patient must have had at least one visit meeting the following"
  • Line Location: GENI+6
Function Call: WRITE
  • Prompt: !,"criteria:"
  • Line Location: GENI+7
Function Call: WRITE
  • Prompt: !?4,"- must be to a location specified in your visit location setup"
  • Line Location: GENI+8
Function Call: WRITE
  • Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  • Line Location: GENI+10
Function Call: WRITE
  • Prompt: !?6,"or In-Hospital (I) visit"
  • Line Location: GENI+11
Function Call: WRITE
  • Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  • Line Location: GENI+12
Function Call: WRITE
  • Prompt: !?4,"- must have a primary provider and a coded purpose of visit"
  • Line Location: GENI+13
Function Call: WRITE
  • Prompt: !?4,"- the patient must NOT have a gender (sex assigned at birth) of 'Unknown'"
  • Line Location: GENI+14
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+16
Function Call: WRITE
  • Prompt: !,"NOTE: Tables 6B and 7 must be run using the Full Calendar Year option."
  • Line Location: GENI+17
Function Call: WRITE
  • Prompt: !,"If these reports are run using the Quarterly options, the totals combined"
  • Line Location: GENI+18
Function Call: WRITE
  • Prompt: !,"will not match the yearly totals."
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+20
Function Call: WRITE
  • Prompt: !!,"not developed yet....."
  • Line Location: NRY+1
Function Call: WRITE
  • Prompt: !!,"You have selected to create a delimited output file for Table 9D. "
  • Line Location: DELF+2
Function Call: WRITE
  • Prompt: !!!,"Your filename cannot contain a '/' or a '\'."
  • Line Location: PT1+2
Function Call: WRITE
  • Prompt: !!,"When the report is finished your delimited output will be found in the",!,BUDDIR," directory. The filename will be ",BUDFILE,".txt",!
  • Line Location: PT1+4
Routine Call
  • DIC
  • Line Location:
    • EN1+5
Routine Call
  • DIR
  • Line Location:
    • Y+10
    • M+18
    • PNC+2
    • QUARTER+9
    • YEAR+7
    • PT1
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BUDHSITE - [#90669.901] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSITE(1 GETDIR+3
^BUDHSITE - [#90669.901] EN1+8
^DIC(4 - [#4] EN1+17, EN1+19, LOC+1
^VA(200 - [#200] USR+1
^XTV(8989.3 - [#8989.3] GETDIR+5

Label References

Name Line Occurrences
$$CTR GENI+3
$$GETDIR EN1+10, T9D+4
$$HL Y+8
$$LOC GENI+3
DELF Y+13
EN EN1+8
EN1 M+33, T3A+5, T4+5, TZ+5, T3B+5, T5+5, T51+5, T6+5, T9D+6, T9+5
EOJ EN1+6, EN1+11, EN1+23, Y+1, Y+3, Y+13, ZIS+3, DRIVER+6, TSKMN+5, M+1
, M+19, T3A+1, T4+1, TZ+1, T3B+1, T5+1, T51+1, T6+1, T9D+1, T9+1
GENI M+3, T3A+3, T4+3, TZ+3, T3B+3, T5+3, T51+3, T6+3, T9D+3, T9+3
PT1 PT1+2
QUARTER Y+2
T3AI T3A+4
T3BI T3B+4
T4I T4+4
T51I T51+4
T5I T5+4
T6I T6+4
T9DI T9D+5
T9I T9+4
TSKMN ZIS1+1
TZAI TZ+4
Y Y+11
YEAR Y, 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, QUARTER+18, QUARTER+19, YEAR+12*
>> BUDBEN Y+5*, Y+12*
>> BUDCCAD YEAR+13*
>> BUDDELT DELF+1*
>> BUDDIR EN1+10*, T9D+4*, T9DI+10, PT1+4
>> BUDED QUARTER+12*, QUARTER+13*, QUARTER+14*, QUARTER+15*, QUARTER+16*, QUARTER+17, QUARTER+18, QUARTER+19, YEAR+12*
>> BUDFILE Y+13, DELF+1*, PT1+3*, PT1+4
>> BUDHOLBD QUARTER+19*
>> BUDHOLED QUARTER+19*
>> BUDPREN PNC+1*, PNC+4*
>> BUDQTR Y+3, QUARTER+1*, QUARTER+11*
>> BUDQUIT QUARTER+10*
>> BUDSITE EN1+3*, EN1+7*, EN1+8, EN1+12, EN1+17, EN1+19, EN1+24
BUDT3A HL+1, M+4!, M+21*, M+22*, T3A+2*
BUDT3B HL+2, M+4!, M+21*, M+23*, T3B+2*
BUDT4 EN1+23, HL+3, M+4!, M+21*, M+24*, T4+2*
BUDT5 HL+4, M+4!, M+21*, M+25*, M+26*, T5+2*, T51+2*
BUDT5L1 M+4!, M+21*, M+25*, T51+2*
BUDT6 HL+5, M+4!, M+21*, M+27*, T6+2*
BUDT6B EN1+1, M+4!, M+21*, M+29*
BUDT7 EN1+2, HL+6, M+4!, M+21*, M+30*
>> BUDT9 EN1+11, M+21*, M+31*, T9+2*
>> BUDT9D EN1+11, Y+13, M+21*, M+32*, T9D+2*
>> BUDTSCTC EN1+4*, M+21*, M+22*, M+23*, M+24*, M+25*, M+26*, M+27*, M+28*, M+29*
, M+30*, M+31*, T3A+2*, T4+2*, TZ+2*, T3B+2*, T5+2*, T51+2*, T6+2*, T9D+2*
, T9+2*, GENI+2*
BUDTZ M+4!, M+21*, M+28*, TZ+2*
>> BUDXXBD QUARTER+18*
>> BUDXXED QUARTER+18*
>> BUDXXXXX Y+6, Y+7, M+2*, GENI+15
>> BUDYEAR Y+1, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+1*, YEAR+12*, YEAR+13
D GETDIR+1~, GETDIR+2*, GETDIR+3*, GETDIR+4, GETDIR+5*, GETDIR+6, GETDIR+7
DA Y+10!, M+18!, PNC+2!, QUARTER+9!, PT1!
DIC EN1+5*, YEAR+8!
DIC("A" EN1+5*
DIC(0 EN1+5*
DIR Y+10!, M+18!, PNC+2!, QUARTER+9!, YEAR+7!, PT1!
DIR("?" QUARTER+2*, QUARTER+3*, QUARTER+4*, QUARTER+5*, QUARTER+6*, QUARTER+7*, YEAR+6*
DIR("A" Y+6*, Y+9*, M+18*, PNC+2*, QUARTER+9*, YEAR+5*, PT1*
DIR("B" Y+10*, M+18*, PNC+2*, QUARTER+9*
DIR(0 Y+6*, Y+8*, M+18*, PNC+2*, QUARTER+8*, YEAR+4*, PT1*
>> DIRUT Y+11, M+19, PNC+3, QUARTER+10, YEAR+9*, YEAR+10, PT1+1
>> DUOUT YEAR+9
DUZ USR+1
DUZ(2 EN1+12, 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
>> Q EN1+9*, EN1+11, EN1+21*, EN1+22*, EN1+23, EN1+29*
>> S EN1+24*, EN1+25
U EN1+17, EN1+19, USR+1, LOC+1
X M+20*, CTR~, CTR+1
Y EN1+6, EN1+7, Y+12, M+20, M+26, PNC+4, QUARTER+10, QUARTER+11, QUARTER+12, QUARTER+13
, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+11, YEAR+12, CTR~, CTR+1, PT1+2, PT1+3
>> Z M+20*, M+21, M+22, M+23, M+24, M+25, M+26, M+27, M+28, M+29
, M+30, M+31, M+32
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED DRIVER+5
>> ZTREQ DRIVER+5*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("BUD*" TSKMN+4*
Info |  Source |  Call Graph |  Caller 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