| 1 | XPARDDAC ;SLC/KCM - AC xref for Parameters (8989.5) ;5/19/95 8:36
|
|---|
| 2 | ;;7.3;TOOLKIT;**26**;Apr 25, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; The AC cross-reference has the following format:
|
|---|
| 5 | ;
|
|---|
| 6 | ; ^XTV(8989.5,"AC",PARAMETER,ENTITY,INSTANCE)=VALUE
|
|---|
| 7 | ;
|
|---|
| 8 | ; PARAMETER is a pointer to PARAMETER DEFINITION file
|
|---|
| 9 | ; ENTITY is in variable pointer format
|
|---|
| 10 | ; INSTANCE is in the internal format defined for the specific parameter
|
|---|
| 11 | ; VALUE is in the internal format defined for the specific parameter
|
|---|
| 12 | ;
|
|---|
| 13 | S01 ; set the AC cross-reference for field .01 (ENTITY)
|
|---|
| 14 | N X0
|
|---|
| 15 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 16 | I $L($P(X0,"^",2)),$L($P(X0,"^",3)) D
|
|---|
| 17 | . S ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3))=$G(^XTV(8989.5,DA,1))
|
|---|
| 18 | . S ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3),DA)=""
|
|---|
| 19 | Q
|
|---|
| 20 | K01 ; kill the AC cross-reference for field .01 (ENTITY)
|
|---|
| 21 | N X0
|
|---|
| 22 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 23 | I $L($P(X0,"^",2)),$L($P(X0,"^",3)) D
|
|---|
| 24 | . K ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3))
|
|---|
| 25 | . K ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3),DA)
|
|---|
| 26 | Q
|
|---|
| 27 | S02 ; set the AC cross-reference for field .02 (PARAMETER)
|
|---|
| 28 | N X0
|
|---|
| 29 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 30 | I $L($P(X0,"^",1)),$L($P(X0,"^",3)) D
|
|---|
| 31 | . S ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3))=$G(^XTV(8989.5,DA,1))
|
|---|
| 32 | . S ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3),DA)=""
|
|---|
| 33 | Q
|
|---|
| 34 | K02 ; kill the AC cross-reference for field .02 (PARAMETER)
|
|---|
| 35 | N X0
|
|---|
| 36 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 37 | I $L($P(X0,"^",1)),$L($P(X0,"^",3)) D
|
|---|
| 38 | . K ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3))
|
|---|
| 39 | . K ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3),DA)
|
|---|
| 40 | Q
|
|---|
| 41 | S03 ; set the AC cross-reference for field .03 (INSTANCE)
|
|---|
| 42 | N X0
|
|---|
| 43 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 44 | I $L($P(X0,"^",1)),$L($P(X0,"^",2)) D
|
|---|
| 45 | . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X)=$G(^XTV(8989.5,DA,1))
|
|---|
| 46 | . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X,DA)=""
|
|---|
| 47 | Q
|
|---|
| 48 | K03 ; kill the AC cross-reference for field .03 (INSTANCE)
|
|---|
| 49 | N X0
|
|---|
| 50 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 51 | I $L($P(X0,"^",1)),$L($P(X0,"^",2)) D
|
|---|
| 52 | . K ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X)
|
|---|
| 53 | . K ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X,DA)
|
|---|
| 54 | Q
|
|---|
| 55 | S1 ; set the AC cross-reference for field 1 (VALUE)
|
|---|
| 56 | N X0
|
|---|
| 57 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 58 | I $L($P(X0,"^",1)),$L($P(X0,"^",2)),$L($P(X0,"^",3)) D
|
|---|
| 59 | . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))=X
|
|---|
| 60 | . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3),DA)=""
|
|---|
| 61 | Q
|
|---|
| 62 | K1 ; null the AC cross-reference value for field 1 (VALUE)
|
|---|
| 63 | N X0
|
|---|
| 64 | S X0=$G(^XTV(8989.5,DA,0))
|
|---|
| 65 | I $L($P(X0,"^",1)),$L($P(X0,"^",2)),$L($P(X0,"^",3)) D
|
|---|
| 66 | . I $D(^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))) D
|
|---|
| 67 | . . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))=""
|
|---|
| 68 | Q
|
|---|
