Changeset 148 for ccr/trunk/p/CCRSYS.m

Timestamp:

Sep 10, 2008, 1:55:16 PM (16 years ago)

Author:

George Lilly

Message:

enhancements to check for test patients

File:

• ccr/trunk/p/CCRSYS.m (modified) (1 diff)

ccr/trunk/p/CCRSYS.m

@@ -45 +45 @@
          I CCRTEST Q 0  ; IF WE ARE TESTING, DON'T REJECT TEST PATIENTS
          N DIERR,DATA
+         I $$TESTPAT^VADPT(DFN) Q 1 ; QUIT IF IT'S A VA TEST PATIENT
          S DATA=+$$GET1^DIQ(2,DFN_",",.6,"I") ;Test Patient Indicator
          ; 1 = Test Patient