More changes to C0CMED6

p/C0CFM2.m

@@ -184,6 +184,44 @@ CHKELS(DFN) ; CHECKSUM ALL ELEMENTS FOR  A PATIENT
  ZWR ^TMP("C0CCHK",ZPAT,*)
  Q
  ;
+DOIT(DFN) ; EXPERIMENT FOR TIMING CALLS USING mumps -dir DOIT^C0CFM2(DFN)
+ D SETXUP
+ D CHKELS(DFN)
+ Q
+ ;
+SETXUP ; SET UP ENVIRONMENT
+ S DISYS=19
+ S DT=3090325
+ S DTIME=300
+ S DUZ=1
+ S DUZ(0)="@"
+ S DUZ(1)=""
+ S DUZ(2)=7247
+ S DUZ("AG")="I"
+ S DUZ("BUF")=1
+ S DUZ("LANG")=""
+ S IO="/dev/pts/20"
+ S IO(0)="/dev/pts/20"
+ S IO(1,"/dev/pts/20")=""
+ S IO("ERROR")=""
+ S IO("HOME")="344^/dev/pts/20"
+ S IO("ZIO")="/dev/pts/20"
+ S IOBS="$C(8)"
+ S IOF="#,$C(27,91,50,74,27,91,72)"
+ S IOM=80
+ S ION="TELNET"
+ S IOS=344
+ S IOSL=24
+ S IOST="C-VT100"
+ S IOST(0)=9
+ S IOT="VTRM"
+ S IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)"
+ S U="^"
+ S X="216;DIC(4.2,"
+ S XPARSYS="216;DIC(4.2,"
+ S XQXFLG="^^XUP"
+ Q
+ ; 
 PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
  ; 171.101, ^C0CE  DFN IS THE PATIENT IEN PASSED BY VALUE
  ; ZTYPE IS THE NODE TYPE IE RESULTS,PROBLEMS PASSED BY VALUE

p/C0CMED6.m

@@ -46,12 +46,13 @@ EXTRACT(MINXML,DFN,OUTXML,FLAGS)	 ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLA
 	; Status Reason^DEA Handling
 	; 
 	N MEDS,MEDS1,MAP
-	D GETRXS^BEHORXFN("MEDS1",DFN,$P(FLAGS,U,2)) ; 2nd piece of FLAGS is # of days to retrieve
+	D GETRXS^BEHORXFN("MEDS1",DFN,$P($P(FLAGS,U,2),"-",2)) ; 2nd piece of FLAGS is # of days to retrieve, which comes in the form "T-360"
 	N ALL S ALL=+FLAGS
 	N ACTIVE S ACTIVE=$P(FLAGS,U,3)
 	N PENDING S PENDING=$P(FLAGS,U,4)
+	S @OUTXML@(0)=0  ;By default, no meds
 	; If MEDS1 is not defined, then no meds
-	I '$D(MEDS1) S @OUTXML@(0)=0 QUIT
+	I '$D(MEDS1) QUIT
 	I DEBUG ZWR MEDS1,MINXML
 	N MEDCNT S MEDCNT=0 ; Med Count
 	; The next line is a super line. It goes through the array return