iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

accomodate system that have CPT codes only in text field

This commit is contained in:
george 2010-01-22 21:39:27 +00:00
parent 7f9a8124c5
commit 45b1bb815c
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CCPT.m
View File

@ -88,7 +88,7 @@ VISIT ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
Q Q
GETNOTE(IEN) ;GET THE TEXT THAT GOES WITH VISIT GETNOTE(IEN) ;GET THE TEXT THAT GOES WITH VISIT
;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT" ;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT"
Q:'$D(VISIT(IEN,"CPT")) ;Q:'$D(VISIT(IEN,"CPT"))
S TXTCNT=0 S TXTCNT=0
F S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0)) D F S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0)) D
. S VISIT(IEN,"TEXT",TXTCNT)=^TIU(8925,IEN,"TEXT",TXTCNT,0) . S VISIT(IEN,"TEXT",TXTCNT)=^TIU(8925,IEN,"TEXT",TXTCNT,0)

7
p/C0CPROC.m
View File

@ -94,8 +94,11 @@ DATE(ISTR) ; EXTRINSIC TO RETURN THE DATE IN CCR FORMAT
CPT(ISTR) ; EXTRINSIC THAT SEARCHES FOR CPT CODES AND RETURNS CPT(ISTR) ; EXTRINSIC THAT SEARCHES FOR CPT CODES AND RETURNS
; CPT^CATEGORY^TEXT ; CPT^CATEGORY^TEXT
N Z1,Z2,Z3,ZRTN N Z1,Z2,Z3,ZRTN
I $P(ISTR,U,1)'="" D ; IF THERE IS A CPT CODE IN THERE S Z1=$P(ISTR,U,1)
. S Z1=$P(ISTR,U,1) I Z1="" D ;
. I ISTR["(CPT-4 " S Z1=$P($P(ISTR,"(CPT-4 ",2),")",1)
I Z1'="" D ; IF THERE IS A CPT CODE IN THERE
. ;S Z1=$P(ISTR,U,1)
. S Z2=$P(ISTR,U,2) . S Z2=$P(ISTR,U,2)
. S Z3=$P(ISTR,U,3) . S Z3=$P(ISTR,U,3)
. S ZRTN=Z1_U_Z2_U_Z3 . S ZRTN=Z1_U_Z2_U_Z3