Routine: ALPBCBU

Information

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

Source file <ALPBCBU.m>

Package	Total	Call Graph
Barcode Medication Administration	1	($$INI,$$IPH,$$MEDL,$$PMOV)^ALPBINP
Inpatient Medications	1	EN^PSJBCBU
Kernel	1	SETUP^XQALERT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBML
Inpatient Medications	1	PSJHL5

Name	Comments	DBIA/ICR reference
NURV(ALDFN,ALPORD)	;Use this entry to send verifying nursing.
ERRLG	;Error Log Message
IPH(ALPMSG)	;CAPTURE MESSAGE ARRAY FROM PHARMACY
PERR	;Process the error
MEDL(ALPML)	;Use this entry to send MedLog messages
PMOV	;Entry Point to send patient movement

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"PSB BCBU Contingency Error",! Line Location: PERR+1
Function Call: WRITE	Prompt: ?10,$P(XQADATA,U,2)_" / "_$P(XQADATA,U,3) Line Location: PERR+2

Name	Line Occurrences
ERRLG	MEDL+7, PMOV+8

Name	Field # of Occurrence
ALDFN	NURV~, NURV+4, NURV+9
ALPB	NURV+8!, NURV+9, NURV+20!
ALPB(	NURV+11, NURV+12, NURV+13, NURV+14, NURV+15, NURV+17
ALPBI	NURV+10, NURV+11, NURV+12, NURV+13, NURV+14, NURV+15, NURV+20!
ALPML	MEDL~, MEDL+3, MEDL+6
ALPMSG	IPH~, IPH+2, IPH+5
ALPORD	NURV~, NURV+5, NURV+9
ALPRSLT	IPH+1~, IPH+5, MEDL+1~, MEDL+6, MEDL+7, NURV+1~, NURV+18, PMOV+1~, PMOV+7, PMOV+8 , ERRLG+5
>> DFN	PMOV+4, PMOV+7
>> DGPMA	PMOV+7
>> DGPMTYP	PMOV+4, PMOV+7
>> DGPMUC	PMOV+4, PMOV+6, PMOV+7
IOF	PERR+1
>> MSCTR	NURV+17*
>> MSH	NURV+12*, NURV+16, NURV+17
>> ORC	NURV+15*
>> PID	NURV+13*
>> PV1	NURV+14*
U	MEDL+7, PMOV+7, PMOV+8, PERR+2
XQA	ERRLG+2!
XQA("G.PSB BC	BU ERRORS" , ERRLG+3*
XQADATA	ERRLG+2!, ERRLG+5*, PERR+2
XQAFLAG	ERRLG+2!
XQAID	ERRLG+2!
XQAMSG	ERRLG+2!, ERRLG+4*
XQAOPT	ERRLG+2!
XQAROU	ERRLG+2!, ERRLG+6*