Produced by Araxis Merge on 3/2/2018 12:46:58 PM Central 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 | PRCA_IB_EPAYMENTS_BUNDLE_2_0_V25.zip\PRCA_4_5_326 Documents | TAS ePay US326 SDD.doc | Fri Mar 2 17:47:38 2018 UTC |
2 | PRCA_IB_EPAYMENTS_BUNDLE_2_0_V25.zip\PRCA_4_5_326 Documents | TAS ePay US326 SDD.doc | Fri Mar 2 17:56:44 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 702 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 | System Des ign Docume ntMCCF EDI TAS US326 | |
2 | System Des ign Docume nt | |
3 | PRCA*4.5*x xx | |
4 | ||
5 | Department of Vetera ns Affairs | |
6 | May 2017 | |
7 | Version 1a | |
8 | Story | |
9 | AR needs 2 different parameter s for auto -auditing of claims - paper cl aims vs el ectronic c laims. | |
10 | Conversati on | |
11 | Currently (before th ese US326 changes) A R SITE PAR AMETER fil e #342 onl y has aut o-audit pa rameters f or paper b ills. Thes e paramete rs may be edited thr ough the R CDPE EDI L OCKBOX PAR AMETERS me nu option: | |
12 | ENABLE AUT O-AUDIT FO R MEDICAL PAPER BILL S (Y/N): N o// NO | |
13 | ENABLE AUT O-AUDIT FO R PHARMACY PAPER BIL LS (Y/N): No// NO | |
14 | BILL/CLAIM file #399 has field 27 - FO RCE CLAIM TO PRINT ( 0 – electr onic, 1 – paper) | |
15 | The PRCA N IGHTLY JOB currently uses this field to determine if a bill is paper o r electron ic. | |
16 | Currently the PRCA N IGHTLY JOB ignores t hose elect ronic bill s when sea rching for bills to auto-audit . | |
17 | In this us er story p rompts wil l be added to the RC DPE EDI LO CKBOX PARA METERS men u option ( routine AU DIT^RCDPES P5) to mai ntain new auto-audit parameter s for elec tronic bil ls: | |
18 | ENABLE AUT O-AUDIT FO R MEDICAL ELECTRONIC BILLS (Y/ N): No// NO | |
19 | ENABLE AUT O-AUDIT FO R PHARMACY ELECTRONI C BILLS (Y /N): No// NO | |
20 | The PRCA N IGHTLY JOB (routine ABAUDIT^PR CABJ2) wil l be modif ied auto-a udit elect ronic bill s if the p arameters for auto-a udit are s et to ‘YES ’ for elec tronic bil ls. | |
21 | Addendum | |
22 | On investi gation it was discov ered that the User M anual desc ription of the proce ss for aut o-audit di ffered fro m the code . The deci sion was t aken durin g elaborat ion (5/3/1 7) to modi fy the exi sting proc ess to mat ch the use r manual. | |
23 | Currently paper bill s/claims w ith NEW st atus are o nly auto-a udited if the rate t ype of the claim is REIMBURSAB LE. | |
24 | To match t he User Ma nual the a uto-audit is changed so that b ills/claim s with NEW status wi ll be auto -audited i f the RATE TYPE (fi le #399.3) has the B ILL RESULT ING FROM ( field #.11 ) populat ed. This f ield is se t in the A R Supervis or’s menu option “Up date Rate Types For Auto-audit ” [RCDPE R ATE TYPE A UTO AUDIT] . | |
25 | The new ch anges for auto-audit of electr onic claim s in this user story will also auto-audi t by rate type rathe r than jus t includin g bills/cl aims with the REIMBU RSABLE rat e type. | |
26 | Data field s needed: | |
27 | New fields | |
28 | STANDARD D ATA DICTIO NARY #342 -- AR SITE PARAMETER FILE 4/12/17 PAGE 1 | |
29 | STORED IN ^RC(342, (1 ENTRY) SITE: TEST .CHEYENNE URL UCI: VISTA ,ROU | |
30 | (VERSION 4 .5) | |
31 | DATA NAME GLOB AL DATA | |
32 | ELEMENT TITLE LOCA TION TYPE | |
33 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
34 | 342,7.07 AUTO-A UDIT MEDIC AL EDI BIL LS 7;7 SET | |
35 | ENABLE AUTO-AUDI T MEDICAL EDI BILLS | |
36 | '0' FOR No; | |
37 | '1' FOR Yes; | |
38 | LAST E DITED: NOV 04, 2015 | |
39 | HELP-P ROMPT: Enter 1 to allow A uto-auditi ng of Medi cal EDI | |
40 | bills, 0 to disall ow. | |
41 | DESCRI PTION: A Yes/No prompt to allow a s ite to aud it their | |
42 | Medical EDI Bills during the AR Nightl y | |
43 | Process. | |
44 | TECHNI CAL DESCR: A Yes/No prompt to see if th e site wis hes to | |
45 | audit th eir Medica l EDI bill s during t he AR | |
46 | Nightly Process [P RCA NIGHTL Y PROCESS] . | |
47 | 342,7.08 AUTO-A UDIT RX ED I BILLS 7; 8 SET | |
48 | ENABLE AUTO-AUDI T RX EDI B ILLS | |
49 | '0' FOR No; | |
50 | '1' FOR Yes; | |
51 | LAST E DITED: NOV 04, 2015 | |
52 | HELP-P ROMPT: Enter 1 to allow A uto-auditi ng of Phar macy | |
53 | EDI bill s, 0 to di sallow | |
54 | DESCRI PTION: A Yes/No prompt to see if th e site wis hes to | |
55 | audit th eir Pharma cy EDI Bil ls during the AR | |
56 | Nightly Process. | |
57 | TECHNI CAL DESCR: A Yes/No prompt to see if th e site wis hes to | |
58 | audit th eir Pharma cy EDI bil ls during the AR | |
59 | Nightly Process [P RCA NIGHTL Y PROCESS] . | |
60 | Existing f ield (unch anged – re ad only) | |
61 | 399.3,.11 BILL R ESULTING F ROM 0;1 1 POINTER TO AR DEBT LIST FILE (#430.6) | |
62 | INPUT TRANSFORM: S DIC("S ")="N Z0 S Z0=$P($G( ^DGCR(399. 3,DA,0)), | |
63 | U,6) Q:+ Z0'>0 S Z 0=$P(^PRCA (430.2,Z0, 0),U,6) I | |
64 | ($P(^PR CA(430.6,Y ,0),U,4)[Z 0)!($P(^(0 ),U,4)["" | |
65 | X"")" D ^DIC K DIC S DIC=DIE ,X=+Y K:Y< 0 X | |
66 | LAST E DITED: DEC 17, 2002 | |
67 | HELP-P ROMPT: Enter th e default that will be used fo r the | |
68 | BILL RES ULTING FRO M field wh en auto-au dit is | |
69 | invoked | |
70 | DESCRI PTION: This is the defaul t value fo r the BILL | |
71 | RESULTIN G FROM (#4 .5) field in the ACC OUNTS | |
72 | RECEIVAB LE file (# 430) that will be us ed during | |
73 | auto-aud it for all bills wit h this rat e type. | |
74 | Resolution – Added C hanged Obj ects | |
75 | RoutinesAc tivitiesRo utine Name PRCABJ2Enh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsPRCA NI GHTLY PROC ESSRelated RoutinesR outines “C alled By”R outines “C alled” P RCABJAUDIT X^PRCAUDT $$GET ECME^RCDPE NR1 Curre nt Logic ; Auto-aud it Paper b ills if re ady | |
76 | ABAUDIT ; | |
77 | ; Local V ariables | |
78 | ; APIEN - Accounts Payable (f ile #430) ien | |
79 | ; | |
80 | N APIEN,D IE,DA,DR,D IR,DIRUT,D TOUT,DUOUT ,X,Y,APD0, APD202,FLG 1,FLG2 | |
81 | N PRCABLN O,PRCAECME ,NBLIEN,HI CD,CATIEN, ACTIVE,BIL LTYP,RCPAP ER | |
82 | ; | |
83 | S APIEN=" " | |
84 | ; | |
85 | ;Check pa rameters t o see if i t needs to run. | |
86 | S FLG1=$$ GET1^DIQ(3 42,"1,",7. 05,"I") ; Get the va lue of the auto-audi t medical paper bill flag | |
87 | S FLG2=$$ GET1^DIQ(3 42,"1,",7. 06,"I") ; Get the va lue of the auto-audi t pharmacy paper bil l flag | |
88 | ; | |
89 | ; Quit if both set to no | |
90 | Q:('FLG1) &('FLG2) | |
91 | ; | |
92 | ;retrieve DB values | |
93 | S NBLIEN= $O(^PRCA(4 30.3,"B"," NEW BILL", "")) ; New Bill Stat us IEN | |
94 | S CATIEN= $O(^PRCA(4 30.2,"C"," RI","")) ; Reimbursa ble Insura nce IEN | |
95 | S HICD=$O (^PRCA(430 .6,"B","HI ","")) ; H ealth insu rance IEN | |
96 | S ACTIVE= $O(^PRCA(4 30.3,"B"," ACTIVE","" )) ; New B ill Status IEN | |
97 | S BILLTYP =$O(^DGCR( 399.3,"B", "REIMBURSA BLE INS.", "")) ; Bil l Type IEN | |
98 | S RCPAPER =1 ; Field 27 in ^DG CR(399 ; 0 - is elec tronic, 1 - FORCE LO CAL PRINT | |
99 | ; | |
100 | Q:NBLIEN= "" | |
101 | ; | |
102 | F S APIE N=$O(^PRCA (430,"AC", NBLIEN,API EN)) Q:'AP IEN D | |
103 | . S APD0= $G(^PRCA(4 30,APIEN,0 )) ; Patie nt info | |
104 | . S APD20 2=$G(^PRCA (430,APIEN ,202)) ;In sured info | |
105 | . Q:$$GET 1^DIQ(399, APIEN_",", .07,"I")'= BILLTYP ; Bill type is not Re imbursable Insurance . Skip | |
106 | . Q:$$GET 1^DIQ(399, APIEN_",", 27,"I")'=R CPAPER ; Bill is no t forced t o Paper (i t is elect ronic). Sk ip | |
107 | . ; | |
108 | . Q:$P(AP D0,U,7)="" ; Q uit if no PATIENT IE N | |
109 | . Q:$P(AP D0,U,9)="" ; Q uit if no DEBTOR inf ormation | |
110 | . Q:$P(AP D202,U,1)= "" ; q uit if no subscriber name stor ed | |
111 | . Q:$P(AP D202,U,5)= "" ; q uit if no group name stored | |
112 | . Q:$P(AP D202,U,6)= "" ; q uit if no group numb er stored | |
113 | . ; | |
114 | . ;Get th e Bill num ber to che ck if it i s a Pharma cy bill | |
115 | . S PRCAB LNO=$P(APD 0,U) | |
116 | . S PRCAE CME=$$GETE CME^RCDPEN R1(PRCABLN O) | |
117 | . I PRCAE CME=""&'FL G1 Q ; Skip this bill if No Medical p rocessing | |
118 | . I PRCAE CME'=""&'F LG2 Q ; Skip this bill if No Pharmacy | |
119 | . ; | |
120 | . ; Bill Passed all checks no w call aut o-audit fo r this Bil l number | |
121 | . D AUDIT X^PRCAUDT( APIEN) | |
122 | QModified Logic (Ch anges are in bold) ; Auto-audi t Paper an d Electron ic (EDI) b ills if re ady | |
123 | ABAUDIT ; | |
124 | ; Local V ariables | |
125 | ; APIEN - Accounts Payable (f ile #430) ien | |
126 | ; | |
127 | N APIEN,D IE,DA,DR,D IR,DIRUT,D TOUT,DUOUT ,X,Y,APD0, APD202,FLG 1,FLG2,FLG 1E,FLG2E,N BLIEN | |
128 | N PRCABLN O,PRCAECME ,HICD,CATI EN,ACTIVE, BILLTYP,RA TEIEN,RCPA PER, | |
129 | ; | |
130 | S APIEN=" " | |
131 | ; | |
132 | ;Check pa rameters t o see if i t needs to run. | |
133 | S FLG1=$$ GET1^DIQ(3 42,"1,",7. 05,"I") ; Get the va lue of the auto-audi t medical paper bill flag | |
134 | S FLG2=$$ GET1^DIQ(3 42,"1,",7. 06,"I") ; Get the va lue of the auto-audi t pharmacy paper bil l flag | |
135 | S FLG1E=$ $GET1^DIQ( 342,"1,",7 .07,"I") ; Get the v alue of th e auto-aud it medical EDI bill flag | |
136 | S FLG2E=$ $GET1^DIQ( 342,"1,",7 .08,"I") ; Get the v alue of th e auto-aud it pharmac y EDI bill flag | |
137 | ; | |
138 | ; Quit if all auto- audit para meters set to no | |
139 | Q:('FLG1) &('FLG2)&( ‘FLG1E)&(‘ FLG2E) | |
140 | ; | |
141 | ;retrieve DB values | |
142 | S NBLIEN= $O(^PRCA(4 30.3,"B"," NEW BILL", "")) ; New Bill Stat us IEN | |
143 | S CATIEN= $O(^PRCA(4 30.2,"C"," RI","")) ; Reimbursa ble Insura nce IEN | |
144 | S HICD=$O (^PRCA(430 .6,"B","HI ","")) ; H ealth insu rance IEN | |
145 | S ACTIVE= $O(^PRCA(4 30.3,"B"," ACTIVE","" )) ; New B ill Status IEN | |
146 | S BILLTYP =$O(^DGCR( 399.3,"B", "REIMBURSA BLE INS.", "")) ; Bil l Type IEN | |
147 | S RCPAPER =1 ; Field 27 in ^DG CR(399 ; 0 - is elec tronic, 1 - FORCE LO CAL PRINT | |
148 | ; | |
149 | Q:NBLIEN= "" | |
150 | ; | |
151 | F S APIE N=$O(^PRCA (430,"AC", NBLIEN,API EN)) Q:'AP IEN D | |
152 | . S APD0= $G(^PRCA(4 30,APIEN,0 )) ; Patie nt info | |
153 | . S APD20 2=$G(^PRCA (430,APIEN ,202)) ;In sured info | |
154 | . S RATEI EN=$$GET1^ DIQ(399,AP IEN_",",.0 7,"I") ; G et bill’s rate type ; IA 4118 | |
155 | . Q:’RATE IEN | |
156 | . ; A rat e type is auto-audit ed if BILL RESULTING FROM fiel d is non-n ull | |
157 | . Q:’$$GE T1^DIQ(399 .3,RATEIEN _",",.11," I") ; Quit if not an auto-audi t rate typ e | |
158 | . ;Read o n IB file #399 field #27 cover ed by ICR #3820 | |
159 | . S RCPAP ER=$$GET1^ DIQ(399,AP IEN_",",27 ,"I") ; 0 - is elect ronic, 1 – is paper | |
160 | . ; | |
161 | . Q:$P(AP D0,U,7)="" ; Q uit if no PATIENT IE N | |
162 | . Q:$P(AP D0,U,9)="" ; Q uit if no DEBTOR inf ormation | |
163 | . Q:$P(AP D202,U,1)= "" ; q uit if no subscriber name stor ed | |
164 | . Q:$P(AP D202,U,5)= "" ; q uit if no group name stored | |
165 | . Q:$P(AP D202,U,6)= "" ; q uit if no group numb er stored | |
166 | . ; | |
167 | . ;Get th e Bill num ber to che ck if it i s a Pharma cy bill | |
168 | . S PRCAB LNO=$P(APD 0,U) | |
169 | . S PRCAE CME=$$GETE CME^RCDPEN R1(PRCABLN O) | |
170 | . I PRCAE CME="",'FL G1,RCPAPER Q ;Sk ip this pa per bill i f No Medic al process ing | |
171 | . I PRCAE CME'="",'F LG2,RCPAPE R Q ;Sk ip this pa per bill i f No Pharm acy | |
172 | . I PRCAE CME="",'FL G1E,’RCPAP ER Q ; Skip this EDI bill i f No Medic al process ing | |
173 | . I PRCAE CME'="",'F LG2E,’RCPA PER Q ; Skip this EDI bill i f No Pharm acy . ; | |
174 | . ; Bill Passed all checks no w call aut o-audit fo r this Bil l number | |
175 | . D AUDIT X^PRCAUDT( APIEN) | |
176 | QRoutines Activities Routine Na meRCDPESP5 Enhancemen t Category New Modif y Delete N o ChangeRT MRelated O ptionsRCDP E EDI LOCK BOX PARAME TERSRelate d Routines Routines “ Called By” Routines “ Called” RCDPESP$$V AL^RCDPCRR | |
177 | GETCODES^R CDPCRR | |
178 | AUDIT^RCDP ESP | |
179 | $$ACT^RCDP RU Current Lo gic AUDIT( ) ; | |
180 | ; | |
181 | N MEDANS, RXANS,OLDM ED,OLDRX | |
182 | ; | |
183 | ; Get exi sting answ ers for Me dical and Pharmacy p aper bills | |
184 | S OLDMED= $$GET1^DIQ (342,"1,", 7.05,"I") | |
185 | S OLDRX=$ $GET1^DIQ( 342,"1,",7 .06,"I") | |
186 | ; | |
187 | S MEDANS= $$GETAUDIT (1) | |
188 | Q:MEDANS= -1 1 | |
189 | ; File Me dical pape r bills | |
190 | I MEDANS' =OLDMED D | |
191 | . N RCAUD VAL | |
192 | . D FILEA NS(7.05,ME DANS) | |
193 | . ; FILE NUMBER^FIE LD NUMBER^ IEN^NEW VA LUE^OLD VA LUE^COMMEN T | |
194 | . S RCAUD VAL(1)="34 2^7.05^1^" _MEDANS_U_ OLDMED_U_" Updating t he Medical Auto-Audi t of paper bills" | |
195 | . D AUDIT ^RCDPESP(. RCAUDVAL) | |
196 | ; | |
197 | ; Get Pha rmacy pape r bills | |
198 | S RXANS=$ $GETAUDIT( 2) | |
199 | Q:RXANS=- 1 1 | |
200 | ; | |
201 | ; File Ph armacy pap er bills | |
202 | I RXANS'= OLDRX D | |
203 | . N RCAUD VAL | |
204 | . D FILEA NS(7.06,RX ANS) | |
205 | . S RCAUD VAL(1)="34 2^7.06^1^" _RXANS_U_O LDRX_U_"Up dating the Pharmacy Auto-Audit of paper bills" | |
206 | . D AUDIT ^RCDPESP(. RCAUDVAL) | |
207 | ; | |
208 | Q 0 | |
209 | ; | |
210 | ;Retrieve the param eter for t he bill ty pe | |
211 | GETAUDIT(F LAG) ; | |
212 | ;FLAG - W hat audit type (1=Me d, 2=RX) | |
213 | N X,Y,DTO UT,DUOUT,D IR,DIROUT, DIRUT,RCAN S | |
214 | ; | |
215 | ; Prompt for Medica l Auto-aud it | |
216 | D:$G(FLAG )=1 | |
217 | . S DIR(" A")="ENABL E AUTO-AUD IT FOR MED ICAL PAPER BILLS (Y/ N): " | |
218 | . S DIR(" ?",1)="All ow a site to automat ically aud it their M edical Pap er Bills" | |
219 | . S DIR(" ?",2)="dur ing the AR Nightly P rocess." | |
220 | . S DIR(" ?",3)=" " | |
221 | . S RCANS =$$GET1^DI Q(342,"1," ,7.05) | |
222 | ; | |
223 | ; Prompt for Pharma cy Auto-au dit | |
224 | D:$G(FLAG )=2 | |
225 | . S DIR(" A")="ENABL E AUTO-AUD IT FOR PHA RMACY PAPE R BILLS (Y /N): " | |
226 | . S DIR(" ?",1)="All ow a site to automat ically aud it their P harmacy Pa per Bills" | |
227 | . S DIR(" ?",2)="dur ing the AR Nightly P rocess." | |
228 | . S DIR(" ?",3)=" " | |
229 | . S RCANS =$$GET1^DI Q(342,"1," ,7.06) | |
230 | ; | |
231 | S DIR(0)= "YAO" | |
232 | S DIR("?" )="Enter Y es or No t o select a utomatic p rocessing of paper b ills." | |
233 | S DIR("B" )=$S($G(RC ANS)'="":R CANS,1:"No ") | |
234 | D ^DIR K DIR | |
235 | I Y="" Q "" | |
236 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q -1 | |
237 | Q Y | |
238 | ; | |
239 | ;File the answer | |
240 | FILEANS(FI ELD,ANS) ; | |
241 | ; | |
242 | N DR,DIE, DA,DTOUT,D IDEL,X,Y | |
243 | ; | |
244 | ;Update T ransaction | |
245 | S DR=FIEL D_"///"_AN S ;Origina l Confirma tion # | |
246 | S DIE="^R C(342," | |
247 | S DA=1 | |
248 | D ^DIE | |
249 | ; | |
250 | QModified Logic (Ch anges are in bold)AU DIT() ; | |
251 | ; | |
252 | N EMEDANS ,EOLDMED,E OLDRX,ERXA NS,MEDANS, OLDMED,OLD RX,RXANS | |
253 | ; | |
254 | ; Get exi sting answ ers for Me dical and Pharmacy p aper bills | |
255 | S OLDMED= $$GET1^DIQ (342,"1,", 7.05,"I") | |
256 | S OLDRX=$ $GET1^DIQ( 342,"1,",7 .06,"I") | |
257 | ; Get exi sting answ ers for Me dical and Pharmacy E DI (electr onic) bill s | |
258 | S EOLDMED =$$GET1^DI Q(342,"1," ,7.07,"I") | |
259 | S EOLDRX= $$GET1^DIQ (342,"1,", 7.08,"I") | |
260 | ; | |
261 | ; Get Med ical paper bills | |
262 | S MEDANS= $$GETAUDIT (1) | |
263 | Q:MEDANS= -1 1 | |
264 | ; File Me dical pape r bills | |
265 | I MEDANS' =OLDMED D | |
266 | . N RCAUD VAL | |
267 | . D FILEA NS(7.05,ME DANS) | |
268 | . ; FILE NUMBER^FIE LD NUMBER^ IEN^NEW VA LUE^OLD VA LUE^COMMEN T | |
269 | . S RCAUD VAL(1)="34 2^7.05^1^" _MEDANS_U_ OLDMED_U_" Updating t he Medical Auto-Audi t of paper bills" | |
270 | . D AUDIT ^RCDPESP(. RCAUDVAL) | |
271 | ; | |
272 | ; Get Pha rmacy pape r bills | |
273 | S RXANS=$ $GETAUDIT( 2) | |
274 | Q:RXANS=- 1 1 | |
275 | ; | |
276 | ; File Ph armacy pap er bills | |
277 | I RXANS'= OLDRX D | |
278 | . N RCAUD VAL | |
279 | . D FILEA NS(7.06,RX ANS) | |
280 | . S RCAUD VAL(1)="34 2^7.06^1^" _RXANS_U_O LDRX_U_"Up dating the Pharmacy Auto-Audit of paper bills" | |
281 | . D AUDIT ^RCDPESP(. RCAUDVAL) | |
282 | ; | |
283 | ; Get Med ical elect ronic bill s | |
284 | S EMEDANS =$$GETAUDI T(3) | |
285 | Q:EMEDANS =-1 1 | |
286 | ; File Me dical elec tronic bil ls | |
287 | I EMEDANS '=EOLDMED D | |
288 | . N RCAUD VAL | |
289 | . D FILEA NS(7.07,EM EDANS) | |
290 | . ; FILE NUMBER^FIE LD NUMBER^ IEN^NEW VA LUE^OLD VA LUE^COMMEN T | |
291 | . S RCAUD VAL(1)="34 2^7.07^1^" _EMEDANS_U _EOLDMED_U _"Updating the Medic al Auto-Au dit of ele ctronic bi lls" | |
292 | . D AUDIT ^RCDPESP(. RCAUDVAL) | |
293 | ; | |
294 | ; Get Pha rmacy elec tronic bil ls | |
295 | S RXANS=$ $GETAUDIT( 4) | |
296 | Q:RXANS=- 1 1 | |
297 | ; | |
298 | ; File Ph armacy pap er bills | |
299 | I ERXANS' =EOLDRX D | |
300 | . N RCAUD VAL | |
301 | . D FILEA NS(7.08,ER XANS) | |
302 | . S RCAUD VAL(1)="34 2^7.08^1^" _RXANS_U_O LDRX_U_"Up dating the Pharmacy Auto-Audit of electr onic bills " | |
303 | . D AUDIT ^RCDPESP(. RCAUDVAL) | |
304 | ; | |
305 | Q 0 | |
306 | ; | |
307 | ;Retrieve the param eter for t he bill ty pe | |
308 | GETAUDIT(F LAG) ; | |
309 | ;FLAG - W hat audit type (1=Me d Paper, 2 =RX Paper, 3=Med EDI , 4=Rx EDI ) | |
310 | Q:’$G(FLA G) -1 | |
311 | N DIR,DIR OUT,DIRUT, DTOUT,DUOU T,FLDNO,RC ANS,TYPL,T YPU,X,Y | |
312 | S TYPL=$S (”Electron ic”,1:”Pap er”) | |
313 | S TYPU=$S (”ELECTRON IC”,1:”PAP ER”) | |
314 | S FLDNO=$ S(FLAG=1:7 .05,FLAG=2 :7.06,FLAG =3:7.07,FL AG=4:7.08, 1:0) | |
315 | Q:’FLDNO -1 | |
316 | ; | |
317 | ; Prompt for Medica l Auto-aud it | |
318 | D:$G(FLAG )#2=1 | |
319 | . S DIR(" A")="ENABL E AUTO-AUD IT FOR MED ICAL “_TYP U_” BILLS (Y/N): " | |
320 | . S DIR(" ?",1)="All ow a site to automat ically aud it their M edical “_T YPL_” Bill s" | |
321 | . S DIR(" ?",2)="dur ing the AR Nightly P rocess." | |
322 | . S DIR(" ?",3)=" " | |
323 | . S RCANS =$$GET1^DI Q(342,"1," ,FLDNO) | |
324 | ; | |
325 | ; Prompt for Pharma cy Auto-au dit | |
326 | D:$G(FLAG )#2=0 | |
327 | . S DIR(" A")="ENABL E AUTO-AUD IT FOR PHA RMACY “_TY PU_” BILLS (Y/N): " | |
328 | . S DIR(" ?",1)="All ow a site to automat ically aud it their P harmacy “_ TYPL_” Bil ls" | |
329 | . S DIR(" ?",2)="dur ing the AR Nightly P rocess." | |
330 | . S DIR(" ?",3)=" " | |
331 | . S RCANS =$$GET1^DI Q(342,"1," ,FLDNO) | |
332 | ; | |
333 | S DIR(0)= "YAO" | |
334 | S DIR("?" )="Enter Y es or No t o select a utomatic p rocessing of “_TYPL_ ” bills." | |
335 | S DIR("B" )=$S($G(RC ANS)'="":R CANS,1:"No ") | |
336 | D ^DIR K DIR | |
337 | I Y="" Q "" | |
338 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q -1 | |
339 | Q Y | |
340 | ; | |
341 | ;File the answer | |
342 | FILEANS(FI ELD,ANS) ; | |
343 | ; | |
344 | N DR,DIE, DA,DTOUT,D IDEL,X,Y | |
345 | ; | |
346 | ;Update T ransaction | |
347 | S DR=FIEL D_"///"_AN S ;Origina l Confirma tion # | |
348 | S DIE="^R C(342," | |
349 | S DA=1 | |
350 | D ^DIE | |
351 | ; | |
352 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.