| [613] | 1 | XQORC8 ; COMPILED XREF FOR FILE #101 ; 01/30/05
|
|---|
| 2 | ;
|
|---|
| 3 | S DIKZK=1
|
|---|
| 4 | S DIKZ(0)=$G(^ORD(101,DA,0))
|
|---|
| 5 | S X=$P(DIKZ(0),U,1)
|
|---|
| 6 | I X'="" S ^ORD(101,"B",$E(X,1,63),DA)=""
|
|---|
| 7 | S X=$P(DIKZ(0),U,1)
|
|---|
| 8 | I X'="" D
|
|---|
| 9 | .N DIK,DIV,DIU,DIN
|
|---|
| 10 | .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ORD(101,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(101,.01,1,2,1.4)
|
|---|
| 11 | S DIKZ(0)=$G(^ORD(101,DA,0))
|
|---|
| 12 | S X=$P(DIKZ(0),U,2)
|
|---|
| 13 | I X'="" S ORKX=X D UP^XQORDD1 S ^ORD(101,"C",$E(X,1,63),DA)="",X=ORKX K ORKX
|
|---|
| 14 | S X=$P(DIKZ(0),U,2)
|
|---|
| 15 | I X'="" D REDO^XQORD101
|
|---|
| 16 | S X=$P(DIKZ(0),U,2)
|
|---|
| 17 | I X'="" D K11^XQORDD1
|
|---|
| 18 | S DIKZ(5)=$G(^ORD(101,DA,5))
|
|---|
| 19 | S X=$P(DIKZ(5),U,1)
|
|---|
| 20 | I X'="" S ^ORD(101,"AE",$E(X,1,30),DA)=""
|
|---|
| 21 | S DIKZ(4)=$G(^ORD(101,DA,4))
|
|---|
| 22 | S X=$P(DIKZ(4),U,1)
|
|---|
| 23 | I X'="" D REDO^XQORD101
|
|---|
| 24 | S DIKZ(99)=$G(^ORD(101,DA,99))
|
|---|
| 25 | S X=$P(DIKZ(99),U,1)
|
|---|
| 26 | I X'="" D SET^XQORD101
|
|---|
| 27 | S DIKZ(770)=$G(^ORD(101,DA,770))
|
|---|
| 28 | S X=$P(DIKZ(770),U,1)
|
|---|
| 29 | I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,"^",3)&($P(HL770,"^",4))&($P(HL770,"^",10)) ^ORD(101,"AHL1",X,$P(HL770,"^",3),$P(HL770,"^",4),$P(HL770,"^",10),DA)=""
|
|---|
| 30 | S X=$P(DIKZ(770),U,1)
|
|---|
| 31 | I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,"^",3)&($P(HL770,"^",10)) ^ORD(101,"AHL21",X,$P(HL770,"^",3),$P(HL770,"^",10),DA)=""
|
|---|
| 32 | S X=$P(DIKZ(770),U,2)
|
|---|
| 33 | I X'="" S ^ORD(101,"AHL2",$E(X,1,30),DA)=""
|
|---|
| 34 | S X=$P(DIKZ(770),U,3)
|
|---|
| 35 | I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,"^")&($P(HL770,"^",4))&($P(HL770,"^",10)) ^ORD(101,"AHL1",$P(HL770,"^"),X,$P(HL770,"^",4),$P(HL770,"^",10),DA)=""
|
|---|
| 36 | S X=$P(DIKZ(770),U,3)
|
|---|
| 37 | I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,"^")&($P(HL770,"^",10)) ^ORD(101,"AHL21",$P(HL770,"^"),X,$P(HL770,"^",10),DA)=""
|
|---|
| 38 | S X=$P(DIKZ(770),U,4)
|
|---|
| 39 | I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,"^")&($P(HL770,"^",3))&($P(HL770,"^",10)) ^ORD(101,"AHL1",$P(HL770,"^"),$P(HL770,"^",3),X,$P(HL770,"^",10),DA)=""
|
|---|
| 40 | S X=$P(DIKZ(770),U,10)
|
|---|
| 41 | I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,"^")&($P(HL770,"^",3))&($P(HL770,"^",4)) ^ORD(101,"AHL1",$P(HL770,"^"),$P(HL770,"^",3),$P(HL770,"^",4),X,DA)=""
|
|---|
| 42 | S X=$P(DIKZ(770),U,10)
|
|---|
| 43 | I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,"^")&($P(HL770,"^",3)) ^ORD(101,"AHL21",$P(HL770,"^"),$P(HL770,"^",3),X,DA)=""
|
|---|
| 44 | END G ^XQORC9
|
|---|
