Global: ^AUTTUCV

Information

FileMan FileNo	FileMan Filename	Package
9999999.01	USER CONVERSION	Utility Tables

Package	Total	Routines
IHS Kernel Menu Options	1	AKMOFPRVT

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	USER NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>52)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 52`
.01	LETTER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1UL)!(X'?.ANP) X` LAST EDITED: `AUG 01, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.01^B` 1)= S ^AUTTUCV("B",$E(X,1,30),DA)="" 2)= K ^AUTTUCV("B",$E(X,1,30),DA)

USER NUMBER

NUMBER

LETTER

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1UL)!(X'?.ANP) X
LAST EDITED: AUG 01, 1985
HELP-PROMPT: ANSWER MUST BE 1 CHARACTER IN LENGTH
DELETE TEST: .01,0)= I 1

CROSS-REFERENCE: 9999999.01^B

1)= S ^AUTTUCV("B",$E(X,1,30),DA)=""

2)= K ^AUTTUCV("B",$E(X,1,30),DA)

Name	Line Occurrences (* Changed, ! Killed)
^AUTTUCV("B"	.01(XREF 1S), .01(XREF 1K)

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