Global: ^ORD(101.13

Field #	Name	Loc	Type	Details
.01	TAB NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAR 14, 2002` HELP-PROMPT: `Answer must be 3 characters in length` DESCRIPTION: This field stores CPRS GUI Cover Sheet tab acronyms. DELETE AUTHORITY: @ WRITE AUTHORITY: @ CROSS-REFERENCE: `101.13^B` 1)= S ^ORD(101.13,"B",$E(X,1,30),DA)="" 2)= K ^ORD(101.13,"B",$E(X,1,30),DA)
1	TAB DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `MAR 14, 2002` HELP-PROMPT: `Answer must be 1-35 characters in length` DESCRIPTION: This field stores descriptions of CPRS GUI Cover Sheet tab acronyms. FIELD INDEX: `C (#142) REGULAR IR LOOKUP & SORTING` Short Descr: Upper case TAB DESCRIPTION field for lookup searching. Set Logic: S ^ORD(101.13,"C",$E(X,1,30),DA)="" Kill Logic: K ^ORD(101.13,"C",$E(X,1,30),DA) Whole Kill: K ^ORD(101.13,"C") X(1): TAB DESCRIPTION (101.13,1) (Subscr 1) (Len 30) (forwards) Transform (Storage): S X=$$UP^XLFSTR(X)

TAB NAME

0;1

FREE TEXT

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

DESCRIPTION:

This field stores CPRS GUI Cover Sheet tab acronyms.

DELETE AUTHORITY: @

WRITE AUTHORITY:  @

CROSS-REFERENCE: 101.13^B

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

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

TAB DESCRIPTION

0;2

FREE TEXT

DESCRIPTION:

This field stores descriptions of CPRS GUI Cover Sheet tab acronyms.

FIELD INDEX: C (#142) REGULAR IR LOOKUP & SORTING

Short Descr:  Upper case TAB DESCRIPTION field for lookup searching.

Set Logic:  S ^ORD(101.13,"C",$E(X,1,30),DA)=""

Kill Logic:  K ^ORD(101.13,"C",$E(X,1,30),DA)

Whole Kill:  K ^ORD(101.13,"C")

X(1):  TAB DESCRIPTION  (101.13,1)  (Subscr 1)  (Len 30)  (forwards)

Transform (Storage):  S X=$$UP^XLFSTR(X)

Information