- VAQCON3 ;ALB/JRP - MESSAGE CONSTRUCTION;12-APR-93
- ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
- USER(TRANPTR,MESSNUM,ARRAY,OFFSET) ;CONSTRUCT USER BLOCK
- ;INPUT : TRANPTR - Pointer to VAQ - TRANSACTION file
- ; MESSNUM - Message number to place block into
- ; (if 0, block will be placed in ARRAY)
- ; ARRAY - Array to store block in (full global reference)
- ; OFFSET - Where to begin placing information (defaults to 0)
- ;OUTPUT : N - Number of lines in block
- ; -1^Error_Text - Error
- ;NOTES : If MESSNUM=0, then the block will be placed into
- ; ARRAY(LineNumber)=Line_of_info
- ; If MESSNUM>0 then the block will be placed into
- ; ^XMB(3.9,MESSNUM,2,LineNumber,0)=Line_of_info
- ;
- ;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 MESSNUM=+$G(MESSNUM)
- I (('MESSNUM)&($G(ARRAY)="")) Q "-1^Did not pass message number of 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,USER,FACNAME,LINE,X,USERDUZ
- S LINE=OFFSET
- ;DETERMINE SENDER
- S TMP=$$SENDER^VAQCON2(TRANPTR)
- Q:(+TMP=-1) "-1^Could not determine sender of message"
- S USER=$P(TMP,"^",1)
- S USERDUZ=$P(TMP,"^",2)
- ;DETERMINE FACILITY NAME (IF NOT IN PARAMETER FILE TRY GETTING FROM
- ; 'STATION NUMBER' FILE)
- S FACNAME=""
- S TMP=+$O(^VAT(394.81,0))
- I (TMP) S X=+$G(^VAT(394.81,TMP,0)) S:(X) FACNAME=$P($G(^DIC(4,X,0)),"^",1)
- S:(FACNAME="") FACNAME=$P($$SITE^VASITE,"^",2)
- Q:(FACNAME="") "-1^Could not determine facility name"
- ;LINE 1
- S TMP="$USER"
- S:('MESSNUM) @ARRAY@(LINE)=TMP
- S:(MESSNUM) X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- S LINE=LINE+1
- ;LINE 2
- S TMP=USER
- S:('MESSNUM) @ARRAY@(LINE)=TMP
- S:(MESSNUM) X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- S LINE=LINE+1
- ;LINE 3
- S TMP=USERDUZ
- S:('MESSNUM) @ARRAY@(LINE)=TMP
- S:(MESSNUM) X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- S LINE=LINE+1
- ;LINE 4
- S TMP=FACNAME
- S:('MESSNUM) @ARRAY@(LINE)=TMP
- S:(MESSNUM) X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- S LINE=LINE+1
- ;LINE 5
- S TMP="$$USER"
- S:('MESSNUM) @ARRAY@(LINE)=TMP
- S:(MESSNUM) X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- S LINE=LINE+1
- Q (LINE-OFFSET)
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQCON3 2338 printed Mar 13, 2025@21:29:14 Page 2
- VAQCON3 ;ALB/JRP - MESSAGE CONSTRUCTION;12-APR-93
- +1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
- USER(TRANPTR,MESSNUM,ARRAY,OFFSET) ;CONSTRUCT USER BLOCK
- +1 ;INPUT : TRANPTR - Pointer to VAQ - TRANSACTION file
- +2 ; MESSNUM - Message number to place block into
- +3 ; (if 0, block will be placed in ARRAY)
- +4 ; ARRAY - Array to store block in (full global reference)
- +5 ; OFFSET - Where to begin placing information (defaults to 0)
- +6 ;OUTPUT : N - Number of lines in block
- +7 ; -1^Error_Text - Error
- +8 ;NOTES : If MESSNUM=0, then the block will be placed into
- +9 ; ARRAY(LineNumber)=Line_of_info
- +10 ; If MESSNUM>0 then the block will be placed into
- +11 ; ^XMB(3.9,MESSNUM,2,LineNumber,0)=Line_of_info
- +12 ;
- +13 ;CHECK INPUT
- +14 SET TRANPTR=+$GET(TRANPTR)
- +15 if (('TRANPTR)!('$DATA(^VAT(394.61,TRANPTR))))
- QUIT "-1^Did not pass a valid pointer to VAQ - TRANSACTION file"
- +16 SET MESSNUM=+$GET(MESSNUM)
- +17 IF (('MESSNUM)&($GET(ARRAY)=""))
- QUIT "-1^Did not pass message number of reference to array"
- +18 IF (MESSNUM)
- if ('$DATA(^XMB(3.9,MESSNUM)))
- QUIT "-1^Valid message number not passed"
- +19 SET OFFSET=+$GET(OFFSET)
- +20 ;DECLARE VARIABLES
- +21 NEW TMP,USER,FACNAME,LINE,X,USERDUZ
- +22 SET LINE=OFFSET
- +23 ;DETERMINE SENDER
- +24 SET TMP=$$SENDER^VAQCON2(TRANPTR)
- +25 if (+TMP=-1)
- QUIT "-1^Could not determine sender of message"
- +26 SET USER=$PIECE(TMP,"^",1)
- +27 SET USERDUZ=$PIECE(TMP,"^",2)
- +28 ;DETERMINE FACILITY NAME (IF NOT IN PARAMETER FILE TRY GETTING FROM
- +29 ; 'STATION NUMBER' FILE)
- +30 SET FACNAME=""
- +31 SET TMP=+$ORDER(^VAT(394.81,0))
- +32 IF (TMP)
- SET X=+$GET(^VAT(394.81,TMP,0))
- if (X)
- SET FACNAME=$PIECE($GET(^DIC(4,X,0)),"^",1)
- +33 if (FACNAME="")
- SET FACNAME=$PIECE($$SITE^VASITE,"^",2)
- +34 if (FACNAME="")
- QUIT "-1^Could not determine facility name"
- +35 ;LINE 1
- +36 SET TMP="$USER"
- +37 if ('MESSNUM)
- SET @ARRAY@(LINE)=TMP
- +38 if (MESSNUM)
- SET X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- +39 SET LINE=LINE+1
- +40 ;LINE 2
- +41 SET TMP=USER
- +42 if ('MESSNUM)
- SET @ARRAY@(LINE)=TMP
- +43 if (MESSNUM)
- SET X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- +44 SET LINE=LINE+1
- +45 ;LINE 3
- +46 SET TMP=USERDUZ
- +47 if ('MESSNUM)
- SET @ARRAY@(LINE)=TMP
- +48 if (MESSNUM)
- SET X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- +49 SET LINE=LINE+1
- +50 ;LINE 4
- +51 SET TMP=FACNAME
- +52 if ('MESSNUM)
- SET @ARRAY@(LINE)=TMP
- +53 if (MESSNUM)
- SET X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- +54 SET LINE=LINE+1
- +55 ;LINE 5
- +56 SET TMP="$$USER"
- +57 if ('MESSNUM)
- SET @ARRAY@(LINE)=TMP
- +58 if (MESSNUM)
- SET X=$$ADDLINE^VAQCON1(TMP,MESSNUM,LINE)
- +59 SET LINE=LINE+1
- +60 QUIT (LINE-OFFSET)
