Routine: AFJXALRT

Information

AFJXALRT ;FO-OAKLAND/GMB-PROCESS INFO AND ALERT USER ;3/17/99 13:42

Name	Comments	DBIA/ICR reference
ENTER	;
CLOSED(AXFROM)	; Returns 1 if sending site is closed; 0 otherwise.
PROCESS(AXRQXMZ)	; Process data incoming
INIT	;
GATHER	; Gather the requested data on the patient (it is sent to spool)
TRANSFER	; Transfer the spool data to the temp global
FINISH	; Send the data and clean up.
SEND	; Send the data to the requestor
PERSON(DFN)	; Get personal demographic info about the patient
OPENDEV	; Set IOP to a unique name to avoid duplicates
CLOSDEV	; Close the spooler device and get device info ; AXSPDOC = IEN in file 3.51 of the Spool Document ; AXSPDATA = IEN in file 3.519 of the Spool Data
CHKSEGS	; Check to see if all components exist before proceeding
BRIEF	; MED12 - EXTRACT 12 MONTHS OF ALL SEGMENTS
TOTAL	; EXTRACT ALL SEGMENTS WITH NO TIME LIMITATION
NHBP	; PHAR12 - EXTRACT 12 MONTHS OF PHARMACY INFORMATION
PHARM	; EXTRACT THE WHOLE PHARMACY
EXTRACT	; Extract one component
FAIL(AXERR)	; Note the error.
SENSIT	; Data for sensitive patient was accessed, ; so notify DG SENSITIVITY MAILGROUP
AUDIT	;
DUPLI	; Look for the same message number to avoid duplicate tracking entries
NEW	;