Produced by Araxis Merge on 2/27/2019 2:32:52 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 US4968 SDD.docx | Fri Jan 25 14:01:04 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 US4968 SDD.docx | Tue Feb 26 14:38:08 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 256 |
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 US4968 | |
2 | System Des ign Docume nt | |
3 | PRCA*4.5*x xx | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | August 201 8 | |
10 | Version 1 | |
11 | User Story Number: U 4968 | |
12 | User Story Name: Re move Key f rom AR Sup Menu Opti on | |
13 | Sizing: 1 | |
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 | AR Supervi sor | |
26 | Access to the Admini strative C ost Adjust ment optio n [PRCAF A DJ ADMIN], located o n the AR S upervisor Menu, with out a key | |
27 | I can add interest/a dmin to 3r d party cl aims, when applicabl e | |
28 | ||
29 | Conversati on (if des ired by de velopers) | |
30 | ePay added the RCDPE AR key to the AR fun ctions in worklist, scratchpad and APAR, including the Admin istrative Cost Adjus tment. Th e key shou ld ONLY lo ck the opt ions while utilizing the ePay options. Any option s accessed outside t he ePay op tions, sho uldn’t be locked wit h the RCDP EAR key. It appears the Admin istrative Cost Adjus tment opti on, found on the AR Supervisor Menu – ou tside the ePay menu( s), has be en locked with the R CDPEAR key . We need the key r emoved. | |
31 | ||
32 | Summary | |
33 | Currently, the user needs the RCDPEAR se curity key to run th e Administ ration Cos t Adjustme nt [PRCAF SUPERVISOR MENU] opt ion is run from the Supervisor ’s AR Menu . This sa me code is also call ed from th e ERA Work list (WL) [RCDPE EDI LOCKBOX W ORKLIST] w hen the us er runs th e Admin Co st Adj [RC DPE EOB WO RKLIST ADM IN COST AD J] protoco l action t hat also r equires th e RCDPEAR security k ey. This user story will chan ge to code to pass a n optional parameter to make t he securit y key requ ired when called fro m the prot ocol but n ot require d when cal led from t he menu op tion | |
34 | ||
35 | ||
36 | Protocols to Modify | |
37 | ||
38 | RCDPE EOB WORKLIST A DMIN COST ADJ – Mod ified | |
39 | Added new parameter to check f or the RCD PEAR secur ity key | |
40 | ||
41 | ||
42 | Routines t o Modify | |
43 | ||
44 | PRCAEXM - Modified | |
45 | Added a pa rameter to the EN me thod to op tionally m ake the RC DPEAR secu rity key r equired | |
46 | ||
47 | ||
48 | ||
49 | Resolution – Added C hanged Obj ects | |
50 | ||
51 | ||
52 | Routines | |
53 | Activities | |
54 | Routine Na me | |
55 | PRCAEXM | |
56 | Enhancemen t Category | |
57 | New | |
58 | Modify | |
59 | Delete | |
60 | No Change | |
61 | RTM | |
62 | ||
63 | Related Op tions | |
64 | Administra tive Cost Adjustment | |
65 | ||
66 | Related Ro utines | |
67 | Routines “ Called By” | |
68 | Routines “ Called” | |
69 | ||
70 | PRCAT03 | |
71 | BEGIN^PRCA WO | |
72 | DELETE^PRC AWO1 | |
73 | DIEEN^PRCA WO1 | |
74 | LOCKF^PRCA WO1 | |
75 | TRANST^PRC AWO1 | |
76 | DECADJ^RCT SPU | |
77 | ||
78 | Current Lo gic – PRCA EXM | |
79 | PRCAEXM ;S F-ISC/YJK- ADMIN.COST CHARGE TR ANSACTION ;3/30/94 1 1:19 AM ;; 4.5;Accoun ts Receiva ble;**67,1 03,196,301 ,318,315** ;Mar 20, 1 995;Build 67 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. ;Upda te Int/adm .balance a nd Adminis trative co st charge transactio n, is call ed by ^PRC AWO. ;EN1 ;Adjustmen t Interest /admin.cos t from an AR - this makes the int/adm.ba lance ; ,m arshal fee and court cost zero ,0. N PRCA IND,ADMINT OT,PRCAERR ,PRCABN0 I $G(KEYCHK )=1,'$D(^X USEC("RCDP EAR",DUZ)) D Q ; P RCA*4.5*31 8 Added se curity key check . W !!,"This action can only be t aken by us ers that h ave the RC DPEAR secu rity key." ,! . S VAL MBCK="R" . D PAUSE^V ALM1 D BEG IN^PRCAWO G:('$D(PRC ABN))!('$D (PRCAEN)) END G:'$D( ^PRCA(430, PRCABN,7)) END L +^P RCA(430,PR CABN):1 I '$T W !!,* 7,"ANOTHER USER IS E DITING THI S BILL" G EN1 S PRCA BN0=PRCABN S PRCAIND =$G(^PRCA( 430,PRCABN ,7)) S PRC AMT=$P(PRC AIND,U,2)+ $P(PRCAIND ,U,3)+$P(P RCAIND,U,4 )+$P(PRCAI ND,U,5) S %=$P(^PRCA (430,PRCAB N,0),U,2) I "PC"'[$P (^PRCA(430 .2,%,0),U, 6) W *7,!, "This AR m ay not be appropriat e to charg e Interest /Administr ative cost .",!,"Plea se check t he categor y of this AR.",! H 3 K % W !!, "You may e xempt the account fr om all the interest and admini strative c ost balanc es - makin g those ba lances zer o (0),",!, "or adjust them."EN0 11 S %=2 W !!,"Do yo u want to exempt the account f rom all th e Int/Adm. costs" D YN^DICN I %<0 S PRCA COMM="User Canceled" D DELETE^ PRCAWO1 K PRCACOMM G EN1 I %=1 D EN11,EN D G EN1 I %=0 W !,"A NSWER 'YES ' OR 'NO' " G EN011 W !,"Adjus ting the a dministrat ive/Intere st charge ...",! D D IEEN^PRCAW O1,END G E N1 ; ; exe mpt intere st and adm in charges EN11 S PRC ATYPE=14,D IE="^PRCA( 433,",DA=P RCAEN S DR =".03////^ S X="_PRCA BN_";11/// /^S X="_DT _";12////^ S X="_PRCA TYPE_";15/ ///^S X="_ PRCAMT_";" S DR=DR_" 27////^S X ="_+$P(PRC AIND,U,2)_ ";" ;inte rest S DR= DR_"28//// ^S X="_+$P (PRCAIND,U ,3)_";" ; admin char ge S DR=DR _"25////^S X="_+$P(P RCAIND,U,4 )_";" ;ma rshal fee S DR=DR_"2 6////^S X= "_+$P(PRCA IND,U,5)_" ;" ;court cost S DI C=DIE,PRCA ("LOCK")=0 D LOCKF^P RCAWO1 Q:P RCA("LOCK" )=1 D ^DIE I PRCAEN, $D(^PRCA(4 30,"TCSP", PRCABN)) D DECADJ^RC TCSPU(PRCA BN,PRCAEN) ;prca*4.5 *301 add c s 5B flag S $P(^PRCA (430,PRCAB N,7),U,2,5 )="0^0^0^0 " D TRANST ^PRCAWO1 Q ; ;EN2 Q: '$D(PRCAEN ) Q:($P(^P RCA(433,PR CAEN,2),U, 8)="")&($P (^PRCA(433 ,PRCAEN,2) ,U,7)="") W !,"MONTH LY ADMIN. CHARGE: ", ?25,+$P(^P RCA(433,PR CAEN,2),U, 8),?40,"IN TEREST CHA RGE: ",+$P (^PRCA(433 ,PRCAEN,2) ,U,7) Q ;E ND L -^PRC A(433,+$G( PRCAEN)),- ^PRCA(430, +$G(PRCABN )) S X(1)= 0,X=$G(^PR CA(430,+$G (PRCABN0), 7)),X(1)=+ X,X(1)=$P( X,"^",2)+X (1),X(1)=$ P(X,"^",3) +X(1),X(1) =$P(X,"^", 4)+X(1),X( 1)=$P(X,"^ ",5)+X(1) K PRCA("ST ATUS") I X (1)=0,$G(P RCABN0) D .;Check fo r payment transactio ns .F X=0: 0 S X=$O(^ PRCA(433," C",PRCABN0 ,X)) Q:'X I ",2,7,2 0,"[(","_$ P($G(^PRCA (430.3,+$P ($G(^PRCA( 433,X,1)), "^",2),0)) ,"^",3)_", ") S PRCA( "STATUS")= $O(^PRCA(4 30.3,"AC", 108,0)) .S :'$D(PRCA( "STATUS")) PRCA("STA TUS")=$O(^ PRCA(430.3 ,"AC",111, 0)) .S DA= PRCABN0,DI E="^PRCA(4 30,",DR="8 ////"_PRCA ("STATUS") D ^DIE K PRCATY,PRC A,PRCA2,PR CAD,PRCABN ,PRCAEN,PR CATYPE,DA, DIE,DIC,PR CAMT,DR,X, % Q | |
80 | ||
81 | Modified L ogic (Chan ges are in bold) - P RCAEXM | |
82 | PRCAEXM ;S F-ISC/YJK- ADMIN.COST CHARGE TR ANSACTION ;3/30/94 1 1:19 AM ;; 4.5;Accoun ts Receiva ble;**67,1 03,196,301 ,318,315** ;Mar 20, 1 995;Build 67 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. ;Upda te Int/adm .balance a nd Adminis trative co st charge transactio n, is call ed by ^PRC AWO. ; D E N1(0) Q ;E N1(KEYCHK) ;Adjustme nt Interes t/admin.co st from an AR - this makes the int/adm.b alance ; , marshal fe e and cour t cost zer o,0. | |
83 | ; Input: KEYCHK – 1 to check for RCDPEA R security key, 0 ot herwise | |
84 | ; o ptional, d efaults to 0 N PRCAI ND,ADMINTO T,PRCAERR, PRCABN0 | |
85 | S:’$D(KEY CHK) KEYCH K=0 I KEYC HK=1,'$D(^ XUSEC("RCD PEAR",DUZ) ) D Q ; PRCA*4.5*3 18 Added s ecurity ke y check . W !!,"This action ca n only be taken by u sers that have the R CDPEAR sec urity key. ",! . S VA LMBCK="R" . D PAUSE^ VALM1 D BE GIN^PRCAWO G:('$D(PR CABN))!('$ D(PRCAEN)) END G:'$D (^PRCA(430 ,PRCABN,7) ) END L +^ PRCA(430,P RCABN):1 I '$T W !!, *7,"ANOTHE R USER IS EDITING TH IS BILL" G EN1 S PRC ABN0=PRCAB N S PRCAIN D=$G(^PRCA (430,PRCAB N,7)) S PR CAMT=$P(PR CAIND,U,2) +$P(PRCAIN D,U,3)+$P( PRCAIND,U, 4)+$P(PRCA IND,U,5) S %=$P(^PRC A(430,PRCA BN,0),U,2) I "PC"'[$ P(^PRCA(43 0.2,%,0),U ,6) W *7,! ,"This AR may not be appropria te to char ge Interes t/Administ rative cos t.",!,"Ple ase check the catego ry of this AR.",! H 3 K % W !! ,"You may exempt the account f rom all th e interest and admin istrative cost balan ces - maki ng those b alances ze ro (0),",! ,"or adjus t them."EN 011 S %=2 W !!,"Do y ou want to exempt th e account from all t he Int/Adm . costs" D YN^DICN I %<0 S PRC ACOMM="Use r Canceled " D DELETE ^PRCAWO1 K PRCACOMM G EN1 I %= 1 D EN11,E ND G EN1 I %=0 W !," ANSWER 'YE S' OR 'NO' " G EN011 W !,"Adju sting the administra tive/Inter est charge ...",! D DIEEN^PRCA WO1,END G EN1 ; ; ex empt inter est and ad min charge sEN11 S PR CATYPE=14, DIE="^PRCA (433,",DA= PRCAEN S D R=".03//// ^S X="_PRC ABN_";11// //^S X="_D T_";12//// ^S X="_PRC ATYPE_";15 ////^S X=" _PRCAMT_"; " S DR=DR_ "27////^S X="_+$P(PR CAIND,U,2) _";" ;int erest S DR =DR_"28/// /^S X="_+$ P(PRCAIND, U,3)_";" ;admin cha rge S DR=D R_"25////^ S X="_+$P( PRCAIND,U, 4)_";" ;m arshal fee S DR=DR_" 26////^S X ="_+$P(PRC AIND,U,5)_ ";" ;cour t cost S D IC=DIE,PRC A("LOCK")= 0 D LOCKF^ PRCAWO1 Q: PRCA("LOCK ")=1 D ^DI E I PRCAEN ,$D(^PRCA( 430,"TCSP" ,PRCABN)) D DECADJ^R CTCSPU(PRC ABN,PRCAEN ) ;prca*4. 5*301 add cs 5B flag S $P(^PRC A(430,PRCA BN,7),U,2, 5)="0^0^0^ 0" D TRANS T^PRCAWO1 Q ; ;EN2 Q :'$D(PRCAE N) Q:($P(^ PRCA(433,P RCAEN,2),U ,8)="")&($ P(^PRCA(43 3,PRCAEN,2 ),U,7)="") W !,"MONT HLY ADMIN. CHARGE: " ,?25,+$P(^ PRCA(433,P RCAEN,2),U ,8),?40,"I NTEREST CH ARGE: ",+$ P(^PRCA(43 3,PRCAEN,2 ),U,7) Q ; END L -^PR CA(433,+$G (PRCAEN)), -^PRCA(430 ,+$G(PRCAB N)) S X(1) =0,X=$G(^P RCA(430,+$ G(PRCABN0) ,7)),X(1)= +X,X(1)=$P (X,"^",2)+ X(1),X(1)= $P(X,"^",3 )+X(1),X(1 )=$P(X,"^" ,4)+X(1),X (1)=$P(X," ^",5)+X(1) K PRCA("S TATUS") I X(1)=0,$G( PRCABN0) D .;Check f or payment transacti ons .F X=0 :0 S X=$O( ^PRCA(433, "C",PRCABN 0,X)) Q:'X I ",2,7, 20,"[(","_ $P($G(^PRC A(430.3,+$ P($G(^PRCA (433,X,1)) ,"^",2),0) ),"^",3)_" ,") S PRCA ("STATUS") =$O(^PRCA( 430.3,"AC" ,108,0)) . S:'$D(PRCA ("STATUS") ) PRCA("ST ATUS")=$O( ^PRCA(430. 3,"AC",111 ,0)) .S DA =PRCABN0,D IE="^PRCA( 430,",DR=" 8////"_PRC A("STATUS" ) D ^DIE K PRCATY,PR CA,PRCA2,P RCAD,PRCAB N,PRCAEN,P RCATYPE,DA ,DIE,DIC,P RCAMT,DR,X ,% Q | |
86 | ||
87 | ||
88 | ||
89 | Protocols | |
90 | Activities | |
91 | Protocol N ame | |
92 | RCDPE EOB WORKLIST A DMIN COST ADJ] | |
93 | Enhancemen t Category | |
94 | New | |
95 | Modify | |
96 | Delete | |
97 | No Change | |
98 | Associated Protocols | |
99 | ||
100 | Data Passi ng | |
101 | Input | |
102 | Output | |
103 | Both | |
104 | Global Re ference | |
105 | Local Ref erence | |
106 | Item Text Descriptio n | |
107 | N/A | |
108 | Protocol T ype | |
109 | Action | |
110 | Menu | |
111 | Protocol | |
112 | Protocol Menu | |
113 | ||
114 | Limited P rotocol | |
115 | Extended Action | |
116 | Dialog | |
117 | ||
118 | Other | |
119 | Associated Routine | |
120 | ||
121 | Current En try Action Logic | |
122 | S PRCASUP= 1 D FULL^V ALM1 D ^PR CAEXM K DT OUT | |
123 | Modified E ntry Actio n Logic (C hanges are in bold) | |
124 | S PRCASUP= 1 D FULL^V ALM1 D EN1 ^PRCAEXM(1 ) K DTOUT | |
125 | Current Ex it Action Logic | |
126 | S VALMBCK= "R" K PRCA SUP | |
127 | Modified E xit Action Logic (Ch anges are in bold) | |
128 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.