APCLNJ13 ; IHS/CMI/LAB - INJURY REPORT COVER PAGE ;
;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
TOP ;ENTRY POINT
S APCLPAGE=0
D HEAD
VD W !!,"1. Visits from ",APCLBDD," through ",APCLEDD
LOC ;
W !!,"2. ",$S($D(APCLLOCT):"The following ",1:"All")," Locations of Encounter",$S($D(APCLLOCT):":",1:".") I $D(APCLLOCT) D
.S %=0 F S %=$O(APCLLOCT(%)) Q:%="" D:$Y>(IOSL-4) HEAD Q:$D(APCLQUIT) W !?10,$P(^DIC(4,%,0),U)
.K %
TYPE ;
W !!,"3. ",$S($D(APCLTYPT):"The following ",1:"All")," Visit Types",$S($D(APCLTYPT):":",1:".") I $D(APCLTYPT) D
.S %=0 F S %=$O(APCLTYPT(%)) Q:%="" S V=$$EXTSET^XBFUNC(9000010,.03,%) D:$Y>(IOSL-4) HEAD Q:$D(APCLQUIT) W !?10,V
K %,V
SC ;
W !!,"4. ",$S($D(APCLSCT):"The following ",1:"All")," Visit Service Categories",$S($D(APCLSCT):":",1:".") I $D(APCLSCT) D
.S %=0 F S %=$O(APCLSCT(%)) Q:%="" S V=$$EXTSET^XBFUNC(9000010,.07,%) D:$Y>(IOSL-4) HEAD Q:$D(APCLQUIT) W !?10,V
K %,V
CLN ;
W !!,"5. ",$S($D(APCLCLNT):"The following ",1:"All")," Clinics",$S($D(APCLCLNT):":",1:".") I $D(APCLCLNT) D
.S %=0 F S %=$O(APCLCLNT(%)) Q:%="" D:$Y>(IOSL-4) HEAD Q:$D(APCLQUIT) W !?10,$P(^DIC(40.7,%,0),U)
.K %
AGE ;
W !!,"6. ",$S($D(APCLAGET):"The following ",1:"All"),"Ages",$S($D(APCLAGET):": "_APCLAGET,1:".")
ICD ;
W !!,"7. All vists with an ICD Injury Diagnosis."
I $E(IOST)="C",IO=IO(0) W !! S DIR("A")="End of cover page - Hit return",DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S APCLQUIT="" Q
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 APCLQUIT="" Q
;
HEAD1 ;
S APCLPAGE=APCLPAGE+1
W:$D(IOF) @IOF
S X=$P(^DIC(4,DUZ(2),0),"^")
W !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,!
W !,"The following Injury Report is based on the following criteria:",!
Q
APCLNJ13 ; IHS/CMI/LAB - INJURY REPORT COVER PAGE ;
+1 ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
TOP ;ENTRY POINT
+1 SET APCLPAGE=0
+2 DO HEAD
VD WRITE !!,"1. Visits from ",APCLBDD," through ",APCLEDD
LOC ;
+1 WRITE !!,"2. ",$SELECT($DATA(APCLLOCT):"The following ",1:"All")," Locations of Encounter",$SELECT($DATA(APCLLOCT):":",1:".")
IF $DATA(APCLLOCT)
Begin DoDot:1
+2 SET %=0
FOR
SET %=$ORDER(APCLLOCT(%))
IF %=""
QUIT
IF $Y>(IOSL-4)
DO HEAD
IF $DATA(APCLQUIT)
QUIT
WRITE !?10,$PIECE(^DIC(4,%,0),U)
+3 KILL %
End DoDot:1
TYPE ;
+1 WRITE !!,"3. ",$SELECT($DATA(APCLTYPT):"The following ",1:"All")," Visit Types",$SELECT($DATA(APCLTYPT):":",1:".")
IF $DATA(APCLTYPT)
Begin DoDot:1
+2 SET %=0
FOR
SET %=$ORDER(APCLTYPT(%))
IF %=""
QUIT
SET V=$$EXTSET^XBFUNC(9000010,.03,%)
IF $Y>(IOSL-4)
DO HEAD
IF $DATA(APCLQUIT)
QUIT
WRITE !?10,V
End DoDot:1
+3 KILL %,V
SC ;
+1 WRITE !!,"4. ",$SELECT($DATA(APCLSCT):"The following ",1:"All")," Visit Service Categories",$SELECT($DATA(APCLSCT):":",1:".")
IF $DATA(APCLSCT)
Begin DoDot:1
+2 SET %=0
FOR
SET %=$ORDER(APCLSCT(%))
IF %=""
QUIT
SET V=$$EXTSET^XBFUNC(9000010,.07,%)
IF $Y>(IOSL-4)
DO HEAD
IF $DATA(APCLQUIT)
QUIT
WRITE !?10,V
End DoDot:1
+3 KILL %,V
CLN ;
+1 WRITE !!,"5. ",$SELECT($DATA(APCLCLNT):"The following ",1:"All")," Clinics",$SELECT($DATA(APCLCLNT):":",1:".")
IF $DATA(APCLCLNT)
Begin DoDot:1
+2 SET %=0
FOR
SET %=$ORDER(APCLCLNT(%))
IF %=""
QUIT
IF $Y>(IOSL-4)
DO HEAD
IF $DATA(APCLQUIT)
QUIT
WRITE !?10,$PIECE(^DIC(40.7,%,0),U)
+3 KILL %
End DoDot:1
AGE ;
+1 WRITE !!,"6. ",$SELECT($DATA(APCLAGET):"The following ",1:"All"),"Ages",$SELECT($DATA(APCLAGET):": "_APCLAGET,1:".")
ICD ;
+1 WRITE !!,"7. All vists with an ICD Injury Diagnosis."
+2 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !!
SET DIR("A")="End of cover page - Hit return"
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET APCLQUIT=""
QUIT
+3 QUIT
HEAD ;
+1 IF 'APCLPAGE
GOTO HEAD1
+2 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
+3 ;
HEAD1 ;
+1 SET APCLPAGE=APCLPAGE+1
+2 IF $DATA(IOF)
WRITE @IOF
+3 SET X=$PIECE(^DIC(4,DUZ(2),0),"^")
+4 WRITE !!,$PIECE(^VA(200,DUZ,0),"^",2),?(80-$LENGTH(X)/2),X,!
+5 WRITE !,"The following Injury Report is based on the following criteria:",!
+6 QUIT
