source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XPARDDAC.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1XPARDDAC ;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 ;
13S01 ; 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
20K01 ; 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
27S02 ; 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
34K02 ; 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
41S03 ; 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
48K03 ; 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
55S1 ; 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
62K1 ; 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
Note: See TracBrowser for help on using the repository browser.