source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSUPL0.m@ 979

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

initial load of FOIAVistA 6/30/08 version

File size: 3.7 KB
Line 
1QAOSUPL0 ;HISC/DAD-GENERATE SUMMARY OF OS UPLOAD BULLETIN ;6/28/93 11:07
2 ;;3.0;Occurrence Screen;;09/14/1993
3 ;
4 ;MESSAGE FORMAT:
5 ; SERVER DATA
6 ; 1) ^^QAO0^
7 ; SITE DATA
8 ; 1) STATION NUMBER (FROM: 4,99)
9 ; 2) STATION NAME (FROM: 4,.01)
10 ; 3) REPORTING PERIOD START DATE (FM INTERNAL)
11 ; 4) REPORTING PERIOD END DATE (FM INTERNAL)
12 ; RELIABILITY DATA
13 ; 1) DATE CLIN RELIABILITY ASSESSMENT COMPLETED (FM INTERNAL)
14 ; 2) PERCENTAGE AGREEMENT FOUND (CLIN)
15 ; 3) DATE PEER RELIABILITY ASSESSMENT COMPLETED (FM INTERNAL)
16 ; 4) PERCENTAGE AGREEMENT FOUND (PEER)
17 ; WORKLOAD DATA
18 ; 1) # ADMISSIONS TO MEDICINE
19 ; 2) # ADMISSIONS TO SURGERY
20 ; 3) # ADMISSIONS TO PSYCHIATRY
21 ; 4) # UNSCHEDULED & 10-10 AMBULATORY CARE VISITS
22 ; 5) <NULL>
23 ; 6) <NULL>
24 ; 7) # SURGICAL PROCEDURES PERFORMED
25 ; ACTION DATA
26 ; 1) ACTION NUMBER (FROM: 741.7,.01) ; NUMBER OF TIMES TAKEN ^ ...
27 ; SCREEN DATA
28 ; 1) SCREEN NUMBER (FROM: 741.1,.01 - NATIONAL SCREENS ONLY)
29 ; 2) # OCCURRENCES REVIEWED CLINICALLY
30 ; 3) # OCCURRENCES REFERRED TO PEER REVIEW
31 ; 4) OUTCOME OF PEER REVIEW: LEVEL 1
32 ; 5) OUTCOME OF PEER REVIEW: LEVEL 2
33 ; 6) OUTCOME OF PEER REVIEW: LEVEL 3
34 ; 7) OUTCOME OF PEER REVIEW: PENDING
35 ; 8) # OCCURRENCES REFERRED FOR SYSTEM ISSUES
36 ; 9) # OCCURRENCES REFERRED FOR EQUIPMENT ISSUES
37 ; 10) # OCCURRENCES MEDICINE (INCLUDING NEUROLOGY)
38 ; 11) # OCCURRENCES SURGERY
39 ; 12) # OCCURRENCES PSYCHIATRY
40 ; 13) # OCCURRENCES OTHER
41 ; 14) # OCCURRENCES TOTAL
42EN ;
43 S QAOSZERO=$G(^QA(740,1,0)) I +QAOSZERO'>0 S QAOERROR=1 D ERROR G EXIT
44 S QAOSSITE=$P($G(^DIC(4,+QAOSZERO,0)),"^")
45 I QAOSSITE="" S QAOERROR=2 D ERROR G EXIT
46 S QAOSSTNO=$P($G(^DIC(4,+QAOSZERO,99)),"^")
47 I QAOSSTNO="" S QAOERROR=3 D ERROR G EXIT
48 S QAOSSERV=$P(QAOSZERO,"^",4) I QAOSSERV="" S QAOERROR=4 D ERROR G EXIT
49 S QAOSDOM=$P(QAOSZERO,"^",5) I QAOSDOM="" S QAOERROR=5 D ERROR G EXIT
50 S QA=+$O(^DIC(4.2,"B",$E(QAOSDOM,1,30),0))
51 I $S($D(^DIC(4.2,QA,0))[0:1,$P(^(0),"^")'=QAOSDOM:1,1:0) S QAOERROR=6 D ERROR G EXIT
52 W !!,"Select the reporting period:" S QAQDATE="'S" D ^QAQDATE
53 G:QAQQUIT EXIT
54 ;
55 D HOME^%ZIS W @IOF
56 W !!,"3. Results of the Reliability Assessments (Complete only for second report",!,"of fiscal year.)"
57 ;
58 W !!," a. Clinical Review"
59 K DIR S DIR(0)="DOA^:"_DT_":EXP"
60 S DIR("?")="Enter an exact date (month, day, and year) less than or equal to today"
61 S DIR("A")=" (1) Date reliability assessment completed: "
62 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("C",1)=Y
63 K DIR S DIR(0)="NOA^0:100:2"
64 S DIR("?")="Enter a number from 0 to 100, two decimal places allowed, no '%'"
65 S DIR("A")=" (2) Percentage agreement found: "
66 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("C",2)=Y
67 ;
68 W !!," b. Peer Review"
69 K DIR S DIR(0)="DOA^:"_DT_":EXP"
70 S DIR("?")="Enter an exact date (month, day, and year) less than or equal to today"
71 S DIR("A")=" (1) Date reliability assessment completed: "
72 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("P",1)=Y
73 K DIR S DIR(0)="NOA^0:100:2"
74 S DIR("?")="Enter a number from 0 to 100, two decimal places allowed, no '%'"
75 S DIR("A")=" (2) Percentage agreement found: "
76 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("P",2)=Y
77 G EN^QAOSUPL1
78EXIT ;
79 G EXIT^QAOSUPL2
80ERROR ;
81 W *7,!!,"*** ",$P($T(ERR+QAOERROR),";;",2)," ***",!!,*7
82 Q
83ERR ;;ERROR MESSAGES: REASONS SUMMARY OF OCCURRENCE SCREEN COULD NOT BE SENT
84 ;;STATION NAME NOT FOUND IN QA SITE PARAMETERS FILE
85 ;;STATION NAME NOT FOUND IN INSTITUTION FILE
86 ;;STATION NUMBER NOT FOUND IN INSTITUTION FILE
87 ;;NQADB MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE
88 ;;NQADB DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE
89 ;;NQADB DOMAIN NOT FOUND IN DOMAIN FILE
Note: See TracBrowser for help on using the repository browser.