PSGOER1.m

PSGOER1 ;BIR/CML3-RENEWAL UTILITIES ;04 APR 94 / 11:04 AM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 ;

ENVPPC ; view previous provider comments

 N %,%Y,PSJ1,PSJ2,X,Y S PSJ1=$S(PSGORD["V":"IV",1:5),PSJ2=$S(PSGORD["V":5,1:12)

 I '$O(^PS(55,PSGP,PSJ1,+PSGORD,PSJ2,0)) W !,"(There are no previous provider comments to show.)" Q

 F  W !!,"Would you like to view the previous provider comments for this order" S %=1 D YN^DICN Q:%  D  ;

 .W !!?2,"Answer 'YES' to view the provider comments for this order prior to its",!,"renewal.  Answer 'NO' (or '^') if you do not need to see the provider comments."

 I %=1 W !!,"Provider Comments:",! S %=0 F  S %=$O(^PS(55,PSGP,PSJ1,+PSGORD,PSJ2,%)) Q:'%  N Y,Y2 S Y=" "_$G(^(%,0)) F KKA=2:1 S Y2=$P(Y," ",KKA) Q:Y2=""  W:$L(Y2)+$X>79 !?2 W " ",Y2

 K KKA

 Q

PSGOER1   ;BIR/CML3-RENEWAL UTILITIES ;04 APR 94 / 11:04 AM

 +1       ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 +2       ;

ENVPPC    ; view previous provider comments

 +1        NEW %,%Y,PSJ1,PSJ2,X,Y

           SET PSJ1=$SELECT(PSGORD["V":"IV",1:5)

           SET PSJ2=$SELECT(PSGORD["V":5,1:12)

 +2        IF '$ORDER(^PS(55,PSGP,PSJ1,+PSGORD,PSJ2,0))

               WRITE !,"(There are no previous provider comments to show.)"

               QUIT 

 +3       ;

           FOR 

               WRITE !!,"Would you like to view the previous provider comments for this order"

               SET %=1

               DO YN^DICN

               IF %

                   QUIT 

               Begin DoDot:1

 +4                WRITE !!?2,"Answer 'YES' to view the provider comments for this order prior to its",!,"renewal.  Answer 'NO' (or '^') if you do not need to see the provider comments."

               End DoDot:1

 +5        IF %=1

               WRITE !!,"Provider Comments:",!

               SET %=0

               FOR 

                   SET %=$ORDER(^PS(55,PSGP,PSJ1,+PSGORD,PSJ2,%))

                   IF '%

                       QUIT 

                   NEW Y,Y2

                   SET Y=" "_$GET(^(%,0))

                   FOR KKA=2:1

                       SET Y2=$PIECE(Y," ",KKA)

                       IF Y2=""

                           QUIT 

                       IF $LENGTH(Y2)+$X>79

                           WRITE !?2

                       WRITE " ",Y2

 +6        KILL KKA

 +7        QUIT