Produced by Araxis Merge on 10/23/2018 6:40:39 AM Central Daylight 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 | docs | TAS ePay US817 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US817 SDD - Copy.doc | Mon Oct 22 16:33:09 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 1210 |
| Changed | 2 | 4 |
| 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 | MCCF EDI T AS US817 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | April 2018 | |
| 7 | Version 1 | |
| 8 | User Story Number: U S817 | |
| 9 | User Story Name: | |
| 10 | Sizing: 5 | |
| 11 | Epic Taxon omy eBiz C ompliance Port Updat e Incre ase No Tou ch TAS Ap psStory | |
| 12 | As a...I w ant to...S o that...R evenue Cle rkTo see a history r eport for all auto-a ctivity an d paramete rsSo that I can see a history of site pa rameter ch anges by d ate or ran ge of date s.Conversa tion (if d esired by developers ) | |
| 13 | View histo ry of para meter chan ges on whe n (date/da te range) | |
| 14 | Current fu nctionalit y shows la st change? | |
| 15 | If added, it would b e not be r etroactive ; only wil l store pa rameter hi story movi ng forward . | |
| 16 | Listmanage r to allow sorting a nd searchi ng. | |
| 17 | Functional Design | |
| 18 | See functi onal desig n for opti on display text, men us on whic h the opti on will ap pear, prom pts for re port run t ime user s elections and report layout. | |
| 19 | Summary | |
| 20 | Data Dicti onary chan ges needed | |
| 21 | Add a mult iple to RC DPE PARAME TERS file #344.61 to store his tory of ch anges to a utopost an d autodecr ease param eters. | |
| 22 | 344.611,.0 1 DAT E 0;1 DATE (Required ) (Multipl y asked) | |
| 23 | HELP -PROMPT: Enter th e date/tim e the EDI Lockbox pa rameter wa s | |
| 24 | chang ed | |
| 25 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
| 26 | syste m. | |
| 27 | 344.611,.0 2 USE R | |
| 28 | 0;2 PO INTER TO N EW PERSON FILE (Requ ired) (#20 0) | |
| 29 | HELP -PROMPT: Enter th e person w ho changed the EDI L ockbox par ameter | |
| 30 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
| 31 | syste m. | |
| 32 | ||
| 33 | 344.611,1 PARAM ETER | |
| 34 | 0;3 FR EE TEXT (R equired) | |
| 35 | HELP -PROMPT: Enter th e descript ion of the parameter that chan ged. | |
| 36 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
| 37 | syste m. | |
| 38 | ||
| 39 | 344.611,2 DETAI L 0;4 FREE TEXT | |
| 40 | HELP -PROMPT: Enter th e payer or CARC code that this change re lates | |
| 41 | to. | |
| 42 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
| 43 | syste m. | |
| 44 | ||
| 45 | 344.611,3 OLD V ALUE | |
| 46 | 0;5 FR EE TEXT | |
| 47 | HELP -PROMPT: Enter th e old valu e of the p arameter t hat change d. | |
| 48 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
| 49 | syste m. | |
| 50 | ||
| 51 | 344.611,4 NEW V ALUE | |
| 52 | ||
| 53 | 0;6 FR EE TEXT | |
| 54 | HELP -PROMPT: Enter th e person w ho changed the EDI L ockbox par ameter | |
| 55 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
| 56 | syste m. | |
| 57 | ||
| 58 | Routines C hanged | |
| 59 | RCDPESP6 - Modified | |
| 60 | Collect da ta on chan ges made t o EDI lock box autopo st and aut odecrease parameters and store in a file for futur e reportin g. Also sa ve changes to payer identify f lags in si milar way. | |
| 61 | RCDPEP – M odified | |
| 62 | On entry t ake a snap shot of th e payer ex clusions f ile 344.6. On exit compare th e payer fl ags on the snapshot to the pay er flags i n 366.6 an d save the changes i nto multip le 344.611 . | |
| 63 | RCDPESP8 – New | |
| 64 | New Routin e for Para meter Hist ory report | |
| 65 | Menu Optio ns | |
| 66 | RCDPE PARA METER HIST ORY REPORT | |
| 67 | APH - Auto Parameter History R eport | |
| 68 | List Manag er Templat e | |
| 69 | List Manag er display will use the existi ng “RCDPE MISC REPOR TS” templa te | |
| 70 | Resolution – Added C hanged Obj ects | |
| 71 | RoutinesAc tivitiesRo utine Name RCDPESP6En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsRDCPE EDI LOCKBO X PARAMETE RSRelated RoutinesRo utines “Ca lled By”Ro utines “Ca lled” Cu rrent Logi c – RCDPES P6RCDPESP6 ;AITC/CJE - ePaymen t Lockbox Site Param eters - No tify Chang es; | |
| 72 | ;;4.5;Acc ounts Rece ivable;**3 26**; | |
| 73 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 74 | ; | |
| 75 | Q | |
| 76 | . | |
| 77 | . | |
| 78 | . | |
| 79 | CHKCHNG(LI NE) ; Chec k for chan ges in EDI Lockbox s ite parame ters | |
| 80 | ; Input: ^TMP("RCDP ESP6",$J) - Copy of file 344.6 , 344.61 a nd 344.62 taken on e ntry | |
| 81 | ; Output: LINE - Ch ange lines to add to the mail message. P assed by r eference. | |
| 82 | ; Return: COUNT of the number of change s. 0 if no changes w ere made. | |
| 83 | N COUNT,D OTS,HEAD,I EN,J,REC0, REC1,XNEW, XOLD | |
| 84 | ; | |
| 85 | S (COUNT, HEAD)=0,HE AD("SIZE") =10 | |
| 86 | S HEAD("T XT")="ALL PAYERS" | |
| 87 | S DOTS="" F J=1:1:4 0 S DOTS=D OTS_"." | |
| 88 | ; Check p arameters in 344.61 that apply to all pa yers | |
| 89 | S REC0=$G (^TMP("RCD PESP6",$J, 344.61,1,0 )) | |
| 90 | ; | |
| 91 | ; Auto-po st med cla ims enable d | |
| 92 | S XOLD=$P (REC0,"^", 2) | |
| 93 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.02,"I") | |
| 94 | I XNEW'=X OLD D ; | |
| 95 | . D LNOUT (.HEAD,.LI NE,"AUTO-P OST MED CL AIMS ENABL ED",XOLD,X NEW,"B",.C OUNT) | |
| 96 | ; | |
| 97 | ; Auto-de crease med enabled | |
| 98 | S XOLD=$P (REC0,"^", 3) | |
| 99 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.03,"I") | |
| 100 | I XNEW'=X OLD D ; | |
| 101 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE ME D ENABLED" ,XOLD,XNEW ,"B",.COUN T) | |
| 102 | ; | |
| 103 | ; Auto-de crease med days | |
| 104 | S XOLD=$P (REC0,"^", 4) | |
| 105 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.04,"I") | |
| 106 | I XNEW'=X OLD D ; | |
| 107 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE DA YS DEFAULT ",XOLD,XNE W,"D",.COU NT) | |
| 108 | ; | |
| 109 | ; Auto-de crease no- pay med en abled | |
| 110 | S XOLD=$P (REC0,"^", 11) | |
| 111 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.11,"I") | |
| 112 | I XNEW'=X OLD D ; | |
| 113 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE NO -PAY MED E NABLED",XO LD,XNEW,"B ",.COUNT) | |
| 114 | ; | |
| 115 | ; Auto-de crease no- pay med da ys | |
| 116 | S XOLD=$P (REC0,"^", 12) | |
| 117 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.12,"I") | |
| 118 | I XNEW'=X OLD D ; | |
| 119 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE NO - D A N S A S D FAULT",XOL D,XNEW,"D" ,.COUNT) | |
| 120 | ; | |
| 121 | ; Auto-de crease med amount | |
| 122 | S XOLD=$P (REC0,"^", 5) | |
| 123 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.05,"I") | |
| 124 | I XNEW'=X OLD D ; | |
| 125 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE AM T DEFAULT" ,XOLD,XNEW ,"$",.COUN T) | |
| 126 | ; | |
| 127 | S REC1=$G (^TMP("RCD PESP6",$J, 344.61,1,1 )) | |
| 128 | ; Auto-po st Rx | |
| 129 | S XOLD=$P (REC1,"^", 1) | |
| 130 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,1.01,"I") | |
| 131 | I XNEW'=X OLD D ; | |
| 132 | . D LNOUT (.HEAD,.LI NE,"AUTO-P OST RX CLA IMS ENABLE D",XOLD,XN EW,"B",.CO UNT) | |
| 133 | ; | |
| 134 | ; Auto-de crease Rx | |
| 135 | S XOLD=$P (REC1,"^", 2) | |
| 136 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,1.02,"I") | |
| 137 | I XNEW'=X OLD D ; | |
| 138 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE RX ENABLED", XOLD,XNEW, "B",.COUNT ) | |
| 139 | ; | |
| 140 | ; Check e ach payer in 344.6 f or changes | |
| 141 | S IEN=0 | |
| 142 | F S IEN= $O(^RCY(34 4.6,IEN)) Q:'IEN D ; | |
| 143 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.6,IE N,0)) | |
| 144 | . S HEAD= 0 | |
| 145 | . S HEAD( "TXT")="PA YER: "_$$G ET1^DIQ(34 4.6,IEN_", ",.01,"E") | |
| 146 | . ; Exclu de med cla ims postin g | |
| 147 | . S XOLD= $P(REC0,"^ ",6) | |
| 148 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.06," I") | |
| 149 | . I XOLD' =XNEW D ; | |
| 150 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE MED CL AIMS POSTI NG",XOLD,X NEW,"B",.C OUNT) | |
| 151 | . ; Exclu de med cla ims decrea se | |
| 152 | . S XOLD= $P(REC0,"^ ",7) | |
| 153 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.07," I") | |
| 154 | . I XOLD' =XNEW D ; | |
| 155 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE MED CL AIMS DECRE ASE",XOLD, XNEW,"B",. COUNT) | |
| 156 | . ; Exclu de Rx clai m posting | |
| 157 | . S XOLD= $P(REC0,"^ ",8) | |
| 158 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.08," I") | |
| 159 | . I XOLD' =XNEW D ; | |
| 160 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE RX CLA IM POSTING ",XOLD,XNE W,"B",.COU NT) | |
| 161 | ; | |
| 162 | ; Check e ach CARC-R ARC in 344 .62 for ch anges | |
| 163 | S IEN=0 | |
| 164 | F S IEN= $O(^RCY(34 4.62,IEN)) Q:'IEN D ; | |
| 165 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) | |
| 166 | . S REC1= $G(^TMP("R CDPESP6",$ J,344.62,I EN,1)) | |
| 167 | . S HEAD= 0 | |
| 168 | . S HEAD( "TXT")="CA RC/RARK CO DE: "_$$GE T1^DIQ(344 .62,IEN_", ",.01,"E") | |
| 169 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) | |
| 170 | . ; CARC auto decre ase | |
| 171 | . S XOLD= $P(REC0,"^ ",2) | |
| 172 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.02, "I") | |
| 173 | . I XOLD' =XNEW D ; | |
| 174 | . . D LNO UT(.HEAD,. LINE,"CARC AUTO DECR EASE",XOLD ,XNEW,"B", .COUNT) | |
| 175 | . ; CARC decrease a mount | |
| 176 | . S XOLD= $P(REC0,"^ ",6) | |
| 177 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.06, "I") | |
| 178 | . I XOLD' =XNEW D ; | |
| 179 | . . D LNO UT(.HEAD,. LINE,"CARC DECREASE AMOUNT",XO LD,XNEW,"$ ",.COUNT) | |
| 180 | . ; | |
| 181 | . ; CARC auto decre ase no-pay | |
| 182 | . S XOLD= $P(REC1,"^ ",1) | |
| 183 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.08, "I") | |
| 184 | . I XOLD' =XNEW D ; | |
| 185 | . . D LNO UT(.HEAD,. LINE,"CARC AUTO DECR EASE NO-PA Y",XOLD,XN EW,"B",.CO UNT) | |
| 186 | . ; CARC decrease a mount no p ay | |
| 187 | . S XOLD= $P(REC1,"^ ",5) | |
| 188 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.12, "I") | |
| 189 | . I XOLD' =XNEW D ; | |
| 190 | . . D LNO UT(.HEAD,. LINE,"CARC DECREASE AMOUNT NO- PAY",XOLD, XNEW,"$",. COUNT) | |
| 191 | ; | |
| 192 | Q COUNT | |
| 193 | ; | |
| 194 | LNOUT(HEAD ,LINE,TXT, XOLD,XNEW, TYPE,COUNT ) ; Format a line fo r the mess age | |
| 195 | ; Input: TXT - Desc ription of the chang ed field | |
| 196 | ; XOLD - Old Value (Internal format) | |
| 197 | ; XNEW - New Value (Internal Format) | |
| 198 | ; Type - "B" - Bool ean 1-Yes, 0 - N | |
| 199 | ; "$" - D ollar amou nt | |
| 200 | ; "D" - D ays | |
| 201 | ; "T" - T ext | |
| 202 | ; Output: COUNT pas sed by ref erence | |
| 203 | ; HEAD pa ssed by re ference | |
| 204 | ; LINE pa ssed by re ference | |
| 205 | ; | |
| 206 | N RETURN, YNEW,YOLD | |
| 207 | ; Output header for this sect ion if not already d one | |
| 208 | I 'HEAD D ; | |
| 209 | . S COUNT =COUNT+1 | |
| 210 | . S LINE( COUNT+HEAD ("SIZE"))= HEAD("TXT" ) | |
| 211 | . S HEAD= 1 | |
| 212 | ; | |
| 213 | ; Output: Formatted line of t ext | |
| 214 | S YOLD=XO LD,YNEW=XN EW | |
| 215 | S COUNT=C OUNT+1 | |
| 216 | S LINE(CO UNT+HEAD(" SIZE"))=$E (" "_TXT_D OTS,1,50) | |
| 217 | I TYPE="B " D ; | |
| 218 | . S YOLD= $S(XOLD:"Y ES",1:"NO" ) | |
| 219 | . S YNEW= $S(XNEW:"Y ES",1:"NO" ) | |
| 220 | I TYPE="$ " D ; | |
| 221 | . S YOLD= $FN(XOLD," ,",2) | |
| 222 | . S YNEW= $FN(XNEW," ,",2) | |
| 223 | S YOLD=$J (YOLD,10), YNEW=$J(YN EW,10) | |
| 224 | S LINE(CO UNT+HEAD(" SIZE"))=LI NE(COUNT+H EAD("SIZE" ))_YOLD_" "_YNEW | |
| 225 | QModified Logic (Ch anges are in bold) – RCDPESP6R CDPESP6 ;A ITC/CJE - ePayment L ockbox Sit e Paramete rs - Notif y Changes; | |
| 226 | ;;4.5;Acc ounts Rece ivable;**3 26,XXX**; | |
| 227 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 228 | ; | |
| 229 | Q | |
| 230 | . | |
| 231 | . | |
| 232 | . | |
| 233 | CHKCHNG(LI NE) ; Chec k for chan ges in EDI Lockbox s ite parame ters | |
| 234 | ; Input: ^TMP("RCDP ESP6",$J) - Copy of file 344.6 , 344.61 a nd 344.62 taken on e ntry | |
| 235 | ; Output: LINE - Ch ange lines to add to the mail message. P assed by r eference. | |
| 236 | ; Return: COUNT of the number of change s. 0 if no changes w ere made. | |
| 237 | N COUNT,D OTS,HEAD,I EN,J,RCDET ,REC0,REC1 ,XNEW,XOLD | |
| 238 | ; | |
| 239 | S (COUNT, HEAD)=0,HE AD("SIZE") =10 | |
| 240 | S HEAD("T XT")="ALL PAYERS" | |
| 241 | S DOTS="" F J=1:1:4 0 S DOTS=D OTS_"." | |
| 242 | ; Check p arameters in 344.61 that apply to all pa yers | |
| 243 | S REC0=$G (^TMP("RCD PESP6",$J, 344.61,1,0 )) | |
| 244 | ; | |
| 245 | ; Auto-po st med cla ims enable d | |
| 246 | S XOLD=$P (REC0,"^", 2) | |
| 247 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.02,"I") | |
| 248 | I XNEW'=X OLD D ; | |
| 249 | . D LNOUT (.HEAD,.LI NE,"AUTO-P OST MED CL AIMS ENABL ED",XOLD,X NEW,"B",.C OUNT) | |
| 250 | ; | |
| 251 | ; Auto-de crease med enabled | |
| 252 | S XOLD=$P (REC0,"^", 3) | |
| 253 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.03,"I") | |
| 254 | I XNEW'=X OLD D ; | |
| 255 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE ME D ENABLED" ,XOLD,XNEW ,"B",.COUN T) | |
| 256 | ; | |
| 257 | ; Auto-de crease med days | |
| 258 | S XOLD=$P (REC0,"^", 4) | |
| 259 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.04,"I") | |
| 260 | I XNEW'=X OLD D ; | |
| 261 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE DA YS DEFAULT ",XOLD,XNE W,"D",.COU NT) | |
| 262 | ; | |
| 263 | ; Auto-de crease no- pay med en abled | |
| 264 | S XOLD=$P (REC0,"^", 11) | |
| 265 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.11,"I") | |
| 266 | I XNEW'=X OLD D ; | |
| 267 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE NO -PAY MED E NABLED",XO LD,XNEW,"B ",.COUNT) | |
| 268 | ; | |
| 269 | ; Auto-de crease no- pay med da ys | |
| 270 | S XOLD=$P (REC0,"^", 12) | |
| 271 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.12,"I") | |
| 272 | I XNEW'=X OLD D ; | |
| 273 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE NO - D A N S A S D FAULT",XOL D,XNEW,"D" ,.COUNT) | |
| 274 | ; | |
| 275 | ; Auto-de crease med amount | |
| 276 | S XOLD=$P (REC0,"^", 5) | |
| 277 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.05,"I") | |
| 278 | I XNEW'=X OLD D ; | |
| 279 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE AM T DEFAULT" ,XOLD,XNEW ,"$",.COUN T) | |
| 280 | ; | |
| 281 | S REC1=$G (^TMP("RCD PESP6",$J, 344.61,1,1 )) | |
| 282 | ; Auto-po st Rx | |
| 283 | S XOLD=$P (REC1,"^", 1) | |
| 284 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,1.01,"I") | |
| 285 | I XNEW'=X OLD D ; | |
| 286 | . D LNOUT (.HEAD,.LI NE,"AUTO-P OST RX CLA IMS ENABLE D",XOLD,XN EW,"B",.CO UNT) | |
| 287 | ; | |
| 288 | ; Auto-de crease Rx | |
| 289 | S XOLD=$P (REC1,"^", 2) | |
| 290 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,1.02,"I") | |
| 291 | I XNEW'=X OLD D ; | |
| 292 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE RX ENABLED", XOLD,XNEW, "B",.COUNT ) | |
| 293 | ; | |
| 294 | ; Check e ach payer in 344.6 f or changes | |
| 295 | S IEN=0 | |
| 296 | F S IEN= $O(^RCY(34 4.6,IEN)) Q:'IEN D ; | |
| 297 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.6,IE N,0)) | |
| 298 | . S HEAD= 0 | |
| 299 | . S HEAD( "DETAIL")= $$GET1^DIQ (344.6,IEN _",",.01," E") | |
| 300 | . S HEAD( "TXT")="PA YER: "_HEA D("DETAIL" ) . ; Excl ude med cl aims posti ng | |
| 301 | . S XOLD= $P(REC0,"^ ",6) | |
| 302 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.06," I") | |
| 303 | . I XOLD' =XNEW D ; | |
| 304 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE MED CL AIMS POSTI NG",XOLD,X NEW,"B",.C OUNT) | |
| 305 | . ; Exclu de med cla ims decrea se | |
| 306 | . S XOLD= $P(REC0,"^ ",7) | |
| 307 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.07," I") | |
| 308 | . I XOLD' =XNEW D ; | |
| 309 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE MED CL AIMS DECRE ASE",XOLD, XNEW,"B",. COUNT) | |
| 310 | . ; Exclu de Rx clai m posting | |
| 311 | . S XOLD= $P(REC0,"^ ",8) | |
| 312 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.08," I") | |
| 313 | . I XOLD' =XNEW D ; | |
| 314 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE RX CLA IM POSTING ",XOLD,XNE W,"B",.COU NT) | |
| 315 | ; | |
| 316 | ; Check e ach CARC-R ARC in 344 .62 for ch anges | |
| 317 | S IEN=0 | |
| 318 | F S IEN= $O(^RCY(34 4.62,IEN)) Q:'IEN D ; | |
| 319 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) | |
| 320 | . S REC1= $G(^TMP("R CDPESP6",$ J,344.62,I EN,1)) | |
| 321 | . S HEAD= 0 | |
| 322 | . S HEAD( "DETAIL")= $$GET1^DIQ (344.62,IE N_",",.01, "E") | |
| 323 | . S HEAD( "TXT")="CA RC/RARK CO DE: "_HEAD (DETAIL”) | |
| 324 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) | |
| 325 | . ; CARC auto decre ase | |
| 326 | . S XOLD= $P(REC0,"^ ",2) | |
| 327 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.02, "I") | |
| 328 | . I XOLD' =XNEW D ; | |
| 329 | . . D LNO UT(.HEAD,. LINE,"CARC AUTO DECR EASE",XOLD ,XNEW,"B", .COUNT) | |
| 330 | . ; CARC decrease a mount | |
| 331 | . S XOLD= $P(REC0,"^ ",6) | |
| 332 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.06, "I") | |
| 333 | . I XOLD' =XNEW D ; | |
| 334 | . . D LNO UT(.HEAD,. LINE,"CARC DECREASE AMOUNT",XO LD,XNEW,"$ ",.COUNT) | |
| 335 | . ; | |
| 336 | . ; CARC auto decre ase no-pay | |
| 337 | . S XOLD= $P(REC1,"^ ",1) | |
| 338 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.08, "I") | |
| 339 | . I XOLD' =XNEW D ; | |
| 340 | . . D LNO UT(.HEAD,. LINE,"CARC AUTO DECR EASE NO-PA Y",XOLD,XN EW,"B",.CO UNT) | |
| 341 | . ; CARC decrease a mount no p ay | |
| 342 | . S XOLD= $P(REC1,"^ ",5) | |
| 343 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.12, "I") | |
| 344 | . I XOLD' =XNEW D ; | |
| 345 | . . D LNO UT(.HEAD,. LINE,"CARC DECREASE AMOUNT NO- PAY",XOLD, XNEW,"$",. COUNT) | |
| 346 | ; | |
| 347 | Q COUNT | |
| 348 | ; | |
| 349 | LNOUT(HEAD ,LINE,TXT, XOLD,XNEW, TYPE,COUNT ) ; Format a line fo r the mess age | |
| 350 | ; Input: TXT - Desc ription of the chang ed field | |
| 351 | ; XOLD - Old Value (Internal format) | |
| 352 | ; XNEW - New Value (Internal Format) | |
| 353 | ; Type - "B" - Bool ean 1-Yes, 0 - N | |
| 354 | ; "$" - D ollar amou nt | |
| 355 | ; "D" - D ays | |
| 356 | ; "T" - T ext | |
| 357 | ; Output: COUNT pas sed by ref erence | |
| 358 | ; HEAD pa ssed by re ference | |
| 359 | ; LINE pa ssed by re ference | |
| 360 | ; | |
| 361 | N RCFDA,R ETURN | |
| 362 | ; Output header for this sect ion if not already d one | |
| 363 | I 'HEAD D ; | |
| 364 | . S COUNT =COUNT+1 | |
| 365 | . S LINE( COUNT+HEAD ("SIZE"))= HEAD("TXT" ) | |
| 366 | . S HEAD= 1 | |
| 367 | ; | |
| 368 | ; Output: Formatted line of t ext | |
| 369 | I TYPE="B " D ; | |
| 370 | . S YOLD= $S(XOLD:"Y ES",1:"NO" ) | |
| 371 | . S YNEW= $S(XNEW:"Y ES",1:"NO" ) | |
| 372 | I TYPE="$ " D ; | |
| 373 | . S YOLD= $FN(XOLD," ,",2) | |
| 374 | . S YNEW= $FN(XNEW," ,",2) | |
| 375 | S COUNT=C OUNT+1 | |
| 376 | S LINE(CO UNT+HEAD(" SIZE"))=$E (" "_TXT_D OTS,1,50) S YOLD=$J( YOLD,10),Y NEW=$J(YNE W,10) | |
| 377 | S LINE(CO UNT+HEAD(" SIZE"))=LI NE(COUNT+H EAD("SIZE" ))_$$FORMA T(OLD,TYPE )_" "_$$FO RMAT(NEW,T YPE) | |
| 378 | ; | |
| 379 | ; US817 – Save chan ges into m ultiple 34 4.611 for history re port | |
| 380 | S IENS="+ 1,1," | |
| 381 | S RCFDA(3 44.611,IEN S,.01)=$$N OW^XLFDT() | |
| 382 | S RCFDA(3 44.611,IEN S,.02)=DUZ | |
| 383 | S RCFDA(3 44.611,IEN S,1)=TXT | |
| 384 | S RCFDA(3 44.611,IEN S,1)=HEAD( "DETAIL") | |
| 385 | S RCFDA(3 44.611,IEN S,3)=$$FOR MAT(OLD,TY PE) | |
| 386 | S RCFDA(3 44.611,IEN S,4)=$$FOR MAT(NEW,TY PE) | |
| 387 | D UPDATE^ DIE("RCFDA ","") | |
| 388 | Q | |
| 389 | ; | |
| 390 | FORMAT(VAL UE,TYPE) ; Format a value for output | |
| 391 | ; Input: VALUE – Va lue to be formated | |
| 392 | ; TYPE - "$" - Doll ar amount, B - Boole an | |
| 393 | ; Return: Formated value | |
| 394 | ; | |
| 395 | S RETURN= VALUE | |
| 396 | I TYPE="B " D ; | |
| 397 | . S RETUR N=$S(VALUE :"YES",1:" NO") | |
| 398 | I TYPE="$ " D ; | |
| 399 | . S RETUR N=$FN(VALU E,",",2) | |
| 400 | Q RETURN | |
| 401 | ; | |
| 402 | PAYEN ; (E N) On entr y into ide ntify paye rs option, save a sn apshot of file 344.6 | |
| 403 | ; Input: None | |
| 404 | ; Output: ^TMP("RCD PESP6",$J) created b y merging in files 3 44.6, 344. 61 and 344 .62 | |
| 405 | K ^TMP("R CDPESP6",$ J) | |
| 406 | M ^TMP("R CDPESP6",$ J,344.6)=^ RCY(344.6) ; Save pa yer exclus ions | |
| 407 | Q | |
| 408 | PAYEX ; (E N) On exit from iden tify payer s option, compare sn apshot wit h live fil es. | |
| 409 | ; Save ch anges to t he paramet er audit m ultiple 34 4.611 | |
| 410 | ; Input: ^TMP("RCDP ESP6",$J) created ab ove by mer ging in fi le 344.6 | |
| 411 | ; Output: Enties in multiple 344.611 to keep hist ory of pay er flag ch anges | |
| 412 | ; | |
| 413 | N COUNT, IEN,REC0,H EAD,LINE,X OLD,XNEW | |
| 414 | ; | |
| 415 | S COUNT=0 | |
| 416 | ; Check e ach payer in 344.6 f or changes | |
| 417 | S IEN=0 | |
| 418 | F S IEN= $O(^RCY(34 4.6,IEN)) Q:'IEN D ; | |
| 419 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.6,IE N,0)) | |
| 420 | . S HEAD= 0 | |
| 421 | . S HEAD( "DETAIL")= $$GET1^DIQ (344.6,IEN _",",.01," E") | |
| 422 | . S HEAD( "TXT")="PA YER: "_HEA D("DETAIL" ) | |
| 423 | . ; Pharm acy Flag | |
| 424 | . S XOLD= $P(REC0,"^ ",9) | |
| 425 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.06," I") | |
| 426 | . I (+XOL D)'=(+XNEW ) D ; | |
| 427 | . . D LNO UT(.HEAD,. LINE,"PARM ACY FLAG", XOLD,XNEW, "B",.COUNT ) | |
| 428 | . ; Trica re flag | |
| 429 | . S XOLD= $P(REC0,"^ ",7) | |
| 430 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.07," I") | |
| 431 | . I (+XOL D)'=(+XNEW ) D ; | |
| 432 | . . D LNO UT(.HEAD,. LINE,"TRIC ARE FLAG", XOLD,XNEW, "B",.COUNT ) | |
| 433 | Q | |
| 434 | ;Routines Activities Routine Na meRCDPESP8 Enhancemen t Category New Modif y Delete N o ChangeRT MRelated O ptionsRCDP E PARAMETE R HISTORY REPORTRela ted Routin esRoutines “Called B y”Routines “Called” Current LogicN/AMo dified Log ic (Change s are in b old)RCDPES P8 ;AITC/C JE - ePaym ent Lockbo x Site Par ameters Hi story | |
| 435 | ;;4.5;Acc ounts Rece ivable;**X XX**;Mar 2 0, 1995;Bu ild 104 | |
| 436 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 437 | ; | |
| 438 | EN ; entry point for EDI Lockb ox Paramet ers Histor y Report [ RCDPE PARA METER HIST ORY REPORT ] | |
| 439 | N BDATE,E DATE,RCHDR ,IEN2,RCDA TE,RCEND,R CLN,RCPAGE ,RCSTOP,VA LMHDR | |
| 440 | K ^TMP($J ,"RCDPESP8 ") | |
| 441 | Q:$$PROMP TS(.BDATE, .EDATE,.RC LM)=-1 ; P rompt for report par ameters | |
| 442 | ; | |
| 443 | S RCPAGE= 0,RCSTOP=0 | |
| 444 | I RCLM D G EXIT | |
| 445 | . S RCTMP ND="RCDPES P8" K ^TM P($J,RCTMP ND) ; clea n any resi due | |
| 446 | . D COMPI LE | |
| 447 | . D LMRPT ^RCDPEARL( .VALMHDR,$ NA(^TMP($J ,RCTMPND)) ) ; genera te ListMan display | |
| 448 | . I $D(RC TMPND) K ^ TMP($J,RCT MPND) | |
| 449 | ; | |
| 450 | W ! | |
| 451 | S %ZIS="Q M" D ^%ZIS Q:POP | |
| 452 | I $D(IO(" Q")) D Q | |
| 453 | .N ZTDESC ,ZTRTN,ZTS AVE,ZTSK | |
| 454 | .S ZTRTN= "COMPILE^R CDPESP8",Z TDESC="EDI LOCKBOX A UTO PARAME TER HISTOR Y REPORT" | |
| 455 | .S ZTSAVE ("*")="" | |
| 456 | .D ^%ZTLO AD | |
| 457 | .W !!,$S( $D(ZTSK):" Your task number"_ZT SK_" has b een queued .",1:"Unab le to queu e this job .") | |
| 458 | .K IO("Q" ) D HOME^% ZIS | |
| 459 | ; | |
| 460 | U IO | |
| 461 | D COMPILE | |
| 462 | I 'RCSTOP D ASK^RCD PEARL(.RCS TOP) | |
| 463 | ; | |
| 464 | Q | |
| 465 | COMPILE ; Get data f or user se lected dat e range | |
| 466 | N IEN2,IE N3,LINE,RC PARAM,RCSE Q | |
| 467 | S RCSEQ=0 | |
| 468 | S RCDATE= BDATE,RCEN D=EDATE_". "_24 | |
| 469 | F S RCDA TE=$O(^RCY (344.61,1, "HISTORY", "ADU",RCDA TE)) Q:(RC DATE>EDATE ) D ; | |
| 470 | . S IEN2= "" | |
| 471 | . F S IE N2=$O(^RCY (344.61,1, "HISTORY", "ADU",RCDA TE,IEN2)) Q:IEN2="" D ; | |
| 472 | . . S RCU SR="" | |
| 473 | . . F S RCUSR=$O(^ RCY(344.61 ,1,"HISTOR Y","ADU",R CDATE,IEN2 ,RCUSR)) Q :RCUSR="" D ; | |
| 474 | . . . S R CSEQ=RCSEQ +1 | |
| 475 | . . . S L INE=$$FMTE ^XLTDT(RCD ATE)_" "_$ $GET1^DIQ( 200,RCUSR_ ",",.01,"E ") | |
| 476 | . . . S ^ TMP($J,"RC DPESP8",RC SEQ)=LINE | |
| 477 | . . . S I NE3="" | |
| 478 | . . . F S IEN3=$O( ^RCY(344.6 1,1,"HISTO RY","ADU", RCDATE,IEN 2,RCUSR,IE N3)) Q:IEN 3="" D ; | |
| 479 | . . . . S RCPARAM=$ $GET1^DIQ( 344.611,IE N3_",1,",1 ,"E") | |
| 480 | . . . . S RCDET=$$G ET1^DIQ(34 4.611,IEN3 _",1,",2," E") | |
| 481 | . . . . S RCOLD=$$G ET1^DIQ(34 4.611,IEN3 _",1,",3," E") | |
| 482 | . . . . S RCOLD=$$G ET1^DIQ(34 4.611,IEN3 _",1,",4," E") | |
| 483 | . . . . S SPLIT=0 | |
| 484 | . . . . I $L(RCPARA M_RCDET)>6 0 S SPLIT= 1 | |
| 485 | . . . . S RCSEQ=RCS EQ+1 | |
| 486 | . . . . S LINE=" "_ RCPARAM | |
| 487 | . . . . I 'SPLIT D | |
| 488 | . . . . . S LINE=LI NE_" ("_RC DET_")" | |
| 489 | . . . . . S LINE=LI NE_$J("",6 8-$L(LINE) )_$J(OLD,8 )_" "_$J(N EW,8) | |
| 490 | . . . . S ^TMP($J," RCDPESP8", RCSEQ)=LIN E | |
| 491 | . . . . I SPLIT D ; | |
| 492 | . . . . . S RCSEQ=R CSEQ+1 | |
| 493 | . . . . . S LINE=" "_RCDET_$J ("",68-$L( LINE))_$J( OLD,8)_" " _$J(NEW,8) | |
| 494 | . . . . . S ^TMP($J ,"RCDPESP8 ",RCSEQ)=L INE | |
| 495 | I 'RCLM D ; | |
| 496 | . D OUTPU T Q:RCSTOP ; | |
| 497 | ; | |
| 498 | EXIT ; Exi t point to clean up ^TMP | |
| 499 | K ^TMP($J ,"RCDPESP8 ") | |
| 500 | Q | |
| 501 | ; | |
| 502 | OUTPUT ; O uptput pri nted repor t to scree n or print er | |
| 503 | S RCPAGE= 1 | |
| 504 | D HDR | |
| 505 | S RCSEQ=0 | |
| 506 | F S RCSE Q=$O(^TMP( $J,"RCDPES P8",RCSEQ) ) Q:'RCSEQ D I RCS TOP Q | |
| 507 | . D HDRLS T^RCDPEARL (.RCSTOP,. RCHDR) I R CSTOP Q | |
| 508 | . W !,^TM P($J,"RCDP ESP8",RCSE Q) | |
| 509 | Q | |
| 510 | EXIT ; Cle an up befo re quittin g | |
| 511 | K ^TMP(^T MP($J,"RCD PESP8")) | |
| 512 | Q | |
| 513 | HEAD ; Pri nt header | |
| 514 | N LINE,PG | |
| 515 | S LINE="A uto Parame ter Histor y Report" | |
| 516 | S PG="Pag e: "_RCPAG E | |
| 517 | S LINE=$J ("",(80-$L (LINE)\2)) _LINE | |
| 518 | S RCHDR(1 )=LINE_$J( "",71-$L(L INE))_PG | |
| 519 | S LINE="R UN DATE: " _$$FMTE^XL FDT($$NOW^ XLFDT) | |
| 520 | S RCHDR(2 )=$J("",(8 0-$L(LINE) \2))_LINE | |
| 521 | S LINE="D ATE RANGE: "_$$FMTE^ XLFDT(BDAT E,"2DZ")_" - "_$$FMT E^XLFDT(ED ATE,"2DZ") | |
| 522 | S RCHDR(3 )=$J("",(8 0-$L(LINE) \2))_LINE | |
| 523 | S RCHDR(4 )="" | |
| 524 | S LINE="D ate/Time E dited User "_$J("",48 )_"Values" | |
| 525 | S RCHDR(5 )=LINE | |
| 526 | S LINE=" Parameter" _$J("",58) _"Old New" | |
| 527 | S RCHDR(6 )=LINE | |
| 528 | S RCHDR(7 )=$TR($J(" ",80)," ", "=") | |
| 529 | S RCHDR(" XECUTE")=" S RCPAGE=R CPAGE+1" | |
| 530 | ; | |
| 531 | S VALMHDR (1)=RCHDR( 1) | |
| 532 | S VALMHDR (2)=RCHDR( 3) | |
| 533 | S VALMHDR (3)="" | |
| 534 | S VALMHDR (4)=RCHDR( 5) | |
| 535 | S VALMHDR (5)=RCHDR( 6) | |
| 536 | Q | |
| 537 | ; | |
| 538 | PROMPTS(BD ATE,EDATE, RCLM,RCXL) ; Propmt for report Parameter s | |
| 539 | ; Input: None | |
| 540 | ; Output: BDATE - S tart date for report in FileMa n internal format | |
| 541 | ; EDATE - End date for report in Filema n internal format | |
| 542 | ; RCLM - Boolean fl ag - displ ay in List Man | |
| 543 | ; Returns : -1 Quit without ru nning repo rt | |
| 544 | ; 1 Conti nue | |
| 545 | ; | |
| 546 | N DIR | |
| 547 | S RETURN= 1 | |
| 548 | S DIR("?" )="ENTER T HE DATE OF THE EARIE ST PARAMET ER CHANGE TO INCLUDE " | |
| 549 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art date: ",DIR("B") ="T" D ^DI R K DIR | |
| 550 | I $D(DTOU T)!$D(DUOU T)!(Y="") S RETURN=- 1 G PQ | |
| 551 | S BDATE=Y | |
| 552 | ; | |
| 553 | K DIR | |
| 554 | S DIR("?" )="ENTER T HE DATE OF THE LATES T PARAMETE R CHANGE T O INCLUDE" | |
| 555 | S DIR("B" )="T" | |
| 556 | S DIR(0)= "DAO^"_STA RT_":"_DT_ ":APE",DIR ("A")="END DATE (REC EIVED): " D ^DIR K D IR | |
| 557 | I $D(DTOU T)!$D(DUOU T)!(Y="") S RETURN=- 1 G PQ | |
| 558 | S EDATE=Y | |
| 559 | ; | |
| 560 | S RCLM=$$ ASKLM^RCDP EARL() I R CLM=-1 S R ETURN=-1 | |
| 561 | Q RETURNR outinesAct ivitiesRou tine NameR CDPEPEnhan cement Cat egory New Modify Del ete No Cha ngeRTMRela ted Option sRelated R outinesRou tines “Cal led By”Rou tines “Cal led” Cur rent Logic - RCDPEPR CDPEP ;AIT C/CJE - FL AG PAYERS AS PHARMAC Y/TRICARE ; 19-APR-2 017 | |
| 562 | ;;4.5;Acc ounts Rece ivable;**3 21,326**;; | |
| 563 | ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
| 564 | ; | |
| 565 | EN(FILTER, DATEFILT) ; -- main entry poin t for RCDP E PAYER FL AGS templa te | |
| 566 | ; Input: FILTER - A =All payer s, P=Pharm acy payers , T=Tricar e payers, | |
| 567 | ; M=Medic al (Neithe r Pharmacy nor Trica re) | |
| 568 | ; DATEFIL T - Additi onal Filte r by Date. Has 3 pie ces by '^' | |
| 569 | ; Piece 1 - 1=Filte r by date, 0=Don't | |
| 570 | ; Piece 2 - START - First DAT E ADDED to include(F M format) | |
| 571 | ; Piece 3 - END - L ast DATE A DDED to in clude (FM format) | |
| 572 | ; | |
| 573 | I '$D(DAT EFILT) S D ATEFILT=$$ GETDATE() | |
| 574 | I DATEFIL T=-1 Q ; | |
| 575 | I '$D(FIL TER) S FIL TER=$$GETF ILT() | |
| 576 | I FILTER= -1 Q ; | |
| 577 | ; | |
| 578 | D EN^VALM ("RCDPE PA YER FLAGS" ) | |
| 579 | Q | |
| 580 | ; | |
| 581 | . | |
| 582 | . | |
| 583 | .Modified Logic (Cha nges are i n bold) - RCDPEPRCDP EP ;AITC/C JE - FLAG PAYERS AS PHARMACY/T RICARE ; 1 9-APR-2017 | |
| 584 | ;;4.5;Acc ounts Rece ivable;**3 21,326**;; | |
| 585 | ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
| 586 | ; | |
| 587 | EN(FILTER, DATEFILT) ; -- main entry poin t for RCDP E PAYER FL AGS templa te | |
| 588 | ; Input: FILTER - A =All payer s, P=Pharm acy payers , T=Tricar e payers, | |
| 589 | ; M=Medic al (Neithe r Pharmacy nor Trica re) | |
| 590 | ; DATEFIL T - Additi onal Filte r by Date. Has 3 pie ces by '^' | |
| 591 | ; Piece 1 - 1=Filte r by date, 0=Don't | |
| 592 | ; Piece 2 - START - First DAT E ADDED to include(F M format) | |
| 593 | ; Piece 3 - END - L ast DATE A DDED to in clude (FM format) | |
| 594 | ; | |
| 595 | I '$D(DAT EFILT) S D ATEFILT=$$ GETDATE() | |
| 596 | I DATEFIL T=-1 Q ; | |
| 597 | I '$D(FIL TER) S FIL TER=$$GETF ILT() | |
| 598 | I FILTER= -1 Q ; | |
| 599 | ; | |
| 600 | D PAYEN^R CDPESP6 | |
| 601 | D EN^VALM ("RCDPE PA YER FLAGS" ) | |
| 602 | D PAYEX^R CDPESP6 | |
| 603 | Q | |
| 604 | ; | |
| 605 | . | |
| 606 | . | |
| 607 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.