- Timestamp:
- Aug 19, 2008, 4:54:52 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLMEDS.m
r93 r94 39 39 . S MEDVMAP=$NA(@MEDTVMAP@(J)) 40 40 . K @MEDVMAP 41 . I DEBUG W "VMAP= ", VMAP,!41 . I DEBUG W "VMAP= ",MEDVMAP,! 42 42 . S MEDPTMP=MEDRSLT(J) ; PULL OUT MEDICATION FROM RPC RETURN ARRAY 43 43 . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS
Note:
See TracChangeset
for help on using the changeset viewer.