VPRSDAP ;SLC/MKB -- SDA Pharmacy utilities ;10/25/18 15:29
Source file <VPRSDAP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PS1(IEN) | ; -- set up single medication
; Returns ORIFN, ORPK, PSTYPE & VPRPS=^TMP |
|
| OI(IEN) | ; -- return orderable item for order IEN in the format
; ifn ^ [name] ^ pkg id |
|
| SCHEDULE() | ; -- return schedule name ^ type ^ admin times ^ #min
; Expects ORIFN, IEN from VPR DOSAGE STEP |
|
| LOC(DFN,ID) | ; -- return Hosp Location for order
|
|
| IMO(X,PS) | ; -- return true, false, or null if IMO location X
|
|
| PSRX(RX) | ; -- get RX info for extension properties
|
|
| ROUTING(RX) | ; -- get the Routing value [not in use]
|
|
| GETFILLS | ; -- build DLIST(#)=#^data of fills, where data is
; date ^ daysSupply ^ qty ^ released ^ routing ^ remarks ^ returned |
|
| SUPPLY(IEN) | ; -- return 1 or 0, if supply item
|
|
| CMOP(RX) | ; -- return CMOP indicator for RX
|
|
| SIG(IEN) | ; -- return Sig, append VPRPI if needed
|
|
| DOSEFORM(IEN) | ; -- return dose form
|
|
| INGRD(NAME) | ; -- reset NAME to ingredient IEN
; Also return VPRCODE=code^name^system |
|
| NDF(DRUG) | ; -- return VA Drug Product info for DRUG (#50 ien)
; also returns DATA = code^name^system for RXN/VUID |
|
| CODE(MED,FILE) | ; -- convert MED=ien^name to national code
; Reset MED = code^name^system for RxNorm or VUID |
|
| DOSES(IEN) | ; -- build DLIST(n)=instance of Dose Instructions
|
|
| BCMA(IEN,MAX) | ; -- get list of most recent administrations for order
|
|
| PSB | ; -- VPR PSB EVENTS protocol listener (BCMA)
|
|
| ADMSTS(DA) | ; -- return the code^name of administration status
|
|
| IV() | ; -- Return 1 or 0, if order is for IV/infusion
|
|
| IVMEDS(IEN) | ; -- build DLIST(#)=ien^amount^type[^bottle] for components
|
|
| IV1(X) | ; -- get VA Drug Product info for IV component X (from DLIST)
; Returns VPRPSIV = ien^name^amt^type^bottle# |
|
| IVRATE(IEN) | ; -- return IV Rate, or DDEOUT if invalid
; also VPRATE = numeric amount, if ## ml/hr |
|
| IVTYPE(IEN) | ; -- return IV Type, or DDEOUT if invalid
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| ^PSB(53.79 - [#53.79] | EXTERNAL^DILFD |
