source: WorldVistAEHR/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSAHO2.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: 3.6 KB
Line 
1QAOSAHO2 ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE QA OCCURRENCE SCREEN FILE (#741) ;2/19/93 15:42
2 ;;3.0;Occurrence Screen;;09/14/1993
3MENU ;
4 F QA=1:1 S X=$P($T(TEXT+QA),";;",2,99) Q:X="" S QAQMENU(QA)=X
5 Q
6TEXT ;; SORT ^ MENU TEXT ^ FIELD # ^ DIR(0)
7 ;;1^Occurrence Screen^~3;"Screen"^PAO^741.1:AEMNQZ^D POINTER^QAQAHOC2
8 ;;1^Patient Name^~.01;"Patient"^PAO^2:AEMNQZ^D POINTER^QAQAHOC2
9 ;;1^Social Security Number^~.01:.09;"SSN"^FAO^9:9^
10 ;;1^Date of Occurrence^~1;"Occurrence Date"^DAO^::EX^D DATE^QAQAHOC2
11 ;;1^Screen Status^~3:,100;"Screen Status"^SO^1:INACTIVE;N:NATIONAL;L:LOCAL;^D SET^QAQAHOC2
12 ;;1^Occurrence Identifier^~2;"Occurrence ID"^FAO^7:7^
13 ;;1^Associated Admission^~.02;"Associated Admission"^DAO^::EX^D DATE^QAQAHOC2
14 ;;1^Severity of Outcome^~19:1;"Severity of Outcome"^PAO^741.8:AEMQZ^S:$D(Y(0))#2 Y=$P(Y(0),U,2)
15 ;;1^Ward/Clinic^~4;"Ward/Clinic"^PAO^44:AEMNQZ^D POINTER^QAQAHOC2
16 ;;1^Service/Section^~5;"Service/Section"^PAO^49:AEMNQZ^D POINTER^QAQAHOC2
17 ;;1^Bed Service^~4:,42:,.03;"Bed Service"^SO^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILIARY;B:BLIND REHAB;NC:NON-COUNT;^D SET^QAQAHOC2
18 ;;1^Clinic Service^~4:9;"Clinic Service"^SO^^D SET^QAQAHOC2
19 ;;1^Treating Specialty^~6;"Treating Spec"^PAO^45.7:AEMNQZ^D POINTER^QAQAHOC2
20 ;;1^Medical Team^~7;"Med Team"^PAO^741.93:AEMNQZ^D POINTER^QAQAHOC2
21 ;;1^Attending Physician^~8;"Attending Phys"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
22 ;;1^Resident/Provider^~9;"Res/Prov"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
23 ;;1^Status (Open,Closed,Deleted)^~11;"Status"^SO^0:OPEN;1:CLOSED;2:DELETED;^D SET^QAQAHOC2
24 ;;1^Final Disposition Date^~14;"Final Disp Date"^DAO^::EX^D DATE^QAQAHOC2
25 ;;1^Final Disposition Authority^~16;"Final Disp Authority"^PAO^741.2:AEMQZ^D POINTER^QAQAHOC2
26 ;;1^Total Elapsed Days^~15;"Total Elapsed Days"^NAO^0:999:0^
27 ;;1^Review Level (Clin,Peer,Mgmt)^10,~.01;"Revr Level"^PAO^741.2:AEMQZ^D POINTER^QAQAHOC2
28 ;;1^Reviewer Name^10,~.02;"Revr Name"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
29 ;;1^Reviewer Service^10,~.03;"Revr Serv"^PAO^49:AEMNQZ^D POINTER^QAQAHOC2
30 ;;1^Reviewer Findings^10,~4:1;"Revr Findings"^PAO^741.6:AEMQZ^S:$D(Y(0))#2 Y=$P(Y(0),U,2)
31 ;;1^Reviewer Actions^10,5,~.01:2;"Revr Actions"^PAO^741.7:AEMQZ^S:$D(Y(0))#2 Y=$P(Y(0),U,2)
32 ;;0^Reviewer Comments^10,~10;"Reviewer Comments"^
33 ;;1^Date Review Completed^10,~1;"Date Review Completed"^DAO^::EX^D DATE^QAQAHOC2
34 ;;1^Reviewer Elapsed Days^10,~8;"Reviewer Elapsed Days"^NAO^0:999:0^
35 ;;1^Primary Reason Clin Referral^10,~3;"Primary Reason Clin Referral"^PAO^741.4:AEMQZ^S:$D(Y(0))#2 Y=$P(Y(0),U,2)
36 ;;1^Reason for Exception^10,2,~.01;"Reason for Exception"^PAO^741.5:AEMQZ^S:$D(Y(0))#2 Y=$P(Y(0),U,2)
37 ;;1^Final Peer Review Per Service^10,~9;"Final Peer Rev/Serv"^SO^1:YES;0:NO;^D SET^QAQAHOC2
38 ;;1^Committee^17,~.01;"Committee"^PAO^741.97:AEMNQZ^D POINTER^QAQAHOC2
39 ;;1^Committee Confirmed Issue^17,~4;"Cmte Confirmed Issue"^SO^1:EQUIPMENT PROBLEMS;2:SYSTEM PROBLEMS;3:EQUIPMENT & SYSTEM PROBLEMS;4:NONE;^D SET^QAQAHOC2
40 ;;0^Committee Comments^17,~10;"Committee Comments"^
41 ;;1^Peer Attrib (Individual)^24,~.01;"Attrib (Individual)"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
42 ;;1^Serv Peer Attrib (Individual)^24,~.02;"Serv Peer Attrib (Individual)"^PAO^49:AEMNQZ^D POINTER^QAQAHOC2
43 ;;1^Peer Attrib (Med Team)^25,~.01;"Attrib (Med Team)"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
44 ;;1^Serv Peer Attrib (Med Team)^25,~.02;"Serv Peer Attrib (Med Team)"^PAO^49:AEMNQZ^D POINTER^QAQAHOC2
45 ;;1^Peer Attrib (Hosp Loc)^26,~.01;"Attrib (Hosp Loc)"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
46 ;;1^Serv Peer Attrib (Hosp Loc)^26,~.02;"Serv Peer Attrib (Hosp Loc)"^PAO^49:AEMNQZ^D POINTER^QAQAHOC2
Note: See TracBrowser for help on using the repository browser.