VistA Analysis » VistA Reference » RPCs » ORWPS1 NEWDLG

ORWPS1 NEWDLG

Returns order dialog information for a new medication.

Properties

Property Value
Label NEWDLG
MUMPS Implementation ORWPS1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method NEWDLG^ORWPS1
Method Comment Return order dialog info for New Medication
Input Parameters INPAT
Code 
 N DGRP,ID,IEN,TXT,TYP,X,X0,X5
 I INPAT S X=$$GET^XPAR("ALL","ORWDX NEW MED","i","I")
 E  S X=$$GET^XPAR("ALL","ORWDX NEW MED","o","I")
 S IEN=+X,X0=$G(^ORD(101.41,IEN,0)),X5=$G(^(5))
 S TYP=$P(X0,U,4),DGRP=+$P(X0,U,5),ID=+$P(X5,U,5),TXT=$P(X5,U,4)
 S Y=IEN_";"_ID_";"_DGRP_";"_TYP_U_TXT

CPRS

File Type Description
Pascal File rMeds.pas


Document generated on August 31st 2022, 2:55:43 pm