VistA Analysis » VistA Reference » RPCs » ORWDCN32 NEWDLG

ORWDCN32 NEWDLG

Returns dialog information when NEW CONSULT/PROCEDURE is selected fromthe consults tab.

Properties

Property Value
Label NEWDLG
MUMPS Implementation ORWDCN32
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
dialog type LITERAL 1 true "C" for consult, "P" for procedure

MUMPS Method Description

Property Value
Method NEWDLG^ORWDCN32
Method Comment Return order dialog info for New Consult OR PROCEDURE
Input Parameters ORTYPE, ORLOC
Code 
 N DGRP,ID,IEN,TXT,TYP,X,X0,X5,ENT
 S ENT="ALL"
 I $G(ORLOC) S ORLOC=+ORLOC_";SC(",ENT=ENT_"^"_ORLOC
 I ORTYPE="C" S X=$$GET^XPAR(ENT,"ORWDX NEW CONSULT",1,"I") ;ICR 2263
 E  S X=$$GET^XPAR(ENT,"ORWDX NEW PROCEDURE",1,"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 Consults/rConsults.pas


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