Produced by Araxis Merge on 2/27/2019 2:32:45 PM Eastern Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip | TAS ePay US335 SDD.docx | Fri Jan 25 13:44:00 2019 UTC |
2 | MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip | TAS ePay US335 SDD.docx | Mon Feb 25 19:34:23 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 15 | 582 |
Changed | 0 | 0 |
Inserted | 0 | 0 |
Removed | 15 | 97 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | MCCF EDI T AS US335 | ||
2 | System Des ign Docume nt | ||
3 | PRCA*4.5*x xx | ||
4 | |||
5 | |||
6 | |||
7 | |||
8 | Department of Vetera ns Affairs | ||
9 | January 20 17 | ||
10 | Version 1. 1 | ||
11 | User Story ID: US335 | ||
12 | User Story Name: Re port for w ho marked EEOBs for auto-post | ||
13 | Sizing: 1 3 | ||
14 | |||
15 | Epic Taxon omy | ||
16 | eBiz Comp liance | ||
17 | Port | ||
18 | Update | ||
19 | Increa se No Touc h | ||
20 | TAS Apps | ||
21 | Story | ||
22 | As a... | ||
23 | I want to. .. | ||
24 | So that... | ||
25 | ePay Manag ement | ||
26 | A history of users w ho marked EEOBs for auto-post | ||
27 | Identify w ho is resp onsible fo r making c hanges | ||
28 | |||
29 | Conversati on | ||
30 | Changed “l og” to “re port”, “em ployees” t o “users” | ||
31 | Menu = EDI Lockbox R eport (pos ition, acr onym, name ) | ||
32 | Filter by date range , M/P/T, u ser (singl e, multipl e, all), f ilter by p ayer name (specific, range, al l) | ||
33 | Primary so rt by date , secondar y by user or payer | ||
34 | Export to Excel, Lis t Manager format | ||
35 | User displ ayed as fu ll user na me (max ch ar allowed ) | ||
36 | Headers - ERA>Claim# >Trace#>Us er>Date>Pa yer Name | ||
37 | NOTE: this user stor y also has a functio nal design document. Refer to the desig n document for the r eport layo ut. | ||
38 | |||
39 | Report des cription a nd Behavio r: | ||
40 | This repor t must be exportable to Excel and also h ave the op tion to be displayed in a List man templa te. A new menu opti on “EEOBs Marked for Auto-Post Audit Rep ort” [RCDP E MARKED A UTO-POST R EPORT] wit h a shortc ut of “EMA ” will be added to t he followi ng menu: a s shown in the funct ional desi gn documen t. The fu nctional d esign docu ment demon strates ex actly wher e the clie nt wants t he option to appear in the men us listed below: | ||
41 | EDI Lockbo x (ePaymen ts) Report Menu (RCD PE EDI LOC KBOX REPOR TS MENU) | ||
42 | |||
43 | The title of the new report wi ll be ‘EEO Bs Marked for Auto-P ost Audit Report’. I t will hav e the filt er and sor t criteria as shown in the fun ctional de sign docum ent. | ||
44 | Filters wi ll include : | ||
45 | Start Date | ||
46 | No default | ||
47 | |||
48 | End Date | ||
49 | No default | ||
50 | Divisions (up to 20) | ||
51 | No default | ||
52 | (M)edical, (P)harmac y, (T)ric are or (A) ll – Stand ard M/P/T filter | ||
53 | “All” | ||
54 | Run Report for (A)ll , (S)pecif ic or (R)a nge of Ins urance Com panies – S tandard pa yer filter | ||
55 | Default “A ll” | ||
56 | Run Report for (S)pe cific or ( A)ll users | ||
57 | Default “A ll” | ||
58 | If specifi c chosen, allows mul tiple user s to be re quested | ||
59 | Sort by (I )nsurance Company Na me or (Use r | ||
60 | Default “U ser” | ||
61 | Note this is the sec ondary sor t. The pri mary sort is Marked for Auto-P ost date | ||
62 | Export to Excel? | ||
63 | Default “N o” | ||
64 | Display in List Mana ger Format ? | ||
65 | Default “N o” | ||
66 | |||
67 | |||
68 | Sort possi bilities ( with no de fault) wil l only be asked if t he user se lects to v iew “both” for ERAs | ||
69 | |||
70 | The report shall con tain the f ollowing d ata: | ||
71 | Payer- The insurance company f or the ERA . This fie ld is a ma ximum of 6 0 characte rs. This i s the PAYM ENT FROM f ield in th e ELECTRON IC REMITTA NCE ADVICE file (fil e 344.4, f ield .06). | ||
72 | Claim Numb er- The cl aim associ ated with the ERA de tail line. This fie ld is a ma ximum of x x characte rs. This i s the XXX field in t he XXX fil e (file xx x, field x xx). | ||
73 | Trace Numb er- The ba nk trace n umber for the ERA re ceived. Th is field i s a maximu m of 50 ch aracters. This is th e TRACE NU MBER field in the EL ECTRONIC R EMITTANCE ADVICE fil e (file 34 4.4, field .02). | ||
74 | Aut o-Post Dat e- The dat e/time the ERA detai l line was Auto-Post ed. This f ield is 12 character s. This i s the AUTO -POST DATE field in the ERA DE TAIL sub-f ile of the ELECTRONI C REMITTAN CE ADVICE file (file 344.41, f ield 9). | ||
75 | Use r- The use r from the NEW PERSO N file (fi le 200) wh o marked t he ERA det ail line f or Auto-Po sting. Th is field i s a maximu m of 35 ch aracters. This is t he MARKED FOR AUTOPO ST USER fi eld in th e ERA DETA IL sub-fil e of the E LECTRONIC REMITTANCE ADVICE fi le (file 3 44.41, fie ld 6.01). | ||
76 | |||
77 | The report will page break on primary So rt (Date) and second ary sort ( payer or u ser). | ||
78 | For how th e report s hould look refer to the functi onal desig n document . | ||
79 | The report should ha ve an “*** End of Re port ***” message di splayed. | ||
80 | |||
81 | Resoluti on – Added Changed O bjects | ||
82 | |||
83 | Options | ||
84 | Activities | ||
85 | Option Nam e | ||
86 | RCDPE MARK ED AUTO-PO ST REPORT | ||
87 | Enhancemen t Category | ||
88 | New | ||
89 | Modify | ||
90 | Delete | ||
91 | No Change | ||
92 | Associated Menu Opti ons that w ill invoke this refe rence | ||
93 | RCDPE EDI LOCKBOX RE PORTS MENU | ||
94 | |||
95 | Data Passi ng | ||
96 | Input | ||
97 | Output | ||
98 | Both | ||
99 | Global Re ference | ||
100 | Local Ref erence | ||
101 | Menu Text Descriptio n | ||
102 | EEOBs Mark ed for Aut o-Post Aud it Report | ||
103 | Option Typ e | ||
104 | Edit | ||
105 | |||
106 | Menu | ||
107 | Inquire | ||
108 | |||
109 | Action | ||
110 | Run Routi ne | ||
111 | Other | ||
112 | |||
113 | Associated Routine | ||
114 | EN^RCDPEMA P | ||
115 | Option Def inition | ||
116 | |||
117 | |||
118 | Options | ||
119 | Activities | ||
120 | Option Nam e | ||
121 | RCDPE EDI LOCKBOX RE PORTS MENU | ||
122 | Enhancemen t Category | ||
123 | New | ||
124 | Modify | ||
125 | Delete | ||
126 | No Change | ||
127 | Associated Menu Opti ons that w ill invoke this refe rence | ||
128 | RCDPE EDI LOCKBOX AC T REPORT SYN ONYM: DA Or der: 10 | ||
129 | RCDPE EFT AGING REPO RT SYNO NYM: EFT Ord er: 30 | ||
130 | RCDPE ERA AGING REPO RT SYNON YM: ERA Order : 40 | ||
131 | RCDPE VIEW /PRINT ERA SYNONYM: V P Order: 20 0 | ||
132 | RCDPE ACTI VE WITH EE OB REPORT SYN ONYM: AB Or der: 60 | ||
133 | RCDPE REMO VED ERA AU DIT SYNONYM : REMR Order: 180 | ||
134 | RCDPE ERA W/PAPER EO B REPORT S YNONYM: PO SR Ord er: 150 | ||
135 | RCDPE EFT AUDIT REPO RT SY NONYM: DUP R Order : 100 | ||
136 | RCDPE EEOB MOVE/COPY /RMOVE RPT SYNONY M: MCR Order:13 0 | ||
137 | RCDPE AUTO -POST REPO RT SYNO NYM: AP Ord er:80 | ||
138 | RCDPE AUTO -DECREASE REPORT S YNONYM: AD Order: 70 | ||
139 | RCDPE PAYE R EXCLUSIO N NAME TIN SYNON YM: PX Ord er: 160 | ||
140 | RCDPE CARC /RARC TABL E REPORT SYN ONYM: TB O rder: 190 | ||
141 | RCDPE CARC /RARC QUIC K SEARCH SYN ONYM: QS O rder: 170 | ||
142 | RCDPE PROV IDER LVL A DJ REPORT SY NONYM: PLB O rder: 140 | ||
143 | RCDPE EFT TRANSACTIO N AUD REP SYN ONYM: ETA Or der: 120 | ||
144 | RCDPE CARC CODE PAYE R REPORT SYN ONYM: CR Order: 90 | ||
145 | RCDPE ERA STATUS CHN G AUD REP SYN ONYM: ESC O rder: 110 | ||
146 | RCDPE UNAP PLIED EFT DEP REPORT SYN ONYM: UN Order: 50 | ||
147 | RCDPE AUTO -POST RECE IPT REPORT SYN ONYM: APR Or der: 85 | ||
148 | RCDPE MARK ED AUTO-PO ST REPORT SYNON YM: EMA Order: 135 | ||
149 | Data Passi ng | ||
150 | Input | ||
151 | Output | ||
152 | Both | ||
153 | Global Re ference | ||
154 | Local Ref erence | ||
155 | Menu Text Descriptio n | ||
156 | |||
157 | Option Typ e | ||
158 | Edit | ||
159 | |||
160 | Menu | ||
161 | Inquire | ||
162 | |||
163 | Action | ||
164 | Run Routi ne | ||
165 | Other | ||
166 | |||
167 | Associated Routine | ||
168 | |||
169 | Option Def inition | ||
170 | |||
171 | |||
172 | Changes: | ||
173 | Added/Chan ged Displa y orders o n all menu items | ||
174 | Added ‘RCD PE MARKED AUTO-PORT REPORT’ me nu item | ||
175 | |||
176 | |||
177 | |||
178 | |||
179 | |||
180 | Routines | ||
181 | Activities | ||
182 | Routine Na me | ||
183 | RCDPEMAP | ||
184 | Enhancemen t Category | ||
185 | New | ||
186 | Modify | ||
187 | Delete | ||
188 | No Change | ||
189 | RTM | ||
190 | |||
191 | Related Op tions | ||
192 | RCDPE MARK ED AUTO-PO ST REPORT | ||
193 | Routines | ||
194 | Activities | ||
195 | Data Dicti onary (DD) Reference s | ||
196 | |||
197 | Related Pr otocols | ||
198 | |||
199 | Related In tegration Control Re gistration s (ICRs) | ||
200 | Use DIVISI ON^VAUTOMA via Contr olled IA 6 64 | ||
201 | |||
202 | Data Passi ng | ||
203 | Input | ||
204 | Output Re ference | ||
205 | Both | ||
206 | Global Re ference | ||
207 | Local | ||
208 | Input Attr ibute Name and Defin ition | ||
209 | Name: | ||
210 | Definition : | ||
211 | Output Att ribute Nam e and Defi nition | ||
212 | Name: | ||
213 | Definition : | ||
214 | Related Ro utines | ||
215 | Routines “ Called By” | ||
216 | Routines “ Called” | ||
217 | |||
218 | |||
219 | $$ASKLM^RC DPEARL | ||
220 | LMRPT^RCDP EARL | ||
221 | $$HDRLIN2^ RCDPEMA1 | ||
222 | $$HDRLN3^R CDPEMA1 | ||
223 | RPTOUT^RCD PEMA1 | ||
224 | $$ISSEL^RC DPEU1 | ||
225 | $$PAYRNG^R CDPEU1 | ||
226 | $$RTYPE^RC DPEU1 | ||
227 | $$SELPAY^R CDPEU1 | ||
228 | |||
229 | Current Lo gic | ||
230 | N/A | ||
231 | |||
232 | Modified L ogic | ||
233 | RCDPEMAP ; EDE/FA - L IST ALL AU TO-POSTED RECEIPTS R EPORT ;Nov 17, 2016 ;;4.5;Acco unts Recei vable;**xx x**;Mar 20 , 1995;Bui ld 121 ;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ;E N ; Main e ntry point N INPUT,R CPAR,RCVAU TD,XX,YY K ^TMP($J," RCDPE_MAP" ),^TMP("RC DPE_MAP",$ J) K ^TMP( "RCSELPAY" ,$J),^TMP( $J,"SELPAY ER"),^TMP( $J,"SELUSE R") ; S IN PUT=$$STAD IV(.RCVAUT D) ; Divis ion filter Q:'INPUT ; '^' or timeout S $P(INPU T,"^",2)=$ $DTRNG(0) ; Start Da te|End dat e Q:'$P(IN PUT,"^",2) ; '^' or timeout S $P(INPUT," ^",3)=$$RT YPE^RCDPEU 1("") ; M/ P/T filter Q:$P(INPU T,"^",3)<0 ; '^' or timeout S RCPAR("SEL C")=$$PAYR NG^RCDPEU1 () ; Selec ted or Ran ge of Paye rs Q:RCPAR ("SELC")=- 1 ; '^' or timeout S $P(INPUT, "^",4)=RCP AR("SELC") ; I RCPAR ("SELC")'= "A" D Q:X X=-1 ; Sin ce we don' t want all payers . S RCPAR(" TYPE")=$P( INPUT,"^", 3) ; promp t for paye rs we do w ant . S RC PAR("FILE" )=344.4 . S RCPAR("D ICA")="Sel ect Insura nce Compan y NAME: " . S XX=$$S ELPAY^RCDP EU1(.RCPAR ) ; S $P(I NPUT,"^",5 )=$$SELUSE R() ; Sele cted or Al l users fi lter Q:$P( INPUT,"^", 5)<0 ; '^' or timeou t ; I $P(I NPUT,"^",5 )=2 D Q:X X=-1 ; Pro mpt for se lected use rs . S XX= $$SELUSER2 () ; S $P( INPUT,"^", 6)=$$SECSO RT() ; Sec ondary Sor t Q:$P(INP UT,"^",6)< 0 ; '^' or timeout S $P(INPUT, "^",7)=$$A SKLM^RCDPE ARL ; Ask to Display in Listma n Template Q:$P(INPU T,"^",7)<0 ; '^' or timeout I $P(INPUT," ^",7)=1 D Q ; Compile data and call listm an to disp lay . D LM OUT(INPUT, .RCVAUTD,. IO) S $P(I NPUT,"^",8 )=$$EXCEL( ) ; Ask to output to Excel Q:$ P(INPUT,"^ ",8)=-1 ; '^' or tim eout D:$P( INPUT,"^", 8)=1 INFO^ RCDPEM6 ; Display ca pture info rmation fo r Excel S $P(INPUT," ^",9)=$$DE VICE($P(IN PUT,"^",8) ,.IO) ; As k output d evice Q:'$ P(INPUT,"^ ",9) ; ; O ption to q ueue I $D( IO("Q")) D Q . N JO B S JOB=$J . N ZTDES C,ZTRTN,ZT SAVE,ZTSK . S ZTRTN= "REPORT^RC DPEMAP(INP UT,.RCVAUT D,.IO,JOB) " . S ZTDE SC="EEOBS MARKED FOR AUTO-POST AUDIT REP ORT" . M R CPYRSEL=^T MP("RCSELP AY",$J) . S ZTSAVE(" RC*")="",Z TSAVE("VAU TD")="",ZT SAVE("IO*" )="" . S Z TSAVE("INP UT")="",ZT SAVE("JOB" )="" . S Z TSAVE("^TM P(""RCDPEU 1"",$J,")= "" . D ^%Z TLOAD . W !!,$S($D(Z TSK):"Task number "_ ZTSK_" was queued.", 1:"Unable to queue t his task." ) . K ZTSK ,IO("Q") . D HOME^%Z IS ; D REP ORT(INPUT, .RCVAUTD,. IO) ; Comp ile and Di splay Repo rt data Q ;LMOUT(INP UT,RCVAUTD ,IO) ; Out put report to Listma n ; Input: INPUT - S ee REPORT for a comp lete descr iption ; R CVAUTD - A rray of se lected Div isions ; O nly passed if A1=2 ; Output: ^ TMP("RCDPE _MAP",$J,C TR)=Line - Array of display li nes (no he aders) ; f or output to Listman N HDR S $ P(INPUT,"^ ",10)=0 ; Initial li stman line counter D REPORT(IN PUT,.RCVAU TD,.IO) ; Get the li nes to be displayed S HDR("TIT LE")="EEOB s Marked f or Auto-Po st Report" S HDR(1)= $$HDRLN2^R CDPEMA1(IN PUT) S HDR (2)=$$HDRL N3^RCDPEMA 1(INPUT) S HDR(3)="" S HDR(4)= "" S HDR(5 )="" S HDR (6)="" S H DR(7)="ERA # Claim # Trace #" D LMRPT^RC DPEARL(.HD R,$NA(^TMP ("RCDPE_MA P",$J))) ; Generate ListMan di splay ; D ^%ZISC ; C lose the d evice K ^T MP("RCDPE_ MAP",$J),^ TMP($J,"RC DPE_MAP") K ^TMP("RC SELPAY",$J ),^TMP($J, "SELPAYER" ),^TMP($J, "SELUSER") Q ;STADIV (RCVAUTD) ; Division /Station F ilter ; In put: None ; Output: RCVAUTD - Array of s elected di visions, i f 1 is ret urned ; Re turns: 0 - User up-a rrowed or timed out ; 1 - All divisions selected ; 2 - Selec ted Divisi ons N DIR, DIROUT,DIR UT,DTOUT,D UOUT,VAUTD ,X,Y D DIV ISION^VAUT OMA ; IA # 664 allows this Q:Y< 0 0 ; User up-arrowe d or timed out Q:VAU TD=1 1 ; A ll divisio ns selecte d M RCVAUT D=VAUTD ; Sav e selected divisions (if any) Q 2 ;SELUS ER() ; Ask the user if they on ly want to all users or only s elected on es ; Input : None ; R eturns: 0 - User up- arrowed or timed out ; 1 - Sho w all user s ; 2 - Sh ow selecte d user N D IR,DIROUT, DIRUT,DTOU T,DUOUT,X, Y S DIR("A ")="Run Re port for ( S)pecific or (A)ll U sers: " S DIR(0)="SA ^S:Specifi c;A:All" S DIR("?",1 )="Enter ' A' to show EEOBs mar ked by any user." S DIR("?")=" Enter 'S' to show EE OBs marked by specif ic user(s) ." S DIR(" B")="A" D ^DIR I $D( DTOUT)!$D( DUOUT)!(Y= "") Q 0 Q: Y="A" 1 Q 2 ;SELUSER 2(PARAM) ; Allows th e user to enter the selected u sers to fi lter by ; Input: Non e ; Output : ^TMP($J, "SELUSER", IEN)="" Wh ere IEN - IEN for fi le 200 ; R eturns: 1 - Success, -1 - Abor t N RCA,RE T,RETURN,Q UIT K ^TMP ($J,"SELUS ER") S QUI T=0,RETURN =1 F D Q :QUIT . S RET=$$ASKU SER() . I RET=-1 S R ETURN=-1,Q UIT=1 Q . I RET=0 D . . I $D(^ TMP($J,"SE LUSER")) S QUIT=1 . . E D . . . W !!,"Y ou must se lect at le ast one us er",*7,! I RETURN=-1 K ^TMP($J ,"SELUSER" ) Q -1 S R ETURN=$S($ D(^TMP($J, "SELUSER") ):1,1:-1) Q RETURN ; ASKUSER() ; Prompt f or a User from file 200 ; Inpu t: None ; Output: ^T MP($J,"SEL USER",IEN) ="" - Sele cted User ; Returns: 1 - User selected ; 0 - No Us er selecte d ; -1 - u ser typed '^' or tim ed out ; N DIC,DIR,D IROUT,DIRU T,DTOUT,DU OUT,X,Y S RETURN=1 ; S DIC=200 ,DIC(0)="Q EA" S DIC( "A")="Sele ct User: " S DIC("S" )="I '$D(^ TMP($J,""S ELUSER"",Y ))" D ^DIC I $D(DTOU T)!$D(DUOU T) Q -1 I Y=-1 Q 0 S ^TMP($J," SELUSER",+ Y)="" Q 1 ;SECSORT() ; Ask the user if t hey want t he seconda ry sort by User or P ayer Name ; Input: N one ; Retu rns: 0 - U ser up-arr owed or ti med out ; 1 - Sort b y User ; 2 - Sort by Payer Nam e N DIR,DI ROUT,DIRUT ,DTOUT,DUO UT,X,Y S D IR("A")="S ort by Ins urance Com pany (N)am e or (U)se r: " S DIR (0)="SA^N: Name;U:Use r" S DIR(" ?",1)="Ent er 'N' to sort by Pa yer Name." S DIR("?" )="Enter ' U' to sort by user." S DIR("B" )="N" D ^D IR I $D(DT OUT)!$D(DU OUT)!(Y="" ) Q 0 Q:Y= "U" 1 Q 2 ;DTRNG(WHI CH) ; Allo ws the use r to selec t the Auto -Post OR E RA Receive d ; date r ange to be used ; In put: WHICH - 0 - Aut o-Post Dat e Range ; 1 - ERA Da te Receive d Date Ran ge ; Retur ns: 0 - Us er up-arro wed or tim ed out, 1 otherwise ; A1^A2 - Where: ; A 1 - Aut-Po st Start D ate ; A2 - Auto-Post End Date N DIR,DIRO UT,DIRUT,D TOUT,DUOUT ,RANGE,STA RT,X,XX,Y S DIR(0)=" DAO^:"_DT_ ":APE" S D IR("A")="S tart Date: " S DIR(" ?")="Enter the earli est Auto-P ost date" D ^DIR Q:$ D(DTOUT)!$ D(DUOUT)!( Y="") 0 S START=YEND DT ; Promp t for end date K DIR S DIR("B" )=Y(0) S D IR(0)="DAO ^"_START_" :"_DT_":AP E" S DIR(" A")="End D ate: " S D IR("?")="E nter the l atest Auto -Post date " D ^DIR Q :$D(DTOUT) !$D(DUOUT) !(Y="") 0 I Y<START D G ENDDT . S XX=$$ FMTE^XLFDT (START,"2Z D") ;**** . W !,*7," Enter an E nd date th at is not less than "_XX S RAN GE=START_" |"_Y Q RAN GE ;EXCEL( ) ; Ask th e user if they want to export to Excel ; Input: No ne ; Retur ns: -1 - U ser up-arr owed or ti med out ; 0 - Output to paper ; 1 - Outp ut to Exce l N DIR,DI ROUT,DIRUT ,DTOUT,DUO UT,X,Y S D IR(0)="Y" S DIR("A") ="Export t he report to Microso ft Excel" S DIR("B") ="NO" S DI R("?")="En ter 'YES' to output to Excel. Otherwise enter 'NO' " D ^DIR I $G(DUOUT) Q -1 Q Y ;DEVICE(EX CEL,IO) ; Select the output de vice ; Inp ut: EXCEL - 1 - Oupu t to Excel , 0 otherw ise ; Outp ut: %ZIS - Selected device ; I O - Array of selecte d output i nfo ; Retu rns: 0 - N o device s elected, 1 otherwise N POP,RCP YRSEL,%ZIS S %ZIS="Q M" D ^%ZIS Q:POP 0 Q :EXCEL 1 ; Output to Excel, no queueing ; Q 1 ;REP ORT(INPUT, RCVAUTD,IO ,JOB) ; Co mpile and run the re port ; Exp ects ZTQUE UED to be defined al ready if q ueued ; In put: INPUT - A1^A2^A 3^...^An W here: ; A1 - 1 - All divisions selected ; 2 - Sele cted divis ions ; A2 - B1|B2 - Where: ; B 1 - Auto-P ost Start Date ; B2 - Auto-Pos t End Date ; A3 - 'M ' - Medica l Payers o nly ; 'P' - Pharmacy Payers on ly ; 'T' - Tricare P ayers only e ; 'A' - All Payers ; A4 - 'S ' - Specif ic Payers ; 'R' - Ra nge of Pay ers ; 'A' - All Paye rs ; A5 - 1 - Displa y all user s ; 2 - Di splay sele cted users ; A6 - 1 - Sort by User ; 2 - Sort by P ayer Name ; A7 - 0 - Do not di splay in a listman t emplate ; 1 - Displa y in a lis tman templ ate ; A8 - 0 - Outpu t to paper ; 1 - Out put to Exc el ; A9 - Line count er for Lis tman outpu t ; RCVAUT D - Array of selecte d Division s ; Only p assed if A 1=2 ; IO - Interface device ; JOB - $J ( optional, only passe d in when report is queued) ; ^TMP($J,"R CSELPAY") - Global A rray of se lected ins urance com panies ; ^ TMP($J,"SE LUSER") - Global Arr ay of sele cted users ; Output: ^TMP("RCD PEMAP",$J, CTR)=Line - Array of display l ines (no h eaders) ; for output to Listma n ; Only s et when A7 -1 N CURDT ,DIVFLT,DT END,DTSTAR T,IENS,IEN 3444,IEN34 441,PAYER, PAYERU N R CTYPE,RCPA YS,SORT,UI EN,USER,US ERU,USERF, SVAL,XX,YY ,ZZ K ^TMP ("RCDPE_MA P",$J),^TM P($J,"RCDP E_MAP") ; I '$G(JOB) S JOB="" U IO S DIV FLT=$P(INP UT,"^",1) ; Division filter S SORT=$P(IN PUT,"^",6) ; Type of secondary sort S DT END=$P($P( INPUT,"^", 2),"|",2)_ ".9999" ; End of Da te Range S DTSTART=$ P($P(INPUT ,"^",2),"| ",1) ; End of Date R ange S RCT YPE=$P(INP UT,"^",3) ; Medical/ Pharmacy/T ricare/All S RCPAYS= $P(INPUT," ^",4) ; Pa yers All/S elected/Ra nge S USER F=$P(INPUT ,"^",5) ; All Users/ Selected U sers ; ; F irst filte r and sort the repor t S CURDT= (DTSTART-1 )_.9999 F D Q:'CUR DT Q:CURD T>(DTEND) . S CURDT= $O(^RCY(34 4.4,"F",CU RDT)) . Q: 'CURDT . Q :CURDT>(DT END) . S I EN3444=0 . F D Q:' IEN3444 . . S IEN344 4=$O(^RCY( 344.4,"F", CURDT,IEN3 444)) . . Q:'IEN3444 . . I DIV FLT'=1 Q:' $$CHKDIV^R CDPEDAR(IE N3444,1,.R CVAUTD) ; Not a sele cted Divis ion . . S PAYER=$$GE T1^DIQ(344 .4,IEN3444 ,.06,"I") ; Payment From field . . S PAY ERU=$$UP^X LFSTR(PAYE R) . . S X X=1 . . I RCPAYS'="A " D Q:'XX . . . S X X=$$ISSEL^ RCDPEU1(34 4.4,IEN344 4) ; Check if payer was select ed . . E I RCTYPE'= "A" D Q:' XX ; If all of a give typ e of payer selected . . . S XX =$$ISTYPE^ RCDPEU1(34 4.4,IEN344 4,RCTYPE) ; Check th at payer m atches typ e . . S IE N34441="" . . F D Q:IEN34441 ="" . . . S IEN34441 =$O(^RCY(3 44.4,"F",C URDT,IEN34 44,IEN3444 1)) . . . Q:IEN34441 ="" . . . S IENS=IEN 34441_","_ IEN3444_", " . . . S UIEN=$$GET 1^DIQ(344. 41,IENS,6. 01,"I") ; ERA Detail line Mark ed Auto-Po st User . . . Q:UIEN ="" ; Not m arked for Auto-Post . . . S US ER=$$GET1^ DIQ(200,UI EN_",",.01 ,"E") . . . S USERU= $$UP^XLFST R(USER) . . . I USER F'=1,'$D(^ TMP($J,"SE LUSER",UIE N)) Q ; Not a selected User . . . S SVAL=$S (SORT=2:PA YERU,1:USE RU) ; Get the sort v alue . . . S XX=PAYE R_"^"_USER . . . S $ P(XX,"^",3 )=$$GET1^D IQ(344.4,I EN3444_"," ,.01,"E") ; ERA # . . . S YY=$ $GET1^DIQ( 344.41,IEN S,.02,"I") ; IEN for 361.1 . . . S ZZ=$$ GET1^DIQ(3 61.1,YY_", ",.01,"I") ; IEN for 399/430 . . . S ZZ= $$GET1^DIQ (430,ZZ_", ",.01,"E") ; Claim # . . . S Z Z=$TR(ZZ," -","") . . . S $P(XX ,"^",4)=ZZ . . . S $ P(XX,"^",5 )=$$GET1^D IQ(361.1,Y Y_",",.07, "E") ; Tra ce # . . . ; . . . ; Found one that was marked for auto-post . . . S ^ TMP($J,"RC DPE_MAP"," SEL",CURDT )=$$FMTE^X LFDT(CURDT ,"2ZD") . . . S ^TMP ($J,"RCDPE _MAP","SEL ",CURDT,SV AL)=$S(SOR T=2:PAYER, 1:USER) . . . S ^TMP ($J,"RCDPE _MAP","SEL ",CURDT,SV AL,IEN3444 ,IEN34441) =XX ; D RP TOUT^RCDPE MA1(INPUT) ; Output the report ; ; Quit if Listman - clean u p of ^TMP & device i s handled in LMOUT^R CDPELAR Q: $P(INPUT," ^",7)=1 ; ; Close de vice I '$D (ZTQUEUED) D ^%ZISC I $D(ZTQUE UED) S ZTR EQ="@" K ^ TMP("RCDPE _MAP",$J), ^TMP($J,"R CDPE_MAP") K ^TMP("R CSELPAY",$ J),^TMP($J ,"SELPAYER "),^TMP($J ,"SELUSER" ) K ^TMP(" RCDPEU1",$ J) K ZTQUE UED Q ;ASK STOP() ;EP from RCDP EMA1 ; Ask to contin ue ; Input : IOST - D evice Type ; Return s: 1 - Use r wants to quit, 0 o therwise N DIR,DIROU T,DIRUT,DT OUT,DUOUT Q:$E(IOST, 1,2)'["C-" 0 ; Not a terminal S DIR(0)=" E" W ! D ^ DIR I ($D( DIRUT))!($ D(DUOUT)) Q 1 Q 0 ; | ||
234 | |||
235 | |||
236 | Routines | ||
237 | Activities | ||
238 | Routine Na me | ||
239 | RCDPEMA1 | ||
240 | Enhancemen t Category | ||
241 | New | ||
242 | Modify | ||
243 | Delete | ||
244 | No Change | ||
245 | RTM | ||
246 | |||
247 | Related Op tions | ||
248 | RCDPE AUTO -POST RECE IPT REPORT | ||
249 | Routines | ||
250 | Activities | ||
251 | Data Dicti onary (DD) Reference s | ||
252 | |||
253 | Related Pr otocols | ||
254 | |||
255 | Related In tegration Control Re gistration s (ICRs) | ||
256 | |||
257 | Data Passi ng | ||
258 | Input | ||
259 | Output Re ference | ||
260 | Both | ||
261 | Global Re ference | ||
262 | Local | ||
263 | Input Attr ibute Name and Defin ition | ||
264 | Name: | ||
265 | Definition : | ||
266 | Output Att ribute Nam e and Defi nition | ||
267 | Name: | ||
268 | Definition : | ||
269 | |||
270 | |||
271 | Related Ro utines | ||
272 | Routines “ Called By” | ||
273 | Routines “ Called” | ||
274 | |||
275 | RCDPEMAP | ||
276 | $$ENDORPRT ^RCDPEARL | ||
277 | $$ASKSTOP^ RCDPEARL | ||
278 | |||
279 | |||
280 | Current Lo gic | ||
281 | N/A | ||
282 | |||
283 | Modified L ogic | ||
284 | RCDPEMA1 ; EDE/FA - L IST ALL AU TO-POSTED RECEIPTS R EPORT ;Nov 17, 2016 ;;4.5;Acco unts Recei vable;**xx x**;Mar 20 , 1995;Bui ld 121 ;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ; Q ; no d irect entr y ;RPTOUT( INPUT) ;EP from RCDP EMAP ; Out put the re port to pa per/screen , listman or excel ; Input: IN PUT - See REPORT^RCD PEMAP for a complete descripti on ; ^TMP( $J,A1,"SEL ",A2)=Exte rnal Auto- Post Date ; ^TMP($J, A1,"SEL",A 3)=Externa l lower ca sed sort v alue (Paye r or User) ; ^TMP($J ,A1,"SEL", A2,A3,A4,A 5)=B1^B2^B 3^B4^B5 - if record passed fil ters Where : ; A1 - " RCDPE_MAP" ; A2 - In ternal Aut o-Post Dat e (primary sort) ; A 3 - Second ary Sort V alue (Paye r or User Name) ; A4 - Interna l IEN for file 344.4 ; A5 - In ternal IEN for file 344.41 ; B 1 - Payer Name ; B2 - User Nam e ; B3 - E RA # ; B4 - Claim # ; B5 - Tra ce # ; Out put: ^TMP( "RCDPE_MAP ",$J,CTR)= Line - Arr ay of disp lay lines (no header s) ; for o utput to L istman ; O nly set wh en A7-1 ; N A1,ADATE ,DATA,EXCE L,FIRST,LN CNT,LSTMAN ,OUTYPE,PA GE,PAYER,S ORT,STOP,S VAL S (LNC NT,PAGE)=0 ; Initial ize Line/P age counte rs S $P(IN PUT,"^",9) =0 ; Line Counter fo r Listman output S S ORT=$P(INP UT,"^",6) ; Secondar y Sort by Payer or U ser? S EXC EL=$P(INPU T,"^",8) ; Output to Excel? S LSTMAN=$P( INPUT,"^", 7) ; Outpu t to Listm an? S OUTY PE=$S(EXCE L:2,LSTMAN :1,1:0) S DATA=0,FIR ST=1 I OUT YPE=2 D ; Excel Oupu t - Print header lin e . S XX=" Auto-Post Date" . S XX=XX_$S(S ORT=2:"Pay er",1:"Use r") . S XX =XX_"" . S XX=XX_"^E RA #^Claim #^Trace # " . W !,XX . ; S A1= "RCDPE_MAP ",STOP=0 S ADATE="" F D Q:AD ATE="" Q: STOP . S A DATE=$O(^T MP($J,A1," SEL",ADATE )) . Q:ADA TE="" . I OUTYPE=1 D ; Listman O utput . . S XX=$P(IN PUT,"^",9) ,XX=XX+1 . . S ^TMP( A1,$J,XX)= "",XX=XX+1 . . S ^TM P(A1,$J,XX )="Auto-Po st Date: " _^TMP($J,A 1,"SEL",AD ATE) . . S $P(INPUT, "^",9)=XX . ; . I 'O UTYPE D Q :STOP ; O utput to S creen/Pape r . . I FI RST D Q ; Ini tial Page Header . . . S FIRST =0 . . . D PHEADER(I NPUT,.LNCN T,.PAGE) . . . W !!, "Auto-Post Date: "_^ TMP($J,A1, "SEL",ADAT E) . . . S LNCNT=LNC NT+2 . . I (LNCNT+7) >IOSL D Q :STOP ; Page break . . . S S TOP=$$ASKS TOP^RCDPEM AP() . . . Q:STOP . . . D PHEA DER(INPUT, .LNCNT,.PA GE) ; Page Header . . W !!,"Au to-Post Da te: "_^TMP ($J,A1,"SE L",ADATE) . . S LNCN T=LNCNT+2 . D RPT2(. INPUT,A1,A DATE,SORT, OUTYPE,.LN CNT,.STOP, .DATA) I ' DATA,'EXCE L,'LSTMAN D . D PHEA DER(INPUT, .LNCNT,.PA GE) I 'EXC EL D . S X X=$$ENDORP RT^RCDPEAR L . I OUTY PE=1 D Q . . S YY=$ P(INPUT,"^ ",9)+1 . . S $P(INPU T,"^",9)=Y Y . . S ^T MP(A1,$J,Y Y)=XX . W !,XX Q ;RP T2(INPUT,A 1,ADATE,SO RT,OUTYPE, LNCNT,STOP ,DATA) ; R eport Outp ut Continu ed ; Input : INPUT - See REPORT ^RCDPEMAP for detail ; ADATE - Internal Auto-Post Date ; SOR T - 2 - So rt by User , 1 - Sort by Payer ; OUTYPE - 2 - Excel , 1 - List man, 0 - P aper/Scree n ; LNCNT - Current line count (only if OUTYPE=0) ; ^TMP($J, A1,"SEL",. ..) - See RPTOUT for details ; Output: L NCNT - Upd ated line count (onl y if OUTYP E=0) ; STO P - 1 if u ser quit o ut (only i f OUTYPE=0 ) ; INPUT - 9th '^' piece upda te with cu rrent line # is OUTY PE=1 ; DAT A - 1 if a t least on e line of data is fo unt ; ^TMP ("RCDPE_MA P",$J,CTR) - Output lines for Listman (o nly if OUT YPE=1) N C URS,SVAL,L ASTS,XX S SVAL="",XX =$O(^TMP($ J,A1,"SEL" ,ADATE,"") ) S LASTS= ^TMP($J,A1 ,"SEL",ADA TE,XX) F D Q:SVAL= "" Q:STOP . S SVAL= $O(^TMP($J ,A1,"SEL", ADATE,SVAL )) . Q:SVA L="" . S C URS=^TMP($ J,A1,"SEL" ,ADATE,SVA L) ; Curre nt lower c ase Payer or User Na me . I OUT YPE=1 D ; Li stman outp ut . . S X X=$P(INPUT ,"^",9) . . I CURS'= LASTS D . . . S XX=X X+1,^TMP(A 1,$J,XX)=" " . . S XX =XX+1,^TMP (A1,$J,XX) =" "_$S(SO RT=2:"Paye r: ",1:"Us er: ")_CUR S . . S $P (INPUT,"^" ,9)=XX . ; . I 'OUTY PE D Q:ST OP ; Outp ut to Pape r/Screen . . I (LNCN T+6)>IOSL D Q:STOP ; Page b reak . . . S STOP=$$ ASKSTOP^RC DPEMAP() . . . Q:STO P . . . D PHEADER(IN PUT,.LNCNT ,.PAGE) ; Print Page Header . . . W !!," Auto-Post Date: "_^T MP($J,A1," SEL",ADATE ) . . . W !,CURS . . . S LNCNT =LNCNT+3 . . I CURS' =LASTS D . . . S LNC NT=LNCNT+1 ,LASTS=CUR S . . . W ! . . W !, " ",$S(SOR T=2:"Payer : ",1:"Use r: "),CURS . . S LNC NT=LNCNT+1 . D RPT3( .INPUT,A1, ADATE,SORT ,SVAL,OUTY PE,.LNCNT, .STOP,.DAT A) Q ;RPT3 (INPUT,A1, ADATE,SORT ,SVAL,OUTY PE,LNCNT,S TOP,DATA) ; Report O utput Cont inued ; In put: INPUT - See REP ORT^RCDPEM AP for det ail ; ADAT E - Intern al Auto-Po st Date ; SORT - 1 - Sort by U ser, 2 - S ort by Pay er ; SVAL - Current sort value (Upper ca sed Payer or User Na me) ; OUTY PE - 2 - E xcel, 1 - Listman, 0 - Paper/S creen ; LN CNT - Curr ent line c ount (only if OUTYPE =0) ; ^TMP ($J,A1,"SE L",...2) - See RPTOU T for deta ils ; Outp ut: LNCNT - Updated line count (only if OUTYPE=0) ; STOP - 1 if user q uit out (o nly if OUT YPE=0) ; I NPUT - 9th '^' piece update wi th current line # is OUTYPE=1 ; DATA - 1 if at lea st one lin e of data is found ; ^TMP("RCD PE_MAP",$J ,CTR) - Ou tput lines for Listm an (only i f OUTYPE=1 ) N DATAR, FIRSTS,IEN 3444,IEN34 441,LN1,LN 2,LN3,UORP ,UORPF,UOR PL,XX,YY S IEN3444=" ",FIRSTS=1 ,UORPF=1 F D Q:IEN 3444="" Q :STOP . S IEN3444=$O (^TMP($J,A 1,"SEL",AD ATE,SVAL,I EN3444)) . Q:IEN3444 ="" . S IE N34441="" . S XX=$O( ^TMP($J,A1 ,"SEL",ADA TE,SVAL,IE N3444,"")) . S XX=^T MP($J,A1," SEL",ADATE ,SVAL,IEN3 444,XX) . S UORPL=$P (XX,"^",SO RT) . F D Q:IEN344 41="" . . S IEN34441 =$O(^TMP($ J,A1,"SEL" ,ADATE,SVA L,IEN3444, IEN34441)) . . Q:IEN 34441="" . . S DATA= 1 ; found data . . ; . . S DAT AR=^TMP($J ,A1,"SEL", ADATE,SVAL ,IEN3444,I EN34441) . . S:SORT= 2 LN1=" Pa yer: "_$P( DATAR,"^", 1),LN2=" U ser: "_$P( DATAR,"^", 2) . . S:S ORT=1 LN1= " User: "_ $P(DATAR," ^",2),LN2= " Payer: " _$P(DATAR, "^",1) . . S LN3=$P( DATAR,"^", 3) ; ERA # . . S YY= $P(DATAR," ^",4) ; Cl aim # . . S LN3=$$SE TSTR^VALM1 (YY,LN3,13 ,10) . . S YY=$P(DAT AR,"^",5) ; Trace # . . S LN3= $$SETSTR^V ALM1(YY,LN 3,25,50) . . S UORP= $P(DATAR," ^",SORT) . . I OUTYP E=2 D Q ; Excel Output . . . S XX=^T MP($J,A1," SEL",ADATE )_"^" . . . I SORT=1 D . . . . S XX=XX_$ P(DATAR,"^ ",2)_"^"_$ P(DATAR,"^ ",1) . . . E D . . . . S XX=X X_$P(DATAR ,"^",1,2) . . . S XX =XX_"^"_$P (DATAR,"^" ,3,5) . . . W !,XX . . ; . . ; Listman o utput . . I OUTYPE=1 D RPT3LM( A1,.INPUT, .FIRSTS,.U ORP,.UORPL ,.UORPF,LN 2,LN3) Q . . ; . . ; Output to Paper/Scr een - chec k if we ne ed a page break . . I (LNCNT+3 )>IOSL D Q:STOP . . . S STOP= $$ASKSTOP^ RCDPEMAP() . . . Q:S TOP . . . D PHEADER( INPUT,.LNC NT,.PAGE) . . . W !! ,"Auto-Pos t Date: "_ ^TMP($J,A1 ,"SEL",ADA TE) . . . S LNCNT=LN CNT+2 . . . W !,LN1 . . . S LN CNT=LNCNT+ 1 . . I UO RP'=UORPL D . . . S UORPL=UORP ,LNCNT=LNC T+2,UORPF= 0 . . . W !!,LN2 . . I UORPF D . . . S L NCNT=LNCNT +1,UORPF=0 . . . W ! ,LN2 . . W !,LN3 . . S LNCNT=L NCNT+1 Q ; RPT3LM(A1, INPUT,FIRS TS,UORP,UO RPL,UORPF, LN2,LN3) ; Continue listman ou tput ; Inp ut: A1 - " RCDPE_MAP" ; INPUT - 9th piece contains the curren t listman line count er ; FIRST S - 1 if t his is the first Pay er for the current d ate, 0 oth erwise ; U ORP - Curr ent User o r Payer Na me (whiche ver we're not sortin g by) ; UO RPL - Curr ent last U ser or Pay er Name (w hichever w e're not s orting by) ; UORPF - 1 if this is the fi rst user o r payer fo r the curr ent sor va lue ; 0 ot herwise ; LN2 - Paye r or User Name (what ever is no t the sort ) display line ; LN3 - ERA dis play line ; ^TMP(A1, $J,XX) - C urrent lis tman displ ay lines ; Output: I NPUT - Upd ated 9th p iece conta ins the cu rrent list man line c ounter ; F IRSTS - Up dated to 0 (potentia lly) ; UOR P - Update d User or Payer Name (potentia lly) ; UOR PL - Updat ed last Us er or Paye r Name (po tentially) ; UORPF - Updated ; ^TMP(A1,$ J,XX) - Cu rrent list man displa y lines N XX S XX=$P (INPUT,"^" ,9) I UORP F D ; f irst User or Payer f or sort va lue and da te . S UOR PF=0,XX=XX +1,UORPL=U ORP . S ^T MP(A1,$J,X X)=LN2 I U ORP'=UORPL D ; Differen t User or Payer for date . S U ORPL=UORP, UORPF=0 . S XX=XX+1 . S ^TMP(A 1,$J,XX)=" " . S XX=X X+1 . S ^T MP(A1,$J,X X)=LN2 S X X=XX+1 S ^ TMP(A1,$J, XX)=LN3 S $P(INPUT," ^",9)=XX Q ;PHEADER( INPUT,LNCN T,PAGE) ; Display a Page Heade r ; Input: INPUT - S ee REPORT for a comp lete descr iption ; L NCNT - Cur rent Line Count ; PA GE - Curre nt Page Co unt ; Outp ut: LNCNT - Updated Line Count ; PAGE - Updated Pa ge Count N XX,YY,ZZ S YY="EEOB s Marked f or Auto-Po st Audit R eport",PAG E=PAGE+1 S XX=$$NOW^ XLFDT(),XX =$$FMTE^XL FDT(XX) S XX=$$SETST R^VALM1(XX ,YY,42,21) S YY="Pag e: "_$J(PA GE,3) S XX =$$SETSTR^ VALM1(YY,X X,69,$L(YY )) W @IOF, XX S LNCNT =1 ; S XX= $$HDRLN2(I NPUT) W !, XX S LNCNT =LNCNT+1 ; S XX=$$HD RLN3(INPUT ) W !,XX S LNCNT=LNC NT+1 W ! ; Blank lin e S LNCNT= LNCNT+1 W !,"ERA # C laim # Tra ce #" S LN CNT=LNCNT+ 1 W !,"--- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -------" S LNCNT=LNC NT+1 Q ;H DRLN2(INPU T) ; Build the 2nd h eader line ; Input: INPUT - Se e REPORT^R CDPEMAP fo r a comple te descrip tion ; Ret urns: Text for 2nd h eader line N XX,YY,Z Z S XX="FI LTERS: "_$ S($P(INPUT ,"^",1)=1: "All",1:"S el")_" Div s " S YY=$ P(INPUT,"^ ",3) S XX= XX_"M/P/T: "_$S(YY=" A":"All",Y Y="M":"Med ical",YY=" P":"Pharma cy",1:"Tri care")_" - " S XX=XX _$S($P(INP UT,"^",4)= "A":" All" ,1:" Sel") _" Payers Auto-Post Date " S Y Y=$P($P(IN PUT,"^",2) ,"|",1),YY =$$FMTE^XL FDT(YY,"2Z ") S ZZ=$P ($P(INPUT, "^",2),"|" ,2),ZZ=$$F MTE^XLFDT( ZZ,"2Z") S XX=XX_YY_ "-"_ZZ Q X X ;HDRLN3( INPUT) ; B uild the 2 nd header line ; Inp ut: INPUT - See REPO RT^RCDPEMA P for a co mplete des cription ; Returns: Text for 3 rd header line N XX, YY,ZZ S YY =$P(INPUT, "^",4) S X X=" "_$S($ P(INPUT,"^ ",5)=1:"Al l ",1:"Sel ")_"Users " S YY="So rt: "_$S($ P(INPUT,"^ ",6)=1:"Us er ",1:"Pa yer ")_"Na me" S XX=$ $SETSTR^VA LM1(YY,XX, 40,$L(YY)) Q XX ; | ||
285 | |||
286 | |||
287 | |||
288 | |||
289 | |||
290 | |||
291 | |||
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.