Changeset 147 for ccr/trunk


Ignore:
Timestamp:
Sep 9, 2008, 7:18:06 PM (16 years ago)
Author:
George Lilly
Message:

added command DCCRGPLCCR(dfn) to display just extracted CCR

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRSYS.m

    r143 r147  
    4343         ;
    4444         I '$D(CCRTEST) S CCRTEST=1 ; DEFAULT IS THAT WE ARE TESTING
    45          I 'CCRTEST D  ; IF WE ARE NOT TESTING, SKIP TEST PATIENTS
    46          . N DIERR,DATA
    47          . S DATA=+$$GET1^DIQ(2,DFN_",",.6,"I") ;Test Patient Indicator
    48          . ; 1 = Test Patient
    49          . ; 0 = Non-test Patient
    50          . I DATA Q DATA
    51          . S DATA=$$GET1^DIQ(2,DFN_",",.09,"I") ;SSN test
    52          . D CLEAN^DILF
    53          . I $E(DATA,1,3)="000" Q 1
    54          . I $E(DATA,1,3)="666" Q 1
     45         I CCRTEST Q 0  ; IF WE ARE TESTING, DON'T REJECT TEST PATIENTS
     46         N DIERR,DATA
     47         S DATA=+$$GET1^DIQ(2,DFN_",",.6,"I") ;Test Patient Indicator
     48         ; 1 = Test Patient
     49         ; 0 = Non-test Patient
     50         I DATA Q DATA
     51         S DATA=$$GET1^DIQ(2,DFN_",",.09,"I") ;SSN test
     52         D CLEAN^DILF
     53         I "Pp"[$E(DATA,$L(DATA),$L(DATA)) Q 0  ;Allow Pseudo SSN
     54         I $E(DATA,1,3)="000" Q 1
     55         I $E(DATA,1,3)="666" Q 1
    5556         Q 0
    5657         ;
  • ccr/trunk/p/GPLCCR.m

    r141 r147  
    4848       Q
    4949       ;
     50DCCR(DFN) ; DISPLAY A CCR THAT HAS JUST BEEN EXTRACTED
     51    ;
     52    N G1
     53    S G1=$NA(^TMP("GPLCCR",$J,DFN,"CCR"))
     54    I $D(@G1@(0)) D  ; CCR EXISTS
     55    D PARY^GPLXPATH(G1)
     56    Q
     57    ;
    5058CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
    5159    ; CCRGRTN IS RETURN ARRAY PASSED BY NAME
Note: See TracChangeset for help on using the changeset viewer.