source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQBUL05.m@ 761

Last change on this file since 761 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1VAQBUL05 ;ALB/JRP - BULLETINS;2-JUNE-93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3XMITERR ;SENDS BULLETIN FOR MESSAGE RECEIVING ERRORS
4 ; DECLARATIONS DONE IN SERVER^VAQADM2
5 S LINE=1
6 S @XMIT@(LINE,0)="The following error(s) occurred while receiving a PDX transmission ..."
7 S LINE=LINE+1
8 F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
9 ;PUT IN GENERAL INFO
10 S TMP="General Information"
11 S @XMIT@(LINE,0)=TMP
12 S LINE=LINE+1
13 S TMP=$$REPEAT^VAQUTL1("-",19)
14 S @XMIT@(LINE,0)=TMP
15 S LINE=LINE+1
16 S TMP="XMZ: "_$G(XMZ)
17 S @XMIT@(LINE,0)=TMP
18 S LINE=LINE+1
19 S TMP="Global Location: ^XMB(3.9,"_$G(XMZ)_")"
20 S @XMIT@(LINE,0)=TMP
21 S LINE=LINE+1
22 S TMP="Postmaster Basket: S.VAQ-PDX-SERVER"
23 S @XMIT@(LINE,0)=TMP
24 S LINE=LINE+1
25 S TMP="Sent By: "_$G(XMFROM)
26 S @XMIT@(LINE,0)=TMP
27 S LINE=LINE+1
28 F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
29 ;PUT IN GENERAL ERROR INFO
30 S TMP="General Error"
31 S @XMIT@(LINE,0)=TMP
32 S LINE=LINE+1
33 S TMP=$$REPEAT^VAQUTL1("-",13)
34 S @XMIT@(LINE,0)=TMP
35 S LINE=LINE+1
36 S XMPOS=LINE
37 S TMP=""
38 F S TMP=+$O(@ERROR@("GENERAL",TMP)) Q:('TMP) D
39 .S @XMIT@(LINE,0)=$G(@ERROR@("GENERAL",TMP))
40 .S LINE=LINE+1
41 I (XMPOS=LINE) D
42 .S TMP="Not applicable"
43 .S @XMIT@(LINE,0)=TMP
44 .S LINE=LINE+1
45 F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
46 ;PUT IN SPECIFIC ERROR INFO
47 S TMP="Specific Error(s)"
48 S @XMIT@(LINE,0)=TMP
49 S LINE=LINE+1
50 S TMP=$$REPEAT^VAQUTL1("-",17)
51 S @XMIT@(LINE,0)=TMP
52 S LINE=LINE+1
53 S XMPOS=LINE
54 S MESSAGE=""
55 F S MESSAGE=+$O(@ERROR@(MESSAGE)) Q:('MESSAGE) D
56 .S TMP="Message Number: "_MESSAGE
57 .S @XMIT@(LINE,0)=TMP
58 .S LINE=LINE+1
59 .S TMP=""
60 .F S TMP=+$O(@ERROR@(MESSAGE,TMP)) Q:('TMP) D
61 ..S @XMIT@(LINE,0)=$G(@ERROR@(MESSAGE,TMP))
62 ..S LINE=LINE+1
63 .S TMP=""
64 .S @XMIT@(LINE,0)=TMP
65 .S LINE=LINE+1
66 I (XMPOS=LINE) D
67 .S TMP="Not applicable"
68 .S @XMIT@(LINE,0)=TMP
69 .S LINE=LINE+1
70 F TMP=1:1:2 S @XMIT@(LINE,0)="",LINE=LINE+1
71 ;PUT IN NOTE
72 S TMP="Note: Each PDX transmission can contain more than one PDX message. Message"
73 S @XMIT@(LINE,0)=TMP
74 S LINE=LINE+1
75 S TMP=" number X refers to the Xth message within the transmission (not the"
76 S @XMIT@(LINE,0)=TMP
77 S LINE=LINE+1
78 S TMP=" XMZ)."
79 S @XMIT@(LINE,0)=TMP
80 S LINE=LINE+1
81 ;SEND BULLETIN
82 S XMY("G.VAQ PDX ERRORS")=""
83 S TYPE="UNABLE TO PROPERLY RECEIVE TRANSMISSION"
84 S TMP="Patient Data eXchange"
85 S XMER=$$SENDBULL^VAQBUL(TYPE,"PDX",TMP,XMIT)
86 S:(XMER>0) XMER=0
87 Q
Note: See TracBrowser for help on using the repository browser.