Routine: ALPBSWRD

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR
Barcode Medication Administration	2	(F80,HDR)^ALPBFRM2 (ORDS,WARDLIST,WARDSEL)^ALPBUTL
VA Fileman	2	C^%DTC ^DIR

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR

Barcode Medication Administration

(F80,HDR)^ALPBFRM2 (ORDS,WARDLIST,WARDSEL)^ALPBUTL

VA Fileman

C^%DTC ^DIR

Package	Total	Caller Graph
Barcode Medication Administration	1	PSB BCBU SHOW WARD

Package

Total

Caller Graph

Barcode Medication Administration

PSB BCBU SHOW WARD

Name	Comments	DBIA/ICR reference
DISP	; output entry point...
CONT	; continue?...
PAGE	; screen header for patient...

External References

Name	Field # of Occurrence
C^%DTC	ALPBSWRD+42
^%ZIS	ALPBSWRD+56
HOME^%ZIS	ALPBSWRD+76
^%ZISC	ALPBSWRD+65
^%ZTLOAD	ALPBSWRD+75
F80^ALPBFRM2	DISP+22
HDR^ALPBFRM2	PAGE+3
ORDS^ALPBUTL	DISP+14
WARDLIST^ALPBUTL	ALPBSWRD+14
WARDSEL^ALPBUTL	ALPBSWRD+10
^DIR	ALPBSWRD+8, ALPBSWRD+26, ALPBSWRD+35, ALPBSWRD+51, DISP+25, DISP+38, CONT+3
$$DT^XLFDT	ALPBSWRD+40
$$FMTE^XLFDT	ALPBSWRD+44
$$NOW^XLFDT	DISP+4
$$CJ^XLFSTR	DISP+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX) Line Location: ALPBSWRD+22
Function Call: WRITE	Prompt: @IOF Line Location: DISP+1
Function Call: WRITE	Prompt: !,ALPBFORM(ALPBX) Line Location: DISP+30
Function Call: WRITE	Prompt: @IOF Line Location: DISP+41
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+1
Function Call: WRITE	Prompt: !,ALPBHDR(I) Line Location: PAGE+4
Routine Call	%ZIS Line Location: ALPBSWRD+76
Routine Call	DIR Line Location: ALPBSWRD+8 ALPBSWRD+26 ALPBSWRD+35 ALPBSWRD+51 DISP+25 DISP+38 CONT+3
Routine Call	%ZIS Line Location: ALPBSWRD+56

Name	Line Occurrences (* Changed, ! Killed)
^ALPB(53.7 - [#53.7]	DISP+8, DISP+10, DISP+11, DISP+12, DISP+20

Name	Line Occurrences
DISP	ALPBSWRD+64
PAGE	DISP+13, DISP+27, CONT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ALPBSWRD+55*, ALPBSWRD+56!
ALPBDATA	DISP+20*, DISP+22, DISP+26!, DISP+31!
ALPBFORM	DISP+22, DISP+26!, DISP+31!
ALPBFORM(	DISP+30
ALPBFORM(0	DISP+23
ALPBHDR	PAGE+3, PAGE+5!
ALPBHDR(	PAGE+4
ALPBHDR(0	PAGE+4
ALPBIEN	DISP+9, DISP+10, DISP+11, DISP+12, DISP+14, DISP+20, DISP+40!
ALPBMLOG	ALPBSWRD+53*, DISP+22, DISP+42!
ALPBOIEN	DISP+18, DISP+19, DISP+20, DISP+32, DISP+39!
ALPBORDS	DISP+14, DISP+17!, DISP+39!
ALPBORDS(	DISP+19, DISP+32
ALPBORDS(0	DISP+15
ALPBOTYP	ALPBSWRD+37*, ALPBSWRD+52!, ALPBSWRD+79!, DISP+4, DISP+33, DISP+42!, PAGE+3
ALPBPG	DISP+9, DISP+13, DISP+40!, PAGE+2, PAGE+3, CONT+5*
ALPBPT	DISP+17!, DISP+26!, DISP+39!, PAGE+3
ALPBPT(0	DISP+11*
ALPBPT(1	DISP+12*
ALPBPTN	DISP+7, DISP+8, DISP+10, DISP+33, DISP+42!
ALPBRDAT	DISP+4*, DISP+14, DISP+42!
ALPBSEL	ALPBSWRD+10, ALPBSWRD+15!, ALPBSWRD+19!, ALPBSWRD+27!
ALPBSEL(	ALPBSWRD+22, ALPBSWRD+28
ALPBSEL(0	ALPBSWRD+11, ALPBSWRD+16, ALPBSWRD+20, ALPBSWRD+24, ALPBSWRD+25
ALPBSEL(1	ALPBSWRD+17
ALPBWARD	ALPBSWRD+17, ALPBSWRD+18, ALPBSWRD+28, ALPBSWRD+36!, ALPBSWRD+59!, ALPBSWRD+70, ALPBSWRD+79!, DISP+8, DISP+10
ALPBX	ALPBSWRD+21, ALPBSWRD+22, ALPBSWRD+23!, DISP+29, DISP+30, DISP+31!, DISP+33, DISP+34, DISP+35, DISP+36!
DIR	ALPBSWRD+8!, ALPBSWRD+26!, ALPBSWRD+35!, ALPBSWRD+51!, DISP+25!, DISP+38!, CONT+3!
DIR("?"	ALPBSWRD+7, ALPBSWRD+34, ALPBSWRD+47, ALPBSWRD+48, ALPBSWRD+49, ALPBSWRD+50
DIR("A"	ALPBSWRD+6, ALPBSWRD+25, ALPBSWRD+32, ALPBSWRD+45, ALPBSWRD+46*
DIR("B"	ALPBSWRD+33, ALPBSWRD+44
DIR(0	ALPBSWRD+5, ALPBSWRD+24, ALPBSWRD+31, ALPBSWRD+43, DISP+24, DISP+37, CONT+2*
DIRUT	ALPBSWRD+3, ALPBSWRD+9, ALPBSWRD+20!, ALPBSWRD+27, ALPBSWRD+36!, ALPBSWRD+52!, ALPBSWRD+80!, DISP+8, DISP+10, DISP+19 , DISP+23, DISP+26, DISP+42!, CONT+4
DTOUT	ALPBSWRD+20!, ALPBSWRD+36!, ALPBSWRD+52!, ALPBSWRD+80!, DISP+42!
>> I	PAGE+4*
IO	ALPBSWRD+63, ALPBSWRD+65
IO("Q"	ALPBSWRD+62, ALPBSWRD+68, ALPBSWRD+78!
IO(0	ALPBSWRD+65
IOF	DISP+1, DISP+41, PAGE+1
ION	ALPBSWRD+74
IOSL	DISP+23
IOST	DISP+1, DISP+41, CONT+1
POP	ALPBSWRD+57, ALPBSWRD+59!
X	ALPBSWRD+20!, ALPBSWRD+36!, ALPBSWRD+44, ALPBSWRD+52!, ALPBSWRD+80!, DISP+42!
>> X1	ALPBSWRD+40*
>> X2	ALPBSWRD+41*
Y	ALPBSWRD+10, ALPBSWRD+20!, ALPBSWRD+28, ALPBSWRD+36!, ALPBSWRD+37, ALPBSWRD+52!, ALPBSWRD+53, ALPBSWRD+80!, DISP+42!
>> ZTDESC	ALPBSWRD+70*
>> ZTIO	ALPBSWRD+74*
>> ZTQUEUED	DISP+43
>> ZTREQ	DISP+43*
>> ZTRTN	ALPBSWRD+69*
>> ZTSAVE("ALPBMLOG"	ALPBSWRD+73*
>> ZTSAVE("ALPBOTYP"	ALPBSWRD+72*
>> ZTSAVE("ALPBWARD"	ALPBSWRD+71*
ZTSK	ALPBSWRD+77, ALPBSWRD+78!

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBSWRD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: