Routine: ALPBIN

Information

ALPBIN ;OIFO-DALLAS/SED/KC/MW BCMA-BCBU INPT TO HL7 INIT ;07/06/16 7:06am

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Barcode Medication Administration	1	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
EXIT	;
DIV
ALLWKS	;If no then set allow the user to select the workstation
WRKSTN	;Now select which workstations for the division to be initialized
LP	;Multiple entries
QUE	;Que the job
EN	;Loop through the inpatient list.

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+6
$$S^%ZTLOAD	EN+12
IVCLIN^ALPBIND	EN+19
PAT^ALPBIND	EN+15
UDCLIN^ALPBIND	EN+18
GET^ALPBPARM	DIV+7
^DIR	ALL+5, DIV+4, ALLWKS+5, LP+5
$$FMTE^XLFDT	EN+1, EN+22
$$NOW^XLFDT	EN+1, EN+17, EN+22
SETUP^XQALERT	EN+26

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	EN+8, EN+10
^DPT("CN"	EN+6, EN+15

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALDFN	EXIT+1!, EN+14, EN+15
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+15!
ALPBANS(	WRKSTN+11, LP+7*, LP+10
ALPBDVN	ALL+1!
ALPBI	EXIT+1!
ALPBJ	EXIT+1!
ALPCN	EXIT+1!, EN+5, EN+6, EN+8, EN+15
ALPCNI	EXIT+3!, EN+8*, EN+9, EN+10
ALPCNT	EXIT+3!, WRKSTN+10, WRKSTN+12, WRKSTN+13, WRKSTN+14, EN+27!
ALPDIV	ALL+1!, EXIT+2!, DIV!, DIV+5, DIV+6, DIV+7, EN+2*, EN+4, EN+11
ALPDIV0	EN+4~*, EN+15, EN+18, EN+19
ALPDTE	EN+22*, EN+24, EN+27!
ALPDTS	EN+1*, EN+24, EN+27!
ALPDVN	EXIT+3!, DIV+6*, DIV+8, ALLWKS+4
ALPHLINI	EXIT+3!, DIV!, QUE+5
ALPHLINI(	WRKSTN+13*
ALPHLL	EXIT+2!, DIV!, DIV+7, DIV+8, WRKSTN+5!, WRKSTN+8, QUE+4
ALPHLL("LINKS"	WRKSTN+3, WRKSTN+4, WRKSTN+12*, WRKSTN+13
ALPMDT	EXIT+1!
ALPML	EXIT+1!
ALPNOWCL	EN+17~*, EN+18, EN+19
ALPOK	EXIT+3!, EN+3*
ALPORDR	EXIT+1!
ALPSCRN	WRKSTN+1!, WRKSTN+15!
ALPSCRN(	WRKSTN+4*, WRKSTN+12
ALPSTOP	EXIT+3!, EN+3, EN+6, EN+12, EN+13, EN+15
ALPTST	EXIT+3!, EN+10*, EN+11
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+23
MSCTR	EXIT+1!
MSH	EXIT+1!
ORC	EXIT+1!
PID	EXIT+2!
PV1	EXIT+2!
U	DIV+6, WRKSTN+4, LP+7, EN+10
XQA	EN+21!
XQA(	EN+23*
XQAMSG	EN+21!, EN+24*
Y	ALL+7, EXIT+2!, DIV+5, DIV+6, ALLWKS+7, LP+7
ZTDESC	QUE+2*, QUE+8!
ZTIO	QUE+3*, QUE+8!
ZTRTN	QUE+1*, QUE+8!
ZTSAVE	EXIT+3!
ZTSAVE("ALPDIV"	QUE+3*
ZTSAVE("ALPHLINI("	QUE+5*
ZTSAVE("ALPHLL("	QUE+4*
ZTSAVE("ALPWKS"	QUE+3*
ZTSK	QUE+7, QUE+8!

Customize PDF page

Package: Barcode Medication Administration