| [613] | 1 | QAOSPRD1 ;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
|
|---|
| 6 | LOOP1 ;
|
|---|
| 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
|
|---|
| 41 | CENTER(X) ; *** Center the string in X
|
|---|
| 42 | W !?80-$L(X)/2,X
|
|---|
| 43 | Q
|
|---|
