Routine: ALPBINP

Information

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

Source file <ALPBINP.m>

Name	Comments	DBIA/ICR reference
IPH(MSG)	;CAPTURE MESSAGE ARRAY FROM PHARMACY
SEED	;Entry point for ^ALPBIND
EXIT	;EXIT and kill
INI()	;INTIAL SET UP ENTRY
INIT	;CALL HL7 TO INITIALIZE MESSAGE VARIABLES
SEND	;CALL HL7 TO TRANSMIT SINGLE MESSAGE
AL1	;ALLERGY SEGMENT BUILD
RXE	;
PDIV	;PATIENT DIVISION
MEDL(ALPML)	;Use this entry to send MedLog messages
ADMQ	;Need to que a single patient init for admissions
PMOV(ALPDFN,ALPTYP,ALPTT,ALPBMDT)	;Entry Point to send patient movement
CDIV(ML)	; Return DIVISION associated with input CLINIC
CDIVOR(DFN,ORDER)	; Return DIVISION associated with input ORDER
FINDGIVE(IEN)	;Finds the last Give date/time in the Audit log *87 ; When a Remove action occurs and saved to 53.79, the Give Action ; Status & Action Date/Time are overwritten. This Function will ; retrieve that Give info.