source: WorldVistAEHR/trunk/r/INCIDENT_REPORTING-QAN/QANBENE2.m@ 660

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

initial load of WorldVistAEHR
File size: 4.8 KB
Line 
1QANBENE2 ;HISC/GJC-Special incidents invol. a beneficiary ;3/3/92
2 ;;2.0;Incident Reporting;**1,26,28**;08/07/1992
3 ;
4EN1 ;sort through divisions, if integrated
5 I $G(QANDVFLG)=1 D Q
6 . S QANCC=""
7 . F S QANCC=$O(^TMP("QANBEN",$J,"BEN",QANCC)) Q:QANCC']"" D
8 . . D INST^QANRPT1(QANCC,.QANDV)
9 . . S QANHEAD(4)="REPORT FOR DIVISION: "_QANDV
10 . . D HDH Q:QANQUIT
11 . . D EN2 Q:QANQUIT
12 I $G(QANQUIT)=1 Q
13 I $G(QANDVFLG)'=1 S (QANCC,QANDIV)=0,QANDV="Unknown"
14EN2 ;Format of the print for our Beneficiary Report.
15 S QANLBL="PATIENT ABUSE/ALLEGED"
16 D:$Y>(IOSL-4) HDH Q:QANQUIT
17 W !!?QANTAB(1),"(1)",?QANTAB(2),"Alleged Patient Abuse" D STNDRD Q:QANQUIT
18 S QANLBL="PATIENT ABUSE/PROVEN"
19 D:$Y>(IOSL-4) HDH Q:QANQUIT
20 W !!?QANTAB(1),"(2)",?QANTAB(2),"Proven Patient Abuse" D SPECIAL^QANBENE3 Q:QANQUIT
21 D:$Y>(IOSL-4) HDH Q:QANQUIT
22 W !!?QANTAB(1),"(3)",?QANTAB(2),"Deaths" D DEATH Q:QANQUIT
23 S QANLBL="INFORMED"
24 D:$Y>(IOSL-4) HDH Q:QANQUIT
25 W !!?QANTAB(1),"(4)",?QANTAB(2),"Failure to Obtain",!?QANTAB(2),"Informed Consent" D RGLAR Q:QANQUIT
26 S QANLBL="FALLS"
27 D:$Y>(IOSL-4) HDH Q:QANQUIT
28 W !!?QANTAB(1),"(5)",?QANTAB(2),"Falls" D STNDRD Q:QANQUIT
29 D:$Y>(IOSL-4) HDH Q:QANQUIT
30 S QANLBL="HOMICIDE"
31 D:$Y>(IOSL-4) HDH Q:QANQUIT
32 W !!?QANTAB(1),"(6)",?QANTAB(2),"Homicide" D RGLAR2 Q:QANQUIT
33 D:$Y>(IOSL-4) HDH Q:QANQUIT
34 S QANLBL="MED ERR"
35 D:$Y>(IOSL-4) HDH Q:QANQUIT
36 W !!?QANTAB(1),"(7)",?QANTAB(2),"Medication Errors" D STNDRD Q:QANQUIT
37 I PAGE,($E(IOST)'="C") D PRINT^QANBENE3
38 D:$Y>(IOSL-8) HDH Q:QANQUIT
39 S QANLBL="MISSING PAT"
40 D:$Y>(IOSL-4) HDH Q:QANQUIT
41 W !!?QANTAB(1),"(8)",?QANTAB(2),"Missing Patient" D STNDRD Q:QANQUIT
42 D:$Y>(IOSL-4) HDH Q:QANQUIT
43 S QANLBL="ASSAULT PAT/PAT"
44 D:$Y>(IOSL-4) HDH Q:QANQUIT
45 W !!?QANTAB(1),"(9)",?QANTAB(2),"Patient on Patient",!?QANTAB(2),"Assault" D STNDRD Q:QANQUIT
46 D:$Y>(IOSL-4) HDH Q:QANQUIT
47 D EN1^QANBENE3 Q:QANQUIT
48 Q
49DEATH ;Prints for deaths.
50 S QANLBL="DEATH-OR"
51 W !?QANTAB(3),"In Operating Room",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
52 D:$Y>(IOSL-4) HDH Q:QANQUIT
53 S QANLBL="DEATH-RR"
54 W !?QANTAB(3),"In Recovery Room",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
55 D:$Y>(IOSL-4) HDH Q:QANQUIT
56 S QANLBL="DEATH-ANESTH" W !?QANTAB(3),"During induction"
57 W !?QANTAB(3)," of anesthesia",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
58 D:$Y>(IOSL-4) HDH Q:QANQUIT
59 S QANLBL="DEATH-48" W !?QANTAB(3),"Within 48 hrs. of"
60 W !?QANTAB(3)," surgery",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
61 D:$Y>(IOSL-4) HDH Q:QANQUIT
62 S QANLBL="DEATH-CON" W !?QANTAB(3),"In conjunction with"
63 W !?QANTAB(3)," a procedure",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
64 D:$Y>(IOSL-4) HDH Q:QANQUIT
65 S QANLBL="DEATH-EQ" W !?QANTAB(3),"Equipment mal-"
66 W !?QANTAB(3)," function",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
67 D:$Y>(IOSL-4) HDH Q:QANQUIT
68 S QANLBL="DEATH-FAIL" W !?QANTAB(3),"Due to failure to"
69 W !?QANTAB(3)," diagnose or treat",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
70 D:$Y>(IOSL-4) HDH Q:QANQUIT
71 S QANLBL="DEATH-M.E." W !?QANTAB(3),"Cases accepted by",!?QANTAB(3)," Medical Examiner"
72 W ?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
73 S QANLBL="DEATH-MED CEN" W !?QANTAB(3),"On medical center",!?QANTAB(3)," grounds while not"
74 W !?QANTAB(3)," being treated",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
75 D:$Y>(IOSL-4) HDH Q:QANQUIT
76 Q
77RGLAR ;Regular w/o Severity Levels.
78 W ?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,2),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,2),0)
79 D:$Y>(IOSL-4) HDH Q:QANQUIT
80 Q
81RGLAR2 ;Regular w/o severity levels - (homicide & suicide)
82 W ?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
83 D:$Y>(IOSL-4) HDH Q:QANQUIT
84 Q
85STNDRD ;Printing 'Severity Level'
86 W !?QANTAB(3),"Severity Level 0",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,0),0)
87 W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,0),0)
88 D:$Y>(IOSL-4) HDH Q:QANQUIT
89 W !?QANTAB(3),"Severity Level 1",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,1),0)
90 W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,1),0)
91 D:$Y>(IOSL-4) HDH Q:QANQUIT
92 W !?QANTAB(3),"Severity Level 2",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,2),0)
93 W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,2),0)
94 D:$Y>(IOSL-4) HDH Q:QANQUIT
95 W !?QANTAB(3),"Severity Level 3",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0)
96 W ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
97 D:$Y>(IOSL-4) HDH Q:QANQUIT
98 Q
99HDH ;End of screen interface.
100 Q:QANQUIT
101 I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR K DIR S:+Y=0 QANQUIT=1
102 Q:QANQUIT
103 D HDR^QANBENE0
104 Q
Note: See TracBrowser for help on using the repository browser.