- VAQADM51 ;ALB/JRP - GENERATE PDX TRANSMISSIONS;10-MAR-93 [ 09/26/96 2:29 PM ]
- ;;1.5;PATIENT DATA EXCHANGE;**22**;NOV 17, 1993
- START ;START RESPONSE TIME MONITORING (TIME TO BUILD/SEND COMPLETE TRANSMISSION)
- I ($D(XRTL)) D T0^%ZOSV
- Q
- ;
- STOP ;STOP RESPONSE TIME MONITORING
- I ($D(XRT0)) S XRTN=$T(+0) D T1^%ZOSV K XRTN,XRT0
- Q
- ;
- XMIT15 ;GERNERATE & SEND VERSION 1.5 MESSAGES (CONTINUATION FOR VAQADM50)
- ; DECLARATIONS DONE IN GENXMIT^VAQADM50
- S DOMAIN=""
- F S DOMAIN=$O(@ARRAY1@(DOMAIN)) Q:(DOMAIN="") D START D D STOP
- .;EXTRACT INFORMATION FOR ALL TRANSACTIONS
- .K @ARRAY5
- .S TRANS=""
- .F S TRANS=$O(@ARRAY1@(DOMAIN,TRANS)) Q:(TRANS="") D
- ..;PLACE TRANSACTION POINTER IN ARRAY5
- ..S TMPARR=$P(ARRAY5,")",1)_","_$C(34)_TRANS_$C(34)_")"
- ..;EXTRACT INFO
- ..S TMP=$$EXTRACT^VAQDBI(TRANS,TMPARR)
- ..I (TMP) D
- ...S @ARRAY3@(TRANS,0)="Error occurred while extracting information"
- ...S @ARRAY3@(TRANS,1)=$P(TMP,"^",2)
- ...K @ARRAY1@(DOMAIN,TRANS)
- ...K @TMPARR
- .;CREATE STUB MESSAGE
- .S TMP="PDX (V1.5) TRANSMISSION FROM "_SITE
- .S XMZ=$$MAKESTUB^VAQCON1(TMP,"PDX")
- .I (XMZ<1) D Q
- ..S X=$$KILLSTUB^VAQCON1(XMZ)
- ..S TRANS=""
- ..F S TRANS=$O(@ARRAY1@(DOMAIN,TRANS)) Q:(TRANS="") D
- ...S @ARRAY3@(TRANS,0)="Error occurred while building transmission"
- ...S @ARRAY3@(TRANS,1)=$P(XMZ,"^",2)
- .;PLACE DOMAIN IN ARRAY1
- .S TMPARR=$P(ARRAY1,")",1)_","_$C(34)_DOMAIN_$C(34)_")"
- .;PLACE TRANSMISSION IN MESSAGE
- .S TMP=$$XMIT^VAQCON(TMPARR,ARRAY5,XMZ,"",1)
- .I (TMP<0) D Q
- ..S X=$$KILLSTUB^VAQCON1(XMZ)
- ..S TRANS=""
- ..F S TRANS=$O(@TMPARR@(TRANS)) Q:(TRANS="") D
- ...S @ARRAY3@(TRANS,0)="Error occurred while building transmission"
- ...S @ARRAY3@(TRANS,1)=$P(TMP,"^",2)
- .;SET ZERO NODE
- .S TMP=$$SETZERO^VAQCON1(XMZ,TMP)
- .I (TMP) D Q
- ..S X=$$KILLSTUB^VAQCON1(XMZ)
- ..S TRANS=""
- ..F S TRANS=$O(@TMPARR@(TRANS)) Q:(TRANS="") D
- ...S @ARRAY3@(TRANS,0)="Error occurred while building transmission"
- ...S @ARRAY3@(TRANS,1)=$P(TMP,"^",2)
- .;SEND TRANSMISSION
- .S TMP=$G(@ARRAY2@(DOMAIN))
- .S:(TMP="") TMP=DOMAIN
- .S X="S.VAQ-PDX-SERVER"_"@"_TMP
- .S XMY(X)=""
- .S XMDUN="Patient Data eXchange"
- .D ENT1^XMD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQADM51 2187 printed Mar 13, 2025@21:29 Page 2
- VAQADM51 ;ALB/JRP - GENERATE PDX TRANSMISSIONS;10-MAR-93 [ 09/26/96 2:29 PM ]
- +1 ;;1.5;PATIENT DATA EXCHANGE;**22**;NOV 17, 1993
- START ;START RESPONSE TIME MONITORING (TIME TO BUILD/SEND COMPLETE TRANSMISSION)
- +1 IF ($DATA(XRTL))
- DO T0^%ZOSV
- +2 QUIT
- +3 ;
- STOP ;STOP RESPONSE TIME MONITORING
- +1 IF ($DATA(XRT0))
- SET XRTN=$TEXT(+0)
- DO T1^%ZOSV
- KILL XRTN,XRT0
- +2 QUIT
- +3 ;
- XMIT15 ;GERNERATE & SEND VERSION 1.5 MESSAGES (CONTINUATION FOR VAQADM50)
- +1 ; DECLARATIONS DONE IN GENXMIT^VAQADM50
- +2 SET DOMAIN=""
- +3 FOR
- SET DOMAIN=$ORDER(@ARRAY1@(DOMAIN))
- if (DOMAIN="")
- QUIT
- DO START
- Begin DoDot:1
- +4 ;EXTRACT INFORMATION FOR ALL TRANSACTIONS
- +5 KILL @ARRAY5
- +6 SET TRANS=""
- +7 FOR
- SET TRANS=$ORDER(@ARRAY1@(DOMAIN,TRANS))
- if (TRANS="")
- QUIT
- Begin DoDot:2
- +8 ;PLACE TRANSACTION POINTER IN ARRAY5
- +9 SET TMPARR=$PIECE(ARRAY5,")",1)_","_$CHAR(34)_TRANS_$CHAR(34)_")"
- +10 ;EXTRACT INFO
- +11 SET TMP=$$EXTRACT^VAQDBI(TRANS,TMPARR)
- +12 IF (TMP)
- Begin DoDot:3
- +13 SET @ARRAY3@(TRANS,0)="Error occurred while extracting information"
- +14 SET @ARRAY3@(TRANS,1)=$PIECE(TMP,"^",2)
- +15 KILL @ARRAY1@(DOMAIN,TRANS)
- +16 KILL @TMPARR
- End DoDot:3
- End DoDot:2
- +17 ;CREATE STUB MESSAGE
- +18 SET TMP="PDX (V1.5) TRANSMISSION FROM "_SITE
- +19 SET XMZ=$$MAKESTUB^VAQCON1(TMP,"PDX")
- +20 IF (XMZ<1)
- Begin DoDot:2
- +21 SET X=$$KILLSTUB^VAQCON1(XMZ)
- +22 SET TRANS=""
- +23 FOR
- SET TRANS=$ORDER(@ARRAY1@(DOMAIN,TRANS))
- if (TRANS="")
- QUIT
- Begin DoDot:3
- +24 SET @ARRAY3@(TRANS,0)="Error occurred while building transmission"
- +25 SET @ARRAY3@(TRANS,1)=$PIECE(XMZ,"^",2)
- End DoDot:3
- End DoDot:2
- QUIT
- +26 ;PLACE DOMAIN IN ARRAY1
- +27 SET TMPARR=$PIECE(ARRAY1,")",1)_","_$CHAR(34)_DOMAIN_$CHAR(34)_")"
- +28 ;PLACE TRANSMISSION IN MESSAGE
- +29 SET TMP=$$XMIT^VAQCON(TMPARR,ARRAY5,XMZ,"",1)
- +30 IF (TMP<0)
- Begin DoDot:2
- +31 SET X=$$KILLSTUB^VAQCON1(XMZ)
- +32 SET TRANS=""
- +33 FOR
- SET TRANS=$ORDER(@TMPARR@(TRANS))
- if (TRANS="")
- QUIT
- Begin DoDot:3
- +34 SET @ARRAY3@(TRANS,0)="Error occurred while building transmission"
- +35 SET @ARRAY3@(TRANS,1)=$PIECE(TMP,"^",2)
- End DoDot:3
- End DoDot:2
- QUIT
- +36 ;SET ZERO NODE
- +37 SET TMP=$$SETZERO^VAQCON1(XMZ,TMP)
- +38 IF (TMP)
- Begin DoDot:2
- +39 SET X=$$KILLSTUB^VAQCON1(XMZ)
- +40 SET TRANS=""
- +41 FOR
- SET TRANS=$ORDER(@TMPARR@(TRANS))
- if (TRANS="")
- QUIT
- Begin DoDot:3
- +42 SET @ARRAY3@(TRANS,0)="Error occurred while building transmission"
- +43 SET @ARRAY3@(TRANS,1)=$PIECE(TMP,"^",2)
- End DoDot:3
- End DoDot:2
- QUIT
- +44 ;SEND TRANSMISSION
- +45 SET TMP=$GET(@ARRAY2@(DOMAIN))
- +46 if (TMP="")
- SET TMP=DOMAIN
- +47 SET X="S.VAQ-PDX-SERVER"_"@"_TMP
- +48 SET XMY(X)=""
- +49 SET XMDUN="Patient Data eXchange"
- +50 DO ENT1^XMD
- End DoDot:1
- DO STOP
- +51 QUIT
