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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 220 |
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 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.