Changeset 139 for ccr/trunk


Ignore:
Timestamp:
Sep 5, 2008, 1:18:56 PM (16 years ago)
Author:
George Lilly
Message:

Check for Merged or Test patients. New parameter CCRTEST=0 if not testing

File:
1 edited

Legend:

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

    r122 r139  
    3333        Q "1.0"
    3434        ;
     35PTST(DFN) ;TEST TO SEE IF PATIENT MERGED OR A TEST PATIENT
     36         ; DFN = IEN of the Patient to be tested
     37         ; 1 = Merged or Test Patient
     38         ; 0 = Non-test Patient
     39         ;
     40         I $D(^DPT(DFN,-9)) Q 1  ;This patient has been merged
     41         I $G(^DPT(DFN,0))="" Q 1  ;Missing zeroth node <---add
     42         ;
     43         I '$D(CCRTEST) S CCRTEST=1 ; DEFAULT IS THAT WE ARE TESTING
     44         I 'CCRTEST D  ; IF WE ARE NOT TESTING, SKIP TEST PATIENTS
     45         . N DIERR,DATA
     46         . S DATA=+$$GET1^DIQ(2,DFN_",",.6,"I") ;Test Patient Indicator
     47         . ; 1 = Test Patient
     48         . ; 0 = Non-test Patient
     49         . I DATA Q DATA
     50         . S DATA=$$GET1^DIQ(2,DFN_",",.09,"I") ;SSN test
     51         . D CLEAN^DILF
     52         . I $E(DATA,1,3)="000" Q 1
     53         . I $E(DATA,1,3)="666" Q 1
     54         Q 0
     55         ;
Note: See TracChangeset for help on using the changeset viewer.