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

Timestamp:

Sep 9, 2008, 7:18:06 PM (16 years ago)

Author:

George Lilly

Message:

added command DCCR^{GPLCCR(dfn) to display just extracted CCR}

File:

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

ccr/trunk/p/CCRSYS.m

@@ -43 +43 @@
          ;
          I '$D(CCRTEST) S CCRTEST=1 ; DEFAULT IS THAT WE ARE TESTING
-         I 'CCRTEST D  ; IF WE ARE NOT TESTING, SKIP TEST PATIENTS
-         . N DIERR,DATA
-         . S DATA=+$$GET1^DIQ(2,DFN_",",.6,"I") ;Test Patient Indicator
-         . ; 1 = Test Patient
-         . ; 0 = Non-test Patient
-         . I DATA Q DATA
-         . S DATA=$$GET1^DIQ(2,DFN_",",.09,"I") ;SSN test
-         . D CLEAN^DILF
-         . I $E(DATA,1,3)="000" Q 1
-         . I $E(DATA,1,3)="666" Q 1
+         I CCRTEST Q 0  ; IF WE ARE TESTING, DON'T REJECT TEST PATIENTS
+         N DIERR,DATA
+         S DATA=+$$GET1^DIQ(2,DFN_",",.6,"I") ;Test Patient Indicator
+         ; 1 = Test Patient
+         ; 0 = Non-test Patient
+         I DATA Q DATA
+         S DATA=$$GET1^DIQ(2,DFN_",",.09,"I") ;SSN test
+         D CLEAN^DILF
+         I "Pp"[$E(DATA,$L(DATA),$L(DATA)) Q 0  ;Allow Pseudo SSN
+         I $E(DATA,1,3)="000" Q 1
+         I $E(DATA,1,3)="666" Q 1
          Q 0
          ;