Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas (modified) (3 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas

@@ -150 +150 @@
 function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean;
 function IsCancelOrNoShow(ANote: integer): boolean;
+function IsNonCountClinic(ALocation: integer): boolean;
 
 // HNC Flag
@@ -173 +174 @@
   uVTypeForLoc:   TStringList;
   uProblems:      TStringList;
-  
   uModifiers:     TORStringList = nil;
   uGAFOK:         boolean;
@@ -1438 +1438 @@
 end;
 
+function IsNonCountClinic(ALocation: integer): boolean;
+begin
+  Result := (sCallV('ORWPCE1 NONCOUNT', [ALocation]) = '1');
+end;
+
 function DefaultProvider(ALocation: integer; AUser: Int64; ADate: TFMDateTime;
                                              ANoteIEN: integer): string;