| [623] | 1 | TIUXRC2 ; COMPILED XREF FOR FILE #8925 ; 12/25/06
|
|---|
| [613] | 2 | ;
|
|---|
| [623] | 3 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 4 | S X=$P(DIKZ(13),U,1)
|
|---|
| 5 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASUP",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 6 | S X=$P(DIKZ(13),U,1)
|
|---|
| 7 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 8 | S X=$P(DIKZ(13),U,1)
|
|---|
| 9 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATS",+$P(^TIU(8925,+DA,14),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 10 | S X=$P(DIKZ(13),U,1)
|
|---|
| 11 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATC",+$P(^TIU(8925,+DA,13),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 12 | S X=$P(DIKZ(13),U,1)
|
|---|
| 13 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALL","ANY",+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 14 | S X=$P(DIKZ(13),U,1)
|
|---|
| 15 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),$L($P($G(^TIU(8925,+DA,17)),U)) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
|
|---|
| 16 | S X=$P(DIKZ(13),U,1)
|
|---|
| 17 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+$P(^TIU(8925,+DA,14),U,4),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 18 | S X=$P(DIKZ(13),U,1)
|
|---|
| 19 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,"B",+DA,0)) D APRBK^TIUDD(+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)
|
|---|
| 20 | S X=$P(DIKZ(13),U,1)
|
|---|
| [613] | 21 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AVSIT",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)
|
|---|
| 22 | S X=$P(DIKZ(13),U,1)
|
|---|
| 23 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ADCPT",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)
|
|---|
| 24 | S X=$P(DIKZ(13),U,1)
|
|---|
| 25 | I X'="" K ^TIU(8925,"D",$E(X,1,30),DA)
|
|---|
| 26 | S X=$P(DIKZ(13),U,1)
|
|---|
| 27 | I X'="" I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-X),DA)
|
|---|
| 28 | S X=$P(DIKZ(13),U,1)
|
|---|
| 29 | I X'="" I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTCL",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-X),DA)
|
|---|
| 30 | S X=$P(DIKZ(13),U,1)
|
|---|
| 31 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
|
|---|
| 32 | S X=$P(DIKZ(13),U,1)
|
|---|
| 33 | I X'="" D KACLPT^TIUDD01(1301,X)
|
|---|
| 34 | S X=$P(DIKZ(13),U,1)
|
|---|
| 35 | I X'="" D KACLAU^TIUDD01(1301,X),KACLAU1^TIUDD01(1301,X)
|
|---|
| 36 | S X=$P(DIKZ(13),U,1)
|
|---|
| 37 | I X'="" D KACLEC^TIUDD01(1301,X)
|
|---|
| 38 | S X=$P(DIKZ(13),U,1)
|
|---|
| 39 | I X'="" D KACLSB^TIUDD01(1301,X)
|
|---|
| 40 | S X=$P(DIKZ(13),U,2)
|
|---|
| 41 | I X'="" K ^TIU(8925,"TC",$E(X,1,30),DA)
|
|---|
| 42 | S X=$P(DIKZ(13),U,2)
|
|---|
| 43 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 44 | S X=$P(DIKZ(13),U,2)
|
|---|
| 45 | I X'="" D KACLAU1^TIUDD01(1302,X)
|
|---|
| 46 | S X=$P(DIKZ(13),U,4)
|
|---|
| 47 | I X'="" K ^TIU(8925,"E",$E(X,1,30),DA)
|
|---|
| 48 | S DIKZ(14)=$G(^TIU(8925,DA,14))
|
|---|
| 49 | S X=$P(DIKZ(14),U,2)
|
|---|
| 50 | I X'="" K ^TIU(8925,"TS",$E(X,1,30),DA)
|
|---|
| 51 | S X=$P(DIKZ(14),U,2)
|
|---|
| 52 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATS",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 53 | S X=$P(DIKZ(14),U,4)
|
|---|
| 54 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 55 | S X=$P(DIKZ(14),U,4)
|
|---|
| 56 | I X'="" K ^TIU(8925,"SVC",$E(X,1,30),DA)
|
|---|
| 57 | S X=$P(DIKZ(14),U,5)
|
|---|
| 58 | I X'="" K ^TIU(8925,"G",$E(X,1,30),DA)
|
|---|
| 59 | S DIKZ(15)=$G(^TIU(8925,DA,15))
|
|---|
| 60 | S X=$P(DIKZ(15),U,1)
|
|---|
| 61 | I X'="" I +$P($G(^TIU(8925,+DA,12)),U,5) K ^TIU(8925,"ALOCP",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+DA)
|
|---|
| 62 | S X=$P(DIKZ(15),U,1)
|
|---|
| 63 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,"APTP",+$P($G(^TIU(8925,+DA,0)),U,2),+X,+DA)
|
|---|
| 64 | S X=$P(DIKZ(15),U,1)
|
|---|
| 65 | I X'="" I +$P($G(^TIU(8925,+DA,12)),U,2) K ^TIU(8925,"AAUP",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+DA)
|
|---|
| 66 | S X=$P(DIKZ(15),U,1)
|
|---|
| 67 | I X'="" D KACLPT^TIUDD01(1501,X)
|
|---|
| 68 | S X=$P(DIKZ(15),U,1)
|
|---|
| 69 | I X'="" D KACLEC^TIUDD01(1501,X)
|
|---|
| 70 | S X=$P(DIKZ(15),U,1)
|
|---|
| 71 | I X'="" D SACLAU^TIUDD0(1501,X),SACLAU1^TIUDD0(1501,X)
|
|---|
| 72 | S X=$P(DIKZ(15),U,2)
|
|---|
| 73 | I X'="" D KACLSB^TIUDD01(1502,X)
|
|---|
| 74 | S X=$P(DIKZ(15),U,7)
|
|---|
| 75 | I X'="" D SACLEC^TIUDD0(1507,X)
|
|---|
| 76 | S X=$P(DIKZ(15),U,7)
|
|---|
| 77 | I X'="" D KACLPT^TIUDD01(1507,X)
|
|---|
| 78 | S DIKZ(17)=$G(^TIU(8925,DA,17))
|
|---|
| 79 | S X=$P(DIKZ(17),U,1)
|
|---|
| 80 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUBK^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
|
|---|
| 81 | S DIKZ(21)=$G(^TIU(8925,DA,21))
|
|---|
| 82 | S X=$P(DIKZ(21),U,1)
|
|---|
| 83 | I X'="" K ^TIU(8925,"GDAD",$E(X,1,30),DA)
|
|---|
| 84 | S DIKZ(150)=$G(^TIU(8925,DA,150))
|
|---|
| 85 | S X=$P(DIKZ(150),U,1)
|
|---|
| 86 | I X'="" K ^TIU(8925,"VID",$E(X,1,30),DA)
|
|---|
| 87 | S X=$P(DIKZ(0),U,1)
|
|---|
| 88 | I X'="" K ^TIU(8925,"B",$E(X,1,30),DA)
|
|---|
| 89 | S X=$P(DIKZ(0),U,1)
|
|---|
| 90 | I X'="" I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"APT",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)
|
|---|
| 91 | S X=$P(DIKZ(0),U,1)
|
|---|
| 92 | I X'="" I +$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 93 | S X=$P(DIKZ(0),U,1)
|
|---|
| 94 | I X'="" I +$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASUP",+$P($G(^TIU(8925,+DA,12)),U,8),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 95 | S X=$P(DIKZ(0),U,1)
|
|---|
| 96 | I X'="" I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^(0)),U,3) K ^TIU(8925,"AV",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,3),+DA)
|
|---|
| 97 | S X=$P(DIKZ(0),U,1)
|
|---|
| 98 | I X'="" I +$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATS",+$P($G(^TIU(8925,+DA,14)),U,2),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 99 | S X=$P(DIKZ(0),U,1)
|
|---|
| 100 | I X'="" I +$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ATC",+$P($G(^TIU(8925,+DA,13)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 101 | S X=$P(DIKZ(0),U,1)
|
|---|
| 102 | I X'="" I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALL","ANY",+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
|
|---|
| 103 | S X=$P(DIKZ(0),U,1)
|
|---|
| 104 | I X'="" I $L($P(^TIU(8925,+DA,0),U,2)),(+$P(^(0),U,3)>0) K ^TIU(8925,"AA",+$P(^(0),U,2),+X,(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),".")),DA)
|
|---|
| 105 | S X=$P(DIKZ(0),U,1)
|
|---|
| 106 | I X'="" I $L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
|
|---|
| 107 | S X=$P(DIKZ(0),U,1)
|
|---|
| [623] | 108 | END G ^TIUXRC3
|
|---|
