Produced by Araxis Merge on 10/23/2018 6:40:21 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 US336 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US336 SDD - Copy.doc | Mon Oct 22 16:31:51 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 644 |
| 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 US336 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | May 2017 | |
| 7 | Version 1 | |
| 8 | User Story Number: U S336 | |
| 9 | Story | |
| 10 | As a clerk , I get a notificati on when Au to-Post an d Auto-Dec rease are first turn ed on, but I haven’t received subsequent messages. I need t o see mess ages when the option is turned on/off an d also whe n individu al payers are turned on/off. | |
| 11 | Conversati on | |
| 12 | Detailed L isting of Acceptance Criteria (key to un derstandin g the even ts that wi ll generat e a messag e). | |
| 13 | Requiremen t IDDescri ptionExter nal Depend ency | |
| 14 | (Y/N) | |
| 15 | If Y, prov ide organi zation and descripti onUS336.1T he system must send a notifica tion when auto-post is turned on in site parameter sNUS336.2T he system must send a notifica tion when auto-post is turned off in sit e paramete rsNUS336.3 The system must send a notific ation when auto-decr ease is tu rned on in site para metersNUS3 36.4The sy stem must send a not ification when auto- decrease i s turned o ff in site parameter sNUS336.5T he system must send a notifica tion when a payer is excluded from auto- post in si te paramet ersNUS336. 6The syste m must sen d a notifi cation whe n a payer is un-excl uded from auto-post in site pa rametersNU S336.7The system mus t send a n otificatio n when a p ayer is ex cluded fro m auto-dec rease in s ite parame tersNUS336 .8The syst em must se nd a notif ication wh en a payer is un-exc luded from auto-decr ease in si te paramet ersNUS336. 9The syste m must sen d a notifi cation whe n an auto- decrease C ARC is add ed or dele ted for in dividual p ayers NUS3 36.10The s ystem must send a no tification when auto -decrease dollar amo unts are e dited for individual payersNUS 336.11The system mus t send a n otificatio n when aut o-decrease CARCs are added or deleted fr om all pay ersNUS336. 12The syst em must se nd a notif ication wh en auto-de crease dol lar amount s are edit ed on all payersNUS3 36.13The s ystem must send a no tification when the auto decre ase days f or individ ual payers are edite dNUS336.14 The system must send a notific ation when the auto decrease d ays for al l payers a re editedN US336.15No tification s must onl y be sent to the RCD PE Audit M ailgroupNS ummary | |
| 16 | Rather tha n send a s ingle mess age for ea ch paramet er that is changed, a single m essage for all chang es that oc cured in a visit to the EDI Lo ckbox para meters opt ion seems sensible. A snapsho t of the c urrent par ameter val ues will b e taken on entry int o the proc ess. On e xit the cu rrent valu es will be compared to the sna pshot. An y changes will caus e a mail m essage to be generat ed and sen t to the d esignated group. | |
| 17 | Changed Ro utines | |
| 18 | RCDPESP | |
| 19 | Modify to take a sna pshot of t he current parameter values on entry. O n exit com pare curre nt values to the sna pshot and send a mai l message if they di ffer. | |
| 20 | RCDPESP6 | |
| 21 | New routin e to compa re the sna pshot with the curre nt values and genera te a mail message fo r the diff erences. | |
| 22 | Sample Mai l Message Format | |
| 23 | Si te: CHEYEN NE VAMC | |
| 24 | Statio n # 442 | |
| 25 | Doma in: TAS-EP AY-DEV.AAC .VA.GOV | |
| 26 | Date/Ti me: May 23 , 2017 9:5 8 am | |
| 27 | Us er: EDKINS ,CHRIS | |
| 28 | The follo wing EDI L ockbox Sit e Paramete rs were ch anged: | |
| 29 | OLD VALUE NEW VAL UE | |
| 30 | ALL PAYERS | |
| 31 | AUTO-PO ST MED CLA IMS ENABLE D......... .......... NO Y ES | |
| 32 | AUTO-DE CREASE MED ENABLED.. .......... .......... NO Y ES | |
| 33 | AUTO-DE CREASE DAY S DEFAULT. .......... .......... 0 3 | |
| 34 | AUTO-PO ST RX CLAI MS ENABLED .......... .......... NO Y ES | |
| 35 | AUTO-DE CREASE RX ENABLED... .......... .......... NO NO | |
| 36 | PAYER: AET NA | |
| 37 | EXCLUDE MED CLAIM S POSTING. .......... .......... NO Y ES | |
| 38 | EXCLUDE MED CLAIM S DECREASE .......... .......... NO Y ES | |
| 39 | PAYER: GRE ATWESTHEAL THCARE-CIG NA | |
| 40 | EXCLUDE MED CLAIM S POSTING. .......... .......... YE S NO | |
| 41 | CARC/RARK CODE: 2 | |
| 42 | CARC AU TO DECREAS E......... .......... .......... NO Y ES | |
| 43 | CARC DE CREASE AMO UNT....... .......... .......... 0.00 65. 00 | |
| 44 | CARC/RARK CODE: 3 | |
| 45 | CARC AU TO DECREAS E......... .......... .......... NO Y ES | |
| 46 | CARC DE CREASE AMO UNT....... .......... .......... 0.00 100. 00 | |
| 47 | CARC/RARK CODE: 77 | |
| 48 | CARC AU TO DECREAS E......... .......... .......... NO Y ES | |
| 49 | CARC DE CREASE AMO UNT....... .......... .......... 0.00 100. 00 | |
| 50 | CARC/RARK CODE: 45 | |
| 51 | CARC AU TO DECREAS E......... .......... .......... NO Y ES | |
| 52 | CARC DE CREASE AMO UNT....... .......... .......... 0.00 150. 00 | |
| 53 | Resolution – Added C hanged Obj ects | |
| 54 | RoutinesAc tivitiesRo utine Name RCDPESPEnh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsRCDPE E DI LOCKBOX PARAMETER SRelated R outinesRou tines “Cal led By”Rou tines “Cal led” RCD PEAA1 | |
| 55 | RCDPEAPP | |
| 56 | RCDPEM | |
| 57 | RCDPESP1 | |
| 58 | RCDPESP5$$ AUDIT^RCDP ESP5 | |
| 59 | CARC^RCDPE SP5 | |
| 60 | $$EDILOCK^ RCDPESP5 | |
| 61 | $$SITE^VAS ITE | |
| 62 | Current Lo gicRCDPESP ;BIRM/EWL - ePaymen t Lockbox Site Param eters Defi nition - F iles 344.6 1 & 344.6 ;Nov 19, 2 014@15:26: 16 | |
| 63 | ;;4.5;Acc ounts Rece ivable;**2 98,304,318 **;Mar 20, 1995;Buil d 104 | |
| 64 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 65 | ; | |
| 66 | EN ; entry point for EDI Lockb ox Paramet ers [RCDPE EDI LOCKB OX PARAMET ERS] | |
| 67 | N DA,DIC, DIE,DIR,DI RUT,DLAYGO ,DR,DTOUT, DUOUT,X,Y ; FileMan variables | |
| 68 | ; | |
| 69 | W !," Upd ate AR Sit e Paramete rs",! | |
| 70 | ; | |
| 71 | S X="RCDP E AUTO DEC " I '$D(^X USEC(X,DUZ )) W !!,"Y ou do not hold the " _X_" secur ity key." Q | |
| 72 | ; Lock th e paramete r file | |
| 73 | L +^RCY(3 44.61,1):D ILOCKTM E D Q | |
| 74 | .W !!," A nother use r is curre ntly using the AR Si te Paramet ers option ." | |
| 75 | .W !," Pl ease try a gain later ." | |
| 76 | ; | |
| 77 | ; Check p arameter f ile | |
| 78 | . | |
| 79 | . | |
| 80 | S RCQUIT= $$AUDIT^RC DPESP5 | |
| 81 | Q:RCQUIT | |
| 82 | . | |
| 83 | . | |
| 84 | . W !,"** * System h as DISABLE D Medical Auto-decre ase, there are NO ac tive CARCs .",! | |
| 85 | . D PAUSE | |
| 86 | Q:RCQUIT | |
| 87 | . | |
| 88 | . | |
| 89 | ABORT ; Ca lled when user enter s a '^' or times out | |
| 90 | ; fall th rough to E XIT | |
| 91 | ; | |
| 92 | EXIT ; unL OCK, ask u ser to pre ss return, exit | |
| 93 | L -^RCY(3 44.61,1) | |
| 94 | D PAUSE | |
| 95 | QModified Logic (Ch anges are in bold)RC DPESP ;BIR M/EWL - eP ayment Loc kbox Site Parameters Definitio n - Files 344.61 & 3 44.6 ;Nov 19, 2014@1 5:26:16 | |
| 96 | ;;4.5;Acc ounts Rece ivable;**2 98,304,318 **;Mar 20, 1995;Buil d 104 | |
| 97 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 98 | ; | |
| 99 | EN ; entry point for EDI Lockb ox Paramet ers [RCDPE EDI LOCKB OX PARAMET ERS] | |
| 100 | N DA,DIC, DIE,DIR,DI RUT,DLAYGO ,DR,DTOUT, DUOUT,X,Y ; FileMan variables | |
| 101 | ; | |
| 102 | W !," Upd ate AR Sit e Paramete rs",! | |
| 103 | ; | |
| 104 | S X="RCDP E AUTO DEC " I '$D(^X USEC(X,DUZ )) W !!,"Y ou do not hold the " _X_" secur ity key." Q | |
| 105 | ; Lock th e paramete r file | |
| 106 | L +^RCY(3 44.61,1):D ILOCKTM E D Q | |
| 107 | .W !!," A nother use r is curre ntly using the AR Si te Paramet ers option ." | |
| 108 | .W !," Pl ease try a gain later ." | |
| 109 | ; | |
| 110 | ; US 336 - Once loc k is succe ssful, tak e a snapsh ot of the parameters for monit oring | |
| 111 | D EN^RCDP ESP6 | |
| 112 | ; | |
| 113 | ; Check p arameter f ile | |
| 114 | . | |
| 115 | . | |
| 116 | S RCQUIT= $$AUDIT^RC DPESP5 | |
| 117 | Q:RCQUIT | |
| 118 | I RCQUIT D ABORT Q ; US 336 m ust have s ingle exit point | |
| 119 | . | |
| 120 | . | |
| 121 | . W !,"** * System h as DISABLE D Medical Auto-decre ase, there are NO ac tive CARCs .",! | |
| 122 | . D PAUSE | |
| 123 | Q:RCQUIT | |
| 124 | I RCQUIT D ABORT Q ; US 336 m ust have s ingle exit point | |
| 125 | ; | |
| 126 | . | |
| 127 | . | |
| 128 | ABORT ; Ca lled when user enter s a '^' or times out | |
| 129 | ; fall th rough to E XIT | |
| 130 | ; | |
| 131 | EXIT ; unL OCK, ask u ser to pre ss return, exit | |
| 132 | D EXIT^RC DPESP6 ; U S336 Send mail messa ge if para meters hav e been edi ted. | |
| 133 | L -^RCY(3 44.61,1) | |
| 134 | D PAUSE | |
| 135 | QRoutines Activities Routine Na meRCDPESP6 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” RCDPESPCur rent Logic N/AModifie d Logic (C hanges are in bold)R CDPESP6 ;E DE/CJE - e Payment Lo ckbox Site Parameter s - Notify Changes; | |
| 136 | ;;4.5;Acc ounts Rece ivable;*** *; | |
| 137 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 138 | ; | |
| 139 | Q | |
| 140 | EN ; On en try into p arameter e dit, save a snapshot of the fi les | |
| 141 | ; Input: None | |
| 142 | ; Output: ^TMP("RCD PESP6",$J) created b y merging in files 3 44.6, 344. 61 and 344 .62 | |
| 143 | K ^TMP("R CDPESP6",$ J) | |
| 144 | MERGE ^TM P("RCDPESP 6",$J,344. 6)=^RCY(34 4.6) ; Sav e payer ex clusions | |
| 145 | MERGE ^TM P("RCDPESP 6",$J,344. 61)=^RCY(3 44.61) ; S ave parame ters | |
| 146 | MERGE ^TM P("RCDPESP 6",$J,344. 62)=^RCY(3 44.62) ; S ave CARC/R ARC auto d ec | |
| 147 | Q | |
| 148 | ; | |
| 149 | EXIT ; On exit from parameter edit, comp are snapsh ot with li ve files. | |
| 150 | ; Send a mail messa ge if any designated items hav e changed. | |
| 151 | ; Input: ^TMP("RCDP ESP6",$J) created ab ove by mer ging in fi les 344.6, 344.61 an d 344.62 | |
| 152 | ; Output: Mail mess age (if an y paramete rs have ch anged) | |
| 153 | ; | |
| 154 | N CHANGES ,CHGCNT,LI NES,MSGTXT ,RCSITE,RC SUBJ,XMINS TR,XMTO | |
| 155 | ; | |
| 156 | S CHGCNT= 0 | |
| 157 | S CHGCNT= $$CHKCHNG( .MSGTXT) ; Check for any chang es in para meters | |
| 158 | ; | |
| 159 | I 'CHGCNT Q ; No c hanges mad e so don't send mess age | |
| 160 | ; | |
| 161 | S RCSITE= $$SITE^VAS ITE() | |
| 162 | S RCSUBJ= $E("ePayme nts EDI Lo ckbox Para meters cha nged "_$P( RCSITE,U,2 ),1,65) | |
| 163 | D HEADER( .MSGTXT,RC SITE) | |
| 164 | ; | |
| 165 | S XMINSTR ("FROM")=" POSTMASTER " | |
| 166 | ; | |
| 167 | S XMTO(DU Z)="",XMTO ("G.RCDPE AUDIT")="" | |
| 168 | ; | |
| 169 | K ^TMP("X MERR",$J) | |
| 170 | D SENDMSG ^XMXAPI(DU Z,RCSUBJ," RCMSGTXT", .XMTO,.XMI NSTR) | |
| 171 | ; | |
| 172 | I $D(^TMP ("XMERR",$ J)) D | |
| 173 | .D MES^XP DUTL("Mail Man return ed an erro r.") | |
| 174 | .D MES^XP DUTL("The error text is:") | |
| 175 | .N G S G= $NA(^TMP(" XMERR",$J) ) | |
| 176 | .F S G=$ Q(@G) Q:G= "" Q:$QS( G,2)'=$J D MES^XPDU TL(" "_$C( 34)_@G_$C( 34)) | |
| 177 | .D MES^XP DUTL(" * E nd of Erro r Text *") | |
| 178 | .K ^TMP(" XMERR",$J) | |
| 179 | ; | |
| 180 | K ^TMP("R CDPESP6",$ J) ; Clean up saved files | |
| 181 | Q | |
| 182 | ; | |
| 183 | HEADER(MSG TXT,RCSITE ) ; Add He ader Lines to the ma il message text | |
| 184 | ; Input: None | |
| 185 | ; Output: Array MSG TXT passed by refere nce | |
| 186 | ; | |
| 187 | ; limit s ubject to 65 chars. | |
| 188 | S MSGTXT( 1)=" " | |
| 189 | S MSGTXT( 2)=" Site: "_$P(RCSI TE,U,2) | |
| 190 | S MSGTXT( 3)=" Stati on # "_$P( RCSITE,U,3 ) | |
| 191 | S MSGTXT( 4)=" Domai n: "_$G(^X MB("NETNAM E")) | |
| 192 | S MSGTXT( 5)=" Date/ Time: "_$$ FMTE^XLFDT ($$NOW^XLF DT,"1ZPM") | |
| 193 | S MSGTXT( 6)=" User: "_$P($G(^ VA(200,DUZ ,0)),U) | |
| 194 | S MSGTXT( 7)=" " | |
| 195 | S MSGTXT( 8)=" The f ollowing E DI Lockbox Site Para meters wer e changed: " | |
| 196 | S MSGTXT( 9)=" " | |
| 197 | S MSGTXT( 10)=$J("", 50)_$J("OL D VALUE",1 0)_" "_$J( "NEW VALUE ",10) | |
| 198 | Q | |
| 199 | ; | |
| 200 | CHKCHNG(LI NE) ; Chec k for chan ges in EDI Lockbox s ite parame ters | |
| 201 | ; Input: ^TMP("RCDP ESP6",$J) - Copy of file 344.6 , 344.61 a nd 344.62 taken on e ntry | |
| 202 | ; Output: LINE - Ch ange lines to add to the mail message. P assed by r eference. | |
| 203 | ; Return: COUNT of the number of change s. 0 if no changes w ere made. | |
| 204 | N COUNT,H EAD,IEN,RE C0,REC1,XN EW,XOLD | |
| 205 | ; | |
| 206 | S COUNT=1 0,HEAD=0 | |
| 207 | S HEAD("T XT")="ALL PAYERS" | |
| 208 | S DOTS="" F J=1:1:4 0 S DOTS=D OTS_"." | |
| 209 | ; Check p arameters in 344.61 that apply to all pa yers | |
| 210 | S REC0=$G (^TMP("RCD PESP6",$J, 344.61,1,0 )) | |
| 211 | ; | |
| 212 | ; Auto-po st med cla ims enable d | |
| 213 | S XOLD=$P (REC0,"^", 2) | |
| 214 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.02,"I") | |
| 215 | I XNEW'=X OLD D ; | |
| 216 | . D LNOUT (.HEAD,.LI NE,"AUTO-P OST MED CL AIMS ENABL ED",XOLD,X NEW,"B",.C OUNT) | |
| 217 | ; | |
| 218 | ; Auto-de crease med enabled | |
| 219 | S XOLD=$P (REC0,"^", 3) | |
| 220 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.03,"I") | |
| 221 | I XNEW'=X OLD D ; | |
| 222 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE ME D ENABLED" ,XOLD,XNEW ,"B",.COUN T) | |
| 223 | ; | |
| 224 | ; Auto-de crease med days | |
| 225 | S XOLD=$P (REC0,"^", 4) | |
| 226 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.04,"I") | |
| 227 | I XNEW'=X OLD D ; | |
| 228 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE DA YS DEFAULT ",XOLD,XNE W,"D",.COU NT) | |
| 229 | ; | |
| 230 | ; Auto-d ecrease me d amount | |
| 231 | S XOLD=$P (REC0,"^", 5) | |
| 232 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.05,"I") | |
| 233 | I XNEW'=X OLD D ; | |
| 234 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE AM T DEFAULT" ,XOLD,XNEW ,"$",.COUN T) | |
| 235 | ; | |
| 236 | S REC1=$G (^TMP("RCD PESP6",$J, 344.61,1,1 )) | |
| 237 | ; Auto-po st Rx | |
| 238 | S XOLD=$P (REC1,"^", 1) | |
| 239 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,1.01,"I") | |
| 240 | I XNEW'=X OLD D ; | |
| 241 | . D LNOUT (.HEAD,.LI NE,"AUTO-P OST RX CLA IMS ENABLE D",XOLD,XN EW,"B",.CO UNT) | |
| 242 | ; | |
| 243 | ; Auto-de crease Rx | |
| 244 | S XOLD=$P (REC1,"^", 2) | |
| 245 | S XNEW=$$ GET1^DIQ(3 44.61,"1," ,1.02,"I") | |
| 246 | I XNEW'=X OLD D ; | |
| 247 | . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE RX ENABLED", XOLD,XNEW, "B",.COUNT ) | |
| 248 | ; | |
| 249 | ; Check e ach payer in 344.6 f or changes | |
| 250 | S IEN=0 | |
| 251 | F S IEN= $O(^RCY(34 4.6,IEN)) Q:'IEN D ; | |
| 252 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.6,IE N,0)) | |
| 253 | . S HEAD= 0 | |
| 254 | . S HEAD( "TXT")="PA YER: "_$$G ET1^DIQ(34 4.6,IEN_", ",.01,"E") | |
| 255 | . ; Exclu de med cla ims postin g | |
| 256 | . S XOLD= $P(REC0,"^ ",6) | |
| 257 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.06," I") | |
| 258 | . I XOLD' =XNEW D ; | |
| 259 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE MED CL AIMS POSTI NG",XOLD,X NEW,"B",.C OUNT) | |
| 260 | . ; Exclu de med cla ims decrea se | |
| 261 | . S XOLD= $P(REC0,"^ ",7) | |
| 262 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.07," I") | |
| 263 | . I XOLD' =XNEW D ; | |
| 264 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE MED CL AIMS DECRE ASE",XOLD, XNEW,"B",. COUNT) | |
| 265 | . ; Exclu de Rx clai m posting | |
| 266 | . S XOLD= $P(REC0,"^ ",8) | |
| 267 | . S XNEW= $$GET1^DIQ (344.6,IEN _",",.08," I") | |
| 268 | . I XOLD' =XNEW D ; | |
| 269 | . . D LNO UT(.HEAD,. LINE,"EXCL UDE RX CLA IM POSTING ",XOLD,XNE W,"B",.COU NT) | |
| 270 | ; | |
| 271 | ; Check e ach CARC-R ARC in 344 .62 for ch anges | |
| 272 | S IEN=0 | |
| 273 | F S IEN= $O(^RCY(34 4.62,IEN)) Q:'IEN D ; | |
| 274 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) | |
| 275 | . S HEAD= 0 | |
| 276 | . S HEAD( "TXT")="CA RC/RARK CO DE: "_$$GE T1^DIQ(344 .62,IEN_", ",.01,"E") | |
| 277 | . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) | |
| 278 | . ; CARC auto decre ase | |
| 279 | . S XOLD= $P(REC0,"^ ",2) | |
| 280 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.02, "I") | |
| 281 | . I XOLD' =XNEW D ; | |
| 282 | . . D LNO UT(.HEAD,. LINE,"CARC AUTO DECR EASE",XOLD ,XNEW,"B", .COUNT) | |
| 283 | . ; CARC decrease a mount | |
| 284 | . S XOLD= $P(REC0,"^ ",6) | |
| 285 | . S XNEW= $$GET1^DIQ (344.62,IE N_",",.06, "I") | |
| 286 | . I XOLD' =XNEW D ; | |
| 287 | . . D LNO UT(.HEAD,. LINE,"CARC DECREASE AMOUNT",XO LD,XNEW,"$ ",.COUNT) | |
| 288 | ; | |
| 289 | Q COUNT | |
| 290 | ; | |
| 291 | LNOUT(HEAD ,LINE,TXT, XOLD,XNEW, TYPE,COUNT ) ; Format a line fo r the mess age | |
| 292 | ; Input: TXT - Desc ription of the chang ed field | |
| 293 | ; XOLD - Old Value (Internal format) | |
| 294 | ; XNEW - New Value (Internal Format) | |
| 295 | ; Type - "B" - Bool ean 1-Yes, 0 - N | |
| 296 | ; "$" - D ollar amou nt | |
| 297 | ; "D" - D ays | |
| 298 | ; "T" - T ext | |
| 299 | ; Output: COUNT pas sed by ref erence | |
| 300 | ; HEAD pa ssed by re ference | |
| 301 | ; LINE pa ssed by re ference | |
| 302 | ; | |
| 303 | N RETURN, YNEW,YOLD | |
| 304 | ; Output header for this sect ionif not already do ne | |
| 305 | I 'HEAD D ; | |
| 306 | . S COUNT =COUNT+1 | |
| 307 | . S LINE( COUNT)=HEA D("TXT") | |
| 308 | . S HEAD= 1 | |
| 309 | ; | |
| 310 | ; Output: Formated line of te xt | |
| 311 | S YOLD=XO LD,YNEW=XN EW | |
| 312 | S COUNT=C OUNT+1 | |
| 313 | S LINE(CO UNT)=$E(" "_TXT_DOTS ,1,50) | |
| 314 | I TYPE="B " D ; | |
| 315 | . S YOLD= $S(XOLD:"Y ES",1:"NO" ) | |
| 316 | . S YNEW= $S(XNEW:"Y ES",1:"NO" ) | |
| 317 | I TYPE="$ " D ; | |
| 318 | . S YOLD= $FN(XOLD," ,",2) | |
| 319 | . S YNEW= $FN(XNEW," ,",2) | |
| 320 | S YOLD=$J (YOLD,10), YNEW=$J(YN EW,10) | |
| 321 | S LINE(CO UNT)=LINE( COUNT)_YOL D_" "_YNEW | |
| 322 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.