| 1 | VAQPST10 ;ALB/JRP - POST INITS;10-JUN-93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | MAIL() ;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
|
|---|
