16. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/20/2019 1:05:01 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.

16.1 Files compared

# Location File Last Modified
1 eInsurance_IB_2.0_602.zip TAS eIns US829 SDD v1.2.docx Wed Feb 27 18:49:32 2019 UTC
2 eInsurance_IB_2.0_602.zip TAS eIns US829 SDD v1.2.docx Wed Mar 20 16:44:08 2019 UTC

16.2 Comparison summary

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

16.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

16.4 Active regular expressions

No regular expressions were active.

16.5 Comparison detail

  1   MCCF EDI T AS EINSURA NCE US829
  2   System Des ign Docume nt
  3   IB*2.0*602
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   March 2019
  10   Version 1. 2
  11   User Story  ID:US829
  12   User Story  Name:Expi re Group P lan
  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   to be able  to apply  an expirat ion date f or all Sub scriber po licies to  an entire  Group Plan
  22   I can term inate a Gr oup Plan w ithout the  requireme nt to firs t move the  Subscribe rs to a ne w plan.
  23   Design:
  24   Add a new  option to  the “Patie nt Insuran ce Menu” 
  25   ITEM: IBCN  EXPIRE GR OUP SUBSCR IBERS   SY NONYM: <TB D by eIns  team>
  26   NAME: IBCN  EXPIRE GR OUP SUBSCR IBERS
  27   MENU TEXT:  Expire gr oup plan
  28   TYPE: run  routine                       CR EATOR: (pe rson)
  29   PACKAGE: I NTEGRATED  BILLING
  30   DESCRIPTIO N: This op tion allow s you to e xpire all  subscriber  policies  associated  with a gr oup plan w ithout req uiring the m to be mo ved to a n ew plan.  
  31  
  32   ROUTINE: E XPGRP^IBCN SUR
  33     UPPERCAS E MENU TEX T: EXPIRE  GROUP PLAN
  34  
  35   Edit exist ing routin e IBCNSUR:
  36  
  37   Routines
  38   Activities
  39   Routine Na me
  40   IBCNSUR
  41   Enhancemen t Category
  42    New
  43    Modify
  44    Delete
  45    No Change
  46   RTM
  47  
  48   Related Op tions
  49   IBCN EXPIR E GROUP SU BSCRIBERS
  50   Related Ro utines
  51   Routines “ Called By”
  52   Routines “ Called”   
  53  
  54   IBCNEKI2
  55   ^DIR
  56   ^DIK
  57   ^%ZTLOAD
  58   $$GET1^DIQ           
  59   $$MGRP^IBC NEUT5
  60   MSG^IBCNEU T5
  61   $$SITE^VAS ITE       
  62   $$FMADD^XL FDT
  63   $$FMTE^XLF DT        
  64   Routines
  65   Activities
  66   Data Dicti onary (DD)  Reference s
  67   ^IBCN(365            
  68   ^IBCN(365. 1
  69   Related Pr otocols
  70  
  71   Related In tegration  Control Re gistration s (ICRs)
  72  
  73   Data Passi ng
  74    Input
  75    Output Re ference
  76    Both
  77    Global Re ference
  78    Local
  79   Input Attr ibute Name  and Defin ition
  80   Name:
  81   Definition :
  82   Output Att ribute Nam e and Defi nition
  83   Name:
  84   Definition :
  85   Current Lo gic
  86   IBCNSUR ;A LB/CPM/CMS  - MOVE SU BSCRIBERS  TO DIFFERE NT PLAN ;0 9-SEP-96 ; ;2.0;INTEG RATED BILL ING;**103, 276,506,51 6,549**;21 -MAR-94;Bu ild 7 ;;Pe r VA Direc tive 6402,  this rout ine should  not be mo dified. Q  ; ;
  87   Modified L ogic (Chan ges are in  bold)
  88    IBCNSUR ; ALB/CPM/CM S - MOVE S UBSCRIBERS  TO DIFFER ENT PLAN ; 09-SEP-96  ;;2.0;INTE GRATED BIL LING;**103 ,276,506,5 16,549,602 **;21-MAR- 94;Build 7  ;;Per VA  Directive  6402, this  routine s hould not  be modifie d. Q ;
  89   Current Lo gic
  90    ;
  91   Modified L ogic (Chan ges are in  bold)
  92   EXPGRP ; E P for [IBC N EXPIRE G ROUP SUBSC RIBERS] ;  IB*2.0*602 /DM implem ent expire  group pla n  N X,Y,D IC,DIR,DTA ,ERR,REF,I BLN,XMDUZ, XMTEXT,XMS UB,XMY N I BQUIT,IBCN S,IBPLAN,I BSUB,IBEXP ,DFN,IBIPO L,IBIENWK  N IBINSNM, IBGRPNM,IB GRPNO,IBEX POK,IBEXPE RR,IBSUPRE S,IBCBI ;  W !!,?5,"E XPIRE ALL  SUBSCRIBER S WITHIN A  GROUP PLA N" W !,?5, "You can u se this op tion to sp ecify an e xpiration  date for a ll subscri ber" W !,? 5,"policie s in a gro up plan wi thout movi ng the sub scribers t o another  group" W ! ,?5,"plan.  If the gr oup plan s tatus is c urrently " "active"",  you can a lso choose " W !,?5," to ""inact ivate"" th e group pl an." W !!, $TR($J("", 75)," ","- ") S IBQUI T=1 ;NXTGR P ; EP for  next expi re group p rocess K ^ TMP($J,"IB CNSUR") ;  subscriber s K ^TMP($ J,"IBCNSUR BLL") ; bu lletin  I  'IBQUIT D  . W !!,"== ========== ========== ========== ========== " . W !,"E XPIRE ALL  SUBSCRIBER S WITHIN A  GROUP PLA N" . W !," ========== ========== ========== ========== ==",! ; ge t insco an d plan S I BQUIT=0 D  SEL^IBCNSU R(0) I IBQ UIT Q ; ;  Make sure  plan has a t least on e subscrib er I '$$SU BS^IBCNSJ( IBCNS,IBPL AN,0,,1) W  !!,?5,*7, "* This gr oup plan h as no subs cribers!", ! G NXTGRP  ; S IBINS NM=$$GET1^ DIQ(36,IBC NS_",","NA ME") S IBG RPNM=$$GET 1^DIQ(355. 3,IBPLAN_" ,","GROUP  NAME") S I BGRPNO=$$G ET1^DIQ(35 5.3,IBPLAN _",","GROU P NUMBER")  ; W !!,"C ollecting  Subscriber s ..." S I BSUB=$$SUB S^IBCNSJ(I BCNS,IBPLA N,0,"^TMP( $J,""IBCNS UR"")") W  !!,"This g roup plan  has "_+IBS UB_" subsc ribers. Al l subscrib ers will b e expired. ",! S DIR( 0)="Y" S D IR("A")="D o you want  to expire  all subsc ribers' po licies for  this plan " S DIR("? ",1)="You  will be as ked for an  expiratio n date to  terminate  the attach ed policie s." S DIR( "?",2)="Yo u will hav e an oppor tunity to  stop if de sired." S  DIR("?")=" Enter 'Yes ' to conti nue, or 'N o' to stop  the proce ss now." D  ^DIR K DI R I 'Y!$D( DIRUT) G N XTGRP ; W  ! ; get th e expirati on date S  DIR(0)="D" ,DIR("A")= "Enter exp iration da te (applie s to all s ubscribers  in this p lan)" S DI R("?")="Ea ch active  policy wil l be expir ed with th e expirati on date en tered." D  ^DIR K DIR  I 'Y!$D(D IRUT) G NX TGRP S IBE XP=Y ; W ! !,"You sel ected to e xpire "_+I BSUB_" sub scriber(s)  with Expi ration Dat e "_$$FMTE ^XLFDT(IBE XP)_" for: " W !,?5," Insurance  Company "_ IBINSNM W  !,?5,"Plan  Name "_IB GRPNM_" Nu mber "_IBG RPNO W !!, "Please No te that th e policy w ill be EXP IRED in th e patient  profile!!" ,! ;  S DI R(0)="Y",D IR("A")="O kay to con tinue" S D IR("?",1)= "If you wi sh to expi re the pol icies for  these subs cribers, e nter 'Yes' ." S DIR(" ?")="Other wise, ente r 'No' to  exit." D ^ DIR K DIR  I 'Y!$D(DI RUT) G NXT GRP ; ; ex pire the p lan subscr ibers ; as  we proces s the poli cies, we'l l set the  ^TMP nodes  to 'O'k o r 'E'rror  W !!,"Expi ring Polic ies...",!  S IBSUPRES =1 ; tell  COVERED^IB CNSM31 to  be quiet S  (IBEXPOK, IBEXPERR)= 0 S DFN=0  F  S DFN=$ O(^TMP($J, "IBCNSUR", DFN)) Q:'D FN  D . S  IBIPOL=0 F   S IBIPOL =$O(^TMP($ J,"IBCNSUR ",DFN,IBIP OL)) Q:IBI POL=""  D  .. S IBIEN WK=IBIPOL_ ","_DFN_", " .. Q:$$G ET1^DIQ(2. 312,IBIENW K,"GROUP P LAN","I")' =IBPLAN ..  Q:+$$GET1 ^DIQ(2.312 ,IBIENWK," INSURANCE  EXPIRATION ","I") ..  I $$GET1^D IQ(2.312,I BIENWK,"EF FECTIVE DA TE OF POLI CY","I")>I BEXP S ^TM P($J,"IBCN SUR",DFN,I BIPOL)="E" ,IBEXPERR= IBEXPERR+1  Q .. S IB CBI=$$GET1 ^DIQ(2,DFN _",","COVE RED BY HEA LTH INSURA NCE?","I")  .. K DTA, ERR .. S D TA(2.312,I BIENWK,3)= IBEXP ; se t the expi ration dat e .. S DTA (2.312,IBI ENWK,1.05) =$$NOW^XLF DT() ; las t edited . . S DTA(2. 312,IBIENW K,1.06)=DU Z ; by ..  D FILE^DIE ("","DTA", "ERR") ..  I $D(ERR)  S ^TMP($J, "IBCNSUR", DFN,IBIPOL )="E",IBEX PERR=IBEXP ERR+1 Q ..  S ^TMP($J ,"IBCNSUR" ,DFN,IBIPO L)="O",IBE XPOK=IBEXP OK+1 .. D  COVERED^IB CNSM31(DFN ,IBCBI) ;  set covere d by insur ance  ; W  !,"Done. " _IBEXPOK_"  Subscribe rs' polici es were ex pired as o f "_$$FMTE ^XLFDT(IBE XP)_"." W  !,"A Bulle tin was se nt to you  and member s of 'IB N EW INSURAN CE' Mail G roup." ; ;  prepare t he bulleti n S IBLN=0 ,REF=$NA(^ TMP($J,"IB CNSURBLL") ) D ADD^IB CNSUR3(1," EXPIRE ALL  SUBSCRIBE RS WITHIN  A GROUP PL AN") D ADD ^IBCNSUR3( ) D ADD^IB CNSUR3(1," You select ed to expi re ",IBSUB ," subscri ber(s)") D  ADD^IBCNS UR3() D AD D^IBCNSUR3 (1,"FROM I nsurance C ompany ",I BINSNM) D  ADD^IBCNSU R3(1,"Plan  Name ",IB GRPNM," Nu mber ",IBG RPNO) D AD D^IBCNSUR3 () D ADD^I BCNSUR3(1, "Policies  will be ex pired as o f ",$$FMTE ^XLFDT(IBE XP),".") D  ADD^IBCNS UR3() ; I  IBEXPERR D  . D ADD^I BCNSUR3(1, "* These " ,IBEXPERR, " entries  could not  be process ed, they'l l need to  be adjuste d manually ") . W !!, @REF@(IBLN ) . D ADD^ IBCNSUR3(1 ,"-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -") . W !, @REF@(IBLN ) . D ADD^ IBCNSUR3(1 ,"Patient  Name/ID Wh ose Employ er Effecti ve Expires ") . W !,@ REF@(IBLN) ,! . S DFN =0 F  S DF N=$O(^TMP( $J,"IBCNSU R",DFN)) Q :'DFN  D . . S IBIPOL =0 F  S IB IPOL=$O(^T MP($J,"IBC NSUR",DFN, IBIPOL)) Q :IBIPOL=""   D ... I  ^TMP($J,"I BCNSUR",DF N,IBIPOL)' ="E" Q ...  D ADS^IBC NSUR3(DFN, IBIPOL) .. . W !,@REF @(IBLN) .  D ADD^IBCN SUR3(1,"== ========== ========== ======") .  D ADD^IBC NSUR3() .  W !!,"Exam ine the en tries that  that coul d not be p rocessed."  ; I IBEXP OK D . D A DD^IBCNSUR 3(1,"These  ",IBEXPOK ," policie s were pro cessed suc cessfully" ) . D ADD^ IBCNSUR3(1 ,"-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -") . D AD D^IBCNSUR3 (1,"Patien t Name/ID  Whose Empl oyer Effec tive Expir es") . S D FN=0 F  S  DFN=$O(^TM P($J,"IBCN SUR",DFN))  Q:'DFN  D  .. S IBIP OL=0 F  S  IBIPOL=$O( ^TMP($J,"I BCNSUR",DF N,IBIPOL))  Q:IBIPOL= ""  D ...  I ^TMP($J, "IBCNSUR", DFN,IBIPOL )'="O" Q . .. D ADS^I BCNSUR3(DF N,IBIPOL)  . D ADD^IB CNSUR3(1," ========== ========== ========")  . D ADD^I BCNSUR3()  ; I 'IBEXP OK,'IBEXPE RR D . D A DD^IBCNSUR 3(1,"===== ========== ========== ===") . D  ADD^IBCNSU R3(1,"Afte r processi ng, no cha nges were  needed, no  policies  were expir ed.") . W  !!,@REF@(I BLN) . D A DD^IBCNSUR 3(1,"===== ========== ========== ===") . D  ADD^IBCNSU R3() ; W !  S DIR(0)= "EA",DIR(" A")="Press  RETURN to  continue. " D ^DIR K  DIR ; I + $$GET1^DIQ (355.3,IBP LAN_",","I NACTIVE"," I") D  G N XTGRP . D  ADD^IBCNSU R3(1,"Plea se note th e ",IBGRPN M," plan i s already  inactive." ) . W !!,@ REF@(IBLN) ,! . D SND BULL ; W !  S DIR(0)= "Y",DIR("B ")="NO" I  IBEXPERR D  . S DIR(" A",1)=" ** ********** ********** ********** ********** *****" . S  DIR("A",2 )=" * WARN ING *" . S  DIR("A",3 )=" * Ther e are stil l active s ubscribers  *" . S DI R("A",4)="  * that wi ll need to  be adjust ed manuall y *" . S D IR("A",5)= " ******** ********** ********** ********** *********"  . S DIR(" A",6)=" "  S DIR("A") ="Do you w ish to ina ctivate pl an "_IBGRP NM D ^DIR  K DIR I 'Y !$D(DIRUT)  D  G NXTG RP . D ADD ^IBCNSUR3( 1,"The ",I BGRPNM," p lan is sti ll active. ") . W !!, @REF@(IBLN ),! . D SN DBULL ; in activate t he plan S  IBIENWK=IB PLAN_"," K  DTA,ERR S  DTA(355.3 ,IBIENWK,. 11)=1 ; in active S D TA(355.3,I BIENWK,1.0 5)=$$NOW^X LFDT() ; l ast edited  S DTA(355 .3,IBIENWK ,1.06)=DUZ  ; by D FI LE^DIE("", "DTA","ERR ") I $D(ER R) D  G NX TGRP . D A DD^IBCNSUR 3(1,"There  was an is sue inacti vating the  ",IBGRPNM ," plan.")  . W !!,@R EF@(IBLN), ! . D SNDB ULL D ADD^ IBCNSUR3(1 ,"The ",IB GRPNM," pl an has bee n inactiva ted.") W ! !,@REF@(IB LN),! D SN DBULL G NX TGRP ;SNDB ULL ; send  out the b ulletin  I  '$G(IBLN)  Q D ADD^I BCNSUR3()  D ADD^IBCN SUR3(1,"TH E PROCESS  COMPLETED  SUCCESSFUL LY ON "_$$ DAT1^IBOUT L($$NOW^XL FDT(),1))  S XMSUB="S UBSCRIPTIO N LIST FOR  INACTIVAT ED PLAN" S  XMDUZ="IN TEGRATED B ILLING PAC KAGE",XMTE XT="^TMP(" _$J_",""IB CNSURBLL"" ," S XMY(D UZ)="" S X MY("G.IB N EW INSURAN CE")="" D  ^XMD Q
  93  
  94   Revision H istory
  95   Date
  96   Version
  97   Descriptio n
  98   Author
  99   03/01/2018
  100   1.0
  101   Initial dr aft
  102   Daniel Mor an
  103   12/4/2018
  104   1.1
  105   Updated af ter code c omplete
  106   Henry Norm and
  107   02/06/2019
  108   1.2
  109   Updated fo r IOC chan ges
  110   Timothy Zi mmer