| [613] | 1 | ORWPS1 ; SLC/Staff - Meds Tab;03:34 AM 9 May 1998 ;12/8/98 20:56
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
|
|---|
| 3 | NEWDLG(Y,INPAT) ; Return order dialog info for New Medication
|
|---|
| 4 | N DGRP,ID,IEN,TXT,TYP,X,X0,X5
|
|---|
| 5 | I INPAT S X=$$GET^XPAR("ALL","ORWDX NEW MED","i","I")
|
|---|
| 6 | E S X=$$GET^XPAR("ALL","ORWDX NEW MED","o","I")
|
|---|
| 7 | S IEN=+X,X0=$G(^ORD(101.41,IEN,0)),X5=$G(^(5))
|
|---|
| 8 | S TYP=$P(X0,U,4),DGRP=+$P(X0,U,5),ID=+$P(X5,U,5),TXT=$P(X5,U,4)
|
|---|
| 9 | S Y=IEN_";"_ID_";"_DGRP_";"_TYP_U_TXT
|
|---|
| 10 | Q
|
|---|
| 11 | PICKUP(Y) ; Return default for refill location
|
|---|
| 12 | I $D(^PSX(550,"C")) S Y="M"
|
|---|
| 13 | E S Y="W"
|
|---|
| 14 | Q
|
|---|
| 15 | REFILL(Y,ORDERID,REFLOC,ORVP,ORNP,ORL) ; Refill Request
|
|---|
| 16 | S ORVP=ORVP_";DPT(",ORL(2)=ORL_";SC(",ORL=ORL(2)
|
|---|
| 17 | D REF^ORMBLDPS(ORDERID,REFLOC)
|
|---|
| 18 | S Y=""
|
|---|
| 19 | Q
|
|---|
