Global: ^TRACK1

FileMan FileNo	FileMan Filename	Package
70003	ACFORM	Uncategorized

Package	Total	FileMan Files
Kernel	1	STATE(#5)[11, 16]
Uncategorized	1	DEPARTMENT ACFORM(#70006)[2]

Fields, Total: 30

Field #	Name	Loc	Type	Details
.01	CONTROL #	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X'?1P.E)!(X'?.ANP)!($E(X,1,1)'["A") X` LAST EDITED: `NOV 10, 1986` HELP-PROMPT: `ENTER THE DATE AND DOC # IN THE FORM A07038601 (A-MO-DY-YR-DOC#)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `70003^B` 1)= S ^TRACK1("B",$E(X,1,30),DA)="" 2)= K ^TRACK1("B",$E(X,1,30),DA)
1	DATE REC	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER THE DATE THE DOCUMENT WAS RECEIVED IN THE DIRECTOR'S OFFICE`
2	DEPT	4;3	POINTER TO DEPARTMENT ACFORM FILE (#70006)	**********************REQUIRED FIELD********************** DEPARTMENT ACFORM(#70006) LAST EDITED: `JUL 22, 1991` HELP-PROMPT: `"Enter the Action Office the Document is assigned to`
2.1	ASSIGNED TO	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 29, 1986` HELP-PROMPT: `Enter the Personnel assigned, length cannot exceed 20 Characters`
3	CROSS CONTROL	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<8) X` HELP-PROMPT: `ENTER THE CONTROL # OF A DOCUMENT WITH THE SAME SUBJECT`
4	DATE ROUTED	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER THE DATE THE DOCUMENT WAS ROUTED TO THE PERSONNEL`
5	DATE DUE	0;6	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 23, 1991` HELP-PROMPT: `ENTER THE DUE DATE OF THE DOCUMENT` NOTES: `TRIGGERED by the REVISED DUE DATE field of the REVISION sub-field of the ACFORM File` CROSS-REFERENCE: `^^TRIGGER^70003^28` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^TRACK1(D0,6)):^(6),1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^TRACK1(D0,6)):^(6),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(70003,5,1,1,1. 4) 1.4)= S DIH=$S($D(^TRACK1(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,4)=DIV,DIH=70003,DIG=28 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= ORIGINAL="" CREATE VALUE)= DATE DUE DELETE VALUE)= NO EFFECT FIELD)= ORIG
6	DATE INCOMING (ACTION)	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER THE DEPT DATE (STAMP) THE RESPONSE DOCUMENT WAS RECEIVED BY ASSIGNED PERSONNEL`
8	SENT TO	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `ENTER THE PERSON THE DOCUMENT WAS ADDRESSED TO`
8.1	TITLE (SENT TO)	6;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 11, 1986` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH`
9	STREET (SENT TO)	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 08, 1987` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH`
10	CITY (SENT TO)	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` HELP-PROMPT: `ENTER THE CITY THE DOCUMENT WAS ADDRESSED TO`
11	STATE (SENT TO)	0;12	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAY 23, 1991`
12	ZIP (SENT TO)	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `OCT 08, 1987` HELP-PROMPT: `ANSWER MUST BE 5-10 CHARACTERS IN LENGTH`
13	SENT FROM	0;14	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `ENTER THE PERSON WHO SENT THE DOCUMENT`
13.1	TITLE (SENT FROM)	6;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 11, 1986` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH`
14	STREET (SENT FROM)	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 08, 1987` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH`
15	CITY (SENT FROM)	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` HELP-PROMPT: `ENTER THE CITY ADDRESS OF THE SENDER`
16	STATE (SENT FROM)	0;17	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAY 23, 1991`
17	ZIP (SENT FROM)	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `OCT 08, 1987` HELP-PROMPT: `ANSWER MUST BE 5-10 CHARACTERS IN LENGTH`
18	CORRESPONDENCE TYPE	0;19	SET	**********************REQUIRED FIELD********************** 'L' FOR LETTER; 'M' FOR MEMORANDUM; 'EM' FOR ELECTRONIC MAIL; 'OTH' FOR OTHER; LAST EDITED: `JUL 17, 1986` HELP-PROMPT: `ENTER THE TYPE OF CORRESPONDENCE`
20	SPECIAL INSTRUCTION	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-250 CHARACTERS IN LENGTH`
21	REVISION	3;0	DATE Multiple #70003.01	70003.01
22	DATE RECEIVED DIRECTOR	4;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 24, 1991` HELP-PROMPT: `ENTER THE DATE THE DIRECTOR RECEIVED THE COMPLETED RESPONSE` CROSS-REFERENCE: `^^TRIGGER^70003^29` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TRACK1(D0,6)):^(6),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(70003,22,1,1,1.4) 1.4)= S DIH=$S($D(^TRACK1(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,5)=DIV,DIH=70003,DIG=29 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TRACK1(D0,6)):^(6),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(70003,22,1,1,2.1) X ^DD(70003,22,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^TRACK1(D0,4)):^(4),1:"") S X=$P(Y(1),U,1) 2.4)= S DIH=$S($D(^TRACK1(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,5)=DIV,DIH=70003,DIG=29 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= DATE RECEIVE DELETE VALUE)= DATE RECEIVED DI FIELD)= COMPLETED D
23	DATE SIGNED	4;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 24, 1991` HELP-PROMPT: `ENTER THE DATE THE DIRECTOR SIGNED OFF ON THE DOCUMENT` CROSS-REFERENCE: `^^TRIGGER^70003^29` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TRACK1(D0,6)):^(6),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(70003,23,1,1,1.4) 1.4)= S DIH=$S($D(^TRACK1(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,5)=DIV,DIH=70003,DIG=29 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TRACK1(D0,6)):^(6),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(70003,23,1,1,2.1) X ^DD(70003,23,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^TRACK1(D0,4)):^(4),1:"") S X=$P(Y(1),U,2) 2.4)= S DIH=$S($D(^TRACK1(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,5)=DIV,DIH=70003,DIG=29 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= DATE SIGNED DELETE VALUE)= DATE SIGNED FIELD)= COMPLETED DATE
25	FILE CLEARANCES	6;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>150!($L(X)<3) X` LAST EDITED: `SEP 19, 1986` HELP-PROMPT: `Enter the clearances needed on File Copy, 3-150 CHARACTERS IN LENGTH`
28	ORIGINAL DUE DATE	6;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 23, 1991` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DATE DUE field of the ACFORM File`
29	COMPLETED DATE	6;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 24, 1991` NOTES: `TRIGGERED by the DATE RECEIVED DIRECTOR field of the ACFORM File` TRIGGERED by the DATE SIGNED field of the ACFORM File
30	NEW SUBJECT	7;0	WORD-PROCESSING #70003.02
31	SHORT SUBJECT		COMPUTED	MUMPS CODE: `X ^DD(70003,31,9.2):D0>0 S X="",Y(70003,31,1)=X S X=1,Y(70003,31,2)=X S X=10,X=$E(Y(70003,31,1),Y(70003,31,2),X)` 9.2 = S I(0)="^TRACK1(",J(0)=70003 F D=0:0 S (D,D1)=$N(^TRACK1(D0,7,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D1 ALGORITHM: `$E(NEW SUBJECT,1,10)` LAST EDITED: `APR 23, 1992`

Customize PDF page

Package: Uncategorized

Global: ^TRACK1

Information

Description

Pointer To FileMan Files, Total: 2

Fields, Total: 30