ADEXER2.m

ADEXER2 ; IHS/HQT/MJL  - DENTAL ERROR REPORT PT 3 ;  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

ERRORS ; ERROR ROUTINES

ERR1 ;EP

 S ^ADERROR(ADERNO)=" - DAMAGED DATA FILE: MISSING 0TH NODE FOR DENTAL PROCEDURE FILE ENTRY "_ADEA G ERREND

ERR3 ;EP

 S ^ADERROR(ADERNO)=" - MISSING LOCATION OF ENCOUNTER DATA IN DENTAL PROCEDURE FILE ENTRY "_ADEA G ERREND

ERR4 ;EP

 S ^ADERROR(ADERNO)=" - DAMAGED DATA FILE: NO VA PATIENT ENTRY FOR DENTAL PROCEDURE ENTRY "_ADEA_" (REFERENCING DFN "_ADEDFN_")" G ERREND

ERR5 ;EP

 S ^ADERROR(ADERNO)=" - INVALID DATA: MISSING VISIT DATE FOR DENTAL PROCEDURE ENTRY "_ADEA G ERREND

ERR6 ;EP

 S ^ADERROR(ADERNO)=" - INVALID DATA: BAD OR MISSING ATTENDING DENTIST IN DENTAL PROCEDURE ENTRY "_ADEA G ERREND

ERR7 ;EP

 S ^ADERROR(ADERNO)=" - MISSING CLASSIFICATION/BENEFICIARY ENTRY IN PATIENT FILE FOR PATIENT DFN "_ADEDFN_"." G ERREND

ERR10 ;EP

 S ^ADERROR(ADERNO)=" - INVALID DATA: MISSING SERVICE DATA FOR DENTAL PROCEDURE ENTRY "_ADEA G ERREND

ERREND S ADERC=ADERC+1,ADERNO=ADERNO+1 G END

ERR12 ;EP

 S ADERC=ADERC+1 S:'$D(ADERR("RPD",ADEREPD)) ^ADERROR(ADERNO)=" - MISSING SOCIAL SECURITY NUMBER FOR "_$P(^DIC(16,ADEREPD,0),U),ADERNO=ADERNO+1,ADERR("RPD",ADEREPD)=1 G END

END Q

ADEXER2   ; IHS/HQT/MJL  - DENTAL ERROR REPORT PT 3 ;  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

ERRORS    ; ERROR ROUTINES

ERR1      ;EP

 +1        SET ^ADERROR(ADERNO)=" - DAMAGED DATA FILE: MISSING 0TH NODE FOR DENTAL PROCEDURE FILE ENTRY "_ADEA

           GOTO ERREND

ERR3      ;EP

 +1        SET ^ADERROR(ADERNO)=" - MISSING LOCATION OF ENCOUNTER DATA IN DENTAL PROCEDURE FILE ENTRY "_ADEA

           GOTO ERREND

ERR4      ;EP

 +1        SET ^ADERROR(ADERNO)=" - DAMAGED DATA FILE: NO VA PATIENT ENTRY FOR DENTAL PROCEDURE ENTRY "_ADEA_" (REFERENCING DFN "_ADEDFN_")"

           GOTO ERREND

ERR5      ;EP

 +1        SET ^ADERROR(ADERNO)=" - INVALID DATA: MISSING VISIT DATE FOR DENTAL PROCEDURE ENTRY "_ADEA

           GOTO ERREND

ERR6      ;EP

 +1        SET ^ADERROR(ADERNO)=" - INVALID DATA: BAD OR MISSING ATTENDING DENTIST IN DENTAL PROCEDURE ENTRY "_ADEA

           GOTO ERREND

ERR7      ;EP

 +1        SET ^ADERROR(ADERNO)=" - MISSING CLASSIFICATION/BENEFICIARY ENTRY IN PATIENT FILE FOR PATIENT DFN "_ADEDFN_"."

           GOTO ERREND

ERR10     ;EP

 +1        SET ^ADERROR(ADERNO)=" - INVALID DATA: MISSING SERVICE DATA FOR DENTAL PROCEDURE ENTRY "_ADEA

           GOTO ERREND

ERREND     SET ADERC=ADERC+1

           SET ADERNO=ADERNO+1

           GOTO END

ERR12     ;EP

 +1        SET ADERC=ADERC+1

           IF '$DATA(ADERR("RPD",ADEREPD))

               SET ^ADERROR(ADERNO)=" - MISSING SOCIAL SECURITY NUMBER FOR "_$PIECE(^DIC(16,ADEREPD,0),U)

               SET ADERNO=ADERNO+1

               SET ADERR("RPD",ADEREPD)=1

           GOTO END

END        QUIT