Routine: PSBODL

Package	Total	Call Graph
Barcode Medication Administration	10	ERROR^PSBMLU VAL^PSBMLVAL FILTERCO^PSBO GETREMOV^PSBO1 ($$FTR,CHKREM,EN,WRAPPUP)^PSBODL1 ($$EMPTYHDR,$$SRCHLIST,PT)^PSBOHDR ($$GETADMIN,$$OKAY,INCLUDCO,REMOVECO)^PSBVDLU1 $$IVPTAB^PSBVDLU3 (CLEAN,PSJ1)^PSBVT $$PSBDCHK1^PSBVT1
Inpatient Medications	2	EN^PSJBCMA GETSIOPI^PSJBCMA5
Kernel	2	ENDR^%ZISS $$FMADD^XLFDT
VA FileMan	2	NOW^%DTC D^DIQ
Toolkit	1	$$GET^XPAR

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

Name	Field # of Occurrence
NOW^%DTC	PRINT+54
ENDR^%ZISS	EN+2
D^DIQ	EN+13, PRINT+17
ERROR^PSBMLU	PRINT+62, PRINT+73, PRINT+75, PRINT+77, PRINT+81
VAL^PSBMLVAL	PRINT+128
FILTERCO^PSBO	PRINT+11
GETREMOV^PSBO1	PRINT+8
$$FTR^PSBODL1	PRINT+14, PRINT+40, PRINT+139, PRINT+149, PRINT+152, BLANKS+5
CHKREM^PSBODL1	PRINT+147
EN^PSBODL1	PRINT+151
WRAPPUP^PSBODL1	PRINT+145
$$EMPTYHDR^PSBOHDR	EN+25
$$SRCHLIST^PSBOHDR	EN+7
PT^PSBOHDR	HDR+1
$$GETADMIN^PSBVDLU1	PRINT+121
$$OKAY^PSBVDLU1	PRINT+82, PRINT+83
INCLUDCO^PSBVDLU1	PRINT+12
REMOVECO^PSBVDLU1	PRINT+13
$$IVPTAB^PSBVDLU3	PRINT+74, PRINT+83
CLEAN^PSBVT	PRINT+48
PSJ1^PSBVT	PRINT+49
$$PSBDCHK1^PSBVT1	PRINT+59
EN^PSJBCMA	PRINT+9
GETSIOPI^PSJBCMA5	PRINT+52
$$FMADD^XLFDT	PRINT+15, PRINT+98, PRINT+131
$$GET^XPAR	PRINT+98, PRINT+99, PRINT+131

Interaction Calls

Name	Line Occurrences
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+14
Function Call: WRITE	Prompt: !!?10," NO SPECIFIED MEDICATIONS TO PRINT ",!,$$BLANKS(),$$FTR^PSBODL1() Line Location: PRINT+40
Function Call: WRITE	Prompt: !?(IOM-36\2),"(Medications Continued on Next Page)",$$FTR^PSBODL1(),$$HDR() Line Location: PRINT+139
Function Call: WRITE	Prompt: !!,?10," NO SPECIFIED MEDICATIONS TO PRINT " Line Location: PRINT+148
Function Call: WRITE	Prompt: !!,?10," NO SPECIFIED MEDICATIONS TO PRINT ",$$BLANKS(),$$FTR^PSBODL1() Line Location: PRINT+152
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: ?100,"Start",?110,"Stop" Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Self",?85,"Last",?100,"Date",?110,"Date",?120,"Verifying" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Med",?6,"Sched",?14,"Medication",?50,"Dose",?78,"Route",?85,"Given",?100,"@Time",?110,"@Time",?120,"Rph/Rn" Line Location: HDR+6
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HDR+7
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+19

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	PRINT+86, PRINT+87, PRINT+88, PRINT+101, PRINT+102, PRINT+103, PRINT+105, PRINT+107, PRINT+108
^TMP("PSB"	EN+30!, PRINT+7!, PRINT+38, PRINT+39, PRINT+40, PRINT+41, PRINT+96, PRINT+109!, PRINT+122*, PRINT+124
^TMP("PSBO"	EN+3, EN+30!, PRINT+97, PRINT+98, PRINT+129, PRINT+132*, PRINT+150, PRINT+151
^TMP("PSJ"	EN+30!, PRINT+7!, PRINT+14, PRINT+20, PRINT+21, PRINT+22, PRINT+24, PRINT+36, PRINT+37
^TMP("PSJBCMA5"	PRINT+51!, PRINT+154!

Name	Line Occurrences
$$BLANKS	PRINT+14, PRINT+40, PRINT+149, PRINT+152
$$HDR	PRINT+4, PRINT+139, BLANKS+5
PRINT	EN+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBODL

Information

Source Information

Call Graph

Call Graph Total: 17

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: