Changeset 192 for ccr/trunk/p/CCRMEDS1.m

Timestamp:

Oct 7, 2008, 11:48:02 AM (16 years ago)

Author:

George Lilly

Message:

MEDS DEBUGGING

File:

• ccr/trunk/p/CCRMEDS1.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS1.m

@@ -46 +46 @@
  N RXIEN S RXIEN=0
  N MEDCOUNT S MEDCOUNT=0
+ S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP")) ; THIS IS THE VARIABLE MAP
+ S MEDCOUNT=@MEDMAP@(0) ; ACCOUNT FOR MEDS ALREADY IN ARRAY
  F  S RXIEN=$O(MEDS(RXIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
  . S MEDCOUNT=MEDCOUNT+1
  . I DEBUG W "RXIEN IS ",RXIEN,!
  . S MAP=$NA(^TMP("GPLCCR",$J,"MEDMAP",MEDCOUNT))
- . K @MAP
+ . ; K @MAP DO NOT KILL HERE, WAS CLEARED IN CCRMEDS
+ . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY
  . I DEBUG W "MAP= ",MAP,!
  . N MED M MED=MEDS(RXIEN) ; PULL OUT MEDICATION FROM
- . S @MAP@("MEDOBJECTID")="MED"_MED(.01) ;Rx Number
+ . S @MAP@("MEDOBJECTID")="MED"_MEDCOUNT ; MEDCOUNT FOR ID
+ . ; S @MAP@("MEDOBJECTID")="MED"_MED(.01) ;Rx Number
  . S @MAP@("MEDISSUEDATETXT")="Issue Date"
  . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL($P(MED(1),U))