VistA Analysis » VistA Reference » RPCs » ORWDXM AUTOACK

ORWDXM AUTOACK

Place a quick order in CPRS GUI without the verify step.

Properties

Property Value
Label AUTOACK
MUMPS Implementation ORWDXM
Return Type ARRAY

MUMPS Method Description

Property Value
Method AUTOACK^ORWDXM
Method Comment Place a quick order without verify step
Input Parameters ORVP, ORNP, ORL, ORIT
Code 
 N ORDG,ORDUZ,ORSTS,OREVENT,ORCAT,ORDA,ORTS,ORNEW,ORCHECK,ORLOG
 N ORDIALOG,ORIFN,ORLEAD,ORTRAIL
 S ORVP=ORVP_";DPT(",ORL(2)=ORL_";SC(",ORL=ORL(2)
 S DGRP=$P($G(^ORD(101.41,ORIT,0)),U,5) Q:'DGRP
 S ORDIALOG=$$DEFDLG^ORWDXQ(DGRP)
 I ORDIALOG=$O(^ORD(101.41,"B","PSO OERR",0)) S ORCAT="O"      ; temp
 I ORDIALOG=$O(^ORD(101.41,"B","PSJ OR PAT OE",0)) S ORCAT="I" ; temp
 D GETDLG1^ORCD(ORDIALOG)
 D GETORDER^ORCD("^ORD(101.41,"_ORIT_",6)")
 D EN^ORCSAVE
 S REC="" I ORIFN D GETBYIFN^ORWORR(.REC,ORIFN)

CPRS

File Type Description
Pascal File Orders/rODBase.pas


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