Produced by Araxis Merge on 10/23/2018 6:40:36 AM 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 | docs | TAS ePay US782 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US782 SDD - Copy.doc | Mon Oct 22 16:32:45 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 432 |
| 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 US782 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | September 2017 | |
| 7 | Version 1 | |
| 8 | User Story ID: US782 | |
| 9 | User Story Name: CR /TR Number s and FMS Document S tatus on t he Transac tion Profi le Action | |
| 10 | Sizing: 1 | |
| 11 | Author: Ch ad Morriso n | |
| 12 | Epic Taxon omyComplia nce Por t Update Increase No TouchS tory | |
| 13 | As a...I w ant to...S o that...e Payments u serSee the CR/TR num bers and F MS documen t numbers on the Tra nsaction P rofile act ion from t he Account Profile a ction on t he Third P arty Joint Inquiry ( TPJI).I ca n research the statu s of the E FT in FMS. Conversati on | |
| 14 | Options th at current ly contain CR/TR num bers and F MS documen t numbers: | |
| 15 | List All r eceipts Re port | |
| 16 | Daily Acti vity Repor t | |
| 17 | Summary | |
| 18 | Routine IB JTTB1 for existing T PJI menu o ption’s VT – ‘View T ransaction ’ action w ill be mod ified to d isplay an additional FMS statu s informat ion for pa yment type transacti ons. | |
| 19 | AR Transac tion Profi le Aug 23, 20 17@16:11:5 9 Page: 1 of 2 | |
| 20 | %K100005 HEINE,ALF ONSO LAWR H8168 D OB: 07/15/ 44 Subsc ID: SUBSC ID 290613 | |
| 21 | AR Status: ACTIVE Orig Amt: 186. 66 Bal ance Due: 37,353.41 | |
| 22 | TRAN S. NO: 819 9243 TRA NS. TYPE: PAYMENT (I N PART) | |
| 23 | TRANS. DATE: 05/ 23/17 DAT E POSTED: 05/23/17 (POST) | |
| 24 | TRANS. A MOUNT: 186 .66 ERA#: 9 2764 RECEIP T #: E1705 2303 | |
| 25 | PAYER NAM E/TIN: AET NA -CONTIN ENTAL LIFE INSURANCE COMPANY O F BRENT | |
| 26 | T RACE#: ABC 6442642913 | |
| 27 | FMS DOC UMENT: TR- 442K7A0045 FM S DOC STAT US: QUEUED FOR TRANS MISSION | |
| 28 | BALANCE COLLECT ED | |
| 29 | ------- ------- -- | |
| 30 | P RINCIPLE: 65.84 186. 66 | |
| 31 | I NTEREST: 0.00 0. 00 | |
| 32 | A DMINISTRAT IVE: 0.00 0. 00 | |
| 33 | M ARSHALL FE E: 0.00 0. 00 | |
| 34 | C OURT COST: 0.00 0. 00 | |
| 35 | ------- ------- -- | |
| 36 | T OTAL: 65.84 186. 66 | |
| 37 | FY: 00 PR AMT: 65.84 FY T R AMT: 186 .66 | |
| 38 | + |% EEOB | Enter ?? f or more ac tions| | |
| 39 | CI Go to Claim Scre en AL Go to Acti ve List EX Exit | |
| 40 | Select Act ion: Next Screen// | |
| 41 | Resolution – Added C hanged Obj ects | |
| 42 | RoutinesAc tivitiesRo utine Name IBJTTB1Enh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsIBJ THI RD PARTY J OINT INQUI RY | |
| 43 | Protocol - IBJT AR T RANSACTION PROFILE S CREENRelat ed Routine sRoutines “Called By ”Routines “Called” IBJTTB | |
| 44 | IBJTTB2$$F IND1^DIC | |
| 45 | $$GET1^DIQ | |
| 46 | GETS^DIQ | |
| 47 | ADDM^IBJTT B2 | |
| 48 | BCSCR^IBJT TB2 | |
| 49 | COMM^IBJTT B2 | |
| 50 | TRCOMM^IBJ TTB2 | |
| 51 | $$DATE^IBJ U1 | |
| 52 | $$N0^RCJIB FN1 | |
| 53 | $$N1^RCJIB FN1 | |
| 54 | $$N2^RCJIB FN1 | |
| 55 | $$N3^RCJIB FN1 | |
| 56 | $$N5^RCJIB FN1 | |
| 57 | $$N8^RCJIB FN1 | |
| 58 | N4^RCJIBFN 1 | |
| 59 | $$STNO^RCJ IBFN2 | |
| 60 | $$SETSTR^V ALM1 | |
| 61 | SET^VALM10 Current Lo gicBLD ; b uild array for list manager AR TRANSACTI ON | |
| 62 | ; input: DFN, IBIFN - ptr to bill (399) , IBTRNS - ptr to tr ansaction (433) | |
| 63 | N IBI,IBJ ,IBX,IBRCT 0,IBRCT1,I BRCT2,IBRC T3,IBRCT5, IBRCT8,IBL N,IBSTR,IB D,IBT,IBT1 ,IBT2,IBT3 ,IBLL,IBRL ,IBLC,IBRC ,IBLW,IBRW ,IBTRTY,IB BC,IBADDM, STRG,IB12, IB32,IB20, IBEDAT,IBE RR,IBERA,I BXRC | |
| 64 | Q:'$G(IBT RNS) | |
| 65 | S IBLL=16 ,IBRL=16,I BLC=2,IBRC =35,IBLW=1 2+IBLL,IBR W=25+IBRL, IB12=12,IB 20=20,IB32 =32 | |
| 66 | ; | |
| 67 | S IBRCT0= $$N0^RCJIB FN1(IBTRNS ),IBRCT1=$ $N1^RCJIBF N1(IBTRNS) ,IBRCT2=$$ N2^RCJIBFN 1(IBTRNS) | |
| 68 | S IBRCT3= $$N3^RCJIB FN1(IBTRNS ),IBRCT5=$ $N5^RCJIBF N1(IBTRNS) ,IBRCT8=$$ N8^RCJIBFN 1(IBTRNS) | |
| 69 | S IBTRTY= $P($$STNO^ RCJIBFN2(+ $P(IBRCT1, U,2)),U,3) | |
| 70 | ; | |
| 71 | ; IB*2.0* 530 - Get ERA#, Trac e# and 835 Payer/Tin from Rece ipt | |
| 72 | D:$P(IBRC T1,U,3)]"" | |
| 73 | . S IBXRC =$$FIND1^D IC(344,"", "",$P(IBRC T1,U,3),"B ","","IBER R"),IBERA= $$GET1^DIQ (344,IBXRC _",",".18" ,"I") | |
| 74 | . D GETS^ DIQ(344.4, IBERA_",", ".01;.02;. 03;.06","E ","IBEDAT" ) | |
| 75 | I $P(IBRC T1,U,3)="" S IBERA=0 ,IBEDAT(34 4.4,IBERA_ ",",.01,"E ")="NO ERA #",IBEDAT( 344.4,IBER A_",",.02, "E")="NO T RACE#",IBE DAT(344.4, IBERA_",", .03,"E")=" NO TIN",IB EDAT(344.4 ,IBERA_"," ,.06,"E")= "NO PAYER" | |
| 76 | ; | |
| 77 | S IBLN=1, IBSTR="" | |
| 78 | S IBD="TR ANS. NO: " ,IBD=$J(IB D,IBLL)_$P (IBRCT0,U, 1) S IBSTR =$$SETLN(I BD,IBSTR,I BLC,IBLW) | |
| 79 | S IBD="TR ANS. TYPE: ",IBD=$J( IBD,IBLL)_ $P($$STNO^ RCJIBFN2(+ $P(IBRCT1, U,2)),U,1) S IBSTR=$ $SETLN(IBD ,IBSTR,IBR C,IBRW) | |
| 80 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 81 | ; | |
| 82 | S IBD="TR ANS. DATE: ",IBD=$J( IBD,IBLL)_ $$DATE^IBJ U1(+IBRCT1 ) S IBSTR= $$SETLN(IB D,IBSTR,IB LC,IBLW) | |
| 83 | S IBD="DA TE POSTED: ",IBD=$J( IBD,IBLL)_ $$DATE^IBJ U1(+$P(IBR CT1,U,7)) | |
| 84 | S IBD=IBD _" ("_$P($ G(^VA(200, +$P(IBRCT0 ,U,3),0)), U,2)_")" S IBSTR=$$S ETLN(IBD,I BSTR,IBRC, IBRW) | |
| 85 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 86 | ; | |
| 87 | ; IB*2.0* 530 - Add ERA#, Trac e # and 83 5 Payer/TI N to scree n | |
| 88 | S IBD="TR ANS. AMOUN T: ",IBD=$ J(IBD,IBLL )_$FN($P(I BRCT1,U,5) ,",",2) S IBSTR=$$SE TLN(IBD,IB STR,IBLC,I BLW) | |
| 89 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "ERA#: ",I BD=$J(IBD, 8)_$G(IBED AT(344.4,I BERA_",",. 01,"E")) S IBSTR=$$S ETLN(IBD,I BSTR,IB32, IB20) | |
| 90 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "RECEIPT # : ",IBD=$J (IBD,IB12) _$P(IBRCT1 ,U,3) S IB STR=$$SETL N(IBD,IBST R,54,26) | |
| 91 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 92 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "PAYER NAM E/TIN: ",I BD=$J(IBD, IBLL)_$G(I BEDAT(344. 4,IBERA_", ",.06,"E") )_"/"_$G(I BEDAT(344. 4,IBERA_", ",.03,"E") ) S IBSTR= $$SETLN(IB D,IBSTR,IB LC,66) | |
| 93 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 94 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "TRACE#: " ,IBD=$J(IB D,IBLL)_$G (IBEDAT(34 4.4,IBERA_ ",",.02,"E ")) S IBST R=$$SETLN( IBD,IBSTR, IBLC,66) | |
| 95 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 96 | ; | |
| 97 | I IBTRTY= 21!(IBTRTY =1) S IBD= "ADJUSTMEN T #: ",IBD =$J(IBD,IB LL)_$P(IBR CT1,U,4) S IBSTR=$$S ETLN(IBD,I BSTR,IBLC, IBLW) | |
| 98 | I $P(IBRC T0,U,2)'=" " I IBTRTY =1!((IBTRT Y>7)&(IBTR TY<12))!(I BTRTY=21)! (IBTRTY=29 )!(IBTRTY= 30) D | |
| 99 | . S IBD=" DATE CALM DONE: ",IB D=$J(IBD,I BLL)_$$DAT E^IBJU1($P (IBRCT0,U, 2)) S IBST R=$$SETLN( IBD,IBSTR, IBRC,IBRW) | |
| 100 | I IBSTR'= "" S IBLN= $$SET(IBST R,IBLN),IB STR="" | |
| 101 | ; | |
| 102 | I IBTRTY= 17!($P(IBR CT5,U,2)'= "") S IBD= "FOLLOW-UP DATE: ",I BD=$J(IBD, IBLL)_$$DA TE^IBJU1($ P(IBRCT5,U ,2)) S IBS TR=$$SETLN (IBD,IBSTR ,IBLC,IBLW ) | |
| 103 | I IBSTR'= "" S IBLN= $$SET(IBST R,IBLN),IB STR="" | |
| 104 | ; | |
| 105 | I $P(IBRC T0,U,4)["I NCOMPLETE" S IBLN=$$ SET(" ",IB LN) D | |
| 106 | . S IBD=" NOTE: ",IB D=$J(IBD,I BLL)_$P(IB RCT0,U,4) S IBSTR=$$ SETLN(IBD, "",IBLC,79 ),IBLN=$$S ET(IBSTR,I BLN) S IBS TR="" | |
| 107 | ; | |
| 108 | I IBTRTY= 8!(IBTRTY= 9) S IBLN= $$SET(" ", IBLN) D S IBLN=$$SE T(IBSTR,IB LN) S IBST R="" | |
| 109 | . S IBT=2 2,IBSTR="T ERMINATION REASON: " ,IBD=$P(IB RCT1,U,6) S IBSTR=$$ SETLN(IBD, IBSTR,IBT, 50) | |
| 110 | ; | |
| 111 | ; balance and colle ction amou nts | |
| 112 | D BCSCR^I BJTTB2 | |
| 113 | ; | |
| 114 | ; adminis trative ch arges | |
| 115 | I IBRCT2' ="",IBTRTY =12 S IBLN =$$SET(" " ,IBLN) S I BSTR="" D | |
| 116 | . S IBT=2 ,IBD="ADMI NISTRATIVE COST CHAR GE: " S IB STR=$$SETL N(IBD,IBST R,IBT,29) | |
| 117 | . D ADDM^ IBJTTB2 S IBI=0 F S IBI=$O(IB ADDM(IBI)) Q:'IBI D S IBLN=$ $SET(IBSTR ,IBLN) S I BSTR="" | |
| 118 | .. S IBT= 32,IBD=$P( IBADDM(IBI ),U,1) S I BSTR=$$SET LN(IBD,IBS TR,IBT,17) | |
| 119 | .. S IBT= 50,IBD=$J( $P(IBADDM( IBI),U,2), 11,2) S IB STR=$$SETL N(IBD,IBST R,IBT,11) | |
| 120 | ; | |
| 121 | K STRG D N4^RCJIBFN 1(IBTRNS) S (IBI,IBJ )=0 F S I BI=$O(STRG (IBI)) Q:' IBI D S IBLN=$$SET (IBSTR,IBL N) S IBSTR ="" | |
| 122 | . S IBX=S TRG(IBI) Q :IBX="" S IBJ=IBJ+1 | |
| 123 | . I IBJ=1 S IBLN=$$ SET(" ",IB LN) | |
| 124 | . S IBT=7 ,IBD=$S(IB J=1:"FY: " ,1:" ")_$P (IBX,U,1) S IBSTR=$$ SETLN(IBD, IBSTR,IBT, 8) | |
| 125 | . S IBT=2 8,IBD=$S(I BJ=1:"PR A MT: ",1:" ")_$FN(+$P (IBX,U,2), ",",2) S I BSTR=$$SET LN(IBD,IBS TR,IBT,21) | |
| 126 | . S IBT=5 7,IBD=$S(I BJ=1:"FY T R AMT: ",1 :" ")_$FN( +$P(IBX,U, 4),",",2) S IBSTR=$$ SETLN(IBD, IBSTR,IBT, 22) | |
| 127 | K STRG | |
| 128 | ; | |
| 129 | S IBLN=$$ SET(" ",IB LN),IBSTR= "COMMENTS: " | |
| 130 | S IBT=11, IBD=$P(IBR CT5,U,1) I IBD'="" S IBSTR=$$S ETLN(IBD,I BSTR,IBT,4 5),IBLN=$$ SET(IBSTR, IBLN) S IB STR="" | |
| 131 | D TRCOMM^ IBJTTB2,CO MM^IBJTTB2 | |
| 132 | ; | |
| 133 | S VALMCNT =IBLN-1 | |
| 134 | ; | |
| 135 | QModified Logic (Ch anges are in bold)BL D ; build array for list manag er AR TRAN SACTION | |
| 136 | ; input: DFN, IBIFN - ptr to bill (399) , IBTRNS - ptr to tr ansaction (433) | |
| 137 | N IBI,IBJ ,IBX,IBRCT 0,IBRCT1,I BRCT2,IBRC T3,IBRCT5, IBRCT8,IBL N,IBSTR,IB D,IBT,IBT1 ,IBT2,IBT3 ,IBLL,IBRL ,IBLC,IBRC ,IBLW,IBRW ,IBTRTY,IB BC,IBADDM, STRG,IB12, IB32,IB20, IBEDAT,IBE RR,IBERA,I BXRC | |
| 138 | Q:'$G(IBT RNS) | |
| 139 | S IBLL=16 ,IBRL=16,I BLC=2,IBRC =35,IBLW=1 2+IBLL,IBR W=25+IBRL, IB12=12,IB 20=20,IB32 =32 | |
| 140 | ; | |
| 141 | S IBRCT0= $$N0^RCJIB FN1(IBTRNS ),IBRCT1=$ $N1^RCJIBF N1(IBTRNS) ,IBRCT2=$$ N2^RCJIBFN 1(IBTRNS) | |
| 142 | S IBRCT3= $$N3^RCJIB FN1(IBTRNS ),IBRCT5=$ $N5^RCJIBF N1(IBTRNS) ,IBRCT8=$$ N8^RCJIBFN 1(IBTRNS) | |
| 143 | S IBTRTY= $P($$STNO^ RCJIBFN2(+ $P(IBRCT1, U,2)),U,3) | |
| 144 | ; | |
| 145 | ; IB*2.0* 530 - Get ERA#, Trac e# and 835 Payer/Tin from Rece ipt | |
| 146 | D:$P(IBRC T1,U,3)]"" | |
| 147 | . S IBXRC =$$FIND1^D IC(344,"", "",$P(IBRC T1,U,3),"B ","","IBER R"),IBERA= $$GET1^DIQ (344,IBXRC _",",".18" ,"I") | |
| 148 | . D GETS^ DIQ(344.4, IBERA_",", ".01;.02;. 03;.06","E ","IBEDAT" ) | |
| 149 | I $P(IBRC T1,U,3)="" S IBERA=0 ,IBEDAT(34 4.4,IBERA_ ",",.01,"E ")="NO ERA #",IBEDAT( 344.4,IBER A_",",.02, "E")="NO T RACE#",IBE DAT(344.4, IBERA_",", .03,"E")=" NO TIN",IB EDAT(344.4 ,IBERA_"," ,.06,"E")= "NO PAYER" | |
| 150 | ; | |
| 151 | S IBLN=1, IBSTR="" | |
| 152 | S IBD="TR ANS. NO: " ,IBD=$J(IB D,IBLL)_$P (IBRCT0,U, 1) S IBSTR =$$SETLN(I BD,IBSTR,I BLC,IBLW) | |
| 153 | S IBD="TR ANS. TYPE: ",IBD=$J( IBD,IBLL)_ $P($$STNO^ RCJIBFN2(+ $P(IBRCT1, U,2)),U,1) S IBSTR=$ $SETLN(IBD ,IBSTR,IBR C,IBRW) | |
| 154 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 155 | ; | |
| 156 | S IBD="TR ANS. DATE: ",IBD=$J( IBD,IBLL)_ $$DATE^IBJ U1(+IBRCT1 ) S IBSTR= $$SETLN(IB D,IBSTR,IB LC,IBLW) | |
| 157 | S IBD="DA TE POSTED: ",IBD=$J( IBD,IBLL)_ $$DATE^IBJ U1(+$P(IBR CT1,U,7)) | |
| 158 | S IBD=IBD _" ("_$P($ G(^VA(200, +$P(IBRCT0 ,U,3),0)), U,2)_")" S IBSTR=$$S ETLN(IBD,I BSTR,IBRC, IBRW) | |
| 159 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 160 | ; | |
| 161 | ; IB*2.0* 530 - Add ERA#, Trac e # and 83 5 Payer/TI N to scree n | |
| 162 | S IBD="TR ANS. AMOUN T: ",IBD=$ J(IBD,IBLL )_$FN($P(I BRCT1,U,5) ,",",2) S IBSTR=$$SE TLN(IBD,IB STR,IBLC,I BLW) | |
| 163 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "ERA#: ",I BD=$J(IBD, 8)_$G(IBED AT(344.4,I BERA_",",. 01,"E")) S IBSTR=$$S ETLN(IBD,I BSTR,IB32, IB20) | |
| 164 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "RECEIPT # : ",IBD=$J (IBD,IB12) _$P(IBRCT1 ,U,3) S IB STR=$$SETL N(IBD,IBST R,54,26) | |
| 165 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 166 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "PAYER NAM E/TIN: ",I BD=$J(IBD, IBLL)_$G(I BEDAT(344. 4,IBERA_", ",.06,"E") )_"/"_$G(I BEDAT(344. 4,IBERA_", ",.03,"E") ) S IBSTR= $$SETLN(IB D,IBSTR,IB LC,66) | |
| 167 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 168 | I IBTRTY= 2!(IBTRTY= 20) S IBD= "TRACE#: " ,IBD=$J(IB D,IBLL)_$G (IBEDAT(34 4.4,IBERA_ ",",.02,"E ")) S IBST R=$$SETLN( IBD,IBSTR, IBLC,66) | |
| 169 | S IBLN=$$ SET(IBSTR, IBLN),IBST R="" | |
| 170 | ; Display FMS Statu s | |
| 171 | I IBTRTY= 2!(IBTRTY= 20),$P(IBR CT1,U,3)]" " D | |
| 172 | . N FMSDO C | |
| 173 | . S FMSDO C=$$FMSSTA T^RCDPUREC ($P(IBRCT1 ,U,3)) | |
| 174 | . S IBD=" FMS DOCUME NT: "_$TR( $P(FMSDOC, "^")," ")_ “ FMS DO C STATUS: "_$P(FMSDO C,"^",2) | |
| 175 | . S IBSTR =$$SETLN(I BD,IBSTR,I BLC,76) | |
| 176 | . S IBLN= $$SET(IBST R,IBLN),IB STR="" | |
| 177 | ; | |
| 178 | I IBTRTY= 21!(IBTRTY =1) S IBD= "ADJUSTMEN T #: ",IBD =$J(IBD,IB LL)_$P(IBR CT1,U,4) S IBSTR=$$S ETLN(IBD,I BSTR,IBLC, IBLW) | |
| 179 | I $P(IBRC T0,U,2)'=" " I IBTRTY =1!((IBTRT Y>7)&(IBTR TY<12))!(I BTRTY=21)! (IBTRTY=29 )!(IBTRTY= 30) D | |
| 180 | . S IBD=" DATE CALM DONE: ",IB D=$J(IBD,I BLL)_$$DAT E^IBJU1($P (IBRCT0,U, 2)) S IBST R=$$SETLN( IBD,IBSTR, IBRC,IBRW) | |
| 181 | I IBSTR'= "" S IBLN= $$SET(IBST R,IBLN),IB STR="" | |
| 182 | ; | |
| 183 | I IBTRTY= 17!($P(IBR CT5,U,2)'= "") S IBD= "FOLLOW-UP DATE: ",I BD=$J(IBD, IBLL)_$$DA TE^IBJU1($ P(IBRCT5,U ,2)) S IBS TR=$$SETLN (IBD,IBSTR ,IBLC,IBLW ) | |
| 184 | I IBSTR'= "" S IBLN= $$SET(IBST R,IBLN),IB STR="" | |
| 185 | ; | |
| 186 | I $P(IBRC T0,U,4)["I NCOMPLETE" S IBLN=$$ SET(" ",IB LN) D | |
| 187 | . S IBD=" NOTE: ",IB D=$J(IBD,I BLL)_$P(IB RCT0,U,4) S IBSTR=$$ SETLN(IBD, "",IBLC,79 ),IBLN=$$S ET(IBSTR,I BLN) S IBS TR="" | |
| 188 | ; | |
| 189 | I IBTRTY= 8!(IBTRTY= 9) S IBLN= $$SET(" ", IBLN) D S IBLN=$$SE T(IBSTR,IB LN) S IBST R="" | |
| 190 | . S IBT=2 2,IBSTR="T ERMINATION REASON: " ,IBD=$P(IB RCT1,U,6) S IBSTR=$$ SETLN(IBD, IBSTR,IBT, 50) | |
| 191 | ; | |
| 192 | ; balance and colle ction amou nts | |
| 193 | D BCSCR^I BJTTB2 | |
| 194 | ; | |
| 195 | ; adminis trative ch arges | |
| 196 | I IBRCT2' ="",IBTRTY =12 S IBLN =$$SET(" " ,IBLN) S I BSTR="" D | |
| 197 | . S IBT=2 ,IBD="ADMI NISTRATIVE COST CHAR GE: " S IB STR=$$SETL N(IBD,IBST R,IBT,29) | |
| 198 | . D ADDM^ IBJTTB2 S IBI=0 F S IBI=$O(IB ADDM(IBI)) Q:'IBI D S IBLN=$ $SET(IBSTR ,IBLN) S I BSTR="" | |
| 199 | .. S IBT= 32,IBD=$P( IBADDM(IBI ),U,1) S I BSTR=$$SET LN(IBD,IBS TR,IBT,17) | |
| 200 | .. S IBT= 50,IBD=$J( $P(IBADDM( IBI),U,2), 11,2) S IB STR=$$SETL N(IBD,IBST R,IBT,11) | |
| 201 | ; | |
| 202 | K STRG D N4^RCJIBFN 1(IBTRNS) S (IBI,IBJ )=0 F S I BI=$O(STRG (IBI)) Q:' IBI D S IBLN=$$SET (IBSTR,IBL N) S IBSTR ="" | |
| 203 | . S IBX=S TRG(IBI) Q :IBX="" S IBJ=IBJ+1 | |
| 204 | . I IBJ=1 S IBLN=$$ SET(" ",IB LN) | |
| 205 | . S IBT=7 ,IBD=$S(IB J=1:"FY: " ,1:" ")_$P (IBX,U,1) S IBSTR=$$ SETLN(IBD, IBSTR,IBT, 8) | |
| 206 | . S IBT=2 8,IBD=$S(I BJ=1:"PR A MT: ",1:" ")_$FN(+$P (IBX,U,2), ",",2) S I BSTR=$$SET LN(IBD,IBS TR,IBT,21) | |
| 207 | . S IBT=5 7,IBD=$S(I BJ=1:"FY T R AMT: ",1 :" ")_$FN( +$P(IBX,U, 4),",",2) S IBSTR=$$ SETLN(IBD, IBSTR,IBT, 22) | |
| 208 | K STRG | |
| 209 | ; | |
| 210 | S IBLN=$$ SET(" ",IB LN),IBSTR= "COMMENTS: " | |
| 211 | S IBT=11, IBD=$P(IBR CT5,U,1) I IBD'="" S IBSTR=$$S ETLN(IBD,I BSTR,IBT,4 5),IBLN=$$ SET(IBSTR, IBLN) S IB STR="" | |
| 212 | D TRCOMM^ IBJTTB2,CO MM^IBJTTB2 | |
| 213 | ; | |
| 214 | S VALMCNT =IBLN-1 | |
| 215 | ; | |
| 216 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.