11. EPMO Open Source Coordination Office Redaction File Detail Report

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.

11.1 Files compared

# 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

11.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 198
Changed 0 0
Inserted 0 0
Removed 0 0

11.3 Comparison options

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

11.4 Active regular expressions

No regular expressions were active.

11.5 Comparison detail

  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