Produced by Araxis Merge on 2/27/2019 2:32:59 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 US817 SDD.docx | Fri Jan 25 13:46:06 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 US817 SDD.docx | Mon Feb 25 20:56:44 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 484 |
Changed | 0 | 0 |
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 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | April 2018 | |
10 | Version 1 | |
11 | User Story Number: U S817 | |
12 | User Story Name: | |
13 | Sizing: 5 | |
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 | Revenue Cl erk | |
26 | To see a h istory rep ort for al l auto-act ivity and parameters | |
27 | So that I can see a history of site para meter chan ges by dat e or range of dates. | |
28 | ||
29 | Conversati on (if des ired by de velopers) | |
30 | View histo ry of para meter chan ges on whe n (date/da te range) | |
31 | Current fu nctionalit y shows la st change? | |
32 | If added, it would b e not be r etroactive ; only wil l store pa rameter hi story movi ng forward . | |
33 | Listmanage r to allow sorting a nd searchi ng. | |
34 | ||
35 | ||
36 | Functional Design | |
37 | 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. | |
38 | ||
39 | Summary | |
40 | ||
41 | Data Dicti onary chan ges needed | |
42 | ||
43 | 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. | |
44 | ||
45 | 344.611,.0 1 DAT E 0;1 DATE (Required ) (Multipl y asked) | |
46 | ||
47 | HELP -PROMPT: Enter th e date/tim e the EDI Lockbox pa rameter wa s | |
48 | chang ed | |
49 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
50 | syste m. | |
51 | ||
52 | ||
53 | ||
54 | ||
55 | 344.611,.0 2 USE R 0;2 P OINTER TO NEW PERSON FILE (Req uired) (#2 00) | |
56 | ||
57 | HELP -PROMPT: Enter th e person w ho changed the EDI L ockbox par ameter | |
58 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
59 | syste m. | |
60 | ||
61 | 344.611,1 PARAM ETER 0; 3 FREE TEX T (Require d) | |
62 | ||
63 | HELP -PROMPT: Enter th e descript ion of the parameter that chan ged. | |
64 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
65 | syste m. | |
66 | 344.611,2 DETAI L 0;4 FREE TEXT | |
67 | ||
68 | HELP -PROMPT: Enter th e payer or CARC code that this change re lates | |
69 | to. | |
70 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
71 | syste m. | |
72 | ||
73 | 344.611,3 OLD V ALUE 0; 5 FREE TEX T | |
74 | ||
75 | HELP -PROMPT: Enter th e old valu e of the p arameter t hat change d. | |
76 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
77 | syste m. | |
78 | 344.611,4 NEW V ALUE 0;6 FREE TEXT | |
79 | ||
80 | ||
81 | HELP -PROMPT: Enter th e person w ho changed the EDI L ockbox par ameter | |
82 | DESC RIPTION: This fie ld will be automatic ally popul ated by th e | |
83 | syste m. | |
84 | ||
85 | Routines C hanged | |
86 | ||
87 | RCDPESP6 - Modified | |
88 | 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. | |
89 | ||
90 | RCDPEP – M odified | |
91 | 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 . | |
92 | ||
93 | RCDPESP8 – New | |
94 | New Routin e for Para meter Hist ory report | |
95 | ||
96 | Menu Optio ns | |
97 | ||
98 | RCDPE PARA METER HIST ORY REPORT | |
99 | APH - Auto Parameter History R eport | |
100 | ||
101 | ||
102 | List Manag er Templat e | |
103 | ||
104 | List Manag er display will use the existi ng “RCDPE MISC REPOR TS” templa te | |
105 | ||
106 | Resolution – Added C hanged Obj ects | |
107 | ||
108 | ||
109 | Routines | |
110 | Activities | |
111 | Routine Na me | |
112 | RCDPESP6 | |
113 | Enhancemen t Category | |
114 | New | |
115 | Modify | |
116 | Delete | |
117 | No Change | |
118 | RTM | |
119 | ||
120 | Related Op tions | |
121 | RDCPE EDI LOCKBOX PA RAMETERS | |
122 | ||
123 | ||
124 | Related Ro utines | |
125 | Routines “ Called By” | |
126 | Routines “ Called” | |
127 | ||
128 | ||
129 | ||
130 | ||
131 | Current Lo gic – RCDP ESP6 | |
132 | RCDPESP6 ; AITC/CJE - ePayment Lockbox Si te Paramet ers - Noti fy Changes ; ;;4.5;Ac counts Rec eivable;** 326**; ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified. ; Q | |
133 | . | |
134 | . | |
135 | . | |
136 | CHKCHNG(LI NE) ; Chec k for chan ges in EDI Lockbox s ite parame ters ; Inp ut: ^TMP(" RCDPESP6", $J) - Copy of file 3 44.6, 344. 61 and 344 .62 taken on entry ; Output: L INE - Chan ge lines t o add to t he mail me ssage. Pas sed by ref erence. ; Return: CO UNT of the number of changes. 0 if no ch anges were made. N C OUNT,DOTS, HEAD,IEN,J ,REC0,REC1 ,XNEW,XOLD ; S (COUN T,HEAD)=0, HEAD("SIZE ")=10 S HE AD("TXT")= "ALL PAYER S" S DOTS= "" F J=1:1 :40 S DOTS =DOTS_"." ; Check pa rameters i n 344.61 t hat apply to all pay ers S REC0 =$G(^TMP(" RCDPESP6", $J,344.61, 1,0)) ; ; Auto-post med claims enabled S XOLD=$P(R EC0,"^",2) S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.02,"I") I XNEW'=XO LD D ; . D LNOUT(.H EAD,.LINE, "AUTO-POST MED CLAIM S ENABLED" ,XOLD,XNEW ,"B",.COUN T) ; ; Aut o-decrease med enabl ed S XOLD= $P(REC0,"^ ",3) S XNE W=$$GET1^D IQ(344.61, "1,",.03," I") I XNEW '=XOLD D ; . D LNOU T(.HEAD,.L INE,"AUTO- DECREASE M ED ENABLED ",XOLD,XNE W,"B",.COU NT) ; ; Au to-decreas e med days S XOLD=$P (REC0,"^", 4) S XNEW= $$GET1^DIQ (344.61,"1 ,",.04,"I" ) I XNEW'= XOLD D ; . D LNOUT( .HEAD,.LIN E,"AUTO-DE CREASE DAY S DEFAULT" ,XOLD,XNEW ,"D",.COUN T) ; ; Aut o-decrease no-pay me d enabled S XOLD=$P( REC0,"^",1 1) S XNEW= $$GET1^DIQ (344.61,"1 ,",.11,"I" ) I XNEW'= XOLD D ; . D LNOUT( .HEAD,.LIN E,"AUTO-DE CREASE NO- PAY MED EN ABLED",XOL D,XNEW,"B" ,.COUNT) ; ; Auto-de crease no- pay med da ys S XOLD= $P(REC0,"^ ",12) S XN EW=$$GET1^ DIQ(344.61 ,"1,",.12, "I") I XNE W'=XOLD D ; . D LNO UT(.HEAD,. LINE,"AUTO -DECREASE NO-PAY DAY S DEFAULT" ,XOLD,XNEW ,"D",.COUN T) ; ; Aut o-decrease med amoun t S XOLD=$ P(REC0,"^" ,5) S XNEW =$$GET1^DI Q(344.61," 1,",.05,"I ") I XNEW' =XOLD D ; . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE AM T DEFAULT" ,XOLD,XNEW ,"$",.COUN T) ; S REC 1=$G(^TMP( "RCDPESP6" ,$J,344.61 ,1,1)) ; A uto-post R x S XOLD=$ P(REC1,"^" ,1) S XNEW =$$GET1^DI Q(344.61," 1,",1.01," I") I XNEW '=XOLD D ; . D LNOU T(.HEAD,.L INE,"AUTO- POST RX CL AIMS ENABL ED",XOLD,X NEW,"B",.C OUNT) ; ; Auto-decre ase Rx S X OLD=$P(REC 1,"^",2) S XNEW=$$GE T1^DIQ(344 .61,"1,",1 .02,"I") I XNEW'=XOL D D ; . D LNOUT(.HE AD,.LINE," AUTO-DECRE ASE RX ENA BLED",XOLD ,XNEW,"B", .COUNT) ; ; Check ea ch payer i n 344.6 fo r changes S IEN=0 F S IEN=$O( ^RCY(344.6 ,IEN)) Q:' IEN D ; . S REC0=$ G(^TMP("RC DPESP6",$J ,344.6,IEN ,0)) . S H EAD=0 . S HEAD("TXT" )="PAYER: "_$$GET1^D IQ(344.6,I EN_",",.01 ,"E") . ; Exclude me d claims p osting . S XOLD=$P(R EC0,"^",6) . S XNEW= $$GET1^DIQ (344.6,IEN _",",.06," I") . I XO LD'=XNEW D ; . . D LNOUT(.HEA D,.LINE,"E XCLUDE MED CLAIMS PO STING",XOL D,XNEW,"B" ,.COUNT) . ; Exclude med claim s decrease . S XOLD= $P(REC0,"^ ",7) . S X NEW=$$GET1 ^DIQ(344.6 ,IEN_",",. 07,"I") . I XOLD'=XN EW D ; . . D LNOUT( .HEAD,.LIN E,"EXCLUDE MED CLAIM S DECREASE ",XOLD,XNE W,"B",.COU NT) . ; Ex clude Rx c laim posti ng . S XOL D=$P(REC0, "^",8) . S XNEW=$$GE T1^DIQ(344 .6,IEN_"," ,.08,"I") . I XOLD'= XNEW D ; . . D LNOU T(.HEAD,.L INE,"EXCLU DE RX CLAI M POSTING" ,XOLD,XNEW ,"B",.COUN T) ; ; Che ck each CA RC-RARC in 344.62 fo r changes S IEN=0 F S IEN=$O( ^RCY(344.6 2,IEN)) Q: 'IEN D ; . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) . S REC1=$G(^ TMP("RCDPE SP6",$J,34 4.62,IEN,1 )) . S HEA D=0 . S HE AD("TXT")= "CARC/RARK CODE: "_$ $GET1^DIQ( 344.62,IEN _",",.01," E") . S RE C0=$G(^TMP ("RCDPESP6 ",$J,344.6 2,IEN,0)) . ; CARC a uto decrea se . S XOL D=$P(REC0, "^",2) . S XNEW=$$GE T1^DIQ(344 .62,IEN_", ",.02,"I") . I XOLD' =XNEW D ; . . D LNO UT(.HEAD,. LINE,"CARC AUTO DECR EASE",XOLD ,XNEW,"B", .COUNT) . ; CARC dec rease amou nt . S XOL D=$P(REC0, "^",6) . S XNEW=$$GE T1^DIQ(344 .62,IEN_", ",.06,"I") . I XOLD' =XNEW D ; . . D LNO UT(.HEAD,. LINE,"CARC DECREASE AMOUNT",XO LD,XNEW,"$ ",.COUNT) . ; . ; CA RC auto de crease no- pay . S XO LD=$P(REC1 ,"^",1) . S XNEW=$$G ET1^DIQ(34 4.62,IEN_" ,",.08,"I" ) . I XOLD '=XNEW D ; . . D LN OUT(.HEAD, .LINE,"CAR C AUTO DEC REASE NO-P AY",XOLD,X NEW,"B",.C OUNT) . ; CARC decre ase amount no pay . S XOLD=$P( REC1,"^",5 ) . S XNEW =$$GET1^DI Q(344.62,I EN_",",.12 ,"I") . I XOLD'=XNEW D ; . . D LNOUT(.H EAD,.LINE, "CARC DECR EASE AMOUN T NO-PAY", XOLD,XNEW, "$",.COUNT ) ; Q COUN T ; | |
137 | LNOUT(HEAD ,LINE,TXT, XOLD,XNEW, TYPE,COUNT ) ; Format a line fo r the mess age ; Inpu t: TXT - D escription of the ch anged fiel d ; XOLD - Old Value (Internal format) ; XNEW - Ne w Value (I nternal Fo rmat) ; Ty pe - "B" - Boolean 1 -Yes, 0 - N ; "$" - Dollar amo unt ; "D" - Days ; " T" - Text ; Output: COUNT pass ed by refe rence ; HE AD passed by referen ce ; LINE passed by reference ; N RETUR N,YNEW,YOL D ; Output header fo r this sec tion if no t already done I 'H EAD D ; . S COUNT=C OUNT+1 . S LINE(COUN T+HEAD("SI ZE"))=HEAD ("TXT") . S HEAD=1 ; ; Output: Formatted line of t ext S YOLD =XOLD,YNEW =XNEW S CO UNT=COUNT+ 1 S LINE(C OUNT+HEAD( "SIZE"))=$ E(" "_TXT_ DOTS,1,50) I TYPE="B " D ; . S YOLD=$S(X OLD:"YES", 1:"NO") . S YNEW=$S( XNEW:"YES" ,1:"NO") I TYPE="$" D ; . S Y OLD=$FN(XO LD,",",2) . S YNEW=$ FN(XNEW,", ",2) S YOL D=$J(YOLD, 10),YNEW=$ J(YNEW,10) S LINE(CO UNT+HEAD(" SIZE"))=LI NE(COUNT+H EAD("SIZE" ))_YOLD_" "_YNEW Q | |
138 | ||
139 | ||
140 | Modified L ogic (Chan ges are in bold) – R CDPESP6 | |
141 | RCDPESP6 ; AITC/CJE - ePayment Lockbox Si te Paramet ers - Noti fy Changes ; ;;4.5;Ac counts Rec eivable;** 326,XXX**; ;;Per VA Directive 6402, this routine s hould not be modifie d. ; Q | |
142 | . | |
143 | . | |
144 | . | |
145 | CHKCHNG(LI NE) ; Chec k for chan ges in EDI Lockbox s ite parame ters ; Inp ut: ^TMP(" RCDPESP6", $J) - Copy of file 3 44.6, 344. 61 and 344 .62 taken on entry ; Output: L INE - Chan ge lines t o add to t he mail me ssage. Pas sed by ref erence. ; Return: CO UNT of the number of changes. 0 if no ch anges were made. N C OUNT,DOTS, HEAD,IEN,J ,RCDET,REC 0,REC1,XNE W,XOLD ; S (COUNT,HE AD)=0,HEAD ("SIZE")=1 0 S HEAD(" TXT")="ALL PAYERS" S DOTS="" F J=1:1:40 S DOTS=DOT S_"." ; Ch eck parame ters in 34 4.61 that apply to a ll payers S REC0=$G( ^TMP("RCDP ESP6",$J,3 44.61,1,0) ) ; ; Auto -post med claims ena bled S XOL D=$P(REC0, "^",2) S X NEW=$$GET1 ^DIQ(344.6 1,"1,",.02 ,"I") I XN EW'=XOLD D ; . D LN OUT(.HEAD, .LINE,"AUT O-POST MED CLAIMS EN ABLED",XOL D,XNEW,"B" ,.COUNT) ; ; Auto-de crease med enabled S XOLD=$P(R EC0,"^",3) S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.03,"I") I XNEW'=XO LD D ; . D LNOUT(.H EAD,.LINE, "AUTO-DECR EASE MED E NABLED",XO LD,XNEW,"B ",.COUNT) ; ; Auto-d ecrease me d days S X OLD=$P(REC 0,"^",4) S XNEW=$$GE T1^DIQ(344 .61,"1,",. 04,"I") I XNEW'=XOLD D ; . D LNOUT(.HEA D,.LINE,"A UTO-DECREA SE DAYS DE FAULT",XOL D,XNEW,"D" ,.COUNT) ; ; Auto-de crease no- pay med en abled S XO LD=$P(REC0 ,"^",11) S XNEW=$$GE T1^DIQ(344 .61,"1,",. 11,"I") I XNEW'=XOLD D ; . D LNOUT(.HEA D,.LINE,"A UTO-DECREA SE NO-PAY MED ENABLE D",XOLD,XN EW,"B",.CO UNT) ; ; A uto-decrea se no-pay med days S XOLD=$P(R EC0,"^",12 ) S XNEW=$ $GET1^DIQ( 344.61,"1, ",.12,"I") I XNEW'=X OLD D ; . D LNOUT(. HEAD,.LINE ,"AUTO-DEC REASE NO-P AY DAYS DE FAULT",XOL D,XNEW,"D" ,.COUNT) ; ; Auto-de crease med amount S XOLD=$P(RE C0,"^",5) S XNEW=$$G ET1^DIQ(34 4.61,"1,", .05,"I") I XNEW'=XOL D D ; . D LNOUT(.HE AD,.LINE," AUTO-DECRE ASE AMT DE FAULT",XOL D,XNEW,"$" ,.COUNT) ; S REC1=$G (^TMP("RCD PESP6",$J, 344.61,1,1 )) ; Auto- post Rx S XOLD=$P(RE C1,"^",1) S XNEW=$$G ET1^DIQ(34 4.61,"1,", 1.01,"I") I XNEW'=XO LD D ; . D LNOUT(.H EAD,.LINE, "AUTO-POST RX CLAIMS ENABLED", XOLD,XNEW, "B",.COUNT ) ; ; Auto -decrease Rx S XOLD= $P(REC1,"^ ",2) S XNE W=$$GET1^D IQ(344.61, "1,",1.02, "I") I XNE W'=XOLD D ; . D LNO UT(.HEAD,. LINE,"AUTO -DECREASE RX ENABLED ",XOLD,XNE W,"B",.COU NT) ; ; Ch eck each p ayer in 34 4.6 for ch anges S IE N=0 F S I EN=$O(^RCY (344.6,IEN )) Q:'IEN D ; . S REC0=$G(^T MP("RCDPES P6",$J,344 .6,IEN,0)) . S HEAD= 0 | |
146 | . S HEAD( "DETAIL")= $$GET1^DIQ (344.6,IEN _",",.01," E") . S HE AD("TXT")= "PAYER: "_ HEAD("DETA IL") . ; E xclude med claims po sting . S XOLD=$P(RE C0,"^",6) . S XNEW=$ $GET1^DIQ( 344.6,IEN_ ",",.06,"I ") . I XOL D'=XNEW D ; . . D L NOUT(.HEAD ,.LINE,"EX CLUDE MED CLAIMS POS TING",XOLD ,XNEW,"B", .COUNT) . ; Exclude med claims decrease . S XOLD=$ P(REC0,"^" ,7) . S XN EW=$$GET1^ DIQ(344.6, IEN_",",.0 7,"I") . I XOLD'=XNE W D ; . . D LNOUT(. HEAD,.LINE ,"EXCLUDE MED CLAIMS DECREASE" ,XOLD,XNEW ,"B",.COUN T) . ; Exc lude Rx cl aim postin g . S XOLD =$P(REC0," ^",8) . S XNEW=$$GET 1^DIQ(344. 6,IEN_",", .08,"I") . I XOLD'=X NEW D ; . . D LNOUT (.HEAD,.LI NE,"EXCLUD E RX CLAIM POSTING", XOLD,XNEW, "B",.COUNT ) ; ; Chec k each CAR C-RARC in 344.62 for changes S IEN=0 F S IEN=$O(^ RCY(344.62 ,IEN)) Q:' IEN D ; . S REC0=$ G(^TMP("RC DPESP6",$J ,344.62,IE N,0)) . S REC1=$G(^T MP("RCDPES P6",$J,344 .62,IEN,1) ) . S HEAD =0 | |
147 | . S HEAD( "DETAIL")= $$GET1^DIQ (344.62,IE N_",",.01, "E") . S H EAD("TXT") ="CARC/RAR K CODE: "_ HEAD(DETAI L”) | |
148 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) . ; CARC auto decrease . S XOLD=$ P(REC0,"^" ,2) . S XN EW=$$GET1^ DIQ(344.62 ,IEN_",",. 02,"I") . I XOLD'=XN EW D ; . . D LNOUT( .HEAD,.LIN E,"CARC AU TO DECREAS E",XOLD,XN EW,"B",.CO UNT) . ; C ARC decrea se amount . S XOLD=$ P(REC0,"^" ,6) . S XN EW=$$GET1^ DIQ(344.62 ,IEN_",",. 06,"I") . I XOLD'=XN EW D ; . . D LNOUT( .HEAD,.LIN E,"CARC DE CREASE AMO UNT",XOLD, XNEW,"$",. COUNT) . ; . ; CARC auto decre ase no-pay . S XOLD= $P(REC1,"^ ",1) . S X NEW=$$GET1 ^DIQ(344.6 2,IEN_",", .08,"I") . I XOLD'=X NEW D ; . . D LNOUT (.HEAD,.LI NE,"CARC A UTO DECREA SE NO-PAY" ,XOLD,XNEW ,"B",.COUN T) . ; CAR C decrease amount no pay . S X OLD=$P(REC 1,"^",5) . S XNEW=$$ GET1^DIQ(3 44.62,IEN_ ",",.12,"I ") . I XOL D'=XNEW D ; . . D L NOUT(.HEAD ,.LINE,"CA RC DECREAS E AMOUNT N O-PAY",XOL D,XNEW,"$" ,.COUNT) ; Q COUNT ; | |
149 | ||
150 | LNOUT(HEAD ,LINE,TXT, XOLD,XNEW, TYPE,COUNT ) ; Format a line fo r the mess age ; Inpu t: TXT - D escription of the ch anged fiel d ; XOLD - Old Value (Internal format) ; XNEW - Ne w Value (I nternal Fo rmat) ; Ty pe - "B" - Boolean 1 -Yes, 0 - N ; "$" - Dollar amo unt ; "D" - Days ; " T" - Text ; Output: COUNT pass ed by refe rence ; HE AD passed by referen ce ; LINE passed by reference ; N RCFDA ,RETURN ; Output hea der for th is section if not al ready done I 'HEAD D ; . S C OUNT=COUNT +1 . S LIN E(COUNT+HE AD("SIZE") )=HEAD("TX T") . S HE AD=1 ; ; O utput: For matted lin e of text I TYPE="B" D ; . S YOLD=$S(XO LD:"YES",1 :"NO") . S YNEW=$S(X NEW:"YES", 1:"NO") I TYPE="$" D ; . S YO LD=$FN(XOL D,",",2) . S YNEW=$F N(XNEW,"," ,2) S COUN T=COUNT+1 S LINE(COU NT+HEAD("S IZE"))=$E( " "_TXT_DO TS,1,50) S YOLD=$J(Y OLD,10),YN EW=$J(YNEW ,10) S LIN E(COUNT+HE AD("SIZE") )=LINE(COU NT+HEAD("S IZE"))_$$F ORMAT(OLD, TYPE)_" "_ $$FORMAT(N EW,TYPE) | |
151 | ; | |
152 | ; US817 – Save chan ges into m ultiple 34 4.611 for history re port | |
153 | S IENS="+ 1,1," | |
154 | S RCFDA(3 44.611,IEN S,.01)=$$N OW^XLFDT() | |
155 | S RCFDA(3 44.611,IEN S,.02)=DUZ | |
156 | S RCFDA(3 44.611,IEN S,1)=TXT | |
157 | S RCFDA(3 44.611,IEN S,1)=HEAD( "DETAIL") | |
158 | S RCFDA(3 44.611,IEN S,3)=$$FOR MAT(OLD,TY PE) | |
159 | S RCFDA(3 44.611,IEN S,4)=$$FOR MAT(NEW,TY PE) | |
160 | D UPDATE^ DIE("RCFDA ","") Q | |
161 | ; | |
162 | FORMAT(VAL UE,TYPE) ; Format a value for output | |
163 | ; Input: VALUE – Va lue to be formated | |
164 | ; TYPE - "$" - Doll ar amount, B - Boole an ; Retur n: Formate d value | |
165 | ; | |
166 | S RETURN= VALUE | |
167 | I TYPE="B " D ; . S RETURN=$S (VALUE:"YE S",1:"NO") I TYPE="$ " D ; . S RETURN=$F N(VALUE,", ",2) | |
168 | Q RETURN | |
169 | ; | |
170 | PAYEN ; (E N) On entr y into ide ntify paye rs option, save a sn apshot of file 344.6 ; Input: None ; Out put: ^TMP( "RCDPESP6" ,$J) creat ed by merg ing in fil es 344.6, 344.61 and 344.62 K ^TMP("RCDP ESP6",$J) M ^TMP("RC DPESP6",$J ,344.6)=^R CY(344.6) ; Save pay er exclusi ons Q | |
171 | PAYEX ; (E N) On exit from iden tify payer s option, compare sn apshot wit h live fil es. ; Save changes t o the para meter audi t multiple 344.611 | |
172 | ; Input: ^TMP("RCDP ESP6",$J) created ab ove by mer ging in fi le 344.6 ; Output: E nties in m ultiple 34 4.611 to k eep histor y of payer flag chan ges ; N C OUNT,IEN,R EC0,HEAD,L INE,XOLD,X NEW ; | |
173 | S COUNT=0 ; Check ea ch payer i n 344.6 fo r changes S IEN=0 F S IEN=$O( ^RCY(344.6 ,IEN)) Q:' IEN D ; . S REC0=$ G(^TMP("RC DPESP6",$J ,344.6,IEN ,0)) . S H EAD=0 | |
174 | . S HEAD( "DETAIL")= $$GET1^DIQ (344.6,IEN _",",.01," E") . S HE AD("TXT")= "PAYER: "_ HEAD("DETA IL") . ; P harmacy Fl ag . S XOL D=$P(REC0, "^",9) . S XNEW=$$GE T1^DIQ(344 .6,IEN_"," ,.06,"I") . I (+XOLD )'=(+XNEW) D ; . . D LNOUT(.H EAD,.LINE, "PARMACY F LAG",XOLD, XNEW,"B",. COUNT) . ; Tricare f lag . S XO LD=$P(REC0 ,"^",7) . S XNEW=$$G ET1^DIQ(34 4.6,IEN_", ",.07,"I") . I (+XOL D)'=(+XNEW ) D ; . . D LNOUT(. HEAD,.LINE ,"TRICARE FLAG",XOLD ,XNEW,"B", .COUNT) Q ; | |
175 | ||
176 | ||
177 | Routines | |
178 | Activities | |
179 | Routine Na me | |
180 | RCDPESP8 | |
181 | Enhancemen t Category | |
182 | New | |
183 | Modify | |
184 | Delete | |
185 | No Change | |
186 | RTM | |
187 | ||
188 | Related Op tions | |
189 | RCDPE PARA METER HIST ORY REPORT | |
190 | ||
191 | ||
192 | Related Ro utines | |
193 | Routines “ Called By” | |
194 | Routines “ Called” | |
195 | ||
196 | ||
197 | ||
198 | ||
199 | Current Lo gic | |
200 | N/A | |
201 | ||
202 | ||
203 | Modified L ogic (Chan ges are in bold) | |
204 | RCDPESP8 ; AITC/CJE - ePayment Lockbox Si te Paramet ers Histor y ;;4.5;Ac counts Rec eivable;** XXX**;Mar 20, 1995;B uild 104 ; ;Per VA Di rective 64 02, this r outine sho uld not be modified. ;EN ; ent ry point f or EDI Loc kbox Param eters Hist ory Report [RCDPE PA RAMETER HI STORY REPO RT] N BDAT E,EDATE,RC HDR,IEN2,R CDATE,RCEN D,RCLN,RCP AGE,RCSTOP ,VALMHDR K ^TMP($J," RCDPESP8") Q:$$PROMP TS(.BDATE, .EDATE,.RC LM)=-1 ; P rompt for report par ameters ; S RCPAGE=0 ,RCSTOP=0 I RCLM D G EXIT . S RCTMPND=" RCDPESP8" K ^TMP($J ,RCTMPND) ; clean an y residue . D COMPIL E . D LMRP T^RCDPEARL (.VALMHDR, $NA(^TMP($ J,RCTMPND) )) ; gener ate ListMa n display . I $D(RCT MPND) K ^T MP($J,RCTM PND) ; W ! S %ZIS="Q M" D ^%ZIS Q:POP I $ D(IO("Q")) D Q .N Z TDESC,ZTRT N,ZTSAVE,Z TSK .S ZTR TN="COMPIL E^RCDPESP8 ",ZTDESC=" EDI LOCKBO X AUTO PAR AMETER HIS TORY REPOR T" .S ZTSA VE("*")="" .D ^%ZTLO AD .W !!,$ S($D(ZTSK) :"Your tas k number"_ ZTSK_" has been queu ed.",1:"Un able to qu eue this j ob.") .K I O("Q") D H OME^%ZIS ; U IO D CO MPILE I 'R CSTOP D AS K^RCDPEARL (.RCSTOP) ; QCOMPILE ; Get dat a for user selected date range N IEN2,IE N3,LINE,RC PARAM,RCSE Q S RCSEQ= 0 S RCDATE =BDATE,RCE ND=EDATE_" ."_24 F S RCDATE=$O (^RCY(344. 61,1,"HIST ORY","ADU" ,RCDATE)) Q:(RCDATE> EDATE) D ; . S IEN2 ="" . F S IEN2=$O(^ RCY(344.61 ,1,"HISTOR Y","ADU",R CDATE,IEN2 )) Q:IEN2= "" D ; . . S RCUSR ="" . . F S RCUSR=$ O(^RCY(344 .61,1,"HIS TORY","ADU ",RCDATE,I EN2,RCUSR) ) Q:RCUSR= "" D ; . . . S RCS EQ=RCSEQ+1 . . . S L INE=$$FMTE ^XLTDT(RCD ATE)_" "_$ $GET1^DIQ( 200,RCUSR_ ",",.01,"E ") . . . S ^TMP($J," RCDPESP8", RCSEQ)=LIN E . . . S INE3="" . . . F S I EN3=$O(^RC Y(344.61,1 ,"HISTORY" ,"ADU",RCD ATE,IEN2,R CUSR,IEN3) ) Q:IEN3=" " D ; . . . . S RC PARAM=$$GE T1^DIQ(344 .611,IEN3_ ",1,",1,"E ") . . . . S RCDET=$ $GET1^DIQ( 344.611,IE N3_",1,",2 ,"E") . . . . S RCOL D=$$GET1^D IQ(344.611 ,IEN3_",1, ",3,"E") . . . . S R COLD=$$GET 1^DIQ(344. 611,IEN3_" ,1,",4,"E" ) . . . . S SPLIT=0 . . . . I $L(RCPARAM _RCDET)>60 S SPLIT=1 . . . . S RCSEQ=RCS EQ+1 . . . . S LINE= " "_RCPARA M . . . . I 'SPLIT D . . . . . S LINE= LINE_" ("_ RCDET_")" . . . . . S LINE=LIN E_$J("",68 -$L(LINE)) _$J(OLD,8) _" "_$J(NE W,8) . . . . S ^TMP( $J,"RCDPES P8",RCSEQ) =LINE . . . . I SPLI T D ; . . . . . S R CSEQ=RCSEQ +1 . . . . . S LINE= " "_RCDET_ $J("",68-$ L(LINE))_$ J(OLD,8)_" "_$J(NEW, 8) . . . . . S ^TMP( $J,"RCDPES P8",RCSEQ) =LINE I 'R CLM D ; . D OUTPUT Q:RCSTOP ; ;EXIT ; Exit point to clean up ^TMP K ^TMP($J,"R CDPESP8") Q ;OUTPUT ; Ouptput printed re port to sc reen or pr inter S RC PAGE=1 D H DR S RCSEQ =0 F S RC SEQ=$O(^TM P($J,"RCDP ESP8",RCSE Q)) Q:'RCS EQ D I R CSTOP Q . D HDRLST^R CDPEARL(.R CSTOP,.RCH DR) I RCST OP Q . W ! ,^TMP($J," RCDPESP8", RCSEQ) QEX IT ; Clean up before quitting K ^TMP(^TM P($J,"RCDP ESP8")) QH EAD ; Prin t header N LINE,PG S LINE="Aut o Paramete r History Report" S PG="Page: "_RCPAGE S LINE=$J(" ",(80-$L(L INE)\2))_L INE S RCHD R(1)=LINE_ $J("",71-$ L(LINE))_P G S LINE=" RUN DATE: "_$$FMTE^X LFDT($$NOW ^XLFDT) S RCHDR(2)=$ J("",(80-$ L(LINE)\2) )_LINE S L INE="DATE RANGE: "_$ $FMTE^XLFD T(BDATE,"2 DZ")_" - " _$$FMTE^XL FDT(EDATE, "2DZ") S R CHDR(3)=$J ("",(80-$L (LINE)\2)) _LINE S RC HDR(4)="" S LINE="Da te/Time Ed ited User" _$J("",48) _"Values" S RCHDR(5) =LINE S LI NE=" Param eter"_$J(" ",58)_"Old New" S RC HDR(6)=LIN E S RCHDR( 7)=$TR($J( "",80)," " ,"=") S RC HDR("XECUT E")="S RCP AGE=RCPAGE +1" ; S VA LMHDR(1)=R CHDR(1) S VALMHDR(2) =RCHDR(3) S VALMHDR( 3)="" S VA LMHDR(4)=R CHDR(5) S VALMHDR(5) =RCHDR(6) Q ;PROMPTS (BDATE,EDA TE,RCLM,RC XL) ; Prop mt for rep ort Parame ters ; Inp ut: None ; Output: B DATE - Sta rt date fo r report i n FileMan internal f ormat ; ED ATE - End date for r eport in F ileman int ernal form at ; RCLM - Boolean flag - dis play in Li stMan ; Re turns: -1 Quit witho ut running report ; 1 Continue ; N DIR S RETURN=1 S DIR("?") ="ENTER TH E DATE OF THE EARIES T PARAMETE R CHANGE T O INCLUDE" S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art date: ",DIR("B") ="T" D ^DI R K DIR I $D(DTOUT)! $D(DUOUT)! (Y="") S R ETURN=-1 G PQ S BDAT E=Y ; K DI R S DIR("? ")="ENTER THE DATE O F THE LATE ST PARAMET ER CHANGE TO INCLUDE " S DIR("B ")="T" S D IR(0)="DAO ^"_START_" :"_DT_":AP E",DIR("A" )="END DAT E (RECEIVE D): " D ^D IR K DIR I $D(DTOUT) !$D(DUOUT) !(Y="") S RETURN=-1 G PQ S EDA TE=Y ; S R CLM=$$ASKL M^RCDPEARL () I RCLM= -1 S RETUR N=-1 Q RE TURN | |
205 | ||
206 | ||
207 | Routines | |
208 | Activities | |
209 | Routine Na me | |
210 | RCDPEP | |
211 | Enhancemen t Category | |
212 | New | |
213 | Modify | |
214 | Delete | |
215 | No Change | |
216 | RTM | |
217 | ||
218 | Related Op tions | |
219 | ||
220 | ||
221 | ||
222 | Related Ro utines | |
223 | Routines “ Called By” | |
224 | Routines “ Called” | |
225 | ||
226 | ||
227 | ||
228 | ||
229 | Current Lo gic - RCDP EP | |
230 | RCDPEP ;AI TC/CJE - F LAG PAYERS AS PHARMA CY/TRICARE ; 19-APR- 2017 ;;4.5 ;Accounts Receivable ;**321,326 **;; ;Per VA Directi ve 6402, t his routin e should n ot be modi fied. ;EN( FILTER,DAT EFILT) ; - - main ent ry point f or RCDPE P AYER FLAGS template ; Input: F ILTER - A= All payers , P=Pharma cy payers, T=Tricare payers, ; M=Medical (Neither Pharmacy n or Tricare ) ; DATEFI LT - Addit ional Filt er by Date . Has 3 pi eces by '^ ' ; Piece 1 - 1=Filt er by date , 0=Don't ; Piece 2 - START - First DATE ADDED to include(FM format) ; Piece 3 - END - Las t DATE ADD ED to incl ude (FM fo rmat) ; I '$D(DATEF ILT) S DAT EFILT=$$GE TDATE() I DATEFILT=- 1 Q ; I ' $D(FILTER) S FILTER= $$GETFILT( ) I FILTER =-1 Q ; ; D EN^VALM ("RCDPE PA YER FLAGS" ) Q ; | |
231 | . | |
232 | . | |
233 | . | |
234 | ||
235 | ||
236 | Modified L ogic (Chan ges are in bold) - R CDPEP | |
237 | RCDPEP ;AI TC/CJE - F LAG PAYERS AS PHARMA CY/TRICARE ; 19-APR- 2017 ;;4.5 ;Accounts Receivable ;**321,326 **;; ;Per VA Directi ve 6402, t his routin e should n ot be modi fied. ;EN( FILTER,DAT EFILT) ; - - main ent ry point f or RCDPE P AYER FLAGS template ; Input: F ILTER - A= All payers , P=Pharma cy payers, T=Tricare payers, ; M=Medical (Neither Pharmacy n or Tricare ) ; DATEFI LT - Addit ional Filt er by Date . Has 3 pi eces by '^ ' ; Piece 1 - 1=Filt er by date , 0=Don't ; Piece 2 - START - First DATE ADDED to include(FM format) ; Piece 3 - END - Las t DATE ADD ED to incl ude (FM fo rmat) ; I '$D(DATEF ILT) S DAT EFILT=$$GE TDATE() I DATEFILT=- 1 Q ; I ' $D(FILTER) S FILTER= $$GETFILT( ) I FILTER =-1 Q ; ; | |
238 | D PAYEN^R CDPESP6 D EN^VALM("R CDPE PAYER FLAGS") | |
239 | D PAYEX^R CDPESP6 Q ; | |
240 | . | |
241 | . | |
242 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.