Routine: ALPBBK

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$DT^XLFDT
Barcode Medication Administration	3	HDR^ALPBFRMU ($$DEFDAYS,$$DEFPRT)^ALPBUTL (ARRAY,MON,START)^ALPBUTL3
VA Fileman	1	^DIR

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

Entry Points

Name	Comments	DBIA/ICR reference
FOOT	;FOOTER TO FROMS
STOP
DQ	; output entry point...

External References

Name	Field # of Occurrence
^%ZIS	ALPBBK+26
HOME^%ZIS	ALPBBK+46
^%ZISC	ALPBBK+34
^%ZTLOAD	ALPBBK+45
HDR^ALPBFRMU	DQ+8
$$DEFDAYS^ALPBUTL	ALPBBK+20
$$DEFPRT^ALPBUTL	ALPBBK+15
ARRAY^ALPBUTL3	DQ+15
MON^ALPBUTL3	DQ+15
START^ALPBUTL3	DQ+16
^DIR	ALPBBK+10, ALPBBK+22
$$DT^XLFDT	DQ+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ALPBHDR(I) Line Location: DQ+9
Function Call: WRITE	Prompt: !?61,"Admin" Line Location: DQ+15
Function Call: WRITE	Prompt: ?74,MON Line Location: DQ+15
Function Call: WRITE	Prompt: !,?2,"Order",?13,"Start",?35,"Stop",?61,"Times" Line Location: DQ+16
Function Call: WRITE	Prompt: ?NST,"Notes" Line Location: DQ+16
Function Call: WRITE	Prompt: ! Line Location: DQ+17
Function Call: WRITE	Prompt: "-" Line Location: DQ+17
Function Call: WRITE	Prompt: ?J,"_____\|" Line Location: DQ+20
Function Call: WRITE	Prompt: ?J,"_____\|" Line Location: DQ+21
Function Call: WRITE	Prompt: ?J,"_____\|" Line Location: DQ+22
Function Call: WRITE	Prompt: ?J,"_____\|" Line Location: DQ+23
Function Call: WRITE	Prompt: ?J,"_____\|" Line Location: DQ+24
Function Call: WRITE	Prompt: ?J,"_____\|" Line Location: DQ+25
Function Call: WRITE	Prompt: "-" Line Location: DQ+27
Function Call: WRITE	Prompt: !,"\|",?13,"SIGNATURE/TITLE",?40,"\| INIT",?48,"\|",?60,"INJECTION SITES",?87,"\|",?92,"MED/DOSE OMITTED",?115,"\|",?120,"REASON",?132,"\|",?135,"INIT",?140,"\|" Line Location: FOOT+1
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+2
Function Call: WRITE	Prompt: "-" Line Location: FOOT+2
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+3
Function Call: WRITE	Prompt: "-" Line Location: FOOT+3
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+4
Function Call: WRITE	Prompt: "-" Line Location: FOOT+4
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+5
Function Call: WRITE	Prompt: "-" Line Location: FOOT+5
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+6
Function Call: WRITE	Prompt: "-" Line Location: FOOT+6
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+7
Function Call: WRITE	Prompt: "-" Line Location: FOOT+7
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+8
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+9
Function Call: WRITE	Prompt: "-" Line Location: FOOT+9
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+10
Function Call: WRITE	Prompt: "-" Line Location: FOOT+10
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+11
Function Call: WRITE	Prompt: ?52,"Indicate RIGHT (R) or LEFT (L)" Line Location: FOOT+12
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+13
Function Call: WRITE	Prompt: "-" Line Location: FOOT+13
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+14
Function Call: WRITE	Prompt: "-" Line Location: FOOT+14
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+15
Function Call: WRITE	Prompt: "-" Line Location: FOOT+15
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+16
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+17
Function Call: WRITE	Prompt: "-" Line Location: FOOT+17
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+18
Function Call: WRITE	Prompt: "-" Line Location: FOOT+18
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+19
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+20
Function Call: WRITE	Prompt: "-" Line Location: FOOT+20
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+21
Function Call: WRITE	Prompt: "-" Line Location: FOOT+21
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+22
Function Call: WRITE	Prompt: "-" Line Location: FOOT+22
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+23
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+24
Function Call: WRITE	Prompt: "-" Line Location: FOOT+24
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+25
Function Call: WRITE	Prompt: "-" Line Location: FOOT+25
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+26
Function Call: WRITE	Prompt: ?53,"(IM)",?75,"(SUB Q)" Line Location: FOOT+27
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+28
Function Call: WRITE	Prompt: "-" Line Location: FOOT+28
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+29
Function Call: WRITE	Prompt: "-" Line Location: FOOT+29
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+30
Function Call: WRITE	Prompt: "-" Line Location: FOOT+30
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+31
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+32
Function Call: WRITE	Prompt: "-" Line Location: FOOT+32
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+33
Function Call: WRITE	Prompt: "-" Line Location: FOOT+33
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+34
Function Call: WRITE	Prompt: ?49,"1. DELTOID",?73,"6. UPPER ARM" Line Location: FOOT+35
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+36
Function Call: WRITE	Prompt: "-" Line Location: FOOT+36
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+37
Function Call: WRITE	Prompt: "-" Line Location: FOOT+37
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+38
Function Call: WRITE	Prompt: "-" Line Location: FOOT+38
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+39
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+40
Function Call: WRITE	Prompt: "-" Line Location: FOOT+40
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+41
Function Call: WRITE	Prompt: "-" Line Location: FOOT+41
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+42
Function Call: WRITE	Prompt: ?49,"2. VENTRAL GLUTEAL",?73,"7. ABDOMEN" Line Location: FOOT+43
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+44
Function Call: WRITE	Prompt: "-" Line Location: FOOT+44
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+45
Function Call: WRITE	Prompt: "-" Line Location: FOOT+45
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+46
Function Call: WRITE	Prompt: "-" Line Location: FOOT+46
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+47
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+48
Function Call: WRITE	Prompt: "-" Line Location: FOOT+48
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+49
Function Call: WRITE	Prompt: "-" Line Location: FOOT+49
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+50
Function Call: WRITE	Prompt: ?49,"3. GLUTEUS MEDIUS",?73,"8. THIGH" Line Location: FOOT+51
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+52
Function Call: WRITE	Prompt: "-" Line Location: FOOT+52
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+53
Function Call: WRITE	Prompt: "-" Line Location: FOOT+53
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+54
Function Call: WRITE	Prompt: "-" Line Location: FOOT+54
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+55
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+56
Function Call: WRITE	Prompt: "-" Line Location: FOOT+56
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+57
Function Call: WRITE	Prompt: "-" Line Location: FOOT+57
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+58
Function Call: WRITE	Prompt: ?49,"4. MED (ANTERIOR) THIGH",?73,"9. BUTTOCK" Line Location: FOOT+59
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+60
Function Call: WRITE	Prompt: "-" Line Location: FOOT+60
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+61
Function Call: WRITE	Prompt: "-" Line Location: FOOT+61
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+62
Function Call: WRITE	Prompt: "-" Line Location: FOOT+62
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+63
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+64
Function Call: WRITE	Prompt: "-" Line Location: FOOT+64
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+65
Function Call: WRITE	Prompt: "-" Line Location: FOOT+65
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+66
Function Call: WRITE	Prompt: ?49,"5. VASTUS LATERALIS",?73,"10. UPPER BACK" Line Location: FOOT+67
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+68
Function Call: WRITE	Prompt: "-" Line Location: FOOT+68
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+69
Function Call: WRITE	Prompt: "-" Line Location: FOOT+69
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+70
Function Call: WRITE	Prompt: "-" Line Location: FOOT+70
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+71
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+72
Function Call: WRITE	Prompt: "-" Line Location: FOOT+72
Function Call: WRITE	Prompt: ?40,"\|" Line Location: FOOT+73
Function Call: WRITE	Prompt: "-" Line Location: FOOT+73
Function Call: WRITE	Prompt: ?48,"\|" Line Location: FOOT+74
Function Call: WRITE	Prompt: ?50," PRN: E=Effective N=Not Effective" Line Location: FOOT+75
Function Call: WRITE	Prompt: ?87,"\|" Line Location: FOOT+76
Function Call: WRITE	Prompt: "-" Line Location: FOOT+76
Function Call: WRITE	Prompt: ?115,"\|" Line Location: FOOT+77
Function Call: WRITE	Prompt: "-" Line Location: FOOT+77
Function Call: WRITE	Prompt: ?132,"\|" Line Location: FOOT+78
Function Call: WRITE	Prompt: "-" Line Location: FOOT+78
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+79
Function Call: WRITE	Prompt: ! Line Location: FOOT+80
Function Call: WRITE	Prompt: "-" Line Location: FOOT+80
Function Call: WRITE	Prompt: ?140,"\|" Line Location: FOOT+81
Function Call: WRITE	Prompt: @IOF Line Location: FOOT+86
Routine Call	%ZIS Line Location: ALPBBK+46
Routine Call	DIR Line Location: ALPBBK+10 ALPBBK+22
Routine Call	%ZIS Line Location: ALPBBK+26

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ALPB(53.7 - [#53.7]	DQ+5, DQ+6
^TMP($J	DQ+1!, FOOT+82!

Label References

Name	Line Occurrences
DQ	ALPBBK+33
FOOT	STOP
STOP	DQ+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ALPBBK+14*, ALPBBK+26!
%ZIS("B"	ALPBBK+15*, ALPBBK+16!
>> ADM(7	DQ+18*, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24, DQ+25
>> ADMIN(7	STOP+1!
ALPBDAYS	ALPBBK+24*, ALPBBK+50!, DQ+12, FOOT+82!
ALPBHDR	DQ+8, DQ+10!
ALPBHDR(	DQ+9
ALPBHDR(0	DQ+9
ALPBIEN	ALPBBK+12*, ALPBBK+28!, ALPBBK+50!, DQ+5, DQ+6
ALPBMLOG	ALPBBK+50!
ALPBOIEN	FOOT+82!
ALPBORDN	FOOT+82!
ALPBOST	FOOT+82!
ALPBOTYP	ALPBBK+23!, ALPBBK+50!, FOOT+82!
ALPBPG	DQ+7*, DQ+8, FOOT+82!
ALPBPT	DQ+8, FOOT+82!
ALPBPT(0	DQ+5*
ALPBPT(1	DQ+6*
ALPBPTN	ALPBBK+13*, ALPBBK+28!, ALPBBK+40, ALPBBK+50!
ALPBRDAT	DQ+4*, FOOT+82!
ANS	STOP+1!
BED	STOP+1!
CURRENT	STOP+1!
DAY	DQ+12*, DQ+13, DQ+14, DQ+15, DQ+16, FOOT+82!
DFN	STOP+1!
DIR	ALPBBK+10!, ALPBBK+22!
DIR("?"	ALPBBK+21*
DIR("A"	ALPBBK+9, ALPBBK+19
DIR("B"	ALPBBK+20*
DIR(0	ALPBBK+8, ALPBBK+18
DIRUT	ALPBBK+6, ALPBBK+11, ALPBBK+23!, ALPBBK+51!
DOB	STOP+1!
DTOUT	ALPBBK+23!, ALPBBK+51!
FOOT	DQ+11, DQ+13, STOP+1!
>> I	DQ+9*
IENM	STOP+1!
IO	ALPBBK+32, ALPBBK+34
IO("Q"	ALPBBK+31, ALPBBK+37, ALPBBK+48!
IO(0	ALPBBK+34
IOF	FOOT+86
ION	ALPBBK+39
IOST	FOOT+86
J	DQ+17, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24, DQ+25, DQ+27, STOP+1!, FOOT+2* , FOOT+3, FOOT+4, FOOT+5, FOOT+6, FOOT+7, FOOT+9, FOOT+10, FOOT+13, FOOT+14, FOOT+15 , FOOT+17, FOOT+18, FOOT+20, FOOT+21, FOOT+22, FOOT+24, FOOT+25, FOOT+28, FOOT+29, FOOT+30 , FOOT+32, FOOT+33, FOOT+36, FOOT+37, FOOT+38, FOOT+40, FOOT+41, FOOT+44, FOOT+45, FOOT+46 , FOOT+48, FOOT+49, FOOT+52, FOOT+53, FOOT+54, FOOT+56, FOOT+57, FOOT+60, FOOT+61, FOOT+62 , FOOT+64, FOOT+65, FOOT+68, FOOT+69, FOOT+70, FOOT+72, FOOT+73, FOOT+76, FOOT+77, FOOT+78 , FOOT+80*
>> JY	DQ+19, DQ+28
>> MON	DQ+15
MST	DQ+13*, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24, DQ+25, STOP+1!
NST	DQ+14*, DQ+16, STOP+1!
PCOUNT	STOP+1!
POP	ALPBBK+27, ALPBBK+28!
PTNAME	STOP+1!
ROOM	STOP+1!
SEX	STOP+1!
SSN	STOP+1!
ST	STOP+1!
WARD	STOP+1!
X	ALPBBK+11!, ALPBBK+23!, ALPBBK+50!, ALPBBK+51!
Y	ALPBBK+11!, ALPBBK+12, ALPBBK+23!, ALPBBK+24, ALPBBK+50!, ALPBBK+51!, STOP+1!
Y(0	ALPBBK+13
>> ZTDESC	ALPBBK+40*
>> ZTIO	ALPBBK+39*
>> ZTQUEUED	FOOT+83
>> ZTREQ	FOOT+83*
>> ZTRTN	ALPBBK+38*
>> ZTSAVE("ALPBDAYS"	ALPBBK+41*
>> ZTSAVE("ALPBIEN"	ALPBBK+42*
>> ZTSAVE("ALPBMLOG"	ALPBBK+43*
>> ZTSAVE("ALPBOTYP"	ALPBBK+44*
ZTSK	ALPBBK+47, ALPBBK+48!

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBBK

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: