YTMMP7.m

YTMMP7 ;SLC/DKG-TEST PKG: MMPI FORM R TO BOOKLET ; 10/21/88  17:01 ;

 ;;5.01;MENTAL HEALTH;;Dec 30, 1994

 ;

 F J=2,3 S Y(J)=X(J)

 S F="200,206,211,215,167,227,236,168,240,246,169,249,250,251,255,261,170,262,269,273,279,281,282,287,171,302,305,321,347,349,172,173,364,174"

 S X(2)=$E(X(2),1,166)

 F J=1:1:34 S A=$P(F,",",J),X(2)=X(2)_$S(A>200:$E(Y(3),A-200),1:$E(Y(2),A))

 K F,Y(3)

 S F="6,11,15,27,36,40,46,49,50,51,55,61,62,69,73,79,81,82,87,102,105,121,147,149,164"

 F J=175:1:199 S A=$P(F,",",J-174),X(3)=$E(X(3),1,A-1)_$E(Y(2),J)_$E(X(3),A+1,200)

 K F,A,Y S YSTEST=$O(^YTT(601,"B","MMPI",0)) Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YTMMP7   609     printed  Apr 09, 2024@21:17:02                                                                                                                                                                                                       Page 2

YTMMP7    ;SLC/DKG-TEST PKG: MMPI FORM R TO BOOKLET ; 10/21/88  17:01 ;

 +1       ;;5.01;MENTAL HEALTH;;Dec 30, 1994

 +2       ;

 +3        FOR J=2,3

               SET Y(J)=X(J)

 +4        SET F="200,206,211,215,167,227,236,168,240,246,169,249,250,251,255,261,170,262,269,273,279,281,282,287,171,302,305,321,347,349,172,173,364,174"

 +5        SET X(2)=$EXTRACT(X(2),1,166)

 +6        FOR J=1:1:34

               SET A=$PIECE(F,",",J)

               SET X(2)=X(2)_$SELECT(A>200:$EXTRACT(Y(3),A-200),1:$EXTRACT(Y(2),A))

 +7        KILL F,Y(3)

 +8        SET F="6,11,15,27,36,40,46,49,50,51,55,61,62,69,73,79,81,82,87,102,105,121,147,149,164"

 +9        FOR J=175:1:199

               SET A=$PIECE(F,",",J-174)

               SET X(3)=$EXTRACT(X(3),1,A-1)_$EXTRACT(Y(2),J)_$EXTRACT(X(3),A+1,200)

 +10       KILL F,A,Y

           SET YSTEST=$ORDER(^YTT(601,"B","MMPI",0))

           QUIT