QANSITE.m

QANSITE ;HISC/GJC-CHECK OF SITE PARAMETER DATA ;5/1/92

 ;;2.0;Incident Reporting;;08/07/1992

 ;

 S QAZER0=$G(^QA(740,1,0)) I +QAZER0'>0 S QAERR=1 D ERROR G EXIT

 S QANAME=$G(^DIC(4,+QAZER0,0)) I QANAME']"" S QAERR=2 D ERROR G EXIT

 S QASTNM=$G(^DIC(4,+QAZER0,99)) I QASTNM']"" S QAERR=3 D ERROR G EXIT

 ;S QAEWSMS=$P(QAZER0,U,2) I QAEWSMS']"" S QAERR=4 D ERROR G EXIT

 ;S QAEWSDM=$P(QAZER0,U,3) I QAEWSDM']"" S QAERR=5 D ERROR G EXIT

 S QANQADBS=$P(QAZER0,U,4) I QANQADBS']"" S QAERR=6 D ERROR G EXIT

 S QANQADBD=$P(QAZER0,U,5) I QANQADBD']"" S QAERR=7 D ERROR G EXIT

 ;S QAEWSLMG=$P(QAZER0,U,6) I QAEWSLMG']"" S QAERR=8 D ERROR G EXIT

 S QAINCND=$G(^QA(740,1,"QAN")) I QAINCND']"" S QAERR=9 D ERROR G EXIT

 S QAINCMLG=$P(QAINCND,U) I QAINCMLG']"" S QAERR=10 D ERROR G EXIT

EXIT ;

 K QAZER0,QANAME,QASTNM,QAEWSMS,QAEWSDM,QANQADBS,QANQADBD,QAEWSLMG

 K QAINCND,QAINCMLG,QAERR

 Q

ERROR ;

 W *7,!!,"*** ",$P($T(ERR+QAERR),";;",2)," ***",!!,*7

 S XQUIT=1

 Q

ERR ;;ERROR MESSAGES: REASONS EWS BULLETIN COULD NOT BE SENT

 ;;SITE PARAMETERS FILE MISSING, CONTACT YOUR QA COORDINATOR

 ;;INVALID SITE NAME FOUND IN QA SITE PARAMETERS FILE

 ;;INVALID STATION NUMBER FOUND IN QA SITE PARAMETERS FILE

 ;;EWS MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE

 ;;EWS DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE

 ;;NQADB MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE

 ;;NQADB DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE

 ;;EWS LOCAL MAIL GROUP NOT FOUND IN QA SITE PARAMETERS FILE

 ;;INCIDENT REPORTING DATA NOT FOUND IN QA SITE PARAMETERS FILE

 ;;INCIDENT REPORTING MAILGROUP NOT FOUND IN QA SITE PARAMETERS FILE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QANSITE   1644     printed  Apr 09, 2024@21:01:55                                                                                                                                                                                                     Page 2

QANSITE   ;HISC/GJC-CHECK OF SITE PARAMETER DATA ;5/1/92

 +1       ;;2.0;Incident Reporting;;08/07/1992

 +2       ;

 +3        SET QAZER0=$GET(^QA(740,1,0))

           IF +QAZER0'>0

               SET QAERR=1

               DO ERROR

               GOTO EXIT

 +4        SET QANAME=$GET(^DIC(4,+QAZER0,0))

           IF QANAME']""

               SET QAERR=2

               DO ERROR

               GOTO EXIT

 +5        SET QASTNM=$GET(^DIC(4,+QAZER0,99))

           IF QASTNM']""

               SET QAERR=3

               DO ERROR

               GOTO EXIT

 +6       ;S QAEWSMS=$P(QAZER0,U,2) I QAEWSMS']"" S QAERR=4 D ERROR G EXIT

 +7       ;S QAEWSDM=$P(QAZER0,U,3) I QAEWSDM']"" S QAERR=5 D ERROR G EXIT

 +8        SET QANQADBS=$PIECE(QAZER0,U,4)

           IF QANQADBS']""

               SET QAERR=6

               DO ERROR

               GOTO EXIT

 +9        SET QANQADBD=$PIECE(QAZER0,U,5)

           IF QANQADBD']""

               SET QAERR=7

               DO ERROR

               GOTO EXIT

 +10      ;S QAEWSLMG=$P(QAZER0,U,6) I QAEWSLMG']"" S QAERR=8 D ERROR G EXIT

 +11       SET QAINCND=$GET(^QA(740,1,"QAN"))

           IF QAINCND']""

               SET QAERR=9

               DO ERROR

               GOTO EXIT

 +12       SET QAINCMLG=$PIECE(QAINCND,U)

           IF QAINCMLG']""

               SET QAERR=10

               DO ERROR

               GOTO EXIT

EXIT      ;

 +1        KILL QAZER0,QANAME,QASTNM,QAEWSMS,QAEWSDM,QANQADBS,QANQADBD,QAEWSLMG

 +2        KILL QAINCND,QAINCMLG,QAERR

 +3        QUIT 

ERROR     ;

 +1        WRITE *7,!!,"*** ",$PIECE($TEXT(ERR+QAERR),";;",2)," ***",!!,*7

 +2        SET XQUIT=1

 +3        QUIT 

ERR       ;;ERROR MESSAGES: REASONS EWS BULLETIN COULD NOT BE SENT

 +1       ;;SITE PARAMETERS FILE MISSING, CONTACT YOUR QA COORDINATOR

 +2       ;;INVALID SITE NAME FOUND IN QA SITE PARAMETERS FILE

 +3       ;;INVALID STATION NUMBER FOUND IN QA SITE PARAMETERS FILE

 +4       ;;EWS MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE

 +5       ;;EWS DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE

 +6       ;;NQADB MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE

 +7       ;;NQADB DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE

 +8       ;;EWS LOCAL MAIL GROUP NOT FOUND IN QA SITE PARAMETERS FILE

 +9       ;;INCIDENT REPORTING DATA NOT FOUND IN QA SITE PARAMETERS FILE

 +10      ;;INCIDENT REPORTING MAILGROUP NOT FOUND IN QA SITE PARAMETERS FILE