Global: ^VA(407.6

Information

FileMan FileNo	FileMan Filename	Package
407.6	LETTER TYPE	Scheduling

This file holds the types of letter, e.g. Pre-Appointment, No-Show, etc. The Letter file points to this file.

Package	Total	Routines
Scheduling	2	SDES2GETLETRTYPE SDESGETLETTERS

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X I $D(X),$D(^VA(407.6,"B",X)) W !,"NO DUPLICATE CODES ALLOWED!" K X` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `The code is the alpha character assigned to a particular type of letter, i.e. 'P' = PRE-APPOINTMENT.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `407.6^B` `1)= S ^VA(407.6,"B",$E(X,1,30),DA)=""` `2)= K ^VA(407.6,"B",$E(X,1,30),DA)`
1	CODE NAME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `Code name is the name of the type of letter. For example, PRE- APPOINTMENT letter is a letter generated from the scheduling module of the MAS DHCP software for veterans who have future appointments and these letters are` `'reminder' letters sent to the veterans for their future appointments.` CROSS-REFERENCE: `407.6^C` `1)= S ^VA(407.6,"C",$E(X,1,30),DA)=""` `2)= K ^VA(407.6,"C",$E(X,1,30),DA)`
2	INACTIVE DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `The inactive date is the date/time entered by a user denoting that any particular letter type has been inactivated and no longer in use.`

CODE

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X I $D(X),$D(^VA(407.6,"B",X)) W !,"NO DUPLICATE CODES ALLOWED!" K X
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
The code is the alpha character assigned to a particular type of letter, i.e. 'P' = PRE-APPOINTMENT.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 407.6^B
1)= S ^VA(407.6,"B",$E(X,1,30),DA)=""
2)= K ^VA(407.6,"B",$E(X,1,30),DA)

CODE NAME

0;2

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION: Code name is the name of the type of letter. For example, PRE- APPOINTMENT letter is a letter generated from the scheduling module of the MAS DHCP software for veterans who have future appointments and these letters are
'reminder' letters sent to the veterans for their future appointments.
CROSS-REFERENCE: 407.6^C
1)= S ^VA(407.6,"C",$E(X,1,30),DA)=""
2)= K ^VA(407.6,"C",$E(X,1,30),DA)

INACTIVE DATE

0;3

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
The inactive date is the date/time entered by a user denoting that any particular letter type has been inactivated and no longer in use.