source: WorldVistAEHR/trunk/r/INCIDENT_REPORTING-QAN/QANBENE3.m@ 1593

Last change on this file since 1593 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1QANBENE3 ;HISC/GJC-Special incidents invol. a beneficiary ;3/3/92
2 ;;2.0;Incident Reporting;**1,26**;08/07/1992
3 ;
4EN1 ;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
28HDH ;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
31PRINT ;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
35SPECIAL ;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
Note: See TracBrowser for help on using the repository browser.