Produced by Araxis Merge on 2/27/2019 2:32:53 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 US5159 SDD.docx | Fri Jan 25 13:57:18 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 US5159 SDD.docx | Tue Feb 26 14:44:59 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 392 |
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 US5159 | |
2 | System Des ign Docume nt | |
3 | PRCA*4.5*x xx | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | October 20 18 | |
10 | Version 1 | |
11 | User Story Number: U S5159 | |
12 | User Story Name: Add Refresh A ction Back to APAR W L | |
13 | Sizing: 8 | |
14 | Story | |
15 | As a... | |
16 | I need... | |
17 | So that... | |
18 | ePay User | |
19 | The refres h action a dded back to the APA R Worklist | |
20 | I can refr esh an ERA line befo re it is a uto-posted if I inco rrectly sp lit/edit i t. | |
21 | ||
22 | Conversati on (if des ired by de velopers) | |
23 | Old APAR R efresh had security key RCDPEP P. Keep s ecurity ke y | |
24 | Refresh wi ll delete any Split/ Edits, Rev iews or Di stributed adjustment s on the l ine | |
25 | Where shou ld the Ref resh actio n appear o n the acti on list – Replace th e ‘Review Line’ acti on in the first row of the 3rd column of actions | |
26 | Should we change ‘Re fresh Scra tch Pad’ t o ‘Refresh Scratch P ad Line’ – Action na me will be ‘Refresh Line’ | |
27 | Warning me ssage shou ld read: | |
28 | This actio n will del ete and re build this EEOB Work list Scrat ch Pad for Line 1. A ll Splits/ Edits/Revi ews/Distri bute Adjus tments ent ered for t his line w ill be era sed and al l entries marked as manually v erified wi ll be unma rked. | |
29 | ||
30 | Summary | |
31 | The abilit y to refre sh from th e apar wor klist will be added back in as a protoco l action t hat can be performed after the user sele cts a line from the APAR workl ist. Howe ver, it wi ll be rest ricted to only refre shing the line and n ot refresh ing the en tire scrat ch pad of the ERA. The new ‘R efresh Lin e’ action will repla cr the ‘re view line’ action in protocol menu ‘RCDP E APAR SEL ECTED EEOB MENU’. T he ‘Review Line’ act ion will s till be av ailable fr om the ‘Re search’ me nu of acti ons. | |
32 | ||
33 | Routines t o Modify | |
34 | ||
35 | RCDPEAA3 - Modified | |
36 | Modified R EFRESH met hod to onl y refresh the line a nd not the entire sc ratch pad. Also modi fied the w arning mes sage descr ibed above in the co nversation . See rout ine RCDPEA A3us5159. | |
37 | ||
38 | ||
39 | Protocols to Modify | |
40 | ||
41 | RCDPE APAR SELECTED EEOB MENU - Modified | |
42 | Removed th e ‘Review Line’ acti on and rep laced it w ith the ‘R efresh Lin e’ action (RCDPE APA R EEOB REF RESH) in t he same or der. | |
43 | ||
44 | Resolution – Added C hanged Obj ects | |
45 | ||
46 | Current Pr otocol Def inition | |
47 | ||
48 | Protocols | |
49 | Activities | |
50 | Protocol N ame | |
51 | RCDPE APAR SELECTED EEOB MENU | |
52 | Enhancemen t Category | |
53 | New | |
54 | Modify | |
55 | Delete | |
56 | No Change | |
57 | Associated Protocols | |
58 | VALM QUIT SEQUENC E 999 RCDP E MARK FOR AUTOPOST S EQUENCE 10 0 RCDPE A PAR VIEW/P RINT ERA SEQU ENCE 220 RCDPE APA R SPLIT LI NE SEQUEN CE 50 RC DPE APAR R ESEARCH SEQUENCE 240 RCDPE APAR EEOB REVIEW SE QUENCE 310 RCDPE AP AR VIEW/PR INT EOB SEQUE NCE 210 R CDPE APAR VERIFY SEQUENCE 320 VALM BLANK 1 S EQUENCE 25 0 RCDPE APAR CLAI M COMMENT SE QUENCE 170 | |
59 | ||
60 | Data Passi ng | |
61 | Input | |
62 | Output | |
63 | Both | |
64 | Global Re ference | |
65 | Local Ref erence | |
66 | ||
67 | ||
68 | ||
69 | ||
70 | ||
71 | ||
72 | Item Text Descriptio n | |
73 | N/A | |
74 | Protocol T ype | |
75 | Action | |
76 | Menu | |
77 | Protocol | |
78 | Protocol Menu | |
79 | ||
80 | Limited P rotocol | |
81 | Extended Action | |
82 | Dialog | |
83 | ||
84 | Other | |
85 | Associated Routine | |
86 | ||
87 | Current En try Action Logic | |
88 | N/A | |
89 | Modified E ntry Actio n Logic (C hanges are in bold) | |
90 | ||
91 | Current Ex it Action Logic | |
92 | I $G(RCFAS TXT) S VAL MBCK="Q" | |
93 | Modified E xit Action Logic (Ch anges are in bold) | |
94 | N/A | |
95 | ||
96 | ||
97 | Modified P rotocol De finition | |
98 | ||
99 | Protocols | |
100 | Activities | |
101 | Protocol N ame | |
102 | RCDPE APAR SELECTED EEOB MENU | |
103 | Enhancemen t Category | |
104 | New | |
105 | Modify | |
106 | Delete | |
107 | No Change | |
108 | Associated Protocols | |
109 | VALM QUIT SEQUENC E 999 RCDP E MARK FOR AUTOPOST S EQUENCE 10 0 RCDPE A PAR VIEW/P RINT ERA SEQU ENCE 220 RCDPE APA R SPLIT LI NE SEQUEN CE 50 RC DPE APAR R ESEARCH SEQUENCE 240 RCDPE APAR EEOB REFRESH SE QUENCE 310 RCDPE AP AR VIEW/PR INT EOB SEQUE NCE 210 R CDPE APAR VERIFY SEQUENCE 320 VALM BLANK 1 S EQUENCE 25 0 RCDPE APAR CLAI M COMMENT SE QUENCE 170 | |
110 | ||
111 | Data Passi ng | |
112 | Input | |
113 | Output | |
114 | Both | |
115 | Global Re ference | |
116 | Local Ref erence | |
117 | Item Text Descriptio n | |
118 | N/A | |
119 | Protocol T ype | |
120 | Action | |
121 | Menu | |
122 | Protocol | |
123 | Protocol Menu | |
124 | ||
125 | Limited P rotocol | |
126 | Extended Action | |
127 | Dialog | |
128 | ||
129 | Other | |
130 | Associated Routine | |
131 | ||
132 | Current En try Action Logic | |
133 | N/A | |
134 | Modified E ntry Actio n Logic (C hanges are in bold) | |
135 | ||
136 | Current Ex it Action Logic | |
137 | I $G(RCFAS TXT) S VAL MBCK="Q" | |
138 | Modified E xit Action Logic (Ch anges are in bold) | |
139 | N/A | |
140 | ||
141 | ||
142 | Routines | |
143 | Activities | |
144 | Routine Na me | |
145 | RCDPEAA3 | |
146 | Enhancemen t Category | |
147 | New | |
148 | Modify | |
149 | Delete | |
150 | No Change | |
151 | RTM | |
152 | ||
153 | Related Op tions | |
154 | Auto-Post Awaiting Resolution (APAR) [RCDPE APA R] | |
155 | ||
156 | Related Ro utines | |
157 | Routines “ Called By” | |
158 | Routines “ Called” | |
159 | ||
160 | N/A | |
161 | INIT^RCDPE AA2 | |
162 | $$GETBILL^ RCDPESR0 | |
163 | $$VER^RCDP EV | |
164 | RPT^RCDPEV 0 | |
165 | SEL^RCDPEW L | |
166 | $$STOPLINE ^RCDPEWL1 | |
167 | VP^RCDPEWL 2 | |
168 | SPLIT^RCDP EWL3 | |
169 | VR^RCDPEWL P | |
170 | ||
171 | Current Lo gic – RCDP EAA3 | |
172 | . | |
173 | . | |
174 | . | |
175 | REFRESH(RC IENS) ;EP - Protocol action - RCDPE APAR EEOB REFR ESH ; Refr esh the en try in fil e 344.49 t o remove a ll user ad justments ; Input: R CIENS - In ternal IEN of entry in file 34 4.49^ien o f ; 344.4 91^selecta ble line i tem from l istman scr een N DA,D IK,DIR,X,Y ,Z,Z0 D FU LL^VALM1 I '$D(^XUSE C("RCDPEPP ",DUZ)) D Q ; PRCA *4.5*318 A dded secur ity key ch eck . S VA LMBCK="R" . W !!,"Th is action can only b e taken by users tha t have the RCDPEPP s ecurity ke y.",! . D PAUSE^VALM 1 ; S DIR( 0)="YA" S DIR("A",1) ="THIS ACT ION WILL D ELETE AND REBUILD TH IS EEOB WO RKLIST SCR ATCH PAD E NTRY",DIR( "A",2)="AL L EDITS/SP LITS/DISTR IBUTE ADJU STMENTS EN TERED FOR THIS ERA W ILL BE ERA SED" S DIR ("A",3)="A ND ALL ENT RIES MARKE D AS MANUA LLY VERIFI ED WILL BE UNMARKED" ,DIR("A",4 )=" " S DI R("A")="AR E YOU SURE YOU WANT TO DO THIS ?: " W ! D ^DIR K DI R I Y'=1 G REFQ D AD DLINES^RCD PEWLA($P(R CIENS,U)) D INIT^RCD PEAA2(RCIE NS)REFQ S VALMBG=1,V ALMBCK="R" Q ; | |
176 | . | |
177 | . | |
178 | . | |
179 | ||
180 | Modified L ogic – RCD PEAA3 | |
181 | . | |
182 | . | |
183 | . | |
184 | REFRESH(RC IENS) ;EP - Protocol action - RCDPE APAR EEOB REFR ESH ; Refr esh the en try in fil e 344.49 t o remove a ll user ad justments ; Input: R CIENS - In ternal IEN of entry in file 34 4.49^ien o f ; 344.4 91^selecta ble line i tem from l istman scr een N DA,D IK,DIR,IEN S,OSEQ,SEQ ,X,XX,Y,Z, ZZ,Z0 D FU LL^VALM1 | |
185 | S XX=$P(R CIENS,"^", 2)_","_$P( RCIENS,"^" ,1)_"," S SEQ=$$GET1 ^DIQ(344.4 91,XX,.01, "I") ; Lin e Sequence # I '$D(^ XUSEC("RCD PEPP",DUZ) ) D Q ; PRCA*4.5*3 18 Added s ecurity ke y check . S VALMBCK= "R" . W !! ,"This act ion can on ly be take n by users that have the RCDPE PP securit y key.",! . D PAUSE^ VALM1 ; S DIR(0)="YA " S DIR("A ",1)="THIS ACTION WI LL DELETE AND REBUIL D THIS EEO B WORKLIST SCRATCH P AD ENTRY", DIR("A",2) ="ALL EDIT S/SPLITS/D ISTRIBUTE ADJUSTMENT S ENTERED FOR THIS E RA WILL BE ERASED" S DIR("A",3 )="AND ALL ENTRIES M ARKED AS M ANUALLY VE RIFIED WIL L BE UNMAR KED",DIR(" A",4)=" " S DIR("A", 1)="This a ction will delete an d rebuild this EEOB Worklist S cratch Pad for Line "_SEQ_"." S DIR("A", 2)="All Sp lits/Edits /Reviews/D istribute Adjustment s entered for this l ine will b e" S DIR(" A",3)="era sed and al l entries marked as manually v erified wi ll be unma rked.",DIR ("A",4)=" " | |
186 | S DIR("A" )="ARE YOU SURE YOU WANT TO DO THIS?: " W ! D ^DIR K DIR I Y '=1 G REFQ D ADDLINE S^RCDPEWLA ($P(RCIENS ,U)) D INI T^RCDPEAA2 (RCIENS)RE FQ S VALMB G=1,VALMBC K="R" W ! D ^DIR K D IR I Y'=1 D REFQ Q ; ; First r emove Revi ew and Ver ify inform ation S DA =$P(RCIENS ,"^",2),DA (1)=$P(RCI ENS,"^",1) S DIE="^R CY(344.49, "_DA(1)_", 1,",DA=$P( RCIENS,"^" ,2),DA(1)= $P(RCIENS, "^",1) S D R=".1///@; .11///@;.1 2///W@;.14 ///@" D ^D IE S XX=0, DA(2)=DA(1 ),DA(1)=DA F D Q:' XX . S XX= $O(^RCY(34 4.49,DA(2) ,1,DA(1),4 ,XX)) . Q: 'XX . S DA =XX . S DI K="^RCY(34 4.49,"_DA( 2)_",1,"_D A(1)_",4," . D ^DIK ; ; Next r emove and distribute d adjustme nts S XX=0 F D Q:' XX . S XX= $O(^RCY(34 4.49,DA(2) ,1,DA(1),1 ,XX)) . Q: 'XX . S DA =XX,DIK="^ RCY(344.49 ,"_DA(2)_" 1,"_DA(1)_ ",1," . D ^DIK ; ; F inally rem ove Split/ Edited lin es K DA S IENS=$P(RC IENS,"^",2 )_","_$P(R CIENS,"^", 1)_"," D G ETS^DIQ(34 4.491,IENS ,"**","I", "OSEQ") ; Get Origin al line va lues S DA= $P(RCIENS, "^",2)+1,D A(1)=$P(RC IENS,"^",1 ) K DR S D IE="^RCY(3 44.49,"_DA (1)_",1," S DR=".02/ //"_OSEQ(3 44.491,IEN S,.02,"I") _";" ; Ori ginal Clai m # S DR=D R_".03///" _OSEQ(344. 491,IENS,. 03,"I")_"; " ; Amount to Post on R eceipt S D R=DR_".04/ //"_OSEQ(3 44.491,IEN S,.04,"I") _";" ; Includ e on Recei pt S DR=DR _".05///"_ OSEQ(344.4 91,IENS,.0 5,"I")_";" ; Amount of Payment S DR=DR_".06 ///"_OSEQ( 344.491,IE NS,.06,"I" )_";" ; Net A mount of P ayment S D R=DR_".08/ //@;.09/// @;.10///@; 2.03///@;2 .04///@" ; Null o ut the oth er fields D ^DIE S X X=DA,DONE= 0 F D Q: DONE . S X X=$O(^RCY( 344.49,DA( 1),1,XX)) . I 'XX S DONE=1 Q . Q:$P($P(^ RCY(344.49 ,DA(1),1,X X,0),"^",1 ),".",1)'= SEQ ; Not line b eing refre shed . S D A=XX,DIK=" ^RCY(344.4 9,"_DA(1)_ ",1," . D ^DIK ; D I NIT^RCDPEA A2(RCIENS) REFQ ; S V ALMBG=1,VA LMBCK="R" | |
187 | Q ; | |
188 | . | |
189 | . | |
190 | . | |
191 | ||
192 | ||
193 | ||
194 | ||
195 | ||
196 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.