source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSPRD1.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1QAOSPRD1 ;HISC/DAD-INTER-REVIEWER RELIABILITY ASSESSMENT REPORT ;10/7/92 13:34
2 ;;3.0;Occurrence Screen;;09/14/1993
3 S Y=DT X ^DD("DD") S QAOTODAY=Y
4 F QAOSTYP=2:1:$L(QAOSTYPE,"^")-1 S QAOSTYPE(0)=$P(QAOSTYPE,"^",QAOSTYP) D LOOP1
5 Q
6LOOP1 ;
7 S QAOSCNUM=$G(^TMP($J,"QAOSPRD0",QAOSTYPE(0),"CLIN"))
8 S QAOSPNUM=$G(^TMP($J,"QAOSPRD0",QAOSTYPE(0),"PEER"))
9 S QAOSTYPE("T")=$S(QAOSTYPE(0)="N":"NATIONAL",QAOSTYPE(0)="L":"LOCAL",QAOSTYPE(0)="1":"INACTIVE",1:"???")
10 W !! D CENTER("Inter-Reviewer Reliability Assessment Worksheets")
11 W ?68,QAOTODAY
12 D CENTER("(Blank worksheets "_$S('QAOBLANK:"not ",1:"")_"included)")
13 D CENTER("for CLINICAL and PEER reviewers for the "_QAOSTYPE("T")_" screens")
14 D CENTER(QAQ2HED)
15 W !!!?21,"Total",?31,"Requested",?45,"Selected",?58,"Per-centage (=Sel/Tot)"
16 W !?21,"-----",?31,"---------",?45,"--------",?58,"-----------"
17 W !!,"Clinical Reviews"
18 W ?22,$J($P(QAOSCNUM,"^"),4,0),?34,$J(QAOSNUM,4,0),?47,$J($P(QAOSCNUM,"^",2),4,0)
19 W ?60,$S(+QAOSCNUM:$J($P(QAOSCNUM,"^",2)/QAOSCNUM*100,6,2),1:" ???")
20 W !!,"Peer Reviews"
21 W ?22,$J($P(QAOSPNUM,"^"),4,0),?34,$J(QAOSNUM,4,0),?47,$J($P(QAOSPNUM,"^",2),4,0)
22 W ?60,$S(+QAOSPNUM:$J($P(QAOSPNUM,"^",2)/QAOSPNUM*100,6,2),1:" ???")
23 W @IOF
24 F QAOSREVR="CLIN","PEER" F QAOSSEQ=0:0 S QAOSSEQ=$O(^TMP($J,"QAOSPRD0",QAOSTYPE(0),QAOSREVR,QAOSSEQ)) Q:QAOSSEQ'>0 D
25 . S QAOSD0=$G(^TMP($J,"QAOSPRD0",QAOSTYPE(0),QAOSREVR,QAOSSEQ))
26 . Q:$P(QAOSD0,"^",2)'="*" S QAOSD0=+QAOSD0 N QAOSTYPE,QAOSNUM,QAOSSEQ
27 . S QAOSTYPE=$S(QAOSREVR="CLIN":"1,",QAOSREVR="PEER":"2,",1:0)
28 . Q:QAOSTYPE'>0 S QAOSHOW=1
29 . I QAOSREVR="CLIN" D
30 .. N QAOSSEQ,QAOSREVR
31 .. S QAOSDATA=2 D ^QAOSPCL0,^QAOSPCL1
32 .. S QAOSDATA=1 D:QAOBLANK ^QAOSPCL0,^QAOSPCL1
33 .. Q
34 . I QAOSREVR="PEER" D
35 .. N QAOSSEQ,QAOSREVR
36 .. S QAOSDATA=2 D ^QAOSPPR0
37 .. S QAOSDATA=1 D:QAOBLANK ^QAOSPPR0
38 .. Q
39 . Q
40 Q
41CENTER(X) ; *** Center the string in X
42 W !?80-$L(X)/2,X
43 Q
Note: See TracBrowser for help on using the repository browser.