Produced by Araxis Merge on 3/31/2017 1:06:30 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 | EPIP_submissions.zip\EPIP_submissions\docs\MC_2.3_46 | EPIP_Remediation_Plan_(MC_2.3_46).docx | Fri Mar 31 16:50:16 2017 UTC |
| 2 | EPIP_submissions.zip\EPIP_submissions\docs\MC_2.3_46 | EPIP_Remediation_Plan_(MC_2.3_46).docx | Fri Mar 31 17:52:16 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 4 | 636 |
| Changed | 3 | 6 |
| 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 | Existing P roduct Int ake Progra m (EPIP) | |
| 2 | Patch MC*2 .3*46 | |
| 3 | Remediatio n Plan | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | February 2 017 | |
| 7 | Version 3. 0 | |
| 8 | ||
| 9 | ||
| 10 | ||
| 11 | Revision H istory | |
| 12 | Date | |
| 13 | Version | |
| 14 | Descriptio n | |
| 15 | Author | |
| 16 | 02/15/2017 | |
| 17 | 3.0 | |
| 18 | Updated ro utine info rmation in section 5 .3, Append ix A, and Appendix B | |
| 19 | EPIP Proje ct Team | |
| 20 | 12/22/2016 | |
| 21 | 2.0 | |
| 22 | Updated en tire docum ent | |
| 23 | EPIP Proje ct Team | |
| 24 | 11/28/2016 | |
| 25 | 1.0 | |
| 26 | Initial ve rsion | |
| 27 | EPIP Proje ct Team | |
| 28 | ||
| 29 | ||
| 30 | ||
| 31 | ||
| 32 | Table of C ontents | |
| 33 | 1.Introduc tion1 | |
| 34 | 2.Purpose1 | |
| 35 | 3.Patch De scription1 | |
| 36 | 3.1.Needs and Requir ements1 | |
| 37 | 4.Points o f Contact2 | |
| 38 | 5.Code Rem ediation2 | |
| 39 | 5.1.Standa rds and Co nventions2 | |
| 40 | 5.2.Review and Analy sis2 | |
| 41 | 5.3.Coding Changes2 | |
| 42 | 6.Testing2 | |
| 43 | 6.1.Test P lan3 | |
| 44 | 6.2.Test E nvironment 3 | |
| 45 | 6.3.Test R eadiness R eview3 | |
| 46 | 6.4.Testin g Phases3 | |
| 47 | 6.4.1.Unit Testing3 | |
| 48 | 6.4.2.Comp onent Inte gration an d Systems Testing (C I/ST)4 | |
| 49 | 6.4.3.Func tional Tes ting4 | |
| 50 | 6.4.4.Regr ession Tes ting4 | |
| 51 | 6.4.5.Sect ion 508 Co mpliance T esting4 | |
| 52 | 7.Document ation Reme diation4 | |
| 53 | 7.1.User G uides4 | |
| 54 | 7.2.Instal lation Gui des5 | |
| 55 | 7.3.Techni cal Manual s5 | |
| 56 | 7.4.Operat ions Manua ls5 | |
| 57 | 8.Project Reporting5 | |
| 58 | 9.Project Schedule5 | |
| 59 | 10.Deploym ent5 | |
| 60 | 11.Sustain ment Requi rements5 | |
| 61 | 12.Mainten ance and K nowledge T ransfer5 | |
| 62 | Appendix A :XINDEX Li sting for MUMPS Code Changes6 | |
| 63 | Appendix B :Source Co de Changes 9 | |
| 64 | ||
| 65 | ||
| 66 | ||
| 67 | Introducti on | |
| 68 | The Depart ment of Ve terans Aff airs (VA) currently utilizes t he Veteran s Health I nformation Systems a nd Technol ogy Archit ecture (Vi stA) suite of applic ations to provide cl inical, fi nancial, i nfrastruct ure, and m anagement tools. The process o f advancin g “Class 3 ” field-de veloped Vi stA softwa re to “Cla ss 1” nati onally-dis tributed s tatus is r eferred to as the Ex isting Pro duct Intak e Program (EPIP). Th e VA’s goa l is to su pplement o ngoing act ivities as sociated w ith evalua ting and a dvancing f ield-devel oped softw are to a s tate that meets nati onal stand ards and f acilitates release f or Veteran s Health A dministrat ion (VHA)- wide use. | |
| 69 | Purpose | |
| 70 | The purpos e of this document i s to fully describe the remedi ation plan to be use d for the successful remediati on of the intake pro duct code to be depl oyed as pa tch MC*2.3 *46. This patch addr esses the following NSR: | |
| 71 | NSR 201604 18 Fix PFT Report Ca lculations | |
| 72 | This NSR h as been im plemented locally at the VA Me dical Cent ers in Mil waukee, WI and Washi ngton, DC. | |
| 73 | This docum ent addres ses the sc hedule, co de remedia tion, test ing, docum entation, and delive ry of this remediati on effort. | |
| 74 | Patch Desc ription | |
| 75 | Patch MC*2 .3*46 amen ds code fr om VistA p atch MC*2. 3*25 that provided i nvalid dif fusion cal culations (inflated calculatio n of perce nt of pred icted) in the Pulmon ary Functi on Test Re port. Thes e erroneou s calculat ions made significan tly abnorm al Diffusi ng Capacit y of the L ungs for C arbon Mono xide (DLCO ) measurem ents appea r as if th ey were no rmal, enda ngering th e health o f patients . | |
| 76 | Following release of MC*2.3*25 , the Offi ce of Info rmation & Technology (OI&T) de veloped co de to corr ect this c alculation error and provided it to some VA sites. The code was suppos ed to be r eleased na tionally i n a Medici ne package patch; ho wever, the patch was not relea sed becaus e the Medi cine packa ge was pla ced in Mai ntenance. | |
| 77 | Needs and Requiremen ts | |
| 78 | The Needs and Requir ements for the NSR a ddressed i n this rem ediation a re: | |
| 79 | NSR 201604 18 Fix PFT Report Ca lculations : | |
| 80 | NEED 72057 7: Pulmona ry Calcula tions - As a provide r I need a utomatic p ulmonary c alculation s from the Pulmonary Function Tests perf ormed on m y patients so that I can have accurate d ata to use when prov iding care to my pat ients. | |
| 81 | REQUIREMEN T 720610: Specific V alues For the PFT - As a clini cian, I ne ed the val ues for th e Corr DLC O for HB & COHB on t he PFT Rep ort to acc urately re port abnor mal values in order to ensure patient sa fety. | |
| 82 | Points of Contact | |
| 83 | The VA Poi nt of Cont act (POC) for NSR 20 160418 Fix PFT Repor t Calculat ions is
|
|
| 84 | Code Remed iation | |
| 85 | Leidos wil l review a nd analyze the intak e product code for c ompliance with codin g standard s, pointer s, shared tables, de pendencies , and any interferen ce with Vi stA system s. | |
| 86 | Standards and Conven tions | |
| 87 | Leidos wil l referenc e the
|
|
| 88 | The MUMPS coding sta ndards web site http: //71.174.6 2.16/Demo/ AnnoStd wi ll also be used to e nsure that the remed iated code conforms to VA stan dards. | |
| 89 | Review and Analysis | |
| 90 | Review and analysis of this in take produ ct involve s two part s: 1) veri fication t hat the so urce code changes sp ecified in this docu ment provi de the des ired effec t, and 2) verificati on that th e source c ode change s do not a dversely a ffect any other Vist A or CPRS functional ity. | |
| 91 | Testing wi ll be perf ormed to v alidate th at the int ended effe ct of thes e products is implem ented, and that no o ther VistA or CPRS G raphical U ser Interf ace (GUI) functional ity is adv ersely aff ected. | |
| 92 | Coding Cha nges | |
| 93 | The coding changes r equired fo r NSR 2016 0418 Fix P FT Report Calculatio ns are in the follow ing MUMPS routines: | |
| 94 | Modified r outines: M CPFTP2A | |
| 95 | New routin es: None | |
| 96 | A detailed analysis of the cod ing change s is provi ded in App endix B. | |
| 97 | Testing | |
| 98 | Leidos wil l perform all testin g-related activities to ensure that the remediated code meet s the expe ctations o f the VA b usiness ow ner. | |
| 99 | Test Plan | |
| 100 | Leidos wil l configur e the test environme nt, provid e code mod ifications and end-t o-end test ing, and d eliver app licable te sting docu mentation, following Veteran-f ocused Int egration P rocess (VI P) guideli nes.. | |
| 101 | The Leidos developer will modi fy the sof tware purs uant to th e VA stand ards defin ed in the Standards and Conven tions sect ion of thi s document , and will conduct f ull unit t esting of the functi onality an d verify p erformance of all so ftware cod e before i t is relea sed to Lei dos SQA. S QA will th en perform all appli cable test ing types as describ ed in the Testing Ph ases secti on of this document. The devel oper and S QA will re solve prob lems and a ddress iss ues as the y arise du ring testi ng and wil l document issues us ing the Ra tional Tea m Concert (RTC) defe ct trackin g tool. | |
| 102 | Test Envir onment | |
| 103 | Within fiv e working days of ap proval of this Remed iation Pla n, the dev eloper wil l configur e the deve lopment/te st environ ment on an Austin In formation Technology Center (A ITC) serve r or other VA-approv ed develop ment/test environmen t used for this inta ke product and insta ll the rem ediated Ke rnel Insta llation an d Distribu tion Syste m (KIDS) b uild. The environmen t will be restored t o its orig inal basel ine state by the Vis tA system administra tor after developmen t testing is complet ed, follow ed by inst allation o f the reme diated sof tware. | |
| 104 | Upon notif ication fr om the dev eloper of test envir onment rea diness, SQ A will com mence with planned t esting act ivities. T he SQA tes t executio n and repo rting docu mentation will resid e in the R ational Qu ality Mana ger (RQM) “EPIP” Pro ject. In o rder to pe rform test ing of thi s VistA mo dification , the foll owing tool s will be leveraged: RQM, Refl ections em ulator, CP RS GUI v31 (1.0.30.7 5), and Sn agIt. | |
| 105 | Test Readi ness Revie w | |
| 106 | Leidos wil l conduct a Test Rea diness Rev iew (TRR) at the con clusion of unit test ing to ver ify the co ntents of the softwa re to be t ested, the test sche dule, test environme nts, test participan ts, and as sociated l ogistics. Leidos wil l provide an agenda prior to t he TRR and written m inutes aft er complet ion of the TRR, in a ccordance with the P erformance Work Stat ement (PWS ). | |
| 107 | Testing Ph ases | |
| 108 | Leidos wil l perform developmen t and SQA testing ac tivities i n phases, and will p rovide all required testing do cumentatio n. | |
| 109 | Unit Testi ng | |
| 110 | The develo per will c onduct uni t testing of individ ual units of source code to de termine if they are fit for us e. | |
| 111 | Component Integratio n and Syst ems Testin g (CI/ST) | |
| 112 | Component integratio n and syst ems testin g will be conducted by SQA to ensure tha t connecti vity to th e VistA ap plication exists and is functi oning norm ally. SQA will recor d Passed/F ailed outc omes and c apture dis played con tent to do cument the system te sting effo rt. | |
| 113 | Functional Testing | |
| 114 | Functional testing w ill be per formed by SQA to tes t the code modificat ions. This testing w ill ensure that the software f unctionali ty is in a lignment w ith the Go vernment F urnished I nformation . SQA will record Pa ssed/Faile d outcomes and captu re display ed content to docume nt the fun ctional te sting effo rt. | |
| 115 | Regression Testing | |
| 116 | Regression Testing w ill be per formed by SQA to ens ure that t he remedia ted code d oes not in troduce er rors to ex isting fun ctionality . The regr ession tes t framewor k will be kept up-to -date with manual te st cases a nd test sc ripts defi ning the i nputs and expected o utcomes. S QA will re cord Passe d/Failed o utcomes an d capture displayed content to document the regres sion testi ng effort. | |
| 117 | Section 50 8 Complian ce Testing | |
| 118 | Section 50 8 Testing will be pe rformed on VistA and CPRS code when new CPRS GUI c hanges are introduce d by the d eveloper. The VA-rec ommended A ssistive T echnology tool, JAWS , will be used to co nduct the 508 testin g. Test re sults and related do cumentatio n will be submitted to the VA Section 50 8 team in accordance with the VA 508 tes ting requi rements. D efects fou nd during testing wi ll be asse ssed and r emediated by the dev eloper. | |
| 119 | Documentat ion Remedi ation | |
| 120 | Leidos wil l review e xisting VA documenta tion for p ossible im pact as a result of this remed iation eff ort, and w ill make u pdates whe re applica ble. | |
| 121 | To determi ne the exi sting VA d ocumentati on that re quires mod ification, Leidos wi ll conduct a thoroug h review o f the docu ments curr ently avai lable from the VA So ftware Doc ument Libr ary (VDL) located at
|
|
| 122 | The follow ing sectio ns outline the VDL d ocuments t o be revis ed for thi s remediat ion. | |
| 123 | User Guide s | |
| 124 | No User Gu ides requi re revisio n as a res ult of thi s modifica tion. | |
| 125 | Installati on Guides | |
| 126 | The Nation al Patch M odule Patc h Descript ion docume nt for thi s remediat ion will p rovide the procedure for insta lling KIDS packages migrated f rom the te st environ ment to th e VA Pre-P roduction environmen ts. Theref ore, no In stallation Guides wi ll be upda ted. | |
| 127 | Technical Manuals | |
| 128 | No Technic al Manuals require r evision as a result of this mo dification . | |
| 129 | Operations Manuals | |
| 130 | No Operati ons Manual s require revision a s a result of this m odificatio n. | |
| 131 | Project Re porting | |
| 132 | Leidos wil l provide interim pr ogress upd ates durin g daily Sc rum calls and weekly managemen t calls wi th VA repr esentative s. | |
| 133 | Project Sc hedule | |
| 134 | Leidos wil l follow t he Scrum A gile metho dology for software developmen t. It is a nticipated that this patch wil l require five 2-wee k sprints. | |
| 135 | Deployment | |
| 136 | Leidos wil l create a KIDS pack age contai ning the s oftware ch anges nece ssary to f ulfill the requireme nts for th is remedia tion effor t. A KIDS package, a long with all relate d document ation, wil l be deliv ered to th e Contract ing Office Represent ative (COR ) for acce ptance. If accepted, the KIDS package ca n then be released f or nationa l VA consu mption; ot herwise, L eidos will correct a ny defects found and repeat th e necessar y remediat ion activi ties. | |
| 137 | Sustainmen t Requirem ents | |
| 138 | Leidos wil l provide maintenanc e support for 60 day s to the V A to suppo rt the fin al Class 1 product a fter it is nationall y released . | |
| 139 | Maintenanc e and Know ledge Tran sfer | |
| 140 | To facilit ate contin uous proce ss improve ment, Leid os will de liver Spri nt Review and Retros pective sl ides and a Lessons L earned Rep ort to VA upon compl etion of t he final s print. | |
| 141 | XINDEX Lis ting for M UMPS Code Changes | |
| 142 | The XINDEX tool is t he standar d tool use d by the V A to analy ze MUMPS s ource code . Followin g is a lis ting of th e results of the XIN DEX analys is of the affected r outines. | |
| 143 | V . A. C R O S S R E F E R E N C E R 7. 3 | |
| 144 | [2008 V A Standard s & Conven tions] | |
| 145 | UC I: VISTA C PU: ROU Jan 17, 2 017@16:10: 25 | |
| 146 | ||
| 147 | The BUILD file Data Dictionari es are bei ng process ed. | |
| 148 | ||
| 149 | The option and funct ion files are being processed. | |
| 150 | ||
| 151 | ||
| 152 | ||
| 153 | Routines a re being p rocessed. | |
| 154 | Routines: 1 Faux Ro utines: 0 | |
| 155 | ||
| 156 | NURSCPLC | |
| 157 | ||
| 158 | --- CROSS REFERENCIN G --- | |
| 159 | ||
| 160 | Press r eturn to c ontinue: | |
| 161 | ||
| 162 | ||
| 163 | ||
| 164 | Compiled l ist of Err ors and Wa rnings Jan 17, 20 17@16:10:2 5 page 1 | |
| 165 | No errors or warning s to repor t | |
| 166 | ||
| 167 | ||
| 168 | --- Routin e Detail - -- | |
| 169 | ||
| 170 | ***** IN DEX OF NUR SCPLC ** *** | |
| 171 | ||
| 172 | ||
| 173 | Local Vari ables Line Occu rrences ( >> not k illed expl icitly) | |
| 174 | ( * Change d ! Kille d ~ Newed ) | |
| 175 | >> DFN STAR T+2*,START +3*,SORT+1 0,NQ*,PRIN T1+1,PRINT 1+2 | |
| 176 | >> DIC(0 EN2+ 4* | |
| 177 | DT HEAD ER+6 | |
| 178 | IO STAR T+1 | |
| 179 | IOF STAR T+4,HEADER +4 | |
| 180 | IOSL PRIN T1+2 | |
| 181 | IOST STAR T+2,START+ 3,START+4, START+5,HE ADER+1,HEA DER+4 | |
| 182 | >> N1 SORT +6*,SORT+1 0,NP*,NQ,P RINT1+2 | |
| 183 | >> NBED SORT +6*,SORT+1 0,NO*,NP,N Q,PRINT1+2 | |
| 184 | >> NCOPY STAR T+4 | |
| 185 | >> NL1 HEAD ER+2,PRINT +1*,PRINT+ 2*,PRINT+5 *,NN* | |
| 186 | >> NPWARD STAR T+2* | |
| 187 | >> NSEC PRIN T1+1*,PRIN T1+2 | |
| 188 | >> NURCAT PRIN T1+2,FNDCL AS* | |
| 189 | >> NURFAC SORT +3,PRINT+1 ,PRINT+6 | |
| 190 | >> NURFAC( 1 SORT +3,PRINT+1 ,PRINT+6 | |
| 191 | >> NURFAC( 2 SORT +1*,SORT+3 ,SORT+8,SO RT+9,HEADE R+5,PRINT+ 1*,PRINT+6 * | |
| 192 | PRIN T+9*,NM,NN | |
| 193 | >> NURHOSP STAR T+2,HEADER +5 | |
| 194 | >> NURI STAR T+4* | |
| 195 | >> NURIEN STAR T+2*,START +3*,SORT+1 ,SORT+2 | |
| 196 | >> NURMDSW EN2+ 2*,EN2+4,E N2+5,SORT+ 3,HEADER+5 | |
| 197 | >> NUROUT EN2+ 4,EN2+5,EN 2+6,EN2+7* ,START+1*, HEADER+1,P RINT+9,NM, NN,NO,NP | |
| 198 | NQ,P RINT1+2 | |
| 199 | >> NURPAGE STAR T+1*,START +4*,HEADER +4*,HEADER +6 | |
| 200 | >> NURPLCS R EN2+ 5* | |
| 201 | NURPLSC R EN2+ 4*!,EN2+5! | |
| 202 | >> NURPLSW EN2+ 2*,EN2+5,S ORT+4,PROD | |
| 203 | >> NURPROG SORT +4,PRINT+1 ,PRINT+2,P RINT+6 | |
| 204 | >> NURPROG (1 SORT +4,PRINT+1 ,PRINT+2,P RINT+6 | |
| 205 | >> NURPROG (4 SORT +2*,SORT+4 ,SORT+8,SO RT+9,PROD, PRINT+1*,P RINT+2*,PR INT+6* | |
| 206 | NM*, NN | |
| 207 | >> NURQUEU E EN2+ 2*,HEADER+ 1 | |
| 208 | >> NURQUIT EN2+ 2*,EN2+7 | |
| 209 | >> NURSCLA S FNDC LAS | |
| 210 | >> NURSCLA S("CL" | |
| 211 | FNDC LAS* | |
| 212 | >> NURSHD HEAD ER+2*,HEAD ER+6 | |
| 213 | >> NURSNLO C PRIN T+1,PRINT+ 2,PRINT+3 | |
| 214 | >> NURSNLO C( STAR T+3,PRINT+ 2,PRINT+5 | |
| 215 | >> NURSORT SORT +7*,SORT+9 *,NN*,NO,N P,NQ,PRINT 1+2 | |
| 216 | >> NURSW1 STAR T+1*,START +4*,HEADER +1,HEADER+ 3*,PRINT+2 *,PRINT+3* ,PRINT+6* | |
| 217 | PRIN T+9*,PRINT 1+2 | |
| 218 | >> NURSWAR D STAR T+2*,START +3*,SORT+8 ,SORT+9 | |
| 219 | >> NURSX PRIN T1+2 | |
| 220 | >> NURSZAP EN2+ 2* | |
| 221 | >> NURX PRIN T+4* | |
| 222 | >> NURY PRIN T+4* | |
| 223 | >> NURZ PRIN T+4* | |
| 224 | >> POP EN2+ 8 | |
| 225 | >> SSN PRIN T1*,PRINT1 +2 | |
| 226 | U SORT +2 | |
| 227 | >> VA("BID " PRIN T1 | |
| 228 | VADM SORT +11! | |
| 229 | VADM(1 SORT +6 | |
| 230 | VAIN SORT +11! | |
| 231 | VAIN(5 SORT +6 | |
| 232 | X SORT +8~*,SORT+ 9*,SORT+10 | |
| 233 | >> ZTDESC EN2+ 8* | |
| 234 | >> ZTRTN EN2+ 8* | |
| 235 | >> ZTSK EN2+ 8 | |
| 236 | ||
| 237 | Global Var iables ( * Changed ! Killed) | |
| 238 | ^DIC(21 3.9 EN2+1 | |
| 239 | ^DPT( SORT+10 | |
| 240 | ^NURSA( 214.6 FNDCLAS | |
| 241 | ^NURSF( 211.4 SORT+2 | |
| 242 | ^NURSF( 213.3 PRINT1+ 1 | |
| 243 | ^NURSF( 214 START+2 ,START+3,P RINT1+1 | |
| 244 | ^TMP($J START+1 !,SORT+8,S ORT+9*,SOR T+10*,HEAD ER+2,PRINT +1 | |
| 245 | PRINT+2 ,PRINT+3,P RINT+4,PRI NT+5,PRINT +9,NM,NN,N O,NP,NQ | |
| 246 | PRINT1+ 2 | |
| 247 | ||
| 248 | Naked Glob als | |
| 249 | ^(0 PRIN T1+1 | |
| 250 | ||
| 251 | Cache Obje cts | |
| 252 | NONE | |
| 253 | ||
| 254 | Marked Ite ms | |
| 255 | NONE | |
| 256 | ||
| 257 | Label Refe rences | |
| 258 | FNDCLAS PRIN T1+1 | |
| 259 | HEADER PRIN T+1,PRINT+ 2,PRINT+6, NN,PRINT1+ 2 | |
| 260 | NM PRIN T+9 | |
| 261 | NN NM | |
| 262 | NO NN | |
| 263 | NP NO | |
| 264 | NQ NP | |
| 265 | PRINT STAR T+4,START+ 5 | |
| 266 | PRINT1 NQ | |
| 267 | QUIT EN2+ 4,EN2+5,EN 2+6,EN2+7, EN2+8 | |
| 268 | SORT STAR T+2,START+ 3 | |
| 269 | ||
| 270 | External R eferences | |
| 271 | $$GET1^ DIQ SORT+2 | |
| 272 | EN1^NUR SAGSP EN2+6 | |
| 273 | EN5^NUR SAGSP EN2+4 | |
| 274 | EN9^NUR SAGSP EN2+3 | |
| 275 | PRD^NUR SAGSP EN2+5 | |
| 276 | ^NURSAP CH PRINT1 | |
| 277 | EN6^NUR SAUTL START+2 | |
| 278 | EN2^NUR SCUTL FNDCLAS | |
| 279 | EN6^NUR SCUTL FNDCLAS | |
| 280 | ^NURSKI LL QUIT+1 | |
| 281 | EN6^NUR SUT0 EN2+7 | |
| 282 | EN7^NUR SUT0 EN2+8 | |
| 283 | CLOSE^N URSUT1 QUIT+1 | |
| 284 | ENDPG^N URSUT1 HEADER+ 1,PRINT+3 | |
| 285 | NODATA^ NURSUT1 PRINT+2 ,PRINT+6 | |
| 286 | $$CNTR^ NURSUT2 HEADER+ 5,PROD | |
| 287 | $$EN12^ NURSUT3 SORT+1 | |
| 288 | 1^VADPT SORT+5 | |
| 289 | DEM^VAD PT PRINT1 | |
| 290 | $$REPEA T^XLFSTR HEADER+ 8,PROD | |
| 291 | ||
| 292 | ***** EN D ***** | |
| 293 | ||
| 294 | ||
| 295 | Source Cod e Changes | |
| 296 | This appen dix displa ys the Vis tA code be fore and a fter the u pdates req uired for this code modificati on were im plemented. The follo wing routi nes were a ffected: | |
| 297 | Modified r outines: M CPFTP2A | |
| 298 | New routin es: None | |
| 299 | MCPFTP2A | |
| 300 | Before: | |
| 301 | HB G ABG:$ P(MCHB,U)= "" S MCHB= $G(^MCAR(7 00.2,MCHB, 0)) G ABG: MCHB="" | |
| 302 | S HB="",I =0 F S I= $O(^MCAR(7 00,MCARGDA ,6,I)) Q:I '?1N.N I $D(^(I,0)) ,$P(^(0),U ,2) S HB=$ P(^(0),U,2 ) | |
| 303 | ;G ABG:HB '<11,ABG:' HB X "S MC HB="_$P(MC HB,U) | |
| 304 | G ABG:'HB X "S MCHB ="_$P(MCHB ,U) | |
| 305 | ;W !,"Cor rected DLC O for HB: ",$J(MCHB, 8,2) | |
| 306 | W !,"Corr DLCO for HB & COHB: ",?19,$J(M CIDL,6,2), ?32,$J(MCH B,8,2),?42 ,$S(MCIDL' =0:$J(MCHB /MCIDL*100 ,8,1),1:"" ) | |
| 307 | ABG K HB,C OHB,MCHB,M CCOHB G ^M CPFTP3 | |
| 308 | PRTLINE S MCP1=$G(MC P1),MCP2=$ G(MCP2) | |
| 309 | W !,?5,ME AS,?15,UNI TS,?25,$S( PRED:$J(PR ED,MCLNG,M CDL),1:"") ,?35,$J(AC T,MCLNG,MC DL),?45,$S (PRED:$J(A CT/PRED*10 0,5,1),1:" ") W:$P(MC P1,U,PC) ? 55,$J($P(M CP1,U,PC), MCLNG,MCDL ) W:$P(MCP 2,U,PC) ?6 5,$J($P(MC P2,U,PC),M CLNG,MCDL) | |
| 310 | W:(CI95)& (CI95'=PRE D) ?72,$J( CI95,6,2) X MCFF Q | |
| 311 | MCFF1 X MC FF Q | |
| 312 | After: | |
| 313 | HB G ABG:$ P(MCHB,U)= "" S MCHB= $G(^MCAR(7 00.2,MCHB, 0)) G ABG: MCHB="" | |
| 314 | S HB="",I =0 F S I= $O(^MCAR(7 00,MCARGDA ,6,I)) Q:I '?1N.N I $D(^(I,0)) ,$P(^(0),U ,2) S HB=$ P(^(0),U,2 ) | |
| 315 | G ABG:'HB X "S MCHB ="_$P(MCHB ,U) | |
| 316 | W !,"Corr DLCO for HB & COHB: ",?19,$J(P RED,6,2),? 32,$J(MCHB ,8,2),?42, $S(+PRED'= 0:$J(MCHB/ PRED*100,8 ,1),1:"") | |
| 317 | ABG K HB,C OHB,MCHB,M CCOHB G ^M CPFTP3 | |
| 318 | PRTLINE S MCP1=$G(MC P1),MCP2=$ G(MCP2) | |
| 319 | W !,?5,ME AS,?15,UNI TS,?25,$S( PRED:$J(PR ED,MCLNG,M CDL),1:"") ,?35,$J(AC T,MCLNG,MC DL),?45,$S (PRED:$J(A CT/PRED*10 0,5,1),1:" ") W:$P(MC P1,U,PC) ? 55,$J($P(M CP1,U,PC), MCLNG,MCDL ) W:$P(MCP 2,U,PC) ?6 5,$J($P(MC P2,U,PC),M CLNG,MCDL) | |
| 320 | W:(CI95)& (CI95'=PRE D) ?72,$J( CI95,6,2) X MCFF Q | |
| 321 | MCFF1 X MC FF Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.