VAQCON97.m

VAQCON97 ;ALB/JRP - MESSAGE CONSTRUCTION;19-APR-93

 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

DATA10(TRANPTR,ROOT,MESSNUM,ARRAY,OFFSET) ;BUILD DATA BLOCK FOR VERSION 1.0

 ;INPUT  : TRANPTR - Pointer to VAQ - TRANSACTION file

 ;         ROOT - Location of Extraction Arrays (full global reference)

 ;         MESSNUM - Message number to place message into

 ;                   (if 0, message will be placed in ARRAY)

 ;         ARRAY - Array to store message in (full global reference)

 ;         OFFSET - Where to begin placing information (defaults to 0)

 ;OUTPUT : N - Number of lines in message

 ;        -1^Error_Text - Error

 ;NOTES  : If MESSNUM=0, then the message will be placed into

 ;           ARRAY(LineNumber)=Line_of_info

 ;         If MESSNUM>0 then the message will be placed into

 ;           ^XMB(3.9,MESSNUM,2,LineNumber,0)=Line_of_info

 ;       : The first subscript in ROOT must be the segment abbreviation

 ;         (i.e. ROOT(SegmentAbbreviation)).  This is required to

 ;         identify the segments.

 ;

 ;CHECK INPUT

 S TRANPTR=+$G(TRANPTR)

 Q:(('TRANPTR)!('$D(^VAT(394.61,TRANPTR)))) "-1^Did not pass a valid pointer to VAQ - TRANSACTION file"

 S ROOT=$G(ROOT)

 S MESSNUM=+$G(MESSNUM)

 I (('MESSNUM)&($G(ARRAY)="")) Q "-1^Did not pass message number or reference to array"

 I (MESSNUM) Q:('$D(^XMB(3.9,MESSNUM))) "-1^Valid message number not passed"

 S OFFSET=+$G(OFFSET)

 ;DECLARE VARIABLES

 N TMP,X,LINE,STATUS,TYPE,SEGABB,FILE,FIELD,SEQ,INFO,VALUE,SEQFIELD

 S LINE=OFFSET

 ;DETERMINE STATUS & TYPE

 S TMP=$$STATYPE^VAQCON1(TRANPTR)

 Q:($P(TMP,"^",1)="-1") TMP

 S STATUS=$P(TMP,"^",1)

 S TYPE=$P(TMP,"^",2)

 ;MAKE SURE MESSAGE SHOULD CONTAIN DATA

 Q:((TYPE'="RES")&(TYPE'="UNS")) "-1^Message type does not return data"

 Q:((STATUS'="VAQ-RSLT")&(STATUS'="VAQ-UNSOL")) "-1^Message type does not return data"

 Q:(TYPE="REC") "-1^Transaction is being received, not transmitted"

 ;PLACE MINIMUM INFORMATION INTO MESSAGE

 D MIN10^VAQCON98

 ;PLACE MAS INFORMATION INTO MESSAGE

 D MAS10^VAQCON96

 ;PLACE PHARMACY INFORMATION INTO MESSAGE

 D PHA10^VAQCON95

 Q (LINE-OFFSET)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAQCON97   2142     printed  Apr 09, 2024@21:26:59                                                                                                                                                                                                    Page 2

VAQCON97  ;ALB/JRP - MESSAGE CONSTRUCTION;19-APR-93

 +1       ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

DATA10(TRANPTR,ROOT,MESSNUM,ARRAY,OFFSET) ;BUILD DATA BLOCK FOR VERSION 1.0

 +1       ;INPUT  : TRANPTR - Pointer to VAQ - TRANSACTION file

 +2       ;         ROOT - Location of Extraction Arrays (full global reference)

 +3       ;         MESSNUM - Message number to place message into

 +4       ;                   (if 0, message will be placed in ARRAY)

 +5       ;         ARRAY - Array to store message in (full global reference)

 +6       ;         OFFSET - Where to begin placing information (defaults to 0)

 +7       ;OUTPUT : N - Number of lines in message

 +8       ;        -1^Error_Text - Error

 +9       ;NOTES  : If MESSNUM=0, then the message will be placed into

 +10      ;           ARRAY(LineNumber)=Line_of_info

 +11      ;         If MESSNUM>0 then the message will be placed into

 +12      ;           ^XMB(3.9,MESSNUM,2,LineNumber,0)=Line_of_info

 +13      ;       : The first subscript in ROOT must be the segment abbreviation

 +14      ;         (i.e. ROOT(SegmentAbbreviation)).  This is required to

 +15      ;         identify the segments.

 +16      ;

 +17      ;CHECK INPUT

 +18       SET TRANPTR=+$GET(TRANPTR)

 +19       if (('TRANPTR)!('$DATA(^VAT(394.61,TRANPTR))))

               QUIT "-1^Did not pass a valid pointer to VAQ - TRANSACTION file"

 +20       SET ROOT=$GET(ROOT)

 +21       SET MESSNUM=+$GET(MESSNUM)

 +22       IF (('MESSNUM)&($GET(ARRAY)=""))

               QUIT "-1^Did not pass message number or reference to array"

 +23       IF (MESSNUM)

               if ('$DATA(^XMB(3.9,MESSNUM)))

                   QUIT "-1^Valid message number not passed"

 +24       SET OFFSET=+$GET(OFFSET)

 +25      ;DECLARE VARIABLES

 +26       NEW TMP,X,LINE,STATUS,TYPE,SEGABB,FILE,FIELD,SEQ,INFO,VALUE,SEQFIELD

 +27       SET LINE=OFFSET

 +28      ;DETERMINE STATUS & TYPE

 +29       SET TMP=$$STATYPE^VAQCON1(TRANPTR)

 +30       if ($PIECE(TMP,"^",1)="-1")

               QUIT TMP

 +31       SET STATUS=$PIECE(TMP,"^",1)

 +32       SET TYPE=$PIECE(TMP,"^",2)

 +33      ;MAKE SURE MESSAGE SHOULD CONTAIN DATA

 +34       if ((TYPE'="RES")&(TYPE'="UNS"))

               QUIT "-1^Message type does not return data"

 +35       if ((STATUS'="VAQ-RSLT")&(STATUS'="VAQ-UNSOL"))

               QUIT "-1^Message type does not return data"

 +36       if (TYPE="REC")

               QUIT "-1^Transaction is being received, not transmitted"

 +37      ;PLACE MINIMUM INFORMATION INTO MESSAGE

 +38       DO MIN10^VAQCON98

 +39      ;PLACE MAS INFORMATION INTO MESSAGE

 +40       DO MAS10^VAQCON96

 +41      ;PLACE PHARMACY INFORMATION INTO MESSAGE

 +42       DO PHA10^VAQCON95

 +43       QUIT (LINE-OFFSET)