Global: ^AFJ(537015

FileMan FileNo	FileMan Filename	Package
537015	VAMC NETWORK HEALTH TYPES	Network Health Exchange

FileMan FileNo

FileMan Filename

Package

537015

VAMC NETWORK HEALTH TYPES

Package	Total	Routines
Network Health Exchange	2	AFJXMABX AFJXUPD

Package

Total

Routines

AFJXMABX AFJXUPD

Fields, Total: 1

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `APR 30, 2003` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` CROSS-REFERENCE: `537015^B` `1)= S ^AFJ(537015,"B",$E(X,1,30),DA)=""` `2)= K ^AFJ(537015,"B",$E(X,1,30),DA)` FIELD INDEX: `C (#214) REGULAR IR LOOKUP & SORTING` `Short Descr: All upper-case` `Description: This xref is all upper-case to ease DIC lookups.` `Set Logic: S ^AFJ(537015,"C",$E(X,1,30),DA)=""` `Kill Logic: K ^AFJ(537015,"C",$E(X,1,30),DA)` `Whole Kill: K ^AFJ(537015,"C")` `X(1): NAME (537015,.01) (Subscr 1) (Len 30) (forwards)` `Transform (Storage): S X=$$UP^XLFSTR(X)` `Transform (Lookup): S X=$$UP^XLFSTR(X)`

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: APR 30, 2003
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
CROSS-REFERENCE: 537015^B
1)= S ^AFJ(537015,"B",$E(X,1,30),DA)=""
2)= K ^AFJ(537015,"B",$E(X,1,30),DA)
FIELD INDEX: C (#214) REGULAR IR LOOKUP & SORTING
Short Descr: All upper-case
Description: This xref is all upper-case to ease DIC lookups.
Set Logic: S ^AFJ(537015,"C",$E(X,1,30),DA)=""
Kill Logic: K ^AFJ(537015,"C",$E(X,1,30),DA)
Whole Kill: K ^AFJ(537015,"C")
X(1): NAME (537015,.01) (Subscr 1) (Len 30) (forwards)
Transform (Storage): S X=$$UP^XLFSTR(X)
Transform (Lookup): S X=$$UP^XLFSTR(X)