Routine: PSBODL1

Package	Total	Call Graph
Barcode Medication Administration	5	VAL^PSBMLVAL PT^PSBOHDR $$GETADMIN^PSBVDLU1 (CLEAN,PSJ1)^PSBVT $$PSBDCHK1^PSBVT1
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBODL

Entry Points

Name	Comments	DBIA/ICR reference
HDR()	; Page Header
EN	;
WRAP(X,Y,Z)	; Quick text wrap
FTR()	; [Extrinsic] Page footer
BLANKS()	; [Extrinsic] Print blanks at end of printout for changes
WRAPPUP	;Do wrapping per PSBODL (Due List Report)

External References

Name	Field # of Occurrence
VAL^PSBMLVAL	EN+33
PT^PSBOHDR	HDR+2
$$GETADMIN^PSBVDLU1	EN+25
CLEAN^PSBVT	EN+3
PSJ1^PSBVT	EN+4
$$PSBDCHK1^PSBVT1	EN+9
$$FMTE^XLFDT	EN+54, EN+55, WRAPPUP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?(IOM-36\2),"(Medications Continued on Next Page)",$$FTR(),$$HDR() Line Location: EN+43
Function Call: WRITE	Prompt: $$HDR() Line Location: EN+46
Function Call: WRITE	Prompt: $E(PSBLGDT,4,5),"/",$E(PSBLGDT,6,7),"/",$E(PSBLGDT,2,3) Line Location: EN+53
Function Call: WRITE	Prompt: "@",$E($P(PSBLGDT,".",2)_"0000",1,4) Line Location: EN+53
Function Call: WRITE	Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3)_" ("_$P(PSBADA(Y),U,4)_")") Line Location: EN+62
Function Call: WRITE	Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3)_" ("_$P(PSBSOLA(Y),U,4)_")") Line Location: EN+63
Function Call: WRITE	Prompt: !!,?10," NO SPECIFIED MEDICATIONS TO PRINT " Line Location: EN+70
Function Call: WRITE	Prompt: $$WRAP(14,34,PSBMED) Line Location: WRAPPUP+2
Function Call: WRITE	Prompt: $$WRAP(50,27,PSBADM),?78,$$WRAP(78,6,PSBMR) Line Location: WRAPPUP+4
Function Call: WRITE	Prompt: ?85 Line Location: WRAPPUP+5
Function Call: WRITE	Prompt: ?100,$P($TR($$FMTE^XLFDT(PSBOST,2),"@"," ")," "),?110,$P($TR($$FMTE^XLFDT(PSBOSP,2),"@"," ")," "),?120,$S(PSBVPHI]"":PSBVPHI,1:"***"),"/" Line Location: WRAPPUP+7
Function Call: WRITE	Prompt: $S(PSBVNI]"":PSBVNI,1:"***"),!,?100,"@"_$P(PSBOSTX," ",2),?110,"@"_$P(PSBOSPX," ",2) Line Location: WRAPPUP+8
Function Call: WRITE	Prompt: IOINHI Line Location: WRAPPUP+9
Function Call: WRITE	Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3)) Line Location: WRAPPUP+13
Function Call: WRITE	Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3)) Line Location: WRAPPUP+14
Function Call: WRITE	Prompt: IOINORM Line Location: WRAPPUP+15
Function Call: WRITE	Prompt: $$WRAP(14,34,"Spec Inst: "_X),!,$TR($J("",IOM)," ","-") Line Location: WRAPPUP+20
Function Call: WRITE	Prompt: Z Line Location: WRAP+4
Function Call: WRITE	Prompt: ! Line Location: FTR+5
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","=") Line Location: FTR+6
Function Call: WRITE	Prompt: !,PSBHDR("NAME"),?(IOM-11\2),PSBHDR("SSN"),?(IOM-$L(X)),X Line Location: FTR+8
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: !,?(IOM-28\2),"*** FUTURE ORDERS ***" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Self",?85,"Last",?100,"Start",?110,"Stop",?120,"Verifying" Line Location: HDR+7
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+8
Function Call: WRITE	Prompt: !,?100,"@Time",?110,"@Time" Line Location: HDR+9
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: BLANKS+2
Function Call: WRITE	Prompt: ?(IOM-42\2),"(Changes/Addendums to Orders on Next Page)" Line Location: BLANKS+3
Function Call: WRITE	Prompt: $$FTR(),$$HDR() Line Location: BLANKS+3
Function Call: WRITE	Prompt: ! Line Location: BLANKS+4
Function Call: WRITE	Prompt: ?(IOM-28\2),"Changes/Addendums to orders" Line Location: BLANKS+5
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: BLANKS+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	EN+39, EN+41, EN+42
^TMP("PSB"	EN+26!*, EN+28, EN+72!
^TMP("PSBO"	EN+2

Label References

Name	Line Occurrences
$$BLANKS	EN+71
$$FTR	EN+43, EN+71, BLANKS+3
$$HDR	EN+43, EN+46, BLANKS+3
$$WRAP	EN+49, EN+51, EN+52, EN+61, EN+62, EN+63, EN+66, EN+69, WRAPPUP+2, WRAPPUP+4 , WRAPPUP+12, WRAPPUP+13, WRAPPUP+14, WRAPPUP+17, WRAPPUP+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	EN+2, EN+4, EN+25, EN+33, EN+39, EN+41, HDR+2
>> I	EN+10*
>> IOINHI	EN+58, WRAPPUP+9
>> IOINORM	EN+64, WRAPPUP+15
IOM	EN+43, EN+69, WRAPPUP+20, FTR+6, FTR+8, HDR+5, HDR+10, BLANKS+3, BLANKS+5, BLANKS+7 , BLANKS+11
IOSL	EN+43, FTR+5, BLANKS+3, BLANKS+4
>> PSB	WRAP+5, WRAP+6, WRAP+7, WRAP+8
>> PSBADA	EN+62, WRAPPUP+13
>> PSBADA(	EN+62, WRAPPUP+13
>> PSBADM	EN+50, EN+51, EN+65, EN+66, WRAPPUP+3, WRAPPUP+4, WRAPPUP+16, WRAPPUP+17
>> PSBADMIN	EN+5, EN+27, EN+34, EN+35, EN+36, EN+65, WRAPPUP+16
>> PSBADST	EN+6, EN+11, EN+13, EN+15, EN+36
>> PSBAT	EN+31*, EN+32, EN+33
>> PSBCHEMT	EN+17, EN+22
>> PSBDDA	EN+59, WRAPPUP+10
>> PSBDDA(	EN+59, EN+60, EN+61, WRAPPUP+10, WRAPPUP+11, WRAPPUP+12
>> PSBDOSE	EN+50, WRAPPUP+3
>> PSBEVDT	EN+25
>> PSBFLAG	EN+6, EN+7, EN+17, EN+18, EN+19, EN+20, EN+32
>> PSBFOHDR	EN+1, EN+46, EN+71, HDR+1
>> PSBFREQ	EN+12*, EN+13, EN+14, EN+25, EN+34, EN+35
>> PSBHDR	HDR+2
>> PSBHDR("NAME"	FTR+8
>> PSBHDR("ROOM"	FTR+7
>> PSBHDR("SSN"	FTR+8
>> PSBHDR("WARD"	FTR+7
>> PSBIEN	EN+40, EN+41, EN+42
>> PSBISYR	EN+18, EN+19, EN+21
>> PSBIVT	EN+7, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+24
>> PSBLGDT	EN+38, EN+39, EN+41, EN+42, EN+53, WRAPPUP+5, WRAPPUP+6
>> PSBMED	WRAPPUP+2
>> PSBMR	EN+52, WRAPPUP+4
>> PSBNOW	EN+60, WRAPPUP+11
>> PSBODATE	EN+31
>> PSBODD	EN+8, EN+14, EN+15
>> PSBOIT	EN+39, EN+41
>> PSBOITX	EN+49
>> PSBONX	EN+7, EN+25, EN+33
>> PSBORD	EN+2*, EN+4
>> PSBOSP	EN+55, WRAPPUP+7
>> PSBOSPX	EN+57, WRAPPUP+8
>> PSBOST	EN+25, EN+54, WRAPPUP+7
>> PSBOSTOP	EN+32
>> PSBOSTRT	EN+32
>> PSBOSTX	EN+57, WRAPPUP+8
>> PSBOTXT	EN+67, WRAPPUP+18
>> PSBOTYP	EN+23
>> PSBRPT(	BLANKS+1
>> PSBSCH	EN+9, EN+10, EN+50, WRAPPUP+3
>> PSBSCHT	EN+5, EN+11, EN+36, EN+47
>> PSBSM	EN+44, EN+45, EN+47
>> PSBSMX	EN+44
>> PSBSOLA	EN+63, WRAPPUP+14
>> PSBSOLA(	EN+63, WRAPPUP+14
>> PSBTYPE	EN+2*, EN+33, EN+47
>> PSBVNI	EN+56, WRAPPUP+8
>> PSBVPHI	EN+56, WRAPPUP+7
>> PSBWFLAG	EN+47*, EN+70
>> PSBX	EN+6, EN+7, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23 , EN+24, EN+25, EN+26, EN+28*, EN+29, EN+30, EN+31, EN+34
>> PSBXX	EN+28*
>> PSBY	EN+29*, EN+30, EN+31, EN+34
>> PSBYES	EN+8, EN+9, EN+10*, EN+11, EN+13
>> PSBZ	EN+33
U	EN+42, EN+60, EN+61, EN+62, EN+63, WRAPPUP+11, WRAPPUP+12, WRAPPUP+13, WRAPPUP+14, BLANKS+1
X	EN+38, EN+39, EN+41, EN+42, EN+48, EN+67, EN+68, EN+69, WRAPPUP+18, WRAPPUP+19* , WRAPPUP+20, WRAP~, WRAP+2, WRAP+3, FTR+7, FTR+8, BLANKS+6
Y	EN+48, EN+59, EN+60, EN+61, EN+62, EN+63, WRAPPUP+10, WRAPPUP+11, WRAPPUP+12, WRAPPUP+13 , WRAPPUP+14*, WRAP~, WRAP+4, WRAP+5, WRAP+6
Z	WRAP~, WRAP+1, WRAP+4, WRAP+5, WRAP+7, WRAP+8

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBODL1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: