Changeset 262
- Timestamp:
- Nov 8, 2008, 1:34:13 PM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCR.m
r256 r262 39 39 S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1)) 40 40 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" 42 42 S ODIRGLB=$NA(^TMP("GPLCCR","ODIR")) 43 43 I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET -
ccr/trunk/p/GPLLABS.m
r260 r262 40 40 ; N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR 41 41 ; 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 42 47 S C0CTAB=$NA(^KBAI) ; BASE OF OBX TABLE 43 48 S C0CHB=$NA(^TMP("HLS",$J)) … … 46 51 . K C0CVAR,XV ; CLEAR OUT VARIABLE VALUES 47 52 . S C0CTYP=$P(@C0CHB@(C0CI),"|",1) 48 . D LTYP(@C0CHB@(C0CI),C0CTYP,.C0CVAR )53 . D LTYP(@C0CHB@(C0CI),C0CTYP,.C0CVAR,C0CSILENT) 49 54 . M XV=C0CVAR ; 50 55 . I C0CTYP="OBX" D ; SPECIAL CASE FOR OBX3 … … 67 72 . . . S XV("RESULTTESTCODINGSYSTEM")=C0CVAR("C3") ; PRIMARY DISPLAY NAME 68 73 . . . 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,! 71 78 . ; S C0CI=$O(@C0CHB@(C0CI)) 72 79 Q 73 LTYP(OSEG,OTYP,OVARA ) ;80 LTYP(OSEG,OTYP,OVARA,OC0CSILENT) ; 74 81 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 75 84 I 1 D ; FOR HL7 SEGMENT TYPE 76 85 . S OI="" ; INDEX INTO FIELDS IN SEG … … 83 92 . . . S OV=$P(OV,"^",OI2) ; PULL OUT SUB-VALUE 84 93 . . 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,! 86 96 Q 87 97 LOBX ; … … 212 222 S X("OBX","OBX17")="17^00936^Observation Method" 213 223 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.