Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSBINJEC

Package: Barcode Medication Administration

Routine: PSBINJEC


Information

PSBINJEC ;BIRMINGHAM/GN-LAST INJECTION SITE BROKER ;03/06/16 3:06pm

Source Information

Source file <PSBINJEC.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Barcode Medication Administration 1 (,$$IVROTATN,RPC)^PSBINJEC  
Inpatient Medications 1 EN^PSJBCMA1  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Barcode Medication Administration 7 PSB GETINJECTIONSITE  PSBINJEC  PSBUTL  PSBVDLPA  PSBVDLPB  PSBVDLRM  PSBVDLUD  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ ADRESULT+9
^PSBINJEC BLDTBL+1
$$IVROTATN^PSBINJEC QUALIFY+26
RPC^PSBINJEC LASTSITE+6, LASTSITE+8
EN^PSJBCMA1 QUALIFY+13
$$FMADD^XLFDT OI+6, ALL+9
$$NOW^XLFDT OI+6, ALL+9
$$GET^XPAR ALL+7, ALL+8

Used in RPC

RPC Name Call Tags
PSB GETINJECTIONSITE RPC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSB(53.79 - [#53.79] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RPC+30
^PSB(53.79 - [#53.79] OI+15, OI+17, OI+19, ALL+18, ALL+20, ALL+22, QUALIFY+9, QUALIFY+11, ADRESULT+4, ADRESULT+5
, ADRESULT+7, ADRESULT+8
^TMP("PSJ1" QUALIFY+12!, QUALIFY+14, QUALIFY+15, QUALIFY+16, QUALIFY+17, QUALIFY+18, QUALIFY+19, QUALIFY+20, QUALIFY+21, QUALIFY+22!

Label References

Name Line Occurrences
$$QUALIFY OI+20, ALL+23
ADRESULT OI+21, ALL+24
ALL RPC+37
BLDTBL RPC+34
ERR RPC+31, OI+24, ALL+27
OI RPC+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACDTE RPC+24~, OI+15*, OI+17, OI+19, ALL+18*, ALL+20, ALL+22, ADRESULT+12
DFN RPC~, RPC+30, OI+15, OI+17, OI+19, ALL+18, ALL+20, ALL+22, QUALIFY+13, LASTSITE~
, LASTSITE+6, LASTSITE+8
DOSAGE RPC+24~, ADRESULT+2*, ADRESULT+5*, ADRESULT+8*, ADRESULT+12
DSPIVPB RPC+24~, QUALIFY+17*, QUALIFY+30
ENDDTE RPC+24~, OI+6*, OI+15, ALL+9*, ALL+18
INDX OI+3~, OI+14*, OI+15, OI+17, OI+19, ALL+3~, ALL+17*, ALL+18, ALL+20, ALL+22
INJ RPC+24~, OI+16*, OI+17*, OI+19, ALL+19*, ALL+20*, ALL+22
INT IVROTATN~, IVROTATN+3, IVROTATN+4
INTERMIT RPC+24~, QUALIFY+15*, QUALIFY+26
IVOK RPC+24~, IVROTATN+1~*, IVROTATN+2, IVROTATN+3*, IVROTATN+4*, IVROTATN+5*, IVROTATN+6
IVTY IVROTATN~, IVROTATN+3, IVROTATN+4
IVTYPE RPC+24~, QUALIFY+14*, QUALIFY+26
LDER LASTSITE+5~, LASTSITE+9*, LASTSITE+10
LI LASTSITE+5~, LASTSITE+6, LASTSITE+8
LI(1 LASTSITE+7, LASTSITE+9
LINJ LASTSITE+5~, LASTSITE+7*, LASTSITE+10
LSITE LASTSITE+5~, LASTSITE+10*, LASTSITE+11
MAX RPC~, OI+9*, OI+22, ALL+12*, ALL+25
MXTIME RPC+24~
OI LASTSITE~, LASTSITE+6, LASTSITE+8
ORDIT RPC+25~, QUALIFY+18*, ADRESULT+12
ORDITNM RPC+25~, QUALIFY+19*, ADRESULT+12
ORDNO RPC+25~, QUALIFY+11*, QUALIFY+13, QUALIFY+26, ADRESULT+3, ADRESULT+6
PRMPTINJ RPC+25~, QUALIFY+16*, QUALIFY+30
PSBOI RPC~, RPC+36, RPC+37, OI+15, OI+17, OI+19
QQ RPC+25~, ADRESULT+4*, ADRESULT+5, ADRESULT+7*, ADRESULT+8, BLDTBL+1~*
QT RPC+25~, OI+10*, OI+17, OI+19, OI+22*, ALL+13*, ALL+20, ALL+22, ALL+25*
RESULTS RPC~, RPC+26!, OI+24, ALL+27
RESULTS( ADRESULT+12*
RESULTS(0 ADRESULT+13*, ERR+1*, OK+1*
RESULTS(1 ERR+2*, OK+2*
ROUTE RPC+25~, QUALIFY+20*, ADRESULT+12
RR RPC+25~, OI+18*, OI+19*, ALL+21*, ALL+22*, QUALIFY+9, QUALIFY+11, ADRESULT+4, ADRESULT+5, ADRESULT+7
, ADRESULT+8, ADRESULT+9
RT BLDTBL+1~*
RTAB IVROTATN~
RTAB( IVROTATN+5
RTBL RPC+25~, RPC+34, QUALIFY+26
SITE RPC+24~, ADRESULT+9*, ADRESULT+12
SITETYP RPC~, RPC+28*, OI+14, ALL+7, ALL+8, ALL+17, QUALIFY+30, ADRESULT+9
STDROUTE RPC+25~, QUALIFY+21*, QUALIFY+26
STDRT IVROTATN~, IVROTATN+2, IVROTATN+5
TBL BLDTBL~
TBL( BLDTBL+1*
TIME RPC~, OI+5*, OI+6, ALL+6*, ALL+7*, ALL+8*, ALL+9
TXT ERR~, ERR+2, OK~, OK+2
U QUALIFY+9, QUALIFY+11, QUALIFY+14, QUALIFY+15, QUALIFY+16, QUALIFY+17, QUALIFY+18, QUALIFY+19, QUALIFY+20, QUALIFY+21
, ADRESULT+5, ADRESULT+8, ADRESULT+12, LASTSITE+10
YY RPC+25~, OI+10*, OI+22, ALL+13*, ALL+25, ADRESULT+11*, ADRESULT+12, ADRESULT+13

Marked Items

Name Field # of Occurrence
$T(ROUTES+QQ^PSBINJEC BLDTBL+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All