Routine: ORWDX

Information

ORWDX ;SLC/KCM,REV,JLI - Order dialog utilities ;Feb 16, 2024@13:21

Source file <ORWDX.m>

Name	Comments	DBIA/ICR reference
ORDITM(Y,FROM,DIR,XREF,QOCALL,ACCESS)	; Subset of orderable items ; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name
ODITMBC(Y,XREF,ODLST)	;
FNDINFO(Y,ODIEN)	;
DLGDEF(LST,DLG)	; Format mapping for a dlg
DLGQUIK(LST,QO)	;(NOT USED)
LOADRSP(LST,RSPID,TRANS,ORREN)
TITR(ORIFN,ORREN,ROOT,ORADDTITRRESP)	; Special handling for outpatient med titration orders
SAVE(REC,ORVP,ORNP,ORL,DLG,ORDG,ORIT,ORIFN,ORDIALOG,ORDEA,ORAPPT,ORSRC,OREVTDF,INDICAT)	; ; ORVP=DFN, ORNP=Provider, ORL=Location, DLG=Order Dialog, ; ORDG=Display Group, ORIT=Quick Order Dialog, ORAPPT=Appointment
SENDED(ORWLST,ORIENS,TS,LOC)	; Release EDOs to svc
SEND(ORWLST,DFN,ORNP,ORL,ES,ORWREC)	; Sign ; DFN=Patient, ORNP=Provider, ORL=Location, ES=Encrypted ES code ; ORWREC(n)=ORIFN;Action^Signature Sts^Release Sts^Nature of Order
SEND1
DLGID(VAL,ORIFN)	; return dlg IEN for order
FORMID(VAL,ORIFN)	; Base dlg FormID for an order
AGAIN(VAL,DLG)	; return true to keep dlg for another order
DGRP(VAL,DLG)	; Display grp pointer for a dlg
DGNM(VAL,NM)	; Display grp pointer for name
WRLST(LST,LOC)	; List of dlgs for writing orders
MSG(LST,IEN)	; Msg text for orderable item
DISMSG(VAL,IEN)	; Disabled mge for ordering dlg
LOCK(OK,DFN)	; Attempt to lock pt for ordering
UNLOCK(OK,DFN)	; Unlock pt for ordering
LOCKORD(OK,ORIFN)	; Attempt to lock order
UNLKORD(OK,ORIFN)	; Unlock order
UNLKOTH(OK,ORIFN)	; Unlock pt not by this session