Routine: QAOSPRD1

Information

QAOSPRD1 ;HISC/DAD-INTER-REVIEWER RELIABILITY ASSESSMENT REPORT ;10/7/92 13:34

Name	Comments	DBIA/ICR reference
LOOP1	;
CENTER(X)	; *** Center the string in X

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: LOOP1+4
Function Call: WRITE	Prompt: ?68,QAOTODAY Line Location: LOOP1+5
Function Call: WRITE	Prompt: !!!?21,"Total",?31,"Requested",?45,"Selected",?58,"Per-centage (=Sel/Tot)" Line Location: LOOP1+9
Function Call: WRITE	Prompt: !?21,"-----",?31,"---------",?45,"--------",?58,"-----------" Line Location: LOOP1+10
Function Call: WRITE	Prompt: !!,"Clinical Reviews" Line Location: LOOP1+11
Function Call: WRITE	Prompt: ?22,$J($P(QAOSCNUM,"^"),4,0),?34,$J(QAOSNUM,4,0),?47,$J($P(QAOSCNUM,"^",2),4,0) Line Location: LOOP1+12
Function Call: WRITE	Prompt: ?60,$S(+QAOSCNUM:$J($P(QAOSCNUM,"^",2)/QAOSCNUM*100,6,2),1:" ???") Line Location: LOOP1+13
Function Call: WRITE	Prompt: !!,"Peer Reviews" Line Location: LOOP1+14
Function Call: WRITE	Prompt: ?22,$J($P(QAOSPNUM,"^"),4,0),?34,$J(QAOSNUM,4,0),?47,$J($P(QAOSPNUM,"^",2),4,0) Line Location: LOOP1+15
Function Call: WRITE	Prompt: ?60,$S(+QAOSPNUM:$J($P(QAOSPNUM,"^",2)/QAOSPNUM*100,6,2),1:" ???") Line Location: LOOP1+16
Function Call: WRITE	Prompt: @IOF Line Location: LOOP1+17
Function Call: WRITE	Prompt: !?80-$L(X)/2,X Line Location: CENTER+1