Routine: PSBOWA

Package	Total	Call Graph
Barcode Medication Administration	8	ERROR^PSBMLU FILTERCO^PSBO GETREMOV^PSBO1 ($$PTFTR,$$SRCHLIST,CLINIC,PT,WARD)^PSBOHDR $$TIMEOUT^PSBUTL ($$GETADMIN,$$GETFREQ,$$OKAY,INCLUDCO,REMOVECO)^PSBVDLU1 (CLEAN,PSJ)^PSBVT $$PSBDCHK1^PSBVT1
Inpatient Medications	1	EN^PSJBCMA
Kernel	1	$$FMADD^XLFDT
VA FileMan	1	D^DIQ

Name	Comments	DBIA/ICR reference
EN	;
PATIENT	;* * * Print By Patient * * *
WARD	;* * * * Print By Ward * * *
CLINIC	;* * * Print By Clinic * * * ;*70-1480
QUIT
WRDHDR()	;
CLNHDR()	;
PTHDR()	;

Name	Field # of Occurrence
D^DIQ	EN+5, EN+14, PATIENT+79, PATIENT+80, WRDHDR+3, CLNHDR+4, PTHDR+6
ERROR^PSBMLU	PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+47, WARD+27, WARD+34, WARD+38, WARD+51, CLINIC+28, CLINIC+35 , CLINIC+39, CLINIC+52
FILTERCO^PSBO	PATIENT+8, CLINIC+10
GETREMOV^PSBO1	PATIENT+54
$$PTFTR^PSBOHDR	PATIENT+90, PATIENT+99
$$SRCHLIST^PSBOHDR	EN+8
CLINIC^PSBOHDR	CLNHDR+2
PT^PSBOHDR	PTHDR+2
WARD^PSBOHDR	WRDHDR+2
$$TIMEOUT^PSBUTL	PATIENT+93
$$GETADMIN^PSBVDLU1	PATIENT+36, WARD+40, CLINIC+41
$$GETFREQ^PSBVDLU1	PATIENT+18, WARD+23, CLINIC+24
$$OKAY^PSBVDLU1	PATIENT+39, PATIENT+40, WARD+43, WARD+44, CLINIC+44, CLINIC+45
INCLUDCO^PSBVDLU1	PATIENT+9, CLINIC+11
REMOVECO^PSBVDLU1	PATIENT+10, WARD+14
CLEAN^PSBVT	PATIENT+13, WARD+17, CLINIC+18, QUIT
PSJ^PSBVT	PATIENT+14, WARD+18, CLINIC+19
$$PSBDCHK1^PSBVT1	PATIENT+19, WARD+24, CLINIC+25
EN^PSJBCMA	PATIENT+6, WARD+13, CLINIC+7
$$FMADD^XLFDT	PATIENT+1, WARD+1, CLINIC+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$PTHDR() Line Location: PATIENT+86
Function Call: WRITE	Prompt: !,$P(PSBTOT(PSBX,PSBY,PSBZ),U,1),?20,PSBY Line Location: PATIENT+91
Function Call: WRITE	Prompt: ! Line Location: PATIENT+96
Function Call: WRITE	Prompt: $$PTFTR^PSBOHDR() Line Location: PATIENT+99
Function Call: WRITE	Prompt: $J(PSBTOT(PSBX),4) Line Location: WARD+58
Function Call: WRITE	Prompt: $J($E(X_"00",2,3),4) Line Location: WARD+61
Function Call: WRITE	Prompt: $J($E(X_"00",2,3),4) Line Location: CLINIC+73
Function Call: WRITE	Prompt: !,"Patient Name",?64,Y_" Administration Times" Line Location: WRDHDR+4
Function Call: WRITE	Prompt: !,"Room-Bed",?32 Line Location: WRDHDR+5
Function Call: WRITE	Prompt: $J($E(X_"00",2,3),4) Line Location: WRDHDR+6
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: WRDHDR+7
Function Call: WRITE	Prompt: !,"Patient Name",?64,Y_" Administration Times" Line Location: CLNHDR+5
Function Call: WRITE	Prompt: !,"SSN",!,"Location",?32 Line Location: CLNHDR+6
Function Call: WRITE	Prompt: $J($E(X_"00",2,3),4) Line Location: CLNHDR+7
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: CLNHDR+8
Function Call: WRITE	Prompt: !,"Date/Time",?10,"Self Med",?20,"Medication",?55,"Dose/Route" Line Location: PTHDR+4
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: PTHDR+5
Function Call: WRITE	Prompt: !!,Y,! Line Location: PTHDR+7

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WARD+8, WARD+9, CLINIC+64
^TMP("PSB"	PATIENT+34!, PATIENT+37, PATIENT+41, PATIENT+53!, PATIENT+56, PATIENT+57, PATIENT+58, PATIENT+60, PATIENT+63, PATIENT+64 , PATIENT+65, PATIENT+66, PATIENT+67, PATIENT+68, PATIENT+69, PATIENT+72, PATIENT+73, WARD+39!, WARD+41, WARD+45 , CLINIC+40!, CLINIC+42*, CLINIC+46, QUIT+1!
^TMP("PSBO"	WARD+5, WARD+6, CLINIC+4, CLINIC+5
^TMP("PSJ"	PATIENT+5!, PATIENT+11, PATIENT+12, WARD+12!, WARD+15, WARD+16, CLINIC+6!, CLINIC+12, CLINIC+13, CLINIC+15 , CLINIC+16, CLINIC+17, QUIT+1!

Name	Line Occurrences
$$CLNHDR	CLINIC+61, CLINIC+63, CLINIC+66, CLINIC+69
$$PTHDR	PATIENT+82, PATIENT+86, PATIENT+90
$$WRDHDR	WARD+3, WARD+7
CLINIC	EN+19
PATIENT	EN+17
QUIT	EN+20
WARD	EN+18

Name	Field # of Occurrence
^(	WARD+9
^(0	WARD+8, CLINIC+64

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN+1~, PATIENT+4, PATIENT+18, PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+36, PATIENT+47, PATIENT+54, WARD+6 , WARD+8, WARD+9, WARD+13, WARD+23, WARD+27, WARD+34, WARD+38, WARD+40, WARD+51, CLINIC+5* , CLINIC+7, CLINIC+14, CLINIC+24, CLINIC+28, CLINIC+35, CLINIC+39, CLINIC+41, CLINIC+52, CLINIC+53, CLINIC+56 , CLINIC+62*, CLINIC+64, CLINIC+65, CLINIC+68, CLINIC+70
I	PATIENT+20, WARD+25, CLINIC+26*, QUIT+1!
IOM	WARD+59, WARD+60, WARD+68, CLINIC+71, CLINIC+72, CLINIC+80, WRDHDR+7, CLNHDR+8, PTHDR+5
IOSL	PATIENT+90, WARD+7, CLINIC+63, CLINIC+66, CLINIC+69
PREVRPDT	PATIENT+77~, PATIENT+81, PATIENT+86
PSBADST	EN+1~, PATIENT+21, PATIENT+32, PATIENT+35, PATIENT+36, PATIENT+37, PATIENT+38, PATIENT+41, PATIENT+42, PATIENT+46 , WARD+26, WARD+37, WARD+40, WARD+41, WARD+42, WARD+45, WARD+46, WARD+50, CLINIC+27, CLINIC+38 , CLINIC+41, CLINIC+42, CLINIC+43, CLINIC+46*, CLINIC+47, CLINIC+51
>> PSBCADM	PATIENT+17, PATIENT+36, WARD+22, WARD+40, CLINIC+23, CLINIC+41
>> PSBCHEMT	PATIENT+25, PATIENT+26, WARD+30, WARD+31, CLINIC+31, CLINIC+32
PSBCL	EN+2~, CLINIC+13, CLINIC+14, CLINIC+16, CLINIC+53, CLINIC+56, CLINIC+65*, CLINIC+67, CLINIC+68, CLINIC+70
>> PSBCLINORD	PATIENT+7, PATIENT+10, PATIENT+61, PATIENT+62, PATIENT+92, CLINIC+9, PTHDR+3
>> PSBCLORD	PATIENT+50, PATIENT+60*, PATIENT+61, PATIENT+62, PATIENT+74
>> PSBDFN	PATIENT+4, PATIENT+6, PTHDR+2
>> PSBDOSE	PATIENT+50, PATIENT+67*, PATIENT+74
>> PSBEVDT	EN+5*, EN+14, PATIENT+1, PATIENT+59, WARD+1, CLINIC+1
>> PSBEVDT2	EN+14*, PATIENT+1, PATIENT+59, PATIENT+80, WARD+1, CLINIC+1
>> PSBFREQ	PATIENT+18, PATIENT+27, PATIENT+28, PATIENT+30, PATIENT+31, PATIENT+35, PATIENT+36, PATIENT+39, PATIENT+40, WARD+23* , WARD+32, WARD+33, WARD+35, WARD+36, WARD+40, WARD+43, WARD+44, CLINIC+24, CLINIC+33*, CLINIC+34 , CLINIC+36, CLINIC+37, CLINIC+41, CLINIC+44, CLINIC+45
PSBGTOT	EN+1~, WARD+63, WARD+66, WARD+67, CLINIC+75, CLINIC+78, CLINIC+79
PSBGTOT(	WARD+2, WARD+53, WARD+56, WARD+64, WARD+65, WARD+66, CLINIC+2, CLINIC+54, CLINIC+57, CLINIC+76 , CLINIC+77, CLINIC+78
>> PSBHAZDS	PATIENT+50, PATIENT+73*, PATIENT+74
>> PSBHAZHN	PATIENT+50, PATIENT+72*, PATIENT+74
PSBHDR	EN+1~, WRDHDR+2, CLNHDR+2, PTHDR+2
PSBHDR(1	PATIENT+78, WRDHDR+1, CLNHDR+1, PTHDR+1
PSBHDR(2	EN+6, EN+15, PATIENT+79, PATIENT+80
PSBHDR(3	EN+10*
PSBHDR(4	EN+11, EN+12
>> PSBHSM	PATIENT+48, PATIENT+70
PSBIEN	EN+3~, PATIENT+57*, PATIENT+58, PATIENT+60, PATIENT+63, PATIENT+64, PATIENT+65, PATIENT+66, PATIENT+67, PATIENT+68 , PATIENT+69, PATIENT+72, PATIENT+73
>> PSBIFR	PATIENT+50, PATIENT+71*, PATIENT+74
PSBINDX	EN+1~, WARD+4, WARD+5, WARD+6, CLINIC+3, CLINIC+4, CLINIC+5
>> PSBISYR	PATIENT+24, PATIENT+25, WARD+29, WARD+30, CLINIC+30, CLINIC+31
>> PSBIVT	PATIENT+23, PATIENT+24, PATIENT+25, PATIENT+26, WARD+28, WARD+29, WARD+30, WARD+31, CLINIC+29, CLINIC+30 , CLINIC+31, CLINIC+32
>> PSBIX	PATIENT+1, WARD+1, CLINIC+1*
>> PSBMR	PATIENT+50, PATIENT+68*, PATIENT+74
>> PSBMRRFL	WARD+54, CLINIC+55
>> PSBODD	PATIENT+17, PATIENT+31, PATIENT+32, WARD+22, WARD+36, WARD+37, CLINIC+23, CLINIC+37, CLINIC+38
>> PSBOIT	PATIENT+39, PATIENT+40, WARD+43, WARD+44, CLINIC+44, CLINIC+45
>> PSBOITX	PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+35, PATIENT+47, PATIENT+50, PATIENT+64*, PATIENT+74, WARD+27, WARD+34 , WARD+38, WARD+51, CLINIC+28, CLINIC+35, CLINIC+39, CLINIC+52
>> PSBONX	PATIENT+18, PATIENT+22, PATIENT+23, PATIENT+29, PATIENT+33, PATIENT+35, PATIENT+36, PATIENT+39, PATIENT+40, PATIENT+47 , PATIENT+50, PATIENT+63*, PATIENT+74, WARD+23, WARD+27, WARD+28, WARD+34, WARD+38, WARD+40, WARD+43 , WARD+44, WARD+51, CLINIC+24, CLINIC+28, CLINIC+29, CLINIC+35, CLINIC+39, CLINIC+41, CLINIC+44, CLINIC+45 , CLINIC+52
>> PSBOSP	PATIENT+44, PATIENT+66*, WARD+48, CLINIC+49
>> PSBOST	PATIENT+36, PATIENT+39, PATIENT+40, PATIENT+43, WARD+40, WARD+43, WARD+44, WARD+47, CLINIC+41, CLINIC+44 , CLINIC+45, CLINIC+48
>> PSBOSTS	PATIENT+16, PATIENT+65*, WARD+20, CLINIC+21
>> PSBRPDT	PATIENT+1, PATIENT+6, PATIENT+36, PATIENT+39, PATIENT+40, PATIENT+43, PATIENT+44, PATIENT+50, PATIENT+84, PATIENT+86 , WARD+1, WARD+40, WARD+43, WARD+44, WARD+47, WARD+48, CLINIC+1, CLINIC+2, CLINIC+14, CLINIC+41 , CLINIC+44, CLINIC+45, CLINIC+48, CLINIC+49, CLINIC+53, CLINIC+54, CLINIC+56, CLINIC+57, CLINIC+60*, CLINIC+62 , CLINIC+65, CLINIC+68, CLINIC+70, CLINIC+76, CLINIC+77, CLINIC+78, WRDHDR+3, CLNHDR+4, PTHDR+6
>> PSBRPT	CLNHDR+2
>> PSBRPT(	EN+4, EN+5, EN+14, PATIENT+79, WARD+13, CLINIC+7
>> PSBRPT(2	PATIENT+8, CLINIC+10
>> PSBRPT(4	EN+11, EN+12
>> PSBSCH	PATIENT+19, PATIENT+20, PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+39, PATIENT+40, PATIENT+47, WARD+24, WARD+25 , WARD+27, WARD+34, WARD+38, WARD+43, WARD+44, WARD+51, CLINIC+25, CLINIC+26, CLINIC+28, CLINIC+35 , CLINIC+39, CLINIC+44, CLINIC+45, CLINIC+52
>> PSBSCHT	PATIENT+15, PATIENT+21, WARD+19, WARD+26, CLINIC+20, CLINIC+27
PSBSM	EN+1~, PATIENT+48, PATIENT+50, PATIENT+69, PATIENT+70*, PATIENT+74, WARD+21, CLINIC+22
PSBSORT	EN+2~, EN+4*, EN+17, EN+18, EN+19, PATIENT+3
PSBSRCHL	EN+2~, EN+8*, EN+9, WRDHDR+2, CLNHDR+2, PTHDR+2
PSBTOT	EN+1~, PATIENT+82
PSBTOT(	PATIENT+35, PATIENT+50, PATIENT+74, PATIENT+83, PATIENT+88, PATIENT+89, PATIENT+91, PATIENT+92, PATIENT+93, PATIENT+94 , PATIENT+96, PATIENT+97, PATIENT+98, WARD+11, WARD+52, WARD+55, WARD+58, CLINIC+14, CLINIC+53, CLINIC+56* , CLINIC+60, CLINIC+62, CLINIC+65, CLINIC+68, CLINIC+70
>> PSBWRD	WRDHDR+2
PSBX	EN+1~, PATIENT+11, PATIENT+12, PATIENT+14, PATIENT+83, PATIENT+84, PATIENT+88, PATIENT+89, PATIENT+91, PATIENT+92 , PATIENT+93, PATIENT+94, PATIENT+96, PATIENT+97, PATIENT+98, WARD+15, WARD+16, WARD+18, WARD+58, WARD+64* , WARD+65, WARD+66, CLINIC+12, CLINIC+13, CLINIC+15, CLINIC+16, CLINIC+17, CLINIC+19, CLINIC+68, CLINIC+70 , CLINIC+76, CLINIC+77, CLINIC+78
>> PSBXX	PATIENT+41, WARD+45, CLINIC+46*
PSBY	EN+1~, PATIENT+88*, PATIENT+89, PATIENT+91, PATIENT+92, PATIENT+93, PATIENT+94, PATIENT+96, PATIENT+97, PATIENT+98
>> PSBYES	PATIENT+17, PATIENT+19, PATIENT+20, PATIENT+21, PATIENT+28, WARD+22, WARD+24, WARD+25, WARD+26, WARD+33 , CLINIC+23, CLINIC+25, CLINIC+26*, CLINIC+27, CLINIC+34
PSBZ	EN+1~, PATIENT+89*, PATIENT+91, PATIENT+92, PATIENT+93, PATIENT+94, PATIENT+96, PATIENT+97, PATIENT+98
RMDT	EN+3~, PATIENT+58*, PATIENT+59, PATIENT+74
U	EN+4, EN+5, EN+11, EN+12, EN+14, PATIENT+50, PATIENT+58, PATIENT+60, PATIENT+63, PATIENT+64 , PATIENT+65, PATIENT+66, PATIENT+67, PATIENT+68, PATIENT+69, PATIENT+72, PATIENT+73, PATIENT+74, PATIENT+79, PATIENT+91 , PATIENT+92, PATIENT+93, PATIENT+94, PATIENT+96, PATIENT+97, PATIENT+98, WARD+8, WARD+13, CLINIC+7, CLINIC+13 , CLINIC+16, CLINIC+64
>> X	WARD+2, WARD+11, WARD+61, CLINIC+2, CLINIC+14, CLINIC+73, WRDHDR+6, CLNHDR+7
>> Y	EN+5, EN+6, EN+14, EN+15, PATIENT+42, PATIENT+46, PATIENT+79, PATIENT+80, WARD+46, WARD+50 , CLINIC+47, CLINIC+51, WRDHDR+3, WRDHDR+4, CLNHDR+4, CLNHDR+5, PTHDR+6, PTHDR+7
>> Z	PATIENT+42, PATIENT+43, PATIENT+44, PATIENT+50, WARD+46, WARD+47, WARD+48, WARD+52, WARD+53, WARD+55 , WARD+56, CLINIC+47*, CLINIC+48, CLINIC+53, CLINIC+54, CLINIC+56, CLINIC+57

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOWA

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: