VAFHLMFI ;ALB/CM,JLU-HL7 MFI SEGMENT ;8/23/95
;;5.3;Registration;**149**;Aug 13, 1993
;;5.3;Registration;**Philly 2 Prototype**;Aug 13, 1993
;
;Input Parameters:
;ID - Master File Identifier (required)
;APP - Master File Application Identifier. (required)
;EVENT - File-Level Event Code. If not defined, the default will be "REP" to replace current version of this master file with the version contained in the message.
;ENDT - Entered date/time. If not defined, the default is today. This should be in FM date/time format.
;EFFDT - Effective date/time. If not defined, the default is today. This should be in FM date/time format.
;RESP - Response Level Code. If not defined, will be "NE" Never, No application level response needed.
;
;Output:
;MFI - contains the segment if successful
; - contains -1^error message if unsuccessful
;
MFI(ID,APP,EVENT,ENDT,EFFDT,RESP) ;
;
I '$D(ID)!('$D(APP)) Q "-1^Missing Required Parameter(s)"
I '$D(EVENT) S EVENT="REP"
I '$D(ENDT) D NOW^%DTC S ENDT=$P(%,".") K %
I '$D(EFFDT) D NOW^%DTC S EFFDT=$P(%,".") K %
I '$D(RESP) S RESP="NE"
;
N MFI
S MFI="MFI"_HLFS_ID_HLFS_APP_HLFS_EVENT_HLFS_$$HLDATE^HLFNC(ENDT)_HLFS_$$HLDATE^HLFNC(EFFDT)_HLFS_RESP
Q MFI
;
;
EN(ENC,FS,QUOTS,ARY) ;generic call to create MFI segments.
;
;INPUTS ENC - the encoding characters for the segments
; FS - the field separators to be used
; QUOTS - what to use as double quots
; ARY - this array contains the data to be place in the
; MFI segment. The subscripts of the array should
; be the sequence number of the data element in the
; array.
; Ex. X(1)=master fiel identifier
; X(2)=Master File Application Identifier
; X(3)=File Level Event Code
; etc.
;OUTPUT
; 0^description if there was an error.
; the formatted segment if successful.
;
N SEG,LP
I '$D(ENC)!('$D(FS))!('$D(QUOTS))!('$D(ARY)) S SEG="0^Missing parameters." G MFIQ
I $D(@ARY)<10 S SEG="0^Field array not populated." G MFIQ
S SEG=""
F LP=0:0 S LP=$O(@ARY@(LP)) Q:'LP S $P(SEG,FS,LP+1)=@ARY@(LP)
S $P(SEG,FS,1)="MFI"
MFIQ Q SEG
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFHLMFI 2255 printed Nov 22, 2024@18:13 Page 2
VAFHLMFI ;ALB/CM,JLU-HL7 MFI SEGMENT ;8/23/95
+1 ;;5.3;Registration;**149**;Aug 13, 1993
+2 ;;5.3;Registration;**Philly 2 Prototype**;Aug 13, 1993
+3 ;
+4 ;Input Parameters:
+5 ;ID - Master File Identifier (required)
+6 ;APP - Master File Application Identifier. (required)
+7 ;EVENT - File-Level Event Code. If not defined, the default will be "REP" to replace current version of this master file with the version contained in the message.
+8 ;ENDT - Entered date/time. If not defined, the default is today. This should be in FM date/time format.
+9 ;EFFDT - Effective date/time. If not defined, the default is today. This should be in FM date/time format.
+10 ;RESP - Response Level Code. If not defined, will be "NE" Never, No application level response needed.
+11 ;
+12 ;Output:
+13 ;MFI - contains the segment if successful
+14 ; - contains -1^error message if unsuccessful
+15 ;
MFI(ID,APP,EVENT,ENDT,EFFDT,RESP) ;
+1 ;
+2 IF '$DATA(ID)!('$DATA(APP))
QUIT "-1^Missing Required Parameter(s)"
+3 IF '$DATA(EVENT)
SET EVENT="REP"
+4 IF '$DATA(ENDT)
DO NOW^%DTC
SET ENDT=$PIECE(%,".")
KILL %
+5 IF '$DATA(EFFDT)
DO NOW^%DTC
SET EFFDT=$PIECE(%,".")
KILL %
+6 IF '$DATA(RESP)
SET RESP="NE"
+7 ;
+8 NEW MFI
+9 SET MFI="MFI"_HLFS_ID_HLFS_APP_HLFS_EVENT_HLFS_$$HLDATE^HLFNC(ENDT)_HLFS_$$HLDATE^HLFNC(EFFDT)_HLFS_RESP
+10 QUIT MFI
+11 ;
+12 ;
EN(ENC,FS,QUOTS,ARY) ;generic call to create MFI segments.
+1 ;
+2 ;INPUTS ENC - the encoding characters for the segments
+3 ; FS - the field separators to be used
+4 ; QUOTS - what to use as double quots
+5 ; ARY - this array contains the data to be place in the
+6 ; MFI segment. The subscripts of the array should
+7 ; be the sequence number of the data element in the
+8 ; array.
+9 ; Ex. X(1)=master fiel identifier
+10 ; X(2)=Master File Application Identifier
+11 ; X(3)=File Level Event Code
+12 ; etc.
+13 ;OUTPUT
+14 ; 0^description if there was an error.
+15 ; the formatted segment if successful.
+16 ;
+17 NEW SEG,LP
+18 IF '$DATA(ENC)!('$DATA(FS))!('$DATA(QUOTS))!('$DATA(ARY))
SET SEG="0^Missing parameters."
GOTO MFIQ
+19 IF $DATA(@ARY)<10
SET SEG="0^Field array not populated."
GOTO MFIQ
+20 SET SEG=""
+21 FOR LP=0:0
SET LP=$ORDER(@ARY@(LP))
if 'LP
QUIT
SET $PIECE(SEG,FS,LP+1)=@ARY@(LP)
+22 SET $PIECE(SEG,FS,1)="MFI"
MFIQ QUIT SEG
