- APCLNJ22 ; IHS/CMI/LAB - PRINT VISITS WITH INJURIES ;
- ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
- ;
- INIT ;initialize variables
- S Y=APCLBD D DD^%DT S APCLBDD=Y S Y=APCLED D DD^%DT S APCLEDD=Y
- D ^APCLNJ23 K APCLSTOP,APCLPAGE
- S APCLSTOP="",APCLPAGE=0 D HEAD
- I '$G(APCLGTOT) W !,"No injury visits to report." G END
- ;
- PRNT ;
- ;I $Y>(IOSL-8) D HEAD Q:APCLSTOP="^"
- W !
- ;W !,"HOWDY DOODY",!
- ;W "GRAND TOTAL= ",APCLGTOT,!
- S APCLZ=0
- F S APCLZ=$O(APCLCNTR(APCLZ)) Q:APCLZ'=+APCLZ S APCLTEXT=$O(APCLCNTR(APCLZ,"")) D
- . I $Y>(IOSL-2) D HEAD Q:APCLSTOP="^"
- . W !,?5,APCLTEXT W ?40,$J(APCLCNTR(APCLZ,APCLTEXT),3,0) S APCLPER=(APCLCNTR(APCLZ,APCLTEXT)/APCLGTOT)*100 W ?50,$J(APCLPER,3,0)
- . W ?65,$P(APCLCNTR(APCLZ,APCLTEXT),U,2)
- W !,?39,"_____",?49,"_____",?63,"_____",!!
- W !,?5,"TOTALS:",?41,APCLGTOT,?50,"100%",?65,APCLATOT,!
- ;W "ALCOHOL RELATED TOTAL = ",APCLATOT,!
- G END
- Q
- HEAD I 'APCLPAGE 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 APCLSTOP="^" Q
- HEAD1 ;
- W:$D(IOF) @IOF S APCLPAGE=APCLPAGE+1
- W !
- S X=$P(^DIC(4,DUZ(2),0),"^")
- W !,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?72,"Page ",APCLPAGE,!
- W !,?22,"INJURY SURVEILLANCE SUMMARY REPORT",!,?27,"(EXTERNAL CAUSE CODES)",!
- W ?24,"Visits with Injury Diagnosis",!
- W ?32,"Visit Dates: ",!,?24,APCLBDD," to ",APCLEDD
- W !,?63,"CAUSE OF DX",!
- W ?5,"EXTERNAL CAUSE CATEGORY SUMMARY",?38,"COUNT",?48,"% TOTAL",?60,"(ALCOHOL RELATED)"
- W !,"--------------------------------------------------------------------------------"
- Q
- TIME NEW Y,%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
- ;
- END ;
- D DONE^APCLOSUT
- K APCLGOT
- Q
- APCLNJ22 ; IHS/CMI/LAB - PRINT VISITS WITH INJURIES ;
- +1 ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
- +2 ;
- INIT ;initialize variables
- +1 SET Y=APCLBD
- DO DD^%DT
- SET APCLBDD=Y
- SET Y=APCLED
- DO DD^%DT
- SET APCLEDD=Y
- +2 DO ^APCLNJ23
- KILL APCLSTOP,APCLPAGE
- +3 SET APCLSTOP=""
- SET APCLPAGE=0
- DO HEAD
- +4 IF '$GET(APCLGTOT)
- WRITE !,"No injury visits to report."
- GOTO END
- +5 ;
- PRNT ;
- +1 ;I $Y>(IOSL-8) D HEAD Q:APCLSTOP="^"
- +2 WRITE !
- +3 ;W !,"HOWDY DOODY",!
- +4 ;W "GRAND TOTAL= ",APCLGTOT,!
- +5 SET APCLZ=0
- +6 FOR
- SET APCLZ=$ORDER(APCLCNTR(APCLZ))
- IF APCLZ'=+APCLZ
- QUIT
- SET APCLTEXT=$ORDER(APCLCNTR(APCLZ,""))
- Begin DoDot:1
- +7 IF $Y>(IOSL-2)
- DO HEAD
- IF APCLSTOP="^"
- QUIT
- +8 WRITE !,?5,APCLTEXT
- WRITE ?40,$JUSTIFY(APCLCNTR(APCLZ,APCLTEXT),3,0)
- SET APCLPER=(APCLCNTR(APCLZ,APCLTEXT)/APCLGTOT)*100
- WRITE ?50,$JUSTIFY(APCLPER,3,0)
- +9 WRITE ?65,$PIECE(APCLCNTR(APCLZ,APCLTEXT),U,2)
- End DoDot:1
- +10 WRITE !,?39,"_____",?49,"_____",?63,"_____",!!
- +11 WRITE !,?5,"TOTALS:",?41,APCLGTOT,?50,"100%",?65,APCLATOT,!
- +12 ;W "ALCOHOL RELATED TOTAL = ",APCLATOT,!
- +13 GOTO END
- +14 QUIT
- HEAD IF 'APCLPAGE
- 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 APCLSTOP="^"
- QUIT
- HEAD1 ;
- +1 IF $DATA(IOF)
- WRITE @IOF
- SET APCLPAGE=APCLPAGE+1
- +2 WRITE !
- +3 SET X=$PIECE(^DIC(4,DUZ(2),0),"^")
- +4 WRITE !,$PIECE(^VA(200,DUZ,0),"^",2),?(80-$LENGTH(X)/2),X,?72,"Page ",APCLPAGE,!
- +5 WRITE !,?22,"INJURY SURVEILLANCE SUMMARY REPORT",!,?27,"(EXTERNAL CAUSE CODES)",!
- +6 WRITE ?24,"Visits with Injury Diagnosis",!
- +7 WRITE ?32,"Visit Dates: ",!,?24,APCLBDD," to ",APCLEDD
- +8 WRITE !,?63,"CAUSE OF DX",!
- +9 WRITE ?5,"EXTERNAL CAUSE CATEGORY SUMMARY",?38,"COUNT",?48,"% TOTAL",?60,"(ALCOHOL RELATED)"
- +10 WRITE !,"--------------------------------------------------------------------------------"
- +11 QUIT
- TIME NEW Y,%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
- +4 ;
- END ;
- +1 DO DONE^APCLOSUT
- +2 KILL APCLGOT
- +3 QUIT
