Produced by Araxis Merge on 3/31/2017 1:06:32 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\NUR_4.0_44 | EPIP_Remediation_Plan_(NUR_4.0_44)_201612.docx | Fri Mar 31 16:50:52 2017 UTC |
| 2 | EPIP_submissions.zip\EPIP_submissions\docs\NUR_4.0_44 | EPIP_Remediation_Plan_(NUR_4.0_44)_201612.docx | Fri Mar 31 17:53:55 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 4 | 674 |
| Changed | 3 | 8 |
| 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 NUR* 4.0*44 | |
| 3 | Remediatio n Plan | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | December 2 016 | |
| 7 | Version 2. 0 | |
| 8 | ||
| 9 | Revision H istory | |
| 10 | Date | |
| 11 | Version | |
| 12 | Descriptio n | |
| 13 | Author | |
| 14 | 12/22/2016 | |
| 15 | 2.0 | |
| 16 | Updated en tire docum ent | |
| 17 | EPIP Proje ct team | |
| 18 | 11/28/2016 | |
| 19 | 1.0 | |
| 20 | Initial (D raft) vers ion | |
| 21 | EPIP Proje ct Team | |
| 22 | ||
| 23 | Table of C ontents | |
| 24 | 1.Introduc tion1 | |
| 25 | 2.Purpose1 | |
| 26 | 3.Patch De scription1 | |
| 27 | 3.1.Needs and Requir ements2 | |
| 28 | 4.Points o f Contact2 | |
| 29 | 5.Code Rem ediation2 | |
| 30 | 5.1.Standa rds and Co nventions2 | |
| 31 | 5.2.Review and Analy sis3 | |
| 32 | 5.3.Coding Changes3 | |
| 33 | 6.Testing3 | |
| 34 | 6.1.Test P lan3 | |
| 35 | 6.2.Test E nvironment 3 | |
| 36 | 6.3.Test R eadiness R eview4 | |
| 37 | 6.4.Testin g Phases4 | |
| 38 | 6.4.1.Unit Testing4 | |
| 39 | 6.4.2.Comp onent Inte gration an d Systems Testing (C I/ST)4 | |
| 40 | 6.4.3.Func tional Tes ting4 | |
| 41 | 6.4.4.Regr ession Tes ting4 | |
| 42 | 6.4.5.Sect ion 508 Co mpliance T esting5 | |
| 43 | 7.Document ation Reme diation5 | |
| 44 | 7.1.User G uides5 | |
| 45 | 7.2.Instal lation Gui des5 | |
| 46 | 7.3.Techni cal Manual s5 | |
| 47 | 7.4.Operat ions Manua ls5 | |
| 48 | 8.Project Reporting5 | |
| 49 | 9.Project Schedule5 | |
| 50 | 10.Deploym ent6 | |
| 51 | 11.Sustain ment Requi rements6 | |
| 52 | 12.Mainten ance and K nowledge T ransfer6 | |
| 53 | Appendix A :XINDEX Li sting for MUMPS Code Changes7 | |
| 54 | Appendix B :Source Co de Changes 10 | |
| 55 | ||
| 56 | ||
| 57 | ||
| 58 | Introducti on | |
| 59 | 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. | |
| 60 | Purpose | |
| 61 | 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 NUR*4. 0*44. This patch add resses the following NSRs: | |
| 62 | NSR2016020 4 Identify Patients Opting Out of Direct ory on War d Census P rint | |
| 63 | This NSR h as been im plemented locally at the VA Me dical Cent er in San Diego CA. | |
| 64 | NSR2016020 5 Truncate SSN on Wa rd Census Print Opti on | |
| 65 | This NSR h as been im plemented locally at VA Medica l Centers in West Pa lm Beach a nd Gainesv ille FL, N orthport M I, and the VA New Je rsey Healt h Care Sys tem. | |
| 66 | This docum ent addres ses the sc hedule, co de remedia tion, test ing, docum entation, and delive ry of this remediati on effort. | |
| 67 | Patch Desc ription | |
| 68 | NUR*4.0*44 provides the follow ing enhanc ements to VistA: | |
| 69 | Enables th e Ward sta ff to see which pati ents have opted out of the fac ility dire ctory when using the Ward Cens us, Print (NURSPP-LO CWRD) opti on in Vist A. This mo dification adds the indicator "! " in fr ont of a p atient's n ame in the Patient C ensus repo rt when th at patient has opted out of th e facility directory . | |
| 70 | Currently, this indi cator is d isplayed o n the Inpa tient Rost er; howeve r, on the Patient Ce nsus repor t there is no indica tion that the patien t has opte d out of t he facilit y director y, which p resents a patient pr ivacy issu e. | |
| 71 | Modifies t he Ward Ce nsus, Prin t option i n VistA to truncate a patient’ s Social S ecurity Nu mber (SSN) to displa y only the last four digits on the Patie nt Census report. Th is modific ation also changes t he column header on the Patien t Census r eport from "SSN" to "Last 4" t o reflect the data d isplayed i n the colu mn. | |
| 72 | Currently, the Patie nt Census report dis plays the patient’s full SSN, which pres ents a pat ient priva cy issue. | |
| 73 | Needs and Requiremen ts | |
| 74 | The Needs and Requir ements for the NSRs addressed in this re mediation are: | |
| 75 | NSR2016020 4 Identify Patients Opting Out of Direct ory on War d Census P rint | |
| 76 | NEED 66848 6: Patient s That Opt ed Out Of The Facili ty Directo ry - As a user of va rious repo rts that c ontain pat ient names I need so me way of knowing wh ich patien ts have op ted out of being lis ted in the facility directory so that I can protec t the pati ent's info rmation ap propriatel y. | |
| 77 | REQUIREMEN T 668488: Identify P atients Op ting Out O f Facility Directory Listed On Ward Cens us Print - As ward s taff, I ne ed to be a ble to ide ntify pati ents who h ave opted out of the facility directory when I vie w the Ward Census Pr int to pro tect the p atient's i nformation appropria tely. | |
| 78 | NSR2016020 5 Truncate SSN on Wa rd Census Print Opti on | |
| 79 | NEED 68679 4: Display Last 4 Of SSN On Wa rd Reports | |
| 80 | REQUIREMEN T 686795: Display La st 4 of SS N - As a u ser of war d reports I need the Ward Cens us, Print option to display on ly the las t 4 number s of the p atient’s S SN so that the patie nt’s perso nal identi fying info rmation an d privacy is protect ed. | |
| 81 | Points of Contact | |
| 82 | The VA Poi nt of Cont act (POC) for NSR201 60204 Iden tify Patie nts Opting Out of Di rectory on Ward Cens us Print
|
|
| 83 | The VA POC for NSR20 160205 Tru ncate SSN on Ward Ce nsus Print Option
|
|
| 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 NSR20160 204 Identi fy Patient s Opting O ut of Dire ctory on W ard Census Print are in the fo llowing MU MPS routin es: | |
| 94 | Modified r outines: N URSCPLC | |
| 95 | New routin es: None | |
| 96 | The coding changes r equired fo r NSR20160 205 Trunca te SSN on Ward Censu s Print Op tion are i n the foll owing MUMP S routines : | |
| 97 | Modified r outines: N URSCPLC | |
| 98 | New routin es: None | |
| 99 | A detailed analysis of the cod ing change s is provi ded in App endix B. | |
| 100 | Testing | |
| 101 | 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. | |
| 102 | Test Plan | |
| 103 | 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. | |
| 104 | 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. | |
| 105 | Test Envir onment | |
| 106 | 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. | |
| 107 | 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. | |
| 108 | Test Readi ness Revie w | |
| 109 | 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 ). | |
| 110 | Testing Ph ases | |
| 111 | Leidos wil l perform developmen t and SQA testing ac tivities i n phases, and will p rovide all required testing do cumentatio n. | |
| 112 | Unit Testi ng | |
| 113 | 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. | |
| 114 | Component Integratio n and Syst ems Testin g (CI/ST) | |
| 115 | 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. | |
| 116 | Functional Testing | |
| 117 | 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. | |
| 118 | Regression Testing | |
| 119 | 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. | |
| 120 | Section 50 8 Complian ce Testing | |
| 121 | 508 Testin g will be performed on VistA a nd CPRS co de when ne w CPRS GUI changes a re introdu ced by the developer . The VA-r ecommended Assistive Technolog y tool, JA WS, will b e used to conduct th e 508 test ing. Test results an d related documentat ion will b e submitte d to the V A Section 508 team i n accordan ce with th e VA 508 t esting req uirements. Defects f ound durin g testing will be as sessed and remediate d by the d eveloper. | |
| 122 | Documentat ion Remedi ation | |
| 123 | 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. | |
| 124 | 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
|
|
| 125 | The follow ing sectio ns outline the VDL d ocuments t o be revis ed for thi s remediat ion. | |
| 126 | User Guide s | |
| 127 | No User Gu ides requi re revisio n as a res ult of thi s modifica tion. | |
| 128 | Installati on Guides | |
| 129 | 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. | |
| 130 | Technical Manuals | |
| 131 | No Technic al Manuals require r evision as a result of this mo dification . | |
| 132 | Operations Manuals | |
| 133 | No Operati ons Manual s require revision a s a result of this m odificatio n. | |
| 134 | Project Re porting | |
| 135 | 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. | |
| 136 | Project Sc hedule | |
| 137 | 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. | |
| 138 | Deployment | |
| 139 | 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. | |
| 140 | Sustainmen t Requirem ents | |
| 141 | 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 . | |
| 142 | Maintenanc e and Know ledge Tran sfer | |
| 143 | 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. | |
| 144 | XINDEX Lis ting for M UMPS Code Changes | |
| 145 | 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. | |
| 146 | V . A. C R O S S R E F E R E N C E R 7. 3 | |
| 147 | [2008 V A Standard s & Conven tions] | |
| 148 | UC I: VISTA C PU: ROU Dec 16, 2 016@09:46: 59 | |
| 149 | Routines: 1 Faux Ro utines: 0 | |
| 150 | ||
| 151 | NURSCPLC | |
| 152 | ||
| 153 | --- CROSS REFERENCIN G --- | |
| 154 | ||
| 155 | Press r eturn to c ontinue: | |
| 156 | ||
| 157 | Compiled l ist of Err ors and Wa rnings Dec 16, 20 16@09:46:5 9 page 1 | |
| 158 | No errors or warning s to repor t | |
| 159 | ||
| 160 | ||
| 161 | --- CROSS- REFERENCIN G ALL ROUT INES --- | |
| 162 | Press r eturn to c ontinue: | |
| 163 | ||
| 164 | ||
| 165 | ***** Cr oss Refere nce of all Routines ***** Dec 16, 20 16@09:46:5 9 page 2 | |
| 166 | ||
| 167 | Local Vari ables R outines ( >> not k illed expl icitly) | |
| 168 | ( * Change d ! Kille d ~ Newed ) | |
| 169 | >> DFN NURS CPLC* | |
| 170 | >> DIC(0 NURS CPLC* | |
| 171 | DT NURS CPLC | |
| 172 | IO NURS CPLC | |
| 173 | IOF NURS CPLC | |
| 174 | IOSL NURS CPLC | |
| 175 | IOST NURS CPLC | |
| 176 | >> N1 NURS CPLC* | |
| 177 | >> NBED NURS CPLC* | |
| 178 | >> NCOPY NURS CPLC | |
| 179 | >> NL1 NURS CPLC* | |
| 180 | >> NPWARD NURS CPLC* | |
| 181 | >> NSEC NURS CPLC* | |
| 182 | >> NURCAT NURS CPLC* | |
| 183 | >> NURFAC NURS CPLC | |
| 184 | >> NURFAC( 1 NURS CPLC | |
| 185 | >> NURFAC( 2 NURS CPLC* | |
| 186 | >> NURHOSP NURS CPLC | |
| 187 | >> NURI NURS CPLC* | |
| 188 | >> NURIEN NURS CPLC* | |
| 189 | >> NURMDSW NURS CPLC* | |
| 190 | >> NUROUT NURS CPLC* | |
| 191 | >> NURPAGE NURS CPLC* | |
| 192 | >> NURPLCS R NURS CPLC* | |
| 193 | NURPLSC R NURS CPLC*! | |
| 194 | >> NURPLSW NURS CPLC* | |
| 195 | >> NURPROG NURS CPLC | |
| 196 | >> NURPROG (1 NURS CPLC | |
| 197 | >> NURPROG (4 NURS CPLC* | |
| 198 | >> NURQUEU E NURS CPLC* | |
| 199 | >> NURQUIT NURS CPLC* | |
| 200 | >> NURSCLA S NURS CPLC | |
| 201 | >> NURSCLA S("CL" | |
| 202 | NURS CPLC* | |
| 203 | >> NURSHD NURS CPLC* | |
| 204 | >> NURSNLO C NURS CPLC | |
| 205 | >> NURSNLO C( NURS CPLC | |
| 206 | >> NURSORT NURS CPLC* | |
| 207 | >> NURSW1 NURS CPLC* | |
| 208 | >> NURSWAR D NURS CPLC* | |
| 209 | >> NURSX NURS CPLC | |
| 210 | >> NURSZAP NURS CPLC* | |
| 211 | >> NURX NURS CPLC* | |
| 212 | >> NURY NURS CPLC* | |
| 213 | >> NURZ NURS CPLC* | |
| 214 | >> POP NURS CPLC | |
| 215 | >> SSN NURS CPLC* | |
| 216 | U NURS CPLC | |
| 217 | >> VA("BID " NURS CPLC | |
| 218 | VADM NURS CPLC! | |
| 219 | VADM(1 NURS CPLC | |
| 220 | VAIN NURS CPLC! | |
| 221 | VAIN(5 NURS CPLC | |
| 222 | X NURS CPLC*~ | |
| 223 | >> ZTDESC NURS CPLC* | |
| 224 | >> ZTRTN NURS CPLC* | |
| 225 | >> ZTSK NURS CPLC | |
| 226 | ||
| 227 | Global Var iables | |
| 228 | ^DIC(21 3.9 NURSCPL C | |
| 229 | ^DPT( NURSCPL C | |
| 230 | ^NURSA( 214.6 NURSCPL C | |
| 231 | ^NURSF( 211.4 NURSCPL C | |
| 232 | ^NURSF( 213.3 NURSCPL C | |
| 233 | ^NURSF( 214 NURSCPL C | |
| 234 | ^TMP($J NURSCPL C*! | |
| 235 | ||
| 236 | Naked Glob als | |
| 237 | ^(0 NURS CPLC | |
| 238 | ||
| 239 | Cache Obje cts | |
| 240 | NONE | |
| 241 | ||
| 242 | Marked Ite ms | |
| 243 | NONE | |
| 244 | ||
| 245 | Routine Invokes: | |
| 246 | NURSCPL C $$GE T1^DIQ,EN1 ^NURSAGSP, EN5^NURSAG SP,EN9^NUR SAGSP,PRD^ NURSAGSP | |
| 247 | NURS APCH,EN6^N URSAUTL,EN 2^NURSCUTL ,EN6^NURSC UTL,NURSKI LL | |
| 248 | EN6^ NURSUT0,EN 7^NURSUT0, CLOSE^NURS UT1,ENDPG^ NURSUT1 | |
| 249 | NODA TA^NURSUT1 ,$$CNTR^NU RSUT2,$$EN 12^NURSUT3 ,1^VADPT,D EM^VADPT | |
| 250 | $$RE PEAT^XLFST R | |
| 251 | ||
| 252 | Routine is Invoked by: | |
| 253 | $$GET1^ DIQ NURSCPL C | |
| 254 | EN1^NUR SAGSP NURSCPL C | |
| 255 | EN5^NUR SAGSP NURSCPL C | |
| 256 | EN9^NUR SAGSP NURSCPL C | |
| 257 | PRD^NUR SAGSP NURSCPL C | |
| 258 | ^NURSAP CH NURSCPL C | |
| 259 | EN6^NUR SAUTL NURSCPL C | |
| 260 | EN2^NUR SCUTL NURSCPL C | |
| 261 | EN6^NUR SCUTL NURSCPL C | |
| 262 | ^NURSKI LL NURSCPL C | |
| 263 | EN6^NUR SUT0 NURSCPL C | |
| 264 | EN7^NUR SUT0 NURSCPL C | |
| 265 | CLOSE^N URSUT1 NURSCPL C | |
| 266 | ENDPG^N URSUT1 NURSCPL C | |
| 267 | NODATA^ NURSUT1 NURSCPL C | |
| 268 | $$CNTR^ NURSUT2 NURSCPL C | |
| 269 | $$EN12^ NURSUT3 NURSCPL C | |
| 270 | 1^VADPT NURSCPL C | |
| 271 | DEM^VAD PT NURSCPL C | |
| 272 | $$REPEA T^XLFSTR NURSCPL C | |
| 273 | ||
| 274 | ***** EN D ***** | |
| 275 | ||
| 276 | ||
| 277 | --- END -- - | |
| 278 | VISTAS1:VI STA> | |
| 279 | Source Cod e Changes | |
| 280 | 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: | |
| 281 | Modified r outines: N URSCPLC | |
| 282 | New routin es: none | |
| 283 | NURSCPLC | |
| 284 | NSR2016020 4 Identify Patients Opting Out of Direct ory on War d Census P rint | |
| 285 | NSR2016020 5 Truncate SSN on Wa rd Census Print Opti on | |
| 286 | Before: | |
| 287 | SORT ; SOR T OF PATIE NT CENSUS | |
| 288 | S NURFAC( 2)=$S($$EN 12^NURSUT3 (NURIEN)'= "":$$EN12^ NURSUT3(NU RIEN),1:" BLANK") | |
| 289 | S NURPROG (4)=+$P(^N URSF(211.4 ,+NURIEN,1 ),U,4),NUR PROG(4)=$$ GET1^DIQ(2 12.7,+NURP ROG(4),.01 ,"I") S:NU RPROG(4)=" " NURPROG( 4)=" BLANK " | |
| 290 | I NURMDSW ,$G(NURFAC )=0,NURFAC (2)'=NURFA C(1) Q | |
| 291 | I NURPLSW ,$G(NURPRO G)=0,NURPR OG(4)'=NUR PROG(1) Q | |
| 292 | D 1^VADPT | |
| 293 | S NBED=$S (VAIN(5)=" ":" BLANK ",1:VAIN(5 )),N1=$S(V ADM(1)="": " BLANK", 1:VADM(1)) | |
| 294 | S:$G(NURS ORT)="" NU RSORT=1 | |
| 295 | N X S X=$ G(^TMP($J, "L",NURFAC (2),NURPRO G(4),NURSW ARD)) | |
| 296 | I X="" S X=NURSORT, NURSORT=NU RSORT+1,^T MP($J,"L", NURFAC(2), NURPROG(4) ,NURSWARD) =X,^TMP($J ,"NURLOC", NURSWARD)= "" | |
| 297 | S ^TMP($J ,"L1",X,NB ED,N1,DFN) ="" | |
| 298 | ||
| 299 | ||
| 300 | HEADER ; P RINTING OF HEADING R OUTINE | |
| 301 | I 'NURQUE UE,NURSW1, $E(IOST)=" C" D ENDPG ^NURSUT1 Q :NUROUT | |
| 302 | S NURSHD= "PATIENT C ENSUS"_$S( $D(^TMP($J ,"NURLOC", NL1)):" FO R "_$E(NL1 ,1,12),1:" ") | |
| 303 | S NURSW1= 1 | |
| 304 | S NURPAGE =NURPAGE+1 W:$E(IOST )="C"!(NUR PAGE>1) @I OF | |
| 305 | I NURMDSW ,$G(NURHOS P) W !,?$$ CNTR^NURSU T2($G(NURF AC(2))),$S ($G(NURFAC (2))=" BLA NK":"NO FA CILITY",1: $G(NURFAC( 2))) | |
| 306 | W !,$E(DT ,4,5),"/", $E(DT,6,7) ,"/",$E(DT ,2,3),?28, NURSHD,?68 ,"PAGE: ", NURPAGE,! | |
| 307 | W !,"ROOM /BED",?17, "PATIENT N AME",?42," SSN",?55," ABSENCE",? 64,"BED SE C",?73,"AC UITY" | |
| 308 | W !,$$REP EAT^XLFSTR ("-",80),! | |
| 309 | ||
| 310 | PRINT1 D D EM^VADPT S SSN=VA("P ID") D ^NU RSAPCH | |
| 311 | S NSEC=$S ('$D(^NURS F(214,DFN, 0)):"",$P( ^(0),"^",4 )="":"",'$ D(^NURSF(2 13.3,$P(^N URSF(214,D FN,0),"^", 4),0)):"", 1:$P(^NURS F(213.3,$P (^NURSF(21 4,DFN,0)," ^",4),1)," ^",1)) D F NDCLAS | |
| 312 | D:$Y>(IOS L-6)!('NUR SW1) HEADE R Q:NUROUT W !,$S(N BED'=" BL ANK":NBED, 1:""),?17, $S(N1'=" BLANK":$E( N1,1,19),1 :""),?38,S SN,?56,$S( $D(NURSX): NURSX,1:"" ),?66,NSEC ,?75,NURCA T | |
| 313 | After: | |
| 314 | SORT ; SOR T OF PATIE NT CENSUS | |
| 315 | S NURFAC( 2)=$S($$EN 12^NURSUT3 (NURIEN)'= "":$$EN12^ NURSUT3(NU RIEN),1:" BLANK") | |
| 316 | S NURPROG (4)=+$P(^N URSF(211.4 ,+NURIEN,1 ),U,4),NUR PROG(4)=$$ GET1^DIQ(2 12.7,+NURP ROG(4),.01 ,"I") S:NU RPROG(4)=" " NURPROG( 4)=" BLANK " | |
| 317 | I NURMDSW ,$G(NURFAC )=0,NURFAC (2)'=NURFA C(1) Q | |
| 318 | I NURPLSW ,$G(NURPRO G)=0,NURPR OG(4)'=NUR PROG(1) Q | |
| 319 | D 1^VADPT | |
| 320 | S NBED=$S (VAIN(5)=" ":" BLANK ",1:VAIN(5 )),N1=$S(V ADM(1)="": " BLANK", 1:VADM(1)) | |
| 321 | S:$G(NURS ORT)="" NU RSORT=1 | |
| 322 | N X S X=$ G(^TMP($J, "L",NURFAC (2),NURPRO G(4),NURSW ARD)) | |
| 323 | I X="" S X=NURSORT, NURSORT=NU RSORT+1,^T MP($J,"L", NURFAC(2), NURPROG(4) ,NURSWARD) =X,^TMP($J ,"NURLOC", NURSWARD)= "" | |
| 324 | S ^TMP($J ,"L1",X,NB ED,N1,DFN) =$S(N1=" BLANK":" ",'$D(^DPT (DFN,.109) ):" ",^DP T(DFN,.109 )=0:" ",1 :"! ") | |
| 325 | ||
| 326 | ||
| 327 | HEADER ; P RINTING OF HEADING R OUTINE | |
| 328 | I 'NURQUE UE,NURSW1, $E(IOST)=" C" D ENDPG ^NURSUT1 Q :NUROUT | |
| 329 | S NURSHD= "PATIENT C ENSUS"_$S( $D(^TMP($J ,"NURLOC", NL1)):" FO R "_$E(NL1 ,1,12),1:" ") | |
| 330 | S NURSW1= 1 | |
| 331 | S NURPAGE =NURPAGE+1 W:$E(IOST )="C"!(NUR PAGE>1) @I OF | |
| 332 | I NURMDSW ,$G(NURHOS P) W !,?$$ CNTR^NURSU T2($G(NURF AC(2))),$S ($G(NURFAC (2))=" BLA NK":"NO FA CILITY",1: $G(NURFAC( 2))) | |
| 333 | W !,$E(DT ,4,5),"/", $E(DT,6,7) ,"/",$E(DT ,2,3),?28, NURSHD,?68 ,"PAGE: ", NURPAGE,! | |
| 334 | W !,"ROOM /BED",?17, "PATIENT N AME",?40," Last 4",?5 5,"ABSENCE ",?64,"BED SEC",?73, "ACUITY" | |
| 335 | W !,$$REP EAT^XLFSTR ("-",80),! | |
| 336 | ||
| 337 | ||
| 338 | PRINT1 D D EM^VADPT S SSN=VA("B ID") D ^NU RSAPCH | |
| 339 | S NSEC=$S ('$D(^NURS F(214,DFN, 0)):"",$P( ^(0),"^",4 )="":"",'$ D(^NURSF(2 13.3,$P(^N URSF(214,D FN,0),"^", 4),0)):"", 1:$P(^NURS F(213.3,$P (^NURSF(21 4,DFN,0)," ^",4),1)," ^",1)) D F NDCLAS | |
| 340 | D:$Y>(IOS L-6)!('NUR SW1) HEADE R Q:NUROUT W !,$S(N BED'=" BL ANK":NBED, 1:""),?17, ^TMP($J,"L 1",NURSORT ,NBED,N1,D FN),$S(N1' =" BLANK" :$E(N1,1,1 9),1:""),? 42,SSN,?56 ,$S($D(NUR SX):NURSX, 1:""),?66, NSEC,?75,N URCAT | |
| 341 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.