source: cprs/branches/tmg-cprs/CPRS-Chart/rCore.pas@ 710

Last change on this file since 710 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 44.1 KB
Line 
1//kt -- Modified with SourceScanner on 8/7/2007
2unit rCore;
3
4interface
5
6uses SysUtils, Classes, Forms, ORNet, ORFn, ORClasses;
7
8{ record types used to return data from the RPC's. Generally, the delimited strings returned
9 by the RPC are mapped into the records defined below. }
10
11const
12 UC_UNKNOWN = 0; // user class unknown
13 UC_CLERK = 1; // user class clerk
14 UC_NURSE = 2; // user class nurse
15 UC_PHYSICIAN = 3; // user class physician
16
17type
18 TUserInfo = record // record for ORWU USERINFO
19 DUZ: Int64;
20 Name: string;
21 UserClass: Integer;
22 CanSignOrders: Boolean;
23 IsProvider: Boolean;
24 OrderRole: Integer;
25 NoOrdering: Boolean;
26 DTIME: Integer;
27 CountDown: Integer;
28 EnableVerify: Boolean;
29 NotifyAppsWM: Boolean;
30 PtMsgHang: Integer;
31 Domain: string;
32 Service: Integer;
33 AutoSave: Integer;
34 InitialTab: Integer;
35 UseLastTab: Boolean;
36 WebAccess: Boolean;
37 IsRPL: string;
38 RPLList: string;
39 HasCorTabs: Boolean;
40 HasRptTab: Boolean;
41 IsReportsOnly: Boolean;
42 ToolsRptEdit: Boolean;
43 DisableHold: Boolean;
44 GECStatusCheck: Boolean;
45 StationNumber: string;
46 IsProductionAccount: boolean;
47 end;
48
49 TPtIDInfo = record // record for ORWPT IDINFO
50 Name: string;
51 SSN: string;
52 DOB: string;
53 Age: string;
54 Sex: string;
55 SCSts: string;
56 Vet: string;
57 Location: string;
58 RoomBed: string;
59 //ADD VWPT BELOW FOR HRN
60 HRN : string;
61 AltHRN :string;
62 end;
63
64 TPtSelect = record // record for ORWPT SELECT
65 Name: string;
66 ICN: string;
67 SSN: string;
68 DOB: TFMDateTime;
69 Age: Integer;
70 Sex: Char;
71 LocationIEN: Integer;
72 Location: string;
73 WardService: string;
74 RoomBed: string;
75 SpecialtyIEN: Integer;
76 CWAD: string;
77 Restricted: Boolean;
78 AdmitTime: TFMDateTime;
79 ServiceConnected: Boolean;
80 SCPercent: Integer;
81 PrimaryTeam: string;
82 PrimaryProvider: string;
83 Attending: string;
84 //ADD VWPT BELOW FOR HRN AltHRN
85 HRN : string;
86 AltHRN : string;
87 end;
88
89 TEncounterText = record // record for ORWPT ENCTITL
90 LocationName: string;
91 LocationAbbr: string;
92 RoomBed: string;
93 ProviderName: string;
94 end;
95
96{ Date/Time functions - right now these make server calls to use server time}
97
98function FMToday: TFMDateTime;
99function FMNow: TFMDateTime;
100function MakeRelativeDateTime(FMDateTime: TFMDateTime): string;
101function StrToFMDateTime(const AString: string): TFMDateTime;
102function ValidDateTimeStr(const AString, Flags: string): TFMDateTime;
103procedure ListDateRangeClinic(Dest: TStrings);
104
105{ General calls }
106
107function GetProgramFilesPath: String;
108function ExternalName(IEN: Int64; FileNumber: Double): string;
109function PersonHasKey(APerson: Int64; const AKey: string): Boolean;
110function GlobalRefForFile(const FileID: string): string;
111function SubsetOfGeneric(const StartFrom: string; Direction: Integer; const GlobalRef: string): TStrings;
112function SubsetOfDevices(const StartFrom: string; Direction: Integer): TStrings;
113function SubSetOfPersons(const StartFrom: string; Direction: Integer): TStrings;
114function SubSetOfActiveAndInactivePersons(const StartFrom: string; Direction: Integer): TStrings;
115function GetDefaultPrinter(DUZ: Int64; Location: integer): string;
116
117{ User specific calls }
118
119function GetUserInfo: TUserInfo;
120function GetUserParam(const AParamName: string): string;
121function HasSecurityKey(const KeyName: string): Boolean;
122function HasMenuOptionAccess(const OptionName: string): Boolean;
123function ValidESCode(const ACode: string): Boolean;
124
125{ Notifications calls }
126
127procedure LoadNotifications(Dest: TStrings);
128procedure DeleteAlert(XQAID: string);
129procedure DeleteAlertForUser(XQAID: string);
130function GetXQAData(XQAID: string): string;
131function GetTIUAlertInfo(XQAID: string): string;
132procedure UpdateUnsignedOrderAlerts(PatientDFN: string);
133function UnsignedOrderAlertFollowup(XQAID: string): string;
134procedure UpdateExpiringMedAlerts(PatientDFN: string);
135procedure UpdateExpiringFlaggedOIAlerts(PatientDFN: string; FollowUp: integer);
136procedure AutoUnflagAlertedOrders(PatientDFN, XQAID: string);
137procedure UpdateUnverifiedMedAlerts(PatientDFN: string);
138procedure UpdateUnverifiedOrderAlerts(PatientDFN: string);
139function GetNotificationFollowUpText(PatientDFN: string; Notification: integer; XQADATA: string): TStrings;
140procedure ForwardAlert(XQAID: string; Recip: string; FWDtype: string; Comment: string);
141procedure RenewAlert(XQAID: string);
142function GetSortMethod: string;
143procedure SetSortMethod(Sort: string; Direction: string);
144
145{ Patient List calls }
146
147function DfltPtList: string;
148function DfltPtListSrc: Char;
149procedure SavePtListDflt(const x: string);
150procedure ListSpecialtyAll(Dest: TStrings);
151procedure ListTeamAll(Dest: TStrings);
152procedure ListWardAll(Dest: TStrings);
153procedure ListProviderTop(Dest: TStrings);
154function SubSetOfProviders(const StartFrom: string; Direction: Integer): TStrings;
155procedure ListClinicTop(Dest: TStrings);
156function SubSetOfClinics(const StartFrom: string; Direction: Integer): TStrings;
157function GetDfltSort: string;
158procedure ResetDfltSort;
159procedure ListPtByDflt(Dest: TStrings);
160procedure ListPtByProvider(Dest: TStrings; ProviderIEN: Int64);
161procedure ListPtByTeam(Dest: TStrings; TeamIEN: Integer);
162procedure ListPtBySpecialty(Dest: TStrings; SpecialtyIEN: Integer);
163procedure ListPtByClinic(Dest: TStrings; ClinicIEN: Integer; FirstDt, LastDt: string);
164procedure ListPtByWard(Dest: TStrings; WardIEN: Integer);
165procedure ListPtByLast5(Dest: TStrings; const Last5: string);
166procedure ListPtByRPLLast5(Dest: TStrings; const Last5: string);
167procedure ListPtByFullSSN(Dest: TStrings; const FullSSN: string);
168procedure ListPtByRPLFullSSN(Dest: TStrings; const FullSSN: string);
169procedure ListPtTop(Dest: TStrings);
170function SubSetOfPatients(const StartFrom: string; Direction: Integer): TStrings;
171function DfltDateRangeClinic: string;
172function MakeRPLPtList(RPLList: string): string;
173function ReadRPLPtList(RPLJobNumber: string; const StartFrom: string; Direction: Integer) : TStrings;
174procedure KillRPLPtList(RPLJobNumber: string);
175
176// VWPT ADDITIONS FOR ENHANCED PATIENT LOOKUP
177procedure ListPtByOther (Dest: Tstrings; const othertext: string ;caption :string);//:string; radbutton:Tobject);
178procedure ListPtByTimson (Dest: Tstrings; const othertext: string);
179//end VWPT
180
181{ Patient specific calls }
182
183function CalcAge(BirthDate, DeathDate: TFMDateTime): Integer;
184procedure CheckSensitiveRecordAccess(const DFN: string; var AccessStatus: Integer;
185 var MessageText: string);
186procedure CheckRemotePatient(var Dest: string; Patient, ASite: string; var AccessStatus: Integer);
187procedure CurrentLocationForPatient(const DFN: string; var ALocation: Integer; var AName: string; var ASvc: string);
188function DateOfDeath(const DFN: string): TFMDateTime;
189function GetPtIDInfo(const DFN: string): TPtIDInfo;
190function HasLegacyData(const DFN: string; var AMsg: string): Boolean;
191function LogSensitiveRecordAccess(const DFN: string): Boolean;
192function MeansTestRequired(const DFN: string; var AMsg: string): Boolean;
193function RestrictedPtRec(const DFN: string): Boolean;
194procedure SelectPatient(const DFN: string; var PtSelect: TPtSelect);
195function SimilarRecordsFound(const DFN: string; var AMsg: string): Boolean;
196function GetDFNFromICN(AnICN: string): string;
197
198{ Encounter specific calls }
199
200function GetEncounterText(const DFN: string; Location: integer; Provider: Int64): TEncounterText; //*DFN*
201procedure ListApptAll(Dest: TStrings; const DFN: string; From: TFMDateTime = 0;
202 Thru: TFMDateTime = 0);
203procedure ListAdmitAll(Dest: TStrings; const DFN: string);
204function SubSetOfLocations(const StartFrom: string; Direction: Integer): TStrings;
205function SubSetOfNewLocs(const StartFrom: string; Direction: Integer): TStrings;
206function SubSetOfInpatientLocations(const StartFrom: string; Direction: Integer): TStrings;
207function SubSetOfProvWithClass(const StartFrom: string; Direction: Integer; DateTime: string): TStrings;
208function SubSetOfUsersWithClass(const StartFrom: string; Direction: Integer; DateTime: string): TStrings;
209
210{ Remote Data Access calls }
211function HasRemoteData(const DFN: string; var ALocations: TStringList): Boolean;
212function CheckHL7TCPLink: Boolean;
213function UseVistaWeb: Boolean;
214function GetVistaWebAddress(value: string): string;
215procedure ChangeVistaWebParam(value: string);
216
217implementation
218
219uses Hash, uCore, ShlObj, Windows;
220
221var
222 uFMToday: TFMDateTime; // Today's date in Fileman format.
223 uPtListDfltSort: string = ''; // Current user's patient selection list default sort order.
224
225{ private calls }
226
227function FormatSSN(const x: string): string;
228 {places the dashes in a social security number }
229
230//vwpt code 4/17/0 see below
231var
232
233 i:Integer;
234//end vwpt
235begin
236//vwpt code to prevent extra dashes 4/17/07
237 Result := x;
238 ///take out for i := 1 to Length(x) do if (x[i] in ['-'..'-']) then Exit;
239 //end vwpt
240 if Length(x) > 8
241 then Result := Copy(x,1,3) + '-' + Copy(x,4,2) + '-' + Copy(x,6,Length(x))
242 else Result := x;
243end;
244
245function IsSSN(const x: string): Boolean;
246var
247 i: Integer;
248begin
249 Result := False;
250 if (Length(x) < 9) or (Length(x) > 10) then Exit;
251 for i := 1 to 9 do if not (x[i] in ['0'..'9']) then Exit;
252 Result := True;
253end;
254
255function IsFMDate(const x: string): Boolean;
256var
257 i: Integer;
258begin
259 Result := False;
260 if Length(x) <> 7 then Exit;
261 for i := 1 to 7 do if not (x[i] in ['0'..'9']) then Exit;
262 Result := True;
263end;
264
265{ Date/Time functions - not in ORFn because they make server calls to use server time}
266
267function FMToday: TFMDateTime;
268{ return the current date in Fileman format }
269begin
270 if uFMToday = 0 then uFMToday := Int(FMNow);
271 Result := uFMToday;
272end;
273
274function FMNow: TFMDateTime;
275{ return the current date/time in Fileman format }
276var
277 x: string;
278begin
279 x := sCallV('ORWU DT', ['NOW']);
280 Result := StrToFloat(x);
281end;
282
283function MakeRelativeDateTime(FMDateTime: TFMDateTime): string;
284var
285 Offset: Integer;
286 h,n,s,l: Word;
287 ADateTime: TDateTime;
288 ATime: string;
289begin
290 Result := '';
291 if FMDateTime <= 0 then Exit;
292 ADateTime := FMDateTimeToDateTime(FMDateTime);
293 Offset := Trunc(Int(ADateTime) - Int(FMDateTimeToDateTime(FMToday)));
294 if Offset < 0 then Result := 'T' + IntToStr(Offset)
295 else if Offset = 0 then Result := 'T'
296 else Result := 'T+' + IntToStr(Offset);
297 DecodeTime(ADateTime, h, n, s, l);
298 ATime := Format('@%.2d:%.2d', [h, n]);
299 if ATime <> '@00:00' then Result := Result + ATime;
300end;
301
302function StrToFMDateTime(const AString: string): TFMDateTime;
303{ use %DT the validate and convert a string to Fileman format (accepts T, T-1, NOW, etc.) }
304var
305 x: string;
306begin
307 x := sCallV('ORWU DT', [AString]);
308 Result := StrToFloat(x);
309end;
310
311function ValidDateTimeStr(const AString, Flags: string): TFMDateTime;
312{ use %DT to validate & convert a string to Fileman format, accepts %DT flags }
313begin
314 Result := StrToFloat(sCallV('ORWU VALDT', [AString, Flags]));
315end;
316
317procedure ListDateRangeClinic(Dest: TStrings);
318{ returns date ranges for displaying clinic appointments in patient lookup }
319begin
320 CallV('ORWPT CLINRNG', [nil]);
321 Dest.Assign(RPCBrokerV.Results);
322end;
323
324function DfltDateRangeClinic;
325{ returns current default date range settings for displaying clinic appointments in patient lookup }
326begin
327 Result := sCallV('ORQPT DEFAULT CLINIC DATE RANG', [nil]);
328end;
329
330{ General calls }
331
332function GetProgramFilesPath: String;
333Const
334 CSIDL_PROGRAM_FILES = $0026;
335var
336 Path: array[0..Max_Path] of Char;
337begin
338 Path := '';
339 SHGetSpecialFolderPath(0,Path,CSIDL_PROGRAM_FILES,false);
340 Result := Path;
341end;
342
343function ExternalName(IEN: Int64; FileNumber: Double): string;
344{ returns the external name of the IEN within a file }
345begin
346 Result := sCallV('ORWU EXTNAME', [IEN, FileNumber]);
347end;
348
349function PersonHasKey(APerson: Int64; const AKey: string): Boolean;
350begin
351 Result := sCallV('ORWU NPHASKEY', [APerson, AKey]) = '1';
352end;
353
354function GlobalRefForFile(const FileID: string): string;
355begin
356 Result := sCallV('ORWU GBLREF', [FileID]);
357end;
358
359function SubsetOfGeneric(const StartFrom: string; Direction: Integer; const GlobalRef: string): TStrings;
360begin
361 CallV('ORWU GENERIC', [StartFrom, Direction, GlobalRef]);
362 Result := RPCBrokerV.Results;
363end;
364
365function SubsetOfDevices(const StartFrom: string; Direction: Integer): TStrings;
366{ returns a pointer to a list of devices (for use in a long list box) - The return value is
367 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
368begin
369 CallV('ORWU DEVICE', [StartFrom, Direction]);
370 Result := RPCBrokerV.Results;
371end;
372
373function SubSetOfPersons(const StartFrom: string; Direction: Integer): TStrings;
374{ returns a pointer to a list of persons (for use in a long list box) - The return value is
375 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
376begin
377 CallV('ORWU NEWPERS', [StartFrom, Direction]);
378// MixedCaseList(RPCBrokerV.Results);
379 Result := RPCBrokerV.Results;
380end;
381
382{ User specific calls }
383
384function GetUserInfo: TUserInfo;
385{ returns a record of user information,
386 Pieces: DUZ^NAME^USRCLS^CANSIGN^ISPROVIDER^ORDERROLE^NOORDER^DTIME^CNTDN^VERORD^NOTIFYAPPS^
387 MSGHANG^DOMAIN^SERVICE^AUTOSAVE^INITTAB^LASTTAB^WEBACCESS^ALLOWHOLD^ISRPL^RPLLIST^
388 CORTABS^RPTTAB^STATION#^GECStatus^Production account?}
389var
390 x: string;
391begin
392 x := sCallV('ORWU USERINFO', [nil]);
393 with Result do
394 begin
395 DUZ := StrToInt64Def(Piece(x, U, 1), 0);
396 Name := Piece(x, U, 2);
397 UserClass := StrToIntDef(Piece(x, U, 3), 0);
398 CanSignOrders := Piece(x, U, 4) = '1';
399 IsProvider := Piece(x, U, 5) = '1';
400 OrderRole := StrToIntDef(Piece(x, U, 6), 0);
401 NoOrdering := Piece(x, U, 7) = '1';
402 DTIME := StrToIntDef(Piece(x, U, 8), 300);
403 CountDown := StrToIntDef(Piece(x, U, 9), 10);
404 EnableVerify := Piece(x, U, 10) = '1';
405 NotifyAppsWM := Piece(x, U, 11) = '1';
406 PtMsgHang := StrToIntDef(Piece(x, U, 12), 5);
407 Domain := Piece(x, U, 13);
408 Service := StrToIntDef(Piece(x, U, 14), 0);
409 AutoSave := StrToIntDef(Piece(x, U, 15), 180);
410 InitialTab := StrToIntDef(Piece(x, U, 16), 1);
411 UseLastTab := Piece(x, U, 17) = '1';
412 WebAccess := Piece(x, U, 18) <> '1';
413 DisableHold := Piece(x, U, 19) = '1';
414 IsRPL := Piece(x, U, 20);
415 RPLList := Piece(x, U, 21);
416 HasCorTabs := Piece(x, U, 22) = '1';
417 HasRptTab := Piece(x, U, 23) = '1';
418 StationNumber := Piece(x, U, 24);
419 GECStatusCheck := Piece(x, U, 25) = '1';
420 IsProductionAccount := Piece(x, U, 26) = '1';
421 IsReportsOnly := false;
422 if ((HasRptTab) and (not HasCorTabs)) then
423 IsReportsOnly := true;
424 // Remove next if and nested if should an "override" later be provided for RPL users,etc.:
425 if HasCorTabs then
426 if (IsRPL = '1') then
427 begin
428 IsRPL := '0'; // Hard set for now.
429 IsReportsOnly := false;
430 end;
431 // Following hard set to TRUE per VHA mgt decision:
432 ToolsRptEdit := true;
433 // x := GetUserParam('ORWT TOOLS RPT SETTINGS OFF');
434 // if x = '1' then
435 // ToolsRptEdit := false;
436 end;
437end;
438
439function GetUserParam(const AParamName: string): string;
440begin
441 Result := sCallV('ORWU PARAM', [AParamName]);
442end;
443
444function HasSecurityKey(const KeyName: string): Boolean;
445{ returns true if the currently logged in user has a given security key }
446var
447 x: string;
448begin
449 Result := False;
450 x := sCallV('ORWU HASKEY', [KeyName]);
451 if x = '1' then Result := True;
452end;
453
454function HasMenuOptionAccess(const OptionName: string): Boolean;
455begin
456 Result := (sCallV('ORWU HAS OPTION ACCESS', [OptionName]) = '1');
457end;
458
459function ValidESCode(const ACode: string): Boolean;
460{ returns true if the electronic signature code in ACode is valid }
461begin
462 Result := sCallV('ORWU VALIDSIG', [Encrypt(ACode)]) = '1';
463end;
464
465{ Notifications Calls }
466
467procedure LoadNotifications(Dest: TStrings);
468var
469 tmplst: TStringList;
470begin
471 tmplst := TStringList.Create;
472 try
473 //UpdateUnsignedOrderAlerts(Patient.DFN); //moved to AFTER signature and DC actions
474 tCallV(tmplst, 'ORWORB FASTUSER', [nil]);
475 Dest.Assign(tmplst);
476 finally
477 tmplst.Free;
478 end;
479end;
480
481procedure UpdateUnsignedOrderAlerts(PatientDFN: string);
482begin
483 CallV('ORWORB KILL UNSIG ORDERS ALERT',[PatientDFN]);
484end;
485
486function UnsignedOrderAlertFollowup(XQAID: string): string;
487begin
488 Result := sCallV('ORWORB UNSIG ORDERS FOLLOWUP',[XQAID]);
489end;
490
491procedure UpdateExpiringMedAlerts(PatientDFN: string);
492begin
493 CallV('ORWORB KILL EXPIR MED ALERT',[PatientDFN]);
494end;
495
496procedure UpdateExpiringFlaggedOIAlerts(PatientDFN: string; FollowUp: integer);
497begin
498 CallV('ORWORB KILL EXPIR OI ALERT',[PatientDFN, FollowUp]);
499end;
500
501procedure UpdateUnverifiedMedAlerts(PatientDFN: string);
502begin
503 CallV('ORWORB KILL UNVER MEDS ALERT',[PatientDFN]);
504end;
505
506procedure UpdateUnverifiedOrderAlerts(PatientDFN: string);
507begin
508 CallV('ORWORB KILL UNVER ORDERS ALERT',[PatientDFN]);
509end;
510
511procedure AutoUnflagAlertedOrders(PatientDFN, XQAID: string);
512begin
513 CallV('ORWORB AUTOUNFLAG ORDERS',[PatientDFN, XQAID]);
514end;
515
516procedure DeleteAlert(XQAID: string);
517//deletes an alert
518begin
519 CallV('ORB DELETE ALERT',[XQAID]);
520end;
521
522procedure DeleteAlertForUser(XQAID: string);
523//deletes an alert
524begin
525 CallV('ORB DELETE ALERT',[XQAID, True]);
526end;
527
528procedure ForwardAlert(XQAID: string; Recip: string; FWDtype: string; Comment: string);
529// Forwards an alert with comment to Recip[ient]
530begin
531 CallV('ORB FORWARD ALERT', [XQAID, Recip, FWDtype, Comment]);
532end;
533
534procedure RenewAlert(XQAID: string);
535// Restores/renews an alert
536begin
537 CallV('ORB RENEW ALERT', [XQAID]);
538end;
539
540function GetSortMethod: string;
541// Returns alert sort method
542begin
543 Result := sCallV('ORWORB GETSORT',[nil]);
544end;
545
546procedure SetSortMethod(Sort: string; Direction: string);
547// Sets alert sort method for user
548begin
549 CallV('ORWORB SETSORT', [Sort, Direction]);
550end;
551
552function GetXQAData(XQAID: string): string;
553// Returns data associated with an alert
554begin
555 Result := sCallV('ORWORB GETDATA',[XQAID]);
556end;
557
558function GetTIUAlertInfo(XQAID: string): string;
559// Returns DFN and document type associated with a TIU alert
560begin
561 Result := sCallV('TIU GET ALERT INFO',[XQAID]);
562end;
563
564function GetNotificationFollowUpText(PatientDFN: string; Notification: integer; XQADATA: string): TStrings;
565// Returns follow-up text for an alert
566begin
567 CallV('ORWORB TEXT FOLLOWUP', [PatientDFN, Notification, XQADATA]);
568 Result := RPCBrokerV.Results;
569end;
570
571{ Patient List Calls }
572
573function DfltPtList: string;
574{ returns the name of the current user's default patient list, null if none is defined
575 Pieces: Ptr to Source File^Source Name^Source Type }
576begin
577 Result := sCallV('ORQPT DEFAULT LIST SOURCE', [nil]);
578 if Length(Result) > 0 then Result := Pieces(Result, U, 2, 3);
579end;
580
581function DfltPtListSrc: Char;
582begin
583 Result := CharAt(sCallV('ORWPT DFLTSRC', [nil]), 1);
584end;
585
586procedure SavePtListDflt(const x: string);
587begin
588 CallV('ORWPT SAVDFLT', [x]);
589end;
590
591procedure ListSpecialtyAll(Dest: TStrings);
592{ lists all treating specialties: IEN^Treating Specialty Name }
593begin
594 CallV('ORQPT SPECIALTIES', [nil]);
595 MixedCaseList(RPCBrokerV.Results);
596 Dest.Assign(RPCBrokerV.Results);
597end;
598
599procedure ListTeamAll(Dest: TStrings);
600{ lists all patient care teams: IEN^Team Name }
601begin
602 CallV('ORQPT TEAMS', [nil]);
603 MixedCaseList(RPCBrokerV.Results);
604 Dest.Assign(RPCBrokerV.Results);
605end;
606
607procedure ListWardAll(Dest: TStrings);
608{ lists all active inpatient wards: IEN^Ward Name }
609begin
610 CallV('ORQPT WARDS', [nil]);
611 //MixedCaseList(RPCBrokerV.Results);
612 Dest.Assign(RPCBrokerV.Results);
613end;
614
615procedure ListProviderTop(Dest: TStrings);
616{ checks parameters for list of commonly selected providers }
617begin
618end;
619
620function SubSetOfProviders(const StartFrom: string; Direction: Integer): TStrings;
621{ returns a pointer to a list of providers (for use in a long list box) - The return value is
622 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
623begin
624 CallV('ORWU NEWPERS', [StartFrom, Direction, 'PROVIDER']);
625// MixedCaseList(RPCBrokerV.Results);
626 Result := RPCBrokerV.Results;
627end;
628
629function SubSetOfProvWithClass(const StartFrom: string; Direction: Integer; DateTime: string): TStrings;
630{ returns a pointer to a list of providers (for use in a long list box) - The return value is
631 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
632begin
633 CallV('ORWU NEWPERS', [StartFrom, Direction, 'PROVIDER', DateTime]);
634 MixedCaseList(RPCBrokerV.Results);
635 Result := RPCBrokerV.Results;
636end;
637
638function SubSetOfUsersWithClass(const StartFrom: string; Direction: Integer; DateTime: string): TStrings;
639{ returns a pointer to a list of users (for use in a long list box) - The return value is
640 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
641begin
642 CallV('ORWU NEWPERS', [StartFrom, Direction, '', DateTime]);
643 MixedCaseList(RPCBrokerV.Results);
644 Result := RPCBrokerV.Results;
645end;
646
647function SubSetOfActiveAndInactivePersons(const StartFrom: string; Direction: Integer): TStrings;
648{ returns a pointer to a list of users (for use in a long list box) - The return value is
649 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call!}
650begin
651 CallV('ORWU NEWPERS', [StartFrom, Direction, '', '', '', True]); //TRUE = return all active and inactive users
652 MixedCaseList(RPCBrokerV.Results);
653 Result := RPCBrokerV.Results;
654end;
655
656
657procedure ListClinicTop(Dest: TStrings);
658{ checks parameters for list of commonly selected clinics }
659begin
660end;
661
662function SubSetOfClinics(const StartFrom: string; Direction: Integer): TStrings;
663{ returns a pointer to a list of clinics (for use in a long list box) - The return value is
664 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
665begin
666 CallV('ORWU CLINLOC', [StartFrom, Direction]);
667 MixedCaseList(RPCBrokerV.Results);
668 Result := RPCBrokerV.Results;
669end;
670
671function GetDfltSort: string;
672{ Assigns uPtLstDfltSort to user's default patient list sort order (string character).}
673begin
674 uPtListDfltSort := sCallV('ORQPT DEFAULT LIST SORT', [nil]);
675 if uPtListDfltSort = '' then uPtListDfltSort := 'A'; // Default is always "A" for alpha.
676 result := uPtListDfltSort;
677end;
678
679procedure ResetDfltSort;
680begin
681 uPtListDfltSort := '';
682end;
683
684procedure ListPtByDflt(Dest: TStrings);
685{ loads the default patient list into Dest, Pieces: DFN^PATIENT NAME, ETC. }
686var
687 i, SourceType: Integer;
688 ATime, APlace, Sort, Source, x: string;
689 tmplst: TORStringList;
690begin
691 Sort := GetDfltSort();
692 tmplst := TORStringList.Create;
693 try
694 tCallV(tmplst, 'ORQPT DEFAULT PATIENT LIST', [nil]);
695 Source := sCallV('ORWPT DFLTSRC', [nil]);
696 if Source = 'C' then // Clinics.
697 begin
698 if Sort = 'P' then // "Appointments" sort.
699 SortByPiece(tmplst, U, 4)
700 else
701 SortByPiece(tmplst, U, 2);
702 for i := 0 to tmplst.Count - 1 do
703 begin
704 x := tmplst[i];
705 ATime := Piece(x, U, 4);
706 APlace := Piece(x, U, 3);
707 ATime := FormatFMDateTime('hh:nn mmm dd, yyyy', MakeFMDateTime(ATime));
708 SetPiece(x, U, 3, ATime);
709 x := x + U + APlace;
710 tmplst[i] := x;
711 end;
712 end
713 else
714 begin
715 SourceType := 0; // Default.
716 if Source = 'M' then SourceType := 1; // Combinations.
717 if Source = 'W' then SourceType := 2; // Wards.
718 case SourceType of
719 1 : if Sort = 'S' then tmplst.SortByPieces([3, 8, 2]) // "Source" sort.
720 else if Sort = 'P' then tmplst.SortByPieces([8, 2]) // "Appointment" sort.
721 else if Sort = 'T' then SortByPiece(tmplst, U, 5) // "Terminal Digit" sort.
722 else SortByPiece(tmplst, U, 2); // "Alphabetical" (also the default) sort.
723 2 : if Sort = 'R' then tmplst.SortByPieces([3, 2])
724 else SortByPiece(tmplst, U, 2);
725 else SortByPiece(tmplst, U, 2);
726 end;
727 end;
728 MixedCaseList(tmplst);
729 Dest.Assign(tmplst);
730 finally
731 tmplst.Free;
732 end;
733end;
734
735procedure ListPtByProvider(Dest: TStrings; ProviderIEN: Int64);
736{ lists all patients associated with a given provider: DFN^Patient Name }
737begin
738 CallV('ORQPT PROVIDER PATIENTS', [ProviderIEN]);
739 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
740 MixedCaseList(RPCBrokerV.Results);
741 Dest.Assign(RPCBrokerV.Results);
742end;
743
744procedure ListPtByTeam(Dest: TStrings; TeamIEN: Integer);
745{ lists all patients associated with a given team: DFN^Patient Name }
746begin
747 CallV('ORQPT TEAM PATIENTS', [TeamIEN]);
748 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
749 MixedCaseList(RPCBrokerV.Results);
750 Dest.Assign(RPCBrokerV.Results);
751end;
752
753procedure ListPtBySpecialty(Dest: TStrings; SpecialtyIEN: Integer);
754{ lists all patients associated with a given specialty: DFN^Patient Name }
755begin
756 CallV('ORQPT SPECIALTY PATIENTS', [SpecialtyIEN]);
757 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
758 MixedCaseList(RPCBrokerV.Results);
759 Dest.Assign(RPCBrokerV.Results);
760end;
761
762procedure ListPtByClinic(Dest: TStrings; ClinicIEN: Integer; FirstDt, LastDt: string); //TFMDateTime);
763{ lists all patients associated with a given clinic: DFN^Patient Name^App't }
764var
765 i: Integer;
766 x, ATime, APlace, Sort: string;
767begin
768 Sort := GetDfltSort();
769 CallV('ORQPT CLINIC PATIENTS', [ClinicIEN, FirstDt, LastDt]);
770 with RPCBrokerV do
771 begin
772 if Sort = 'P' then
773 SortByPiece(TStringList(Results), U, 4)
774 else
775 SortByPiece(TStringList(Results), U, 2);
776 for i := 0 to Results.Count - 1 do
777 begin
778 x := Results[i];
779 ATime := Piece(x, U, 4);
780 APlace := Piece(x, U, 3);
781 ATime := FormatFMDateTime('hh:nn mmm dd, yyyy', MakeFMDateTime(ATime));
782 SetPiece(x, U, 3, ATime);
783 x := x + U + APlace;
784 Results[i] := x;
785 end;
786 MixedCaseList(Results);
787 Dest.Assign(Results);
788 end;
789end;
790
791procedure ListPtByWard(Dest: TStrings; WardIEN: Integer);
792{ lists all patients associated with a given ward: DFN^Patient Name^Room/Bed }
793var
794 Sort: string;
795begin
796 Sort := GetDfltSort();
797 CallV('ORWPT BYWARD', [WardIEN]);
798 if Sort = 'R' then
799 SortByPiece(TStringList(RPCBrokerV.Results), U, 3)
800 else
801 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
802 MixedCaseList(RPCBrokerV.Results);
803 Dest.Assign(RPCBrokerV.Results);
804end;
805
806// VWPT ADDITIONS FOR ENHANCED PATIENT LOOKUP
807procedure ListPtByOther (Dest: Tstrings; const othertext: string;caption:string );//:string; radbutton:Tobject);
808var
809 i: Integer;
810 x,Afieldname: string;
811begin
812
813 CallV('ORWPT OTHER-RADIOBUTTONS',[othertext, caption]);
814 //SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
815 MixedCaseList(RPCBrokerV.Results);
816 Dest.Assign(RPCBrokerV.Results);
817end;
818
819procedure ListPtByTimson (Dest: Tstrings; const othertext: string);//
820
821var
822 i: Integer;
823 x,Afieldname: string;
824begin
825
826 CallV('ORWPT ENHANCED PATLOOKUP',[othertext]);
827 //SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
828 MixedCaseList(RPCBrokerV.Results);
829 Dest.Assign(RPCBrokerV.Results);
830end;
831
832
833
834//END VWPT ADDITIONS
835procedure ListPtByLast5(Dest: TStrings; const Last5: string);
836var
837 i: Integer;
838 x, ADate, AnSSN: string;
839begin
840{ Lists all patients found in the BS and BS5 xrefs that match Last5: DFN^Patient Name }
841 CallV('ORWPT LAST5', [UpperCase(Last5)]);
842 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
843 with RPCBrokerV do for i := 0 to Results.Count - 1 do
844 begin
845 x := Results[i];
846 ADate := Piece(x, U, 3);
847 AnSSN := Piece(x, U, 4);
848 if IsFMDate(ADate) then ADate := FormatFMDateTimeStr('mmm d, yyyy', ADate);
849 if IsSSN(AnSSN) then AnSSN := FormatSSN(AnSSN);
850 SetPiece(x, U, 3, AnSSN + ' ' + ADate);
851 Results[i] := x;
852 end;
853 MixedCaseList(RPCBrokerV.Results);
854 Dest.Assign(RPCBrokerV.Results);
855end;
856
857procedure ListPtByRPLLast5(Dest: TStrings; const Last5: string);
858var
859 i: Integer;
860 x, ADate, AnSSN: string;
861begin
862{ Lists patients from RPL list that match Last5: DFN^Patient Name }
863 CallV('ORWPT LAST5 RPL', [UpperCase(Last5)]);
864 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
865 with RPCBrokerV do for i := 0 to Results.Count - 1 do
866 begin
867 x := Results[i];
868 ADate := Piece(x, U, 3);
869 AnSSN := Piece(x, U, 4);
870 if IsFMDate(ADate) then ADate := FormatFMDateTimeStr('mmm d, yyyy', ADate);
871 if IsSSN(AnSSN) then AnSSN := FormatSSN(AnSSN);
872 SetPiece(x, U, 3, AnSSN + ' ' + ADate);
873 Results[i] := x;
874 end;
875 MixedCaseList(RPCBrokerV.Results);
876 Dest.Assign(RPCBrokerV.Results);
877end;
878
879procedure ListPtByFullSSN(Dest: TStrings; const FullSSN: string);
880{ lists all patients found in the SSN xref that match FullSSN: DFN^Patient Name }
881var
882 i: integer;
883 x, ADate, AnSSN: string;
884begin
885 x := FullSSN;
886 i := Pos('-', x);
887 while i > 0 do
888 begin
889 x := Copy(x, 1, i-1) + Copy(x, i+1, 12);
890 i := Pos('-', x);
891 end;
892 CallV('ORWPT FULLSSN', [UpperCase(x)]);
893 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
894 with RPCBrokerV do for i := 0 to Results.Count - 1 do
895 begin
896 x := Results[i];
897 ADate := Piece(x, U, 3);
898 AnSSN := Piece(x, U, 4);
899 if IsFMDate(ADate) then ADate := FormatFMDateTimeStr('mmm d, yyyy', ADate);
900 if IsSSN(AnSSN) then AnSSN := FormatSSN(AnSSN);
901 SetPiece(x, U, 3, AnSSN + ' ' + ADate);
902 Results[i] := x;
903 end;
904 MixedCaseList(RPCBrokerV.Results);
905 Dest.Assign(RPCBrokerV.Results);
906end;
907
908procedure ListPtByRPLFullSSN(Dest: TStrings; const FullSSN: string);
909{ lists all patients found in the SSN xref that match FullSSN: DFN^Patient Name }
910var
911 i: integer;
912 x, ADate, AnSSN: string;
913begin
914 x := FullSSN;
915 i := Pos('-', x);
916 while i > 0 do
917 begin
918 x := Copy(x, 1, i-1) + Copy(x, i+1, 12);
919 i := Pos('-', x);
920 end;
921 CallV('ORWPT FULLSSN RPL', [UpperCase(x)]);
922 SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
923 with RPCBrokerV do for i := 0 to Results.Count - 1 do
924 begin
925 x := Results[i];
926 ADate := Piece(x, U, 3);
927 AnSSN := Piece(x, U, 4);
928 if IsFMDate(ADate) then ADate := FormatFMDateTimeStr('mmm d, yyyy', ADate);
929 if IsSSN(AnSSN) then AnSSN := FormatSSN(AnSSN);
930 SetPiece(x, U, 3, AnSSN + ' ' + ADate);
931 Results[i] := x;
932 end;
933 MixedCaseList(RPCBrokerV.Results);
934 Dest.Assign(RPCBrokerV.Results);
935end;
936
937procedure ListPtTop(Dest: TStrings);
938{ currently returns the last patient selected }
939begin
940 CallV('ORWPT TOP', [nil]);
941 MixedCaseList(RPCBrokerV.Results);
942 Dest.Assign(RPCBrokerV.Results);
943end;
944
945function SubSetOfPatients(const StartFrom: string; Direction: Integer): TStrings;
946{ returns a pointer to a list of patients (for use in a long list box) - The return value is
947 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
948begin
949 CallV('ORWPT LIST ALL', [StartFrom, Direction]);
950 MixedCaseList(RPCBrokerV.Results);
951 Result := RPCBrokerV.Results;
952end;
953
954function MakeRPLPtList(RPLList: string): string;
955{ Creates "RPL" Restricted Patient List based on Team List info in user's record. }
956begin
957 result := sCallV('ORQPT MAKE RPL', [RPLList]);
958end;
959
960function ReadRPLPtList(RPLJobNumber: string; const StartFrom: string; Direction: Integer) : TStrings;
961{ returns a pointer to a list of patients (for use in a long list box) - The return value is
962 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
963begin
964 CallV('ORQPT READ RPL', [RPLJobNumber, StartFrom, Direction]);
965 MixedCaseList(RPCBrokerV.Results);
966 Result := RPCBrokerV.Results;
967end;
968
969procedure KillRPLPtList(RPLJobNumber: string);
970begin
971 CallV('ORQPT KILL RPL', [RPLJobNumber]);
972end;
973
974{ Patient Specific Calls }
975
976function CalcAge(BirthDate, DeathDate: TFMDateTime): Integer;
977{ calculates age based on today's date and a birthdate (in Fileman format) }
978begin
979 if (DeathDate > BirthDate) then
980 Result := Trunc(DeathDate - BirthDate) div 10000
981 else
982 Result := Trunc(FMToday - BirthDate) div 10000
983end;
984
985procedure CheckSensitiveRecordAccess(const DFN: string; var AccessStatus: Integer;
986 var MessageText: string);
987begin
988 CallV('DG SENSITIVE RECORD ACCESS', [DFN]);
989 AccessStatus := -1;
990 MessageText := '';
991 with RPCBrokerV do
992 begin
993 if Results.Count > 0 then
994 begin
995 AccessStatus := StrToIntDef(Results[0], -1);
996 Results.Delete(0);
997 if Results.Count > 0 then MessageText := Results.Text;
998 end;
999 end;
1000end;
1001
1002procedure CheckRemotePatient(var Dest: string; Patient, ASite: string; var AccessStatus: Integer);
1003
1004begin
1005 CallV('XWB DIRECT RPC', [ASite, 'ORWCIRN RESTRICT', 0, Patient]);
1006 AccessStatus := -1;
1007 Dest := '';
1008 with RPCBrokerV do
1009 begin
1010 if Results.Count > 0 then
1011 begin
1012 if Results[0] = '' then Results.Delete(0);
1013 end;
1014 if Results.Count > 0 then
1015 begin
1016 if (length(piece(Results[0],'^',2)) > 0) and ((StrToIntDef(piece(Results[0],'^',1),0) = -1)) then
1017 begin
1018 AccessStatus := -1;
1019 Dest := piece(Results[0],'^',2);
1020 end
1021 else
1022 begin
1023 AccessStatus := StrToIntDef(Results[0], -1);
1024 Results.Delete(0);
1025 if Results.Count > 0 then Dest := Results.Text;
1026 end;
1027 end;
1028 end;
1029end;
1030
1031procedure CurrentLocationForPatient(const DFN: string; var ALocation: Integer; var AName: string; var ASvc: string);
1032var
1033 x: string;
1034begin
1035 x := sCallV('ORWPT INPLOC', [DFN]);
1036 ALocation := StrToIntDef(Piece(x, U, 1), 0);
1037 AName := Piece(x, U, 2);
1038 ASvc := Piece(x, U, 3);
1039end;
1040
1041function DateOfDeath(const DFN: string): TFMDateTime;
1042{ returns 0 or the date a patient died }
1043begin
1044 Result := MakeFMDateTime(sCallV('ORWPT DIEDON', [DFN]));
1045end;
1046
1047function GetPtIDInfo(const DFN: string): TPtIDInfo; //*DFN*
1048{ returns the identifiers displayed upon patient selection
1049//VWPT ADD HRN ,ALT HRN (FUTURE)
1050 Pieces: SSN[1]^DOB[2]^SEX[3]^VET[4]^SC%[5]^WARD[6]^RM-BED[7]^NAME[8]^HRN[9]^ALTHRN[10] }
1051 // Pieces: SSN[1]^DOB[2]^SEX[3]^VET[4]^SC%[5]^WARD[6]^RM-BED[7]^NAME[8] }
1052var
1053 x: string;
1054begin
1055 x := sCallV('ORWPT ID INFO', [DFN]);
1056 with Result do // map string into TPtIDInfo record
1057 begin
1058 Name := MixedCase(Piece(x, U, 8)); // Name
1059 SSN := Piece(x, U, 1);
1060 DOB := Piece(x, U, 2);
1061 Age := '';
1062 if IsSSN(SSN) then SSN := FormatSSN(Piece(x, U, 1)); // SSN (PID)
1063 if IsFMDate(DOB) then DOB := FormatFMDateTimeStr('mmm dd,yyyy', DOB); // Date of Birth
1064 //Age := IntToStr(CalcAge(MakeFMDateTime(Piece(x, U, 2)))); // Age
1065 Sex := Piece(x, U, 3); // Sex
1066 if Length(Sex) = 0 then Sex := 'U';
1067 case Sex[1] of
1068 'F','f': Sex := 'Female';
1069 'M','m': Sex := 'Male';
1070 else Sex := 'Unknown';
1071 end;
1072 if Piece(x, U, 4) = 'Y' then Vet := 'Veteran' else Vet := ''; // Veteran?
1073 if Length(Piece(x, U, 5)) > 0 // % Service Connected
1074 then SCSts := Piece(x, U, 5) + '% Service Connected'
1075 else SCSts := '';
1076 Location := Piece(x, U, 6); // Inpatient Location
1077 RoomBed := Piece(x, U, 7); // Inpatient Room-Bed
1078 // VWPT ADD HRN
1079 HRN := Piece(x, U, 9);
1080 AltHRN := Piece(x, U, 10);
1081 end;
1082end;
1083
1084function HasLegacyData(const DFN: string; var AMsg: string): Boolean;
1085var
1086 i: Integer;
1087begin
1088 Result := False;
1089 AMsg := '';
1090 CallV('ORWPT LEGACY', [DFN]);
1091 with RPCBrokerV do if Results.Count > 0 then
1092 begin
1093 Result := Results[0] = '1';
1094 for i := 1 to Results.Count - 1 do AMsg := AMsg + Results[i] + CRLF;
1095 end;
1096end;
1097
1098function LogSensitiveRecordAccess(const DFN: string): Boolean;
1099begin
1100 Result := sCallV('DG SENSITIVE RECORD BULLETIN', [DFN]) = '1';
1101end;
1102
1103function MeansTestRequired(const DFN: string; var AMsg: string): Boolean;
1104var
1105 i: Integer;
1106begin
1107 Result := False;
1108 AMsg := '';
1109 CallV('DG CHK PAT/DIV MEANS TEST', [DFN]);
1110 with RPCBrokerV do if Results.Count > 0 then
1111 begin
1112 Result := Results[0] = '1';
1113 for i := 1 to Results.Count - 1 do AMsg := AMsg + Results[i] + CRLF;
1114 end;
1115end;
1116
1117function RestrictedPtRec(const DFN: string): Boolean; //*DFN*
1118{ returns true if the record for a patient identified by DFN is restricted }
1119begin
1120 Result := Piece(sCallV('ORWPT SELCHK', [DFN]), U, 1) = '1';
1121end;
1122
1123procedure SelectPatient(const DFN: string; var PtSelect: TPtSelect); //*DFN*
1124{ selects the patient (updates DISV, calls Pt Select actions) & returns key fields
1125 Pieces: NAME[1]^SEX[2]^DOB[3]^SSN[4]^LOCIEN[5]^LOCNAME[6]^ROOMBED[7]^CWAD[8]^SENSITIVE[9]^
1126 //VWPT add HRN and ALTERNATE HRN used with PID hl7 segments
1127 ADMITTIME[10]^CONVERTED[11]^SVCONN[12]^SC%[13]^ICN[14]^Age[15]^TreatSpec[16]^HRN[17]^AltHRN[18] }
1128// BEFORE THIS VWPT WAS ADMITTIME[10]^CONVERTED[11]^SVCONN[12]^SC%[13]^ICN[14]^Age[15]^TreatSpec[16] }
1129var
1130 x: string;
1131begin
1132 x := sCallV('ORWPT SELECT', [DFN]);
1133 with PtSelect do
1134 begin
1135 Name := Piece(x, U, 1);
1136 ICN := Piece(x, U, 14);
1137 SSN := FormatSSN(Piece(x, U, 4));
1138 DOB := MakeFMDateTime(Piece(x, U, 3));
1139 Age := StrToIntDef(Piece(x, U, 15), 0);
1140 //Age := CalcAge(DOB, DateOfDeath(DFN));
1141 if Length(Piece(x, U, 2)) > 0 then Sex := Piece(x, U, 2)[1] else Sex := 'U';
1142 LocationIEN := StrToIntDef(Piece(x, U, 5), 0);
1143 Location := Piece(x, U, 6);
1144 RoomBed := Piece(x, U, 7);
1145 SpecialtyIEN := StrToIntDef(Piece(x, u, 16), 0);
1146 CWAD := Piece(x, U, 8);
1147 Restricted := Piece(x, U, 9) = '1';
1148 AdmitTime := MakeFMDateTime(Piece(x, U, 10));
1149 ServiceConnected := Piece(x, U, 12) = '1';
1150 SCPercent := StrToIntDef(Piece(x, U, 13), 0);
1151
1152 //VWPT ADD HRN AltHRN (future)
1153 HRN := Piece(x, U, 17);
1154 AltHRN := Piece(x, U, 18);
1155 end;
1156 x := sCallV('ORWPT1 PRCARE', [DFN]);
1157 with PtSelect do
1158 begin
1159 PrimaryTeam := Piece(x, U, 1);
1160 PrimaryProvider := Piece(x, U, 2);
1161 if Length(Location) > 0 then
1162 begin
1163 Attending := Piece(x, U, 3);
1164 x := sCallV('ORWPT INPLOC', [DFN]);
1165 WardService := Piece(x, U, 3);
1166 end;
1167 end;
1168end;
1169
1170function SimilarRecordsFound(const DFN: string; var AMsg: string): Boolean;
1171begin
1172 Result := False;
1173 AMsg := '';
1174 CallV('DG CHK BS5 XREF Y/N', [DFN]);
1175 with RPCBrokerV do if Results.Count > 0 then
1176 begin
1177 Result := Results[0] = '1';
1178 Results.Delete(0);
1179 AMsg := Results.Text;
1180 end;
1181 (*
1182 CallV('DG CHK BS5 XREF ARRAY', [DFN]);
1183 with RPCBrokerV do if Results.Count > 0 then
1184 begin
1185 Result := Results[0] = '1';
1186 for i := 1 to Results.Count - 1 do
1187 begin
1188 if Piece(Results[i], U, 1) = '0' then AMsg := AMsg + Copy(Results[i], 3, Length(Results[i])) + CRLF;
1189 if Piece(Results[i], U, 1) = '1' then AMsg := AMsg + Piece(Results[i], U, 3) + #9 +
1190 FormatFMDateTimeStr('mmm dd,yyyy', Piece(Results[i], U, 4)) + #9 + Piece(Results[i], U, 5) + CRLF;
1191 end;
1192 end;
1193 *)
1194end;
1195
1196function GetDFNFromICN(AnICN: string): string;
1197begin
1198 Result := Piece(sCallV('VAFCTFU CONVERT ICN TO DFN', [AnICN]), U, 1);
1199end;
1200
1201{ Encounter specific calls }
1202
1203function GetEncounterText(const DFN: string; Location: integer; Provider: Int64): TEncounterText; //*DFN*
1204{ returns resolved external values Pieces: LOCNAME[1]^PROVNAME[2]^ROOMBED[3] }
1205var
1206 x: string;
1207begin
1208 x := sCallV('ORWPT ENCTITL', [DFN, Location, Provider]);
1209 with Result do
1210 begin
1211 LocationName := Piece(x, U, 1);
1212 LocationAbbr := Piece(x, U, 2);
1213 RoomBed := Piece(x, U, 3);
1214 ProviderName := Piece(x, U, 4);
1215// ProviderName := sCallV('ORWU1 NAMECVT', [Provider]);
1216 end;
1217end;
1218
1219procedure ListApptAll(Dest: TStrings; const DFN: string; From: TFMDateTime = 0;
1220 Thru: TFMDateTime = 0);
1221{ lists appts/visits for a patient (uses same call as cover sheet)
1222 V|A;DateTime;LocIEN^DateTime^LocName^Status }
1223const
1224 SKIP_ADMITS = 1;
1225begin
1226 CallV('ORWCV VST', [Patient.DFN, From, Thru, SKIP_ADMITS]);
1227 with RPCBrokerV do
1228 begin
1229 InvertStringList(TStringList(Results));
1230 MixedCaseList(Results);
1231 SetListFMDateTime('mmm dd,yyyy hh:nn', TStringList(Results), U, 2);
1232 Dest.Assign(Results);
1233 end;
1234 (*
1235 CallV('ORWPT APPTLST', [DFN]);
1236 with RPCBrokerV do
1237 begin
1238 SortByPiece(TStringList(Results), U, 1);
1239 InvertStringList(TStringList(Results));
1240 for i := 0 to Results.Count - 1 do
1241 begin
1242 x := Results[i];
1243 ATime := Piece(x, U, 1);
1244 ATime := FormatFMDateTime('mmm dd, yyyy hh:nn', MakeFMDateTime(ATime));
1245 SetPiece(x, U, 5, ATime);
1246 Results[i] := x;
1247 end;
1248 Dest.Assign(Results);
1249 end;
1250 *)
1251end;
1252
1253procedure ListAdmitAll(Dest: TStrings; const DFN: string); //*DFN*
1254{ lists all admissions for a patient: MovementTime^LocIEN^LocName^Type }
1255var
1256 i: Integer;
1257 ATime, x: string;
1258begin
1259 CallV('ORWPT ADMITLST', [DFN]);
1260 with RPCBrokerV do
1261 begin
1262 for i := 0 to Results.Count - 1 do
1263 begin
1264 x := Results[i];
1265 ATime := Piece(x, U, 1);
1266 ATime := FormatFMDateTime('mmm dd, yyyy hh:nn', MakeFMDateTime(ATime));
1267 SetPiece(x, U, 5, ATime);
1268 Results[i] := x;
1269 end;
1270 Dest.Assign(Results);
1271 end;
1272end;
1273
1274function SubSetOfLocations(const StartFrom: string; Direction: Integer): TStrings;
1275{ returns a pointer to a list of locations (for use in a long list box) - The return value is
1276 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
1277begin
1278 CallV('ORWU HOSPLOC', [StartFrom, Direction]);
1279 Result := RPCBrokerV.Results;
1280end;
1281
1282function SubSetOfNewLocs(const StartFrom: string; Direction: Integer): TStrings;
1283{ Returns a pointer to a list of locations (for use in a long list box) - the return value is
1284 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call!
1285 Filtered by C, W, and Z types - i.e., Clinics, Wards, and "Other" type locations.}
1286begin
1287 CallV('ORWU1 NEWLOC', [StartFrom, Direction]);
1288 Result := RPCBrokerV.Results;
1289end;
1290
1291function SubSetOfInpatientLocations(const StartFrom: string; Direction: Integer): TStrings;
1292{ returns a pointer to a list of locations (for use in a long list box) - The return value is
1293 a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
1294begin
1295 CallV('ORWU INPLOC', [StartFrom, Direction]);
1296 Result := RPCBrokerV.Results;
1297end;
1298
1299{ Remote Data Access calls }
1300
1301function HasRemoteData(const DFN: string; var ALocations: TStringList): Boolean;
1302begin
1303 CallV('ORWCIRN FACLIST', [DFN]);
1304 ALocations.Assign(RPCBrokerV.Results);
1305 Result := not (Piece(RPCBrokerV.Results[0], U, 1) = '-1');
1306
1307// '-1^NO DFN'
1308// '-1^PATIENT NOT IN DATABASE'
1309// '-1^NO MPI Node'
1310// '-1^NO ICN'
1311// '-1^Parameter missing.'
1312// '-1^No patient DFN.'
1313// '-1^Could not find Treating Facilities'
1314// '-1^Remote access not allowed' <===parameter ORWCIRN REMOTE DATA ALLOW
1315end;
1316
1317function CheckHL7TCPLink: Boolean;
1318 begin
1319 CallV('ORWCIRN CHECKLINK',[nil]);
1320 Result := RPCBrokerV.Results[0] = '1';
1321 end;
1322
1323function UseVistaWeb: Boolean;
1324 begin;
1325 CallV('ORWCIRN VISTAWEB',[nil]);
1326 result := RPCBrokerV.Results[0] = '1';
1327 end;
1328
1329function GetVistaWebAddress(value: string): string;
1330begin
1331 CallV('ORWCIRN WEBADDR', [value]);
1332 result := RPCBrokerV.Results[0];
1333end;
1334
1335procedure ChangeVistaWebParam(value: string);
1336 begin
1337 CallV('ORWCIRN WEBCH',[value]);
1338 end;
1339
1340function GetDefaultPrinter(DUZ: Int64; Location: integer): string;
1341begin
1342 Result := sCallV('ORWRP GET DEFAULT PRINTER', [DUZ, Location]) ;
1343end;
1344
1345initialization
1346 uFMToday := 0;
1347
1348end.
Note: See TracBrowser for help on using the repository browser.