Produced by Araxis Merge on 3/20/2019 1:04:57 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 US3757 SDD v1.2.docx | Wed Feb 27 18:49:32 2019 UTC |
2 | eInsurance_IB_2.0_602.zip | TAS eIns US3757 SDD v1.2.docx | Wed Mar 20 16:50:42 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 462 |
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 US3757 | |
2 | System Des ign Docume nt | |
3 | IB*2.0*602 | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | Noverber 2 018 | |
10 | Version 1. 2 | |
11 | ||
12 | User Story Number: U S3757 | |
13 | User Story Name: Exc el Report Titles – M edium Dema nd Reports | |
14 | ||
15 | ||
16 | Epic Taxon omy | |
17 | eBiz Com pliance Port Upd ate Increase No Touch TAS Apps | |
18 | Story: | |
19 | As a... | |
20 | I want to. .. | |
21 | So that... | |
22 | Insurance Verificati on User | |
23 | The follow ing report s generate d in Excel format to include t he same id entifying informatio n (with th e exceptio ns of the label “Pag e:” and th e page num ber) as th at present ed in the header of the displa yed report : | |
24 | ||
25 | User Edit Report | |
26 | Generate I nsurance C ompany Lis tings | |
27 | List New N ot Verifie d Policies | |
28 | I can rese arch and i dentify tr ends using the same consistent informati on to comp are one ex port to an other. | |
29 | ||
30 | ||
31 | User Edit Report | |
32 | ||
33 | Routines | |
34 | Activities | |
35 | Routine Na me | |
36 | IBCNAU3 | |
37 | Enhancemen t Category | |
38 | New | |
39 | Modify | |
40 | Delete | |
41 | No Change | |
42 | RTM | |
43 | ||
44 | Related Op tions | |
45 | User Edit Report [IB CN USER ED IT RPT] | |
46 | Related Ro utines | |
47 | Routines “ Called By” | |
48 | Routines “ Called” | |
49 | ||
50 | ||
51 | $$GET1^DIQ | |
52 | ^DIR | |
53 | $$FMTE^XLF DT | |
54 | $$NOW^XLFD T | |
55 | Routines | |
56 | Activities | |
57 | Data Dicti onary (DD) Reference s | |
58 | ||
59 | Related Pr otocols | |
60 | ||
61 | Related In tegration Control Re gistration s (ICRs) | |
62 | ||
63 | Data Passi ng | |
64 | Input | |
65 | Output Re ference | |
66 | Both | |
67 | Global Re ference | |
68 | Local | |
69 | Input Attr ibute Name and Defin ition | |
70 | Name: | |
71 | Definition : | |
72 | Output Att ribute Nam e and Defi nition | |
73 | Name: | |
74 | Definition : | |
75 | Current Lo gic | |
76 | IBCNAU3 ;A LB/KML/AWC - eIV USE R EDIT REP ORT (PRINT ) ;6-APRIL -2015 ;;2. 0;INTEGRAT ED BILLING ;**528**;2 1-MAR-94;B uild 163 ; ;Per VA Di rective 64 02, this r outine sho uld not be modified. | |
77 | Modified L ogic (Chan ges are in bold) | |
78 | IBCNAU3 ;A LB/KML/AWC - eIV USE R EDIT REP ORT (PRINT ) ;6-APRIL -2015 ;;2. 0;INTEGRAT ED BILLING ;**528,602 **;21-MAR- 94;Build 1 63 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. | |
79 | Current Lo gic | |
80 | EXCEL(PLAN S) ; user selected f ormat that can be vi ewed in MS Excel N I BI,IBJ,IBK ,IBL,IBM,I B01,IB02,U SER,DATE S (IB01,IB0 2)=0 W !," USER EDIT REPORT",! ; I PLANS W !,"Insur ance Compa ny^Group N ame^User^D ate/Time o f Change^M odified Fi eld^Previo us Value o f Data^Mod ified Valu e of Data" ,! E W !, "Insurance Company^U ser^Date/T ime of Cha nge^Modifi ed Field^P revious Va lue of Dat a^Modified Value of Data",! ; F IB01=0,1 F S IB02 =$O(^TMP(" IBPR",$J,I B01,IB02)) Q:'IB02 S IBPD=$G( ^TMP("IBPR ",$J,IB01, IB02)) D . S USER=$$ GET1^DIQ(2 00,$P(IBPD ,U,3)_",", .01) . S D ATE=$$FMTE ^XLFDT($P( IBPD,U,4), 2) . I IB0 1=0 W $P(I BPD,U)_U_U SER_U_DATE _U_$P(IBPD ,U,7)_U_$S ($P(IBPD,U ,5)="":"<n o previous value>",1 :$P(IBPD,U ,5))_U_$P( IBPD,U,6) . E W $P( IBPD,U)_U_ $P(IBPD,U, 2)_U_USER_ U_DATE_U_$ P(IBPD,U,7 )_U_$S($P( IBPD,U,5)= "":"<no pr evious val ue>",1:$P( IBPD,U,5)) _U_$P(IBPD ,U,6) . W ! ; -- wri te to scre en I $E(IO ST,1,2)["C -" W !,"[E ND OF REPO RT]",! S D IR("A")="P ress RETUR N to conti nue" D PAU SE Q | |
81 | Modified L ogic (Chan ges are in bold) | |
82 | EXCEL(PLAN S) ; user selected f ormat that can be vi ewed in MS Excel N I BI,IBJ,IBK ,IBL,IBM,I B01,IB02,U SER,DATE S (IB01,IB0 2)=0 IB* nnn/HN ; A dd report headers to Excel Spr eadsheets W !,"USER EDIT REPO RT^"_$$FMT E^XLFDT($$ NOW^XLFDT, 1) ; IB*60 2/HN end ; I PLAN S W !,"Ins urance Com pany^Group Name^User ^Date/Time of Change ^Modified Field^Prev ious Value of Data^M odified Va lue of Dat a",! E W !,"Insuran ce Company ^User^Date /Time of C hange^Modi fied Field ^Previous Value of D ata^Modifi ed Value o f Data",! ; F IB01=0 ,1 F S IB 02=$O(^TMP ("IBPR",$J ,IB01,IB02 )) Q:'IB02 S IBPD=$ G(^TMP("IB PR",$J,IB0 1,IB02)) D . S USER= $$GET1^DIQ (200,$P(IB PD,U,3)_", ",.01) . S DATE=$$FM TE^XLFDT($ P(IBPD,U,4 ),2) . I I B01=0 W $P (IBPD,U)_U _USER_U_DA TE_U_$P(IB PD,U,7)_U_ $S($P(IBPD ,U,5)="":" <no previo us value>" ,1:$P(IBPD ,U,5))_U_$ P(IBPD,U,6 ) . E W $ P(IBPD,U)_ U_$P(IBPD, U,2)_U_USE R_U_DATE_U _$P(IBPD,U ,7)_U_$S($ P(IBPD,U,5 )="":"<no previous v alue>",1:$ P(IBPD,U,5 ))_U_$P(IB PD,U,6) . W ! ; -- w rite to sc reen I $E( IOST,1,2)[ "C-" W !," [END OF RE PORT]",! S DIR("A")= "Press RET URN to con tinue" D P AUSE Q | |
83 | ||
84 | ||
85 | ||
86 | ||
87 | ||
88 | Generate I nsurance C ompany Lis tings | |
89 | ||
90 | Routines | |
91 | Activities | |
92 | Routine Na me | |
93 | IBCOMD1 | |
94 | Enhancemen t Category | |
95 | New | |
96 | Modify | |
97 | Delete | |
98 | No Change | |
99 | RTM | |
100 | ||
101 | Related Op tions | |
102 | Generate I nsurance C ompany Lis tings [IBC N ID DUP I NSURANCE E NTRIES] | |
103 | Related Ro utines | |
104 | Routines “ Called By” | |
105 | Routines “ Called” | |
106 | ||
107 | ||
108 | ^%ZISC | |
109 | ^DIR | |
110 | $$STATE^IB CF2 | |
111 | $$EXPAND^I BTRE | |
112 | $$FMTE^XLF DT | |
113 | $$NOW^XLFD T | |
114 | Routines | |
115 | Activities | |
116 | Data Dicti onary (DD) Reference s | |
117 | ||
118 | Related Pr otocols | |
119 | ||
120 | Related In tegration Control Re gistration s (ICRs) | |
121 | ||
122 | Data Passi ng | |
123 | Input | |
124 | Output Re ference | |
125 | Both | |
126 | Global Re ference | |
127 | Local | |
128 | Input Attr ibute Name and Defin ition | |
129 | Name: | |
130 | Definition : | |
131 | Output Att ribute Nam e and Defi nition | |
132 | Name: | |
133 | Definition : | |
134 | Current Lo gic | |
135 | IBCOMD1 ;A LB/CMS - G ENERATE IN SURANCE CO MPANY LIST INGS ;03-A UG-98 ;;2. 0;INTEGRAT ED BILLING ;**103,528 **;21-MAR- 94;Build 1 63 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. | |
136 | Modified L ogic (Chan ges are in bold) | |
137 | IBCOMD1 ;A LB/CMS - G ENERATE IN SURANCE CO MPANY LIST INGS ;03-A UG-98 ;;2. 0;INTEGRAT ED BILLING ;**103,528 ,602**;21- MAR-94;Bui ld 163 ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified. | |
138 | Current Lo gic | |
139 | HD ; Write Heading S IBPAGE=IB PAGE+1 I I BOUT="E" W :($E(IOST, 1,2)["C-") ! W "Acti ve/Inactiv e^Insuranc e Name^Rei mburse?^St reet Addre ss 1^Stree t Address 2^Street A ddress 3^C ity^State^ ZIP^Phone Number" Q W @IOF,"Ge nerate Ins urance Com pany Listi ngs",?50,$ $FMTE^XLFD T($$NOW^XL FDT,"Z"),? 70," Page ",IBPAGE W !,"List o f ",$S(IBA IB=1:"Acti ve",IBAIB= 2:"Inactiv e",1:"All" )," Insura nce Compan ies" ; ; - display d efinition of screens I $D(IBCA SE) W ", w here" D .N I,H .S (H ,I)=0 F S I=$O(IBCA SE(I)) Q:' I D ..W ! I H W ?3, "and" ..S H=1 W ?8,I BFLD(I)," " ..W $S(I =4:"Equals ",$P(IBCA SE(I),"^") ="C":"Cont ains ",1:" Between ") ..W $S(I= 4:$P($G(^D IC(5,+$P(I BCASE(I)," ^",2),0)), "^"),$P(IB CASE(I),"^ ",2)="":"' FIRST'",1: $P(IBCASE( I),"^",2)) ..I $P(IB CASE(I),"^ ")="R" W " and ",$S( $P(IBCASE( I),"^",3)= "zzzzzz":" 'LAST'",1: $P(IBCASE( I),"^",3)) ; W !,"In surance Na me/Address ",?33,"Rei mburse?",? 56,"Phone Number" W ! F IBX=1: 1:79 W "=" Q ; | |
140 | Modified L ogic (Chan ges are in bold) | |
141 | HD ; Write Heading S IBPAGE=IB PAGE+1; IB *nnn/HN ; Add report headers t o Excel Sp readsheets I IBOUT ="E" D Q .W !,"Gene rate Insur ance Compa ny Listing s^"_$$FMTE ^XLFDT($$N OW^XLFDT,1 ) .W !,"Li st of ",$S (IBAIB=1:" Active",IB AIB=2:"Ina ctive",1:" All")," In surance Co mpanies" . ; .; - dis play defin ition of s creens .I $D(IBCASE) W "^where " D ..N I, H ..S (H,I )=0 F S I =$O(IBCASE (I)) Q:'I D ...I H W "^and" . ..S H=1 W "^"_IBFLD( I) ...W $S (I=4:"^Equ als ",$P(I BCASE(I)," ^")="C":"^ Contains " ,1:"^Betwe en ") ...W $S(I=4:$P ($G(^DIC(5 ,+$P(IBCAS E(I),"^",2 ),0)),"^") ,$P(IBCASE (I),"^",2) ="":"^'FIR ST'",1:$P( IBCASE(I), "^",2)) .. .I $P(IBCA SE(I),"^") ="R" W "^a nd ",$S($P (IBCASE(I) ,"^",3)="z zzzzz":"^' LAST'",1:$ P(IBCASE(I ),"^",3)) .; .W !,"A ctive/Inac tive^Insur ance Name^ Reimburse? ^Street Ad dress 1^St reet Addre ss 2^Stree t Address 3^City^Sta te^ZIP^Pho ne Number" ; IB*602/ HN end W @IOF,"Gene rate Insur ance Compa ny Listing s",?50,$$F MTE^XLFDT( $$NOW^XLFD T,"Z"),?70 ," Page ", IBPAGE W ! ,"List of ",$S(IBAIB =1:"Active ",IBAIB=2: "Inactive" ,1:"All"), " Insuranc e Companie s" ; ; - d isplay def inition of screens I $D(IBCASE ) W ", whe re" D .N I ,H .S (H,I )=0 F S I =$O(IBCASE (I)) Q:'I D ..W ! I H W ?3,"a nd" ..S H= 1 W ?8,IBF LD(I)," " ..W $S(I=4 :"Equals " ,$P(IBCASE (I),"^")=" C":"Contai ns ",1:"Be tween ") . .W $S(I=4: $P($G(^DIC (5,+$P(IBC ASE(I),"^" ,2),0)),"^ "),$P(IBCA SE(I),"^", 2)="":"'FI RST'",1:$P (IBCASE(I) ,"^",2)) . .I $P(IBCA SE(I),"^") ="R" W " a nd ",$S($P (IBCASE(I) ,"^",3)="z zzzzz":"'L AST'",1:$P (IBCASE(I) ,"^",3)) ; W !,"Insu rance Name /Address", ?33,"Reimb urse?",?56 ,"Phone Nu mber" W ! F IBX=1:1: 79 W "=" Q ;WRT ; Wr ite data l ines N IBA ,IBNA,IBOF F,IBACT,X, Y S IBQUIT =0 S IBA=" " F S IBA =$O(^TMP(" IBCOMD",$J ,IBA)) Q:( IBA="")!(I BQUIT=1) D .I IBPAGE ,(IBOUT="R ") D ASK I IBQUIT=1 Q .; Excel Output .I IBOUT="E" S IBACT=$ S(IBA=1:"I nactive",1 :"Active") .; Report Output .I IBOUT="R" D HD W !, $S(IBA=1:" Inactive C ompanies", 1:"Active Companies" ),! .S IBN A="" F S IBNA=$O(^T MP("IBCOMD ",$J,IBA,I BNA)) Q:(I BNA="")!(I BQUIT=1) D ..S IBDA= "" F S IB DA=$O(^TMP ("IBCOMD", $J,IBA,IBN A,IBDA)) Q :('IBDA)!( IBQUIT=1) D ...S IBT MP=^TMP("I BCOMD",$J, IBA,IBNA,I BDA) ...S IBOFF=$S($ P(IBTMP,U, 4)]""!($P( IBTMP,U,5) ]""):7,1:6 ) ...I ($Y +IBOFF)>IO SL,(IBOUT= "R") D I IBQUIT=1 Q ....D ASK I IBQUIT= 1 Q ....D HD ...S IB TMP=^TMP(" IBCOMD",$J ,IBA,IBNA, IBDA) ...; Excel Out put ...I I BOUT="E" W !,IBACT_U _IBTMP Q . ..; Report Output .. .W !!,$P(I BTMP,U,1), ?33,$P(IBT MP,U,2),?5 6,$P(IBTMP ,U,9) ...I $P(IBTMP, U,3)]"" W !,$P(IBTMP ,U,3) ...I $P(IBTMP, U,4)]""!($ P(IBTMP,U, 5)]"") W ! ,$P(IBTMP, U,4) W:$P( IBTMP,U,4) ]""&($P(IB TMP,U,5)]" ") ", " W $P(IBTMP,U ,5) ...W ! ,$P(IBTMP, U,6) W:$P( IBTMP,U,6) ]""&($P(IB TMP,U,7)]" ") ", " W $P(IBTMP,U ,7)," ",$P (IBTMP,U,8 ) I 'IBQUI T D ASK Q ; | |
142 | ||
143 | ||
144 | ||
145 | ||
146 | ||
147 | List New n ot Verifie d Policies | |
148 | ||
149 | Routines | |
150 | Activities | |
151 | Routine Na me | |
152 | IBCOC1 | |
153 | Enhancemen t Category | |
154 | New | |
155 | Modify | |
156 | Delete | |
157 | No Change | |
158 | RTM | |
159 | ||
160 | Related Op tions | |
161 | List New n ot Verifie d Policies [IBCN LIS T NEW NOT VER] | |
162 | Related Ro utines | |
163 | Routines “ Called By” | |
164 | Routines “ Called” | |
165 | ||
166 | ||
167 | ^%ZIS | |
168 | HOME^%ZIS | |
169 | ^%ZISC | |
170 | ^%ZTLOAD | |
171 | EN1^DIP | |
172 | $$GET1^DIQ | |
173 | ^DIR | |
174 | $$ZND^IBCN S1 | |
175 | ASK^IBCOMC 2 | |
176 | $$DAT1^IBO UTL | |
177 | DATE^IBOUT L | |
178 | ADD^VADPT | |
179 | DEM^VADPT | |
180 | $$FMTE^XLF DT | |
181 | Routines | |
182 | Activities | |
183 | Data Dicti onary (DD) Reference s | |
184 | ||
185 | Related Pr otocols | |
186 | ||
187 | Related In tegration Control Re gistration s (ICRs) | |
188 | ||
189 | Data Passi ng | |
190 | Input | |
191 | Output Re ference | |
192 | Both | |
193 | Global Re ference | |
194 | Local | |
195 | Input Attr ibute Name and Defin ition | |
196 | Name: | |
197 | Definition : | |
198 | Output Att ribute Nam e and Defi nition | |
199 | Name: | |
200 | Definition : | |
201 | Current Lo gic | |
202 | IBCOC1 ;AL B/NLR - NE W, NOT VER IFIED INS. ENTRIES ; 24-NOV-93 ;;2.0;INTE GRATED BIL LING;**528 **;21-MAR- 94;Build 1 63 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. | |
203 | Modified L ogic (Chan ges are in bold) | |
204 | IBCOC1 ;AL B/NLR - NE W, NOT VER IFIED INS. ENTRIES ; 24-NOV-93 ;;2.0;INTE GRATED BIL LING;**528 ,602**;21- MAR-94;Bui ld 163 ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified. | |
205 | Current Lo gic | |
206 | COMPXL ; C ompile Exc el data; I nput varia bles: ; IB RF - Requi red. Name Range Star t value ; IBRL - Req uired. Nam e Range Go To value ; IBBDT - Required. Begining E ntered Dat e Range ; IBEDT - Re quired. En ding Enter ed Date Ra nge ; N IB C,IBCDA,IB CDA0,IBCDA 1,IBSSN,IB INS,IBSUBI D,IBENDT,I BENUSR,DFN ,VA,VADM,V AERR,VAPA K ^TMP("IB COC1",$J) S IBC=0 F S IBC=$O( ^DPT("AB", IBC)) Q:'I BC D .S D FN=0 F S DFN=$O(^DP T("AB",IBC ,DFN)) Q:' DFN D ..K VA,VADM,V AERR,VAPA ..D DEM^VA DPT,ADD^VA DPT ..; .. ; I Pt. na me out of range quit ..S VADM( 1)=$P($G(V ADM(1)),U, 1) I VADM( 1)="" Q .. I VADM(1)] IBRL Q ..I IBRF]VADM (1) Q ..; ..S IBCDA= 0 F S IBC DA=$O(^DPT ("AB",IBC, DFN,IBCDA) ) Q:'IBCDA D ...S I BCDA0=$$ZN D^IBCNS1(D FN,IBCDA) ;516 - baa ...; ...; I Verific ation Date populated quit ...S IBCDA1=$G (^DPT(DFN, .312,IBCDA ,1)) ...I $P(IBCDA1, U,3) Q ... ; ...; I E ntered Dat e out of r ange quit ...I +$P(I BCDA1,U)>I BEDT Q ... I +$P(IBCD A1,U)<IBBD T Q ...; . ..; Get da ta fields ...S IBSSN =$$GET1^DI Q(2,DFN,.0 9) ...S IB INS=$$GET1 ^DIQ(2.312 ,IBCDA_"," _DFN_",",. 01) ...S I BSUBID=$$G ET1^DIQ(2. 312,IBCDA_ ","_DFN_", ",7.02) .. .S IBENUSR =$$GET1^DI Q(2.312,IB CDA_","_DF N_",",1.02 ) ...S IBE NDT=$$FMTE ^XLFDT($P( IBCDA1,U), 1) ...; .. .; Set glo bal array ...S ^TMP( "IBCOC1",$ J,VADM(1), IBCDA)=VAD M(1)_U_IBS SN_U_IBINS _U_IBSUBID _U_IBENUSR _U_IBENDT ; W "PATIE NT^PATIENT ID^INSURA NCE CO^SUB SCRIBER ID ^WHO ENTER ED^DATE EN TERED" I ' $D(^TMP("I BCOC1",$J) ) W !!,"** NO RECORD S FOUND ** " D ASK^IB COMC2 Q D WRT,ASK^IB COMC2 ; Q | |
207 | Modified L ogic (Chan ges are in bold) | |
208 | COMPXL ; C ompile Exc el data ; Input vari ables: ; I BRF - Requ ired. Name Range Sta rt value ; IBRL - Re quired. Na me Range G o To value ; IBBDT - Required. Begining Entered Da te Range ; IBEDT - R equired. E nding Ente red Date R ange ; N I BC,IBCDA,I BCDA0,IBCD A1,IBSSN,I BINS,IBSUB ID,IBENDT, IBENUSR,DF N,VA,VADM, VAERR,VAPA K ^TMP("I BCOC1",$J) S IBC=0 F S IBC=$O (^DPT("AB" ,IBC)) Q:' IBC D .S DFN=0 F S DFN=$O(^D PT("AB",IB C,DFN)) Q: 'DFN D .. K VA,VADM, VAERR,VAPA ..D DEM^V ADPT,ADD^V ADPT ..; . .; I Pt. n ame out of range qui t ..S VADM (1)=$P($G( VADM(1)),U ,1) I VADM (1)="" Q . .I VADM(1) ]IBRL Q .. I IBRF]VAD M(1) Q ..; ..S IBCDA =0 F S IB CDA=$O(^DP T("AB",IBC ,DFN,IBCDA )) Q:'IBCD A D ...S IBCDA0=$$Z ND^IBCNS1( DFN,IBCDA) ;516 - ba a ...; ... ; I Verifi cation Dat e populate d quit ... S IBCDA1=$ G(^DPT(DFN ,.312,IBCD A,1)) ...I $P(IBCDA1 ,U,3) Q .. .; ...; I Entered Da te out of range quit ...I +$P( IBCDA1,U)> IBEDT Q .. .I +$P(IBC DA1,U)<IBB DT Q ...; ...; Get d ata fields ...S IBSS N=$$GET1^D IQ(2,DFN,. 09) ...S I BINS=$$GET 1^DIQ(2.31 2,IBCDA_", "_DFN_",", .01) ...S IBSUBID=$$ GET1^DIQ(2 .312,IBCDA _","_DFN_" ,",7.02) . ..S IBENUS R=$$GET1^D IQ(2.312,I BCDA_","_D FN_",",1.0 2) ...S IB ENDT=$$FMT E^XLFDT($P (IBCDA1,U) ,1) ...; . ..; Set gl obal array ...S ^TMP ("IBCOC1", $J,VADM(1) ,IBCDA)=VA DM(1)_U_IB SSN_U_IBIN S_U_IBSUBI D_U_IBENUS R_U_IBENDT ; | |
209 | ;IB*2.0*6 02/??? Add title to Excel Repo rt W "REPO RT OF NEW, NOT VERIF IED INSURA NCE ENTRIE S FROM: ", $$DAT1^IBO UTL(IBBDT) ," TO: ",$ $DAT1^IBOU TL(IBEDT) W !,"NAMES RANGING F ROM ",$S(I BRF="A":"F IRST",1:IB RF)," TO " ,$S(IBRL=" zzzzzz":"L AST",1:IBR L),! | |
210 | ; IB*602/H N end W !, "PATIENT^P ATIENT ID^ INSURANCE CO^SUBSCRI BER ID^WHO ENTERED^D ATE ENTERE D" I '$D(^ TMP("IBCOC 1",$J)) W !!,"** NO RECORDS FO UND **" D ASK^IBCOMC 2 Q D WRT, ASK^IBCOMC 2 ; Q ; | |
211 | ||
212 | ||
213 | Revision H istory | |
214 | Date | |
215 | Version | |
216 | Descriptio n | |
217 | Author | |
218 | 03/09/2018 | |
219 | 1.0 | |
220 | Initial dr aft | |
221 | Henry Norm and | |
222 | 03/21/2018 | |
223 | 1.1 | |
224 | After Code Review | |
225 | Henry Norm and | |
226 | 11/29/2018 | |
227 | 1.2 | |
228 | After IOC Testing | |
229 | Henry Norm and | |
230 | ||
231 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.