Last change
on this file since 975 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
596 bytes
|
Line | |
---|
1 | XPDIN00F ; ; 03-JUL-1995
|
---|
2 | ;;8.0;KERNEL;;JUL 10, 1995
|
---|
3 | I DSEC F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
---|
4 | Q Q
|
---|
5 | ;;^DIC(9.6,0,"AUDIT")
|
---|
6 | ;;=#
|
---|
7 | ;;^DIC(9.6,0,"DD")
|
---|
8 | ;;=@
|
---|
9 | ;;^DIC(9.6,0,"DEL")
|
---|
10 | ;;=#
|
---|
11 | ;;^DIC(9.6,0,"LAYGO")
|
---|
12 | ;;=#
|
---|
13 | ;;^DIC(9.6,0,"RD")
|
---|
14 | ;;=#
|
---|
15 | ;;^DIC(9.6,0,"WR")
|
---|
16 | ;;=#
|
---|
17 | ;;^DIC(9.7,0,"AUDIT")
|
---|
18 | ;;=#
|
---|
19 | ;;^DIC(9.7,0,"DD")
|
---|
20 | ;;=@
|
---|
21 | ;;^DIC(9.7,0,"DEL")
|
---|
22 | ;;=#
|
---|
23 | ;;^DIC(9.7,0,"LAYGO")
|
---|
24 | ;;=@
|
---|
25 | ;;^DIC(9.7,0,"RD")
|
---|
26 | ;;=#
|
---|
27 | ;;^DIC(9.7,0,"WR")
|
---|
28 | ;;=@
|
---|
29 | ;;^DD(9.713,2,9)
|
---|
30 | ;;=@
|
---|
31 | ;;^DD(9.716,2,9)
|
---|
32 | ;;=@
|
---|
Note:
See
TracBrowser
for help on using the repository browser.