Produced by Araxis Merge on 3/20/2019 1:04:56 PM Eastern 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 | eInsurance_IB_2.0_602.zip | TAS eIns US3754 SDD v1.1.docx | Wed Feb 27 18:49:32 2019 UTC |
2 | eInsurance_IB_2.0_602.zip | TAS eIns US3754 SDD v1.1.docx | Wed Mar 20 16:48:59 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 198 |
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 EINSURA NCE US3754 | |
2 | System Des ign Docume nt | |
3 | IB*2.0*602 | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | August 201 8 | |
10 | Version 1. 1 | |
11 | User Story ID:US3754 | |
12 | User Story Name:Modi fy Purge t o Honor Do Not Purge Field in Response F ile | |
13 | ||
14 | Epic Taxon omy | |
15 | eBiz Com pliance Port Upd ate Increase No Touch TAS Apps | |
16 | Story: | |
17 | As the... | |
18 | I need... | |
19 | So that... | |
20 | eInsurance Team memb er | |
21 | The Vista logic that purges II V Response File (#36 5) records older tha n six mont hs to accu rately eva luate the “Do Not Pu rge field in every c andidate R esponse fi le record and—if tha t field is set to “1 ” (Yes)—to not purge that Resp onse file record. | |
22 | Only those Response file recor ds that me et the cri teria for purge and have “Do N ot Purge” field set to “0” (No ) will be removed. | |
23 | Design: | |
24 | Note: Both US3691 an d US3754 m odify the IBCNEKIT r outines fo r IB*2.0*6 02 | |
25 | Routines | |
26 | Activities | |
27 | Routine Na me | |
28 | IBCNEKIT | |
29 | Enhancemen t Category | |
30 | New | |
31 | Modify | |
32 | Delete | |
33 | No Change | |
34 | RTM | |
35 | ||
36 | Related Op tions | |
37 | “Purge eIV Transacti ons” [IBCN E PURGE II V DATA] | |
38 | Related Ro utines | |
39 | Routines “ Called By” | |
40 | Routines “ Called” | |
41 | ||
42 | IBCNEKI2 | |
43 | ^DIR | |
44 | ^DIK | |
45 | ^%ZTLOAD | |
46 | $$GET1^DIQ | |
47 | $$MGRP^IBC NEUT5 | |
48 | MSG^IBCNEU T5 | |
49 | $$SITE^VAS ITE | |
50 | $$FMADD^XL FDT | |
51 | $$FMTE^XLF DT | |
52 | Routines | |
53 | Activities | |
54 | Data Dicti onary (DD) Reference s | |
55 | ^IBCN(365 | |
56 | ^IBCN(365. 1 | |
57 | Related Pr otocols | |
58 | ||
59 | Related In tegration Control Re gistration s (ICRs) | |
60 | ||
61 | Data Passi ng | |
62 | Input | |
63 | Output Re ference | |
64 | Both | |
65 | Global Re ference | |
66 | Local | |
67 | Input Attr ibute Name and Defin ition | |
68 | Name: | |
69 | Definition : | |
70 | Output Att ribute Nam e and Defi nition | |
71 | Name: | |
72 | Definition : | |
73 | Current Lo gic | |
74 | IBCNEKIT ; DAOU/ESG - PURGE eIV DATA FILE S ;11-JUL- 2002 ;;2.0 ;INTEGRATE D BILLING; **184,271, 316,416,54 9,595**;21 -MAR-94;Bu ild 22 ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified. ; | |
75 | Modified L ogic (Chan ges are in bold) | |
76 | IBCNEKIT ; DAOU/ESG - PURGE eIV DATA FILE S ;11-JUL- 2002 ;;2.0 ;INTEGRATE D BILLING; **184,271, 316,416,54 9,595,602* *;21-MAR-9 4;Build 22 ;;Per VA Directive 6402, this routine s hould not be modifie d. ; | |
77 | Current Lo gic | |
78 | PURGE ; Th is procedu re is queu ed to run in the bac kground an d does the ; actual purging. V ariables a vailable f rom the Ta skMan call are: ; ; STATLIST = list of s tatuses th at are OK to purge ; BEGDT = b eginning d ate for pu rging ; EN DDT = endi ng date fo r purging ; ; First loop throu gh the eIV Transmiss ion Queue file and d elete all ; records in the dat e range wh ose status is in the list ; N CNT,DA,DAT E,DIK,HLIE N,PFLAG,TQ IEN,TQS ;IB*2.0*5 49 added P FLAG S DAT E=$O(^IBCN (365.1,"AE ",BEGDT),- 1),CNT=0 F S DATE=$ O(^IBCN(36 5.1,"AE",D ATE)) Q:'D ATE!($P(DA TE,".",1)> ENDDT)!$G( ZTSTOP) S TQIEN=0 F S TQIEN=$ O(^IBCN(36 5.1,"AE",D ATE,TQIEN) ) Q:'TQIEN D Q:$G( ZTSTOP) . S CNT=CNT+ 1 . I $D(Z TQUEUED),C NT#100=0,$ $S^%ZTLOAD () S ZTSTO P=1 Q . S TQS=$P($G( ^IBCN(365. 1,TQIEN,0) ),U,4) ; t rans queue status . I '$F(STAT LIST,","_T QS_",") Q ; must b e in the l ist . S PF LAG=$$GET1 ^DIQ(365,T QIEN_",",. 11,"I") ; Do Not Pur ge Flag IB *2.0*549 a dded line . Q:+PFLAG ; IB*2 .0*549 add ed line . ; . ; loop through t he HL7 mes sages mult iple and k ill any re sponse . ; records t hat are fo und for th is transmi ssion queu e entry . S HLIEN=0, DIK="^IBCN (365," . F S HLIEN= $O(^IBCN(3 65.1,TQIEN ,2,HLIEN)) Q:'HLIEN D .. S DA =$P($G(^IB CN(365.1,T QIEN,2,HLI EN,0)),U,3 ) I DA D ^ DIK .. Q . ; . ; now we can ki ll the tra nsmission queue entr y itself . S DA=TQIE N,DIK="^IB CN(365.1," D ^DIK . Q ; | |
79 | … | |
80 | Modified L ogic (Chan ges are in bold) | |
81 | PURGE ; Th is procedu re is queu ed to run in the bac kground an d does the ; actual purging. V ariables a vailable f rom the Ta skMan call are: ; ; STATLIST = list of s tatuses th at are OK to purge ; BEGDT = b eginning d ate for pu rging ; EN DDT = endi ng date fo r purging ; ; First loop throu gh the eIV Transmiss ion Queue file and d elete all ; records in the dat e range wh ose status is in the list ; N CNT,DA,DAT E,DIK,HLIE N,PFLAG,TQ IEN,TQS S DATE=$O(^I BCN(365.1, "AE",BEGDT ),-1),CNT= 0 F S DAT E=$O(^IBCN (365.1,"AE ",DATE)) Q :'DATE!($P (DATE,".", 1)>ENDDT)! $G(ZTSTOP) S TQIEN=0 F S TQIE N=$O(^IBCN (365.1,"AE ",DATE,TQI EN)) Q:'TQ IEN D Q: $G(ZTSTOP) . S CNT=C NT+1 . I $ D(ZTQUEUED ),CNT#100= 0,$$S^%ZTL OAD() S ZT STOP=1 Q . S TQS=$P( $G(^IBCN(3 65.1,TQIEN ,0)),U,4) ; trans qu eue status . I '$F(S TATLIST,", "_TQS_",") Q ; mus t be in th e list | |
82 | . S PFLAG =$$GET1^DI Q(365,TQIE N_",",.11, "I") ; Do Not Purge Flag IB*2. 0*549 adde d line . Q :+PFLAG ; IB*2.0* 549 added line . ; . ; loop th rough the HL7 messag es multipl e and kill any respo nse . ; re cords that are found for this transmissi on queue e ntry . ; I B*2.0*602/ DM Preserv e any TQ a nd respons e that has DO NOT PU RGE set to 1 (YES) . S PFLAG=0 ,HLIEN=0,D IK="^IBCN( 365," . F S HLIEN=$ O(^IBCN(36 5.1,TQIEN, 2,HLIEN)) Q:'HLIEN D .. S DA= $P($G(^IBC N(365.1,TQ IEN,2,HLIE N,0)),U,3) Q:'DA .. I +$$GET1^ DIQ(365,DA _",","DO N OT PURGE", "I") S PFL AG=1 Q .. D ^DIK .. Q . ; . ; now we can kill the transmissi on queue e ntry itsel f . ; IB*2 .0*602/DM as long as there was no DO NOT PURGE res ponses . I 'PFLAG S DA=TQIEN,D IK="^IBCN( 365.1," D ^DIK . Q ; | |
83 | … | |
84 | ||
85 | ||
86 | Revision H istory | |
87 | Date | |
88 | Version | |
89 | Descriptio n | |
90 | Author | |
91 | 03/23/2018 | |
92 | 1.1 | |
93 | Formal SDD , pre-IOC | |
94 | Daniel Mor an | |
95 | 02/14/2018 | |
96 | 1.0 | |
97 | Initial dr aft | |
98 | Daniel Mor an | |
99 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.