source: FOIAVistA/trunk/r/INCIDENT_REPORTING-QAN/QANSITE.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1QANSITE ;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
14EXIT ;
15 K QAZER0,QANAME,QASTNM,QAEWSMS,QAEWSDM,QANQADBS,QANQADBD,QAEWSLMG
16 K QAINCND,QAINCMLG,QAERR
17 Q
18ERROR ;
19 W *7,!!,"*** ",$P($T(ERR+QAERR),";;",2)," ***",!!,*7
20 S XQUIT=1
21 Q
22ERR ;;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
Note: See TracBrowser for help on using the repository browser.