Routine: ALPBIN

Package	Total	Call Graph
Kernel	3	(,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT SETUP^XQALERT
Barcode Medication Administration	2	PAT^ALPBIND GET^ALPBPARM
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

(,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT SETUP^XQALERT

Barcode Medication Administration

PAT^ALPBIND GET^ALPBPARM

VA Fileman

^DIR

Package	Total	Caller Graph
Barcode Medication Administration	1	PSB BCBU INIT WRKSTN DIV

Package

Total

Caller Graph

Barcode Medication Administration

PSB BCBU INIT WRKSTN DIV

Entry Points

Name	Comments	DBIA/ICR reference
OPT	;Entry point for the option
ALL	;Ask if the user want to send to all divisions
EN	;Loop through the inpatient list.
ALLWKS	;If no then set allow the user to select the workstation
EXIT	;
WRKSTN	;Now select which workstations for the division to be initialized
LP	;Multiple entries
QUE	;Que the job
DIV

Name	Field # of Occurrence
^%ZTLOAD	QUE+6
$$S^%ZTLOAD	EN+11
PAT^ALPBIND	EN+14
GET^ALPBPARM	DIV+7
^DIR	ALL+5, DIV+4, ALLWKS+5, LP+5
$$FMTE^XLFDT	EN+1, EN+17
$$NOW^XLFDT	EN+1, EN+17
SETUP^XQALERT	EN+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No workstations defined with "_ALPDVN Line Location: DIV+8
Function Call: WRITE	Prompt: !!,"No Selected Workstations" Line Location: WRKSTN+7
Function Call: WRITE	Prompt: !!,"No Selected Workstations" Line Location: WRKSTN+8
Function Call: WRITE	Prompt: #,!!,"Selected Workstations",!! Line Location: LP+8
Routine Call	DIR Line Location: ALL+5 DIV+4 ALLWKS+5 LP+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	EN+7, EN+9
^DPT("CN"	EN+5, EN+14

Name	Line Occurrences
ALLWKS	WRKSTN+8
DIV	ALL+9, DIV+8, ALLWKS+6
EXIT	ALL+6, EN+23
LP	WRKSTN+6
QUE	ALL+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALDFN	EXIT+1!, EN+13, EN+14
ALP	EXIT+3!, WRKSTN+3, WRKSTN+4, WRKSTN+10, WRKSTN+11, WRKSTN+12, LP+10, LP+11, LP+12
ALPALL	ALL+1!, ALL+7*, ALL+9, EXIT+2!
ALPB	EXIT+1!, LP+9, LP+10, LP+11
ALPBANS	WRKSTN+1!, WRKSTN+8, WRKSTN+9, WRKSTN+14!
ALPBANS(	WRKSTN+11, LP+7*, LP+10
ALPBDVN	ALL+1!
ALPBI	EXIT+1!
ALPBJ	EXIT+1!
ALPCN	EXIT+1!, EN+4, EN+5, EN+7, EN+14
ALPCNI	EXIT+3!, EN+7*, EN+8, EN+9
ALPCNT	EXIT+3!, WRKSTN+10, WRKSTN+12, WRKSTN+13, EN+22!
ALPDIV	ALL+1!, EXIT+2!, DIV!, DIV+5, DIV+6, DIV+7, EN+2*, EN+10
ALPDTE	EN+17*, EN+19, EN+22!
ALPDTS	EN+1*, EN+19, EN+22!
ALPDVN	EXIT+3!, DIV+6*, DIV+8, ALLWKS+4
ALPHLL	EXIT+2!, DIV!, DIV+7, DIV+8, WRKSTN+5!, WRKSTN+8, QUE+5
ALPHLL("LINKS"	WRKSTN+3, WRKSTN+4, WRKSTN+12*
ALPMDT	EXIT+1!
ALPML	EXIT+1!
ALPOK	EXIT+3!, EN+3*
ALPORDR	EXIT+1!
ALPSCRN	WRKSTN+1!, WRKSTN+14!
ALPSCRN(	WRKSTN+4*, WRKSTN+12
ALPSTOP	EXIT+3!, EN+3, EN+5, EN+11, EN+12, EN+14
ALPTST	EXIT+3!, EN+9*, EN+10
ALPWKS	ALL+1!, ALLWKS+7*, ALLWKS+8
DIR	ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DIR("?"	LP+3*
DIR("A"	ALL+3, ALL+4, DIV+2, DIV+3, ALLWKS+3, ALLWKS+4, LP+2*
DIR("B"	ALL+2, ALLWKS+2
DIR("S"	LP+4*
DIR(0	ALL+2, DIV+1, ALLWKS+2, LP+2
DIROUT	ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DIRUT	ALL+1!, ALL+6, EXIT+2!, DIV!, DIV+5, ALLWKS+1!, ALLWKS+6, WRKSTN+6, LP+1!, LP+6
DTOUT	ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DUOUT	ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DUZ	EN+18
MSCTR	EXIT+1!
MSH	EXIT+1!
ORC	EXIT+1!
PID	EXIT+2!
PV1	EXIT+2!
U	DIV+6, WRKSTN+4, LP+7, EN+9
XQA	EN+16!
XQA(	EN+18*
XQAMSG	EN+16!, EN+19*
Y	ALL+7, EXIT+2!, DIV+5, DIV+6, ALLWKS+7, LP+7
ZTDESC	QUE+3*, QUE+8!
ZTIO	QUE+4*, QUE+8!
ZTRTN	QUE+2*, QUE+8!
ZTSAVE	EXIT+3!
ZTSAVE("ALPDIV"	QUE+4*
ZTSAVE("ALPHLL("	QUE+5*
ZTSAVE("ALPWKS"	QUE+4*
ZTSK	QUE+7, QUE+8!

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBIN

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: