Routine: PSBVDLU1

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

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

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

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!

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

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*

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBVDLU1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 20

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: