Produced by Araxis Merge on 3/28/2018 4:50: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 | PSD_3.0_82_Feb_2018.zip\PSD_3.0_82 | EPIP_Remediation_Plan_(PSD_3.0_82).docx | Tue Mar 27 14:05:54 2018 UTC |
| 2 | PSD_3.0_82_Feb_2018.zip\PSD_3.0_82 | EPIP_Remediation_Plan_(PSD_3.0_82).docx | Wed Mar 28 15:39:37 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 576 |
| Changed | 2 | 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 PSD* 3.0*82 | |
| 3 | Remediatio n Plan | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | February 2 018 | |
| 7 | Version 2. 0 | |
| 8 | ||
| 9 | ||
| 10 | ||
| 11 | Revision H istory | |
| 12 | Date | |
| 13 | Version | |
| 14 | Descriptio n | |
| 15 | Author | |
| 16 | 02/09/2018 | |
| 17 | 2.0 | |
| 18 | Added XIND EX results to Append ix A and P SDNU code modificati ons to App endix B | |
| 19 | EPIP Proje ct Team | |
| 20 | 10/20/2017 | |
| 21 | 1.0 | |
| 22 | Initial (d raft) vers ion | |
| 23 | EPIP Proje ct Team | |
| 24 | ||
| 25 | ||
| 26 | ||
| 27 | ||
| 28 | Table of C ontents | |
| 29 | 1.Introduc tion1 | |
| 30 | 2.Purpose1 | |
| 31 | 3.Patch De scription1 | |
| 32 | 3.1.Busine ss Epics a nd Sub-Epi cs1 | |
| 33 | 4.Points o f Contact2 | |
| 34 | 5.Code Rem ediation2 | |
| 35 | 5.1.Standa rds and Co nventions2 | |
| 36 | 5.2.Review and Analy sis2 | |
| 37 | 5.3.Coding Changes2 | |
| 38 | 6.Testing2 | |
| 39 | 6.1.Test P lan2 | |
| 40 | 6.2.Test E nvironment 3 | |
| 41 | 6.3.Test R eadiness R eview3 | |
| 42 | 6.4.Testin g Phases3 | |
| 43 | 6.4.1.Unit Testing3 | |
| 44 | 6.4.2.Comp onent Inte gration an d Systems Testing (C I/ST)3 | |
| 45 | 6.4.3.Func tional Tes ting4 | |
| 46 | 6.4.4.Regr ession Tes ting4 | |
| 47 | 6.4.5.Sect ion 508 Co mpliance T esting4 | |
| 48 | 7.Document ation Reme diation4 | |
| 49 | 7.1.User G uides4 | |
| 50 | 7.2.Instal lation Gui des5 | |
| 51 | 7.3.Techni cal Manual s5 | |
| 52 | 7.4.Operat ions Manua ls5 | |
| 53 | 8.Project Reporting5 | |
| 54 | 9.Project Schedule5 | |
| 55 | 10.Deploym ent5 | |
| 56 | 11.Sustain ment Requi rements5 | |
| 57 | 12.Mainten ance and K nowledge T ransfer5 | |
| 58 | Appendix A :XINDEX Li sting for MUMPS Code Changes6 | |
| 59 | Appendix B :Source Co de Changes 7 | |
| 60 | ||
| 61 | ||
| 62 | ||
| 63 | Introducti on | |
| 64 | 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. | |
| 65 | Purpose | |
| 66 | 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 PSD*3. 0*82. This patch add resses the following NSR: | |
| 67 | NSR2016091 1 Allow Ph armacy Tec hnicians t o Run NAOU Report | |
| 68 | This NSR h as been im plemented locally at the VA Me dical Cent er in Fort Wayne IN. | |
| 69 | This docum ent addres ses the sc hedule, co de remedia tion, test ing, docum entation, and delive ry of this remediati on effort. | |
| 70 | Patch Desc ription | |
| 71 | Patch PSD* 3.0*82 mod ifies rout ine PSDNU to allow p harmacy te chnicians to run the NAOU Usag e Report u sing the N AOU Usage Report [PS D NAOU USA GE] option . Currentl y, only li censed pha rmacists h olding the PSJ RPHAR M key can run the re port. This enhanceme nt provide s addition al report access thr ough the e xisting PS D TECH ADV key. This will enab le technic ians who a re PSD TEC H ADV key holders to better su pport the monthly co ntrolled s ubstance i nspection process. | |
| 72 | Business E pics and S ub-Epics | |
| 73 | The Busine ss Epics a nd Sub-Epi cs for the NSR(s) ad dressed in this reme diation ar e: | |
| 74 | NSR2016091 1 Allow Ph armacy Tec hnicians t o Run NAOU Report | |
| 75 | BUSINESS E PIC 824660 : VA Pharm acy Techni cians Run NAOU Usage Report – For VA Pha rmacy tech nicians wh o need to be able to run the N AOU Usage Report, a process th at allows technician s to run t he report. That ensu res either licensed pharmacist s holding the PSJ RP HARM key o r technici ans holdin g the PSD TECH ADV k ey have ac cess. Unli ke our cur rent proce ss which r estricts a ccess to o nly licens ed pharmac ists holdi ng the PSJ RPHARM ke y, our pro cess expan ds usage t o technici ans who ne ed to be a ble to run this repo rt in orde r to gener ate data f or the con trolled su bstance in spection p rocess wit hout havin g to give them inapp ropriate a ccess to o ther optio ns via the PSJ RPHAR M key and in order t o promote efficiency of staff utilizatio n in minim izing the wait time for contro lled subst ance inspe ctors to h ave the in formation they requi re to perf orm the re views in t he most ti mely manne r. | |
| 76 | Points of Contact | |
| 77 | The VA POC for NSR20 160911 All ow Pharmac y Technici ans to Run NAOU Repo rt is Rob Silverman ( PII ), PII . | |
| 78 | Code Remed iation | |
| 79 | 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. | |
| 80 | Standards and Conven tions | |
| 81 | Leidos wil l referenc e the URL sacc websi te for app licable do cuments an d will adh ere to VA standards to complet e the anal ysis of th is intake product. T he output of the VA XINDEX uti lity will be used to analyze t he MUMPS s ource code and docum ent the af fected rou tines (see Appendix A). | |
| 82 | The MUMPS coding sta ndards web site IP will also be used t o ensure t hat the re mediated c ode confor ms to VA s tandards. | |
| 83 | Review and Analysis | |
| 84 | 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. | |
| 85 | 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. | |
| 86 | Coding Cha nges | |
| 87 | The coding changes r equired fo r NSR20160 911 Allow Pharmacy T echnicians to Run NA OU Report are in the following routines: | |
| 88 | Modified M UMPS routi nes: PSDNU | |
| 89 | New MUMPS routines: None | |
| 90 | Testing | |
| 91 | 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. | |
| 92 | Test Plan | |
| 93 | 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. | |
| 94 | 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. | |
| 95 | Test Envir onment | |
| 96 | 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. | |
| 97 | 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. | |
| 98 | Test Readi ness Revie w | |
| 99 | 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 ). | |
| 100 | Testing Ph ases | |
| 101 | Leidos wil l perform developmen t and SQA testing ac tivities i n phases, and will p rovide all required testing do cumentatio n. | |
| 102 | Unit Testi ng | |
| 103 | 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. | |
| 104 | Component Integratio n and Syst ems Testin g (CI/ST) | |
| 105 | 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. | |
| 106 | Functional Testing | |
| 107 | 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. | |
| 108 | Regression Testing | |
| 109 | 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. | |
| 110 | Section 50 8 Complian ce Testing | |
| 111 | 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. | |
| 112 | Documentat ion Remedi ation | |
| 113 | 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. | |
| 114 | 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 https://w ww.va.gov/ vdl/. Keyw ord search es using t erms relev ant to thi s remediat ion effort will be u sed to ide ntify docu ments that might be impacted; those docu ments will then be r eviewed in their ent irety for any needed revisions . | |
| 115 | The follow ing sectio ns outline the VDL d ocuments t o be revis ed for thi s remediat ion. | |
| 116 | User Guide s | |
| 117 | The follow ing User G uides will be update d in the V DL: | |
| 118 | Controlled Substance s Package Security G uide | |
| 119 | Controlled Substance s Inspecto r’s User M anual | |
| 120 | Controlled Substance s Nurse’s User Manua l | |
| 121 | Controlled Substance s Pharmaci st’s User Manual | |
| 122 | Controlled Substance s Supervis or’s User Manual | |
| 123 | Installati on Guides | |
| 124 | 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. | |
| 125 | Technical Manuals | |
| 126 | The follow ing Techni cal Manual will be u pdated in the VDL: | |
| 127 | Controlled Substance s Technica l Manual | |
| 128 | Operations Manuals | |
| 129 | No Operati ons Manual s require revision a s a result of this m odificatio n. | |
| 130 | Project Re porting | |
| 131 | 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. | |
| 132 | Project Sc hedule | |
| 133 | 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. | |
| 134 | Deployment | |
| 135 | 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. | |
| 136 | Sustainmen t Requirem ents | |
| 137 | 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 . | |
| 138 | Maintenanc e and Know ledge Tran sfer | |
| 139 | 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. | |
| 140 | XINDEX Lis ting for M UMPS Code Changes | |
| 141 | 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. | |
| 142 | V . A. C R O S S R E F E R E N C E R 7. 3 | |
| 143 | [2008 V A Standard s & Conven tions] | |
| 144 | UC I: VISTA C PU: ROU Dec 04, 2 017@14:52: 37 | |
| 145 | Routines: 1 Faux Ro utines: 0 | |
| 146 | ||
| 147 | PSDNU | |
| 148 | ||
| 149 | --- CROSS REFERENCIN G --- | |
| 150 | ||
| 151 | Compiled l ist of Err ors and Wa rnings Dec 04, 20 17@14:52:3 7 page 1 | |
| 152 | No errors or warning s to repor t | |
| 153 | ||
| 154 | --- END -- - | |
| 155 | ||
| 156 | Source Cod e Changes | |
| 157 | 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: | |
| 158 | Modified M UMPS routi nes: PSDNU | |
| 159 | New MUMPS routines: None | |
| 160 | PSDNU | |
| 161 | Before: | |
| 162 | PSDNU ;BIR /BJW-Usage Report fo r NAOUs ; 11 Feb 98 | |
| 163 | ;;3.0; CO NTROLLED S UBSTANCES ;**8**;13 Feb 97 | |
| 164 | ;**Y2K complianc e**,"P" ad ded to dat e input st ring | |
| 165 | I '$D( PSDSITE) D ^PSDSET Q :'$D(PSDSI TE) | |
| 166 | I '$D(^XU SEC("PSJ R PHARM",DUZ )) W $C(7) ,!!,?9,"** Please co ntact your Pharmacy Coordinato r for acce ss to prin t",!,?12," the narcot ic NAOU Us age Report .",!!,"PSJ RPHARM se curity key required. ",! Q | |
| 167 | W !!," Select Dat e Range fo r NAOU Usa ge Report" ,! | |
| 168 | DATE ;a sk date ra nge | |
| 169 | W ! K %DT S %DT= "AEP",%DT( "A")="Star t with Dat e: " D ^%D T I Y<0 S PSDOUT=1 G END | |
| 170 | S PSDS D=Y D D^DI Q S PSDATE =Y,%DT("A" )="End wit h Date: " D ^%DT I Y <0 S PSDOU T=1 G END | |
| 171 | I Y<PS DSD W !!," The ending date of t he range m ust be lat er than th e starting date." G DATE | |
| 172 | S PSDE D=Y D D^DI Q S PSDATE =PSDATE_"^ "_Y,PSDSD= PSDSD-.000 1,PSDED=PS DED+.9999 | |
| 173 | D NOW^ %DTC S PSD T=X | |
| 174 | SUM ;if su mmary only | |
| 175 | W ! K DA,DIR,DIR UT S DIR(0 )="Y",DIR( "A")="Do y ou want to print the summary t otals only ",DIR("B") ="NO" | |
| 176 | S DIR( "?",1)="An swer 'YES' to print only the s ummary tot als for th is report, ",DIR("?") ="answer ' NO' to pri nt the det ail report including summary t otals." | |
| 177 | D ^DIR K DIR G:$ D(DIRUT) E ND S SUM=Y | |
| 178 | SORT ;s el sort or der | |
| 179 | K DA,D IR,DIRUT S DIR(0)="S O^D:DRUG/A LL NAOUS;N :NAOU/ALL DRUGS",DIR ("A",1)="Y ou may pri nt by eith er of thes e sorting methods." | |
| 180 | S DIR( "?",1)="En ter 'D' if you wish to print t he NAOU Us age Report sorted by DRUG",DIR ("?",2)=" and withi n DRUG by each NAOU. " | |
| 181 | S DIR( "?",3)="En ter 'N' to print the NAOU Usag e Report b y NAOU",DI R("?")=" and within NAOU by e ach DRUG." | |
| 182 | S DIR( "A")="Sele ct SORT OR DER for Re port" D ^D IR K DIR G :$D(DIRUT) END S ANS =Y | |
| 183 | G:ANS= "D" DRUG | |
| 184 | ASKN ;a sk NAOU(s) | |
| 185 | W !!,? 5,"You may select a single NAO U, several NAOUs,",! ,?5,"or en ter ^ALL t o select a ll NAOUs." ,!! | |
| 186 | K DA,D IC | |
| 187 | F S D IC=58.8,DI C("A")="Se lect NAOU: ",DIC(0)= "QEA",DIC( "S")="I $S ('$D(^(""I "")):1,'^( ""I""):1,+ ^(""I"")>P SDT:1,1:0) ,$P(^(0)," "^"",2)="" N"",$P(^(0 ),""^"",3) =+PSDSITE" D ^DIC K DIC Q:Y<0 S LOC(+Y) ="" | |
| 188 | I '$D( LOC)&(X'=" ^ALL") G E ND | |
| 189 | I X="^ ALL" F PSD =0:0 S PSD =$O(^PSD(5 8.8,PSD)) Q:'PSD I $S('$D(^PS D(58.8,PSD ,"I")):1,' ^("I"):1,+ ^("I")>PSD T:1,1:0),$ P($G(^(0)) ,"^",2)="N ",$P($G(^( 0)),"^",3) =+PSDSITE S LOC(PSD) ="" | |
| 190 | G DEV | |
| 191 | DRUG ;a sk drug(s) | |
| 192 | W !!,? 5,"You may select a single dru g, several drugs,",! ,?5,"or en ter ^ALL t o select a ll drugs." ,!! | |
| 193 | K DA,D IC F S DI C("A")="Se lect DRUG: ",DIC=50, DIC(0)="QE AM",DIC("S ")="I $S(' $D(^(""I"" )):1,+^("" I"")>DT:1, 1:0),$P($G (^(2)),""^ "",3)[""N" "" D ^DIC K DIC Q:Y< 0 S LOC(+ Y)="" | |
| 194 | I '$D( LOC)&(X'=" ^ALL") G E ND | |
| 195 | I X="^ ALL" S ALL =1 | |
| 196 | DEV ;asks device and queueing informatio n | |
| 197 | W !!," This repor t is desig ned for a 80 column format.",! ,"You may queue this report to print at a later ti me.",!! | |
| 198 | K %ZIS ,IOP,IO("Q "),POP S % ZIS="QM",% ZIS("B")=" " D ^%ZIS I POP W !, "NO DEVICE SELECTED OR REPORT PRINTED!" G END | |
| 199 | I $D(I O("Q")) K IO("Q"),ZT IO,ZTSAVE, ZTDTH,ZTSK S ZTRTN=$ S(ANS="D": "START^PSD NU1",1:"ST ART^PSDNU2 "),ZTDESC= "CS PHARM NAOU Usage Report" D SAVE,^%ZT LOAD,HOME^ %ZIS K ZTS K G END | |
| 200 | U IO G :ANS="D" S TART^PSDNU 1 G:ANS="N " START^PS DNU2 | |
| 201 | END ; | |
| 202 | K %,%D T,%H,%I,%Z IS,ALL,ANS ,DA,DATE,D IC,DIR,DIR OUT,DIRUT, DTOUT,DUOU T,IO("Q"), LOC | |
| 203 | K POP, PSD,PSDATE ,PSDED,PSD OUT,PSDSD, PSDT,SUM,X ,Y,ZTDESC, ZTIO,ZTRTN ,ZTSAVE D ^%ZISC | |
| 204 | S:$D(Z TQUEUED) Z TREQ="@" | |
| 205 | Q | |
| 206 | SAVE ;s ave variab les for qu eueing | |
| 207 | S ZTSA VE("ANS")= "",ZTSAVE( "SUM")="", ZTSAVE("PS DSITE")="" ,ZTSAVE("P SD")="",ZT SAVE("PSDT ")="" S:$D (LOC) ZTSA VE("LOC(") ="" | |
| 208 | S:$D(A LL) ZTSAVE ("ALL")="" | |
| 209 | S (ZTS AVE("PSDAT E"),ZTSAVE ("PSDED"), ZTSAVE("PS DSD"))="" | |
| 210 | Q | |
| 211 | After: | |
| 212 | PSDNU ; BIR/BJW-Us age Report for NAOUs ; 13 Nov 17 | |
| 213 | ; ;3.0;CONTR OLLED SUBS TANCES;**8 ,82**;13 F eb 97 | |
| 214 | ; **Y2K comp liance**," P" added t o date inp ut string | |
| 215 | I '$D(PSDSI TE) D ^PSD SET Q:'$D( PSDSITE) | |
| 216 | I '$D(^XUSE C("PSJ RPH ARM",DUZ)) &('$D(^XUS EC("PSD TE CH ADV",DU Z))) D G | |
| 217 | END ; PSD *3.0*82 ch anges this and next 3 lines | |
| 218 | . W $C(7),! !,?9,"** P lease cont act your P harmacy Co ordinator for access to print" | |
| 219 | . W !,?12," the narcot ic NAOU Us age Report ." | |
| 220 | . W !!,"PSJ RPHARM or PSD TECH ADV securi ty key is required." ,! | |
| 221 | W !!,"Selec t Date Ran ge for NAO U Usage Re port",! | |
| 222 | DATE ; ask date r ange | |
| 223 | W ! K %DT S %DT="AEP" ,%DT("A")= "Start wit h Date: " D ^%DT I Y <0 S PSDOU | |
| 224 | T=1 G END | |
| 225 | S PSDSD=Y D D^DIQ S P SDATE=Y,%D T("A")="En d with Dat e: " D ^%D T I Y<0 S | |
| 226 | PSDOUT=1 G END | |
| 227 | I Y<PSDSD W !!,"The e nding date of the ra nge must b e later th an the sta | |
| 228 | rting date ." G DATE | |
| 229 | S PSDED=Y D D^DIQ S P SDATE=PSDA TE_"^"_Y,P SDSD=PSDSD -.0001,PSD ED=PSDED+. | |
| 230 | 9999 | |
| 231 | D NOW^%DTC S PSDT=X | |
| 232 | SUM ; if summary only | |
| 233 | W ! K DA,DI R,DIRUT S DIR(0)="Y" ,DIR("A")= "Do you wa nt to prin t the summ | |
| 234 | ary totals only",DIR ("B")="NO" | |
| 235 | S DIR("?",1 )="Answer 'YES' to p rint only the summar y totals f or this re | |
| 236 | port,",DIR ("?")="ans wer 'NO' t o print th e detail r eport incl uding summ ary totals | |
| 237 | ." | |
| 238 | D ^DIR K DI R G:$D(DIR UT) END S SUM=Y | |
| 239 | SORT ; sel sort o rder | |
| 240 | K DA,DIR,DI RUT S DIR( 0)="SO^D:D RUG/ALL NA OUS;N:NAOU /ALL DRUGS ",DIR("A", | |
| 241 | 1)="You ma y print by either of these sor ting metho ds." | |
| 242 | S DIR("?",1 )="Enter ' D' if you wish to pr int the NA OU Usage R eport sort | |
| 243 | ed by DRUG ",DIR("?", 2)=" and within DRU G by each NAOU." | |
| 244 | S DIR("?",3 )="Enter ' N' to prin t the NAOU Usage Rep ort by NAO U",DIR("?" | |
| 245 | )=" and w ithin NAOU by each D RUG." | |
| 246 | S DIR("A")= "Select SO RT ORDER f or Report" D ^DIR K DIR G:$D(D IRUT) END | |
| 247 | S ANS=Y | |
| 248 | G :ANS="D" D RUG | |
| 249 | ASKN ; ask NAOU(s ) | |
| 250 | W !!,?5,"Yo u may sele ct a singl e NAOU, se veral NAOU s,",!,?5," or enter ^ | |
| 251 | ALL to sel ect all NA OUs.",!! | |
| 252 | K DA,DIC | |
| 253 | F S DIC=58 .8,DIC("A" )="Select NAOU: ",DI C(0)="QEA" ,DIC("S")= "I $S('$D( | |
| 254 | ^(""I"")): 1,'^(""I"" ):1,+^(""I "")>PSDT:1 ,1:0),$P(^ (0),""^"", 2)=""N"",$ P(^(0),""^ | |
| 255 | "",3)=+PSD SITE" D ^D IC K DIC Q :Y<0 S LO C(+Y)="" | |
| 256 | I '$D(LOC)& (X'="^ALL" ) G END | |
| 257 | I X="^ALL" F PSD=0:0 S PSD=$O(^ PSD(58.8,P SD)) Q:'PS D I $S('$ D(^PSD(58. | |
| 258 | 8,PSD,"I") ):1,'^("I" ):1,+^("I" )>PSDT:1,1 :0),$P($G( ^(0)),"^", 2)="N",$P( $G(^(0))," | |
| 259 | ^",3)=+PSD SITE S LOC (PSD)="" | |
| 260 | G DEV | |
| 261 | DRUG ; ask drug(s ) | |
| 262 | W !!,?5,"Yo u may sele ct a singl e drug, se veral drug s,",!,?5," or enter ^ | |
| 263 | ALL to sel ect all dr ugs.",!! | |
| 264 | K DA,DIC F S DIC("A" )="Select DRUG: ",DI C=50,DIC(0 )="QEAM",D IC("S")="I | |
| 265 | $S('$D(^( ""I"")):1, +^(""I"")> DT:1,1:0), $P($G(^(2) ),""^"",3) [""N""" D ^DIC K DIC | |
| 266 | Q:Y<0 S LOC(+Y)="" | |
| 267 | I '$D(LOC)& (X'="^ALL" ) G END | |
| 268 | I X="^ALL" S ALL=1 | |
| 269 | DEV ; asks devic e and queu eing infor mation | |
| 270 | W !!,"This report is designed f or a 80 co lumn forma t.",!,"You may queue | |
| 271 | this repo rt to prin t at a lat er time.", !! | |
| 272 | K %ZIS,IOP, IO("Q"),PO P S %ZIS=" QM",%ZIS(" B")="" D ^ %ZIS I POP W !,"NO D | |
| 273 | EVICE SELE CTED OR RE PORT PRINT ED!" G END | |
| 274 | I $D(IO("Q" )) K IO("Q "),ZTIO,ZT SAVE,ZTDTH ,ZTSK S ZT RTN=$S(ANS ="D":"STAR | |
| 275 | T^PSDNU1", 1:"START^P SDNU2"),ZT DESC="CS P HARM NAOU Usage Repo rt" D SAVE ,^%ZTLOAD, | |
| 276 | HOME^%ZIS K ZTSK G E ND | |
| 277 | U IO G:ANS= "D" START^ PSDNU1 G:A NS="N" STA RT^PSDNU2 | |
| 278 | END ; | |
| 279 | K %,%DT,%H, %I,%ZIS,AL L,ANS,DA,D ATE,DIC,DI R,DIROUT,D IRUT,DTOUT ,DUOUT,IO( | |
| 280 | "Q"),LOC | |
| 281 | K POP,PSD,P SDATE,PSDE D,PSDOUT,P SDSD,PSDT, SUM,X,Y,ZT DESC,ZTIO, ZTRTN,ZTSA | |
| 282 | VE D ^%ZIS C | |
| 283 | S :$D(ZTQUEU ED) ZTREQ= "@" | |
| 284 | Q | |
| 285 | SAVE ; save varia bles for q ueueing | |
| 286 | S ZTSAVE("A NS")="",ZT SAVE("SUM" )="",ZTSAV E("PSDSITE ")="",ZTSA VE("PSD")= | |
| 287 | "",ZTSAVE( "PSDT")="" S:$D(LOC) ZTSAVE("L OC(")="" | |
| 288 | S :$D(ALL) Z TSAVE("ALL ")="" | |
| 289 | S (ZTSAVE(" PSDATE"),Z TSAVE("PSD ED"),ZTSAV E("PSDSD") )="" | |
| 290 | Q | |
| 291 | ========== ========== ========== ========== ========== ========== ======== |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.