Produced by Araxis Merge on 9/19/2018 12:35:31 PM 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 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US2540+v1.0.docx | Wed Sep 12 15:17:00 2018 UTC |
| 2 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US2540+v1.0.docx | Wed Sep 19 14:39:47 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 386 |
| 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 US2540 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | March 2018 | |
| 10 | Version 1. 00 | |
| 11 | ||
| 12 | User Story Name: | |
| 13 | Rally ID: US2540 | |
| 14 | Design – S ummary | |
| 15 | The Match Group Plan to a Phar macy Plan option [IB CNR PLAN M ATCH] and Match Mult iple Group Plans to a Pharmacy Plan opti on [IBCNR GROUP PLAN MATCH] wi ll both be modified to include informati on about t he last ma tched plan . The upda te will di splay the date of th e last mat ched plan and the us er who mat ched the l ast plan. In order t o accompli sh this, t wo new fie lds will n eed to be created in the GROUP INSURANCE PLAN File (#355.3). These fie lds will b e DATE LAS T MATCHED (#1.07) an d LAST MAT CHED BY (# 1.08). | |
| 16 | ||
| 17 | List of Co mponents: | |
| 18 | File: GROU P INSURANC E PLAN (#3 55.3) | |
| 19 | Routine: I BCNRP | |
| 20 | Routine: I BCNRPM1 | |
| 21 | Routine: I BCNRPM2 | |
| 22 | Design – D etail | |
| 23 | File Updat es: | |
| 24 | ||
| 25 | Add the fo llowing ne w fields t o file 355 .3. | |
| 26 | ||
| 27 | Field Attr ibutes | |
| 28 | Values | |
| 29 | FIELD NAME | |
| 30 | DATE LAST MATCHED | |
| 31 | FIELD NUMB ER | |
| 32 | 1.07 | |
| 33 | NODE;PIECE | |
| 34 | 1;7 | |
| 35 | FIELD TYPE | |
| 36 | Date | |
| 37 | DESCRIPTIO N | |
| 38 | This is th e date the policy wa s last mat ched. | |
| 39 | ||
| 40 | ||
| 41 | Field Attr ibutes | |
| 42 | Values | |
| 43 | FIELD NAME | |
| 44 | LAST MATCH ED BY | |
| 45 | FIELD NUMB ER | |
| 46 | 1.08 | |
| 47 | NODE;PIECE | |
| 48 | 1;8 | |
| 49 | FIELD TYPE | |
| 50 | Pointer to New Perso n File | |
| 51 | DESCRIPTIO N | |
| 52 | This is th e user who last matc hed the po licy. | |
| 53 | ||
| 54 | Routine Up dates: | |
| 55 | ||
| 56 | Include tw o new fiel ds to be s aved upon adding a P lan ID whe n calling the Plan M atch optio n. The new fields to be saved are Matche d Date and Matched U ser. The s creen disp lay will a lso be upd ated to sh ow the res ults of th e newly ca ptured fie lds. | |
| 57 | ||
| 58 | Subroutine Name | |
| 59 | INIT^IBCNR P | |
| 60 | Enhancemen t Category | |
| 61 | New | |
| 62 | Modify | |
| 63 | Delete | |
| 64 | No Change | |
| 65 | Related Me nu Options or ListMa n Actions | |
| 66 | IBCNR PLAN MATCH | |
| 67 | Current Lo gic | |
| 68 | ||
| 69 | IBCNRP ;DA OU/ALA - P lan Match ListMan ;1 3-NOV-2003 ;;2.0;INT EGRATED BI LLING;**25 1,516,550* *;21-MAR-9 4;Build 25 ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 70 | ||
| 71 | … | |
| 72 | ||
| 73 | INIT ; -- init varia bles and l ist array NEW IBCNRP P,IBCOV,IB CPD6,IBCPO LD,IBCRVD, LIM,X K ^T MP("IBCNR" ,$J) S VAL MCNT=0,VAL MBG=1 ; MR D;IB*2.0*5 16 - Rathe r than pul l the zero node here , use $$GE T1^DIQ ; t o pull spe cific piec es down be low. ;S IB GP0=^IBA(3 55.3,+IBCN GP,0) ;I $ G(IBGP0) D I $G(^IBA (355.3,+IB CNGP,0)) D . ;S IBCP D6=$G(IBGP 0,U,6)) ;c hk pre-cer t . ;I 'IB IND,'$P(IB GP0,"^",2) Q ; exclu de individ ual plans . ;I 'IBW, $P(IBGP0," ^",11) Q ; plan is i nactive . ; . S VALM CNT=VALMCN T+1 . S X= $$SETFLD^V ALM1(VALMC NT,"","NUM BER") . ; . ;I '$P(I BGP0,"^",2 ) S $E(X,4 )="+" . ;S X=$$SETFL D^VALM1($P (IBGP0,"^" ,3),X,"GNA ME") . I ' $$GET1^DIQ (355.3,+IB CNGP_",",. 02,"I") S $E(X,4)="+ " . S X=$$ SETFLD^VAL M1($$GET1^ DIQ(355.3, +IBCNGP_", ",2.01),X, "GNAME") . ; . ;I $P (IBGP0,"^" ,11) S $E( X,24)="*" . ;S X=$$S ETFLD^VALM 1($P(IBGP0 ,"^",4),X, "GNUM") . I $$GET1^D IQ(355.3,+ IBCNGP_"," ,.11,"I") S $E(X,24) ="*" . S X =$$SETFLD^ VALM1($$GE T1^DIQ(355 .3,+IBCNGP _",",2.02) ,X,"GNUM") . ; . ;S X=$$SETFLD ^VALM1($$E XPAND^IBTR E(355.3,.0 9,$P(IBGP0 ,"^",9)),X ,"TYPE") . S X=$$SET FLD^VALM1( $$GET1^DIQ (355.3,+IB CNGP_",",. 09,"E"),X, "TYPE") . ; . S IBCN RPP=$$GET1 ^DIQ(355.3 ,IBCNGP_", ",6.01,"I" ) . I IBCN RPP'="" S IBCNRPP=$$ GET1^DIQ(3 66.03,IBCN RPP_",",.0 1,"E") . S X=$$SETFL D^VALM1(IB CNRPP,X,"P HARM") . ; . S IBCOV =$O(^IBE(3 55.31,"B", "PHARMACY" ,"")) . S LIM="",IBC VRD=0 . F S LIM=$O( ^IBA(355.3 2,"B",IBCN GP,LIM)) Q :LIM="" D .. I $P(^ IBA(355.32 ,LIM,0),U, 2)=IBCOV S IBCVRD=$P (^IBA(355. 32,LIM,0), U,4) . S X =$$SETFLD^ VALM1($S(I BCVRD=0:"N O",1:"YES" ),X,"COV") . ; . S ^ TMP("IBCNR ",$J,VALMC NT,0)=X . S ^TMP("IB CNR",$J,"I DX",VALMCN T,VALMCNT) =IBCNGP . I '$D(^TMP ("IBCNR",$ J)) S VALM CNT=2,^TMP ("IBCNR",$ J,1,0)=" " ,^TMP("IBC NR",$J,2,0 )=" No pla ns were id entified f or this co mpany." Q | |
| 74 | ||
| 75 | Modified L ogic (Chan ges are hi ghlighted) | |
| 76 | ||
| 77 | IBCNRP ;DA OU/ALA - P lan Match ListMan ;1 3-NOV-2003 ;;2.0;INT EGRATED BI LLING;**25 1,516,550, ???**;21-M AR-94;Buil d 25 ;;Per VA Direct ive 6402, this routi ne should not be mod ified. | |
| 78 | ||
| 79 | … | |
| 80 | ||
| 81 | INIT ; -- init varia bles and l ist array NEW IBCNRP P,IBCOV,IB CPD6,IBCPO LD,IBCRVD, IBMDTE,IBM USR,LIM,X K ^TMP("IB CNR",$J) S VALMCNT=0 ,VALMBG=1 ; MRD;IB*2 .0*516 - R ather than pull the zero node here, use $$GET1^DIQ ; to pull specific pieces dow n below. ; S IBGP0=^I BA(355.3,+ IBCNGP,0) ;I $G(IBGP 0) D I $G( ^IBA(355.3 ,+IBCNGP,0 )) D . ;S IBCPD6=$G( IBGP0,U,6) ) ;chk pre -cert . ;I 'IBIND,'$ P(IBGP0,"^ ",2) Q ; e xclude ind ividual pl ans . ;I ' IBW,$P(IBG P0,"^",11) Q ; plan is inactiv e . ; . S VALMCNT=VA LMCNT+1 . S X=$$SETF LD^VALM1(V ALMCNT,"", "NUMBER") . ; . ;I ' $P(IBGP0," ^",2) S $E (X,4)="+" . ;S X=$$S ETFLD^VALM 1($P(IBGP0 ,"^",3),X, "GNAME") . I '$$GET1 ^DIQ(355.3 ,+IBCNGP_" ,",.02,"I" ) S $E(X,4 )="+" . S X=$$SETFLD ^VALM1($$G ET1^DIQ(35 5.3,+IBCNG P_",",2.01 ),X,"GNAME ") . ; . ; I $P(IBGP0 ,"^",11) S $E(X,24)= "*" . ;S X =$$SETFLD^ VALM1($P(I BGP0,"^",4 ),X,"GNUM" ) . I $$GE T1^DIQ(355 .3,+IBCNGP _",",.11," I") S $E(X ,24)="*" . S X=$$SET FLD^VALM1( $$GET1^DIQ (355.3,+IB CNGP_",",2 .02),X,"GN UM") . ; . ;S X=$$SE TFLD^VALM1 ($$EXPAND^ IBTRE(355. 3,.09,$P(I BGP0,"^",9 )),X,"TYPE ") . S X=$ $SETFLD^VA LM1($$GET1 ^DIQ(355.3 ,+IBCNGP_" ,",.09,"E" ),X,"TYPE" ) . ; . S IBCNRPP=$$ GET1^DIQ(3 55.3,IBCNG P_",",6.01 ,"I") . I IBCNRPP'=" " S IBCNRP P=$$GET1^D IQ(366.03, IBCNRPP_", ",.01,"E") . S X=$$S ETFLD^VALM 1(IBCNRPP, X,"PHARM") . ; . S I BCOV=$O(^I BE(355.31, "B","PHARM ACY","")) . S LIM="" ,IBCVRD=0 . F S LIM =$O(^IBA(3 55.32,"B", IBCNGP,LIM )) Q:LIM=" " D .. I $P(^IBA(35 5.32,LIM,0 ),U,2)=IBC OV S IBCVR D=$P(^IBA( 355.32,LIM ,0),U,4) . S X=$$SET FLD^VALM1( $S(IBCVRD= 0:"NO",1:" YES"),X,"C OV") | |
| 82 | . ; | |
| 83 | . S ^TMP( "IBCNR",$J ,VALMCNT,0 )=X . S ^T MP("IBCNR" ,$J,"IDX", VALMCNT,VA LMCNT)=IBC NGP . ; . I IBCNRPP' ="" D ; If VA PLA N ID exist s . . S IB MDTE=$$GET 1^DIQ(355. 3,IBCNGP_" ,",1.07,"E ") . . S I BMUSR=$$GE T1^DIQ(355 .3,IBCNGP_ ",",1.08," E") . . I IBMDTE'="" D ; If DATE LAST MATCHED ex ists . . . S X=" Matc hed by: "_ IBMUSR_" " _IBMDTE | |
| 84 | . . . S V ALMCNT=VAL MCNT+1 . . . S ^TMP( "IBCNR",$J ,VALMCNT,0 )=X . . . S ^TMP("IB CNR",$J,"I DX",VALMCN T,VALMCNT) =IBCNGP . ; | |
| 85 | . I '$D(^ TMP("IBCNR ",$J)) S V ALMCNT=2,^ TMP("IBCNR ",$J,1,0)= " ",^TMP(" IBCNR",$J, 2,0)=" No plans were identifie d for this company." Q | |
| 86 | ||
| 87 | ||
| 88 | Subroutine Name | |
| 89 | SEL^IBCNRP | |
| 90 | Enhancemen t Category | |
| 91 | New | |
| 92 | Modify | |
| 93 | Delete | |
| 94 | No Change | |
| 95 | Related Me nu Options or ListMa n Actions | |
| 96 | IBCNR PLAN MATCH | |
| 97 | Current Lo gic | |
| 98 | ||
| 99 | SEL ; -- s elect plan D S1 I 'I BX Q ; no group sel ected ; NE W DA,DIC,D IE,DR,D,IB PLN S DIC= "^IBCNR(36 6.03,",DIC (0)="AEMNZ " D ^DIC I +Y<1 S D= "F" D IX^D IC I +Y<1 G SPQ S IB PLN=+Y K Y ,X D PLCK ; check p lan status S DA=IBSE L,DIC="^IB A(355.3,", DIE=DIC,DR ="6.01//// ^S X="_IBP LN D ^DIE D INIT ; S IBX=0 F S IBX=$O(V ALMY(IBX)) Q:'IBX S ^TMP($J," IBSEL",+$G (^TMP("IBC NR",$J,"ID X",IBX,IBX )))="" ; D SPQ Q | |
| 100 | ||
| 101 | Modified L ogic (Chan ges are hi ghlighted) | |
| 102 | ||
| 103 | SEL ; -- s elect plan D S1 I 'I BX Q ; no group sel ected ; NE W DA,DIC,D IE,DR,D,IB PLN S DIC= "^IBCNR(36 6.03,",DIC (0)="AEMNZ " D ^DIC I +Y<1 S D= "F" D IX^D IC I +Y<1 G SPQ S IB PLN=+Y K Y ,X D PLCK ; check p lan status S DA=IBSE L,DIC="^IB A(355.3,", DIE=DIC,DR ="6.01//// ^S X="_IBP LN | |
| 104 | S DR=DR_” ;1.07///NO W;1.08//// ”_DUZ D ^D IE D INIT ; S IBX=0 F S IBX=$ O(VALMY(IB X)) Q:'IBX S ^TMP($ J,"IBSEL", +$G(^TMP(" IBCNR",$J, "IDX",IBX, IBX)))="" ; D SPQ Q | |
| 105 | ||
| 106 | ||
| 107 | The follow ing tables outline t he updates for the I BCNR GROUP PLAN MATC H option. | |
| 108 | ||
| 109 | Subroutine Name | |
| 110 | GIPF^IBCNR PM1 | |
| 111 | Enhancemen t Category | |
| 112 | New | |
| 113 | Modify | |
| 114 | Delete | |
| 115 | No Change | |
| 116 | Story | |
| 117 | US2540 | |
| 118 | Related Me nu Options or ListMa n Actions | |
| 119 | IBCNR GROU P PLAN MAT CH | |
| 120 | Current Lo gic | |
| 121 | ||
| 122 | IBCNRPM1 ; DAOU/CMW - Match Mul tiple Grou p Plans to a Pharmac y Plan ;10 -MAR-2004 ;;2.0;INTE GRATED BIL LING;**251 ,516**;21- MAR-94;Bui ld 123 ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified. | |
| 123 | ||
| 124 | … | |
| 125 | ||
| 126 | GIPF ; scr een for va lid GIPF ; N GST1,GP 0,GP6,IBCO V,LIM,IBCV RD N GPIEN ,GPNAM,GPN UM S GST1= 1,GPIEN="" K ^TMP("I BCNR",$J," GP") F S GPIEN=$O(^ IBA(355.3, "B",IBCNRI ,GPIEN)) Q :GPIEN="" D . ;chk for active group . S GP0=$G(^I BA(355.3,G PIEN,0)),G P6=$G(^IBA (355.3,GPI EN,6)) . I $P(GP0,U, 11)=1 Q . ;chk for p harm plan coverage . S IBCOV=$ O(^IBE(355 .31,"B","P HARMACY"," ")) . S LI M="",IBCVR D=0 . F S LIM=$O(^I BA(355.32, "B",GPIEN, LIM)) Q:LI M="" D .. I $P(^IBA (355.32,LI M,0),U,2)= IBCOV D .. . ;chk cov ered statu s ... S IB CVRD=$P(^I BA(355.32, LIM,0),U,4 ) ... I IB CVRD=0 Q . .. ; IB*2* 516/DF Get new HIPAA fields .. . ;S GPNAM =$P($G(GP0 ),U,3),GPN UM=$P($G(G P0),U,4) . .. S GPNAM =$$GET1^DI Q(355.3,GP IEN,2.01), GPNUM=$$GE T1^DIQ(355 .3,GPIEN,2 .02) ... I $G(GPNAM) ="" S GPNA M="<blank> " ... I $G (GPNUM)="" S GPNUM=" <blank>" . .. ;set ar ray = phar m plan and plan type ... S ^TM P("IBCNR", $J,"GP",GP NAM,GPNUM, GPIEN)=$P( $G(GP6),U) _"^"_$P($G (GP0),U,9) Q | |
| 127 | ||
| 128 | Modified L ogic (Chan ges are hi ghlighted) | |
| 129 | ||
| 130 | IBCNRPM1 ; DAOU/CMW - Match Mul tiple Grou p Plans to a Pharmac y Plan ;10 -MAR-2004 ;;2.0;INTE GRATED BIL LING;**251 ,516,???** ;21-MAR-94 ;Build 123 ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 131 | ||
| 132 | … | |
| 133 | ||
| 134 | GIPF ; scr een for va lid GIPF ; N GST1,GP 0,GP6,IBCO V,LIM,IBCV RD N GPIEN ,GPMDT,GPM U,GPNAM,GP NUM S GST1 =1,GPIEN=" " K ^TMP(" IBCNR",$J, "GP") F S GPIEN=$O( ^IBA(355.3 ,"B",IBCNR I,GPIEN)) Q:GPIEN="" D . ;chk for activ e group . S GP0=$G(^ IBA(355.3, GPIEN,0)), GP6=$G(^IB A(355.3,GP IEN,6)) . I $P(GP0,U ,11)=1 Q . ;chk for pharm plan coverage . S IBCOV= $O(^IBE(35 5.31,"B"," PHARMACY", "")) . S L IM="",IBCV RD=0 . F S LIM=$O(^ IBA(355.32 ,"B",GPIEN ,LIM)) Q:L IM="" D . . I $P(^IB A(355.32,L IM,0),U,2) =IBCOV D . .. ;chk co vered stat us ... S I BCVRD=$P(^ IBA(355.32 ,LIM,0),U, 4) ... I I BCVRD=0 Q ... ; IB*2 *516/DF Ge t new HIPA A fields . .. ;S GPNA M=$P($G(GP 0),U,3),GP NUM=$P($G( GP0),U,4) ... S GPNA M=$$GET1^D IQ(355.3,G PIEN,2.01) ,GPNUM=$$G ET1^DIQ(35 5.3,GPIEN, 2.02) ... I $G(GPNAM )="" S GPN AM="<blank >" ... I $ G(GPNUM)=" " S GPNUM= "<blank>" | |
| 135 | ... S GPM DT=$$GET1^ DIQ(355.3, GPIEN,1.07 ,”E”) | |
| 136 | ... S GPM U=$$GET1^D IQ(355.3,G PIEN,1.08, ”E”) ... ; set array = pharm pl an and pla n type and match dat e and matc h user ... S ^TMP("I BCNR",$J," GP",GPNAM, GPNUM,GPIE N)=$P($G(G P6),U)_"^" _$P($G(GP0 ),U,9)_”^” _GPMDT_”^” _GPMU Q | |
| 137 | ||
| 138 | ||
| 139 | Subroutine Name | |
| 140 | INIT^IBCNR PM2 | |
| 141 | Enhancemen t Category | |
| 142 | New | |
| 143 | Modify | |
| 144 | Delete | |
| 145 | No Change | |
| 146 | Story | |
| 147 | US2540 | |
| 148 | Related Me nu Options or ListMa n Actions | |
| 149 | IBCNR GROU P PLAN MAT CH | |
| 150 | Current Lo gic | |
| 151 | ||
| 152 | IBCNRPM2 ; BHAM ISC/C MW - Match Multiple Group Plan s to a Pha rmacy Plan ;10-MAR-2 004 ;;2.0; INTEGRATED BILLING;* *251,276,5 50**;21-MA R-94;Build 25 ;;Per VA Directi ve 6402, t his routin e should n ot be modi fied. | |
| 153 | ||
| 154 | … | |
| 155 | ||
| 156 | INIT ; -- init varia bles and l ist array ; I '$D(^T MP("IBCNR" ,$J,"GP")) D Q . S VALMCNT=0 . W !,*7," Warning: N o Active G roup Plans with Phar macy Cover age Found. " ; N GPIE N,IBGP0,IB CPOLD,X,IB CPD6,IBCNR PP,IBCOV,I BCRVD,LIM N IBGNA,IB GNM,IBCNA, IBCNM,IBDA T K ^TMP(" IBCNR",$J, "PM") S VA LMCNT=0,VA LMBG=1,(IB CNA,IBCNM) ="" S (IBI ND,IBMULT, IBW)=1 F S IBCNA=$O (^TMP("IBC NR",$J,"GP ",IBCNA)) Q:IBCNA="" D . F S IBCNM=$O( ^TMP("IBCN R",$J,"GP" ,IBCNA,IBC NM)) Q:IBC NM="" D . . ;get pha rm plan id .. S GPIE N=$O(^TMP( "IBCNR",$J ,"GP",IBCN A,IBCNM,"" )),IBDAT=^ TMP("IBCNR ",$J,"GP", IBCNA,IBCN M,GPIEN) . . ;set up list .. S VALMCNT=VA LMCNT+1 .. S X=$$SET FLD^VALM1( VALMCNT,"" ,"NUMBER") .. ; .. ; group name .. S X=$$ SETFLD^VAL M1(IBCNA,X ,"GNAME") .. ; .. ;g roup numbe r .. S X=$ $SETFLD^VA LM1(IBCNM, X,"GNUM") .. ; .. ;g roup plan type .. S X=$$SETFLD ^VALM1($$E XPAND^IBTR E(355.3,.0 9,$P(IBDAT ,"^",2)),X ,"GTYP") . . ; .. ;ph armacy pla n ID .. S IBCNRPP=$P ($G(IBDAT) ,U) .. I I BCNRPP'="" S IBCNRPP =$$GET1^DI Q(366.03,I BCNRPP_"," ,.01,"E") .. S X=$$S ETFLD^VALM 1(IBCNRPP, X,"PHRM") .. ; .. ; set up tmp for SEL . . S ^TMP(" IBCNR",$J, "PM",VALMC NT,0)=X .. S ^TMP("I BCNR",$J," PM","IDX", VALMCNT,VA LMCNT)=GPI EN ; Q | |
| 157 | ||
| 158 | Modified L ogic (Chan ges are hi ghlighted) | |
| 159 | ||
| 160 | IBCNRPM2 ; BHAM ISC/C MW - Match Multiple Group Plan s to a Pha rmacy Plan ;10-MAR-2 004 ;;2.0; INTEGRATED BILLING;* *251,276,5 50,???**;2 1-MAR-94;B uild 25 ;; Per VA Dir ective 640 2, this ro utine shou ld not be modified. | |
| 161 | ||
| 162 | … | |
| 163 | ||
| 164 | INIT ; -- init varia bles and l ist array ; I '$D(^T MP("IBCNR" ,$J,"GP")) D Q . S VALMCNT=0 . W !,*7," Warning: N o Active G roup Plans with Phar macy Cover age Found. " ; N GPIE N,IBGP0,IB CPOLD,X,IB CPD6,IBCNR PP,IBCOV,I BCRVD,LIM N IBGNA,IB GNM,IBCNA, IBCNM,IBDA T K ^TMP(" IBCNR",$J, "PM") S VA LMCNT=0,VA LMBG=1,(IB CNA,IBCNM) ="" S (IBI ND,IBMULT, IBW)=1 F S IBCNA=$O (^TMP("IBC NR",$J,"GP ",IBCNA)) Q:IBCNA="" D . F S IBCNM=$O( ^TMP("IBCN R",$J,"GP" ,IBCNA,IBC NM)) Q:IBC NM="" D . . ;get pha rm plan id .. S GPIE N=$O(^TMP( "IBCNR",$J ,"GP",IBCN A,IBCNM,"" )),IBDAT=^ TMP("IBCNR ",$J,"GP", IBCNA,IBCN M,GPIEN) . . ;set up list .. S VALMCNT=VA LMCNT+1 .. S X=$$SET FLD^VALM1( VALMCNT,"" ,"NUMBER") .. ; .. ; group name .. S X=$$ SETFLD^VAL M1(IBCNA,X ,"GNAME") .. ; .. ;g roup numbe r .. S X=$ $SETFLD^VA LM1(IBCNM, X,"GNUM") .. ; .. ;g roup plan type .. S X=$$SETFLD ^VALM1($$E XPAND^IBTR E(355.3,.0 9,$P(IBDAT ,"^",2)),X ,"GTYP") . . ; .. ;ph armacy pla n ID .. S IBCNRPP=$P ($G(IBDAT) ,U) .. I I BCNRPP'="" S IBCNRPP =$$GET1^DI Q(366.03,I BCNRPP_"," ,.01,"E") .. S X=$$S ETFLD^VALM 1(IBCNRPP, X,"PHRM") .. ; | |
| 165 | .. ; set up tmp for SEL .. S ^TMP("IBCN R",$J,"PM" ,VALMCNT,0 )=X .. S ^ TMP("IBCNR ",$J,"PM", "IDX",VALM CNT,VALMCN T)=GPIEN | |
| 166 | .. ; | |
| 167 | .. I IBCN RPP’=”” D ; If VA PLAN ID e xists | |
| 168 | ... I $P( IBDAT,”^”, 3)’=”” D ; If M atched Dat e exists | |
| 169 | .... S X= ” Matched b y: “_$P(IB DAT,”^”,4) _” “_$P(I BDAT,”^”,3 ) | |
| 170 | .... S VA LMCNT=VALM CNT+1 .... S ^TMP("I BCNR",$J," PM",VALMCN T,0)=X ... . S ^TMP(" IBCNR",$J, "PM","IDX" ,VALMCNT,V ALMCNT)=GP IEN | |
| 171 | ; Q | |
| 172 | ||
| 173 | ||
| 174 | Subroutine Name | |
| 175 | SEL^IBCNRP M2 | |
| 176 | Enhancemen t Category | |
| 177 | New | |
| 178 | Modify | |
| 179 | Delete | |
| 180 | No Change | |
| 181 | Story | |
| 182 | US2540 | |
| 183 | Related Me nu Options or ListMa n Actions | |
| 184 | IBCNR GROU P PLAN MAT CH | |
| 185 | Current Lo gic | |
| 186 | ||
| 187 | SEL ; Sele ct Plan ; D S1 ; I ' IBX Q ; n o group se lected ; N DA,DIC,DI E,DR,D,IBS EL S IBX=0 F S IBX= $O(VALMY(I BX)) Q:IBX ="" D . S IBSEL=+$G (^TMP("IBC NR",$J,"PM ","IDX",IB X,IBX)) . S DA=IBSEL ,DIC="^IBA (355.3,",D IE=DIC,DR= "6.01////^ S X="_IBCN RP . D ^DI E D GIPF^I BCNRPM1 D INIT ; S I BX=0 F S IBX=$O(VAL MY(IBX)) Q :'IBX D . S ^TMP($J ,"IBSEL",+ $G(^TMP("I BCNR",$J," PM","IDX", IBX,IBX))) ="" ; Q | |
| 188 | ||
| 189 | Modified L ogic (Chan ges are hi ghlighted) | |
| 190 | ||
| 191 | SEL ; Sele ct Plan ; D S1 ; I ' IBX Q ; n o group se lected ; N DA,DIC,DI E,DR,D,IBS EL S IBX=0 F S IBX= $O(VALMY(I BX)) Q:IBX ="" D . S IBSEL=+$G (^TMP("IBC NR",$J,"PM ","IDX",IB X,IBX)) . S DA=IBSEL ,DIC="^IBA (355.3,",D IE=DIC,DR= "6.01////^ S X="_IBCN RP | |
| 192 | . S DR=DR _”;1.07/// NOW;1.08// //”_DUZ . D ^DIE D G IPF^IBCNRP M1 D INIT ; S IBX=0 F S IBX=$ O(VALMY(IB X)) Q:'IBX D . S ^T MP($J,"IBS EL",+$G(^T MP("IBCNR" ,$J,"PM"," IDX",IBX,I BX)))="" ; Q | |
| 193 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.