Changeset 94


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

fixed debugging call

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLMEDS.m

    r93 r94  
    3939   . S MEDVMAP=$NA(@MEDTVMAP@(J))
    4040   . K @MEDVMAP
    41    . I DEBUG W "VMAP= ",VMAP,!
     41   . I DEBUG W "VMAP= ",MEDVMAP,!
    4242   . S MEDPTMP=MEDRSLT(J) ; PULL OUT MEDICATION FROM RPC RETURN ARRAY
    4343   . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS
Note: See TracChangeset for help on using the changeset viewer.