source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGOER1.m@ 1754

Last change on this file since 1754 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 789 bytes
Line 
1PSGOER1 ;BIR/CML3-RENEWAL UTILITIES ;04 APR 94 / 11:04 AM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ;
4ENVPPC ; view previous provider comments
5 N %,%Y,PSJ1,PSJ2,X,Y S PSJ1=$S(PSGORD["V":"IV",1:5),PSJ2=$S(PSGORD["V":5,1:12)
6 I '$O(^PS(55,PSGP,PSJ1,+PSGORD,PSJ2,0)) W !,"(There are no previous provider comments to show.)" Q
7 F W !!,"Would you like to view the previous provider comments for this order" S %=1 D YN^DICN Q:% D ;
8 .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."
9 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
10 K KKA
11 Q
Note: See TracBrowser for help on using the repository browser.