Global: ^DIC(25

FileMan FileNo	FileMan Filename	Package
25	TYPE OF DISCHARGE	Registration

Package	Total	Routines
Virtual Patient Record	1	VPRSDADG

Package	Total	FileMan Files
Registration	1	PATIENT(#2)[.324, .329, .3295, #2.3216(.06)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 28, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 10` DESCRIPTION: `This field contains the internal entry number of this type of discharge as determined by VA FileMan and the MAS software package. This number may be used by various software modules throughout DHCP. It must not be` `altered nor should entries be added or removed from this file.`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `MAR 20, 1984` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the name of all allowable military discharge types as determined by VACO. This information is maintained by the MAS software package through frequent releases and should not be edited at the site` `level.` CROSS-REFERENCE: `25^B` `1)= S ^DIC(25,"B",$E(X,1,30),DA)=""` `2)= K ^DIC(25,"B",$E(X,1,30),DA)`
1	ABBREVIATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-12 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains an abbreviate for this military discharge type. On outputs or displays where the full name of the discharge may not fit, this abbreviation will be displayed instead.`

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 28, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 10
DESCRIPTION: This field contains the internal entry number of this type of discharge as determined by VA FileMan and the MAS software package. This number may be used by various software modules throughout DHCP. It must not be
altered nor should entries be added or removed from this file.

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>20!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: MAR 20, 1984
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the name of all allowable military discharge types as determined by VACO. This information is maintained by the MAS software package through frequent releases and should not be edited at the site
level.
CROSS-REFERENCE: 25^B
1)= S ^DIC(25,"B",$E(X,1,30),DA)=""
2)= K ^DIC(25,"B",$E(X,1,30),DA)

ABBREVIATION

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains an abbreviate for this military discharge type. On outputs or displays where the full name of the discharge may not fit, this abbreviation will be displayed instead.

NAME: HONORABLE	NAME: DISHONORABLE	NAME: GENERAL	NAME: OTHER THAN HONORABLE	NAME: UNDESIRABLE	NAME: BAD CONDUCT	NAME: UNCHARACTERIZED	NAME: DISHONORABLE-VA
NAME: HONORABLE-VA

Information