| 1 | NURQUTL2 ;HIRMFO/YH-SURVEY STATISTICS PART 2 ;3/11/96
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | LIKRTLAB ;print Likert labels and gradient
|
|---|
| 4 | S NLFTLBL=$G(^TMP("NURQ3",$J,748.26,NURNUM_","_NURQSVN_",",1)),NRGTLBL=$G(^(2)),NLDIRCT=$G(^(3)) S NLDIRCT=$S(NLDIRCT="ASCENDING":"a",NLDIRCT="DECENDING":"d",1:"") S:NLDIRCT="" NLDIRCT="a" ;default
|
|---|
| 5 | S:NLDIRCT="a" NLDIRCT="F Y=1:1:NGRDIENT" S:NLDIRCT="d" NLDIRCT="F Y=NGRDIENT:-1:1" S NLDIRCT=NLDIRCT_" S X=X_Y_"" "",NANS(Y)="""""
|
|---|
| 6 | S:NLFTLBL="" NLFTLBL="Poor" S:NRGTLBL="" NRGTLBL="Excellent" ;default
|
|---|
| 7 | S X="("_NLFTLBL_") " X NLDIRCT
|
|---|
| 8 | S X=X_"("_NRGTLBL_")"
|
|---|
| 9 | W ?(IOM-($L(X))\2),X,!
|
|---|
| 10 | K NLDIRCT,X,Y Q
|
|---|
| 11 | ;
|
|---|
| 12 | WP ;WP responses
|
|---|
| 13 | F NPART1=0:0 S NPART1=$O(^TMP($J,"QAPZ",NPART1)) Q:NPART1=""!($D(DIRUT))!$G(NUROUT) K NARRAY D GETS^DIQ(748.31,NURQUES1_","_NPART1_",","2","","NARRAY") W:$O(NARRAY(748.31,NURQUES1_","_NPART1_",",2,0))]"" ?3,"----------",! DO
|
|---|
| 14 | .F NQZ=0:0 S NQZ=$O(NARRAY(748.31,NURQUES1_","_NPART1_",",2,NQZ)) Q:NQZ=""!$G(NUROUT) S NQY=$G(NARRAY(748.31,NURQUES1_","_NPART1_",",2,NQZ)) D:($Y>(IOSL-7)) HDR^NURQRPT0 Q:$G(NUROUT) W ?3,NQY,!
|
|---|
| 15 | W ?3,"----------" Q
|
|---|
