12. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/28/2017 6:25:13 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

12.1 Files compared

#	Location	File	Last Modified
1	OSCIF_ EPIP 2.0_NUR_4.0_45_August_2017.zip	EPIP_Remediation_Plan_(NUR_4.0_45).docx	Thu Sep 28 15:23:44 2017 UTC
2	OSCIF_ EPIP 2.0_NUR_4.0_45_August_2017.zip	EPIP_Remediation_Plan_(NUR_4.0_45).docx	Thu Sep 28 21:57:07 2017 UTC

12.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	4	662
Changed	3	10
Inserted	0	0
Removed	0	0

12.3 Comparison options

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

12.4 Active regular expressions

No regular expressions were active.

12.5 Comparison detail

	1	Existing P roduct Int ake Progra m (EPIP)
	2	Patch NUR* 4.0*45
	3	Remediatio n Plan
	4
	5	Department of Vetera ns Affairs
	6	July 2017
	7	Version 2. 0
	8
	9
	10
	11	Revision H istory
	12	Date
	13	Version
	14	Descriptio n
	15	Author
	16	07/21/2017
	17	2.0
	18	Updated Se ction 5.3 Coding Cha nges, Sect ion 7 Docu mentation Remediatio n, and App endices
	19	EPIP Proje ct Team
	20	05/03/2017
	21	1.0
	22	Initial (d raft) vers ion
	23	EPIP Proje ct Team
	24
	25	Table of C ontents
	26	1.Introduc tion1
	27	2.Purpose1
	28	3.Patch De scription1
	29	3.1.Needs and Requir ements3
	30	4.Points o f Contact4
	31	5.Code Rem ediation4
	32	5.1.Standa rds and Co nventions5
	33	5.2.Review and Analy sis5
	34	5.3.Coding Changes5
	35	6.Testing5
	36	6.1.Test P lan5
	37	6.2.Test E nvironment 6
	38	6.3.Test R eadiness R eview6
	39	6.4.Testin g Phases6
	40	6.4.1.Unit Testing6
	41	6.4.2.Comp onent Inte gration an d Systems Testing (C I/ST)6
	42	6.4.3.Func tional Tes ting6
	43	6.4.4.Regr ession Tes ting7
	44	6.4.5.Sect ion 508 Co mpliance T esting7
	45	7.Document ation Reme diation7
	46	7.1.User G uides7
	47	7.2.Instal lation Gui des7
	48	7.3.Techni cal Manual s8
	49	7.4.Operat ions Manua ls8
	50	8.Project Reporting8
	51	9.Project Schedule8
	52	10.Deploym ent8
	53	11.Sustain ment Requi rements8
	54	12.Mainten ance and K nowledge T ransfer8
	55	Appendix A :XINDEX Li sting for MUMPS Code Changes9
	56	Appendix B :Source Co de Changes 10
	57
	58
	59
	60	Introducti on
	61	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.
	62	Purpose
	63	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 NUR4. 045. This patch add resses the following NSRs:
	64	NSR2017030 9 Enhancem ents to Nu rsing Pati ent Assign ment Works heet
	65	This NSR h as been im plemented locally at the VA Me dical Cent ers in Mem phis TN an d West Pal m Beach FL .
	66	NSR2017031 6 Enhancem ents to Nu rsing End of Shift R eport
	67	This NSR h as been im plemented locally at the VA Me dical Cent ers in Mem phis TN, C harleston SC, San Fr ancisco CA , Clevelan d OH, Gain esville FL , Los Ange les CA, an d Seattle WA, and at the VA Ne w Jersey H ealth Care System (E ast Orange and Lyons NJ).
	68	This docum ent addres ses the sc hedule, co de remedia tion, test ing, docum entation, and delive ry of this remediati on effort.
	69	Patch Desc ription
	70	NUR4.045 provides the follow ing enhanc ements to VistA:
	71	Modifies t he Nursing Patient C are Assign ment Works heet to di splay only the last four digit s of each patient’s Social Sec urity Numb er (SSN) a nd to remo ve the adm itting dia gnosis fro m the work sheet and replace it with the text “ON F ILE.” Thes e changes protect co nfidential patient i nformation and help ensure pri vacy.
	72
	73	Patient Ca re Assignm ent Worksh eet Modifi cations
	74	Enhances t he Nursing End of Sh ift Report to facili tate commu nication b etween sta ff when sh ifts chang e. This mo dification adds an a dditional line of he ader infor mation to the report to clarif y the purp ose of the various r eport sect ions. The new header informati on include s Situatio n, Backgro und, Asses sment, and Recommend ation colu mn heading s. The rep ort additi onally dis plays oxyg en levels in the Ass essment se ction wher e the pati ent’s vita ls (Latest Vitals) a re display ed.
	75	New catego ries (Asse ssment, Sa fety, and Special Ne eds) are a dded to th e Patient Problems s ection of the report to enable staff to document a dditional informatio n that is critical t o patient care. The report is further mo dified to display on ly the las t four dig its of the patient’s Social Se curity Num ber (SSN) to help en sure priva cy.
	76	The Attend ing Physic ian’s voic e and digi tal pager numbers ca n be inclu ded or exc luded from the Nursi ng End of Shift Repo rt using t he paramet er NUR EOS REPORT RE MOVE ATT N UMS. This parameter enables ea ch site to determine whether A ttending P hysician c ontact num bers will display on the repor t. The pat ch is deli vered with this para meter set to NULL (N O), so Att ending Phy sician con tact numbe rs are dis played by default. T o hide the Attending Physician contact n umbers, se t this par ameter to YES using XPAR MENU TOOLS in V istA. Excl uding cont act inform ation for the Attend ing Physic ian elimin ates confu sion for s taff who m ust contac t a Reside nt or On C all Physic ian for pa tient care issues.
	77
	78	End of Shi ft Report Modificati ons
	79	Needs and Requiremen ts
	80	The Needs and Requir ements for the NSR(s ) addresse d in this remediatio n are:
	81	NSR2017030 9 Enhancem ents to Nu rsing Pati ent Assign ment Works heet:
	82	NEED 88334 3: Remove Full SSN a nd Diagnos is from Nu rsing Work sheet – Fo r Nursing staff who are respon sible for providing patient ca re. A set of enhance ments to t he Nursing Patient A ssignments Worksheet that prev ents the d isplay of sensitive patient in formation. Unlike th e current process th at display s sensitiv e informat ion, our p rocess ens ures that informatio n is only available to staff w ho have a need to kn ow.
	83	REQUIREMEN T 883344: Display On ly Last 4 SSN On Nur sing Assig nment Work sheet – Fo r Nursing staff who care for p atients. A modificat ion to the Nursing P atient Ass ignment Wo rksheet th at restric ts display of the So cial Secur ity Number (SSN) to the last f our digits . Unlike t he current report th at display s the pati ent’s full SSN, our process en sures pers onally ide ntifiable informatio n is not v isible to others who may see t his output .
	84	REQUIREMEN T 883345: Remove Adm itting Dia gnosis Nur sing Assig nment Work sheet – Fo r Nursing staff who provide ca re for pat ients. A m odificatio n to the N ursing Pat ient Assig nment Work sheet that replaces the displa y of the A dmitting D iagnosis w ith text s tating ‘ON FILE.’ Un like the c urrent rep ort that d isplays th e Admittin g Diagnosi s, our pro cess preve nts sensit ive patien t informat ion from b eing visib le to user s who do n ot need to know this informati on.
	85	NSR2017031 6 Enhancem ents to Nu rsing End of Shift R eport are:
	86	NEED 88401 5: Enhance ments to N ursing End of Shift Report – F or Nursing staff who are respo nsible for communica ting patie nt informa tion durin g shift ch anges. A s et of enha ncements t o the Nurs ing End of Shift Rep ort that a llows info rmation to be docume nted. Unli ke the cur rent proce ss that re lies on ve rbal commu nication o f informat ion, our p rocess ens ures that critical p atient car e informat ion is not forgotten during th e transiti on of care .
	87	REQUIREMEN T 884016: Use Last 4 SSN Nursi ng End of Shift Repo rt – For N ursing sta ff who car e for pati ents. A mo dification to the Nu rsing End of Shift R eport that restricts display o f the Soci al Securit y Number ( SSN) to th e last fou r digits. Unlike the current r eport that displays the patien t’s full S SN, our pr ocess ensu res person ally ident ifiable in formation is not vis ible to ot hers who m ay see thi s output.
	88	REQUIREMEN T 884017: End of Shi ft Report Section He ader – For Nursing s taff who a re respons ible for c ommunicati ng patient informati on during shift chan ges. A mod ification to the Nur sing End o f Shift Re port that adds an ad ditional l ine of tex t (‘Situat ion’, ‘Bac kground’, ‘Assessmen t’ and ‘Re commendati on’) to th e header. Unlike the current r eport that does not have addit ional head er informa tion, our process cl arifies th e intent o f the vari ous report sections and reduce s confusio n for the staff usin g the repo rt.
	89	REQUIREMEN T 884018: Display Ca tegories U nder Patie nt Problem Section o f End of S hift Repor t – For Nu rsing staf f who are responsibl e for rela ying criti cal patien t data to the next n ursing shi ft. A modi fication t o the Nurs ing End of Shift Rep ort that d isplays te xtual cate gories und er the Pat ient Probl em Section to allow staff to d ocument As sessment, Safety and Special N eeds for e ach patien t. Unlike the curren t process that relie s on verba l communic ation of t his inform ation, our process p rovides an extra mon itoring to ol for nur ses to rel ay data fr om shift t o shift.
	90	REQUIREMEN T 884019: Display In clude Oxyg en Levels on Nursing End of Sh ift Report – For Nur sing manag ers who ar e responsi ble for co mmunicatin g patient informatio n during s hift chang es. A modi fication t o the End of Shift R eport that displays oxygen lev els in the vitals se ction of t he report. Unlike th e current process th at relies on verbal communicat ion of thi s informat ion, our p rocess ens ures that critical i nformation related t o patients in distre ss is not forgotten during the transitio n of care.
	91	REQUIREMEN T 884020: Remove Att ending and On Call P hysician P ager Numbe rs from En d of Shift Report – For Nursin g staff wh o must con tact the R esident or On Call P hysician f or patient care issu es. A modi fication t o the End of Shift R eport that removes t he voice a nd digital pager num bers for t he Attendi ng Physici an. Unlike the curre nt process that incl udes the A ttending P hysicians contact in formation, our proce ss ensures that staf f are not confused o n which st aff to con tact, and follow pro tocol to c ontact the proper st aff.
	92	Points of Contact
	93	The VA POC for NSR20 170309 Enh ancements to Nursing Patient A ssignment Worksheet is PII ( PII ), PII .
	94	The VA Poi nt of Cont act (POC) for NSR201 70316 Enha ncements t o Nursing End of Shi ft Report is P II ( P II ), PII .
	95	Code Remed iation
	96	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.
	97	Standards and Conven tions
	98	Leidos wil l referenc e the http :// URL / website f or applica ble docume nts and wi ll adhere to VA stan dards to c omplete th e analysis of this i ntake prod uct. The o utput of t he VA XIND EX utility will be u sed to ana lyze the M UMPS sourc e code and document the affect ed routine s (see App endix A).
	99	The MUMPS coding sta ndards web site http: // URL / will also be used t o ensure t hat the re mediated c ode confor ms to VA s tandards.
	100	Review and Analysis
	101	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.
	102	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.
	103	Coding Cha nges
	104	The coding changes r equired fo r NSR20170 309 Enhanc ements to Nursing Pa tient Assi gnment Wor ksheet are in the fo llowing ro utines:
	105	Modified M UMPS routi nes: NURCA S0
	106	New MUMPS routines: None
	107	The coding changes r equired fo r NSR20170 316 Enhanc ements to Nursing En d of Shift Report ar e in the f ollowing r outines:
	108	Modified M UMPS routi nes: NURCE S01, NURCE S2, NURCES 5
	109	New MUMPS routines: None
	110	New Parame ters: NUR EOS REPORT REMOVE AT T NUMS
	111	A detailed analysis of the cod ing change s is provi ded in App endix B.
	112	Testing
	113	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.
	114	Test Plan
	115	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.
	116	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.
	117	Test Envir onment
	118	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.
	119	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.
	120	Test Readi ness Revie w
	121	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 ).
	122	Testing Ph ases
	123	Leidos wil l perform developmen t and SQA testing ac tivities i n phases, and will p rovide all required testing do cumentatio n.
	124	Unit Testi ng
	125	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.
	126	Component Integratio n and Syst ems Testin g (CI/ST)
	127	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.
	128	Functional Testing
	129	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.
	130	Regression Testing
	131	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.
	132	Section 50 8 Complian ce Testing
	133	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.
	134	Documentat ion Remedi ation
	135	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.
	136	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:// URL /. Keyword searches using term s relevant to this r emediation effort wi ll be used to identi fy documen ts that mi ght be imp acted; tho se documen ts will th en be revi ewed in th eir entire ty for any needed re visions.
	137	The follow ing sectio ns outline the VDL d ocuments t o be revis ed for thi s remediat ion.
	138	User Guide s
	139	The follow ing User G uide will be updated in the VD L:
	140	VistA Nurs ing User M anual – On ly a PDF v ersion of this manua l is avail able, so u pdates wil l be provi ded via Ch ange Pages :
	141	Updates to the VistA Nursing U ser Manual Version 4 .0 for Pat ch NUR4.0 45 Change Pages (nu rs_4_p45_u m_cp.doc)
	142	Installati on Guides
	143	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.
	144	Technical Manuals
	145	No Technic al Manuals require r evision as a result of this mo dification .
	146	Operations Manuals
	147	No Operati ons Manual s require revision a s a result of this m odificatio n.
	148	Project Re porting
	149	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.
	150	Project Sc hedule
	151	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.
	152	Deployment
	153	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.
	154	Sustainmen t Requirem ents
	155	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 .
	156	Maintenanc e and Know ledge Tran sfer
	157	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.
	158	XINDEX Lis ting for M UMPS Code Changes
	159	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.
	160	V. A. C R O S S R E F E R E N C E R 7.3
	161	[2008 VA Standards & Conventi ons]
	162	UCI: VISTA CPU : ROU M ay 25, 201 7@11:02:26
	163
	164	The BUILD file Data Dictionari es are bei ng process ed.
	165
	166	The option and funct ion files are being processed.
	167
	168
	169	Routines a re being p rocessed.
	170	Routines: 4 Faux Ro utines: 0
	171
	172	NURCAS0 NURCES01 NURCES2 NURCES5
	173
	174	--- CROSS REFERENCIN G ---
	175
	176	Press r eturn to c ontinue:
	177
	178
	179
	180
	181	Compiled l ist of Err ors and Wa rnings May 25, 2017@1 1:02:26 pa ge 1
	182	No errors or warning s to repor t
	183
	184
	185	--- END -- -
	186	Source Cod e Changes
	187	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:
	188	Modified M UMPS routi nes: NURCA S0, NURCES 01, NURCES 2, NURCES5
	189	New MUMPS routines: None
	190	NURCAS0
	191	Before:
	192	HEADER1 ;
	193	S VAINDT= NURDT D IN P^VADPT W !,"RM/BED: ",$S($D(V AIN(5)):VA IN(5),1:"" ),?26,"BED SECTION: " ,NSEC,?45, "ADM: ",$P (NDATA,"^" ,3)
	194	K NURSAL, NURSALGR D ALLERGY^N URCUT1(DFN ,.NURSAL)
	195	S (NURSJ, X)=1,NURSA LGR(1)="RE ACTIONS: " F NURSI=0 :0 S NURSI =$O(NURSAL (NURSI)) Q :NURSI'>0 D
	196	. I $L( NURSALGR(X ))+$L(NURS AL(NURSI)) +2>IOM S N URSJ=1,NUR SALGR(X)=N URSALGR(X) _",",X=X+1 ,NURSALGR( X)=" "
	197	. S NUR SALGR(X)=N URSALGR(X) _$S(NURSJ> 1:", ",1:" ")_$P(NURS AL(NURSI), U),NURSJ=N URSJ+1
	198	. Q
	199	W !,"NAME : ",$S(N1' =" BLANK" :$E(N1,1,1 9),1:""),? 26,"SSN: " ,SSN,?45," PHYSICIAN: ",$E($P(V AIN(2),"^" ,2),1,25)
	200	W !,"CATE GORY: ",$S ($D(NURCAT ):NURCAT,1 :"") W ?26 ,"FACTORS: (" W:$D(N URFACT) NU RFACT W ") " I $D(NCO M),NCOM'=" " W !,"COM MENTS: ",? 22,NCOM
	201	W !,"ADMI TTING DIAG NOSIS: "
	202	W ?22,VAI N(9)
	203	F I=0:0 S I=$O(NURS ALGR(I)) Q :I'>0 W ! ,NURSALGR( I)
	204	Q
	205	After:
	206	HEADER1 ;
	207	S VAINDT= NURDT D IN P^VADPT W !,"RM/BED: ",$S($D(V AIN(5)):VA IN(5),1:"" ),?26,"BED SECTION: " ,NSEC,?45, "ADM: ",$P (NDATA,"^" ,3)
	208	K NURSAL, NURSALGR D ALLERGY^N URCUT1(DFN ,.NURSAL)
	209	S (NURSJ, X)=1,NURSA LGR(1)="RE ACTIONS: " F NURSI=0 :0 S NURSI =$O(NURSAL (NURSI)) Q :NURSI'>0 D
	210	. I $L( NURSALGR(X ))+$L(NURS AL(NURSI)) +2>IOM S N URSJ=1,NUR SALGR(X)=N URSALGR(X) _",",X=X+1 ,NURSALGR( X)=" "
	211	. S NUR SALGR(X)=N URSALGR(X) _$S(NURSJ> 1:", ",1:" ")_$P(NURS AL(NURSI), U),NURSJ=N URSJ+1
	212	. Q
	213	W !,"NAME : ",$S(N1' =" BLANK" :$E(N1,1,1 9),1:""),? 26,"SSN: " ,$E($TR(SS N,"-"),6,9 ),?45,"PHY SICIAN: ", $E($P(VAIN (2),"^",2) ,1,25)
	214	W !,"CATE GORY: ",$S ($D(NURCAT ):NURCAT,1 :"") W ?26 ,"FACTORS: (" W:$D(N URFACT) NU RFACT W ") " I $D(NCO M),NCOM'=" " W !,"COM MENTS: ",? 22,NCOM
	215	W !,"ADMI TTING DIAG NOSIS: ",? 22,"ON FIL E"
	216	F I=0:0 S I=$O(NURS ALGR(I)) Q :I'>0 W ! ,NURSALGR( I)
	217	Q
	218
	219	NURCES01
	220	Before:
	221	PRINT1 ;
	222	D ^NURSAP CH
	223	S GMROUT= 0 I GPACK D SETARRY^ NURCES2
	224	I GFH D D IET^NURCES 4
	225	D EN6^NUR SCUTL S NU RSCLAS("CL ")=1 D EN2 ^NURSCUTL
	226	I NURSCLA S S NDATA( 1)=$S($D(^ NURSA(214. 6,NURSCLAS ,0)):^(0), 1:"") S NU RFACT=$S($ P(NDATA(1) ,"^",4)'=" ":$P(NDATA (1),"^",4) ,1:""),NUR CAT=$S(+$P (NDATA(1), "^",3):$P( NDATA(1)," ^",3),1:"" ),NCOM=$S( $P(NDATA(1 ),"^",7)'= "":$P(NDAT A(1),"^",7 ),1:"")
	227	I $D(^NUR SF(214,DFN ,0)) S NDA TA(2)=^(0) ,NSEC=$S(' $D(NDATA(2 )):"",'$P( NDATA(2)," ^",4):"",' $D(^NURSF( 213.3,$P(N DATA(2),"^ ",4),0)):" ",1:$P(^NU RSF(213.3, $P(NDATA(2 ),"^",4),1 ),"^"))
	228	D PTDATA^ NURCES2,PT PROB^NURCE S1 Q:NURQU IT
	229	I GPACK,$ D(NURIV),N URIV>0 S N =0 F S N= $O(NURIV(N )) Q:N'>0 D
	230	. D FITLI NE^NURCES5 (NURIV(N), 62,.NPR)
	231	I GPACK,$ D(NURTUBE) ,NURTUBE>0 S NPR=NPR +1,NPR(NPR )="Last tu be changed :",GSITE=" " F S GSI TE=$O(NURT UBE(GSITE) ) Q:GSITE= "" S Y=NU RTUBE(GSIT E) X ^DD(" DD") S NPR =NPR+1,NPR (NPR)=" " _GSITE_" o n "_$P(Y," :",1,2)
	232	K NURIV,N URTUBE,GLE FT,GSITE,G SAVEH S NN (1)=2 S:NP R>2&(NOPT= 1) NN(1)=N PR S:NADM> NN(1) NN(1 )=NADM S:N PT>NN(1) N N(1)=NPT S :NVM>NN(1) NN(1)=NVM F NN=1:1: NN(1) D:$Y >(IOSL-8) HEADER^NUR CES2 Q:NUR QUIT D PR INT2^NURCE S2 Q:NURQU IT
	233	I NOPT=2 D PART2
	234	Q:NURQUIT W $S(NOP T=1:NURX,N OPT=2:$E(N URX,1,79), 1:NURX),!
	235	Q
	236	After:
	237	PRINT1 ;
	238	D ^NURSAP CH
	239	S GMROUT= 0 I GPACK D SETARRY^ NURCES2
	240	I GFH D D IET^NURCES 4
	241	D EN6^NUR SCUTL S NU RSCLAS("CL ")=1 D EN2 ^NURSCUTL
	242	I NURSCLA S S NDATA( 1)=$S($D(^ NURSA(214. 6,NURSCLAS ,0)):^(0), 1:"") S NU RFACT=$S($ P(NDATA(1) ,"^",4)'=" ":$P(NDATA (1),"^",4) ,1:""),NUR CAT=$S(+$P (NDATA(1), "^",3):$P( NDATA(1)," ^",3),1:"" ),NCOM=$S( $P(NDATA(1 ),"^",7)'= "":$P(NDAT A(1),"^",7 ),1:"")
	243	I $D(^NUR SF(214,DFN ,0)) S NDA TA(2)=^(0) ,NSEC=$S(' $D(NDATA(2 )):"",'$P( NDATA(2)," ^",4):"",' $D(^NURSF( 213.3,$P(N DATA(2),"^ ",4),0)):" ",1:$P(^NU RSF(213.3, $P(NDATA(2 ),"^",4),1 ),"^"))
	244	D PTDATA^ NURCES2,PT PROB^NURCE S1 Q:NURQU IT
	245	I GPACK,$ D(NURIV),N URIV>0 S N =0 F S N= $O(NURIV(N )) Q:N'>0 D
	246	. D FITLI NE^NURCES5 (NURIV(N), 62,.NPR)
	247	I GPACK,$ D(NURTUBE) ,NURTUBE>0 S NPR=NPR +1,NPR(NPR )="Last tu be changed :",GSITE=" " F S GSI TE=$O(NURT UBE(GSITE) ) Q:GSITE= "" S Y=NU RTUBE(GSIT E) X ^DD(" DD") S NPR =NPR+1,NPR (NPR)=" " _GSITE_" o n "_$P(Y," :",1,2)
	248	D ASSN
	249	K NURIV,N URTUBE,GLE FT,GSITE,G SAVEH S NN (1)=2 S:NP R>2&(NOPT= 1) NN(1)=N PR S:NADM> NN(1) NN(1 )=NADM S:N PT>NN(1) N N(1)=NPT S :NVM>NN(1) NN(1)=NVM F NN=1:1: NN(1) D:$Y >(IOSL-8) HEADER^NUR CES2 Q:NUR QUIT D PR INT2^NURCE S2 Q:NURQU IT
	250	I NOPT=2 D PART2
	251	Q:NURQUIT W $S(NOP T=1:NURX,N OPT=2:$E(N URX,1,79), 1:NURX),!
	252	Q
	253	ASSN ;Asse ssment, Sa fety and S pecial Nee ds
	254	I '$G(NPR ) D FITLI NE^NURCES5 (" ",62,.N PR)
	255	D FITLINE ^NURCES5(" ",62,.NPR )
	256	D FITLINE ^NURCES5(" Assessment : [ ]FALL [ ]I&O [ ]SL [ ]PICC",62 ,.NPR)
	257	D FITLINE ^NURCES5(" [ ]MID [ ]ASPR", 62,.NPR)
	258	D FITLINE ^NURCES5(" ",62,.NPR )
	259	D FITLINE ^NURCES5(" SAFETY: (i solation, elopement risk, rest raints,",6 2,.NPR)
	260	D FITLINE ^NURCES5(" c ritical la b values,f all/risk s core _____ _)",62,.NP R)
	261	D FITLINE ^NURCES5(" ",62,.NPR )
	262	D FITLINE ^NURCES5(" SPECIAL NE EDS: (equi pment, oxy gen, etc.) ",62,.NPR)
	263	D FITLINE ^NURCES5(" ",62,.NPR )
	264	Q
	265
	266	NURCES2
	267	Before:
	268	HEADER ; P RINTING OF HEADING R OUTINE
	269	I $E(IOST )="C",NURS W1 W !,$C( 7),"Enter <RET> to c ontinue " R X:DTIME I '$T!(X=" ^") S NURQ UIT=1 Q
	270	S Y=(GMRF IN+.0001)_ "00"
	271	S NURPAGE =NURPAGE+1 ,NURSW1=1 W:NURPAGE> 1 @IOF
	272	W !,NURDT ,?20,"END- OF-SHIFT R EPORT",?40 ,"UNIT: ", NPWARD W ? $S(NOPT=1: 90,NOPT=2: 55,1:55)," TOUR: "_+$ E($P(GMRST RT,".",2), 1,2)_":"_$ E($P(GMRST RT,".",2)_ "00",3,4)_ "-"_+$E($P (Y,".",2), 1,2)_":",$ E($P(Y,"." ,2),3,4)
	273	W ?$S(NOP T=1:118,NO PT=2:72,1: 72),"PAGE: ",NURPAGE
	274	W !,"ROOM -BED/NAME/ SSN/",?25, "\|ADMITTIN G DX/ \|P T \|LATEST VITALS" W: NOPT=1 ?68 ,"\|PATIENT PROBLEMS"
	275	W !,"SPEC IALTY/DIET /ALLERGIES ",?25,"\|DA TE/MDs",?4 2,"\|CAT\|" W:NOPT=1 ? 68,"\|",!,N URX,! W:NO PT=2 !,$E( NURX,1,79) ,!
	276	Q
	277	PTDATA ;
	278	S NPT(1)= $S($P(VAIN (5),"^")'= "":$P(VAIN (5),"^"),1 :"")
	279	S NPT(2)= $S(N1'=" BLANK":$E( N1,1,17),1 :""),NPT(3 )=NSSN,NPT =3 D FITLI NE^NURCES5 ("Specialt y: "_$P($G (VAIN(3)), "^",2),25, .NPT)
	280	I GFH D F ITLINE^NUR CES5(NDIET ,25,.NPT)
	281	D ALLERGY ^NURCES4
	282	S NCL(1)= $S($D(NURC AT):NURCAT ,1:"") S N ADM=0 D IN P^VADPT D FITLINE^NU RCES5(VAIN (9),16,.NA DM)
	283	S Y=$P(VA IN(7),"^") S:Y'="" N ADM=NADM+1 ,NADM(NADM )=$E(Y,4,5 )_"/"_$E(Y ,6,7)_"/"_ $E(Y,2,3) S Y=$P(Y," .",2) S:Y' ="" NADM(N ADM)=NADM( NADM)_"@"_ $E(Y_"00", 1,2) S Y=$ E(Y,3,4) S :Y'="" NAD M(NADM)=NA DM(NADM)_" :"_$E(Y_"0 ",1,2)
	284	S NADM=NA DM+1,NADM( NADM)=$P(V ADM(4),"^" )_" yrs. " _$S($P(VAD M(5),"^",2 )'="":$P(V ADM(5),"^" ,2),1:" ")
	285	I $P($G(V AIN(11))," ^",2)'="" D K G
	286	. S G=0,N ADM=NADM+1 ,NADM(NADM )=$P(VAIN( 11),"^",2) ,G=$O(^VA( 200,"B",NA DM(NADM),0 )),NADM=NA DM+1,NADM( NADM)=" (A )"
	287	. I G>0,$ D(^VA(200, G,.13)) S G(1)=$P($G (^(.13))," ^",7),G(2) =$P($G(^(. 13)),"^",8 ) D
	288	. . I G(1 )'="" S NA DM=NADM+1, NADM(NADM) =G(1) D
	289	. . . I $ L(G(1))>11 S NADM=NA DM+1,NADM( NADM)=" (V )"
	290	. . . E S NADM(NAD M)=NADM(NA DM)_" (V)"
	291
	292	After:
	293	HEADER ; P RINTING OF HEADING R OUTINE
	294	I $E(IOST )="C",NURS W1 W !,$C( 7),"Enter <RET> to c ontinue " R X:DTIME I '$T!(X=" ^") S NURQ UIT=1 Q
	295	S Y=(GMRF IN+.0001)_ "00"
	296	S NURPAGE =NURPAGE+1 ,NURSW1=1 W:NURPAGE> 1 @IOF
	297	W !,NURDT ,?20,"END- OF-SHIFT R EPORT",?40 ,"UNIT: ", NPWARD W ? $S(NOPT=1: 90,NOPT=2: 55,1:55)," TOUR: "_+$ E($P(GMRST RT,".",2), 1,2)_":"_$ E($P(GMRST RT,".",2)_ "00",3,4)_ "-"_+$E($P (Y,".",2), 1,2)_":",$ E($P(Y,"." ,2),3,4)
	298	W ?$S(NOP T=1:118,NO PT=2:72,1: 72),"PAGE: ",NURPAGE
	299	W !,"SITU ATION",?25 ,"\|BACKGRO UND \| \|ASSESS MENT " W:N OPT=1 ?68, "\|RECOMEND ATION"
	300	W !,"ROOM -BED/NAME/ SSN/",?25, "\|ADMITTIN G DX/ \|P T \|LATEST VITALS" W: NOPT=1 ?68 ,"\|PATIENT PROBLEMS"
	301	W !,"SPEC IALTY/DIET /ALLERGIES ",?25,"\|DA TE/MDs",?4 2,"\|CAT\|" W:NOPT=1 ? 68,"\|",!,N URX,! W:NO PT=2 !,$E( NURX,1,79) ,!
	302	Q
	303	PTDATA ;
	304	S NPT(1)= $S($P(VAIN (5),"^")'= "":$P(VAIN (5),"^"),1 :"")
	305	S NPT(2)= $S(N1'=" BLANK":$E( N1,1,17),1 :"")
	306	S NPT(3)= $E($TR(NSS N,"-",""), 6,9),NPT=3
	307	D FITLINE ^NURCES5(" Specialty: "_$P($G(V AIN(3)),"^ ",2),25,.N PT)
	308	I GFH D F ITLINE^NUR CES5(NDIET ,25,.NPT)
	309	D ALLERGY ^NURCES4
	310	S NCL(1)= $S($D(NURC AT):NURCAT ,1:"") S N ADM=0 D IN P^VADPT D FITLINE^NU RCES5(VAIN (9),16,.NA DM)
	311	S Y=$P(VA IN(7),"^") S:Y'="" N ADM=NADM+1 ,NADM(NADM )=$E(Y,4,5 )_"/"_$E(Y ,6,7)_"/"_ $E(Y,2,3) S Y=$P(Y," .",2) S:Y' ="" NADM(N ADM)=NADM( NADM)_"@"_ $E(Y_"00", 1,2) S Y=$ E(Y,3,4) S :Y'="" NAD M(NADM)=NA DM(NADM)_" :"_$E(Y_"0 ",1,2)
	312	S NADM=NA DM+1,NADM( NADM)=$P(V ADM(4),"^" )_" yrs. " _$S($P(VAD M(5),"^",2 )'="":$P(V ADM(5),"^" ,2),1:" ")
	313	I $P($G(V AIN(11))," ^",2)'="" D K G
	314	. S G=0,N ADM=NADM+1 ,NADM(NADM )=$P(VAIN( 11),"^",2) ,G=$O(^VA( 200,"B",NA DM(NADM),0 )),NADM=NA DM+1,NADM( NADM)=" (A )"
	315	. I '$$GE T^XPAR("PK G","NUR EO S REPORT R EMOVE ATT NUMS"),G>0 ,$D(^VA(20 0,G,.13)) S G(1)=$P( $G(^(.13)) ,"^",7),G( 2)=$P($G(^ (.13)),"^" ,8) D
	316	. . I G(1 )'="" S NA DM=NADM+1, NADM(NADM) =G(1) D
	317	. . . I $ L(G(1))>11 S NADM=NA DM+1,NADM( NADM)=" (V )"
	318	. . . E S NADM(NAD M)=NADM(NA DM)_" (V)"
	319	NURCES5
	320	Before:
	321	VITAL ;
	322	N NUR,NUR VIT,NURIEF ,NURDT,NDT FLG,NURDT, NURTYP,NUR QUAL,NURDA TA,NURWT,N URHT,NURBM I
	323	S GMRVSTR ="T;P;R;BP ;WT;HT;PN; ",GMRVSTR( 0)="^^1^1" D EN1^GMR VUT0
	324	I $D(^UTI LITY($J,"G MRVD")) S %X="^UTILI TY($J,""GM RVD"",",%Y ="NURVIT(" D %XY^%RC R K ^UTILI TY($J,"GMR VD")
	325	S GMRVSTR ="T;P;R;BP ;PN;",GMRV STR(0)=NUR NOW(1)_"^" _NURNOW D EN1^GMRVUT 0
	326	F NUR="T" ,"P","R"," BP" S NURD T=0 F S N URDT=$O(^U TILITY($J, "GMRVD",NU R,NURDT)) Q:NURDT'>0 S NURDA= 0 F S NUR DA=$O(^UTI LITY($J,"G MRVD",NUR, NURDT,NURD A)) Q:NURD A'>0 D
	327	. I $P(^U TILITY($J, "GMRVD",NU R,NURDT,NU RDA),"^",1 2)="*",'$D (NURVIT(NU RDT,NUR,NU RDA)) S NU RVIT(NURDT ,NUR,NURDA )=^UTILITY ($J,"GMRVD ",NUR,NURD T,NURDA)
	328
	329	After:
	330	VITAL ;
	331	N NUR,NUR VIT,NURIEF ,NURDT,NDT FLG,NURDT, NURTYP,NUR QUAL,NURDA TA,NURWT,N URHT,NURBM I
	332	S GMRVSTR ="T;P;R;BP ;WT;HT;PN; PO2;",GMRV STR(0)="^^ 1^1" D EN1 ^GMRVUT0
	333	I $D(^UTI LITY($J,"G MRVD")) S %X="^UTILI TY($J,""GM RVD"",",%Y ="NURVIT(" D %XY^%RC R K ^UTILI TY($J,"GMR VD")
	334	S GMRVSTR ="T;P;R;BP ;PN;",GMRV STR(0)=NUR NOW(1)_"^" _NURNOW D EN1^GMRVUT 0
	335	F NUR="T" ,"P","R"," BP" S NURD T=0 F S N URDT=$O(^U TILITY($J, "GMRVD",NU R,NURDT)) Q:NURDT'>0 S NURDA= 0 F S NUR DA=$O(^UTI LITY($J,"G MRVD",NUR, NURDT,NURD A)) Q:NURD A'>0 D
	336	. I $P(^U TILITY($J, "GMRVD",NU R,NURDT,NU RDA),"^",1 2)="*",'$D (NURVIT(NU RDT,NUR,NU RDA)) S NU RVIT(NURDT ,NUR,NURDA )=^UTILITY ($J,"GMRVD ",NUR,NURD T,NURDA)