Global: ^AUTTTPLR

FileMan FileNo	FileMan Filename	Package
99999.22	TREATMENT PLAN DISCONTINUED REASON	Utility Tables

FileMan FileNo

FileMan Filename

Package

99999.22

TREATMENT PLAN DISCONTINUED REASON

Package	Total	FileMan Files
IHS Patient	1	TREATMENT PLAN(#9000094)[.14]

Package

Total

FileMan Files

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ABBREVIATION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `JUL 10, 2009` HELP-PROMPT: `Answer must be 2-10 characters in length.` CROSS-REFERENCE: `99999.22^B` 1)= S ^AUTTTPLR("B",$E(X,1,30),DA)="" 2)= K ^AUTTTPLR("B",$E(X,1,30),DA)
.02	REASON	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JUL 10, 2009` HELP-PROMPT: `Answer must be 1-50 characters in length.` CROSS-REFERENCE: `99999.22^C` 1)= S ^AUTTTPLR("C",$E(X,1,30),DA)="" 2)= K ^AUTTTPLR("C",$E(X,1,30),DA)

ABBREVIATION

0;1

FREE TEXT

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

CROSS-REFERENCE: 99999.22^B

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

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

REASON

0;2

FREE TEXT

CROSS-REFERENCE: 99999.22^C

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

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