QANBENE3 ;HISC/GJC-Special incidents invol. a beneficiary ;3/3/92
;;2.0;Incident Reporting;**1,26**;08/07/1992
;
EN1 ;Format of the print for our Beneficiary Report.
S QANLBL="ASSAULT PAT/STAFF"
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !!?QANTAB(1),"(10)",?QANTAB(2),"Patient on Staff",!?QANTAB(2),"Assault" D STNDRD^QANBENE2 Q:QANQUIT
S QANLBL="OTHER"
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !!?QANTAB(1),"(11)",?QANTAB(2),"Patient Injury",!?QANTAB(2),"(not otherwise listed)" D STNDRD^QANBENE2 Q:QANQUIT
S QANLBL="FIRE"
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !!?QANTAB(1),"(12)",?QANTAB(2),"Patient Involved",!?QANTAB(2),"in Fire" D STNDRD^QANBENE2 Q:QANQUIT
S QANLBL="SEX"
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !!?QANTAB(1),"(13)",?QANTAB(2),"Sexual Assault" D RGLAR^QANBENE2 Q:QANQUIT
S QANLBL="SUI ATT"
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !!?QANTAB(1),"(14)",?QANTAB(2),"Suicide Attempt" D SPECIAL Q:QANQUIT
S QANLBL="SUICIDE"
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !!?QANTAB(1),"(15)",?QANTAB(2),"Suicide" D RGLAR2^QANBENE2 Q:QANQUIT
S QANLBL="TRANS ERR"
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !!?QANTAB(1),"(16)",?QANTAB(2),"Transfusion Error" D STNDRD^QANBENE2 Q:QANQUIT
I PAGE,($E(IOST)'="C") D PRINT
Q
HDH ;End of report interface.
I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR K DIR S:+Y=0 QANQUIT=1
Q
PRINT ;Print out labels.
I '$D(^TMP("QANBEN")) D HDH^QANBENE2 W !!!,"No Incidents to report.",!!!
W !,"VA Form 10-0139"_$S(QANFLG("WARD")="D":"E",QANFLG("WARD")="N":"D",QANFLG("WARD")="O":"C",QANFLG("WARD")="I":"B",QANFLG("WARD")="C":"BCDE",1:"")
Q
SPECIAL ;Special output "Proven Patient Abuse" and "Suicide Attempt"
W !?QANTAB(3),"Severity Level 0",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,0),0)
W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,0),0)
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !?QANTAB(3),"Severity Level 1",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,1),0)
W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,1),0)
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
W !?QANTAB(3),"Severity Level 2",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,2),0)
W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,2),0)
D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQANBENE3 2221 printed Dec 13, 2024@01:59:35 Page 2
QANBENE3 ;HISC/GJC-Special incidents invol. a beneficiary ;3/3/92
+1 ;;2.0;Incident Reporting;**1,26**;08/07/1992
+2 ;
EN1 ;Format of the print for our Beneficiary Report.
+1 SET QANLBL="ASSAULT PAT/STAFF"
+2 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+3 WRITE !!?QANTAB(1),"(10)",?QANTAB(2),"Patient on Staff",!?QANTAB(2),"Assault"
DO STNDRD^QANBENE2
if QANQUIT
QUIT
+4 SET QANLBL="OTHER"
+5 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+6 WRITE !!?QANTAB(1),"(11)",?QANTAB(2),"Patient Injury",!?QANTAB(2),"(not otherwise listed)"
DO STNDRD^QANBENE2
if QANQUIT
QUIT
+7 SET QANLBL="FIRE"
+8 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+9 WRITE !!?QANTAB(1),"(12)",?QANTAB(2),"Patient Involved",!?QANTAB(2),"in Fire"
DO STNDRD^QANBENE2
if QANQUIT
QUIT
+10 SET QANLBL="SEX"
+11 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+12 WRITE !!?QANTAB(1),"(13)",?QANTAB(2),"Sexual Assault"
DO RGLAR^QANBENE2
if QANQUIT
QUIT
+13 SET QANLBL="SUI ATT"
+14 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+15 WRITE !!?QANTAB(1),"(14)",?QANTAB(2),"Suicide Attempt"
DO SPECIAL
if QANQUIT
QUIT
+16 SET QANLBL="SUICIDE"
+17 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+18 WRITE !!?QANTAB(1),"(15)",?QANTAB(2),"Suicide"
DO RGLAR2^QANBENE2
if QANQUIT
QUIT
+19 SET QANLBL="TRANS ERR"
+20 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+21 WRITE !!?QANTAB(1),"(16)",?QANTAB(2),"Transfusion Error"
DO STNDRD^QANBENE2
if QANQUIT
QUIT
+22 IF PAGE
IF ($EXTRACT(IOST)'="C")
DO PRINT
+23 QUIT
HDH ;End of report interface.
+1 IF $EXTRACT(IOST)="C"
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
if +Y=0
SET QANQUIT=1
+2 QUIT
PRINT ;Print out labels.
+1 IF '$DATA(^TMP("QANBEN"))
DO HDH^QANBENE2
WRITE !!!,"No Incidents to report.",!!!
+2 WRITE !,"VA Form 10-0139"_$SELECT(QANFLG("WARD")="D":"E",QANFLG("WARD")="N":"D",QANFLG("WARD")="O":"C",QANFLG("WARD")="I":"B",QANFLG("WARD")="C":"BCDE",1:"")
+3 QUIT
SPECIAL ;Special output "Proven Patient Abuse" and "Suicide Attempt"
+1 WRITE !?QANTAB(3),"Severity Level 0",?QANTAB(5),$GET(QANCOUNT("SLEV",QANCC,QANLBL,0),0)
+2 WRITE ?QANTAB(6),$GET(QANCOUNT("INV",QANCC,QANLBL,0),0)
+3 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+4 WRITE !?QANTAB(3),"Severity Level 1",?QANTAB(5),$GET(QANCOUNT("SLEV",QANCC,QANLBL,1),0)
+5 WRITE ?QANTAB(6),$GET(QANCOUNT("INV",QANCC,QANLBL,1),0)
+6 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+7 WRITE !?QANTAB(3),"Severity Level 2",?QANTAB(5),$GET(QANCOUNT("SLEV",QANCC,QANLBL,2),0)
+8 WRITE ?QANTAB(6),$GET(QANCOUNT("INV",QANCC,QANLBL,2),0)
+9 if $Y>(IOSL-4)
DO HDH^QANBENE2
if QANQUIT
QUIT
+10 QUIT
