Global: ^DIC(12

Information

FileMan FileNo	FileMan Filename	Package
12	OCCUPATION	Kernel

Package	Total	Routines
IHS VA Support Files	1	SYNONYM
Kernel	1	^DIC(12

Package	Total	Routines
Computerized Public Health Activity Data	1	BNIG

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1		INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS LONG` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `^` 1)= S:$P(^DIC(12,0),"^",5)<$L(X) ^(0)=$P(^(0),"^",1,4)_"^"_$L(X) 2)= Q CROSS-REFERENCE: `12^B` 1)= S ^DIC(12,"B",X,DA)="" 2)= K ^DIC(12,"B",X,DA)
1	ABBREVIATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>12!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-12 CHARACTERS IN LENGTH` CROSS-REFERENCE: `12^C` 1)= S ^DIC(12,"C",$E(X,1,30),DA)="" 2)= K ^DIC(12,"C",$E(X,1,30),DA)
100	SYNONYM	.01;0	Multiple #12.01	12.01

NAME

0;1

CROSS-REFERENCE: ^

1)= S:$P(^DIC(12,0),"^",5)<$L(X) ^(0)=$P(^(0),"^",1,4)_"^"_$L(X)

2)= Q

CROSS-REFERENCE: 12^B

1)= S ^DIC(12,"B",X,DA)=""

2)= K ^DIC(12,"B",X,DA)

ABBREVIATION

0;2

FREE TEXT

CROSS-REFERENCE: 12^C

1)= S ^DIC(12,"C",$E(X,1,30),DA)=""

2)= K ^DIC(12,"C",$E(X,1,30),DA)

100 SYNONYM .01;0 Multiple #12.01 12.01

Name	Line Occurrences (* Changed, ! Killed)
^DIC(12 - [#12]	.01(XREF 1S), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K)

Name	Field # of Occurrence
^(0	.01(XREF 1S)

Name	Field # of Occurrence
>> DA	.01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 2S), .01(XREF 2K), 1+1!, 1(XREF 1S), 1(XREF 1K)