Changeset 681


Ignore:
Timestamp:
Jan 25, 2010, 5:20:52 PM (15 years ago)
Author:
George Lilly
Message:

update to Procedure extract to avoid ICOM problem

File:
1 edited

Legend:

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

    r677 r681  
    6060        .. S LST(ILST)="POV"_U_CODE_U_CAT_U_NARR_U_PRIM_U_PRV
    6161        .. S VISIT(IEN,"POV",ILST)=CODE_U_CAT_U_NARR_U_PRIM_U_PRV
    62         .. I X811]"" D
    63         ... S ICOM=ICOM+1
    64         ... S $P(LST(ILST),U,10)=ICOM
    65         ... S ILST=ILST+1
    66         ... S LST(ILST)="COM"_U_ICOM_U_X811
    6762        . S ICPT=0 F  S ICPT=$O(^TMP("PXKENC",$J,VISIT,"CPT",ICPT)) Q:'ICPT  D
    6863        .. S X0=^TMP("PXKENC",$J,VISIT,"CPT",ICPT,0),X802=$G(^(802)),X12=$G(^(12)),X811=$G(^(811))
     
    8984GETNOTE(IEN)    ;GET THE TEXT THAT GOES WITH VISIT
    9085        ;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT"
    91         ;Q:'$D(VISIT(IEN,"CPT"))
     86        Q:'$D(VISIT(IEN,"CPT"))
    9287        S TXTCNT=0
    9388        F  S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0))  D
    9489        . S VISIT(IEN,"TEXT",TXTCNT)=^TIU(8925,IEN,"TEXT",TXTCNT,0)
    9590        Q
    96 
Note: See TracChangeset for help on using the changeset viewer.