PSBVDLU2 ;BIRMINGHAM/EFC-BCMA VDL UTILITIES ;Mar 2004
Source file <PSBVDLU2.m>
Package | Total | Call Graph |
---|---|---|
Barcode Medication Administration | 1 | PSJ1^PSBVT |
Inpatient Medications | 1 | EN^PSJBCMA1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
FNDLBLO(PIN,ORDN,PSBBGID) | ; Return order IV bag was printed for AND setup ^TMP("PSJ1",$J).
|
|
GETWSID(DFN,ORDN) | ; generate a uniqe ID for wardstock
|
|
INFUSING | ; determine if there is any bag not completed on an order or its' previous orders
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSB(53.79 - [#53.79] | INFUSING+7, INFUSING+8, INFUSING+9, GETWSID+3, GETWSID+4 |
^TMP("PSJ1" | INFUSING+4, INFUSING+5!, FNDLBLO+2!, FNDLBLO+4!, FNDLBLO+5, FNDLBLO+6 |
Name | Field # of Occurrence |
---|---|
^(0 | INFUSING+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | INFUSING+2, INFUSING+5, GETWSID~, GETWSID+3, GETWSID+4, GETWSID+5 |
>> FNDLBLO | FNDLBLO+2*, FNDLBLO+5*, FNDLBLO+6*, FNDLBLO+7 |
ORDN | GETWSID~, FNDLBLO~, FNDLBLO+2 |
PIN | FNDLBLO~, FNDLBLO+2 |
PSBBGID | FNDLBLO~, FNDLBLO+5 |
>> PSBCOMP | INFUSING+2*, INFUSING+9* |
>> PSBDFN | INFUSING+7, INFUSING+8 |
>> PSBINFDT | INFUSING+9* |
>> PSBINFST | INFUSING+9* |
>> PSBNUM | GETWSID+2*, GETWSID+4*, GETWSID+5 |
>> PSBONX | INFUSING+2, INFUSING+3, INFUSING+6, INFUSING+9 |
>> PSBORD | FNDLBLO+2*, FNDLBLO+7 |
>> PSBORDX | FNDLBLO+2*, FNDLBLO+3, FNDLBLO+4, FNDLBLO+5*, FNDLBLO+6* |
>> PSBPIN | FNDLBLO+2*, FNDLBLO+4 |
>> PSBPONX | INFUSING+2, INFUSING+3, INFUSING+4* |
PSBPORA | INFUSING+2! |
PSBPORA( | INFUSING+3*, INFUSING+4*, INFUSING+6, INFUSING+9* |
PSBSONX | INFUSING+1~, INFUSING+3*, INFUSING+4 |
PSBSPONX | INFUSING+1~, INFUSING+3*, INFUSING+4*, INFUSING+5 |
>> PSBUID | GETWSID+5*, GETWSID+6 |
PSBXDONE | FNDLBLO+3! |
PSBXDONE( | FNDLBLO+3*, FNDLBLO+4* |
U | INFUSING+9, FNDLBLO+5, FNDLBLO+6 |
>> X | INFUSING+6*, INFUSING+7, INFUSING+8, INFUSING+9, GETWSID+3*, GETWSID+4 |
>> Y | INFUSING+7*, INFUSING+8, INFUSING+9, GETWSID+4* |
>> Z | INFUSING+8*, INFUSING+9 |