67. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/15/2018 2:43:31 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.

67.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src	uHelpManager.pas	Thu Mar 29 21:15:50 2018 UTC
2	CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src	uHelpManager.pas	Mon May 14 19:11:44 2018 UTC

67.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	688
Changed	1	232
Inserted	0	0
Removed	0	0

67.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

67.4 Active regular expressions

No regular expressions were active.

67.5 Comparison detail

	1	unit uHelp Manager;
	2
	3	interface
	4
	5	uses Windo ws;
	6
	7	type
	8	THelpMan ager = cla ss(TObject )
	9	private
	10	InProg ress: bool ean;
	11	constr uctor Crea te;
	12	public
	13	HelpHa ndle: hWnd ;
	14	class function G etInstance : THelpMan ager;
	15	functi on ExecHel p(Command: Word; Dat a: NativeI nt; var Ca llHelp: Bo olean): Bo olean;
	16	end;
	17
	18	implementa tion
	19
	20	uses ORSys tem, SysUt ils, Dialo gs, ShellA PI, Forms;
	21
	22	var
	23	HelpMana ger: THelp Manager;
	24
	25	{========= ========== ========== ========== ========== ======}
	26	{ THelpMa nager - cl ass used t o manage t he help sy stem }
	27	{========= ========== ========== ========== ========== ======}
	28
	29	type
	30	// List of contex ts current ly in use
	31	THelpCon texts = (h cNone,
	32	h cLogin,
	33	h cSignon,
	34	h cConnect,
	35	h cPatientSe lectCbo,
	36	h cPatientSe lectForm,
	37	h cCover,
	38	h cProblem,
	39	h cMeds,
	40	h cOrders,
	41	h cNotes,
	42	h cConsults,
	43	h cDischarge Summ,
	44	h cLabs,
	45	h cReports,
	46	h cOptCoverD ay,
	47	h cOptCoverR emind,
	48	h cOptOtherP aram,
	49	h cOptionsOK ,
	50	h cOptionsCa ncel,
	51	h cOptionsAp ply,
	52	h cOptDay,
	53	h cOptDayLab Def,
	54	h cOptDayVis itDef,
	55	h cOptDayLab Inp,
	56	h cOptDayLab Outp,
	57	h cOptStartS top,
	58	h cOptRemind ,
	59	h cOptUp,
	60	h cOptDown,
	61	h cOptRemDel ete,
	62	h cOptRemAdd ,
	63	h cOptRemDis p,
	64	h cOptRemNot Disp,
	65	h cOptNotif,
	66	h cOptNotifR emove,
	67	h cOptNotifF lag,
	68	h cOptSurrBt n,
	69	h cOptNotifV iew,
	70	h cOptOrderC heck,
	71	h cOptOrderC heckView,
	72	h cOptListTe am,
	73	h cOptPatSel Btn,
	74	h cOptPersLi st,
	75	h cOptTeamBt n,
	76	h cOptCombin ation,
	77	h cOptPatSel ,
	78	h cOptPatSel ListSrc,
	79	h cOptPatSel Sort,
	80	h cOptPatSel Provider,
	81	h cOptPatSel Treating,
	82	h cOptPatSel Team,
	83	h cOptPatSel Ward,
	84	h cOptPatSel DayOfWeek,
	85	h cOptPatSel VisitStart ,
	86	h cOptPatSel VisitStop,
	87	h cOptList,
	88	h cOptListAd dByType,
	89	h cOptListAd dBy,
	90	h cOptListPa t,
	91	h cOptListPe rsList,
	92	h cOptListPe rsPat,
	93	h cOptListAd d,
	94	h cOptListAd dAll,
	95	h cOptListPe rsPatR,
	96	h cOptListPe rsPatRA,
	97	h cOptListSa ve,
	98	h cOptListNe w,
	99	h cOptListDe lete,
	100	h cOptNewLis t,
	101	h cOptNewLis tText,
	102	h cOptTeam,
	103	h cOptTeamPa t,
	104	h cOptTeamLs t,
	105	h cOptTeamUs er,
	106	h cOptTeamRe move,
	107	h cOptTeamSu bscr,
	108	h cOptTeamPe rs,
	109	h cOptTeamRe strict,
	110	h cOptSurr,
	111	h cOptSurrRe move,
	112	h cOrderAler t,
	113	h cOptSurrDa te,
	114	h cOptOther,
	115	h cOptOtherT ab,
	116	h cOptOtherL ast,
	117	h cOptComb,
	118	h cOptCombAd dByType,
	119	h cOptCombAd dBy,
	120	h cOptCombVi ew,
	121	h cOptCombAd d,
	122	h cOptCombRe move,
	123	h cOptNotesT ab,
	124	h cOptNotesB tn,
	125	h cOptNotesT itle,
	126	h cOptNotes,
	127	h cOptNotesS ave,
	128	h cOptNotesV erify,
	129	h cOptNotesA skSubj,
	130	h cOptNotesC osigner,
	131	h cOptTitle,
	132	h cOptTitleD ocClass,
	133	h cOptTitleD ocTitle,
	134	h cOptTitleA dd,
	135	h cOptTitleR emove,
	136	h cOptTitleS ave,
	137	h cOptTitleD efault,
	138	h cOptTitleY ours,
	139	h cOptCover,
	140	h cOptOK,
	141	h cOptCancel ,
	142	h cOptClose,
	143	h cOptions,
	144	h cTemplateE ditor,
	145	h cReminderD lg,
	146	h cReminderT ree,
	147	h cReminderV iew,
	148	h cUnknown);
	149
	150	const
	151	// Conte xt ids for contexts
	152	CONTEXT_ VALUES: ar ray[THelpC ontexts] o f integer = ( 0, // hcNone
	153	PORT , // hcLog in
	154	PORT , // hcSig non
	155	PORT , // hcCon nect
	156	PORT , // hcPat ientSelect Cbo
	157	PORT , // hcPat ientSelect Form
	158	PORT , // hcCov er
	159	PORT , // hcPro blem
	160	PORT , // hcMed s
	161	PORT , // hcOrd ers
	162	PORT , // hcNot es
	163	PORT , // hcCon sults
	164	PORT , // hcDis chargeSumm
	165	PORT , // hcLab s
	166	PORT , // hcRep orts
	167	PORT , // hcOpt CoverDay
	168	PORT , // hcOpt CoverRemin d
	169	PORT , // hcOpt OtherParam
	170	PORT , // hcOpt ionsOK
	171	PORT , // hcOpt ionsCancel
	172	PORT , // hcOpt ionsApply
	173	PORT , // hcOpt Day
	174	PORT , // hcOpt DayLabDef
	175	PORT , // hcOpt DayVisitDe f
	176	PORT , // hcOpt DayLabInp
	177	PORT , // hcOpt DayLabOutp
	178	PORT , // hcOpt StartStop
	179	PORT , // hcOpt Remind
	180	PORT , // hcOpt Up
	181	PORT , // hcOpt Down
	182	PORT , // hcOpt RemDelete
	183	PORT , // hcOpt RemAdd
	184	PORT , // hcOpt RemDisp
	185	PORT , // hcOpt RemNotDisp
	186	PORT , // hcOpt Notif
	187	PORT , // hcOpt NotifRemov e
	188	PORT , // hcOpt NotifFlag
	189	PORT , // hcOpt SurrBtn
	190	PORT , // hcOpt NotifView
	191	PORT , // hcOpt OrderCheck
	192	PORT , // hcOpt OrderCheck View
	193	PORT , // hcOpt ListTeam
	194	PORT , // hcOpt PatSelBtn
	195	PORT , // hcOpt PersList
	196	PORT , // hcOpt TeamBtn
	197	PORT , // hcOpt Combinatio n
	198	PORT , // hcOpt PatSel
	199	PORT , // hcOpt PatSelList Src
	200	PORT , // hcOpt PatSelSort
	201	PORT , // hcOpt PatSelProv ider
	202	PORT , // hcOpt PatSelTrea ting
	203	PORT , // hcOpt PatSelTeam
	204	PORT , // hcOpt PatSelWard
	205	PORT , // hcOpt PatSelDayO fWeek
	206	PORT , // hcOpt PatSelVisi tStart
	207	PORT , // hcOpt PatSelVisi tStop
	208	PORT , // hcOpt List
	209	PORT , // hcOpt ListAddByT ype
	210	PORT , // hcOpt ListAddBy
	211	PORT , // hcOpt ListPat
	212	PORT , // hcOpt ListPersLi st
	213	PORT , // hcOpt ListPersPa t
	214	PORT , // hcOpt ListAdd
	215	PORT , // hcOpt ListAddAll
	216	PORT , // hcOpt ListPersPa tR
	217	PORT , // hcOpt ListPersPa tRA
	218	PORT , // hcOpt ListSave
	219	PORT , // hcOpt ListNew
	220	PORT , // hcOpt ListDelete
	221	PORT , // hcOpt NewList
	222	PORT , // hcOpt NewListTex t
	223	PORT , // hcOpt Team
	224	PORT , // hcOpt TeamPat
	225	PORT , // hcOpt TeamLst
	226	PORT , // hcOpt TeamUser
	227	PORT , // hcOpt TeamRemove
	228	PORT , // hcOpt TeamSubscr
	229	PORT , // hcOpt TeamPers
	230	PORT , // hcOpt TeamRestri ct
	231	PORT , // hcOpt Surr
	232	PORT , // hcOpt SurrRemove
	233	PORT , // hcOrd erAlert
	234	PORT , // hcOpt SurrDate
	235	PORT , // hcOpt Other
	236	PORT , // hcOpt OtherTab
	237	PORT , // hcOpt OtherLast
	238	PORT , // hcOpt Comb
	239	PORT , // hcOpt CombAddByT ype
	240	PORT , // hcOpt CombAddBy
	241	PORT , // hcOpt CombView
	242	PORT , // hcOpt CombAdd
	243	PORT , // hcOpt CombRemove
	244	PORT , // hcOpt NotesTab
	245	PORT , // hcOpt NotesBtn
	246	PORT , // hcOpt NotesTitle
	247	PORT , // hcOpt Notes
	248	PORT , // hcOpt NotesSave
	249	PORT , // hcOpt NotesVerif y
	250	PORT , // hcOpt NotesAskSu bj
	251	PORT , // hcOpt NotesCosig ner
	252	PORT , // hcOpt Title
	253	PORT , // hcOpt TitleDocCl ass
	254	PORT , // hcOpt TitleDocTi tle
	255	PORT , // hcOpt TitleAdd
	256	PORT , // hcOpt TitleRemov e
	257	PORT , // hcOpt TitleSave
	258	PORT , // hcOpt TitleDefau lt
	259	PORT , // hcOpt TitleYours
	260	PORT , // hcOpt Cover
	261	PORT , // hcOpt OK
	262	PORT , // hcOpt Cancel
	263	PORT , // hcOpt Close
	264	PORT , // hcOpt ions
	265	PORT , // hcTem plateEdito r
	266	PORT , // hcRem inderDlg
	267	PORT , // hcRem inderTree
	268	PORT , // hcRem inderView
	269	-1); // hcUnkno wn
	270	// Conte xt html fi les for co ntexts
	271	CONTEXT_ FILES: arr ay[THelpCo ntexts] of string = ('cprs.htm ', / / hcNone
	272	'Signing_ In_to_CPRS .htm', / / hcLogin
	273	'cprs.htm ', / / hcSignon
	274	'cprs.htm ', / / hcConnec t
	275	'cprs.htm ', / / hcPatien tSelectCbo
	276	'Selectin g_a_Patien t.htm', / / hcPatien tSelectFor m
	277	'Overview __What_is_ the_Cover_ Sheet_.htm ', / / hcCover
	278	'Problem_ List.htm', / / hcProble m
	279	'Viewing_ Medication s.htm', / / hcMeds
	280	'Viewing_ orders.htm ', / / hcOrders
	281	'Viewing_ Progress_N otes.htm', / / hcNotes
	282	'Consults .htm', / / hcConsul ts
	283	'Discharg e_Summarie s.htm', / / hcDischa rgeSumm
	284	'Viewing_ Laboratory _Test_Resu lts.htm', / / hcLabs
	285	'Viewing_ a_Report.h tm', / / hcReport s
	286	'Cover_Sh eet_Date_R ange_Defau lts.htm', / / hcOptCov erDay
	287	'cprs.htm ', / / hcOptCov erRemind
	288	'Other_Pa rameters.h tm', / / hcOptOth erParam
	289	'cprs.htm ', / / hcOption sOK
	290	'Cancel_b utton.htm' , / / hcOption sCancel
	291	'Apply_bu tton.htm', / / hcOption sApply
	292	'cprs.htm ', / / hcOptDay
	293	'cprs.htm ', / / hcOptDay LabDef
	294	'cprs.htm ', / / hcOptDay VisitDef
	295	'Inpatien t_Days.htm ', / / hcOptDay LabInp
	296	'Outpatie nt_Days.ht m', / / hcOptDay LabOutp
	297	'Start-St op.htm', / / hcOptSta rtStop
	298	'Clinical _Reminders .htm', / / hcOptRem ind
	299	'Up_arrow .htm', / / hcOptUp
	300	'Down_arr ow.htm', / / hcOptDow n
	301	'cprs.htm ', / / hcOptRem Delete
	302	'cprs.htm ', / / hcOptRem Add
	303	'cprs.htm ', / / hcOptRem Disp
	304	'cprs.htm ', / / hcOptRem NotDisp
	305	'Notifica tions_Tab_ (Tools___O ptions).ht m', / / hcOptNot if
	306	'Remove_P ending_Not ifications .htm', / / hcOptNot ifRemove
	307	'cprs.htm ', / / hcOptNot ifFlag
	308	'Surrogat e_Settings .htm', / / hcOptSur rBtn
	309	'Notifica tions_list .htm', / / hcOptNot ifView
	310	'cprs.htm ', / / hcOptOrd erCheck
	311	'Order_Ch eck_list.h tm', / / hcOptOrd erCheckVie w
	312	'cprs.htm ', / / hcOptLis tTeam
	313	'Patient_ Selection_ Defaults.h tm', / / hcOptPat SelBtn
	314	'Personal _Lists.htm ', / / hcOptPer sList
	315	'Teams_In formation. htm', / / hcOptTea mBtn
	316	'Source_C ombination s.htm', / / hcOptCom bination
	317	'cprs.htm ', / / hcOptPat Sel
	318	'List_Sou rce.htm', / / hcOptPat SelListSrc
	319	'Sort_Ord er.htm', / / hcOptPat SelSort
	320	'Primary_ Provider.h tm', / / hcOptPat SelProvide r
	321	'Treating _Specialty .htm', / / hcOptPat SelTreatin g
	322	'Team_Per sonal.htm' , / / hcOptPat SelTeam
	323	'Ward.htm ', / / hcOptPat SelWard
	324	'Start-St op_(Patien t_Selectio n).htm', / / hcOptPat SelDayOfWe ek
	325	'Start-St op_(Patien t_Selectio n).htm', / / hcOptPat SelVisitSt art
	326	'cprs.htm ', / / hcOptPat SelVisitSt op
	327	'cprs.htm ', / / hcOptLis t
	328	'Select_P atients_by .htm', / / hcOptLis tAddByType
	329	'Patient. htm', / / hcOptLis tAddBy
	330	'Patients _to_add.ht m', / / hcOptLis tPat
	331	'Personal _Lists_(Pe rsonal_Lis ts).htm', / / hcOptLis tPersList
	332	'Patients _on_person al_list.ht m', / / hcOptLis tPersPat
	333	'Add_butt on_(Person al_Lists). htm', / / hcOptLis tAdd
	334	'Add_All_ button_(Pe rsonal_Lis ts).htm', / / hcOptLis tAddAll
	335	'Remove_b utton_(Per sonal_List s).htm', / / hcOptLis tPersPatR
	336	'Remove_A ll_button_ (Personal_ Lists).htm ', / / hcOptLis tPersPatRA
	337	'Save_Cha nges_butto n_(Persona l_Lists).h tm', / / hcOptLis tSave
	338	'New_List _button.ht m', / / hcOptLis tNew
	339	'Delete_L ist_button .htm', / / hcOptLis tDelete
	340	'cprs.htm ', / / hcOptNew List
	341	'cprs.htm ', / / hcOptNew ListText
	342	'cprs.htm ', / / hcOptTea m
	343	'Patients _on_select ed_teams.h tm', / / hcOptTea mPat
	344	'Team_mem bers.htm', / / hcOptTea mLst
	345	'You_are_ on_these_t eams.htm', / / hcOptTea mUser
	346	'Remove_y ourself_fr om_this_te am.htm', / / hcOptTea mRemove
	347	'Subscrib e_to_a_tea m.htm', / / hcOptTea mSubscr
	348	'Include_ personal_l ists.htm', / / hcOptTea mPers
	349	'Restrict _Team_List _View.htm' , / / hcOptTea mRestrict
	350	'Surrogat e.htm', / / hcOptSur r
	351	'Remove_S urrogate.h tm', / / hcOptSur rRemove
	352	'Send_Mai lMan_bulle tin.htm', / / hcOrderA lert
	353	'Surrogat e_Date_Ran ge.htm', / / hcOptSur rDate
	354	'cprs.htm ', / / hcOptOth er
	355	'Initial_ tab_when_C PRS_starts .htm', / / hcOptOth erTab
	356	'Use_last _selected_ tab.htm', / / hcOptOth erLast
	357	'cprs.htm ', / / hcOptCom b
	358	'Select_C ombination _source_by .htm', / / hcOptCom bAddByType
	359	'Ward_(So urce_Combi nations).h tm', / / hcOptCom bAddBy
	360	'Combinat ions.htm', / / hcOptCom bView
	361	'Add_butt on_(Source _Combinati ons).htm', / / hcOptCom bAdd
	362	'Remove_b utton_(Sou rce_Combin ations).ht m', / / hcOptCom bRemove
	363	'cprs.htm ', / / hcOptNot esTab
	364	'Notes_bu tton.htm', / / hcOptNot esBtn
	365	'Document _Titles_bu tton.htm', / / hcOptNot esTitle
	366	'cprs.htm ', / / hcOptNot es
	367	'Interval _for_autos ave.htm', / / hcOptNot esSave
	368	'Verify_n ote_title. htm', / / hcOptNot esVerify
	369	'Ask_subj ect.htm', / / hcOptNot esAskSubj
	370	'Default_ cosigner.h tm', / / hcOptNot esCosigner
	371	'cprs.htm ', / / hcOptTit le
	372	'Document _class.htm ', / / hcOptTit leDocClass
	373	'Document _titles.ht m', / / hcOptTit leDocTitle
	374	'Add_butt on_(Docume nt_Titles) .htm', / / hcOptTit leAdd
	375	'Remove_b utton_(Doc ument_Titl es).htm', / / hcOptTit leRemove
	376	'Save_Cha nges_(Docu ment_Title s).htm', / / hcOptTit leSave
	377	'Set_Defa ult_Note_b utton.htm' , / / hcOptTit leDefault
	378	'Your_lis t_of_title s.htm', / / hcOptTit leYours
	379	'cprs.htm ', / / hcOptCov er
	380	'cprs.htm ', / / hcOptOK
	381	'Cancel_b utton_2.ht m', / / hcOptCan cel
	382	'Close_bu tton.htm', / / hcOptClo se
	383	'cprs.htm ', / / hcOption s
	384	'Document _Templates _(overview ).htm', / / hcTempla teEditor
	385	'The_Main _Reminders _Processin g_Dialog.h tm', / / hcRemind erDlg
	386	'The_Remi nders_Butt on_Tree_Vi ew.htm', / / hcRemind erTree
	387	'Write_a_ New_Progre ss_Note.ht m', / / hcRemind erView
	388	'cprs.htm '); / / hcUnknow n
	389
	390
	391	{========= ========== ========== ========== ====}
	392	{ Substit ued for Ap plication. OnHelp eve nt }
	393	{ ------- ---------- ---------- ---------- -- }
	394	{ Command : Type o f help com mand }
	395	{ Data : Contex t }
	396	{ CallHel p : Call W in help sy stem }
	397	{ Returns true if h elp called }
	398	{========= ========== ========== ========== ====}
	399	function T HelpManage r.ExecHelp (Command: word; Data : NativeIn t; var Cal lHelp: boo lean): boo lean;
	400	var
	401	hc: THel pContexts; // loop v ariable
	402	errorcod e: integer ;
	403	FilePath , FileName : string;
	404	begin
	405	CallHelp := False; // don't run the wi n help sys tem
	406	if not I nProgress then begin
	407	InProg ress := Tr ue;
	408	hc := hcNone;
	409	while (hc <> hcU nknown) an d (CONTEXT _VALUES[hc ] <> Data) do inc(hc ); // loop through a nd find a context
	410	Filepa th := Full ToPathPart (Applicati on.ExeName ) + 'Help\ ';
	411	Filena me := File path + CON TEXT_FILES [hc];
	412	// Show Message('H elp: ' + i nttostr(Da ta) + ' ' + Context_ Files[hc]) ; errorcod e := 33; / / diagnost ic
	413	errorc ode := She llExecute( HelpHandle , 'open', PChar(File name), nil , nil, SW_ SHOWNORMAL ); // Tell windows t o bring up the html file with the defaul t browser
	414	case e rrorcode o f
	415	0: ShowMessag e('Help sy stem: The operating system is out of mem ory or res ources.');
	416	ERRO R_FILE_NOT _FOUND: ShowMessag e('Help sy stem: ' + CONTEXT_FI LES[hc] + ' was not found in ' + FilePat h + '.');
	417	ERRO R_PATH_NOT _FOUND: ShowMessag e('Help sy stem: ' + FilePath + ' was not found.');
	418	ERRO R_BAD_FORM AT: ShowMessag e('Help sy stem: The .exe file is invalid (non-Micr osoft Win3 2® .exe or error in .exe image ).');
	419	SE_E RR_ACCESSD ENIED: ShowMessag e('Help sy stem: The operating system den ied access to ' + Fi lename + ' .');
	420	SE_E RR_ASSOCIN COMPLETE: ShowMessag e('Help sy stem: The file name associatio n is incom plete or i nvalid. (. htm)');
	421	SE_E RR_DDEBUSY : ShowMessag e('Help sy stem: The Dynamic Da ta Exchang e (DDE) tr ansaction could not be complet ed because other DDE transacti ons were b eing proce ssed.');
	422	SE_E RR_DDEFAIL : ShowMessag e('Help sy stem: The DDE transa ction fail ed.');
	423	SE_E RR_DDETIME OUT: ShowMessag e('Help sy stem: The DDE transa ction coul d not be c ompleted b ecause the request t imed out.' );
	424	SE_E RR_DLLNOTF OUND: ShowMessag e('Help sy stem: The specified dynamic-li nk library (DLL) was not found .');
	425	SE_E RR_NOASSOC : ShowMessag e('Help sy stem: Ther e is no ap plication associated with the given file name exte nsion. (.h tm)');
	426	SE_E RR_OOM: ShowMessag e('Help sy stem: Ther e was not enough mem ory to com plete the operation. ');
	427	SE_E RR_SHARE: ShowMessag e('Help sy stem: A sh aring viol ation occu rred.');
	428	end;
	429	Result := (error code >= 32 );
	430	InProg ress := Fa lse;
	431	end else begin
	432	Result := True;
	433	end;
	434	end;
	435
	436
	437	{ THelpMan ager }
	438
	439	constructo r THelpMan ager.Creat e;
	440	begin
	441	inherite d;
	442	HelpHand le := Appl ication.Ha ndle;
	443	InProgre ss := Fals e;
	444	end;
	445
	446	class func tion THelp Manager.Ge tInstance: THelpMana ger;
	447	begin
	448	if not a ssigned(He lpManager) then
	449	HelpMa nager := T HelpManage r.Create;
	450	Result : = HelpMana ger;
	451	end;
	452
	453	initializa tion
	454
	455	finalizati on
	456	if assig ned(HelpMa nager) the n
	457	HelpMa nager.Free ;
	458
	459	end.
	460