ACHSEOBG.m

ACHSEOBG ; IHS/ITSC/PMF - PROCESS EOBRS (6/6) CONT. - SUMMARY/ERROR REPORT ;    [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 ;

 Q:'$D(ACHSERRE)!'$D(ACHSEDAT)

 ;

 I $P($T(@ACHSERRE),";",4)="E" D ^ACHSEOBD

 ;

 ;NOIS call SXX-0201-210071  this can cause a max string.  remove

 ;two lines and replace with four

 ;I $D(^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)) S ^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)=$G(^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE))_"^"_ACHSEDAT Q

 ;S ^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)=ACHSEDAT

 S SCRATCH=$G(^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE))

 I $L(SCRATCH)+$L(ACHSEDAT)>506 Q

 I SCRATCH'="" S SCRATCH=SCRATCH_"^"

 S ^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)=SCRATCH_ACHSEDAT

 K SCRATCH

 Q

 ;

1 ;;P.O. NOT FOUND;E

2 ;;NO FILE FROM CR-REF;E

3 ;;P.O. NUMBER MISMATCH;E

4 ;;AUTH DATE MISMATCH;W

5 ;;BLANKET IND MISMATCH;E

6 ;;DOC TYPE MISMATCH;E

7 ;;FIN LOC CODE MISMATCH;E

8 ;;EOBR ALREADY PROCESSED;E

9 ;;DOCUMENT CANCELLED;E

10 ;;OBJECT CLASS MISMATCH;W

11 ;;CAN NUMBER MISMATCH;W

12 ;;ZERO DOCUMENT AMOUNT;E

13 ;;REGISTERS OUT OF BAL;E

14 ;;CONTRACT NOT FOUND;W

15 ;;VENDOR NOT FOUND;E

16 ;;ICD9 DX CODE ERROR;W

17 ;;ICD0 PROC CODE ERR;W

18 ;;CPT CODE ERROR;W

19 ;;REVENUE CODE ERROR;W

20 ;;DRG CODE NOT FOUND;W

21 ;;FAC NOT IN LOC FILE;E

22 ;;NO LOC FINANCIAL INFO;E

23 ;;DUPLICATE DX CODE;W

24 ;;FAIL ENTRY TO PCC;W

25 ;;NEG ADJ > PAY AMOUNT;E

26 ;;ADJ ERR-DCR ACCT ERR;E

27 ;;FUNDS NOT AVAIL;E

28 ;;NO EOBR AMOUNT ERROR;E

29 ;;MULTIPLE PAYMT;W

30 ;;HEAL REC # MISMATCH;W

31 ;;INTERIM DENIAL;E

32 ;;DOC CANCELLED BY FI;W

33 ;;ADA Code Err;W

34 ;;OBL LIMIT EXCEEDED;E

35 ;;DOC AUTH DATE GONE;E

36 ;;VENDOR MIS-MATCH;W

37 ;;INTEREST DATA FAILED DIE;W

38 ;;INTEREST CAN NOT FOUND;W

39 ;;INTEREST OCC NOT FOUND;W

40 ;;CAN'T PROCESS HCPCS CODE;W

41 ;;DUPLICATE CHS CHECK NUMBER;E

42 ;;DUPLICATE FI CHECK # W/DIF DATE;E

43 ;;DUPLICATE PROC CODE;W

44 ;;NO OBLIGATION LIMITS FOUND;E

45 ;;ADJUSTMENT AMOUNT > ABSOLUTE MAX ALLOWED;E

ACHSEOBG  ; IHS/ITSC/PMF - PROCESS EOBRS (6/6) CONT. - SUMMARY/ERROR REPORT ;    [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

 +3        IF '$DATA(ACHSERRE)!'$DATA(ACHSEDAT)

               QUIT 

 +4       ;

 +5        IF $PIECE($TEXT(@ACHSERRE),";",4)="E"

               DO ^ACHSEOBD

 +6       ;

 +7       ;NOIS call SXX-0201-210071  this can cause a max string.  remove

 +8       ;two lines and replace with four

 +9       ;I $D(^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)) S ^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)=$G(^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE))_"^"_ACHSEDAT Q

 +10      ;S ^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)=ACHSEDAT

 +11       SET SCRATCH=$GET(^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE))

 +12       IF $LENGTH(SCRATCH)+$LENGTH(ACHSEDAT)>506

               QUIT 

 +13       IF SCRATCH'=""

               SET SCRATCH=SCRATCH_"^"

 +14       SET ^ACHSEOBR("ER",ACHSZFPT,ACHSCTR(1),ACHSERRE)=SCRATCH_ACHSEDAT

 +15       KILL SCRATCH

 +16       QUIT 

 +17      ;

1         ;;P.O. NOT FOUND;E

2         ;;NO FILE FROM CR-REF;E

3         ;;P.O. NUMBER MISMATCH;E

4         ;;AUTH DATE MISMATCH;W

5         ;;BLANKET IND MISMATCH;E

6         ;;DOC TYPE MISMATCH;E

7         ;;FIN LOC CODE MISMATCH;E

8         ;;EOBR ALREADY PROCESSED;E

9         ;;DOCUMENT CANCELLED;E

10        ;;OBJECT CLASS MISMATCH;W

11        ;;CAN NUMBER MISMATCH;W

12        ;;ZERO DOCUMENT AMOUNT;E

13        ;;REGISTERS OUT OF BAL;E

14        ;;CONTRACT NOT FOUND;W

15        ;;VENDOR NOT FOUND;E

16        ;;ICD9 DX CODE ERROR;W

17        ;;ICD0 PROC CODE ERR;W

18        ;;CPT CODE ERROR;W

19        ;;REVENUE CODE ERROR;W

20        ;;DRG CODE NOT FOUND;W

21        ;;FAC NOT IN LOC FILE;E

22        ;;NO LOC FINANCIAL INFO;E

23        ;;DUPLICATE DX CODE;W

24        ;;FAIL ENTRY TO PCC;W

25        ;;NEG ADJ > PAY AMOUNT;E

26        ;;ADJ ERR-DCR ACCT ERR;E

27        ;;FUNDS NOT AVAIL;E

28        ;;NO EOBR AMOUNT ERROR;E

29        ;;MULTIPLE PAYMT;W

30        ;;HEAL REC # MISMATCH;W

31        ;;INTERIM DENIAL;E

32        ;;DOC CANCELLED BY FI;W

33        ;;ADA Code Err;W

34        ;;OBL LIMIT EXCEEDED;E

35        ;;DOC AUTH DATE GONE;E

36        ;;VENDOR MIS-MATCH;W

37        ;;INTEREST DATA FAILED DIE;W

38        ;;INTEREST CAN NOT FOUND;W

39        ;;INTEREST OCC NOT FOUND;W

40        ;;CAN'T PROCESS HCPCS CODE;W

41        ;;DUPLICATE CHS CHECK NUMBER;E

42        ;;DUPLICATE FI CHECK # W/DIF DATE;E

43        ;;DUPLICATE PROC CODE;W

44        ;;NO OBLIGATION LIMITS FOUND;E

45        ;;ADJUSTMENT AMOUNT > ABSOLUTE MAX ALLOWED;E