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

Brian fixed a bug

This commit is contained in:
george 2010-01-22 13:55:06 +00:00
parent 740660128e
commit 77d7834e79
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/C0CCPT.m
View File

@ -29,7 +29,7 @@ ENTRY(DFN,STDT,ENDDT,TXT) ;BUILD TOTAL ARRAY OF ALL IEN'S FOR TIU NOTES
D VISIT D VISIT
Q Q
VISIT ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT VISIT ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
S ILST=1 S ILST=1,X0="",X12="",VISIT="",LST="",X811=""
S IEN="" F S IEN=$O(NOTE(IEN)) Q:IEN="" D S IEN="" F S IEN=$O(NOTE(IEN)) Q:IEN="" D
. S X0=^TIU(8925,IEN,0),X12=$G(^(12)) . S X0=^TIU(8925,IEN,0),X12=$G(^(12))
. S VISIT=$P(X12,U,7) . S VISIT=$P(X12,U,7)
@ -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)