APCLWL1P ; IHS/CMI/LAB - CLINIC HOURLY WORKLOAD REPORT ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
DOC ;This routine is the "printing" part of the Clinic Hourly Workload
;report. Called from the APCLWL11 routine.
;
;Listing of VARIABLES with brief descriptions:
;
START ;Start of routine
S APCL132S="",$P(APCL132S,"-",132)=""
D NOW^%DTC S Y=X D DD^%DT S APCLDT=Y
S Y=APCLBD D DD^%DT S APCLBDD=Y S Y=APCLED D DD^%DT S APCLEDD=Y
S (APCLPG,APCLDATE)=0 D HEAD
K APCLQUIT
F S APCLDATE=$O(^XTMP("APCLWL1",APCLJOB,APCLBT,"DATE",APCLDATE)) Q:APCLDATE=""!($D(APCLQUIT)) D SORT
G:$D(APCLQUIT) DONE
I $Y>(IOSL-5) D HEAD G:$D(APCLQUIT) DONE
W !?2,"Totals: "
S APCLTAB=12 F APCLTIME=0:1:23 Q:$D(APCLQUIT) D
.W ?APCLTAB,$S($D(^XTMP("APCLWL1",APCLJOB,APCLBT,"TIME TOTALS",APCLTIME)):$J(^(APCLTIME),3),1:" .") S APCLTAB=APCLTAB+5
W !
DONE ;
D DONE^APCLOSUT
K ^XTMP("APCLWL1",APCLJOB,APCLBT)
Q
SORT ;
I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
S X=APCLDATE D DW^%DTC S APCLDOW=$E(X,1,3)
W !,$E(APCLDATE,4,5),"/",$E(APCLDATE,6,7),?7,APCLDOW
S APCLTAB=12 F APCLTIME=0:1:23 Q:$D(APCLQUIT) D
.I $D(^XTMP("APCLWL1",APCLJOB,APCLBT,"DATE",APCLDATE,APCLTIME)) W ?APCLTAB,$J(^XTMP("APCLWL1",APCLJOB,APCLBT,"DATE",APCLDATE,APCLTIME),3)
.E W ?APCLTAB," ."
.S APCLTAB=APCLTAB+5
.Q
Q
HEAD I 'APCLPG G HEAD1
I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S APCLQUIT="" Q
HEAD1 ;
W:$D(IOF) @IOF S APCLPG=APCLPG+1
W ?52,"CLINIC HOURLY WORKLOAD REPORT",?100,APCLDT,?123,"Page ",APCLPG,!
S APCLLOCT=$S(APCLLOC="":"ALL",1:$P(^DIC(4,APCLLOC,0),U))
S APCLLENG=21+$L(APCLLOCT)
W ?((132-APCLLENG)/2),"LOCATION OF VISITS: ",APCLLOCT,!
S APCLCLNT=$S(APCLCLN="":"ALL",1:$P(^DIC(40.7,APCLCLN,0),U))
S APCLLENG=8+$L(APCLCLNT)
W ?((132-APCLLENG)/2),"CLINIC: ",APCLCLNT,!
W ?45,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,!
I $D(APCLAGET) W ?45,"AGE RANGE: ",APCLAGET,!
S APCLFILE=$S($P(^DD(9000010.06,.01,0),U,2)[200:"200",1:"6")
I APCLPROV]"" W ?55,"PROVIDER: "_$$VAL^XBDIQ1(APCLFILE,APCLPROV,.01)
I APCLPROV="" W ?59,"PROVIDER: ALL"
W !?1,"DATE",?7,"DOW",?12,"12AM",?17,"1AM",?22,"2AM",?27,"3AM",?32,"4AM",?37,"5AM",?42,"6AM",?47,"7AM",?52,"8AM",?57,"9AM",?62,"10AM",?67,"11AM"
W ?72,"12PM",?77,"1PM",?82,"2PM",?87,"3PM",?92,"4PM",?97,"5PM",?102,"6PM",?107,"7PM",?112,"8PM",?117,"9PM",?122,"10PM",?127,"11PM",!
W APCL132S
Q
APCLWL1P ; IHS/CMI/LAB - CLINIC HOURLY WORKLOAD REPORT ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
DOC ;This routine is the "printing" part of the Clinic Hourly Workload
+1 ;report. Called from the APCLWL11 routine.
+2 ;
+3 ;Listing of VARIABLES with brief descriptions:
+4 ;
START ;Start of routine
+1 SET APCL132S=""
SET $PIECE(APCL132S,"-",132)=""
+2 DO NOW^%DTC
SET Y=X
DO DD^%DT
SET APCLDT=Y
+3 SET Y=APCLBD
DO DD^%DT
SET APCLBDD=Y
SET Y=APCLED
DO DD^%DT
SET APCLEDD=Y
+4 SET (APCLPG,APCLDATE)=0
DO HEAD
+5 KILL APCLQUIT
+6 FOR
SET APCLDATE=$ORDER(^XTMP("APCLWL1",APCLJOB,APCLBT,"DATE",APCLDATE))
IF APCLDATE=""!($DATA(APCLQUIT))
QUIT
DO SORT
+7 IF $DATA(APCLQUIT)
GOTO DONE
+8 IF $Y>(IOSL-5)
DO HEAD
IF $DATA(APCLQUIT)
GOTO DONE
+9 WRITE !?2,"Totals: "
+10 SET APCLTAB=12
FOR APCLTIME=0:1:23
IF $DATA(APCLQUIT)
QUIT
Begin DoDot:1
+11 WRITE ?APCLTAB,$SELECT($DATA(^XTMP("APCLWL1",APCLJOB,APCLBT,"TIME TOTALS",APCLTIME)):$JUSTIFY(^(APCLTIME),3),1:" .")
SET APCLTAB=APCLTAB+5
End DoDot:1
+12 WRITE !
DONE ;
+1 DO DONE^APCLOSUT
+2 KILL ^XTMP("APCLWL1",APCLJOB,APCLBT)
+3 QUIT
SORT ;
+1 IF $Y>(IOSL-5)
DO HEAD
IF $DATA(APCLQUIT)
QUIT
+2 SET X=APCLDATE
DO DW^%DTC
SET APCLDOW=$EXTRACT(X,1,3)
+3 WRITE !,$EXTRACT(APCLDATE,4,5),"/",$EXTRACT(APCLDATE,6,7),?7,APCLDOW
+4 SET APCLTAB=12
FOR APCLTIME=0:1:23
IF $DATA(APCLQUIT)
QUIT
Begin DoDot:1
+5 IF $DATA(^XTMP("APCLWL1",APCLJOB,APCLBT,"DATE",APCLDATE,APCLTIME))
WRITE ?APCLTAB,$JUSTIFY(^XTMP("APCLWL1",APCLJOB,APCLBT,"DATE",APCLDATE,APCLTIME),3)
+6 IF '$TEST
WRITE ?APCLTAB," ."
+7 SET APCLTAB=APCLTAB+5
+8 QUIT
End DoDot:1
+9 QUIT
HEAD IF 'APCLPG
GOTO HEAD1
+1 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET APCLQUIT=""
QUIT
HEAD1 ;
+1 IF $DATA(IOF)
WRITE @IOF
SET APCLPG=APCLPG+1
+2 WRITE ?52,"CLINIC HOURLY WORKLOAD REPORT",?100,APCLDT,?123,"Page ",APCLPG,!
+3 SET APCLLOCT=$SELECT(APCLLOC="":"ALL",1:$PIECE(^DIC(4,APCLLOC,0),U))
+4 SET APCLLENG=21+$LENGTH(APCLLOCT)
+5 WRITE ?((132-APCLLENG)/2),"LOCATION OF VISITS: ",APCLLOCT,!
+6 SET APCLCLNT=$SELECT(APCLCLN="":"ALL",1:$PIECE(^DIC(40.7,APCLCLN,0),U))
+7 SET APCLLENG=8+$LENGTH(APCLCLNT)
+8 WRITE ?((132-APCLLENG)/2),"CLINIC: ",APCLCLNT,!
+9 WRITE ?45,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,!
+10 IF $DATA(APCLAGET)
WRITE ?45,"AGE RANGE: ",APCLAGET,!
+11 SET APCLFILE=$SELECT($PIECE(^DD(9000010.06,.01,0),U,2)[200:"200",1:"6")
+12 IF APCLPROV]""
WRITE ?55,"PROVIDER: "_$$VAL^XBDIQ1(APCLFILE,APCLPROV,.01)
+13 IF APCLPROV=""
WRITE ?59,"PROVIDER: ALL"
+14 WRITE !?1,"DATE",?7,"DOW",?12,"12AM",?17,"1AM",?22,"2AM",?27,"3AM",?32,"4AM",?37,"5AM",?42,"6AM",?47,"7AM",?52,"8AM",?57,"9AM",?62,"10AM",?67,"11AM"
+15 WRITE ?72,"12PM",?77,"1PM",?82,"2PM",?87,"3PM",?92,"4PM",?97,"5PM",?102,"6PM",?107,"7PM",?112,"8PM",?117,"9PM",?122,"10PM",?127,"11PM",!
+16 WRITE APCL132S
+17 QUIT
