Changeset 262


Ignore:
Timestamp:
Nov 8, 2008, 1:34:13 PM (16 years ago)
Author:
George Lilly
Message:

file names have correct version number

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r256 r262  
    3939       S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
    4040       S ONAM=UFN
    41        I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
     41       I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_6.xml"
    4242       S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
    4343       I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
  • ccr/trunk/p/GPLLABS.m

    r260 r262  
    4040 ; N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR
    4141 ; D EXTRACT^GPLLABS(,1,)
     42 I '$D(C0CSILENT) S C0CSILENT=0
     43 I '$D(DFN) S DFN=1 ; DEFAULT TEST PATIENT
     44 I '$D(^KVAI(0)) D SETTBL ; INITIALIZE LAB TABLE
     45 I ^KBAI(0)'="V1" D SETTBL ; NEED NEWEST VERSION
     46 I '$D(^TMP("HLS",$J,1)) D EXTRACT(,DFN,) ;EXTRACT IF NOT ALREADY DONE
    4247 S C0CTAB=$NA(^KBAI) ; BASE OF OBX TABLE
    4348 S C0CHB=$NA(^TMP("HLS",$J))
     
    4651 . K C0CVAR,XV ; CLEAR OUT VARIABLE VALUES
    4752 . S C0CTYP=$P(@C0CHB@(C0CI),"|",1)
    48  . D LTYP(@C0CHB@(C0CI),C0CTYP,.C0CVAR)
     53 . D LTYP(@C0CHB@(C0CI),C0CTYP,.C0CVAR,C0CSILENT)
    4954 . M XV=C0CVAR ;
    5055 . I C0CTYP="OBX" D  ; SPECIAL CASE FOR OBX3
     
    6772 . . . S XV("RESULTTESTCODINGSYSTEM")=C0CVAR("C3") ; PRIMARY DISPLAY NAME
    6873 . . . S XV("RESULTTESTDESCRIPTIONTEXT")=C0CVAR("C2") ; USE PRIMARY TEXT
    69  . . ZWR XV
    70  . W C0CI," ",C0CTYP,!
     74 . . I 'C0CSILENT D  ;
     75 . . . ZWR XV
     76 . I 'C0CSILENT D  ;
     77 . . W C0CI," ",C0CTYP,!
    7178 . ; S C0CI=$O(@C0CHB@(C0CI))
    7279 Q
    73 LTYP(OSEG,OTYP,OVARA) ;
     80LTYP(OSEG,OTYP,OVARA,OC0CSILENT) ;
    7481 S OTAB=$NA(@C0CTAB@(OTYP)) ; TABLE FOR SEGMENT TYPE
     82 I '$D(OC0CSILENT) S C0CSILENT=0 ; NOT C0CSILENT IS DEFAULT
     83 E  S C0CSILENT=OC0CSILENT ; ACCEPT C0CSILENT FLAG
    7584 I 1 D  ; FOR HL7 SEGMENT TYPE
    7685 . S OI="" ; INDEX INTO FIELDS IN SEG
     
    8392 . . . S OV=$P(OV,"^",OI2) ; PULL OUT SUB-VALUE
    8493 . . S OVARA(OVAR)=OV ; PASS BACK VARIABLE AND VALUE
    85  . . I OV'="" W OI_": "_$P(@OTAB@(OI),"^",3),": ",OVAR,": ",OV,!
     94 . . I 'C0CSILENT D  ; PRINT OUTPUT IF C0CSILENT IS FALSE
     95 . . . I OV'="" W OI_": "_$P(@OTAB@(OI),"^",3),": ",OVAR,": ",OV,!
    8696 Q
    8797LOBX ;
     
    212222 S X("OBX","OBX17")="17^00936^Observation Method"
    213223 M ^KBAI=X ; SET VALUES IN ^KBAI
    214  Q
    215  ;
     224 S ^KBAI(0)="V1"
     225 Q
     226 ;
Note: See TracChangeset for help on using the changeset viewer.