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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGOER1 800 printed Nov 22, 2024@17:12:29 Page 2
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
