source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQPST10.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1VAQPST10 ;ALB/JRP - POST INITS;10-JUN-93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3MAIL() ;ADD MAIL GROUPS USED
4 ;INPUT : NONE
5 ;OUTPUT : XYZ - Code telling which groups were/weren't added
6 ; X specifies if VAQ PDX ERRORS was added
7 ; Y specifies if VAQ MANUAL PROCESSING was added
8 ; Z specifies if VAQ UNSOLICITED RECEIVED was added
9 ;NOTES : When an error occurs, the error code returned specifies
10 ; which mail groups were & weren't added. If the "bit"
11 ; position that specifies the mail group is set to 1, the
12 ; mail group wasn't added.
13 ; EX: -101 tells that the mail groups VAQ PDX ERRORS and
14 ; VAQ UNSOLICITED RECEIVED were not added, while the
15 ; mail group VAQ MANUAL PROCESSING was added.
16 ;
17 ;DECLARE VARIABLES
18 N GROUP,PRIVATE,ENROLL,RESTCODE,TMPARR,OUTCODE,ERROR
19 S OUTCODE="000"
20 ;ADD VAQ PDX ERRORS
21 S GROUP="VAQ PDX ERRORS"
22 S PRIVATE=0
23 S ENROLL=0
24 S RESTCODE=0
25 S TMPARR(1)="Mail group that will receive any recoverable errors that occur"
26 S TMPARR(2)="when using PDX. These errors will generally happen when a PDX"
27 S TMPARR(3)="message can not be properly received by the PDX Server or when"
28 S TMPARR(4)="a PDX message can not be properly created by the PDX Transmitter."
29 S TMPARR(6)="This group will typically consist of the ADPAC(s) and IRM personnel"
30 S TMPARR(7)="responsible for PDX."
31 S ERROR=+$$MAILGRP^VAQUTL4(GROUP,PRIVATE,ENROLL,RESTCODE,"TMPARR")
32 S:(ERROR<0) OUTCODE="1"_$E(OUTCODE,2,$L(OUTCODE))
33 ;ADD VAQ MANUAL PROCESSING
34 S GROUP="VAQ MANUAL PROCESSING"
35 S PRIVATE=0
36 S ENROLL=0
37 S RESTCODE=0
38 K TMPARR
39 S TMPARR(1)="Mail group that will receive notification of a PDX Request that"
40 S TMPARR(2)="has been received and requires manual processing. This group"
41 S TMPARR(3)="will typically consist of users that authorize the release of"
42 S TMPARR(4)="patient data to other facilities."
43 S ERROR=+$$MAILGRP^VAQUTL4(GROUP,PRIVATE,ENROLL,RESTCODE,"TMPARR")
44 S:(ERROR<0) OUTCODE=$E(OUTCODE,1)_"1"_$E(OUTCODE,3,$L(OUTCODE))
45 ;ADD VAQ UNSOLICITED RECEIVED
46 S GROUP="VAQ UNSOLICITED RECEIVED"
47 S PRIVATE=0
48 S ENROLL=0
49 S RESTCODE=0
50 K TMPARR
51 S TMPARR(1)="Mail group that will receive notification when an Unsolicited"
52 S TMPARR(2)="PDX has been received. This group will typically consist of"
53 S TMPARR(3)="users that receive patient data from other facilities."
54 S ERROR=+$$MAILGRP^VAQUTL4(GROUP,PRIVATE,ENROLL,RESTCODE,"TMPARR")
55 S:(ERROR<0) OUTCODE=$E(OUTCODE,1,2)_"1"_$E(OUTCODE,4,$L(OUTCODE))
56 Q OUTCODE
Note: See TracBrowser for help on using the repository browser.