Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAQCON1

VAQCON1.m

Go to the documentation of this file.
  1. VAQCON1 ;ALB/JRP - MESSAGE CONSTRUCTION;9-APR-93
  1. ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
  1. MAKESTUB(XMSUB,XMDUZ) ;CREATE STUB MAILMAN MESSAGE
  1. ;INPUT : XMSUB - Subject of message
  1. ; XMDUZ - Sender of message; Pointer to NEW PERSON file
  1. ; or text to be used as the sender (defaults to DUZ)
  1. ;OUTPUT : XMZ - Message number
  1. ; -1^Error_Text - Error
  1. ;
  1. ;CHECK INPUT
  1. Q:($G(XMSUB)="") "-1^Subject of message not passed"
  1. S:($G(XMDUZ)="") XMDUZ=$G(DUZ)
  1. Q:(XMDUZ="") "-1^Could not determine sender of message"
  1. ;DECLARE VARIABLES
  1. N XMZ
  1. ;CREATE STUB
  1. D XMZ^XMA2
  1. S:(XMZ<1) XMZ="-1^Could not create stub message"
  1. Q XMZ
  1. ;
  1. ADDLINE(TEXT,MESSAGE,LINE) ;ADD LINE OF TEXT TO MESSAGE
  1. ;INPUT : TEXT - Line of text to add
  1. ; MESSAGE - Message number
  1. ; LINE - Line number
  1. ;OUTPUT : 0 - Success
  1. ; -1^Error_Text - Error
  1. ;NOTES : NULL lines of text will be converted to <SPACE>
  1. ;
  1. ;CHECK INPUT
  1. S:($G(TEXT)="") TEXT=" "
  1. S MESSAGE=+$G(MESSAGE)
  1. Q:(('MESSAGE)!('$D(^XMB(3.9,MESSAGE)))) "-1^Valid message number not passed"
  1. Q:('(+$G(LINE))) "-1^Line number not passed"
  1. ;INSERT TEXT
  1. S ^XMB(3.9,MESSAGE,2,LINE,0)=TEXT
  1. Q 0
  1. ;
  1. KILLSTUB(XMZ) ;DELETE STUB MESSAGE
  1. ;INPUT : XMZ - Message number
  1. ;OUTPUT : 0 - "Success"
  1. ; -1^Error_Text - Message number not passed
  1. ;NOTE : This should be used when errors occur while building
  1. ; message
  1. ;
  1. ;CHECK INPUT
  1. S XMZ=+$G(XMZ)
  1. Q:(('XMZ)!('$D(^XMB(3.9,XMZ)))) "-1^Valid message number not passed"
  1. ;DECLARE VARIABLES
  1. N XMDUN,XMY,TMP,ZTSK,ZTRTN,ZTDESC,ZTDTH,ZTSAVE
  1. ;SET ZERO NODE
  1. S TMP=$$SETZERO(XMZ,0)
  1. ;SEND MESSAGE TO POSTMASTER
  1. S XMDUN="Patient Data eXchange"
  1. S XMY(.5)=""
  1. D ENT1^XMD
  1. ;DELETE MESSAGE FROM POSTMASTER'S BASKET
  1. ;THIS IS TASKED TO GIVE TIME FOR MESSAGE DELIVERY
  1. S ZTRTN="KILLMES^VAQCON1"
  1. S ZTDESC="Killing of bad PDX messages"
  1. S ZTDTH=$H
  1. S ZTSAVE("XMZ")=XMZ
  1. S ZTSAVE("XMDUZ")=.5
  1. D ^%ZTLOAD
  1. I ('$D(ZTSK)) Q "-1^Could not task deletion of message"
  1. Q 0
  1. ;
  1. KILLMES ;KILL MESSAGES (TASKED)
  1. ;INPUT : XMK - Basket number (optional)
  1. ; XMZ - Message number
  1. ; XMDUZ - User's DUZ
  1. ;OUTPUT : None
  1. ;NOTE : This is used to delete the message by KILLSTUB
  1. ; : All input variables are deleted upon exit
  1. ;
  1. ;CHECK INPUT
  1. I (('$G(XMZ))!('$G(XMDUZ))) K XMK,XMZ,XMDUZ Q
  1. ;KILL MESSAGE
  1. D KLQ^XMA1B
  1. K XMK,XMZ,XMDUZ
  1. S:($D(ZTQUEUED)) ZTREQ="@"
  1. Q
  1. SETZERO(MESSAGE,LINES) ;SET ZERO NODE OF MAILMAN MESSAGE
  1. ;INPUT : MESSAGE - Message number
  1. ; LINES - Number of lines in message (defaults to 0)
  1. ;OUTPUT : 0 - Success
  1. ; -1^Error_Text - Error
  1. ;
  1. ;CHECK INPUT
  1. S MESSAGE=+$G(MESSAGE)
  1. Q:(('MESSAGE)!('$D(^XMB(3.9,MESSAGE)))) "-1^Valid message number not passed"
  1. S LINES=+$G(LINES)
  1. ;SET ZERO NODE
  1. S ^XMB(3.9,MESSAGE,2,0)="^3.92A^"_LINES_"^"_LINES_"^"_+$G(DT)
  1. Q 0
  1. ;
  1. STATYPE(TRAN,CURRENT) ;DETERMINE MESSAGE STATUS & TYPE OF TRANSACTION
  1. ;INPUT : TRAN - Pointer to VAQ - TRANSACTION file
  1. ; CURRENT - Flag indicating if which status to use
  1. ; If 0, return release status (default)
  1. ; If 1, return current status
  1. ;OUTPUT : Message_Status^Message_Type - Success
  1. ; -1^Error_Text - Error
  1. ;CHECK INPUT
  1. Q:('(+$G(TRAN))) "-1^Did not pass pointer to VAQ - TRANSACTION file"
  1. S CURRENT=+$G(CURRENT)
  1. ;DECLARE VARIABLES
  1. N TMP,STATUS,TYPE
  1. S TMP=$G(^VAT(394.61,TRAN,0))
  1. Q:(TMP="") "-1^Did not pass a valid transaction"
  1. S:(CURRENT) TMP=+$P(TMP,"^",2)
  1. S:('CURRENT) TMP=+$P(TMP,"^",5)
  1. Q:('TMP) "-1^Could not determine status of message"
  1. S STATUS=$P($G(^VAT(394.85,TMP,0)),"^",1)
  1. Q:(STATUS="") "-1^Could not determine status of message"
  1. ;DETERMINE MESSAGE TYPE
  1. S TYPE=0
  1. S:((STATUS="VAQ-TUNSL")!(STATUS="VAQ-PROC")) TYPE=""
  1. S:(STATUS="VAQ-RQST") TYPE="REQ"
  1. S:((STATUS="VAQ-AMBIG")!(STATUS="VAQ-AUTO")!(STATUS="VAQ-NTFND")!(STATUS="VAQ-REJ")!(STATUS="VAQ-RSLT")) TYPE="RES"
  1. S:(STATUS="VAQ-UNSOL") TYPE="UNS"
  1. S:((STATUS="VAQ-RQACK")!(STATUS="VAQ-UNACK")) TYPE="ACK"
  1. S:(STATUS="VAQ-RTRNS") TYPE="RET"
  1. S:(STATUS="VAQ-RCVE") TYPE="REC"
  1. Q:(TYPE=0) "-1^Could not determine message type"
  1. Q STATUS_"^"_TYPE