Routine: ALPBIND

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

Call Graph

Kernel

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

Barcode Medication Administration

($$INI,$$MEDL)^ALPBINP GET^ALPBPARM

VA Fileman

^%DT ^DIR

Inpatient Medications

(EN,EN2)^PSJBCBU

Toolkit

$$GET^XPAR

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

Package

Total

Caller Graph

Barcode Medication Administration

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

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

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: