| [613] | 1 | XUMFMFE ;OIFO-OAK/RAM - HL7 MFE SEGMENT ;8/23/95
|
|---|
| 2 | ;;8.0;KERNEL;**217**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;routine copied from VAFHLMFE, written by ALB/CM,JLU
|
|---|
| 5 | ;
|
|---|
| 6 | MFE(EVENT,MFN,EDT,CODE) ;
|
|---|
| 7 | ;
|
|---|
| 8 | ;Input Parameters:
|
|---|
| 9 | ;EVENT - Record-level Event Code. If not defined, the default is MAD (always add record to master file
|
|---|
| 10 | ;MFN - MFN Control ID. If not defined, the default is null
|
|---|
| 11 | ;EDT - Effective date/time. If not defined, the default is today. This should be in FM date/time format.
|
|---|
| 12 | ;CODE - REQUIRED! Primary Key Value. If not defined, segment will not be built and record will not be sent.
|
|---|
| 13 | ;
|
|---|
| 14 | ;Output:
|
|---|
| 15 | ;MFE - contains the segment if successful
|
|---|
| 16 | ; - contains -1^error message if unsuccessful
|
|---|
| 17 | ;
|
|---|
| 18 | I '$D(EVENT) S EVENT="MAD"
|
|---|
| 19 | I '$D(MFN) S MFN=""
|
|---|
| 20 | I '$D(EDT) D NOW^%DTC S EDT=$P(%,".") K %
|
|---|
| 21 | I '$D(CODE) S MFE="-1^No Primary Key Value" G EXIT
|
|---|
| 22 | N MFE
|
|---|
| 23 | S MFE="MFE"_HLFS_EVENT_HLFS_MFN_HLFS_$$HLDATE^HLFNC(EDT)_HLFS_CODE
|
|---|
| 24 | EXIT ;
|
|---|
| 25 | Q MFE
|
|---|
| 26 | ;
|
|---|
| 27 | EN(ENC,FS,QUOTS,ARY) ;formats the MFE segment
|
|---|
| 28 | ;INPUTS ENC - the encoding characters for the segments
|
|---|
| 29 | ; FS - the field separators to be used
|
|---|
| 30 | ; QUOTS - what to use as double quots
|
|---|
| 31 | ; ARY - this array contains the data to be place in the
|
|---|
| 32 | ; MFE segment. The subscripts of the array should
|
|---|
| 33 | ; be the sequence number of the data element in the
|
|---|
| 34 | ; array.
|
|---|
| 35 | ; Ex. X(1)=Record Level Event Code
|
|---|
| 36 | ; X(2)=MFN Control ID
|
|---|
| 37 | ; X(3)=Effective Date/time
|
|---|
| 38 | ; etc.
|
|---|
| 39 | ;OUTPUT
|
|---|
| 40 | ; 0^description if there was an error.
|
|---|
| 41 | ; the formatted segment if successful.
|
|---|
| 42 | N SEG,LP
|
|---|
| 43 | I '$D(ENC)!('$D(FS))!('$D(QUOTS))!('$D(ARY)) S SEG="0^Missing parameters." G MFIQ
|
|---|
| 44 | I $D(@ARY)<10 S SEG="0^Field array not populated." G MFIQ
|
|---|
| 45 | S SEG=""
|
|---|
| 46 | F LP=0:0 S LP=$O(@ARY@(LP)) Q:'LP S $P(SEG,FS,LP+1)=@ARY@(LP)
|
|---|
| 47 | S $P(SEG,FS,1)="MFE"
|
|---|
| 48 | MFIQ Q SEG
|
|---|
