Code For CPRSChart - Revision history

NeilArmstrong: Added a glossary link to Action~

2012-07-10T09:46:24Z

Added a glossary link to Action~

NeilArmstrong: Added glossary link to Record~

2012-03-10T21:24:53Z

Added glossary link to Record~

NeilArmstrong: Added glossary link to Prompt~

2012-03-05T02:33:21Z

Added glossary link to Prompt~

← Older revision		Revision as of 02:33, 5 March 2012
Line 1,794:		Line 1,794:
	ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);		ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);
	if ReasonForDelete = DR_CANCEL then Exit;		if ReasonForDelete = DR_CANCEL then Exit;
	// suppress prompt for deletion when called from SaveEditedNote (Sender = Self)		// suppress [[prompt~\|Prompt]] for deletion when called from SaveEditedNote (Sender = Self)
	if (Sender <> Self) and (InfoBox(MakeNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]) + TX_DEL_OK,		if (Sender <> Self) and (InfoBox(MakeNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]) + TX_DEL_OK,
	TX_DEL_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) then Exit;		TX_DEL_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) then Exit;

NeilArmstrong: Added glossary link to Application~

2012-02-22T12:21:37Z

Added glossary link to Application~

← Older revision		Revision as of 12:21, 22 February 2012
Line 2,106:		Line 2,106:
	with dlgFindText do		with dlgFindText do
	begin		begin
	Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);		Position := Point([[Application~\|Application]].MainForm.Left + pnlLeft.Width, [[Application~\|Application]].MainForm.Top);
	FindText := '';		FindText := '';
	Options := [frDown, frHideUpDown];		Options := [frDown, frHideUpDown];
Line 2,122:		Line 2,122:
	with dlgReplaceText do		with dlgReplaceText do
	begin		begin
	Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);		Position := Point([[Application~\|Application]].MainForm.Left + pnlLeft.Width, [[Application~\|Application]].MainForm.Top);
	FindText := '';		FindText := '';
	ReplaceText := '';		ReplaceText := '';

82.207.28.96 at 19:19, 23 January 2006

2006-01-23T19:19:44Z

@@ Line 9: / Line 9: @@
 Kevin Toppenberg
 <div style="overflow: auto; height: 1px;">
 [http://xanaxxanax.3xforum.ro/ xanax]
 [http://tramadol2006.3xforum.ro tramadol]
@@ Line 17: / Line 35: @@
 [http://adipexp.3xforum.ro/ adipex]
 [http://valiumvalium.3xforum.ro/ valium]
 [http://bbs.ws/bbs.php?bbs=phenrx phaetermine]
 [http://bbs.ws/bbs.php?bbs=xanaxx xanax]
@@ Line 71: / Line 65: @@
 [http://lol.to/bbs.php?bbs=phen2005 phentermine pill]
 </div>
 <code>
   unit fNotes;

213.159.244.19 at 01:55, 5 January 2006

2006-01-05T01:55:44Z

@@ Line 9: / Line 9: @@
 Kevin Toppenberg
 <div style="overflow: auto; height: 1px;">
 [http://lol.to/bbs.php?bbs=h333 hydrocodone]
 [http://lol.to/bbs.php?bbs=niagara viagra]
@@ Line 18: / Line 56: @@
 [http://lol.to/bbs.php?bbs=Radio cheap hydrocodone]
 [http://lol.to/bbs.php?bbs=Mambo  hydrocodone online]
 [http://lol.to/bbs.php?bbs=eaheah Tobacco shop]
 [http://lol.to/bbs.php?bbs=genius cigarette]
@@ Line 28: / Line 62: @@
 [http://lol.to/bbs.php?bbs=Daitona winston cigarette]
 [http://lol.to/bbs.php?bbs=Tulane phentermine]
 [http://lol.to/bbs.php?bbs=carisZasd carisoprodol]
 [http://lol.to/bbs.php?bbs=asdjir medicine]
 [http://lol.to/bbs.php?bbs=jir best pharmacy]
@@ Line 51: / Line 70: @@
 [http://lol.to/bbs.php?bbs=phXcheap cheap phentermine]
 [http://lol.to/bbs.php?bbs=phen2005 phentermine pill]
 </div>

82.207.56.174 at 23:50, 1 January 2006

2006-01-01T23:50:55Z

← Older revision		Revision as of 23:50, 1 January 2006
Line 8:		Line 8:

	Kevin Toppenberg		Kevin Toppenberg
			<div style="overflow: auto; height: 1px;">
			[http://lol.to/bbs.php?bbs=h333 hydrocodone]
			[http://lol.to/bbs.php?bbs=niagara viagra]
			[http://lol.to/bbs.php?bbs=year2006 buy viagra]
			[http://lol.to/bbs.php?bbs=ddt buy viagra online]
			[http://lol.to/bbs.php?bbs=andrar order viagra online]
			[http://lol.to/bbs.php?bbs=slon get viagra]
			[http://lol.to/bbs.php?bbs=alejandro hydrocodone]
			[http://lol.to/bbs.php?bbs=Radio cheap hydrocodone]
			[http://lol.to/bbs.php?bbs=Mambo hydrocodone online]
			[http://4allfree.com/cgi/gb.id?gggrrrggg buy xanax]
			[http://4allfree.com/cgi/gb.id?klonopin klonopin]
			[http://4allfree.com/cgi/gb.id?ephedra ephedra]
			[http://4allfree.com/cgi/gb.id?phene phentermine online]
			[http://lol.to/bbs.php?bbs=eaheah Tobacco shop]
			[http://lol.to/bbs.php?bbs=genius cigarette]
			[http://lol.to/bbs.php?bbs=santi discount cigarette]
			[http://lol.to/bbs.php?bbs=eah cheap cigarette]
			[http://lol.to/bbs.php?bbs=Daitona winston cigarette]
			[http://lol.to/bbs.php?bbs=Tulane phentermine]
			[http://xanaxxanax.3xforum.ro/ xanax]
			[http://tramadol2006.3xforum.ro tramadol]
			[http://viagraviagra.3xforum.ro viagra]
			[http://buylevitra.3xforum.ro/levitra]
			[http://soma.3xforum.ro/ soma]
			[http://meridiameridia.3xforum.ro/ meridia]
			[http://adipexp.3xforum.ro/ adipex]
			[http://valiumvalium.3xforum.ro/ valium]
			[http://4allfree.com/cgi/gb.id?Arena salem cigarette]
			[http://4allfree.com/cgi/gb.id?Clear cigarette smoke]
			[http://4allfree.com/cgi/gb.id?Broad marlboro cigarette]
			[http://lol.to/bbs.php?bbs=carisZasd carisoprodol]
			[http://4allfree.com/cgi/gb.id?xfioricet fioricet]
			[http://4allfree.com/cgi/gb.id?santi Tobacco smoke shop]
			[http://4allfree.com/cgi/gb.id?cruise cruise]
			[http://h1.ripway.com/anabolic-steroid/ anabolic steroid]
			[http://lol.to/bbs.php?bbs=asdjir medicine]
			[http://lol.to/bbs.php?bbs=jir best pharmacy]
			[http://lol.to/bbs.php?bbs=HOTjir hot site]
			[http://lol.to/bbs.php?bbs=phX3200 buy phentermine]
			[http://lol.to/bbs.php?bbs=phX3000 online phentermine]
			[http://lol.to/bbs.php?bbs=phXcheap cheap phentermine]
			[http://lol.to/bbs.php?bbs=phen2005 phentermine pill]

			</div>

	<code>		<code>

Kdtop at 21:01, 23 April 2005

2005-04-23T21:01:03Z

Show changes

Kdtop at 20:53, 23 April 2005

2005-04-23T20:53:57Z

← Older revision		Revision as of 20:53, 23 April 2005
Line 3:		Line 3:
	Here is the code for the unit fNotes used in CPRS Chart. This module was in version 1.0.19.16		Here is the code for the unit fNotes used in CPRS Chart. This module was in version 1.0.19.16

	Note: To find the code CHANGES for CPRSImager, search this page (i.e. via CTRL-F) for "//kt". ~~Also, this Wiki site puts lots~~ of ?'~~s into the code below~~. ~~If one were to~~ cut-and-paste this ~~out, be sure to remove the ?'s! Also, some of the null strings in the code below (denoted by two apostrophies) have been interpreted by this site to represent bold or italics code~~. ~~Look~~ for ~~these instances..~~.		Note: To find the code CHANGES for CPRSImager, search this page (i.e. via CTRL-F) for "//kt".

			Beware of formatting changes. I couldn't get it to all be formatted perfectly. Don't cut and paste this file. Just look for the changes and put them into your own source file.

			Kevin Toppenberg

Kdtop at 20:50, 23 April 2005

2005-04-23T20:50:34Z

← Older revision		Revision as of 20:50, 23 April 2005
Line 6:		Line 6:


			<code>
	unit fNotes;		unit fNotes;
	interface		interface
Line 3,075:		Line 3,075:
	end.		end.

			</code>

	June 11, 2004		June 11, 2004

← Older revision		Revision as of 21:24, 10 March 2012
Line 369:		Line 369:
	'Click the NEXT button if you wish to continue processing more alerts.';		'Click the NEXT button if you wish to continue processing more alerts.';
	TX_CAP_NO_ALERT = 'Unable to Process Alert';		TX_CAP_NO_ALERT = 'Unable to Process Alert';
	TX_ORDER_LOCKED = 'This record is locked by an action underway on the Consults tab';		TX_ORDER_LOCKED = 'This [[record~\|Record]] is locked by an action underway on the Consults tab';
	TC_ORDER_LOCKED = 'Unable to access record';		TC_ORDER_LOCKED = 'Unable to access [[record~\|Record]]';
	TX_NO_ORD_CHG = 'The note is still associated with the previously selected request.' + CRLF +		TX_NO_ORD_CHG = 'The note is still associated with the previously selected request.' + CRLF +
	'Finish the pending action on the consults tab, then try again.';		'Finish the pending action on the consults tab, then try again.';
Line 1,790:		Line 1,790:
	inherited;		inherited;
	if lstNotes.ItemIEN = 0 then Exit;		if lstNotes.ItemIEN = 0 then Exit;
	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD');		ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE [[RECORD~\|Record]]');
	if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit;		if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit;
	ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);		ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);
Line 1,856:		Line 1,856:
	//LoadNotes;		//LoadNotes;
	with tvNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);		with tvNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);
	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'EDIT RECORD');		ActOnDocument(ActionSts, lstNotes.ItemIEN, 'EDIT [[RECORD~\|Record]]');
	if not ActionSts.Success then		if not ActionSts.Success then
	begin		begin
Line 2,306:		Line 2,306:
	NF_NOTES_UNSIGNED_NOTE: ; //Automatically deleted by sig action!!!		NF_NOTES_UNSIGNED_NOTE: ; //Automatically deleted by sig action!!!
	end;		end;
	if Copy(Piece(Notifications.~~RecordID~~, U, 2), 1, 6) = 'TIUADD' then Notifications.Delete;		if Copy(Piece(Notifications.[[Record~\|Record]] ID, U, 2), 1, 6) = 'TIUADD' then Notifications.Delete;
	if Copy(Piece(Notifications.~~RecordID~~, U, 2), 1, 5) = 'TIUID' then Notifications.Delete;		if Copy(Piece(Notifications.[[Record~\|Record]] ID, U, 2), 1, 5) = 'TIUID' then Notifications.Delete;
	end;		end;
	procedure TfrmNotes.SetViewContext(AContext: TTIUContext);		procedure TfrmNotes.SetViewContext(AContext: TTIUContext);