Changeset 195 for ccr


Ignore:
Timestamp:
Oct 7, 2008, 12:26:38 PM (16 years ago)
Author:
George Lilly
Message:

MEDS DEBUGGING

File:
1 edited

Legend:

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

    r194 r195  
    6565 S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
    6666 S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
    67  I 'HASOP K @MEDTVMAP,@MEDTARYTMP
     67 ; I 'HASOP K @MEDTVMAP,@MEDTARYTMP KILL MOVED TO TOP OF ROUTINE
    6868 ; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
    6969 ; ZA(0) IS TOTAL NUMBER OF MEDS ZA(ZI) IS LINES IN MED ZI
     
    8888 . I $P(MEDPTMP,U,1)?1"~OP" Q  ; SKIP OP ACTIVE AND PENDING
    8989 . S MEDCNT=MEDCNT+1 ; WE ARE GOING TO ADD A MED
    90  . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
     90 . S MEDVMAP=$NA(@MEDTVMAP@(MEDCNT)) ; START PAST OP ACTIVE MEDS
    9191 . S @MEDTVMAP@(0)=@MEDTVMAP@(0)+1 ; ADDING A MED HERE
    92  . S @MEDVMAP@("MEDOBJECTID")="MED"_(ZI+MEDCNT) ; UNIQUE OBJID FOR MEDS
     92 . S @MEDVMAP@("MEDOBJECTID")="MED"_(MEDCNT) ; UNIQUE OBJID FOR MEDS
    9393 . I $P(MEDPTMP,"^",11)="" S @MEDVMAP@("MEDISSUEDATETXT")=""
    9494 . E  S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
Note: See TracChangeset for help on using the changeset viewer.