Changeset 416 for ccr/trunk/p/C0CMED2.m
- Timestamp:
- Mar 22, 2009, 3:26:00 PM (15 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CMED2.m
r414 r416 1 C CRMEDS2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista1 C0CMED2 ; WV/CCDCCR/SMH - CCR/CCD Meds - Pending for Vista 2 2 ;;0.1;CCDCCR;;JUL 16,2008; 3 3 ;;Last Modified Sat Jan 10 21:41:14 PST 2009 … … 58 58 . I DEBUG W "RXIEN IS ",RXIEN,! 59 59 . S MAP=$NA(^TMP("C0CCCR",$J,"MEDMAP",MEDCOUNT)) 60 . ; K @MAP DON'T KILL MAP HERE, IT IS DONE IN C CRMEDS60 . ; K @MAP DON'T KILL MAP HERE, IT IS DONE IN C0CMED 61 61 . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY 62 62 . I DEBUG W "MAP= ",MAP,!
Note:
See TracChangeset
for help on using the changeset viewer.