source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEGT2.m@ 1713

EASEGT2 ;ALB/PJH - PROCESS INCOMING MFN TYPE HL7 MSGS ; 11/27/07 3:03pm
 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**71**;15-MAR-01;Build 18
 ;
 ; CLONED FROM DGENEGT2 (ESR EVENT DRIVER)
 ;
MFN ; Description: This entry point is the handler for incoming MFN type
 ; HL7 messages.  This entry point is called from the PROCESSING ROUTINE
 ; field of the HL7 MESSAGE (multiple) field of the #771 file entry.
 ;
 ;  Input:
 ;   The following HL7 variables are set when the DHCP Application
 ;   processing routine is invoked:
 ;      HLDA - the internal entry number for the entry created in
 ;             file #772.
 ;     HLDAN - the name of the receiving application from the HL7 DHCP
 ;             APPLICATION #771 file
 ;     HLDAP - ien of the receiving application from the HL7 DHCP
 ;             APPLICATION #771 file
 ;      HLDT - date/time message was received in internal fileman format
 ;     HLDT1 - date/time message was received in HL7 format
 ;     HLECH - HL7 Encoding Characters from the 'EC' node of file #771
 ;      HLFS - HL7 Field Separator from the 'FS' node of file #771
 ;     HLMID - HL7 message control ID of the message received
 ;     HLMTN - 3-7 character message type of the message received
 ;    HLNDAP - Non-DHCP Application Pointer from file #770
 ;   HLNDAP0 - Zero node from file #770 corresponding to HLNDAP
 ;       HLQ - Double quotes ("") for use in building HL7 segments
 ;     HLVER - HL7 version number of the HL7 protocol that was used to
 ;             build the message received
 ;
 ;  other HL7 variables used:
 ;     HLEVN - number of HL7 events included in the HL7 message 
 ;     HLSDT - a flag that indicates that the data to be sent is
 ;             stored in the ^TMP("HLS") global array.
 ;   HLTRANS - existence of this variable indicates that the incoming
 ;             HL7 message is being processed by the HLSERV routine and
 ;             VA MailMan is the lowere level protocol being used.
 ;
 ;
 N EVENT,MSGID,SEG
 N CNT,HL,IVMRTN,SEGCNT
 ;
 ; SET UP WORK GLOBAL WITH INCOMING MESSAGE
 S IVMRTN="DGENEGT2"
 K ^TMP($J,IVMRTN)
 F SEGCNT=1:1 X HLNEXT Q:HLQUIT'>0  D
 .S CNT=0
 .S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE
 .F  S CNT=$O(HLNODE(CNT)) Q:'CNT  D
 ..S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE(CNT)
 S HLDA=HLMTIEN
 ;
 ; INITIALIZE HL7 VARIABLES
 S HLEID="EAS ESR "_$P($$SITE^VASITE,"^",3)_" MFN-ZEG SERVER"
 S HLEID=$O(^ORD(101,"B",HLEID,0))
 D INIT^HLFNC2(HLEID,.HL)
 S HLEIDS=$O(^ORD(101,HLEID,775,"B",0))
 ;
 D NXTSEG^DGENUPL(HLDA,0,.SEG)
 Q:(SEG("TYPE")'="MSH")
 S EVENT=$P(SEG(9),$E(HLECH),2)
 ;
 I EVENT="ZEG" D
 .S MSGID=SEG(10)
 .D EGT(HLDA,MSGID)
 ;
 K ^TMP($J,IVMRTN)
 Q
 ;
 ;
EGT(MSGIEN,MSGID) ;
 ; Description:  This procedure is used to process an MFN~ZEG message.
 ; It uploads the enrollment group threshold (EGT) data. An HL7
 ; Master File Acknowledgement (MFK) will be returned.
 ;
 ;  Input:
 ;   MSGIEN - the internal entry number of the HL7 message in the
 ;            HL7 MESSAGE TEXT (#772) file
 ;    MSGID - the message control id from the MSH segment
 ;
 ; Output: None
 ;
 N CURLINE,ERRCOUNT,SEG
 ;
 ; initialize HL7 variables
 S HLSDT="IVMQ"  ; subscript in ^TMP( global for MFK message
 K ^TMP("HLA",$J)
 ;
 ; init variables
 S ERRCOUNT=0  ; used to indicate error
 S CURLINE=1
 ;
 ; process master file notification msg
 D MFNZEG(MSGIEN,MSGID,.CURLINE,.ERRCOUNT)
 ;
 ; transmit master file application acknowledgment (MFK)
 S HLEVN=$S(+$G(ERRCOUNT):+$G(ERRCOUNT),1:1)
 S HLARYTYP="GM",HLFORMAT=1
 D GENACK^HLMA1(HLEID,HLMTIENS,HLEIDS,HLARYTYP,HLFORMAT,.HLRESLTA)
 ;
 Q
 ;
 ;
MFNZEG(MSGIEN,MSGID,CURLINE,ERRCOUNT) ;
 ; Description:  This procedure is used to process a MFN~ZEG msg.
 ; 
 ;  Input:
 ;     MSGIEN - the internal entry number of the HL7 message in the
 ;              HL7 MESSAGE TEXT (#772) file
 ;      MSGID - message control id of HL7 msg in the MSH segment
 ;    CURLINE - the subscript of the MSH segment of the current message
 ;              (pass by reference)
 ;
 ; Output:
 ;   CURLINE - upon leaving the procedure this parameter should be set to
 ;             the end of the current message. (pass by reference)
 ;  ERRCOUNT - set if error encountered (pass by reference)
 ;
 N DGEGT,DGMFI,DGMFE,ERRMSG,OLDEGT
 ;
 ; drops out of DO block on error
 D
 .; parse the message
 .Q:'$$PARSE(MSGIEN,MSGID,.CURLINE,.ERRCOUNT,.DGEGT,.DGMFI,.DGMFE)
 .;
 .; get the current EGT record if it exists
 .I $$GET^DGENEGT($$FINDCUR^DGENEGT(),.OLDEGT)
 .;
 .; add assumed values to the EGT record containing the update
 .S DGEGT("ENTDATE")=$$NOW^XLFDT  ; set to currnet date/time
 .S DGEGT("SOURCE")=1  ; set source of EGT to 'HEC'
 .;
 .; perform field validation checks on the EGT record
 .I '$$VALID^DGENEGT(.DGEGT,.ERRMSG) D  Q
 ..D ADDERROR(MSGID,ERRMSG,.ERRCOUNT,.DGMFI,.DGMFE)
 .;
 .; store enrollment group threshold (EGT) record 
 .D UPLDEGT^DGENEGT3(.DGEGT)
 .;
 .; if no error encountered, create an 'AA' MFK
 .D ACCEPT(MSGID,.DGMFI,.DGMFE)
 .;
 .; send local EGT notification msg
 .D NOTIFY^DGENEGT1(.DGEGT,.OLDEGT)
 ;
 Q
 ;
 ;
PARSE(MSGIEN,MSGID,CURLINE,ERRCOUNT,DGEGT,DGMFI,DGMFE) ;
 ; Description: This function is used to parse the HL7 segments of the message.
 ;
 ;  Input:
 ;     MSGIEN - the internal entry number of the HL7 message in the
 ;              HL7 MESSAGE TEXT (#772) file
 ;      MSGID - message control id of HL7 msg in the MSH segment
 ;    CURLINE - the subscript of the MSH segment of the current message
 ;              (pass by reference)
 ;
 ; Output:
 ;  Function Value: Returns 1 on success, 0 on failure
 ;     DGEGT - array containing the EGT record (pass by reference)
 ;     DGMFI - array containing fields of MFI segment needed for
 ;             MFK (pass by reference)
 ;     DGMFE - array containing fields of MFE segment needed for
 ;             MFK (pass by reference)
 ;  ERRCOUNT - set if error encountered (pass by reference)
 ;
 N ERROR,SEG
 S ERROR=0
 ;
 K DGEGT,DGMFI,DGMFE
 S (DGMFI,DGMFE)=""
 ;
 F SEG="MFI","MFE","ZEG" D  Q:ERROR
 .D NXTSEG^DGENUPL(MSGIEN,.CURLINE,.SEG)
 .I SEG("TYPE")=SEG D
 ..D @(SEG_"^DGENEGT3")
 .E  D
 ..D ADDERROR(MSGID,SEG_" SEGMENT MISSING",.ERRCOUNT,.DGMFI,.DGMFE)
 ..S ERROR=1
 ;
 Q $S(ERROR:0,1:1)
 ;
 ;
ADDERROR(MSGID,ERRMSG,ERRCOUNT,DGMFI,DGMFE) ;
 ; Description - This procedure writes an MFK - Application Error (AE)
 ; to the global that is used in the transmission of the 'MFK' msg.
 ;
 ;  Inputs:
 ;      MSGID - message control id of HL7 msg in the MSH segment
 ;     ERRMSG - the error msg text
 ;   ERRCOUNT - count of errors written (pass by reference)
 ;      DGMFI - array containing fields of MFI segment received, needed
 ;              for MFK (pass by reference)
 ;      DGMFE - array containing fields of MFI segment received, needed
 ;              for MFK (pass by reference)
 ;
 ; Outputs:
 ;   ^TMP("HLS",$J,I) - global array containing all segments of
 ;      the HL7 message that the receiving application wishes to send
 ;      as response. The HLSDT variable is a flag that indicates that
 ;      the data to be sent is stored in in the ^TMP("HLS") global
 ;      array. The variable (I) is sequential number. 
 ;
 S ERRCOUNT=+$G(ERRCOUNT)
 ;
 ; MSA segment
 S ^TMP("HLA",$J,(ERRCOUNT*2)+1)="MSA"_HLFS_"AE"_HLFS_MSGID_HLFS_ERRMSG
 ;
 ; MFI segment
 S ^TMP("HLA",$J,(ERRCOUNT*2)+2)="MFI"_HLFS_$G(DGMFI("MASTERID"))_HLFS_HLFS_$G(DGMFI("EVENT"))
 ;
 ; MFA segment
 S ^TMP("HLA",$J,(ERRCOUNT*2)+3)="MFA"_HLFS_$G(DGMFE("RECEVNT"))_HLFS_$G(DGMFE("CNTRLNUM"))_HLFS_HLFS_"U"_HLFS_$G(DGMFE("PRIMKEY"))
 S ERRCOUNT=ERRCOUNT+1
 Q
 ;
 ;
ACCEPT(MSGID,DGMFI,DGMFE) ;
 ; Description - This procedure writes an MFK - Application Accept (AA)
 ; to the global that is used in the transmission of the 'MFK' msg.
 ;
 ;  Inputs:
 ;      MSGID - message control id of HL7 msg in the MSH segment
 ;      DGMFI - array containing fields of MFI segment received, needed
 ;              for MFK (pass by reference)
 ;      DGMFE - array containing fields of MFI segment received, needed
 ;              for MFK (pass by reference)
 ;
 ; Outputs:
 ;   ^TMP("HLS",$J,HLSDT,I) - global array containing all segments of
 ;      the HL7 message that the receiving application wishes to send
 ;      as response. The HLSDT variable is a flag that indicates that
 ;      the data to be sent is stored in in the ^TMP("HLS") global
 ;      array. The variable (I) is sequential number. 
 ;
 N DGCOUNT
 S DGCOUNT=1   ; sequential number used as array subscript
 ;
 ; MSA segment
 S DGCOUNT=DGCOUNT+1
 S ^TMP("HLA",$J,DGCOUNT)="MSA"_HLFS_"AA"_HLFS_MSGID
 ;
 ; MFI segment
 S DGCOUNT=DGCOUNT+1
 S ^TMP("HLA",$J,DGCOUNT)="MFI"_HLFS_$G(DGMFI("MASTERID"))_HLFS_HLFS_$G(DGMFI("EVENT"))
 ;
 ; MFA segment
 S DGCOUNT=DGCOUNT+1
 S ^TMP("HLA",$J,DGCOUNT)="MFA"_HLFS_$G(DGMFE("RECEVNT"))_HLFS_$G(DGMFE("CNTRLNUM"))_HLFS_HLFS_"S"_HLFS_$G(DGMFE("PRIMKEY"))
 Q