Changeset 424

Timestamp:

Mar 29, 2009, 6:35:15 PM (15 years ago)

Author:

George Lilly

Message:

More changes to C0CMED6

Location:

ccr/trunk/p

Files:

• C0CFM2.m (modified) (1 diff)
• C0CMED6.m (modified) (1 diff)

ccr/trunk/p/C0CFM2.m

@@ -185 +185 @@
  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

ccr/trunk/p/C0CMED6.m

@@ -47 +47 @@
         ; 
         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