source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSS0114.m@ 1590

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

initial load of FOIAVistA 6/30/08 version

File size: 764 bytes
Line 
1PSS0114 ;BIR/JLC-UPDATE ORDERABLE ITEMS WITH DEFAULT MED ROUTES ;08/28/2006
2 ;;1.0;PHARMACY DATA MANAGEMENT;**114**;9/30/97;Build 2
3 ;
4 ;
5 N A,B,C,DF,Y,MRP,MR,OUT,IEN,OK,X
6EN K DIC S DIC="^PS(50.606,",DIC(0)="AEMQ",DIC("A")="Select DOSAGE FORM: " D ^DIC K DIC Q:X=""!(X="^") I Y<0 G EN
7 S DF=$P(Y,"^",2)
8EN1 K DIC S DIC="^PS(51.2,",DIC(0)="AEMQ",DIC("A")="Select MEDICATION ROUTE: " D ^DIC K DIC Q:X=""!(X="^") I Y<0 G EN1
9 W ! S MRP=$P(Y,"^"),MR=$P(Y,"^",2),(OUT,IEN)=0
10 F S IEN=$O(^PS(50.7,IEN)) Q:'IEN D Q:OUT
11 . S A=$G(^(IEN,0)) Q:$P(A,"^",6)]"" S B=$P(A,"^",2) Q:B="" S C=$P($G(^PS(50.606,B,0)),"^")
12 . Q:C'=DF
13 . W !,IEN," ",$P(A,"^")," ok to change? " R OK:60 W " " I OK="^" S OUT=1 Q
14 . I OK'="Y" Q
15 . S $P(^PS(50.7,IEN,0),"^",6)=MRP
16 Q
17EXIT Q
Note: See TracBrowser for help on using the repository browser.