Index: /ccr/trunk/p/CCRSYS.m
===================================================================
--- /ccr/trunk/p/CCRSYS.m	(revision 146)
+++ /ccr/trunk/p/CCRSYS.m	(revision 147)
@@ -43,14 +43,15 @@
          ;
          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
          ;
Index: /ccr/trunk/p/GPLCCR.m
===================================================================
--- /ccr/trunk/p/GPLCCR.m	(revision 146)
+++ /ccr/trunk/p/GPLCCR.m	(revision 147)
@@ -48,4 +48,12 @@
        Q
        ;
+DCCR(DFN) ; DISPLAY A CCR THAT HAS JUST BEEN EXTRACTED
+    ;
+    N G1
+    S G1=$NA(^TMP("GPLCCR",$J,DFN,"CCR"))
+    I $D(@G1@(0)) D  ; CCR EXISTS
+    D PARY^GPLXPATH(G1)
+    Q
+    ;
 CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
     ; CCRGRTN IS RETURN ARRAY PASSED BY NAME