ORKPS ; SLC/CLA - Order checking support procedures for medications ;Oct 27, 2023@10:53:17
Source file <ORKPS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHECK(YY,DFN,MED,OI,ORKDG,OROIL,ORSUPPLY,ORIVTYPE,ORIVRAN,ORDODSG) | ; return drug order checks
|
|
| CHKSESS(YY,DFN,MED,OI,ORKPDATA,ORKDG,ORSUPPLY,ORIVTYPE) | ; return drug order checks for session
|
|
| IVADD(ORDRUG,OROI) | ;RETURN YES OR NO IF SHOULD ADD THE IV ITEM
|
|
| SHRNKPR | ;REMOVE DUPLICATS FROM PROSPECTIVE LIST
|
|
| GETPSNM(ORIEN) | ;GET THE FILE 50 .01 FIELD FROM A FILE 50 IEN
|
|
| TAKEMED(ORKDFN,ORKMED) | ;extrinsic function returns med orderable item if any
|
|
| POLYRX(DFN) | ;extrins funct rtns 1 if patient exceeds polypharmacy, 0 if not
|
|
| GLCREAT(DFN) | ;extrinsic function returns patient's (DFN) most recent serum
; creatinine within # of days from parameter ORK GLUCOPHAGE CREATININE ; results format: test id^result units flag ref range collect d/t^result ; used by order check GLUCOPHAGE-LAB RESULTS |
|
| GCDAYS(DFN) | ;extrinsic function to return number of days to look for
; glucophage serum creatinine result |
|
| SUPPLY(OI) | ;extrinsic function returns 1 (true) if the orderable item is
; a supply |
|
| NUMRX(DFN) | ;extrinsic funct returns number of active meds patient is taking
|
|
| OI2DD(OROI,ORPSPKG,ORCHKTYP) | ||
| GLEGFR(DFN) | ;extrinsic function returns patient's (DFN) most recent eGFR
; within # of days from parameter ORK METFORMIN EGFR ; results format: test id^result units flag ref range collect d/t^result ; used by order check METFORMIN EGFR-LAB RESULTS |
|
| GEDAYS(DFN) | ;extrinsic function to return number of days to look for
; Metformin eGFR result |
|
| RSLTCALC(ORRSLT) | ;Recalculate results
|
