PSBINJEC ;BIRMINGHAM/GN-LAST INJECTION SITE BROKER ;03/06/16 3:06pm
Source file <PSBINJEC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RPC(RESULTS,DFN,PSBOI,TIME,MAX,SITETYP) | ;Get Last MAX Injection/Derm site
; admins per Patient by One Orderable Item or ALL Orderable Items |
|
OI | ; Get Last MAX Injections per Patient for one Orderable Item only
|
|
ALL | ; Get Last MAX Injections per Patient for any Orderable Item
|
|
QUALIFY() | ; Determine if a record qualifies as a last Injection Site we want
|
|
ADRESULT | ; Add line item to Results array
; get last dispense, this one has the dosage given by the nurse |
|
LASTSITE(DFN,OI) | ;Get the last site via LIFO per OI for VDL - Injection/Dermal
; Returns the last body site per the Patient and Orderable Item ; If both an Injection site and Dermal site are found per an OI, ; then the site that occurred most recently (last) will be returned. |
|
ERR(TXT) | ; Error msg handler
|
|
OK(TXT) | ; Success msg handler
|
|
IVROTATN(RTAB,STDRT,IVTY,INT) | ; IV of route and type for injection rotations
|
|
BLDTBL(TBL) | ; Build Rotation table
|
|
ROUTES | ; Valid Rotation routes for returning admin record injection data
|
RPC Name | Call Tags |
---|---|
PSB GETINJECTIONSITE | RPC |
FileNo | Call Tags |
---|---|
^PSB(53.79 - [#53.79] | GET1^DIQ |