source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQORC1.m@ 703

Last change on this file since 703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1XQORC1 ; COMPILED XREF FOR FILE #101 ; 01/30/05
2 ;
3 S DIKZK=2
4 S DIKZ(0)=$G(^ORD(101,DA,0))
5 S X=$P(DIKZ(0),U,2)
6 I X'="" S ORKX=X D UP^XQORDD1 K ^ORD(101,"C",$E(X,1,63),DA) S X=ORKX K ORKX
7 S X=$P(DIKZ(0),U,2)
8 I X'="" D REDO^XQORD101
9 S X=$P(DIKZ(0),U,2)
10 I X'="" D K12^XQORDD1
11 S DIKZ(5)=$G(^ORD(101,DA,5))
12 S X=$P(DIKZ(5),U,1)
13 I X'="" K ^ORD(101,"AE",$E(X,1,30),DA)
14 S DIKZ(4)=$G(^ORD(101,DA,4))
15 S X=$P(DIKZ(4),U,1)
16 I X'="" D REDO^XQORD101
17 S DIKZ(99)=$G(^ORD(101,DA,99))
18 S X=$P(DIKZ(99),U,1)
19 I X'="" D KILL^XQORD101
20 S DIKZ(770)=$G(^ORD(101,DA,770))
21 S X=$P(DIKZ(770),U,1)
22 I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,"^",3)&($P(HL770,"^",4))&($P(HL770,"^",10)) ^ORD(101,"AHL1",X,$P(HL770,"^",3),$P(HL770,"^",4),$P(HL770,"^",10),DA)
23 S X=$P(DIKZ(770),U,1)
24 I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,"^",3)&($P(HL770,"^",10)) ^ORD(101,"AHL21",X,$P(HL770,"^",3),$P(HL770,"^",10),DA)
25 S X=$P(DIKZ(770),U,2)
26 I X'="" K ^ORD(101,"AHL2",$E(X,1,30),DA)
27 S X=$P(DIKZ(770),U,3)
28 I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,"^")&($P(HL770,"^",4))&($P(HL770,"^",10)) ^ORD(101,"AHL1",$P(HL770,"^"),X,$P(HL770,"^",4),$P(HL770,"^",10),DA)
29 S X=$P(DIKZ(770),U,3)
30 I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,"^")&($P(HL770,"^",10)) ^ORD(101,"AHL21",$P(HL770,"^"),X,$P(HL770,"^",10),DA)
31 S X=$P(DIKZ(770),U,4)
32 I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,"^")&($P(HL770,"^",3))&($P(HL770,"^",10)) ^ORD(101,"AHL1",$P(HL770,"^"),$P(HL770,"^",3),X,$P(HL770,"^",10),DA)
33 S X=$P(DIKZ(770),U,10)
34 I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,"^")&($P(HL770,"^",3))&($P(HL770,"^",4)) ^ORD(101,"AHL1",$P(HL770,"^"),$P(HL770,"^",3),$P(HL770,"^",4),X,DA)
35 S X=$P(DIKZ(770),U,10)
36 I X'="" N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,"^")&($P(HL770,"^",3)) ^ORD(101,"AHL21",$P(HL770,"^"),$P(HL770,"^",3),X,DA)
37 S X=$P(DIKZ(0),U,1)
38 I X'="" K ^ORD(101,"B",$E(X,1,63),DA)
39END G ^XQORC2
Note: See TracBrowser for help on using the repository browser.