APCLYV63 ; IHS/CMI/LAB - VISIT COUNTS BY PROV FOR 1 DAY (PRINT) ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;
INIT ;initialize variables
I '$D(^XTMP("APCLYV6",APCLJOB,APCLBT)) D HEAD W !,"No data to report." G END
S APCLSTOP="",PAGE=0
S APCLTOT=0 ;total count
;
SET ;set up print fields
S APCLCS=0 D HEAD
SET1 S APCLCS=$O(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS)) G FINAL:APCLCS=""
S APCLPRN=0 I APCLS'=1 W !!,APCLCS,":"
SET2 S APCLPRN=$O(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN)) G SET1:APCLPRN=""
S APCLPR=0
SET3 S APCLPR=$O(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN,APCLPR)) G SET2:APCLPR=""
S APCLVDAT=0,APCLFLG=0
SET4 S APCLVDAT=$O(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN,APCLPR,APCLVDAT))
G SET3:APCLVDAT="" S APCLCL=0
SET5 S APCLCL=$O(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN,APCLPR,APCLVDAT,APCLCL)) G SET4:APCLCL="" S APCLCNT=^(APCLCL),APCLTOT=APCLTOT+APCLCNT
I $Y>(IOSL-5) D PAGE G END:APCLSTOP="^"
I 'APCLFLG W !,APCLPRN,?25,APCLCL,?60,$J(APCLCNT,5) S APCLFLG=1 G SET5
W !?25,APCLCL,?60,$J(APCLCNT,5) G SET5
;
FINAL ;print grand totals
I $Y>(IOSL-5) D PAGE
W !!?40,"TOTAL VISITS:",?60,$J(APCLTOT,5),!!
END ;
D DONE^APCLOSUT
K APCLCL,APCLTOT,APCLCS,APCLVDAT,PAGE,APCLSTOP,APCLCNT
K APCLPRN,APCLPR,APCLPRV,APCLPDFN,APCLSTR,APCLFLG,APCLBD
K APCLED,X,Y
W:IOST'?1"C-".E @IOF K ^XTMP("APCLYV6",APCLJOB,APCLBT)
Q
Q
;
HEAD W:$D(IOF) @IOF S X=$P(^DIC(4,DUZ(2),0),"^"),PAGE=PAGE+1
W !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",PAGE
S X=$P($H,",",2) D TIME W !,Y,?28,"VISIT COUNTS BY PROVIDER"
S Y=DT X ^DD("DD") W !,Y
W ?34,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",$E(APCLBD,2,3)
W !!,"PROVIDER",?25,"CLINIC",?60,"NUMBER OF VISITS"
W !,"--------",?25,"------",?60,"----------------"
Q
;
PAGE ;form feed to new page
I IOST'?1"C-".E D HEAD Q
I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="E" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S APCLSTOP="^" Q
I APCLSTOP'="^" D HEAD
Q
TIME S Y="" Q:'$D(X) Q:X<0!(X>86400)
S %A=X\60,%B=%A\60 S:%B>12 %B=%B-12 S:%B=0 %B=12 S:%B<10 %B=" "_%B
S %C=$S(%A=0:"M ",%A=720:"N ",%A=1440:"M ",%A<720:"am",1:"pm")
S Y=%B_":"_$E(%A#60+100,2,3)_" "_%C K %A,%B,%C Q
APCLYV63 ; IHS/CMI/LAB - VISIT COUNTS BY PROV FOR 1 DAY (PRINT) ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;
INIT ;initialize variables
+1 IF '$DATA(^XTMP("APCLYV6",APCLJOB,APCLBT))
DO HEAD
WRITE !,"No data to report."
GOTO END
+2 SET APCLSTOP=""
SET PAGE=0
+3 ;total count
SET APCLTOT=0
+4 ;
SET ;set up print fields
+1 SET APCLCS=0
DO HEAD
SET1 SET APCLCS=$ORDER(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS))
IF APCLCS=""
GOTO FINAL
+1 SET APCLPRN=0
IF APCLS'=1
WRITE !!,APCLCS,":"
SET2 SET APCLPRN=$ORDER(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN))
IF APCLPRN=""
GOTO SET1
+1 SET APCLPR=0
SET3 SET APCLPR=$ORDER(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN,APCLPR))
IF APCLPR=""
GOTO SET2
+1 SET APCLVDAT=0
SET APCLFLG=0
SET4 SET APCLVDAT=$ORDER(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN,APCLPR,APCLVDAT))
+1 IF APCLVDAT=""
GOTO SET3
SET APCLCL=0
SET5 SET APCLCL=$ORDER(^XTMP("APCLYV6",APCLJOB,APCLBT,APCLCS,APCLPRN,APCLPR,APCLVDAT,APCLCL))
IF APCLCL=""
GOTO SET4
SET APCLCNT=^(APCLCL)
SET APCLTOT=APCLTOT+APCLCNT
+1 IF $Y>(IOSL-5)
DO PAGE
IF APCLSTOP="^"
GOTO END
+2 IF 'APCLFLG
WRITE !,APCLPRN,?25,APCLCL,?60,$JUSTIFY(APCLCNT,5)
SET APCLFLG=1
GOTO SET5
+3 WRITE !?25,APCLCL,?60,$JUSTIFY(APCLCNT,5)
GOTO SET5
+4 ;
FINAL ;print grand totals
+1 IF $Y>(IOSL-5)
DO PAGE
+2 WRITE !!?40,"TOTAL VISITS:",?60,$JUSTIFY(APCLTOT,5),!!
END ;
+1 DO DONE^APCLOSUT
+2 KILL APCLCL,APCLTOT,APCLCS,APCLVDAT,PAGE,APCLSTOP,APCLCNT
+3 KILL APCLPRN,APCLPR,APCLPRV,APCLPDFN,APCLSTR,APCLFLG,APCLBD
+4 KILL APCLED,X,Y
+5 IF IOST'?1"C-".E
WRITE @IOF
KILL ^XTMP("APCLYV6",APCLJOB,APCLBT)
+6 QUIT
+7 QUIT
+8 ;
HEAD IF $DATA(IOF)
WRITE @IOF
SET X=$PIECE(^DIC(4,DUZ(2),0),"^")
SET PAGE=PAGE+1
+1 WRITE !!,$PIECE(^VA(200,DUZ,0),"^",2),?(80-$LENGTH(X)/2),X,?70,"Page ",PAGE
+2 SET X=$PIECE($HOROLOG,",",2)
DO TIME
WRITE !,Y,?28,"VISIT COUNTS BY PROVIDER"
+3 SET Y=DT
XECUTE ^DD("DD")
WRITE !,Y
+4 WRITE ?34,"for ",$EXTRACT(APCLBD,4,5),"/",$EXTRACT(APCLBD,6,7),"/",$EXTRACT(APCLBD,2,3)
+5 WRITE !!,"PROVIDER",?25,"CLINIC",?60,"NUMBER OF VISITS"
+6 WRITE !,"--------",?25,"------",?60,"----------------"
+7 QUIT
+8 ;
PAGE ;form feed to new page
+1 IF IOST'?1"C-".E
DO HEAD
QUIT
+2 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !
SET DIR(0)="E"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET APCLSTOP="^"
QUIT
+3 IF APCLSTOP'="^"
DO HEAD
+4 QUIT
TIME SET Y=""
IF '$DATA(X)
QUIT
IF X<0!(X>86400)
QUIT
+1 SET %A=X\60
SET %B=%A\60
IF %B>12
SET %B=%B-12
IF %B=0
SET %B=12
IF %B<10
SET %B=" "_%B
+2 SET %C=$SELECT(%A=0:"M ",%A=720:"N ",%A=1440:"M ",%A<720:"am",1:"pm")
+3 SET Y=%B_":"_$EXTRACT(%A#60+100,2,3)_" "_%C
KILL %A,%B,%C
QUIT
