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