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 |
