Changeset 93 for ccr/trunk/p/GPLPROBS.m


Ignore:
Timestamp:
Aug 19, 2008, 4:50:47 PM (16 years ago)
Author:
George Lilly
Message:

fixed Meds processing - patched up until new APIs are in place

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLPROBS.m

    r89 r93  
    3535          . S @OUTXML@(0)=0
    3636          . ; Q
    37           ZWR RPCRSLT
     37          I DEBUG ZWR RPCRSLT
    3838          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
    3939          S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
    … …  
    9898          . . . D CP^GPLXPATH("HTMLTMP","HTMLO")
    9999          . . . ; D INSINNER^GPLXPATH("HOUT","HTMLO","//")
    100           . D PARY^GPLXPATH("HTMLO")
     100          . I DEBUG D PARY^GPLXPATH("HTMLO")
    101101          . D INSB4^GPLXPATH(OUTXML,"HTMLO") ; INSERT AT TOP OF SECTION
    102102          N PROBSTMP,I
Note: See TracChangeset for help on using the changeset viewer.