source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPEX1.m@ 1141

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1RCDPEX1 ;ALB/TMK - ELECTRONIC EOB MESSAGE EXCEPTIONS PROCESS ;02-MAY-96
2 ;;4.5;Accounts Receivable;**173**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ; Main entry point
6 D DT^DICRW
7 N XQORS,VALMEVL,RCFASTXT,RCDA,RCEXCTYP,DIR,Y,X
8 ; Ask for TRANSMISSION exceptions or DATA exceptions
9 S DIR("A")="DO YOU WANT TO SEE (T)RANSMISSION OR (D)ATA EXCEPTIONS?: ",DIR("B")="T",DIR(0)="SAO^T:TRANSMISSION;D:DATA"
10 S DIR("?",1)="TRANSMISSION EXCEPTIONS INCLUDE ANY PROBLEM ENCOUNTERED WHEN AN ERA/EEOB",DIR("?",2)=" IS RECEIVED AT THE SITE AND BEFORE IT IS STORED PERMANENTLY IN VISTA."
11 S DIR("?",3)=" THIS INCLUDES PARTIAL MESSAGE RECEIPTS, EXTRACT PROBLEMS AND EEOBs THAT ",DIR("?",4)=" WERE TRANSFERRED IN FROM ANOTHER SITE."
12 S DIR("?",5)="DATA EXCEPTIONS INCLUDE EEOB DETAIL RECORDS FOR SPECIFIC BILLS THAT CAN'T BE"
13 S DIR("?",6)=" FULLY PROCESSED INTO THE VISTA SYSTEM. THIS INCLUDES EEOB DETAIL FOR",DIR("?",7)=" CLAIMS THAT NEED TO BE TRANSFERRED TO ANOTHER SITE OR WHOSE DETAIL COULD",DIR("?")=" NOT BE STORED IN IB"
14 D ^DIR K DIR
15 S RCEXCTYP=Y
16 ; Transmission exceptions
17 I RCEXCTYP="T" D EN^VALM("RCDPEX EOB EXCEPTION LIST")
18 I RCEXCTYP="D" D EN^VALM("RCDPEX EOB_SUM EXCEPTION LIST")
19 K RCFASTXT,RCDA
20 Q
21 ;
22INIT ; -- set up inital variables
23 S U="^",VALMCNT=0,VALMBG=1
24 D BLD
25 Q
26 ;
27REBLD ; Set up formatted global
28 ;
29BLD ; -- build list of messages
30 N DA,DR,RCSEQ,RCMSG,RCS,RCER,RCDPDATA,RC0,TOOSOON,X,Z
31 K ^TMP("RCDPEX-EOB",$J),^TMP("RCDPEX-EOBDX",$J)
32 S (RCMSG,RCSEQ,VALMCNT)=0
33 ;
34 ; Extract from 344.5
35 F S RCMSG=$O(^RCY(344.5,"AEXC",1,RCMSG)) Q:'RCMSG S RC0=$G(^(RCMSG,0)) D
36 . I ($P(RC0,U,3)\1)=DT S TOOSOON=0 D Q:TOOSOON
37 .. ; If partial msg, allow a day before it's an exception
38 .. I $P(RC0,U,10)=2 Q
39 . ;
40 . ; -- add to list
41 . ;Display message id, type, date recorded, exception, mail msg #
42 . S RCSEQ=RCSEQ+1
43 . S DR=".01:.03;.1;.11",DA=RCMSG D DIQ3445(DA,DR)
44 . S X=""
45 . S X=$$SETSTR^VALM1($E(RCSEQ_$J("",4),1,4)_" "_$G(RCDPDATA(344.5,RCMSG,.01,"E")),"",1,26)
46 . S X=$$SETSTR^VALM1(" "_$E($G(RCDPDATA(344.5,RCMSG,.02,"I")),4,6),X,27,9)
47 . S X=$$SETSTR^VALM1(" "_$G(RCDPDATA(344.5,RCMSG,.03,"E")),X,36,22)
48 . S X=$$SETSTR^VALM1(" "_$G(RCDPDATA(344.5,RCMSG,.11,"E")),X,58,17)
49 . D SET(X,344.5,RCMSG,RCSEQ)
50 . S X=$J("",4)_"EXCEPTION: "_$G(RCDPDATA(344.5,RCMSG,.1,"E"))
51 . D SET(X,344.5,RCMSG,RCSEQ)
52 . S DR=1,DA=RCMSG D DIQ3445(DA,DR) ; Get display data
53 . S Z=0 F S Z=$O(RCDPDATA(344.5,RCMSG,1,Z)) Q:'Z S X=$J("",6)_RCDPDATA(344.5,RCMSG,1,Z) D SET(X,344.5,RCMSG,RCSEQ)
54 ;
55 I '$D(^TMP("RCDPEX-EOB",$J)) S VALMCNT=2,^TMP("RCDPEX-EOB",$J,1,0)=" ",^TMP("RCDPEX-EOB",$J,2,0)=" There Are No EEOB Exception Records On File"
56 Q
57 ;
58FNL ; -- Clean up list
59 K ^TMP("RCDPEX-EOBDX",$J)
60 D CLEAN^VALM10
61 K RCFASTXT
62 Q
63 ;
64SET(X,FILE,RCMSG,RCSEQ) ; -- set arrays for EOB exception records
65 ; X = the data to set into the global
66 S VALMCNT=VALMCNT+1,^TMP("RCDPEX-EOB",$J,VALMCNT,0)=X
67 S ^TMP("RCDPEX-EOB",$J,"IDX",VALMCNT,RCSEQ)=""
68 S ^TMP("RCDPEX-EOBDX",$J,RCSEQ)=VALMCNT_U_RCMSG_U_FILE
69 Q
70 ;
71HDR ;
72 S VALMHDR(1)=$J("",21)_"ERA/EEOB MESSAGES WITH EXCEPTION CONDITIONS"
73 S VALMHDR(2)=" "
74 Q
75 ;
76DIQ3445(DA,DR) ; DIQ call to retrieve data for DR fields in file 344.5
77 N %I,D0,DIC,DIQ,DIQ2,YY
78 K RCDPDATA(344.5,DA)
79 S DIQ(0)="EI",DIC="^RCY(344.5,",DIQ="RCDPDATA" D EN^DIQ1
80 Q
81 ;
82DIQ3444(DA,DR) ; DIQ call to retrieve data for DR fields in file 344.5
83 N %I,D0,DIC,DIQ,DIQ2,YY
84 K RCDPDATA(344.4,DA)
85 S DIQ(0)="EI",DIC="^RCY(344.4,",DIQ="RCDPDATA" D EN^DIQ1
86 Q
87 ;
Note: See TracBrowser for help on using the repository browser.