ADEXSU2.m

ADEXSU2 ; IHS/HQT/MJL  - DENTAL EXTRACT PART 4 ;  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

ERRORS ; ERROR ROUTINES

ERR1 ;EP

 W !," - DAMAGED DATA FILE: MISSING 0TH NODE FOR DENTAL PROCEDURE FILE ENTRY ",ADEA G ERREND

ERR2 ;EP

 W:'$D(ADERR("FAC",ADESITE)) !," - MISSING AREA/SERVICE UNIT/FACILITY CODE IN LOCATION FILE FOR ",$P(^AUTTLOC(ADESITE,0),U) S:'$D(ADERR("FAC",ADESITE)) ADERR("FAC",ADESITE)=1 G ERREND

ERR3 ;EP

 W !," - MISSING OR INVALID LOCATION OF ENCOUNTER IN DENTAL PROCEDURE FILE ENTRY ",ADEA G ERREND

ERR4 ;EP

 W !," - DAMAGED DATA FILE: NO PATIENT (FILE 2) ENTRY FOR DENTAL PROCEDURE ENTRY ",ADEA," (REFERENCING DFN ",ADEDFN,")",! G ERREND

ERR5 ;EP

 W !," - INVALID DATA: MISSING VISIT DATE FOR DENTAL PROCEDURE FILE ENTRY ",ADEA G ERREND

ERR6 ;EP

 W !," - INVALID DATA: MISSING ATTENDING DENTIST IN DENTAL PROCEDURE FILE ENTRY ",ADEA G ERREND

ERR10 ;EP

 W !," - INVALID DATA: MISSING SERVICE DATA FOR DENTAL PROCEDURE ENTRY ",ADEA G ERREND

ERR12 ;EP

 I '$D(ADERR("RPD",ADEREPD)) W !," - INVALID DATA: MISSING SOCIAL SECURITY NUMBER IN 'PERSON' FILE FOR ",$P(^DIC(16,ADEREPD,0),U) S ADERR("RPD",ADEREPD)=1 D ERREND G END

END Q

ERREND S (ADERROR,ADEERR)=1

 W !,?15,"RECORD SCANNING " Q

ADEXSU2   ; IHS/HQT/MJL  - DENTAL EXTRACT PART 4 ;  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

ERRORS    ; ERROR ROUTINES

ERR1      ;EP

 +1        WRITE !," - DAMAGED DATA FILE: MISSING 0TH NODE FOR DENTAL PROCEDURE FILE ENTRY ",ADEA

           GOTO ERREND

ERR2      ;EP

 +1        IF '$DATA(ADERR("FAC",ADESITE))

               WRITE !," - MISSING AREA/SERVICE UNIT/FACILITY CODE IN LOCATION FILE FOR ",$PIECE(^AUTTLOC(ADESITE,0),U)

           IF '$DATA(ADERR("FAC",ADESITE))

               SET ADERR("FAC",ADESITE)=1

           GOTO ERREND

ERR3      ;EP

 +1        WRITE !," - MISSING OR INVALID LOCATION OF ENCOUNTER IN DENTAL PROCEDURE FILE ENTRY ",ADEA

           GOTO ERREND

ERR4      ;EP

 +1        WRITE !," - DAMAGED DATA FILE: NO PATIENT (FILE 2) ENTRY FOR DENTAL PROCEDURE ENTRY ",ADEA," (REFERENCING DFN ",ADEDFN,")",!

           GOTO ERREND

ERR5      ;EP

 +1        WRITE !," - INVALID DATA: MISSING VISIT DATE FOR DENTAL PROCEDURE FILE ENTRY ",ADEA

           GOTO ERREND

ERR6      ;EP

 +1        WRITE !," - INVALID DATA: MISSING ATTENDING DENTIST IN DENTAL PROCEDURE FILE ENTRY ",ADEA

           GOTO ERREND

ERR10     ;EP

 +1        WRITE !," - INVALID DATA: MISSING SERVICE DATA FOR DENTAL PROCEDURE ENTRY ",ADEA

           GOTO ERREND

ERR12     ;EP

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

               WRITE !," - INVALID DATA: MISSING SOCIAL SECURITY NUMBER IN 'PERSON' FILE FOR ",$PIECE(^DIC(16,ADEREPD,0),U)

               SET ADERR("RPD",ADEREPD)=1

               DO ERREND

               GOTO END

END        QUIT 

ERREND     SET (ADERROR,ADEERR)=1

 +1        WRITE !,?15,"RECORD SCANNING "

           QUIT