XPARDDAC ;SLC/KCM - AC xref for Parameters (8989.5) ;5/19/95 8:36
;;7.3;TOOLKIT;**26**;Apr 25, 1995
;
; The AC cross-reference has the following format:
;
; ^XTV(8989.5,"AC",PARAMETER,ENTITY,INSTANCE)=VALUE
;
; PARAMETER is a pointer to PARAMETER DEFINITION file
; ENTITY is in variable pointer format
; INSTANCE is in the internal format defined for the specific parameter
; VALUE is in the internal format defined for the specific parameter
;
S01 ; set the AC cross-reference for field .01 (ENTITY)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",2)),$L($P(X0,"^",3)) D
. S ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3))=$G(^XTV(8989.5,DA,1))
. S ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3),DA)=""
Q
K01 ; kill the AC cross-reference for field .01 (ENTITY)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",2)),$L($P(X0,"^",3)) D
. K ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3))
. K ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3),DA)
Q
S02 ; set the AC cross-reference for field .02 (PARAMETER)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",1)),$L($P(X0,"^",3)) D
. S ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3))=$G(^XTV(8989.5,DA,1))
. S ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3),DA)=""
Q
K02 ; kill the AC cross-reference for field .02 (PARAMETER)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",1)),$L($P(X0,"^",3)) D
. K ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3))
. K ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3),DA)
Q
S03 ; set the AC cross-reference for field .03 (INSTANCE)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",1)),$L($P(X0,"^",2)) D
. S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X)=$G(^XTV(8989.5,DA,1))
. S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X,DA)=""
Q
K03 ; kill the AC cross-reference for field .03 (INSTANCE)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",1)),$L($P(X0,"^",2)) D
. K ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X)
. K ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X,DA)
Q
S1 ; set the AC cross-reference for field 1 (VALUE)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",1)),$L($P(X0,"^",2)),$L($P(X0,"^",3)) D
. S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))=X
. S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3),DA)=""
Q
K1 ; null the AC cross-reference value for field 1 (VALUE)
N X0
S X0=$G(^XTV(8989.5,DA,0))
I $L($P(X0,"^",1)),$L($P(X0,"^",2)),$L($P(X0,"^",3)) D
. I $D(^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))) D
. . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPARDDAC 2599 printed Nov 22, 2024@17:50:13 Page 2
XPARDDAC ;SLC/KCM - AC xref for Parameters (8989.5) ;5/19/95 8:36
+1 ;;7.3;TOOLKIT;**26**;Apr 25, 1995
+2 ;
+3 ; The AC cross-reference has the following format:
+4 ;
+5 ; ^XTV(8989.5,"AC",PARAMETER,ENTITY,INSTANCE)=VALUE
+6 ;
+7 ; PARAMETER is a pointer to PARAMETER DEFINITION file
+8 ; ENTITY is in variable pointer format
+9 ; INSTANCE is in the internal format defined for the specific parameter
+10 ; VALUE is in the internal format defined for the specific parameter
+11 ;
S01 ; set the AC cross-reference for field .01 (ENTITY)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",2))
IF $LENGTH($PIECE(X0,"^",3))
Begin DoDot:1
+4 SET ^XTV(8989.5,"AC",$PIECE(X0,"^",2),X,$PIECE(X0,"^",3))=$GET(^XTV(8989.5,DA,1))
+5 SET ^XTV(8989.5,"AC",$PIECE(X0,"^",2),X,$PIECE(X0,"^",3),DA)=""
End DoDot:1
+6 QUIT
K01 ; kill the AC cross-reference for field .01 (ENTITY)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",2))
IF $LENGTH($PIECE(X0,"^",3))
Begin DoDot:1
+4 KILL ^XTV(8989.5,"AC",$PIECE(X0,"^",2),X,$PIECE(X0,"^",3))
+5 KILL ^XTV(8989.5,"AC",$PIECE(X0,"^",2),X,$PIECE(X0,"^",3),DA)
End DoDot:1
+6 QUIT
S02 ; set the AC cross-reference for field .02 (PARAMETER)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",1))
IF $LENGTH($PIECE(X0,"^",3))
Begin DoDot:1
+4 SET ^XTV(8989.5,"AC",X,$PIECE(X0,"^",1),$PIECE(X0,"^",3))=$GET(^XTV(8989.5,DA,1))
+5 SET ^XTV(8989.5,"AC",X,$PIECE(X0,"^",1),$PIECE(X0,"^",3),DA)=""
End DoDot:1
+6 QUIT
K02 ; kill the AC cross-reference for field .02 (PARAMETER)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",1))
IF $LENGTH($PIECE(X0,"^",3))
Begin DoDot:1
+4 KILL ^XTV(8989.5,"AC",X,$PIECE(X0,"^",1),$PIECE(X0,"^",3))
+5 KILL ^XTV(8989.5,"AC",X,$PIECE(X0,"^",1),$PIECE(X0,"^",3),DA)
End DoDot:1
+6 QUIT
S03 ; set the AC cross-reference for field .03 (INSTANCE)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",1))
IF $LENGTH($PIECE(X0,"^",2))
Begin DoDot:1
+4 SET ^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),X)=$GET(^XTV(8989.5,DA,1))
+5 SET ^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),X,DA)=""
End DoDot:1
+6 QUIT
K03 ; kill the AC cross-reference for field .03 (INSTANCE)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",1))
IF $LENGTH($PIECE(X0,"^",2))
Begin DoDot:1
+4 KILL ^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),X)
+5 KILL ^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),X,DA)
End DoDot:1
+6 QUIT
S1 ; set the AC cross-reference for field 1 (VALUE)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",1))
IF $LENGTH($PIECE(X0,"^",2))
IF $LENGTH($PIECE(X0,"^",3))
Begin DoDot:1
+4 SET ^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),$PIECE(X0,"^",3))=X
+5 SET ^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),$PIECE(X0,"^",3),DA)=""
End DoDot:1
+6 QUIT
K1 ; null the AC cross-reference value for field 1 (VALUE)
+1 NEW X0
+2 SET X0=$GET(^XTV(8989.5,DA,0))
+3 IF $LENGTH($PIECE(X0,"^",1))
IF $LENGTH($PIECE(X0,"^",2))
IF $LENGTH($PIECE(X0,"^",3))
Begin DoDot:1
+4 IF $DATA(^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),$PIECE(X0,"^",3)))
Begin DoDot:2
+5 SET ^XTV(8989.5,"AC",$PIECE(X0,"^",2),$PIECE(X0,"^",1),$PIECE(X0,"^",3))=""
End DoDot:2
End DoDot:1
+6 QUIT
