Routine: ALPBIND

Information

ALPBIND ;OIFO-DALLAS/SED/KC/MW BCMA-BCBU INPT TO HL7 INIT ;5/2/2002

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	(,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT SETUP^XQALERT
Barcode Medication Administration	2	($$INI,$$MEDL)^ALPBINP GET^ALPBPARM
VA Fileman	2	^%DT ^DIR
Inpatient Medications	1	(EN,EN2)^PSJBCBU
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Barcode Medication Administration	3	ALPBIN PSB BCBU INIT SINGLE PT PSB BCBU INIT WRKSTN DFT

Entry Points

Name	Comments	DBIA/ICR reference
OPT	;Entry point for the option
EN	;Loop through the inpatient list.
PAT	;
MESS	;BUILD AND SEND MESSAGE
DFT
ALLWKS	;If no then set allow the user to select the workstation
SNDPT	;Send a Single Patient
QUE	;Que the job
WRKSTN	;Now select which workstations to be initialized
LP	;Multiple entries
MLOG	;Need to loop though the Med log file to get all med logs
EXIT	;

External References

Name	Field # of Occurrence
^%DT	MLOG+5, PAT+4
^%ZTLOAD	QUE+6
$$S^%ZTLOAD	EN+16, PAT+16
$$INI^ALPBINP	MESS+11
$$MEDL^ALPBINP	MLOG+13
GET^ALPBPARM	DFT+1, EN+14
^DIR	ALLWKS+5, LP+5, SNDPT+3
EN^PSJBCBU	MESS+2
EN2^PSJBCBU	PAT+6
$$FMTE^XLFDT	EN+2, EN+20
$$NOW^XLFDT	EN+2, EN+20
$$GET^XPAR	MLOG+3, PAT+2
SETUP^XQALERT	EN+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No workstations defined for default " Line Location: DFT+2
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
Function Call: WRITE	Prompt: !!,"Please Hold On While I send the orders",!! Line Location: SNDPT+8
Routine Call	DIR Line Location: ALLWKS+5 LP+5 SNDPT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	EN+8, EN+10
^DPT("CN"	EN+6, EN+18
^PSB(53.79 - [#53.79]	MLOG+2, MLOG+8, MLOG+10, MLOG+11
^TMP("PSJ"	EXIT+5!
^TMP("PSJBU"	EXIT+5!, PAT+1!, PAT+7, PAT+9, PAT+10, PAT+11

Label References

Name	Line Occurrences
ALLWKS	DFT+3, WRKSTN+8
EXIT	DFT+2, DFT+6
LP	WRKSTN+6
MESS	PAT+13
MLOG	PAT+15
PAT	EN+18
QUE	DFT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBIND

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: