- APCLYV43 ; IHS/CMI/LAB - CLINIC VISIT COUNTS FOR 1 DAY (PRINT) ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;
- INIT ;initialize variables
- I '$D(^XTMP("APCLYV4",APCLJOB,APCLBT)) D HEAD0^APCLYV42 G END
- S APCLSTOP="",APCLPAGE=0
- S APCLTOT=0 ;total count
- ;
- SET ;set up print fields
- S APCLCLP=0 D HEAD
- SET1 S APCLCLP=$O(^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP)) G FINAL:APCLCLP=""
- S APCLCLX=0
- SET2 S APCLCLX=$O(^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP,APCLCLX)) G SET1:APCLCLX=""
- S APCLVDT=0
- SET3 S APCLVDT=$O(^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP,APCLCLX,APCLVDT)) G SET2:APCLVDT=""
- S APCLCNT=^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP,APCLCLX,APCLVDT),APCLTOT=APCLTOT+APCLCNT
- I $Y>(IOSL-5) D PAGE G END:APCLSTOP="^"
- W !?20,$E(APCLCLP,1,20)
- W " ",$S($D(^DIC(40.7,APCLCLX,0)):$P(^(0),"^",2),1:"??")
- W ?45,$J(APCLCNT,5) G SET3
- ;
- FINAL ;print grand totals
- I $Y>(IOSL-5) D PAGE
- W !!?30,"TOTAL VISITS:",?45,$J(APCLTOT,5),!!
- END ;
- D DONE^APCLOSUT
- K APCLCTOT,APCLTOT,APCLCLX,APCLVDT,APCLPAGE,APCLSTOP,APCLCNT
- K ^XTMP("APCLYV4",APCLJOB,APCLBT)
- Q
- ;
- HEAD W:$D(IOF) @IOF S X=$P(^DIC(4,DUZ(2),0),"^"),APCLPAGE=APCLPAGE+1
- W !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPAGE
- S X=$P($H,",",2) D TIME W !,Y,?26,"VISIT COUNTS FOR ALL CLINICS"
- S Y=DT X ^DD("DD") W !,Y
- W ?34,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",$E(APCLBD,2,3)
- W !!?20,"CLINIC",?41,"NUMBER OF VISITS",!?20,"------",?41,"----------------",!
- 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 NEW %A,%B,%C 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
- APCLYV43 ; IHS/CMI/LAB - CLINIC VISIT COUNTS FOR 1 DAY (PRINT) ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;
- INIT ;initialize variables
- +1 IF '$DATA(^XTMP("APCLYV4",APCLJOB,APCLBT))
- DO HEAD0^APCLYV42
- GOTO END
- +2 SET APCLSTOP=""
- SET APCLPAGE=0
- +3 ;total count
- SET APCLTOT=0
- +4 ;
- SET ;set up print fields
- +1 SET APCLCLP=0
- DO HEAD
- SET1 SET APCLCLP=$ORDER(^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP))
- IF APCLCLP=""
- GOTO FINAL
- +1 SET APCLCLX=0
- SET2 SET APCLCLX=$ORDER(^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP,APCLCLX))
- IF APCLCLX=""
- GOTO SET1
- +1 SET APCLVDT=0
- SET3 SET APCLVDT=$ORDER(^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP,APCLCLX,APCLVDT))
- IF APCLVDT=""
- GOTO SET2
- +1 SET APCLCNT=^XTMP("APCLYV4",APCLJOB,APCLBT,APCLCLP,APCLCLX,APCLVDT)
- SET APCLTOT=APCLTOT+APCLCNT
- +2 IF $Y>(IOSL-5)
- DO PAGE
- IF APCLSTOP="^"
- GOTO END
- +3 WRITE !?20,$EXTRACT(APCLCLP,1,20)
- +4 WRITE " ",$SELECT($DATA(^DIC(40.7,APCLCLX,0)):$PIECE(^(0),"^",2),1:"??")
- +5 WRITE ?45,$JUSTIFY(APCLCNT,5)
- GOTO SET3
- +6 ;
- FINAL ;print grand totals
- +1 IF $Y>(IOSL-5)
- DO PAGE
- +2 WRITE !!?30,"TOTAL VISITS:",?45,$JUSTIFY(APCLTOT,5),!!
- END ;
- +1 DO DONE^APCLOSUT
- +2 KILL APCLCTOT,APCLTOT,APCLCLX,APCLVDT,APCLPAGE,APCLSTOP,APCLCNT
- +3 KILL ^XTMP("APCLYV4",APCLJOB,APCLBT)
- +4 QUIT
- +5 ;
- HEAD IF $DATA(IOF)
- WRITE @IOF
- SET X=$PIECE(^DIC(4,DUZ(2),0),"^")
- SET APCLPAGE=APCLPAGE+1
- +1 WRITE !!,$PIECE(^VA(200,DUZ,0),"^",2),?(80-$LENGTH(X)/2),X,?70,"Page ",APCLPAGE
- +2 SET X=$PIECE($HOROLOG,",",2)
- DO TIME
- WRITE !,Y,?26,"VISIT COUNTS FOR ALL CLINICS"
- +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 !!?20,"CLINIC",?41,"NUMBER OF VISITS",!?20,"------",?41,"----------------",!
- +6 QUIT
- +7 ;
- 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 NEW %A,%B,%C
- 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
