ORWDXC ; SLC/KCM - Utilities for Order Checking ;Jul 10, 2023@09:25:01
Source file <ORWDXC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ON(VAL) | ; returns E if order checking enabled, otherwise D
|
|
| FILLID(VAL,DLG) | ; Return the FillerID (namespace) for a dialog
|
|
| DISPLAY(LST,DFN,FID) | ; Return list of Order Checks for a FillerID (namespace)
|
|
| ALLERGY(LST,DFN,FID,OIL,ORDRNUM,ORL) | ; Return list of allergy Order Checks on select medication
; DFN = Patient IEN ; FID = PSI (Inpatient) ; PSO (Outpatient) ; PSH (Non-VA) ; OIL = Orderable Item # ; ORDRNUM = Order # (file 100) ; ORL = Ordering Location (only passed when being performed on orderable item selection - not required) |
|
| REASON(LST,TYP,DFN,OID) | ;Return list of pre-defined override reasons
|
|
| ACCEPT(LST,DFN,FID,STRT,ORL,OIL,ORIFN,ORREN,ORRENFLDS,ALLACC) | ||
| DELAY(LST,DFN,FID,STRT,ORL,OIL) | ; Return list of Order Checks on Accept Delayed
|
|
| SESSION(LST,ORVP,ORLST) | ; Return list of Order Checks on Release Order
|
|
| SAVECHK(OK,ORVP,RSN,LST) | ||
| SAVEMCHK(OK,ORVP,LST) | ||
| DELORD(OK,ORIFN) | ||
| USID(ORITMX) | ; Return universal svc ID for an orderable item
; ORITMX = OI^NMSP^PKGINFO |
|
| CHK2LST | ; creates list that can be passed to broker from ORCHECK array
; expects ORCHECK to be present and populates LST |
|
| LST2CHK | ; create ORCHECK array from list passed by broker and
; create ORREASON and ORCOMMENTS arrays from lists passed by broker |
|
| CHECKIT(X) | ;remove unnecessary duplication of Duplicate Therapy checks
|
|
| AINB(A,B) | ;if array A is a subset of array B then return 1, else return 0
|
|
| XINA(X,A) | ;if string X is an entry in array A then return 1, else return 0
|
|
| REMDUPS | ;
|
|
| REMDUPSX | ;similar to REMDUPS^ORCHECK
|
|
| OPOS(DFN) | ;handles saving and removing order checks that should only be displayed once per cprs session
; expects ORCHECK ; sets these order checks into the "Once Per cprs Session" global ^TMP($J,"OC-OPOS",DFN) |
|
| FNDDRUG(USID,OI,DFN,FID) | ;Identify and return potential drug items based on
; the Orderable Item |
|
| OISLCT(LST,OI,PSTYPE,ORVP) | ; Return Dispense Drug IENs ;Modified from OISLCT^ORWDPS2
|
|
| DRUG(ORDD) | ;Returns 6 ^-piece identifier for Dispense Drug ;Modified from DRUG^ORCHECK
|
|
| D1 | ||
| FNDDRG(ORX,ORDER,PKG) | ;
|
|
| CLRALLGY(ORY,DFN) | ;Clears the ^TMP data containing the temporary allergy order checks for a patient
; DFN = PATIENT IEN |
| RPC Name | Call Tags |
|---|---|
| ORWDXC ON | ON |
| ORWDXC DISPLAY | DISPLAY |
| ORWDXC FILLID | FILLID |
| ORWDXC ACCEPT | ACCEPT |
| ORWDXC SAVECHK | SAVECHK |
| ORWDXC SESSION | SESSION |
| ORWDXC DELORD | DELORD |
| ORWDXC DELAY | DELAY |
| ORWDXC ALLERGY | ALLERGY |
| ORWDXC REASON | REASON |
| ORWDXC SAVEMCHK | SAVEMCHK |
| ORWDXC CLRALLGY | CLRALLGY |
