Routine: ALPBPWRD

Package	Total	Call Graph
Barcode Medication Administration	5	F132^ALPBFRM1 (FOOT,HDR)^ALPBFRMU ($$DEFDAYS,$$DEFPRT,ORDS,WARDLIST,WARDSEL)^ALPBUTL $$STAT2^ALPBUTL1 $$DEFML^ALPBUTL3
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Barcode Medication Administration	1	PSB BCBU PRINT MAR WARD

Entry Points

Name	Comments	DBIA/ICR reference
PRT
DONE	;
PAGE	; print page header for patient...
DQ	; output entry point...

External References

Name	Field # of Occurrence
^%ZIS	ALPBPWRD+77
HOME^%ZIS	ALPBPWRD+99
^%ZISC	ALPBPWRD+86
^%ZTLOAD	ALPBPWRD+98
F132^ALPBFRM1	PRT+12
FOOT^ALPBFRMU	PRT+23
HDR^ALPBFRMU	PAGE+3
$$DEFDAYS^ALPBUTL	ALPBPWRD+56
$$DEFPRT^ALPBUTL	ALPBPWRD+75
ORDS^ALPBUTL	DQ+11
WARDLIST^ALPBUTL	ALPBPWRD+18
WARDSEL^ALPBUTL	ALPBPWRD+14
$$STAT2^ALPBUTL1	DQ+23
$$DEFML^ALPBUTL3	ALPBPWRD+64
^DIR	ALPBPWRD+12, ALPBPWRD+30, ALPBPWRD+40, ALPBPWRD+49, ALPBPWRD+58, ALPBPWRD+70
$$NOW^XLFDT	DQ+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX) Line Location: ALPBPWRD+26
Function Call: WRITE	Prompt: !,ALPBFORM(ALPBX) Line Location: PRT+15
Function Call: WRITE	Prompt: !! Line Location: PRT+22
Function Call: WRITE	Prompt: @IOF Line Location: PRT+25
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+1
Function Call: WRITE	Prompt: !,ALPBHDR(ALPBX) Line Location: PAGE+4
Routine Call	%ZIS Line Location: ALPBPWRD+99
Routine Call	DIR Line Location: ALPBPWRD+12 ALPBPWRD+30 ALPBPWRD+40 ALPBPWRD+49 ALPBPWRD+58 ALPBPWRD+70
Routine Call	%ZIS Line Location: ALPBPWRD+77

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ALPB(53.7 - [#53.7]	DQ+8, DQ+10, DQ+13, DQ+16, DQ+17, DQ+18, DQ+42, PRT, PRT+1, PRT+11
^TMP($J	DQ+1!, DQ+24, DQ+25, DQ+35, DQ+39, DQ+40, DQ+42, DQ+44*, DQ+45, DQ+46 , DQ+47, DQ+48, DQ+49, PRT+4, PRT+6, PRT+8, PRT+9, DONE+1!

Label References

Name	Line Occurrences
DONE	DQ+50
DQ	ALPBPWRD+85
PAGE	PRT+2, PRT+14, PRT+21
PRT	DQ+35, DQ+49

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ALPBPWRD+74*, ALPBPWRD+77!
%ZIS("B"	ALPBPWRD+75*, ALPBPWRD+76!
>> ALPB	DQ+43*
ALPBD	DQ+38, DQ+42, DQ+43, DQ+44, DQ+47*, DQ+48, DQ+49, DONE+1!
ALPBDATA	DQ+16, DQ+21!, DQ+26!, PRT+11, PRT+12, PRT+16!
ALPBDAYS	ALPBPWRD+60*, ALPBPWRD+102!, PRT+12, DONE+1!
ALPBFORM	PRT+12, PRT+16!
ALPBFORM(	PRT+15
ALPBFORM(0	PRT+14, PRT+15
ALPBHDR	PAGE+3, PAGE+5!
ALPBHDR(	PAGE+4
ALPBHDR(0	PAGE+4
ALPBIEN	DQ+9, DQ+10, DQ+11, DQ+13, DQ+16, DQ+17, DQ+18, DQ+24, DQ+28!, DQ+35* , DQ+42, DQ+44, DQ+49, PRT, PRT+1, PRT+11, PRT+12, DONE+1!
ALPBMLOG	ALPBPWRD+72*, ALPBPWRD+80!, ALPBPWRD+102!, PRT+12, DONE+1!
ALPBOCT	DQ+17, DQ+18, DQ+25, PRT+3, PRT+4, PRT+6, PRT+8, PRT+9, PRT+19!
ALPBOIEN	DQ+14, DQ+15, DQ+16, DQ+17, DQ+18, DQ+22, DQ+23, DQ+25, DQ+27!, PRT+9* , PRT+11, PRT+16!
ALPBORDN	DQ+22, DQ+25, DQ+26!, PRT+7, PRT+8*, PRT+9, PRT+17!
ALPBORDS	DQ+11, DQ+12!, DQ+27!
ALPBORDS(	DQ+15, DQ+22, DQ+23
ALPBORDS(0	DQ+12
ALPBOST	DQ+23, DQ+25, DQ+26!, PRT+5, PRT+6*, PRT+8, PRT+9, PRT+18!
ALPBOTYP	ALPBPWRD+42*, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+80!, ALPBPWRD+102!, DQ+4, DQ+21, DONE+1!
ALPBPDAT	DQ+27!, PRT+27!, PAGE+3
ALPBPDAT(0	DQ+13, PRT
ALPBPDAT(1	PRT+1*
ALPBPG	DQ+32, PRT+2, PRT+26, DONE+1!, PAGE+2*, PAGE+3
ALPBPTN	DQ+7, DQ+8, DQ+10, DQ+24, DQ+25, DQ+29!, DQ+33, DQ+35, DQ+39, DQ+40 , DQ+41, DQ+42, DQ+44, DQ+48*, DQ+49, PRT+4, PRT+6, PRT+8, PRT+9, DONE+1!
ALPBRDAT	DQ+4*, DQ+11, DQ+21, DONE+1!
ALPBSEL	ALPBPWRD+14, ALPBPWRD+19!, ALPBPWRD+23!, ALPBPWRD+31!, ALPBPWRD+33!
ALPBSEL(	ALPBPWRD+26, ALPBPWRD+32
ALPBSEL(0	ALPBPWRD+15, ALPBPWRD+20, ALPBPWRD+24, ALPBPWRD+28, ALPBPWRD+29
ALPBSEL(1	ALPBPWRD+21
ALPBSORT	ALPBPWRD+51*, DQ+34, DQ+37, DONE+1!
ALPBWARD	ALPBPWRD+21, ALPBPWRD+22, ALPBPWRD+32, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+71!, ALPBPWRD+80!, ALPBPWRD+91, ALPBPWRD+102!, DQ+8 , DQ+10, DONE+1!
ALPBX	ALPBPWRD+25, ALPBPWRD+26, ALPBPWRD+27!, PRT+15, PRT+16!, PAGE+4, PAGE+5!
ALPRM	DQ+38, DQ+42, DQ+43, DQ+44, DQ+46*, DQ+47, DQ+48, DQ+49, DONE+1!
ALPRM1	DQ+45*, DQ+46, DQ+47, DQ+48, DQ+49, DONE+1!
DIR	ALPBPWRD+12!, ALPBPWRD+30!, ALPBPWRD+40!, ALPBPWRD+49!, ALPBPWRD+58!, ALPBPWRD+70!
DIR("?"	ALPBPWRD+11, ALPBPWRD+39, ALPBPWRD+48, ALPBPWRD+57, ALPBPWRD+67, ALPBPWRD+68, ALPBPWRD+69*
DIR("A"	ALPBPWRD+10, ALPBPWRD+29, ALPBPWRD+37, ALPBPWRD+46, ALPBPWRD+55, ALPBPWRD+65, ALPBPWRD+66*
DIR("B"	ALPBPWRD+38, ALPBPWRD+47, ALPBPWRD+56, ALPBPWRD+64
DIR(0	ALPBPWRD+9, ALPBPWRD+28, ALPBPWRD+36, ALPBPWRD+45, ALPBPWRD+54, ALPBPWRD+63
DIRUT	ALPBPWRD+7, ALPBPWRD+13, ALPBPWRD+24!, ALPBPWRD+31, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+103!
DTOUT	ALPBPWRD+24!, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+103!
IO	ALPBPWRD+84, ALPBPWRD+86
IO("Q"	ALPBPWRD+83, ALPBPWRD+89, ALPBPWRD+101!
IO(0	ALPBPWRD+86
IOF	PRT+25, PAGE+1
ION	ALPBPWRD+97
IOSL	PRT+14, PRT+21
POP	ALPBPWRD+78, ALPBPWRD+80!
U	DQ+17, DQ+18, DQ+21
X	ALPBPWRD+24!, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+103!
Y	ALPBPWRD+14, ALPBPWRD+24!, ALPBPWRD+32, ALPBPWRD+41!, ALPBPWRD+42, ALPBPWRD+50!, ALPBPWRD+51, ALPBPWRD+59!, ALPBPWRD+60, ALPBPWRD+71! , ALPBPWRD+72, ALPBPWRD+103!
>> ZTDESC	ALPBPWRD+91*
>> ZTIO	ALPBPWRD+97*
>> ZTQUEUED	DONE+2
>> ZTREQ	DONE+2*
>> ZTRTN	ALPBPWRD+90*
>> ZTSAVE("ALPBDAYS"	ALPBPWRD+92*
>> ZTSAVE("ALPBMLOG"	ALPBPWRD+94*
>> ZTSAVE("ALPBOTYP"	ALPBPWRD+95*
>> ZTSAVE("ALPBSORT"	ALPBPWRD+96*
>> ZTSAVE("ALPBWARD"	ALPBPWRD+93*
ZTSK	ALPBPWRD+100, ALPBPWRD+101!

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBPWRD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: