| 1 | QANBENE3 ;HISC/GJC-Special incidents invol. a beneficiary ;3/3/92
|
|---|
| 2 | ;;2.0;Incident Reporting;**1,26**;08/07/1992
|
|---|
| 3 | ;
|
|---|
| 4 | EN1 ;Format of the print for our Beneficiary Report.
|
|---|
| 5 | S QANLBL="ASSAULT PAT/STAFF"
|
|---|
| 6 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 7 | W !!?QANTAB(1),"(10)",?QANTAB(2),"Patient on Staff",!?QANTAB(2),"Assault" D STNDRD^QANBENE2 Q:QANQUIT
|
|---|
| 8 | S QANLBL="OTHER"
|
|---|
| 9 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 10 | W !!?QANTAB(1),"(11)",?QANTAB(2),"Patient Injury",!?QANTAB(2),"(not otherwise listed)" D STNDRD^QANBENE2 Q:QANQUIT
|
|---|
| 11 | S QANLBL="FIRE"
|
|---|
| 12 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 13 | W !!?QANTAB(1),"(12)",?QANTAB(2),"Patient Involved",!?QANTAB(2),"in Fire" D STNDRD^QANBENE2 Q:QANQUIT
|
|---|
| 14 | S QANLBL="SEX"
|
|---|
| 15 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 16 | W !!?QANTAB(1),"(13)",?QANTAB(2),"Sexual Assault" D RGLAR^QANBENE2 Q:QANQUIT
|
|---|
| 17 | S QANLBL="SUI ATT"
|
|---|
| 18 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 19 | W !!?QANTAB(1),"(14)",?QANTAB(2),"Suicide Attempt" D SPECIAL Q:QANQUIT
|
|---|
| 20 | S QANLBL="SUICIDE"
|
|---|
| 21 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 22 | W !!?QANTAB(1),"(15)",?QANTAB(2),"Suicide" D RGLAR2^QANBENE2 Q:QANQUIT
|
|---|
| 23 | S QANLBL="TRANS ERR"
|
|---|
| 24 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 25 | W !!?QANTAB(1),"(16)",?QANTAB(2),"Transfusion Error" D STNDRD^QANBENE2 Q:QANQUIT
|
|---|
| 26 | I PAGE,($E(IOST)'="C") D PRINT
|
|---|
| 27 | Q
|
|---|
| 28 | HDH ;End of report interface.
|
|---|
| 29 | I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR K DIR S:+Y=0 QANQUIT=1
|
|---|
| 30 | Q
|
|---|
| 31 | PRINT ;Print out labels.
|
|---|
| 32 | I '$D(^TMP("QANBEN")) D HDH^QANBENE2 W !!!,"No Incidents to report.",!!!
|
|---|
| 33 | 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:"")
|
|---|
| 34 | Q
|
|---|
| 35 | SPECIAL ;Special output "Proven Patient Abuse" and "Suicide Attempt"
|
|---|
| 36 | W !?QANTAB(3),"Severity Level 0",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,0),0)
|
|---|
| 37 | W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,0),0)
|
|---|
| 38 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 39 | W !?QANTAB(3),"Severity Level 1",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,1),0)
|
|---|
| 40 | W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,1),0)
|
|---|
| 41 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 42 | W !?QANTAB(3),"Severity Level 2",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,2),0)
|
|---|
| 43 | W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,2),0)
|
|---|
| 44 | D:$Y>(IOSL-4) HDH^QANBENE2 Q:QANQUIT
|
|---|
| 45 | Q
|
|---|
