Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BUD5RPT2

BUD5RPT2.m

Go to the documentation of this file.
BUD5RPT2 ; IHS/CMI/LAB - UDS REPORT DRIVER ;
 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
 ;
 ;
 Q  ;not at top
 ;
EN ;EP
 D EOJ
EN1 ;
 S BUDSITE=""
 W ! S DIC="^BUDVSITE(",DIC(0)="AEMQ",DIC("A")="Enter your site: " D ^DIC
 I Y=-1 D EOJ Q
 S BUDSITE=+Y
 I '$O(^BUDVSITE(BUDSITE,11,0)) W !!,"Warning:  There are no locations defined in the site parameter file for this",!,"site.  Report will not be accurate!" G EN
 D TAXCHK^BUDTXCH
 D YEAR
 I BUDYEAR="" W !!,"Year not entered.",! D EOJ Q
 D QUARTER  ;get time period
 I BUDQTR="" W !,"Time period not entered." D EOJ Q
 W !!,"Depending on the size of your database, this report may take 2-4 hours to run"
 W !,"and produce user reports that are hundreds of pages long.  It is recommended"
 W !,"that these reports be run at night and printed to an electronic file, rather "
 W !,"than directly to a printer."
 W !
 S DIR(0)="Y",DIR("A")="Do you want to exit this program now",DIR("B")="N" KILL DA D ^DIR KILL DIR
 I $D(DIRUT) D EOJ Q
 I Y D EOJ Q
 ;S XBRP="PRINT^BUD5RPTP",XBRC="PROC^BUD5RPTC",XBRX="EOJ^BUD5RPT2",XBNS="BUD"
 ;D ^XBDBQUE
 ;D EOJ
ZIS ;call to XBDBQUE
 K IOP,%ZIS
 W !! S %ZIS="PQM" D ^%ZIS
 I POP D EOJ Q
ZIS1 ;
 I $D(IO("Q")) G TSKMN
DRIVER ;
 D PROC^BUD5RPTC
 U IO
 D PRINT^BUD5RPTP
 D ^%ZISC
 D EOJ
 Q
TSKMN ;EP ENTRY POINT FROM TASKMAN
 S ZTIO=$S($D(ION):ION,1:IO) I $D(IOST)#2,IOST]"" S ZTIO=ZTIO_";"_IOST
 I $G(IO("DOC"))]"" S ZTIO=ZTIO_";"_$G(IO("DOC"))
 I $D(IOM)#2,IOM S ZTIO=ZTIO_";"_IOM I $D(IOSL)#2,IOSL S ZTIO=ZTIO_";"_IOSL
 K ZTSAVE S ZTSAVE("BUD*")=""
 S ZTCPU=$G(IOCPU),ZTRTN="DRIVER^BUD5RPT2",ZTDTH="",ZTDESC="UDS 05 REPORT" D ^%ZTLOAD D EOJ Q
 Q
M ;EP - called from option
 D EOJ
 D GENI
 K BUDT3A,BUDT3B,BUDT5,BUDT5L,BUDT5L1,BUDT6,BUDT6L,BUDT5L2
 W "UDS User List Selection"
 W !!?5,"1   Users by Age, Gender, Race (Tables 3A & 3B)"
 W !?5,"2   All users by Service Category (Table 5 col B&C)"
 W !?5,"3   Provider/Staff List (Table 5 col A)"
 W !?5,"4   All visits with Uncategorized Providers (Table 5)"
 W !?5,"5   All Users by Selected Primary Diagnosis (Table 6)"
 W !?5,"6   Center/Grantee Profile:  User/Patient by Zip Code"
 W !?5,"7   ALL Tables"
 S DIR(0)="L^1:7",DIR("A")="Include which Lists",DIR("B")=6 KILL DA D ^DIR KILL DIR
 I $D(DIRUT) D EOJ Q
 I Y[7 S (BUDT3A,BUDT3B,BUDT4,BUDT5,BUDT6,BUDT3AL,BUDT5L,BUDT5L1,BUDT5L2,BUDT6L,BUDTZ,BUDTZL)=1
 I Y[1 S (BUDT3A,BUDT3AL)=1
 I Y[2 S (BUDT5,BUDT5L)=1
 I Y[3 S (BUDT5,BUDT5L1)=1
 I Y[4 S (BUDT5,BUDT5L2)=1
 I Y[5 S (BUDT6,BUDT6L)=1
 I Y[6 S (BUDTZ,BUDTZL)=1
 G EN1
 Q
 ;
T3A ;EP - entry point for Table 3A only
 D EOJ
 S (BUDT3A,BUDT3B,BUDT3AL)=1
 D GENI
 D T3AI
 G EN1
 ;
T3AI ;intro for table 3A
 W !!,"ALL USERS BY AGE, GENDER & RACE (Tables 3A and 3B)"
 W !,"This report lists all patients who have at least on visit for the specified"
 W !,"time period that meet the above criteria.  Sorted by community, age and gender."
 W !,"Lists all visits that fit the definition.  Age is calculated as of June 30th"
 W !,"of the report year."
 Q
TZ ;EP - entry point for Table 3A only
 D EOJ
 S (BUDTZ,BUDTZL)=1
 D GENI
 D TZAI
 G EN1
TZAI ;intro for table Z
 W !!,"Center/Grantee Profile:  User/Patient by Zip Code"
 W !,"The User/Patient by Zip Code table reports the number of users by"
 W !,"their zip code as entered in patient registration."
 Q
T5 ;EP
 D EOJ
 S BUDT5=1,BUDT5L=1
 D GENI
 D T5I
 G EN1
 ;
T5I ;
 W !,"ALL USERS BY SERVICE CATEGORY (Table 5, columns b and c)"
 W !,"This report lists all patients and related visits as defined above, categorized"
 W !,"by UDS-defined service categories (primary provider code). Sorted by"
 W !,"community, age and gender.  See UDS User Manual for how UDS disciplines are"
 W !,"mapped to RPMS provider codes."
 Q
T5B ;EP
 D EOJ
 S BUDT5=1,BUDT5L2=1
 D GENI
 D T5BI
 G EN1
 ;
T5BI ;
 W !,"ALL USERS FOR UNCATEGORIZED PROVIDER VISITS (Table 5, columns b and c)"
 W !,"This report lists all patients and related visits as defined above, that"
 W !,"are not counted toward Table 5 because the primary provider code could not "
 W !,"be categorized by UDS-defined service categories. Sorted by community, age"
 W !,"and gender.  See UDS User Manual for how UDS disciplines are mapped to RPMS"
 W !,"provider codes."
 Q
T6 ;EP - entry point for Table 6 only
 D EOJ
 S (BUDT6,BUDT6L)=1
 D GENI
 D T6I
 G EN1
 ;
T6I ;intro for table 6
 W !,"ALL USERS BY PRIMARY DIAGNOSIS (Table 6)"
 W !,"This report lists all patients and related visits as defined above, categorized"
 W !,"by specific UDS-defined primary diagnoses or tests/screenings.  Sorted by"
 W !,"community, age and gender."
 Q
T5A ;EP - called from option
 D EOJ
 S (BUDT5,BUDT5L1)=1
 D GENI
 D T5AI
 G EN1
T5AI ;
 W !,"PROVIDER/STAFF LIST (Table 5 column a)"
 W !,"This report provides a list of all Providers and other facility staff who are"
 W !,"documented in RPMS categorized by UDS-defined service categories.  Use this"
 W !,"list to manually calculate FTEs for each staff category to document in Table"
 W !,"5 column a (FTEs)."
 Q
TOL ;EP
 D EOJ
 S (BUDT6,BUDTOL)=1
 D GENI
 D TOLI
 G EN1
TOLI ;
 W !,"This report will list any visit that is incomplete but has a service",!,"relevant to lines 21 through 26 of Table 6 attached to it."
 W !,"Incomplete visits are not looked at when generating this report so ",!,"this list will provide you with a list of visits that potentially should be "
 W !,"completed or merged to a complete visit in order to be counted in Table 6"
 Q
 ;
QUARTER ;
 S BUDQTR=""
 S DIR("?",1)="Choose the time period to report on"
 S DIR("?",2)="     1  January 1 - March 31"
 S DIR("?",3)="     2  April 1 - June 30"
 S DIR("?",4)="     3  July 1 - September 30"
 S DIR("?",5)="     4  October 1 - December 31"
 S DIR("?",6)="     F  Full Calender Year January 1 - December 31"
 S DIR(0)="S^1:1st Quarter (January 1 - March 31);2:2nd Quarter (April 1 - June 30);3:3rd Quarter (July 1 - September 30);4:4th Quarter (October 1 - December 31);F:Full Calendar Year (January 1 - December 31)"
 S DIR("A")="Choose the time period to report on",DIR("B")="F" KILL DA D ^DIR KILL DIR
 I $D(DIRUT)!(Y="") S BUDQUIT="" Q
 S BUDQTR=Y
 I Y=1 S BUDBD=$E(BUDYEAR,1,3)_"0101",BUDED=$E(BUDYEAR,1,3)_"0331"
 I Y=2 S BUDBD=$E(BUDYEAR,1,3)_"0401",BUDED=$E(BUDYEAR,1,3)_"0630"
 I Y=3 S BUDBD=$E(BUDYEAR,1,3)_"0701",BUDED=$E(BUDYEAR,1,3)_"0930"
 I Y=4 S BUDBD=$E(BUDYEAR,1,3)_"1001",BUDED=$E(BUDYEAR,1,3)_"1231"
 I Y="F" S BUDBD=$E(BUDYEAR,1,3)_"0101",BUDED=$E(BUDYEAR,1,3)_"1231"
 W !!,"Your report will be run for the time period: ",$$FMTE^XLFDT(BUDBD)," to ",$$FMTE^XLFDT(BUDED)
 Q
YEAR ;
 S BUDYEAR=""
 W !
 W !,"Enter the Calendar Year.  Use a 4 digit year, e.g. 2003, 2005"
 S DIR(0)="D^::EP"
 S DIR("A")="Enter Calendar Year"
 S DIR("?")="This report is compiled for a period.  Enter a valid date."
 D ^DIR KILL DIR
 K DIC
 I $D(DUOUT) S DIRUT=1 Q
 I $D(DIRUT) Q
 I $E(Y,4,7)'="0000" W !!,"Please enter a year only!",! G YEAR
 S BUDYEAR=Y,BUDBD=$E(BUDYEAR,1,3)_"0101",BUDED=$E(BUDYEAR,1,3)_"1231"
 S BUDCAD=$E(BUDYEAR,1,3)_"0630"
 Q
EOJ ;
 D EN^XBVK("BUD")
 Q
GENI ;general introductions
 W:$D(IOF) @IOF
 W !,$$CTR($$LOC)
 W !,$$CTR("UDS 2005")
 W !,"NOTE: User lists may be hundreds of pages long, depending on the size of your"
 W !,"patient population.  It is recommended that you run these reports at night and"
 W !,"print to an electronic file, not directly to a printer.",!
 K DIR S DIR(0)="E",DIR("A")="Press Enter to Continue" D ^DIR K DIR
 W !!,"The User List option documents the individual users (patients) and encounters"
 W !,"(visits) that are counted and summarized on each Table report (main menu"
 W !,"option REP).  The summary Table report is included at the beginning of each"
 W !,"List report."
 W !,"UDS searches your database to find all visits (encounters) and related users"
 W !,"during the time period selected. Based on the UDS definition, to be considered"
 W !,"a user the patient must have had at least one visit meeting the following"
 W !,"criteria:"
 W !?4,"- must be to a location specified in your visit location setup"
 W !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
 W !?6,"Surgery (S), Observation (O), Nursing home visit (R), Historical"
 W !?6,"Event (E) visit or In-Hospital (I) visit"
 W !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
 W !?4,"- must have a primary provider and a coded purpose of visit"
 W !
 Q
 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
 ;----------
USR() ;EP - Return name of current user from ^VA(200.
 Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
 ;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
 Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
 ;----------