Global: ^VA(407.6

FileMan FileNo	FileMan Filename	Package
407.6	LETTER TYPE	Scheduling

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Scheduling	3	^VA(407.5 ^VA(407.6 SDLTE
IHS Changes To Scheduling	1	BSDP13PS

Fields, Total: 3

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.

.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.

External References

Name	Field # of Occurrence
^%DT	2+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VA(407.6 - [#407.6]	.01+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	2+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
U	ID1+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1*!
>> Y	2+1

Customize PDF page

Package: Scheduling