| [613] | 1 | QANSITE ;HISC/GJC-CHECK OF SITE PARAMETER DATA ;5/1/92
|
|---|
| 2 | ;;2.0;Incident Reporting;;08/07/1992
|
|---|
| 3 | ;
|
|---|
| 4 | S QAZER0=$G(^QA(740,1,0)) I +QAZER0'>0 S QAERR=1 D ERROR G EXIT
|
|---|
| 5 | S QANAME=$G(^DIC(4,+QAZER0,0)) I QANAME']"" S QAERR=2 D ERROR G EXIT
|
|---|
| 6 | S QASTNM=$G(^DIC(4,+QAZER0,99)) I QASTNM']"" S QAERR=3 D ERROR G EXIT
|
|---|
| 7 | ;S QAEWSMS=$P(QAZER0,U,2) I QAEWSMS']"" S QAERR=4 D ERROR G EXIT
|
|---|
| 8 | ;S QAEWSDM=$P(QAZER0,U,3) I QAEWSDM']"" S QAERR=5 D ERROR G EXIT
|
|---|
| 9 | S QANQADBS=$P(QAZER0,U,4) I QANQADBS']"" S QAERR=6 D ERROR G EXIT
|
|---|
| 10 | S QANQADBD=$P(QAZER0,U,5) I QANQADBD']"" S QAERR=7 D ERROR G EXIT
|
|---|
| 11 | ;S QAEWSLMG=$P(QAZER0,U,6) I QAEWSLMG']"" S QAERR=8 D ERROR G EXIT
|
|---|
| 12 | S QAINCND=$G(^QA(740,1,"QAN")) I QAINCND']"" S QAERR=9 D ERROR G EXIT
|
|---|
| 13 | S QAINCMLG=$P(QAINCND,U) I QAINCMLG']"" S QAERR=10 D ERROR G EXIT
|
|---|
| 14 | EXIT ;
|
|---|
| 15 | K QAZER0,QANAME,QASTNM,QAEWSMS,QAEWSDM,QANQADBS,QANQADBD,QAEWSLMG
|
|---|
| 16 | K QAINCND,QAINCMLG,QAERR
|
|---|
| 17 | Q
|
|---|
| 18 | ERROR ;
|
|---|
| 19 | W *7,!!,"*** ",$P($T(ERR+QAERR),";;",2)," ***",!!,*7
|
|---|
| 20 | S XQUIT=1
|
|---|
| 21 | Q
|
|---|
| 22 | ERR ;;ERROR MESSAGES: REASONS EWS BULLETIN COULD NOT BE SENT
|
|---|
| 23 | ;;SITE PARAMETERS FILE MISSING, CONTACT YOUR QA COORDINATOR
|
|---|
| 24 | ;;INVALID SITE NAME FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 25 | ;;INVALID STATION NUMBER FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 26 | ;;EWS MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 27 | ;;EWS DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 28 | ;;NQADB MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 29 | ;;NQADB DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 30 | ;;EWS LOCAL MAIL GROUP NOT FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 31 | ;;INCIDENT REPORTING DATA NOT FOUND IN QA SITE PARAMETERS FILE
|
|---|
| 32 | ;;INCIDENT REPORTING MAILGROUP NOT FOUND IN QA SITE PARAMETERS FILE
|
|---|
