Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XPARDDAC

XPARDDAC.m

Go to the documentation of this file.
  1. XPARDDAC ;SLC/KCM - AC xref for Parameters (8989.5) ;5/19/95 8:36
  1. ;;7.3;TOOLKIT;**26**;Apr 25, 1995
  1. ;
  1. ; The AC cross-reference has the following format:
  1. ;
  1. ; ^XTV(8989.5,"AC",PARAMETER,ENTITY,INSTANCE)=VALUE
  1. ;
  1. ; PARAMETER is a pointer to PARAMETER DEFINITION file
  1. ; ENTITY is in variable pointer format
  1. ; INSTANCE is in the internal format defined for the specific parameter
  1. ; VALUE is in the internal format defined for the specific parameter
  1. ;
  1. S01 ; set the AC cross-reference for field .01 (ENTITY)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",2)),$L($P(X0,"^",3)) D
  1. . S ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3))=$G(^XTV(8989.5,DA,1))
  1. . S ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3),DA)=""
  1. Q
  1. K01 ; kill the AC cross-reference for field .01 (ENTITY)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",2)),$L($P(X0,"^",3)) D
  1. . K ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3))
  1. . K ^XTV(8989.5,"AC",$P(X0,"^",2),X,$P(X0,"^",3),DA)
  1. Q
  1. S02 ; set the AC cross-reference for field .02 (PARAMETER)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",1)),$L($P(X0,"^",3)) D
  1. . S ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3))=$G(^XTV(8989.5,DA,1))
  1. . S ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3),DA)=""
  1. Q
  1. K02 ; kill the AC cross-reference for field .02 (PARAMETER)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",1)),$L($P(X0,"^",3)) D
  1. . K ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3))
  1. . K ^XTV(8989.5,"AC",X,$P(X0,"^",1),$P(X0,"^",3),DA)
  1. Q
  1. S03 ; set the AC cross-reference for field .03 (INSTANCE)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",1)),$L($P(X0,"^",2)) D
  1. . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X)=$G(^XTV(8989.5,DA,1))
  1. . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X,DA)=""
  1. Q
  1. K03 ; kill the AC cross-reference for field .03 (INSTANCE)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",1)),$L($P(X0,"^",2)) D
  1. . K ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X)
  1. . K ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),X,DA)
  1. Q
  1. S1 ; set the AC cross-reference for field 1 (VALUE)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",1)),$L($P(X0,"^",2)),$L($P(X0,"^",3)) D
  1. . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))=X
  1. . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3),DA)=""
  1. Q
  1. K1 ; null the AC cross-reference value for field 1 (VALUE)
  1. N X0
  1. S X0=$G(^XTV(8989.5,DA,0))
  1. I $L($P(X0,"^",1)),$L($P(X0,"^",2)),$L($P(X0,"^",3)) D
  1. . I $D(^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))) D
  1. . . S ^XTV(8989.5,"AC",$P(X0,"^",2),$P(X0,"^",1),$P(X0,"^",3))=""
  1. Q