Routine: PSBODL

Package	Total	Call Graph
Barcode Medication Administration	8	ERROR^PSBMLU VAL^PSBMLVAL ($$FTR,EN,WRAPPUP)^PSBODL1 PT^PSBOHDR ($$GETADMIN,$$OKAY)^PSBVDLU1 $$IVPTAB^PSBVDLU3 (CLEAN,PSJ1)^PSBVT $$PSBDCHK1^PSBVT1
Kernel	2	ENDR^%ZISS $$FMADD^XLFDT
VA Fileman	2	NOW^%DTC D^DIQ
Inpatient Medications	1	EN^PSJBCMA
Toolkit	1	$$GET^XPAR

Name	Comments	DBIA/ICR reference
PRINT(DFN)	;^TMP($J.
HDR()	;
EN	; Prt DL
BLANKS()	;

Name	Field # of Occurrence
NOW^%DTC	PRINT+43
ENDR^%ZISS	EN+2
D^DIQ	EN+10, PRINT+12
ERROR^PSBMLU	PRINT+51, PRINT+62, PRINT+64, PRINT+66, PRINT+70
VAL^PSBMLVAL	PRINT+115
$$FTR^PSBODL1	PRINT+9, PRINT+33, PRINT+124, PRINT+131, BLANKS+5
EN^PSBODL1	PRINT+133
WRAPPUP^PSBODL1	PRINT+129
PT^PSBOHDR	HDR+1
$$GETADMIN^PSBVDLU1	PRINT+108
$$OKAY^PSBVDLU1	PRINT+71, PRINT+72
$$IVPTAB^PSBVDLU3	PRINT+63, PRINT+72
CLEAN^PSBVT	PRINT+41
PSJ1^PSBVT	PRINT+42
$$PSBDCHK1^PSBVT1	PRINT+48
EN^PSJBCMA	PRINT+8
$$FMADD^XLFDT	PRINT+10, PRINT+85
$$GET^XPAR	PRINT+85, PRINT+86

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10," NO DATA FOR ENTIRE NURSE/WARD LOCATION ",! Line Location: EN+17
Function Call: WRITE	Prompt: $$HDR() Line Location: PRINT+4
Function Call: WRITE	Prompt: !!?10," NO SPECIFIED MEDICATIONS TO PRINT ",!,$$BLANKS(),$$FTR^PSBODL1() Line Location: PRINT+9
Function Call: WRITE	Prompt: !!?10," NO SPECIFIED MEDICATIONS TO PRINT ",!,$$BLANKS(),$$FTR^PSBODL1() Line Location: PRINT+33
Function Call: WRITE	Prompt: !?(IOM-36\2),"(Medications Continued on Next Page)",$$FTR^PSBODL1(),$$HDR() Line Location: PRINT+124
Function Call: WRITE	Prompt: !!,?10," NO SPECIFIED MEDICATIONS TO PRINT " Line Location: PRINT+130
Function Call: WRITE	Prompt: !,"Self",?85,"Last",?100,"Start",?110,"Stop",?120,"Verifying" Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Med",?6,"Sched",?14,"Medication",?50,"Dose",?78,"Route",?85,"Given",?100,"Date",?110,"Date",?120,"Rph/Rn" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?100,"@Time",?110,"@Time" Line Location: HDR+4
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: BLANKS+2
Function Call: WRITE	Prompt: ! Line Location: BLANKS+6
Function Call: WRITE	Prompt: ?(IOM-28\2),"Changes/Addendums to orders" Line Location: BLANKS+7
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: BLANKS+18

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	PRINT+75, PRINT+76, PRINT+77, PRINT+88, PRINT+89, PRINT+90, PRINT+92, PRINT+94, PRINT+95
^TMP("PSB"	EN+20!, PRINT+7!, PRINT+32, PRINT+33, PRINT+34, PRINT+96!, PRINT+109, PRINT+111
^TMP("PSBO"	EN+3, EN+20!, PRINT+85, PRINT+116, PRINT+117, PRINT+132, PRINT+133
^TMP("PSJ"	EN+20!, PRINT+7!, PRINT+9, PRINT+15, PRINT+16, PRINT+18, PRINT+30, PRINT+31

Name	Line Occurrences
$$BLANKS	PRINT+9, PRINT+33, PRINT+131
$$HDR	PRINT+4, PRINT+124, BLANKS+5
PRINT	EN+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT+43, PRINT+82
DFN	EN+1~, EN+7*, EN+19, PRINT~, PRINT+8, PRINT+42, PRINT+51, PRINT+62, PRINT+64, PRINT+66 , PRINT+70, PRINT+75, PRINT+76, PRINT+85, PRINT+88, PRINT+89, PRINT+92, PRINT+94, PRINT+108, PRINT+115 , PRINT+116, PRINT+117, PRINT+132, PRINT+133, HDR+1
>> I	PRINT+49*
IOINHI	EN+1~
IOINORM	EN+1~
IOM	PRINT+124, HDR+5, BLANKS+4, BLANKS+7, BLANKS+9, BLANKS+18
IOSL	PRINT+124, BLANKS+3, BLANKS+6
PSB	PRINT+2~
PSBADM	PRINT+3~
PSBADMIN	PRINT+3~, PRINT+96, PRINT+97, PRINT+121, PRINT+122, PRINT+123, PRINT+124
>> PSBADST	PRINT+50, PRINT+64, PRINT+66, PRINT+67, PRINT+68, PRINT+69, PRINT+98
PSBAT	PRINT+2~, PRINT+113*, PRINT+114, PRINT+115, PRINT+116, PRINT+117, PRINT+119, PRINT+120, PRINT+122
>> PSBCHEMT	PRINT+56, PRINT+57, PRINT+63, PRINT+72, PRINT+100, PRINT+105
>> PSBCNT	PRINT+116
>> PSBDAYB	PRINT+47, PRINT+48, PRINT+64
PSBEVDT	EN+1~, EN+10*, PRINT+10
>> PSBEVDT2	EN+11*, PRINT+10
PSBFLAG	EN+1~, PRINT+98, PRINT+100, PRINT+101, PRINT+102, PRINT+103*, PRINT+114
>> PSBFREQ	PRINT+58, PRINT+59, PRINT+60, PRINT+61, PRINT+62, PRINT+64, PRINT+65, PRINT+71, PRINT+72, PRINT+108 , PRINT+123
PSBFUTRO	PRINT+36!
PSBGBL	EN+1~, EN+4, EN+6, EN+7, EN+16, PRINT+1~, PRINT+34, PRINT+35, PRINT+37, PRINT+38 , PRINT+39, PRINT+40
PSBGIVEN	EN+1~
>> PSBGVN	PRINT+73, PRINT+74, PRINT+77, PRINT+86, PRINT+87, PRINT+90
PSBHDR	EN+1~, EN+8!, HDR+1
PSBHDR(	EN+17, EN+18
PSBHDR(1	EN+9, EN+10, EN+11*
PSBHDR(2	EN+12, EN+13
PSBHDR(3	EN+14, EN+15
>> PSBI1	PRINT+10, PRINT+11
PSBIEN	EN+1~, PRINT+93, PRINT+94, PRINT+95
PSBINDX	PRINT+1~, PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+30, PRINT+31
>> PSBISYR	PRINT+55, PRINT+56, PRINT+63, PRINT+72, PRINT+101, PRINT+102, PRINT+104
>> PSBIVPSH	PRINT+63, PRINT+72
>> PSBIVT	PRINT+54, PRINT+55, PRINT+56, PRINT+57, PRINT+63, PRINT+72, PRINT+100, PRINT+101, PRINT+102, PRINT+103 , PRINT+104, PRINT+105, PRINT+107
PSBLGDT	EN+1~, PRINT+91, PRINT+92, PRINT+94, PRINT+95
PSBMED	PRINT+2~, PRINT+30, PRINT+32, PRINT+39
>> PSBNOW	PRINT+43*, PRINT+46, PRINT+85
PSBNUM	PRINT+2~
>> PSBODATE	PRINT+10*, PRINT+12, PRINT+71, PRINT+72, PRINT+108, PRINT+113
>> PSBODD	PRINT+47, PRINT+65, PRINT+66
>> PSBOIT	PRINT+75, PRINT+76, PRINT+88, PRINT+89, PRINT+92, PRINT+94
>> PSBOITX	PRINT+51, PRINT+62, PRINT+64, PRINT+66, PRINT+70, PRINT+71, PRINT+72
>> PSBON	PRINT+115
>> PSBONX	PRINT+51, PRINT+62, PRINT+64, PRINT+66, PRINT+70, PRINT+71, PRINT+72, PRINT+77, PRINT+90, PRINT+108
PSBORD	PRINT+2~, PRINT+31, PRINT+32, PRINT+36!, PRINT+40, PRINT+42, PRINT+85, PRINT+116, PRINT+117, PRINT+132* , PRINT+133
>> PSBOSP	PRINT+44, PRINT+45, PRINT+46, PRINT+80, PRINT+81, PRINT+120
>> PSBOST	PRINT+71, PRINT+72, PRINT+80, PRINT+82, PRINT+85, PRINT+108, PRINT+117, PRINT+119, PRINT+122
PSBOSTOP	PRINT+1~, PRINT+6*, PRINT+114, PRINT+117
PSBOSTRT	PRINT+1~, PRINT+5*, PRINT+8, PRINT+44, PRINT+45, PRINT+81, PRINT+114, PRINT+117
>> PSBOTYP	PRINT+63, PRINT+71, PRINT+72, PRINT+106, PRINT+115
>> PSBRMN	PRINT+78, PRINT+83, PRINT+84
>> PSBRPT(	EN+5*, EN+10, EN+11, EN+13, EN+15, PRINT+5, PRINT+6, PRINT+20, PRINT+21, PRINT+24 , PRINT+25, PRINT+26, PRINT+27, PRINT+133, BLANKS+1
>> PSBSCBR	PRINT+47, PRINT+49, PRINT+64
PSBSCH	PRINT+1~, PRINT+48, PRINT+49, PRINT+51, PRINT+62, PRINT+64, PRINT+66, PRINT+70, PRINT+71, PRINT+72
PSBSCHT	PRINT+1~, PRINT+28, PRINT+29, PRINT+32, PRINT+38*, PRINT+45, PRINT+50, PRINT+52, PRINT+53, PRINT+60 , PRINT+61, PRINT+64, PRINT+71, PRINT+72, PRINT+73, PRINT+79, PRINT+86, PRINT+97, PRINT+127
PSBSM	PRINT+2~, PRINT+125, PRINT+126, PRINT+127
>> PSBSMX	PRINT+125
PSBSTAT	PRINT+3~, PRINT+18*, PRINT+19, PRINT+23
PSBSTOP	PRINT+2~
PSBSTRT	PRINT+2~
PSBTYPE	PRINT+1~, PRINT+16, PRINT+17, PRINT+20, PRINT+21, PRINT+22, PRINT+32, PRINT+37*, PRINT+85, PRINT+116 , PRINT+117, PRINT+127
>> PSBVALB	PRINT+63*, PRINT+64
PSBWFLAG	PRINT+3~, PRINT+34, PRINT+127, PRINT+130
PSBX	PRINT+2~, PRINT+98, PRINT+99, PRINT+100, PRINT+101, PRINT+102, PRINT+103, PRINT+104, PRINT+105, PRINT+106 , PRINT+107, PRINT+108, PRINT+109, PRINT+110, PRINT+111*, PRINT+112, PRINT+113, PRINT+121, PRINT+122
>> PSBXX	PRINT+111*
PSBY	PRINT+2~, PRINT+68, PRINT+69, PRINT+112, PRINT+113, PRINT+121, PRINT+122
>> PSBYES	PRINT+47, PRINT+48, PRINT+49, PRINT+50, PRINT+52, PRINT+53, PRINT+54, PRINT+55, PRINT+56, PRINT+57* , PRINT+62
PSBZ	PRINT+2~, PRINT+115
PSBZ(0	PRINT+116, PRINT+118
U	EN+5, EN+10, EN+11, EN+13, EN+15, PRINT+5, PRINT+6, PRINT+16, PRINT+19, PRINT+20 , PRINT+21, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+30, PRINT+31, PRINT+77, PRINT+90 , PRINT+95, PRINT+133, BLANKS+1
>> X	EN+2, EN+17, EN+18, PRINT+74, PRINT+75, PRINT+76, PRINT+77, PRINT+87, PRINT+88, PRINT+89 , PRINT+90, PRINT+91, PRINT+92, PRINT+94, PRINT+95, PRINT+128, BLANKS+8
>> Y	EN+10, EN+11, EN+13, EN+15, PRINT+12, PRINT+13, PRINT+23, PRINT+24, PRINT+25, PRINT+26 , PRINT+27, PRINT+28, PRINT+74, PRINT+76, PRINT+77, PRINT+87, PRINT+89, PRINT+90, PRINT+128*
>> Z	EN+10*, EN+11

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBODL

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: