AFJXTRF ;FO-OAKLAND/GMB-AFJXALRT (cont'd) ;2/13/01 14:59
Source file <AFJXTRF.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SPL2TMP | ; Transfer the lines from the spool document to the temp global
; Incoming: AXPID,AXTI,AXSPDOC,AXSPDATA,AXRQFROM |
|
CHKDATA(AXSPDATA,AXPID) | ; Patient ID Filter
|
|
VALID(AXDREC,AXPID) | ; Make sure we've got the right patient.
; AXDREC - Patient ID line from health summary. ; AXPID("NAME") - Patient Name ; AXPID("S-S-N") - Patient SSN ; AXPID("DOB") - Patient Date of Birth ; If AXDREC contains all three Patient ID's then AXFLD will equal zero. |
|
BADMSG(AXPID,AXBAD) | ; Send message if PatID Filter Blocked a Data Request.
; Make sure AFJX PATID FILTER BLOCK mail group exists and has members |