Changeset 424 for ccr/trunk/p/C0CFM2.m
- Timestamp:
- Mar 29, 2009, 6:35:15 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CFM2.m
r420 r424 185 185 Q 186 186 ; 187 DOIT(DFN) ; EXPERIMENT FOR TIMING CALLS USING mumps -dir DOIT^C0CFM2(DFN) 188 D SETXUP 189 D CHKELS(DFN) 190 Q 191 ; 192 SETXUP ; SET UP ENVIRONMENT 193 S DISYS=19 194 S DT=3090325 195 S DTIME=300 196 S DUZ=1 197 S DUZ(0)="@" 198 S DUZ(1)="" 199 S DUZ(2)=7247 200 S DUZ("AG")="I" 201 S DUZ("BUF")=1 202 S DUZ("LANG")="" 203 S IO="/dev/pts/20" 204 S IO(0)="/dev/pts/20" 205 S IO(1,"/dev/pts/20")="" 206 S IO("ERROR")="" 207 S IO("HOME")="344^/dev/pts/20" 208 S IO("ZIO")="/dev/pts/20" 209 S IOBS="$C(8)" 210 S IOF="#,$C(27,91,50,74,27,91,72)" 211 S IOM=80 212 S ION="TELNET" 213 S IOS=344 214 S IOSL=24 215 S IOST="C-VT100" 216 S IOST(0)=9 217 S IOT="VTRM" 218 S IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)" 219 S U="^" 220 S X="216;DIC(4.2," 221 S XPARSYS="216;DIC(4.2," 222 S XQXFLG="^^XUP" 223 Q 224 ; 187 225 PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE 188 226 ; 171.101, ^C0CE DFN IS THE PATIENT IEN PASSED BY VALUE
Note:
See TracChangeset
for help on using the changeset viewer.