87 lines
3.5 KiB
Mathematica
87 lines
3.5 KiB
Mathematica
HLMSG ;ALB/CJM-HL7 - APIs for files 772/773 ;02/04/2004
|
|
;;1.6;HEALTH LEVEL SEVEN;**118**;Oct 13, 1995
|
|
;
|
|
GETMSG(IEN,MSG) ;
|
|
;Description: given the message ien=MSGIEN (required), it returns the MSG array containing information about the message, defined below.
|
|
;Input:
|
|
; IEN - the ien of the message in file 773
|
|
;Output:
|
|
; Function returns 1 on success, 0 on failure
|
|
; MSG (pass by reference, required) These are the subscripts returned:
|
|
; "BATCH" = 1 if this is a batch message, 0 if not
|
|
; "CURRENT MESSAGE" - defined only for batch messages - a counter used during building and parsing messages to indicate the current message. It will be set to 0 initially.
|
|
; "BODY" - ptr to file 772 which contains the body of the message.
|
|
; "CURRENT LINE" - a counter used during building and parsing of
|
|
; messages to indicate the current line within the message. For
|
|
; batch messages where each message within the batch is stored
|
|
; separately, this field indicates the position within the current
|
|
; individual message
|
|
; "HDR" - the header segment, NOT parsed, as a sequence of lines HDR(i)
|
|
; "IEN" - ien, file 773
|
|
;
|
|
K MSG
|
|
Q:'$G(IEN) 0
|
|
N I
|
|
S MSG("IEN")=IEN
|
|
S MSG("BODY")=$P($G(^HLMA(IEN,0)),"^")
|
|
Q:'MSG("BODY") 0
|
|
;
|
|
S MSG("BATCH")=$S($P(^HL(772,MSG("BODY"),0),"^",14)="B":1,1:0)
|
|
I MSG("BATCH") S MSG("BATCH","CURRENT MESSAGE")=0
|
|
S MSG("CURRENT LINE")=0
|
|
S I=0
|
|
F S I=$O(^HLMA(IEN,"MSH",I)) Q:'I S MSG("HDR",I)=$G(^HLMA(IEN,"MSH",I,0))
|
|
Q 1
|
|
;
|
|
NEXTSEG(MSG,SEG) ;
|
|
;Description: Returns the next segment as a set of lines stored in SEG.
|
|
;Input:
|
|
; MSG (pass by reference, required)
|
|
;Output:
|
|
; Function returns 1 on success, 0 on failure (no more segments)
|
|
; SEG (pass by reference, required)
|
|
;
|
|
K SEG
|
|
Q:MSG("CURRENT LINE")=-1 0
|
|
I 'MSG("BATCH") D
|
|
.N I,J
|
|
.S J=1,I=MSG("CURRENT LINE")
|
|
.F S I=$O(^HL(772,MSG("BODY"),"IN",I)) Q:'I Q:$G(^HL(772,MSG("BODY"),"IN",I,0))="" S SEG(J)=^HL(772,MSG("BODY"),"IN",I,0),J=J+1
|
|
.I 'I S MSG("CURRENT LINE")=-1
|
|
.I I S MSG("CURRENT LINE")=I
|
|
I MSG("BATCH") D
|
|
.N I,J
|
|
.S I=MSG("CURRENT LINE")
|
|
.F S I=$O(^HL(772,MSG("BODY"),"IN",I)) Q:'I I $G(^HL(772,MSG("BODY"),"IN",I,0))'="" D Q
|
|
..Q:$E($G(^HL(772,MSG("BODY"),"IN",I,0)),1,3)="MSH"
|
|
..I $E($G(^HL(772,MSG("BODY"),"IN",I,0)),1,3)="BTS" S MSG("CURRENT LINE")=-1,MSG("BATCH","CURRENT MESSAGE")=-1 Q
|
|
..S SEG(1)=$G(^HL(772,MSG("BODY"),"IN",I,0))
|
|
..S J=2
|
|
..F S I=$O(^HL(772,MSG("BODY"),"IN",I)) Q:'I Q:$G(^HL(772,MSG("BODY"),"IN",I,0))="" S SEG(J)=^HL(772,MSG("BODY"),"IN",I,0),J=J+1
|
|
.I 'I S MSG("CURRENT LINE")=-1
|
|
.I I S MSG("CURRENT LINE")=I-1
|
|
Q $S($D(SEG):1,1:0)
|
|
;
|
|
NEXTMSG(MSG,HDR) ;
|
|
;Advances to the next message in the batch
|
|
;Input:
|
|
; MSG (pass by reference, required) - defined by $$GETMSG()
|
|
;Output:
|
|
; Function returns 1 on success, 0 if no more messages
|
|
; MSH - updated with current position in the message
|
|
; HDR (pass by reference, required) returns the header as an array of 2lines HDR(1),HDR(2)
|
|
;
|
|
K HDR
|
|
N ARY,I,J
|
|
S ARY="^HL(772,"_MSG("BODY")_",""IN"")"
|
|
S I=MSG("CURRENT LINE")
|
|
F S I=$O(@ARY@(I)) Q:'I D:$G(@ARY@(I,0))'="" Q:$D(HDR) Q:MSG("CURRENT LINE")=-1
|
|
.I $E($G(@ARY@(I,0)),1,3)="BTS" S MSG("CURRENT LINE")=-1,MSG("BATCH","CURRENT MESSAGE")=-1 Q
|
|
.I $E($G(@ARY@(I,0)),1,3)="MSH" D
|
|
..S J=1
|
|
..S HDR(J)=$G(@ARY@(I,0)),MSG("CURRENT LINE")=I,MSG("BATCH","CURRENT MESSAGE")=$G(MSG("BATCH","CURRENT MESSAGE"))+1
|
|
..F S I=$O(@ARY@(I)) Q:'I Q:$G(@ARY@(I,0))="" S J=J+1,HDR(J)=$G(@ARY@(I,0))
|
|
.E D
|
|
..F S I=$O(@ARY@(I)) Q:'I Q:$G(@ARY@(I,0))=""
|
|
Q $S($D(HDR):1,1:0)
|