Changeset 675 for ccr


Ignore:
Timestamp:
Jan 22, 2010, 8:55:06 AM (15 years ago)
Author:
George Lilly
Message:

Brian fixed a bug

File:
1 edited

Legend:

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

    r673 r675  
    3030        Q
    3131VISIT   ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
    32         S ILST=1
     32        S ILST=1,X0="",X12="",VISIT="",LST="",X811=""
    3333        S IEN=""  F  S IEN=$O(NOTE(IEN)) Q:IEN=""  D
    3434        . S X0=^TIU(8925,IEN,0),X12=$G(^(12))
     
    8989GETNOTE(IEN)    ;GET THE TEXT THAT GOES WITH VISIT
    9090        ;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT"
    91         ;Q:'$D(VISIT(IEN,"CPT"))
     91        Q:'$D(VISIT(IEN,"CPT"))
    9292        S TXTCNT=0
    9393        F  S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0))  D
Note: See TracChangeset for help on using the changeset viewer.