- 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 Jan 18, 2025@03:41:25 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