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

Package: IHS Uniform Data System

Routine: BUD9RPTS


Information

BUD9RPTS ; IHS/CMI/LAB - UDS REPORT DRIVER 12 Dec 2009 8:11 AM ;

Source Information

Source file <BUD9RPTS.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
IHS Uniform Data System 4 PROC^BUD9RPTC  PRINT^BUD9RPTP  EN^BUD9STMP  TAXCHK^BUD9XTCH  
VA Fileman 2 ^DIC  ^DIR  
IHS VA Utilities 1 EN^XBVK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUD9RPTP  

Entry Points

Name Comments DBIA/ICR reference
NRY ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
EN ;EP
ZIS ;call to XBDBQUE
TEMP ;
ZIS1 ;
T3AI ;intro for table 3A
PRINTCP ;
DRIVER ;
USR() ;EP - Return name of current user from ^VA(200.
GENI ;general introductions
EN1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PAUSE ;
EOJ ;
TSKMN ;EP ENTRY POINT FROM TASKMAN
YEAR ;
STEMP ;EP
QUARTER ;

External References

Name Field # of Occurrence
^%ZIS ZIS+3
^%ZISC DRIVER+5
^%ZTLOAD TSKMN+5
PROC^BUD9RPTC DRIVER+1
PRINT^BUD9RPTP DRIVER+4
EN^BUD9STMP TEMP+2
TAXCHK^BUD9XTCH EN1+6
^DIC EN1+2
^DIR QUARTER+9, YEAR+7, PAUSE+1
EN^XBVK EOJ+1
$$FMTE^XLFDT PRINTCP+3, PRINTCP+4, QUARTER+17
$$REPEAT^XLFSTR PRINTCP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"SEARCH TEMPLATE CREATION FOR PATIENTS INCLUDED IN TABLE 3A.",!
  • Line Location: EN+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+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+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTCP+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRINTCP+2
Function Call: WRITE
  • Prompt: !,"UDS No. ",$P(^BUDNSITE(BUDSITE,0),U,2),?50,"Date Run: ",$$FMTE^XLFDT(DT)
  • Line Location: PRINTCP+3
Function Call: WRITE
  • Prompt: !,"Reporting Period: ",$$FMTE^XLFDT(BUDBD)," through ",$$FMTE^XLFDT(BUDED)
  • Line Location: PRINTCP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTCP+5
Function Call: WRITE
  • Prompt: X,!
  • Line Location: PRINTCP+6
Function Call: WRITE
  • Prompt: !!,"Search Template ",$P(^DIBT(BUDSTMP,0),U,1)," successfully created.",!
  • Line Location: PRINTCP+7
Function Call: WRITE
  • Prompt: !!,"TABLE 3A: USERS BY AGE AND GENDER WITH SEARCH TEMPLATE CREATION"
  • 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: !,"The patients included in this table will be stored in a search template"
  • Line Location: T3AI+4
Function Call: WRITE
  • Prompt: !,"for you to use in other applications (QMAN, PGEN) to assist you in"
  • Line Location: T3AI+5
Function Call: WRITE
  • Prompt: !,"completing UDS tables not produced the the IHS/RPMS UDS System."
  • Line Location: T3AI+6
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, 2007"
  • 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 2009",80),!
  • Line Location: GENI+2
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all visits and related patients"
  • 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 patient 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), Telemedicine (M), Nursing home visit (R), "
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !?6,"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
Function Call: WRITE
  • Prompt: !,"TABLE 3A: PATIENTS BY AGE AND GENDER WITH SEARCH TEMPLATE CREATION"
  • Line Location: GENI+15
Function Call: WRITE
  • Prompt: !!,"This option will create a search template of all patients who meet"
  • Line Location: GENI+16
Function Call: WRITE
  • Prompt: !,"the definition of a patient above and who are included in UDS Table 3A."
  • Line Location: GENI+17
Function Call: WRITE
  • Prompt: !,"You may use this search template in other applications (QMAN, PGEN)"
  • Line Location: GENI+18
Function Call: WRITE
  • Prompt: !,"to assist you in completing UDS tables not produced by the IHS/RPMS UDS"
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !,"application."
  • Line Location: GENI+20
Function Call: WRITE
  • Prompt: !!,"Patients must have at least one visit during the selected time period,"
  • Line Location: GENI+21
Function Call: WRITE
  • Prompt: !,"as defined above. Age is calculated as of June 30th of the year you"
  • Line Location: GENI+22
Function Call: WRITE
  • Prompt: !,"select."
  • Line Location: GENI+23
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+24
Function Call: WRITE
  • Prompt: !,"This option will also produce UDS Table 3A, an itemization of users"
  • Line Location: GENI+25
Function Call: WRITE
  • Prompt: !,"(patients) by age and gender."
  • Line Location: GENI+26
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+27
Function Call: WRITE
  • Prompt: !!,"not developed yet....."
  • Line Location: NRY+1
Routine Call
  • DIC
  • Line Location:
    • EN1+2
Routine Call
  • DIR
  • Line Location:
    • QUARTER+9
    • YEAR+7
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BUDNSITE - [#90661.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BUDNSITE - [#90661.1] EN1+5, PRINTCP+3
^DIBT( PRINTCP+7, STEMP+1*
^DIC(4 - [#4] PRINTCP+2, LOC+1
^VA(200 - [#200] PRINTCP+2, USR+1
^XTMP("BUD9RPT1" STEMP+1

Label References

Name Line Occurrences
$$CTR PRINTCP+2, GENI+2
$$LOC GENI+2
EN EN1+5, TEMP+3
EOJ EN+1, EN1+3, EN1+8, EN1+10, ZIS+4, DRIVER+7, TSKMN+5
GENI EN+3
PAUSE GENI+14
PRINTCP DRIVER+3
QUARTER EN1+9
TSKMN ZIS1+1
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+2!, ZIS+3*
>> BUDBD PRINTCP+4, QUARTER+12*, QUARTER+13*, QUARTER+14*, QUARTER+15*, QUARTER+16*, QUARTER+17, YEAR+12*
>> BUDCAD YEAR+13*
>> BUDED PRINTCP+4, QUARTER+12*, QUARTER+13*, QUARTER+14*, QUARTER+15*, QUARTER+16*, QUARTER+17, YEAR+12*
>> BUDFNP PRINTCP+8*
>> BUDH STEMP+1
>> BUDJ STEMP+1
>> BUDQTR EN1+10, QUARTER+1*, QUARTER+11*
>> BUDQUIT QUARTER+10*
>> BUDSITE EN1+1*, EN1+4*, EN1+5, PRINTCP+2, PRINTCP+3
>> BUDSTMP TEMP+1*, TEMP+3, PRINTCP+7, STEMP+1
>> BUDT3A ZIS+1*
>> BUDYEAR EN1+8, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+1*, YEAR+12*, YEAR+13
DA QUARTER+9!, PAUSE+1!
DIC EN1+2*, YEAR+8!
DIC("A" EN1+2*
DIC(0 EN1+2*
DIR QUARTER+9!, YEAR+7!, PAUSE+1!
DIR("?" QUARTER+2*, QUARTER+3*, QUARTER+4*, QUARTER+5*, QUARTER+6*, QUARTER+7*, YEAR+6*
DIR("A" QUARTER+9*, YEAR+5*, PAUSE+1*
DIR("B" QUARTER+9*
DIR(0 QUARTER+8*, YEAR+4*, PAUSE+1*
>> DIRUT QUARTER+10, YEAR+9*, YEAR+10
DT PRINTCP+3
>> DUOUT YEAR+9
DUZ PRINTCP+2, 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+2!
IOSL TSKMN+3
IOST TSKMN+1
>> POP ZIS+4
U PRINTCP+2, PRINTCP+3, PRINTCP+7, USR+1, LOC+1
X PRINTCP+2*, PRINTCP+6*, CTR~, CTR+1, STEMP+1*
Y EN1+3, EN1+4, 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*
>> ZTQUEUED DRIVER+6
>> ZTREQ DRIVER+6*
>> 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