| [613] | 1 | PSS0114 ;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
|
|---|
| 6 | EN 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)
|
|---|
| 8 | EN1 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
|
|---|
| 17 | EXIT Q
|
|---|
