| 1 | XQORDD1 ; slc/dcm - Calls from OE/RR DD ;9/24/98 16:41
|
|---|
| 2 | ;;8.0;KERNEL;**98**;Sept 24, 1998
|
|---|
| 3 | K11 ;;Set logic from field 1 file 101
|
|---|
| 4 | S I=0,ORKX=X D UP F J=0:0 S I=$O(^ORD(101,DA,3,I)) Q:I<1 S ORKEY=$S($D(^DIC(19.1,+^(I,0),0)):$P(^(0),"^"),1:"") I $L(ORKEY),ORKEY="ORWARD" S ^ORD(101,"K."_ORKEY,X,DA)=""
|
|---|
| 5 | S X=ORKX K ORKEY,ORKX
|
|---|
| 6 | Q
|
|---|
| 7 | K12 ;;Kill logic from field 1 file 101
|
|---|
| 8 | S I=0,ORKX=X D UP F J=0:0 S I=$O(^ORD(101,DA,3,I)) Q:I<1 S ORKEY=$S($D(^DIC(19.1,+^(I,0),0)):$P(^(0),"^"),1:"") I $L(ORKEY),ORKEY="ORWARD" K ^ORD(101,"K."_ORKEY,X,DA)
|
|---|
| 9 | S X=ORKX K ORKEY,ORKX
|
|---|
| 10 | Q
|
|---|
| 11 | K21 ;;Set logic from field 2 file 101
|
|---|
| 12 | S I=0,ORKX=X D UP F J=0:0 S I=$O(^ORD(101,DA(1),3,I)) Q:I<1 S ORKEY=$S($D(^DIC(19.1,+^(I,0),0)):$P(^(0),"^"),1:"") I $L(ORKEY),ORKEY="ORWARD" S ^ORD(101,"K."_ORKEY,X,DA(1))=""
|
|---|
| 13 | S X=ORKX K ORKEY,ORITN
|
|---|
| 14 | Q
|
|---|
| 15 | K22 ;;Kill logic from field 2 file 101
|
|---|
| 16 | S I=0,ORKX=X D UP F J=0:0 S I=$O(^ORD(101,DA(1),3,I)) Q:I<1 S ORKEY=$S($D(^DIC(19.1,+^(I,0),0)):$P(^(0),"^"),1:"") I $L(ORKEY),ORKEY="ORWARD" K ^ORD(101,"K."_ORKEY,X,DA(1))
|
|---|
| 17 | S X=ORKX K ORKEY,ORKX
|
|---|
| 18 | Q
|
|---|
| 19 | K31 ;;Set logic from field 3 file 101
|
|---|
| 20 | S ORKEY=$S($D(^DIC(19.1,X,0)):^(0),1:"") I ORKEY="" K ORKEY Q
|
|---|
| 21 | I ORKEY'="ORWARD" K ORKEY Q
|
|---|
| 22 | S ORKX=X,X=$P(^ORD(101,DA(1),0),"^",2) I $L(X) D UP S ^ORD(101,"K."_ORKEY,X,DA(1))=""
|
|---|
| 23 | S I=0 F J=0:0 S I=$O(^ORD(101,DA(1),2,I)) Q:I<1 S X=$P(^(I,0),"^") I $L(X) D UP S ^ORD(101,"K."_ORKEY,X,DA(1))=""
|
|---|
| 24 | S X=ORKX K ORKEY,ORKX
|
|---|
| 25 | Q
|
|---|
| 26 | K32 ;;Kill logic from field 3 file 101
|
|---|
| 27 | S ORKEY=$S($D(^DIC(19.1,X,0)):^(0),1:"") I ORKEY="" K ORKEY Q
|
|---|
| 28 | I ORKEY'="ORWARD" K ORKEY Q
|
|---|
| 29 | S ORKX=X,X=$P(^ORD(101,DA(1),0),"^",2) I $L(X) D UP K ^ORD(101,"K."_ORKEY,X,DA(1))
|
|---|
| 30 | S I=0 F J=0:0 S I=$O(^ORD(101,DA(1),2,I)) Q:I<1 S X=$P(^(I,0),"^") I $L(X) D UP K ^ORD(101,"K."_ORKEY,X,DA(1))
|
|---|
| 31 | S X=ORKX K ORKEY,ORKX
|
|---|
| 32 | Q
|
|---|
| 33 | UP S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|---|
| 34 | Q
|
|---|
| 35 | F1 ;Set logic (NOT CURRENTLY IN USE)
|
|---|
| 36 | I $D(@("^"_$P(X,";",2)_"0)")) S ORF="F."_+$P(^(0),"^",2),T=$P(^ORD(101,DA,0),"^",2) I $L(T) S ^ORD(101,ORF,T,DA)=""
|
|---|
| 37 | K T Q
|
|---|
| 38 | F2 ;Kill logic
|
|---|
| 39 | I $D(@("^"_$P(X,";",2)_"0)")) S ORF="F."_+$P(^(0),"^",2),T=$P(^ORD(101,DA,0),"^",2) I $L(T) K ^ORD(101,ORF,T,DA)
|
|---|
| 40 | K T Q
|
|---|
