Changeset 191 for ccr


Ignore:
Timestamp:
Oct 7, 2008, 11:05:30 AM (16 years ago)
Author:
George Lilly
Message:

MEDS DEBUGGING

File:
1 edited

Legend:

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

    r190 r191  
    3333 ; INPATIENT MEDS IN EXTRACT^CCRMEDS4
    3434 ; ALL OTHERS HERE
     35 S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
     36 S @MEDTVMAP@(0)=0 ; INITIALIZE NUMBER OF MEDS PROCESSED
     37 S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
    3538 D EXTRACT^CCRMEDS1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
    3639 I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
    3740 . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
    38  . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     41 . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
    3942 . W MEDCNT,!
    4043 . W "HAS ACTIVE OP MEDS",!
     
    4750 . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD PENDING TO ACTIVE
    4851 . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
    49  . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     52 . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
    5053 . W MEDCNT,!
    5154 . W "HAS OP PENDING MEDS",!
Note: See TracChangeset for help on using the changeset viewer.