Changeset 147 for ccr/trunk

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}

Location:

ccr/trunk/p

Files:

• CCRSYS.m (modified) (1 diff)
• GPLCCR.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
          ;

ccr/trunk/p/GPLCCR.m

@@ -48 +48 @@
        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