Produced by Araxis Merge on 10/5/2017 9:24:04 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 | RT_2_47.zip\docs | EPIP_Remediation_Plan_(RT_2.0_47).doc | Thu Oct 5 12:54:20 2017 UTC |
| 2 | RT_2_47.zip\docs | EPIP_Remediation_Plan_(RT_2.0_47).doc | Thu Oct 5 13:22:52 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 4 | 868 |
| Changed | 3 | 14 |
| 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 | EPIP_Remed iation_Pla nExisting Product In take Progr am (EPIP) | |
| 2 | Patch RT*2 .0*47 | |
| 3 | Remediatio n Plan | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | August 201 7 | |
| 7 | Version 2. 0 | |
| 8 | Revision H istory | |
| 9 | DateVersio nDescripti onAuthor08 /07/20172. 0Updated s ection 3 a nd Appendi x BEPIP Pr oject Team 05/03/2017 1.0Initial (draft) v ersionEPIP Project T eamTable o f Contents | |
| 10 | 11. | |
| 11 | Introducti on | |
| 12 | ||
| 13 | ||
| 14 | 12. | |
| 15 | Purpose | |
| 16 | ||
| 17 | ||
| 18 | 13. | |
| 19 | Patch Desc ription | |
| 20 | ||
| 21 | ||
| 22 | 23.1. | |
| 23 | Needs and Requiremen ts | |
| 24 | ||
| 25 | ||
| 26 | 24. | |
| 27 | Points of Contact | |
| 28 | ||
| 29 | ||
| 30 | 25. | |
| 31 | Code Remed iation | |
| 32 | ||
| 33 | ||
| 34 | 25.1. | |
| 35 | Standards and Conven tions | |
| 36 | ||
| 37 | ||
| 38 | 35.2. | |
| 39 | Review and Analysis | |
| 40 | ||
| 41 | ||
| 42 | 35.3. | |
| 43 | Coding Cha nges | |
| 44 | ||
| 45 | ||
| 46 | 36. | |
| 47 | Testing | |
| 48 | ||
| 49 | ||
| 50 | 36.1. | |
| 51 | Test Plan | |
| 52 | ||
| 53 | ||
| 54 | 46.2. | |
| 55 | Test Envir onment | |
| 56 | ||
| 57 | ||
| 58 | 46.3. | |
| 59 | Test Readi ness Revie w | |
| 60 | ||
| 61 | ||
| 62 | 46.4. | |
| 63 | Testing Ph ases | |
| 64 | ||
| 65 | ||
| 66 | 46.4.1. | |
| 67 | Unit Testi ng | |
| 68 | ||
| 69 | ||
| 70 | 46.4.2. | |
| 71 | Component Integratio n and Syst ems Testin g (CI/ST) | |
| 72 | ||
| 73 | ||
| 74 | 46.4.3. | |
| 75 | Functional Testing | |
| 76 | ||
| 77 | ||
| 78 | 56.4.4. | |
| 79 | Regression Testing | |
| 80 | ||
| 81 | ||
| 82 | 56.4.5. | |
| 83 | Section 50 8 Complian ce Testing | |
| 84 | ||
| 85 | ||
| 86 | 57. | |
| 87 | Documentat ion Remedi ation | |
| 88 | ||
| 89 | ||
| 90 | 57.1. | |
| 91 | User Guide s | |
| 92 | ||
| 93 | ||
| 94 | 57.2. | |
| 95 | Installati on Guides | |
| 96 | ||
| 97 | ||
| 98 | 57.3. | |
| 99 | Technical Manuals | |
| 100 | ||
| 101 | ||
| 102 | 57.4. | |
| 103 | Operations Manuals | |
| 104 | ||
| 105 | ||
| 106 | 68. | |
| 107 | Project Re porting | |
| 108 | ||
| 109 | ||
| 110 | 69. | |
| 111 | Project Sc hedule | |
| 112 | ||
| 113 | ||
| 114 | 610. | |
| 115 | Deployment | |
| 116 | ||
| 117 | ||
| 118 | 611. | |
| 119 | Sustainmen t Requirem ents | |
| 120 | ||
| 121 | ||
| 122 | 612. | |
| 123 | Maintenanc e and Know ledge Tran sfer | |
| 124 | ||
| 125 | ||
| 126 | 7Appendix A: | |
| 127 | XINDEX Lis ting for M UMPS Code Changes | |
| 128 | ||
| 129 | ||
| 130 | 8Appendix B: | |
| 131 | Source Cod e Changes | |
| 132 | ||
| 133 | ||
| 134 | ||
| 135 | ||
| 136 | Introducti on | |
| 137 | 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. | |
| 138 | Purpose | |
| 139 | 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 RT*2.0 *47. This patch addr esses the following NSRs: | |
| 140 | NSR2017031 1 Change D efault for Issue Req uest for R ecords Pro mpt | |
| 141 | This NSR h as been im plemented locally at the Fargo VA Health Care Syst em (Fargo ND), Sioux Falls VA Health Car e System ( Sioux Fall s SD), Gul f Coast Ve terans Hea lth Care S ystem (Bil oxi MS), V A Black Hi lls Health Care Syst em (Meade SD, Hot Sp rings SD), VA Loma L inda Healt h Care Sys tem (Loma Linda CA), Minneapol is VA Heal th Care Sy stem (Minn eapolis MN ), VA Nebr aska-Weste rn Iowa He alth Care System (Om aha NE), S t. Cloud V A Health C are System (St Cloud MN), VA C entral Iow a Health C are System (Des Moin es IA), Io wa City VA Health Ca re System (Iowa City IA), and the VA Med ical Cente rs in Gain esville FL and Grand Junction CO. | |
| 142 | NSR2017032 1 Add SSN to Request s Pending for Borrow er | |
| 143 | This NSR h as been im plemented locally at the VA Ne w Jersey H ealth Care System (O range NJ a nd Lyons N J). | |
| 144 | This docum ent addres ses the sc hedule, co de remedia tion, test ing, docum entation, and delive ry of this remediati on effort. | |
| 145 | Patch Desc ription | |
| 146 | RT*2.0*47 provides t he followi ng enhance ments to V istA: | |
| 147 | Modifies t he default response to the "IS SUE REQUES T FOR RECO RDS?" prom pt in the Appointmen t Manageme nt [APPOIN TMENT MANA GEMENT SDA M APPT MGT ] and Admi tting Area Chart Req uest [RT M AS-ADMIT-C HART-REQUE ST] option s in the R ecord Trac king packa ge from "Y ES" to "NO ." This pr ompt is us ed to dete rmine whet her hard c opy appoin tment reco rd request s are prin ted to a f ile room p rinter. Th e printing is deemed unnecessa ry at many sites and leads to wasted pap er. Prior to CPRS im plementati on, hard c opy record s were nec essary for appointme nts. The u se of CPRS removes t he need to print a h ard copy f or the vas t majority of appoin tments, th us making "NO" the l ogical def ault. | |
| 148 | Modifies t he REQUEST S PENDING FOR A BORR OWER [RT R PT-REQUEST -BY-BORROW ER] option in the Ma nagement R eports men u to displ ay the las t four dig its of eac h patient’ s Social S ecurity Nu mber (SSN) . This opt ion displa ys a list of pending requests for patien t records from a par ticular bo rrower. No t includin g the SSN in this li st makes i t time con suming to check pati ent record s to obtai n this inf ormation. | |
| 149 | Needs and Requiremen ts | |
| 150 | The Needs and Requir ements for the NSR(s ) addresse d in this remediatio n are: | |
| 151 | NSR2017031 1 Change D efault for Issue Req uest for R ecords Pro mpt: | |
| 152 | NEED 88395 3: Change Default Pr ompt For R equest For Records – For staff who make appointmen ts for pat ients, a c hange to A ppointment Managemen t option t hat change s the defa ult prompt for the ‘ ISSUE REQU EST FOR RE CORDS’ fie ld from ‘Y ES’ to ‘NO .’ Unlike the curren t process in which t he field p rompt defa ults to ‘Y es,’ our p rocess pre vents acci dental req uests for records fr om being s ubmitted t o the file rooms. | |
| 153 | NSR2017032 1 Add SSN to Request s Pending for Borrow er: | |
| 154 | NEED 88596 4: Add Las t 4 Patien t SSN To B orrower Re quest Repo rt – For a dministrat ive and cl inical sta ff who are responsib le for fil ling recor d requests , a change to the Re quests Pen ding for a Borrower option tha t displays the last four digit s of the p atient’s S ocial Secu rity Numbe r (SSN). U nlike the current ou tput that does not d isplay the SSN, our process pr events was ted staff time searc hing throu gh records for the i nformation . | |
| 155 | Points of Contact | |
| 156 | The VA Poi nts of Con tact (POCs ) for NSR2 0170311 Ch ange Defau lt for Iss ue Request for Recor ds Prompt are: | |
| 157 | Functional POC: Rich ard Cho
|
|
| 158 | Technical POC: Rober t Tanjuaki o
|
|
| 159 | The D A N P S C
|
|
| 160 | Functiona l POC: Tif fany Evens
|
|
| 161 | Technical POC: Beatr ice Smith
|
|
| 162 | Code Remed iation | |
| 163 | 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. | |
| 164 | Standards and Conven tions | |
| 165 | Leidos wil l referenc e the http ://go. DNS /sacc webs ite for ap plicable d ocuments a nd will ad here to VA standards to comple te the ana lysis of t his intake product. The output of the VA XINDEX ut ility will be used t o analyze the MUMPS source cod e and docu ment the a ffected ro utines (se e Appendix A). | |
| 166 | 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. | |
| 167 | Review and Analysis | |
| 168 | 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. | |
| 169 | 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. | |
| 170 | Coding Cha nges | |
| 171 | The coding changes r equired fo r NSR20170 311 Change Default f or Issue R equest for Records P rompt are in the fol lowing rou tines: | |
| 172 | Modified M UMPS routi nes: RTQ3 | |
| 173 | New MUMPS routines: None | |
| 174 | The coding changes r equired fo r NSR20170 321 Add SS N to Reque sts Pendin g for Borr ower are i n the foll owing rout ines: | |
| 175 | Modified M UMPS routi nes: RTRPT 1 | |
| 176 | New MUMPS routines: None | |
| 177 | A detailed analysis of the cod ing change s is provi ded in App endix B. | |
| 178 | Testing | |
| 179 | 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. | |
| 180 | Test Plan | |
| 181 | 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. | |
| 182 | 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. | |
| 183 | Test Envir onment | |
| 184 | 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. | |
| 185 | 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. | |
| 186 | Test Readi ness Revie w | |
| 187 | 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 ). | |
| 188 | Testing Ph ases | |
| 189 | Leidos wil l perform developmen t and SQA testing ac tivities i n phases, and will p rovide all required testing do cumentatio n. | |
| 190 | Unit Testi ng | |
| 191 | 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. | |
| 192 | Component Integratio n and Syst ems Testin g (CI/ST) | |
| 193 | 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. | |
| 194 | Functional Testing | |
| 195 | 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. | |
| 196 | Regression Testing | |
| 197 | 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. | |
| 198 | Section 50 8 Complian ce Testing | |
| 199 | Section 50 8 testing will be pe rformed on VistA and CPRS code when new user inter face chang es are int roduced by the devel oper. The VA-recomme nded Assis tive Techn ology tool , JAWS, wi ll be used to conduc t the 508 testing. T est result s and rela ted docume ntation wi ll be subm itted to t he VA Sect ion 508 te am in acco rdance wit h the VA 5 08 testing requireme nts. Defec ts found d uring test ing will b e assessed and remed iated by t he develop er. | |
| 200 | Documentat ion Remedi ation | |
| 201 | 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. | |
| 202 | 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 http://ww w. DNS /vdl/. Key word searc hes using terms rele vant to th is remedia tion effor t will be used to id entify doc uments tha t might be impacted; those doc uments wil l then be reviewed i n their en tirety for any neede d revision s. | |
| 203 | The follow ing sectio ns outline the VDL d ocuments t o be revis ed for thi s remediat ion. | |
| 204 | User Guide s | |
| 205 | The follow ing User G uide will be updated in the VD L: | |
| 206 | Record Tra cking User Manual | |
| 207 | Installati on Guides | |
| 208 | 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 | |
| 209 | Pre-Produc tion envir onments. T herefore, no Install ation Guid es will be updated. | |
| 210 | Technical Manuals | |
| 211 | No Technic al Manuals require r evision as a result of this mo dification . | |
| 212 | Operations Manuals | |
| 213 | No Operati ons Manual s require revision a s a result of this m odificatio n. | |
| 214 | Project Re porting | |
| 215 | 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. | |
| 216 | Project Sc hedule | |
| 217 | 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. | |
| 218 | Deployment | |
| 219 | 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. | |
| 220 | Sustainmen t Requirem ents | |
| 221 | 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 . | |
| 222 | Maintenanc e and Know ledge Tran sfer | |
| 223 | 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. | |
| 224 | XINDEX Lis ting for M UMPS Code Changes | |
| 225 | 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. | |
| 226 | V . A. C R O S S R E F E R E N C E R 7. 3 | |
| 227 | [2008 V A Standard s & Conven tions] | |
| 228 | UC I: VISTA C PU: ROU Apr 19, 2 017@11:12: 50 | |
| 229 | Routines: 2 Faux Ro utines: 0 | |
| 230 | RTQ3 RTRPT1 | |
| 231 | --- CROSS REFERENCIN G --- | |
| 232 | Compiled l ist of Err ors and Wa rnings Apr 19, 20 17@11:12:5 0 page 1 | |
| 233 | No errors or warning s to repor t | |
| 234 | Source Cod e Changes | |
| 235 | 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: | |
| 236 | Modified M UMPS routi nes: RTQ3, RTRPT1 | |
| 237 | New MUMPS routines: None | |
| 238 | RTQ3 | |
| 239 | Before: | |
| 240 | RTQ3 ; MJK/TROY I SC;ADT Lin k; ; 5/21/ 87 3:21 P M ; | |
| 241 | ; ;v 2.0;Rec ord Tracki ng;;10/22/ 91 | |
| 242 | ADM I $D(RTAPL) D SAVE^RT PSET1,NEXT ,RESTORE^R TPSET1 Q | |
| 243 | NEXT Q :'$D(^DIC( 195.4,1,"M AS")) S Y =+^("MAS") D APL1^RT PSET S IOP ="" D ^%ZI | |
| 244 | S K IOP S Y=0 | |
| 245 | I $D(^RTV(1 95.9,"ADEV ",ION)),$D (^RTV(195. 9,+$O(^(IO N,0)),0)), $D(^SC(+$P | |
| 246 | (^(0),U,2) ,0)),$P(^( 0),"^",3)= "Z",$D(^DI C(40.9,+$P (^(0),"^", 22),0)),$P (^(0),"^", | |
| 247 | 2)="AA" S Y=+$P(^RTV (195.9,+$O (^RTV(195. 9,"ADEV",I ON,0)),0), U,2) | |
| 248 | I '$D(^SC(Y ,0)) W ! S DIC("S")= "I $P(^(0) ,U,3)=""Z" ",$D(^DIC( 40.9,+$P(^ | |
| 249 | (0),U,22), 0)),$P(^(0 ),U,2)=""A A""" S DIC ("A")="Sel ect Admitt ing Area: ",DIC(0)=" | |
| 250 | IAEMQ",DIC ="^SC(" D ^DIC K DIC G Q:Y<0 | |
| 251 | I Y S SDSC= +Y D NOW^% DTC S SDTT M=%,SDPL=0 D NEW:$P( DGFC,"^",2 ),ASK,QUE^ | |
| 252 | RTQ2:$E(X) ="Y" | |
| 253 | Q K SDSC,SDTT M,SDPL,RTA PL Q | |
| 254 | ; | |
| 255 | ASK S RTRD(1)=" YES^reques t records" ,RTRD(2)=" NO^indicat e no recor ds to be r | |
| 256 | equested", RTRD("A")= "ISSUE REQ UEST FOR R ECORDS? ", RTRD(0)="S ",RTRD("B" )=1 D SET^ | |
| 257 | RTRD K RTR D Q | |
| 258 | ; | |
| 259 | NEW S RTRD(1)=" YES^print barcode la bels",RTRD (2)="NO^do not print barcode l | |
| 260 | abels",RTR D("B")=1,R TRD("A")=" PRINT BARC ODE LABELS FOR PATIE NT'S FOLDE RS? ",RTRD | |
| 261 | (0)="S" D SET^RTRD K RTRD Q:$E (X)'="Y" | |
| 262 | ; | |
| 263 | NOASK S RTADM="", RTE=DFN_"; DPT(",RTA= +RTAPL,RTB =SDSC_";SC (",Y=+$O(^ RTV(195.9, | |
| 264 | "ABOR",RTB ,RTA,0)) D SET^RTDPA 3:'Y S RTB =Y,RTFR=Y_ "^"_$P(^RT V(195.9,Y, 0),"^",2,9 | |
| 265 | 9) S:$P(RT SYS,"^",4) ="e" $P(RT FR,"^",4,6 )="^^" | |
| 266 | S X="A" D S AVE S X=Y, A=RTA D IN ST1^RTUTL G NOASKQ:' $D(RTINST) S RTDIV=R | |
| 267 | TINST K RT INST | |
| 268 | F RTBLD=0:0 S RTBLD=$ O(^RTV(195 .9,RTB,"RE CS",RTBLD) ) Q:'RTBLD I $D(^(R | |
| 269 | TBLD,0)) S X=^(0) I $D(^DIC(19 5.2,+X,0)) ,$P(X,"^", 2)]"",$P(X ,"^",2)'=" n" S RTTY= | |
| 270 | +X,RTAPL=+ $P(X,"^",3 ) I '$D(^R T("AT",RTT Y,RTE)) D TYPE1^RTDP A1 | |
| 271 | NOASKQ S X="A" D R ESTORE K R TSYS,RTDIV ,RTA,RTB,R TFR,RTE,RT ADM,RTBLD, RTTY,RTAPL | |
| 272 | Q | |
| 273 | ; | |
| 274 | SAVE K RTMASAVE X "I $D("_ X_")#2 S R TMASAVE=@X " I @("$D( "_X_")>9") S %X=X_"( | |
| 275 | ",%Y="RTMA SAVE(" D % XY^%RCR | |
| 276 | Q | |
| 277 | ; | |
| 278 | RESTORE S :$D(RTMASA VE)#2 @X=R TMASAVE I $D(RTMASAV E)>9 S %X= "RTMASAVE( ",%Y=X_"(" | |
| 279 | D %XY^%RC R | |
| 280 | K RTMASAVE Q | |
| 281 | After: | |
| 282 | RTQ3 ; MJK/TROY I SC;ADT Lin k; ; 4/19/ 2017 10:4 5 AM ; | |
| 283 | ; ;2.0;Recor d Tracking ;**47**;10 /22/91 | |
| 284 | ADM I $D(RTAPL) D SAVE^RT PSET1,NEXT ,RESTORE^R TPSET1 Q | |
| 285 | NEXT Q :'$D(^DIC( 195.4,1,"M AS")) S Y =+^("MAS") D APL1^RT PSET S IOP ="" D ^%ZI | |
| 286 | S K IOP S Y=0 | |
| 287 | I $D(^RTV(1 95.9,"ADEV ",ION)),$D (^RTV(195. 9,+$O(^(IO N,0)),0)), $D(^SC(+$P | |
| 288 | (^(0),U,2) ,0)),$P(^( 0),"^",3)= "Z",$D(^DI C(40.9,+$P (^(0),"^", 22),0)),$P (^(0),"^", | |
| 289 | 2)="AA" S Y=+$P(^RTV (195.9,+$O (^RTV(195. 9,"ADEV",I ON,0)),0), U,2) | |
| 290 | I '$D(^SC(Y ,0)) W ! S DIC("S")= "I $P(^(0) ,U,3)=""Z" ",$D(^DIC( 40.9,+$P(^ | |
| 291 | (0),U,22), 0)),$P(^(0 ),U,2)=""A A""" S DIC ("A")="Sel ect Admitt ing Area: ",DIC(0)=" | |
| 292 | IAEMQ",DIC ="^SC(" D ^DIC K DIC G Q:Y<0 | |
| 293 | I Y S SDSC= +Y D NOW^% DTC S SDTT M=%,SDPL=0 D NEW:$P( DGFC,"^",2 ),ASK,QUE^ | |
| 294 | RTQ2:$E(X) ="Y" | |
| 295 | Q K SDSC,SDTT M,SDPL,RTA PL Q | |
| 296 | ; | |
| 297 | ASK S RTRD(1)=" YES^reques t records" ,RTRD(2)=" NO^indicat e no recor ds to be r | |
| 298 | equested", RTRD("A")= "ISSUE REQ UEST FOR R ECORDS? ", RTRD(0)="S ",RTRD("B" )=2 D SET^ | |
| 299 | RTRD K RTR D Q | |
| 300 | ; | |
| 301 | NEW S RTRD(1)=" YES^print barcode la bels",RTRD (2)="NO^do not print barcode l | |
| 302 | abels",RTR D("B")=1,R TRD("A")=" PRINT BARC ODE LABELS FOR PATIE NT'S FOLDE RS? ",RTRD | |
| 303 | (0)="S" D SET^RTRD K RTRD Q:$E (X)'="Y" | |
| 304 | ; | |
| 305 | NOASK S RTADM="", RTE=DFN_"; DPT(",RTA= +RTAPL,RTB =SDSC_";SC (",Y=+$O(^ RTV(195.9, | |
| 306 | "ABOR",RTB ,RTA,0)) D SET^RTDPA 3:'Y S RTB =Y,RTFR=Y_ "^"_$P(^RT V(195.9,Y, 0),"^",2,9 | |
| 307 | 9) S:$P(RT SYS,"^",4) ="e" $P(RT FR,"^",4,6 )="^^" | |
| 308 | S X="A" D S AVE S X=Y, A=RTA D IN ST1^RTUTL G NOASKQ:' $D(RTINST) S RTDIV=R | |
| 309 | TINST K RT INST | |
| 310 | F RTBLD=0:0 S RTBLD=$ O(^RTV(195 .9,RTB,"RE CS",RTBLD) ) Q:'RTBLD I $D(^(R | |
| 311 | TBLD,0)) S X=^(0) I $D(^DIC(19 5.2,+X,0)) ,$P(X,"^", 2)]"",$P(X ,"^",2)'=" n" S RTTY= | |
| 312 | +X,RTAPL=+ $P(X,"^",3 ) I '$D(^R T("AT",RTT Y,RTE)) D TYPE1^RTDP A1 | |
| 313 | NOASKQ S X="A" D R ESTORE K R TSYS,RTDIV ,RTA,RTB,R TFR,RTE,RT ADM,RTBLD, RTTY,RTAPL | |
| 314 | Q | |
| 315 | ; | |
| 316 | SAVE K RTMASAVE X "I $D("_ X_")#2 S R TMASAVE=@X " I @("$D( "_X_")>9") S %X=X_"( | |
| 317 | ",%Y="RTMA SAVE(" D % XY^%RCR | |
| 318 | Q | |
| 319 | ; | |
| 320 | RESTORE S :$D(RTMASA VE)#2 @X=R TMASAVE I $D(RTMASAV E)>9 S %X= "RTMASAVE( ",%Y=X_"(" | |
| 321 | D %XY^%RC R | |
| 322 | K RTMASAVE Q | |
| 323 | RTRPT1 | |
| 324 | Before: | |
| 325 | RTRPT1 ; MJK/TROY I SC;Borrowe r Request Report; ; 5/5/87 8: 31 AM ; | |
| 326 | ; ;v 2.0;Rec ord Tracki ng;;10/22/ 91 | |
| 327 | W ! S DIC=" ^RTV(195.9 ,",DIC(0)= "IAEMQ",DI C("S")="I $P(^(0),U, 3)="_+RTAP | |
| 328 | L,DIC("A") ="Select B orrower: " D ^DIC K DIC G Q:Y< 0 | |
| 329 | S RTB=+Y,RT VAR="RTAPL ^RTB"_$S($ D(RTTY):"^ RTTY",1:"" )_$S($D(RT QDC("S")): | |
| 330 | "^RTQDC("" S"")",1:"" ),RTPGM="S TART^RTRPT 1" D ZIS^R TUTL G Q:P OP D START G RTRPT1 | |
| 331 | ; | |
| 332 | START U IO K ^TMP ($J),RTS,R TC,RTC1,RT X S RTC1=0 ,U="^",RTP AGE=0,RTPC E=9 D WIND | |
| 333 | OW^RTRPT K RTPCE | |
| 334 | F I=0:0 S I =$O(^RTV(1 90.1,"ABOR ",RTB,I)) Q:'I I $D (^RTV(190. 1,I,0)),$D | |
| 335 | (^RT(+^(0) ,0)),$S('$ D(RTTY):1, $P(^(0),"^ ",3)=+RTTY :1,1:0),$P (^(0),"^", 4)=+RTAPL | |
| 336 | S I1=+^RTV (190.1,I,0 ) D SORT | |
| 337 | D HD I RTC1 D REC I $ D(RTASK),X '="^" D SE LECT^RTRPT 2 | |
| 338 | W :'RTC1 !!? 3,"No '",$ S($D(RTTY) :$P($P(RTT Y,"^"),";" ,2),1:$P($ P(RTAPL,"^ | |
| 339 | "),";",2)) ,"' reques ts pending for this borrower." | |
| 340 | I $E(IOST,1 ,2)="C-",' $D(RTASK), $S('RTC1:1 ,1:RTLC>0) ,($Y+5)>IO SL W !!,"P | |
| 341 | ress RETUR N to conti nue: " R X :DTIME | |
| 342 | Q K RTPGM,RTV AR,RTPAGE, B1,RTP,RTP 1,RTASK,RT LC,RTB,RTT PH,RTC1,D, D1,T,V,O,I | |
| 343 | ,^TMP($J) D CLOSE^RT UTL Q | |
| 344 | ; | |
| 345 | SORT I $D(RTQDC( "S")) S Y= I,X=^RTV(1 90.1,I,0) X RTQDC("S ") Q:'$T | |
| 346 | Q :'$D(^RT(I 1,0)) S V =999-$P(^( 0),"^",7), O=$S($D(^D IC(195.2,+ $P(^(0),"^ | |
| 347 | ",3),0)):+ $P(^(0),"^ ",4),1:0) Q:'O S RT =I1 D DEMO S^RTUTL1 K RT | |
| 348 | S B1="" I $ D(^RTV(195 .9,+$P(X," ^",14),0)) S Y=$P(^( 0),"^") D NAME^RTB S | |
| 349 | B1=Y | |
| 350 | S ^TMP($J,O ,RTD("N"), V,+$P(X,"^ ",4))=I_"^ "_$P(RTD(" T")," (V", 1)_"^"_(99 | |
| 351 | 9-V)_"^"_R TD("N")_"^ "_$S($P(X, "^",10):"* ",1:"")_"^ "_B1 | |
| 352 | S RTC1=RTC1 +1 W:$D(RT ASK) "." K RTD Q | |
| 353 | ; | |
| 354 | REC S RTC=0 F O =0:0 S O=$ O(^TMP($J, O)) Q:'O D LINE^RTU TL3:RTC S RTP="%" F | |
| 355 | RTP1=0:0 S RTP=$O(^T MP($J,O,RT P)) Q:RTP= "" D VOL G RECQ:X=" ^" | |
| 356 | RECQ Q | |
| 357 | ; | |
| 358 | VOL F V=0:0 S V =$O(^TMP($ J,O,RTP,V) ) Q:'V F D=0:0 S D= $O(^TMP($J ,O,RTP,V,D | |
| 359 | )) Q:'D S X=^(D),RT C=RTC+1,RT S(RTC)=+X D PRT Q:X= "^" | |
| 360 | Q | |
| 361 | ; | |
| 362 | PRT S RTLC=RTLC +1 W !,RTC ,?3,$E($P( X,"^",2),1 ,19),?21," V",$P(X,"^ ",3),?26,$ | |
| 363 | E($P(X,"^" ,4),1,18), ?44,$P(X," ^",5) S Y= D D D^DIQ W ?45,Y,?6 5,$E($P(X, "^",6),1,1 | |
| 364 | 5) | |
| 365 | I $D(^RTV(1 90.1,+X,"C OMMENT")) S RTLC=RTL C+1 W !?3, "(Comment: ",^("COMM | |
| 366 | ENT"),")" | |
| 367 | S X=^RT(+^R TV(190.1,+ X,0),0),RT HD="HD^RTR PT1" D PRT 1^RTRPT2 K RTHD Q | |
| 368 | ; | |
| 369 | HD S X="**** " _$S($D(RTT Y):$P($P(R TTY,"^")," ;",2),1:$P ($P(RTAPL, "^"),";",2 | |
| 370 | ))_" Reque sts Pendin g for Borr ower ****" D HD1^RTR PT2 | |
| 371 | W !,"* - in dicates re quest is p art of a p ull list" | |
| 372 | W !!?3,"Rec ord Type", ?21,"Vol", ?26,$S($P( RTAPL,"^", 9)]"":$P(R TAPL,"^",9 | |
| 373 | ),1:"???") ,?45,"Date /Time Need ed",?65,"A ssociated Reqr" | |
| 374 | W !?3,"---- -------",? 21,"---",? 26,"------ ---------- --",?45,"- ---------- | |
| 375 | --------", ?65,"----- ---------- " | |
| 376 | S RTLC=$Y Q | |
| 377 | ; | |
| 378 | PEND ; Entry poin t for pend ing reques t only | |
| 379 | S RTQDC("S" )="S Z=^(0 ) I $P(Z,U ,6)=""r""! ($P(Z,U,6) =""n""),$D (^RT(+Z,0) | |
| 380 | ),$D(RTWND (+$P(^(0), U,3))),RTW ND(+$P(^(0 ),U,3))'>$ P(Z,U,4)" D RTRPT1 K RTQDC,RTW | |
| 381 | ND | |
| 382 | K N,P,RTC,R TS,IO("Q") ,SSN,X,Y,I 1,DUOUT Q | |
| 383 | After: | |
| 384 | RTRPT1 ; MJK/TROY I SC;Borrowe r Request Report; ; 4/19/2017 10:45 AM ; | |
| 385 | ; ;2.0;Recor d Tracking ;**47**;10 /22/91 | |
| 386 | W ! S DIC=" ^RTV(195.9 ,",DIC(0)= "IAEMQ",DI C("S")="I $P(^(0),U, 3)="_+RTAP | |
| 387 | L,DIC("A") ="Select B orrower: " D ^DIC K DIC G Q:Y< 0 | |
| 388 | S RTB=+Y,RT VAR="RTAPL ^RTB"_$S($ D(RTTY):"^ RTTY",1:"" )_$S($D(RT QDC("S")): | |
| 389 | "^RTQDC("" S"")",1:"" ),RTPGM="S TART^RTRPT 1" D ZIS^R TUTL G Q:P OP D START G RTRPT1 | |
| 390 | ; | |
| 391 | START U IO K ^TMP ($J),RTS,R TC,RTC1,RT X S RTC1=0 ,U="^",RTP AGE=0,RTPC E=9 D WIND | |
| 392 | OW^RTRPT K RTPCE | |
| 393 | F I=0:0 S I =$O(^RTV(1 90.1,"ABOR ",RTB,I)) Q:'I I $D (^RTV(190. 1,I,0)),$D | |
| 394 | (^RT(+^(0) ,0)),$S('$ D(RTTY):1, $P(^(0),"^ ",3)=+RTTY :1,1:0),$P (^(0),"^", 4)=+RTAPL | |
| 395 | S I1=+^RTV (190.1,I,0 ) D SORT | |
| 396 | D HD I RTC1 D REC I $ D(RTASK),X '="^" D SE LECT^RTRPT 2 | |
| 397 | W :'RTC1 !!? 3,"No '",$ S($D(RTTY) :$P($P(RTT Y,"^"),";" ,2),1:$P($ P(RTAPL,"^ | |
| 398 | "),";",2)) ,"' reques ts pending for this borrower." | |
| 399 | I $E(IOST,1 ,2)="C-",' $D(RTASK), $S('RTC1:1 ,1:RTLC>0) ,($Y+5)>IO SL W !!,"P | |
| 400 | ress RETUR N to conti nue: " R X :DTIME | |
| 401 | Q K RTPGM,RTV AR,RTPAGE, B1,RTP,RTP 1,RTASK,RT LC,RTB,RTT PH,RTC1,D, D1,T,V,O,I | |
| 402 | ,^TMP($J) D CLOSE^RT UTL Q | |
| 403 | ; | |
| 404 | SORT I $D(RTQDC( "S")) S Y= I,X=^RTV(1 90.1,I,0) X RTQDC("S ") Q:'$T | |
| 405 | Q :'$D(^RT(I 1,0)) S V =999-$P(^( 0),"^",7), O=$S($D(^D IC(195.2,+ $P(^(0),"^ | |
| 406 | ",3),0)):+ $P(^(0),"^ ",4),1:0) Q:'O S RT =I1 D DEMO S^RTUTL1 K RT | |
| 407 | S B1="" I $ D(^RTV(195 .9,+$P(X," ^",14),0)) S Y=$P(^( 0),"^") D NAME^RTB S | |
| 408 | B1=Y | |
| 409 | S ^TMP($J,O ,RTD("N"), V,+$P(X,"^ ",4))=I_"^ "_$P(RTD(" T")," (V", 1)_"^"_(99 | |
| 410 | 9-V)_"^"_R TD("N")_"^ "_$S($P(X, "^",10):"* ",1:"")_"^ "_B1_"^"_R TD("SSN") | |
| 411 | S RTC1=RTC1 +1 W:$D(RT ASK) "." K RTD Q | |
| 412 | ; | |
| 413 | REC S RTC=0 F O =0:0 S O=$ O(^TMP($J, O)) Q:'O D LINE^RTU TL3:RTC S RTP="%" F | |
| 414 | RTP1=0:0 S RTP=$O(^T MP($J,O,RT P)) Q:RTP= "" D VOL G RECQ:X=" ^" | |
| 415 | RECQ Q | |
| 416 | ; | |
| 417 | VOL F V=0:0 S V =$O(^TMP($ J,O,RTP,V) ) Q:'V F D=0:0 S D= $O(^TMP($J ,O,RTP,V,D | |
| 418 | )) Q:'D S X=^(D),RT C=RTC+1,RT S(RTC)=+X D PRT Q:X= "^" | |
| 419 | Q | |
| 420 | ; | |
| 421 | PRT S RTLC=RTLC +1 W !,RTC ,?3,$E($P( X,"^",2),1 ,19),?21," V",$P(X,"^ ",3),?26,$ | |
| 422 | E($P(X,"^" ,4),1,18), ?44,$P(X," ^",5) S Y= D D D^DIQ W ?45,Y,?6 5,$E($P(X, "^",6),1,1 | |
| 423 | 5) | |
| 424 | I $D(^RTV(1 90.1,+X,"C OMMENT")) S RTLC=RTL C+1 W !?3, "(Comment: ",^("COMM | |
| 425 | ENT"),")" | |
| 426 | S X=^RT(+^R TV(190.1,+ X,0),0),RT HD="HD^RTR PT1" D PRT 1^RTRPT2 K RTHD Q | |
| 427 | ; | |
| 428 | HD S X="**** " _$S($D(RTT Y):$P($P(R TTY,"^")," ;",2),1:$P ($P(RTAPL, "^"),";",2 | |
| 429 | ))_" Reque sts Pendin g for Borr ower ****" D HD1^RTR PT2 | |
| 430 | W !,"* - in dicates re quest is p art of a p ull list" | |
| 431 | W !!?3,"Rec ord Type", ?21,"Vol", ?26,$S($P( RTAPL,"^", 9)]"":$P(R TAPL,"^",9 | |
| 432 | ),1:"???") ,?45,"Date /Time Need ed",?65,"A ssociated Reqr" | |
| 433 | W !?3,"---- -------",? 21,"---",? 26,"------ ---------- --",?45,"- ---------- | |
| 434 | --------", ?65,"----- ---------- " | |
| 435 | S RTLC=$Y Q | |
| 436 | ; | |
| 437 | PEND ; Entry poin t for pend ing reques t only | |
| 438 | S RTQDC("S" )="S Z=^(0 ) I $P(Z,U ,6)=""r""! ($P(Z,U,6) =""n""),$D (^RT(+Z,0) | |
| 439 | ),$D(RTWND (+$P(^(0), U,3))),RTW ND(+$P(^(0 ),U,3))'>$ P(Z,U,4)" D RTRPT1 K RTQDC,RTW | |
| 440 | ND | |
| 441 | K N,P,RTC,R TS,IO("Q") ,SSN,X,Y,I 1,DUOUT Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.