source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWPS1.m@ 750

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

initial load of WorldVistAEHR

File size: 717 bytes
Line 
1ORWPS1 ; 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
3NEWDLG(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
11PICKUP(Y) ; Return default for refill location
12 I $D(^PSX(550,"C")) S Y="M"
13 E S Y="W"
14 Q
15REFILL(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
Note: See TracBrowser for help on using the repository browser.