source: WorldVistAEHR/trunk/r/INCIDENT_REPORTING-QAN/QANPSD1.m@ 1111

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

initial load of WorldVistAEHR
File size: 4.1 KB
RevLine 
[613]1QANPSD1 ;HISC/GJC-Pseudo VA 10-2633 ;10/1/92
2 ;;2.0;Incident Reporting;**1,16**;08/07/1992
3 ;
4 W !?5,"PATIENT: ",$G(QANAME),?45,"PATIENT ID: ",$G(QANPID)
5 W !?5,"SOCIAL SECURITY NUMBER: ",$G(QANSSN),?45,"AGE: ",$G(QANAGE)
6 W !?5,"DATE/TIME INCIDENT: ",$G(QANDATE),?45,"DATE INITIATED: ",$G(QANINIT)
7 W !?5,"WARD/CLINIC: ",$G(QANWARD),?45,"SERVICE: ",$G(QANSERV)
8 I 'QANBLNK,($D(^QA(742,QANDFN,2,0))) W !?5,"CLINICAL DIAGNOSIS: " S (QAN,QANFLAG)=0 F S QAN=$O(^QA(742,QANDFN,2,QAN)) Q:QAN'>0 D DIAG Q:QANFIN["^"
9 I QANBLNK W !?5,"CLINICAL DIAGNOSIS: ",!!!!!
10 S QANFLAG=0 Q:QANFIN["^"
11 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !!?5,"ADMISSION DATE: ",$G(QANADMT),?45,"INCIDENT TYPE: ",$G(QANINCD)
12 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?5,"WITNESS: ",$G(QANWIT) W:$G(QANWIT)["Y" ?45,"RELATIONSHIP TO PATIENT: __________"
13 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?5,"INCIDENT LOCATION: ",$G(QANILOC),?45,"CASE NUMBER: ",$G(QANCASE)
14 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^"
15 I 'QANBLNK,($D(^QA(742.4,QANIEN,1,0))) W !!?5,"INCIDENT DESCRIPTION: " S (QAN,QANFLAG)=0 F S QAN=$O(^QA(742.4,QANIEN,1,QAN)) Q:QAN'>0 D DESCR Q:QANFIN["^"
16 I QANBLNK W !!?5,"INCIDENT DESCRIPTION: ",!!
17 S QANFLAG=0 Q:QANFIN["^"
18 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !!!?5,"SIGNATURE AND TITLE OF REPORTER: _________________________",!
19 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W ?5,"DATE: __________",!
20 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?5,"PHYSICIAN'S EXAMINATION FINDINGS/ACTIONS:",!!!!!
21 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?10,"SEVERITY LEVEL: 0 1 2 3"
22 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !!?10,"EXAMINING PHYSICIAN'S SIGNATURE: _________________________",!?10,"DATE: __________",!
23 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?5,"SERVICE LEVEL FINDINGS/ACTIONS:",!!!
24 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?10,"SIGNATURE: _________________________",!?10,"DATE: __________",!!
25 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W $G(QANEQ),!
26 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?5,"CHIEF OF STAFF REVIEW:",!!?5,"INCIDENT TYPE: ",$G(QANINCD)
27 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^"
28 I 'QANBLNK,($D(^QA(742,QANDFN,1,0))) W !?5,"RESPONSIBLE SERVICE: " S (QAN,QANFLAG)=0 F S QAN=$O(^QA(742,QANDFN,1,QAN)) Q:QAN'>0 D RSERV Q:QANFIN["^"
29 I QANBLNK W !?5,"RESPONSIBLE SERVICE: "
30 S QANFLAG=0 Q:QANFIN["^"
31 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !!?5,"COMMENTS: ",!!!
32 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?5,"RECOMMENDATIONS FOR FURTHER FOLLOW-UP: ",!?10,"NO",!?10,"YES",!
33 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?10,"SPECIFY:",!!!
34 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?10,"COS SIGNATURE: _________________________",!?10,"DATE: __________"
35 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !!,$G(QANEQ),!!?5,"DIRECTOR'S REVIEW:",!!
36 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?5,"ACTION TAKEN BY MEDICAL CENTER:",?45,"NEED FOR FURTHER REVIEW:"
37 I 'QANBLNK,($D(^QA(742.4,QANIEN,2,0))) S (QAN,QAN(0),QANFLAG)=0 F S QAN=$O(^QA(742.4,QANIEN,2,QAN)) Q:QAN'>0 D MEDC Q:QANFIN["^"
38 S QANFLAG=0 Q:QANFIN["^"
39 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^"
40 I 'QANBLNK,('$D(^QA(742.4,QANIEN,2,0))) W !?45,$G(QANLREV)
41 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !!!?5,"DIRECTOR'S SIGNATURE: _________________________",!
42 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W ?5,"DATE: __________",!
43 Q
44DESCR ;Incident Description word processing
45 S X=$G(^QA(742.4,QANIEN,1,QAN,0)),DIWF="",DIWR=50,DIWL=10,QANFLAG=1
46 K ^UTILITY($J,"W") D ^DIWP
47 S QANMN=0,QANLBL="INCIDENT DESCRIPTION: "
48 F S QANMN=+$O(^UTILITY($J,"W",DIWL,QANMN)) Q:QANMN'>0 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?15,^(QANMN,0)
49 Q
50RSERV ;Responsible Service multiple
51 S QANLBL="RESPONSIBLE SERVICE: ",QANFLAG=1
52 S Y=$P(^QA(742,QANDFN,1,QAN,0),U),C=$P(^DD(742.01,.01,0),U,2) D:Y]"" Y^DIQ
53 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?15,Y
54 Q
55DIAG ;Patient Diagnosis multiple
56 S QANLBL="CLINICAL DIAGNOSIS: ",QANFLAG=1
57 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?15,$P(^QA(742,QANDFN,2,QAN,0),U)
58 Q
59MEDC ;Medical Center Action multiple
60 S QAN(0)=QAN(0)+1,QANLBL="ACTION TAKEN BY MEDICAL CENTER: ",QANFLAG=1
61 S Y=$P(^QA(742.4,QANIEN,2,QAN,0),U),C=$P(^DD(742.42,.01,0),U,2) D:Y]"" Y^DIQ
62 D:$Y>(IOSL-8) HDH^QANPSDO Q:QANFIN["^" W !?10,Y W:QAN(0)=1 ?45,$G(QANLREV)
63 Q
Note: See TracBrowser for help on using the repository browser.