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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSBVDLU1

Package: Barcode Medication Administration

Routine: PSBVDLU1


Information

PSBVDLU1 ;BIRMINGHAM/EFC-VIRTUAL DUE LIST (VDL) UTILITIES ;03/06/16 3:06pm

Source Information

Source file <PSBVDLU1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Barcode Medication Administration 8 ERROR^PSBMLU  EN^PSBPOIV  EN^PSBVDLPB  (INCLUDCO,INITTAB)^PSBVDLU1  INFUSING^PSBVDLU2  EN^PSBVDLUD  (CLEAN,PSJ,PSJ1)^PSBVT  $$PSBDCHK1^PSBVT1  
Inpatient Medications 3 EN^PSJBCMA  EN^PSJBCMA1  GETSIOPI^PSJBCMA5  
VA FileMan 2 (H,NOW)^%DTC  $$GET1^DIQ  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
Toolkit 1 $$GET^XPAR  

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: 20

Package Total Caller Graph
Barcode Medication Administration 20 PSBCSUTL  PSBCSUTX  PSBCSUTY  PSBMLEN  PSBMLEN1  PSBODL  PSBODL1  PSBOMH  
PSBOMM  PSBOMM2  PSBORT  PSBOWA  PSBRPC1  PSBVDLIV  PSBVDLPA  PSBVDLPB  
PSBVDLRM  PSBVDLTB  PSBVDLU1  PSBVDLUD  

Entry Points

Name Comments DBIA/ICR reference
ODDSCH(PSBTABX) ;
GETFREQ(PSBDFN,PSBORDN) ;
GETADMIN(PSBDFN,PSBORDN,PSBSTRT,PSBFREQ,PSBEVDT) ;
ADD(PSBREC,PSBSI,PSBDT,PSBDD,PSBSOL,PSBADD,PSBTAB) ;
CHECK
VNURSE(PSBTAB) ;add initials of verifying pharmacist/verifying nurse
OKAY(PSBSTRT,PSBADMIN,PSBSCH,PSBORDER,PSBDRUG,PSBFREQ,PSBOSTS) ;
DAYS(PSB) ; Return days between doses (-1: error, 1:everyday 2: QOD...)
LAST ;
GETSI(DFN,ORD,TAB) ;Get Special Instructions/Other Print Info from IM ;*68
INCLUDCO ;Rebuild TMP global from PSJBCMA, RETAIN CLINC ORDERS ONLY *70
REMOVECO ;Rebuild TMP global from PSJBCMA, RETAIN IM ORDERS ONLY *70
MODELITE() ;
INITTAB ;*70
FINDORD(BWDFWD,DFN,PSBDT,PSBTAB) ;Search a patient's orders Bwd or Fwd *70
; Find the next day that contains an Active admin time not Given.
LOOPBWD ; Loop thru days backwards and quit when pass End date. *70
LOOPFWD ; Loop thru days forwards and quit when pass End date. *70
PATCHON(DFN,ORDR) ;check if any patches are still Given & Not Removed per this patient
; Return values:
; Func: True/False (1/0) for patches do exist on a patient.
; ORDR(): array element "C"linic or "I"npatient order = 1 when
; at least 1 order of this type exists.
INFUSING(DFN,ORDR) ;check if any IV's have bags infusing per this patient
; Return values:
; Func: True/False (1/0) for patches do exist on a patient.
; ORDR(): array element "C"linic or "I"npatient order = 1 when
; at least 1 order of this type exists.
STOPPED(DFN,ORDR) ;check if any IV's have bags infusing per this patient
; Return values:
; Func: True/False (1/0) for patches do exist on a patient.
; ORDR(): array element "C"linic or "I"npatient order = 1 when
; at least 1 order of this type exists.
REMOVETM(MRR,STYP) ;** Check if MRR med & add to Results array (34,35) *83

External References

Name Field # of Occurrence
H^%DTC OKAY+35
NOW^%DTC PATCHON+18, INFUSING+17, STOPPED+17
$$GET1^DIQ CHECK+1
ERROR^PSBMLU OKAY+39
EN^PSBPOIV ADD+62
EN^PSBVDLPB LOOPBWD+10, LOOPFWD+10
INCLUDCO^PSBVDLU1 FINDORD+8
INITTAB^PSBVDLU1 LOOPBWD+4, LOOPFWD+4
INFUSING^PSBVDLU2 ADD+43
EN^PSBVDLUD LOOPBWD+9, LOOPFWD+9
CLEAN^PSBVT ADD+54, ADD+57, PATCHON+13, PATCHON+21, INFUSING+12, INFUSING+22, STOPPED+12, STOPPED+22
PSJ^PSBVT ADD+42
PSJ1^PSBVT ADD+54, ADD+57, VNURSE+3, PATCHON+14, INFUSING+13, STOPPED+13
$$PSBDCHK1^PSBVT1 GETFREQ+5
EN^PSJBCMA MODELITE+5, FINDORD+8
EN^PSJBCMA1 GETFREQ+2, GETADMIN+4
GETSIOPI^PSJBCMA5 GETSI+8
$$FMADD^XLFDT ODDSCH+2, GETADMIN+9, OKAY+29, LOOPBWD+2, LOOPBWD+8, LOOPFWD+2, LOOPFWD+8, PATCHON+18, INFUSING+18, INFUSING+19
, STOPPED+18, STOPPED+19, REMOVETM+23
$$NOW^XLFDT MODELITE+4, REMOVETM+24
$$GET^XPAR PATCHON+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] ADD+19, ADD+21, ADD+22, ADD+23, ADD+26, ADD+27, ADD+28, ADD+29, ADD+30, ADD+49
, ADD+51, ADD+52, CHECK+1, LAST+2, PATCHON+8, PATCHON+9, PATCHON+10, PATCHON+11, PATCHON+12, INFUSING+8
, INFUSING+9, INFUSING+10, INFUSING+11, STOPPED+8, STOPPED+9, STOPPED+10, STOPPED+11
^TMP("PSB" GETADMIN+3!, GETADMIN+5*, GETADMIN+6, GETADMIN+7, GETADMIN+8*, GETADMIN+13*, GETADMIN+16, ADD+13, ADD+35*, ADD+37*
, ADD+39*, ADD+44*, ADD+45*, ADD+56*, ADD+59*, ADD+61*, ADD+69*, ADD+72*, ADD+73*, VNURSE+1
, VNURSE+4*, GETSI+12*, INITTAB+1!, INITTAB+2*, INITTAB+3*, LOOPBWD+11, LOOPBWD+12, LOOPFWD+11, LOOPFWD+12
^TMP("PSBAR" ADD+63, ADD+64, ADD+70!
^TMP("PSJ" INCLUDCO+3, INCLUDCO+4, INCLUDCO+6, INCLUDCO+7!*, INCLUDCO+9*, REMOVECO+3, REMOVECO+4, REMOVECO+6, REMOVECO+7!*, REMOVECO+9*
, MODELITE+3!, MODELITE+6, MODELITE+7, MODELITE+8, MODELITE+9, MODELITE+10, MODELITE+11, MODELITE+12, FINDORD+7!, FINDORD+9
, FINDORD+12, FINDORD+13
^TMP("PSJ1" GETFREQ+1!, GETFREQ+3, GETFREQ+4, GETFREQ+6!, GETADMIN+5, GETADMIN+6!, GETADMIN+7!, GETADMIN+15!, VNURSE+2!
^TMP("PSJBCMA5" GETSI+7!, GETSI+9, GETSI+10, GETSI+12, GETSI+13!
^TMP("PSJTMP" INCLUDCO+2!, INCLUDCO+6*, INCLUDCO+7, INCLUDCO+8!, REMOVECO+2!, REMOVECO+6*, REMOVECO+7, REMOVECO+8!

Label References

Name Line Occurrences
$$DAYS OKAY+19
ADD ODDSCH+1, ODDSCH+5
CHECK ADD+24, ADD+31
GETSI ADD+71
LOOPBWD FINDORD+22
LOOPFWD FINDORD+23
REMOVETM ADD+17

Naked Globals

Name Field # of Occurrence
^( LAST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %Y OKAY+35, OKAY+40
>> ADMTIM REMOVETM+22*, REMOVETM+23
BWDFWD FINDORD~, FINDORD+18, FINDORD+20, FINDORD+22, FINDORD+23, LOOPBWD+2, LOOPFWD+2
CLIN MODELITE+1~, MODELITE+8*, MODELITE+13, MODELITE+15
COCNT INCLUDCO+1~, INCLUDCO+2*, INCLUDCO+5*, INCLUDCO+6
DAYSBK PATCHON+6~, PATCHON+16*, PATCHON+18, INFUSING+6~, STOPPED+6~
DFN ADD+19, ADD+26, ADD+27, ADD+49, ADD+54, ADD+57, ADD+62, ADD+63, ADD+71, VNURSE+1
, VNURSE+3, OKAY+39, GETSI~, GETSI+7, GETSI+8, GETSI+9, GETSI+10, GETSI+12, GETSI+13, MODELITE+5
, FINDORD~, FINDORD+8, LOOPBWD+9, LOOPBWD+10, LOOPFWD+9, LOOPFWD+10, PATCHON~, PATCHON+8, PATCHON+9, PATCHON+10
, PATCHON+14, INFUSING~, INFUSING+8, INFUSING+9, INFUSING+10, INFUSING+13, STOPPED~, STOPPED+8, STOPPED+9, STOPPED+10
, STOPPED+13
DT MODELITE+14, MODELITE+16
ENDDT FINDORD+5~
>> FILE CHECK*, CHECK+1
FOUND FINDORD+6~, LOOPBWD+1*, LOOPBWD+2, LOOPBWD+11*, LOOPBWD+13*, LOOPBWD+14, LOOPFWD+1*, LOOPFWD+2, LOOPFWD+11*, LOOPFWD+13*
, LOOPFWD+14
GIVE FINDORD+6~, LOOPBWD+12*, LOOPBWD+13, LOOPFWD+12*, LOOPFWD+13
>> I CHECK+1*
IMCL PATCHON+6~, PATCHON+20*, INFUSING+6~, INFUSING+21*, STOPPED+6~, STOPPED+21*
IMCNT INCLUDCO+1~, INCLUDCO+2*, REMOVECO+1~, REMOVECO+2*, REMOVECO+5*, REMOVECO+6
MRR REMOVETM~, REMOVETM+6, REMOVETM+8
NODE1 FINDORD+5~, FINDORD+13*, FINDORD+14, FINDORD+15, FINDORD+16
ON PATCHON+6~, PATCHON+7*, PATCHON+8, PATCHON+19*, PATCHON+22, INFUSING+6~, INFUSING+7*, INFUSING+8, INFUSING+20*, INFUSING+23
, STOPPED+6~, STOPPED+7*, STOPPED+8, STOPPED+20*, STOPPED+23
ORD GETSI~, GETSI+7, GETSI+8, GETSI+9, GETSI+10, GETSI+12, GETSI+13
ORDCNT MODELITE+1~, MODELITE+2*, MODELITE+14*, MODELITE+16*, MODELITE+17
ORDNO MODELITE+1~, MODELITE+9*, MODELITE+14, MODELITE+16, PATCHON+6~, PATCHON+12*, PATCHON+14, INFUSING+6~, INFUSING+11*, INFUSING+13
, STOPPED+6~, STOPPED+11*, STOPPED+13
ORDR PATCHON~, INFUSING~, STOPPED~
ORDR( PATCHON+20*, INFUSING+21*, STOPPED+21*
ORDR("C" PATCHON+7*, INFUSING+7*, STOPPED+7*
ORDR("I" PATCHON+7*, INFUSING+7*, STOPPED+7*
PDT FINDORD+6~, FINDORD+24, LOOPBWD+2*, LOOPBWD+3, LOOPBWD+5, LOOPBWD+6, LOOPBWD+8, LOOPBWD+9, LOOPBWD+10, LOOPBWD+14*
, LOOPFWD+2*, LOOPFWD+3, LOOPFWD+5, LOOPFWD+6, LOOPFWD+8, LOOPFWD+9, LOOPFWD+10, LOOPFWD+14*
PSB ADD+11~, ADD+13*, ADD+35*, ADD+37*, ADD+39*, ADD+44*, ADD+45*, ADD+56*, ADD+59*, ADD+61*
, ADD+69*, ADD+72*, ADD+73, DAYS~, DAYS+3, DAYS+5*, DAYS+6, GETSI+11*, GETSI+12
>> PSBADA ADD+45, ADD+59
>> PSBADA( ADD+45, ADD+59
>> PSBADBR OKAY+25*, OKAY+28, OKAY+31
PSBADD ADD~
>> PSBADDS ODDSCH+1, ODDSCH+5
PSBADMIN GETADMIN+2~, GETADMIN+5*, GETADMIN+8*, GETADMIN+12*, GETADMIN+13, GETADMIN+14*, OKAY~, OKAY+25, OKAY+26, OKAY+35
PSBADTMX GETADMIN+9*, GETADMIN+13, GETADMIN+14*, GETADMIN+15!
>> PSBCC LAST+1*, LAST+3*, LAST+4
>> PSBCDT ODDSCH+2*, ODDSCH+3*, ODDSCH+4, ODDSCH+5, GETADMIN+9*, GETADMIN+10*, GETADMIN+11, GETADMIN+12
>> PSBCHDT ADD+40*
>> PSBCKOR ADD+54*
PSBCLIEN INFUSING+6~, INFUSING+18, INFUSING+19, STOPPED+6~, STOPPED+18, STOPPED+19
>> PSBCLINORD FINDORD+4*
>> PSBCLORD PATCHON+20, INFUSING+21, STOPPED+21
>> PSBCOMP ADD+43
>> PSBDATA2 LAST+2*, LAST+4
PSBDAYS OKAY+12~, OKAY+19*, OKAY+21, OKAY+27
PSBDD ADD~
>> PSBDDA ADD+39
>> PSBDDA( ADD+39
>> PSBDDS ODDSCH+1, ODDSCH+5, CHECK+1*
PSBDFN GETFREQ~, GETFREQ+2, GETADMIN~, GETADMIN+4
>> PSBDOA REMOVETM+23, REMOVETM+24
>> PSBDOSEF ADD+23, ADD+30
PSBDOW OKAY+12~, OKAY+40*, OKAY+41
PSBDRUG OKAY~, OKAY+39
PSBDT ADD~, ADD+12*, ADD+14, ADD+19, ADD+23, ADD+30, FINDORD~, FINDORD+8, LOOPBWD+2, LOOPFWD+2
>> PSBENR OKAY+26*, OKAY+29
PSBEVDT GETADMIN~, GETADMIN+8, GETADMIN+11, GETADMIN+12
>> PSBFLAG ADD+24, ADD+31, LAST+2, LAST+4*
>> PSBFOR ADD+41
PSBFREQ ODDSCH+2, GETFREQ+3*, GETFREQ+5*, GETFREQ+7, GETADMIN~, GETADMIN+5*, GETADMIN+6, GETADMIN+7, GETADMIN+9, OKAY~
, OKAY+16, OKAY+29, DAYS+7
>> PSBIENS CHECK*, CHECK+1
PSBIMDT MODELITE+1~, MODELITE+4*, MODELITE+5
PSBIMNOW MODELITE+1~, MODELITE+4*, MODELITE+5
PSBLCK ADD+21!*, ADD+22, ADD+28!*, ADD+29
PSBLP VNURSE+1*, VNURSE+4, VNURSE+5!
>> PSBMHND OKAY+38
>> PSBMRRFL ADD+17
>> PSBNODE ADD+49*, ADD+51, ADD+52, CHECK*, CHECK+1
>> PSBNTDT ADD+34
PSBOKAY OKAY+12~, OKAY+15*, OKAY+21*, OKAY+24*, OKAY+27, OKAY+28*, OKAY+31*, OKAY+32, OKAY+35, OKAY+36*
, OKAY+41*, OKAY+42*, OKAY+43
>> PSBONVDL( ADD+36*
>> PSBONX ADD+19, ADD+26, ADD+27, ADD+41, ADD+46, ADD+53, ADD+55*, ADD+62, ADD+71
PSBORDER OKAY~, OKAY+39
PSBORDN GETFREQ~, GETFREQ+2, GETADMIN~, GETADMIN+4
>> PSBOSP ODDSCH+5, PATCHON+14, PATCHON+15, INFUSING+13, INFUSING+14, STOPPED+13, STOPPED+14, REMOVETM+24
>> PSBOST ODDSCH+1, ODDSCH+2
PSBOSTS ADD+41, OKAY~, OKAY+13*, OKAY+37
>> PSBOTXT ODDSCH+1, ODDSCH+5
>> PSBPORA( ADD+46, ADD+54
>> PSBPORA("" ADD+57
>> PSBQR ADD+12*, ADD+23*, ADD+30*, ADD+32
>> PSBQRR ADD+23, ADD+30
>> PSBQUIT ODDSCH+2*, ODDSCH+4*, GETADMIN+9*, GETADMIN+11*
>> PSBRDTE OKAY+24*, OKAY+29*, OKAY+30*, OKAY+31
PSBREC ODDSCH+1, ODDSCH+5, ADD~, ADD+14*, ADD+19, ADD+20*, ADD+22*, ADD+25, ADD+27*, ADD+29*
, ADD+34*, ADD+35, ADD+36, LAST+4*, REMOVETM+6*, REMOVETM+10, REMOVETM+22, REMOVETM+25*
PSBSCH OKAY~, OKAY+19, OKAY+39, OKAY+41
>> PSBSCHBR GETFREQ+4*, GETFREQ+5
>> PSBSCHT ADD+17, OKAY+18, REMOVETM+9
PSBSI ADD~, ADD+37
>> PSBSIOPI ADD+71, FINDORD+4*
PSBSOL ADD~
>> PSBSOLA ADD+44, ADD+61
>> PSBSOLA( ADD+44, ADD+61*
>> PSBSOLS ODDSCH+1, ODDSCH+5
>> PSBSONX ADD+53*, ADD+54, ADD+55
PSBSTRT GETADMIN~, GETADMIN+8, GETADMIN+9, OKAY~, OKAY+24, OKAY+28
>> PSBSTUS ADD+22*, ADD+23, ADD+24, ADD+29*, ADD+30, ADD+31
PSBTAB ADD~, ADD+13, ADD+35, ADD+37, ADD+39, ADD+41, ADD+44, ADD+45, ADD+56, ADD+59
, ADD+61, ADD+69, ADD+71, ADD+72, ADD+73, VNURSE~, VNURSE+1, VNURSE+4, VNURSE+5!, INITTAB+1
, INITTAB+2, INITTAB+3, FINDORD~, LOOPBWD+9, LOOPBWD+10, LOOPBWD+11, LOOPBWD+12, LOOPFWD+9, LOOPFWD+10, LOOPFWD+11
, LOOPFWD+12
PSBTABX ODDSCH~, ODDSCH+1, ODDSCH+5
>> PSBTRDT ADD+34
>> PSBTRFL ADD+34
>> PSBUID ADD+46*, ADD+47, ADD+48, ADD+49, ADD+50, ADD+51, ADD+52, ADD+54, ADD+56, ADD+63*
, ADD+64
>> PSBUIDA( ADD+50*, ADD+51*, ADD+52*, ADD+54, ADD+56
>> PSBUIDS ADD+64*, ADD+65, ADD+66, ADD+67, ADD+68, ADD+69
>> PSBVNI VNURSE+4
>> PSBVNX VNURSE+4
PSBWADM FINDORD+6~, LOOPBWD+7*, LOOPBWD+8*, LOOPFWD+7*, LOOPFWD+8*
PSBWBEG ODDSCH+1, ODDSCH+5, FINDORD+6~, LOOPBWD+5*, LOOPFWD+5*
PSBWEND ODDSCH+1, ODDSCH+4, FINDORD+6~, LOOPBWD+6*, LOOPFWD+6*
>> PSBX ADD+42
QQ GETSI+6~, GETSI+10*, GETSI+12, INCLUDCO+1~, INCLUDCO+3*, INCLUDCO+4, INCLUDCO+6, REMOVECO+1~, REMOVECO+3*, REMOVECO+4
, REMOVECO+6, MODELITE+7*, MODELITE+8, MODELITE+9, MODELITE+10, MODELITE+11, MODELITE+12, FINDORD+3~, FINDORD+5~, FINDORD+12*
, FINDORD+13, LOOPBWD+2*, LOOPFWD+2*, PATCHON+9*, PATCHON+10, INFUSING+9*, INFUSING+10, STOPPED+9*, STOPPED+10
QUIT FINDORD+5~, LOOPBWD+1*, LOOPBWD+2, LOOPBWD+3*, LOOPFWD+1*, LOOPFWD+2, LOOPFWD+3*
REC FINDORD+5~, LOOPBWD+1*, LOOPFWD+1*
RMDT REMOVETM+5~
RMTIM REMOVETM+5~, REMOVETM+23*, REMOVETM+24*, REMOVETM+25
>> RR PATCHON+10*, PATCHON+11, PATCHON+12, INFUSING+10*, INFUSING+11, STOPPED+10*, STOPPED+11
SDT FINDORD+5~
SPDT FINDORD+3~, FINDORD+5~
SPDT( FINDORD+16*
SPDT(999999999 FINDORD+19
STARTDT FINDORD+3~, FINDORD+5~, FINDORD+17*, FINDORD+18, LOOPBWD+2, LOOPBWD+3
STAT MODELITE+1~, MODELITE+12*, MODELITE+14, MODELITE+16
STDT FINDORD+3~, FINDORD+5~
STDT( FINDORD+15*
STDT(0 FINDORD+17
STOP MODELITE+1~, MODELITE+11*, MODELITE+14, MODELITE+16
STOPDT FINDORD+3~, FINDORD+5~, FINDORD+19*, FINDORD+20, LOOPFWD+2, LOOPFWD+3, PATCHON+6~, PATCHON+15*, PATCHON+18, INFUSING+6~
, INFUSING+14*, INFUSING+18, INFUSING+19, STOPPED+6~, STOPPED+14*, STOPPED+18, STOPPED+19
STPDT FINDORD+3~, FINDORD+16*
STRDT FINDORD+5~, FINDORD+15*
STRT MODELITE+1~, MODELITE+10*, MODELITE+14, MODELITE+16
STYP REMOVETM~, REMOVETM+24
TAB GETSI~, GETSI+12
U GETFREQ+3, GETADMIN+5, ADD+14, ADD+19, ADD+20, ADD+22, ADD+23, ADD+25, ADD+27, ADD+29
, ADD+30, ADD+34, ADD+36, ADD+46, ADD+50, ADD+51, ADD+52, ADD+61, ADD+65, ADD+66
, ADD+67, ADD+68, ADD+69, CHECK+1, VNURSE+1, VNURSE+3, VNURSE+4, OKAY+40, LAST+4, INCLUDCO+4
, REMOVECO+4, MODELITE+8, MODELITE+9, MODELITE+10, MODELITE+11, MODELITE+12, MODELITE+14, MODELITE+16, FINDORD+14, FINDORD+15
, FINDORD+16, LOOPBWD+12, LOOPFWD+12, PATCHON+11, REMOVETM+6, REMOVETM+10, REMOVETM+22, REMOVETM+25
>> X ADD+19*, ADD+20, ADD+21, ADD+22, ADD+23, ADD+26*, ADD+27, ADD+39*, ADD+44*, ADD+45*
, ADD+46*, ADD+49, ADD+51*, ADD+52*, ADD+59*, ADD+61*, CHECK, CHECK+1, VNURSE+1*, VNURSE+3
, OKAY+35*, DAYS+7*, LAST+2, PATCHON+18, INFUSING+18, INFUSING+19, STOPPED+18, STOPPED+19
>> Y ADD+27*, ADD+28, ADD+29, ADD+30
>> ZZ LAST+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All