57 lines
2.5 KiB
Mathematica
57 lines
2.5 KiB
Mathematica
VAQPST10 ;ALB/JRP - POST INITS;10-JUN-93
|
|
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|
MAIL() ;ADD MAIL GROUPS USED
|
|
;INPUT : NONE
|
|
;OUTPUT : XYZ - Code telling which groups were/weren't added
|
|
; X specifies if VAQ PDX ERRORS was added
|
|
; Y specifies if VAQ MANUAL PROCESSING was added
|
|
; Z specifies if VAQ UNSOLICITED RECEIVED was added
|
|
;NOTES : When an error occurs, the error code returned specifies
|
|
; which mail groups were & weren't added. If the "bit"
|
|
; position that specifies the mail group is set to 1, the
|
|
; mail group wasn't added.
|
|
; EX: -101 tells that the mail groups VAQ PDX ERRORS and
|
|
; VAQ UNSOLICITED RECEIVED were not added, while the
|
|
; mail group VAQ MANUAL PROCESSING was added.
|
|
;
|
|
;DECLARE VARIABLES
|
|
N GROUP,PRIVATE,ENROLL,RESTCODE,TMPARR,OUTCODE,ERROR
|
|
S OUTCODE="000"
|
|
;ADD VAQ PDX ERRORS
|
|
S GROUP="VAQ PDX ERRORS"
|
|
S PRIVATE=0
|
|
S ENROLL=0
|
|
S RESTCODE=0
|
|
S TMPARR(1)="Mail group that will receive any recoverable errors that occur"
|
|
S TMPARR(2)="when using PDX. These errors will generally happen when a PDX"
|
|
S TMPARR(3)="message can not be properly received by the PDX Server or when"
|
|
S TMPARR(4)="a PDX message can not be properly created by the PDX Transmitter."
|
|
S TMPARR(6)="This group will typically consist of the ADPAC(s) and IRM personnel"
|
|
S TMPARR(7)="responsible for PDX."
|
|
S ERROR=+$$MAILGRP^VAQUTL4(GROUP,PRIVATE,ENROLL,RESTCODE,"TMPARR")
|
|
S:(ERROR<0) OUTCODE="1"_$E(OUTCODE,2,$L(OUTCODE))
|
|
;ADD VAQ MANUAL PROCESSING
|
|
S GROUP="VAQ MANUAL PROCESSING"
|
|
S PRIVATE=0
|
|
S ENROLL=0
|
|
S RESTCODE=0
|
|
K TMPARR
|
|
S TMPARR(1)="Mail group that will receive notification of a PDX Request that"
|
|
S TMPARR(2)="has been received and requires manual processing. This group"
|
|
S TMPARR(3)="will typically consist of users that authorize the release of"
|
|
S TMPARR(4)="patient data to other facilities."
|
|
S ERROR=+$$MAILGRP^VAQUTL4(GROUP,PRIVATE,ENROLL,RESTCODE,"TMPARR")
|
|
S:(ERROR<0) OUTCODE=$E(OUTCODE,1)_"1"_$E(OUTCODE,3,$L(OUTCODE))
|
|
;ADD VAQ UNSOLICITED RECEIVED
|
|
S GROUP="VAQ UNSOLICITED RECEIVED"
|
|
S PRIVATE=0
|
|
S ENROLL=0
|
|
S RESTCODE=0
|
|
K TMPARR
|
|
S TMPARR(1)="Mail group that will receive notification when an Unsolicited"
|
|
S TMPARR(2)="PDX has been received. This group will typically consist of"
|
|
S TMPARR(3)="users that receive patient data from other facilities."
|
|
S ERROR=+$$MAILGRP^VAQUTL4(GROUP,PRIVATE,ENROLL,RESTCODE,"TMPARR")
|
|
S:(ERROR<0) OUTCODE=$E(OUTCODE,1,2)_"1"_$E(OUTCODE,4,$L(OUTCODE))
|
|
Q OUTCODE
|