Sub-Field: 90053.06

Parent File	Name	Number	Package
A/R DEBT MANAGEMENT BILLS(#90053.05)	LETTER CYCLE	90053.06	IHS Accounts Receivable

Details

Field #	Name	Loc	Type	Details
.01	LETTER CYCLE	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Answer must be 3-30 characters in length` CROSS-REFERENCE: `90053.06^B` 1)= S ^BARDM(DUZ(2),DA(1),100,"B",$E(X,1,30),DA)="" 2)= K ^BARDM(DUZ(2),DA(1),100,"B",$E(X,1,30),DA) RECORD INDEXES: `S (#401) (WHOLE FILE #90053.05)`
.02	LETTER	0;2	POINTER TO A/R LETTERS & TEXT FILE (#90052.03)	A/R LETTERS & TEXT(#90052.03) LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Enter the letter that was printed during this print cycle.`
.03	LETTER STATUS	0;3	SET	**********************REQUIRED FIELD********************** 'P' FOR PRINTED; 'Q' FOR QUEUED; 'N' FOR NOT QUEUED; LAST EDITED: `JUN 30, 2011` HELP-PROMPT: `Enter the Status of the letter.` RECORD INDEXES: `S (#401) (WHOLE FILE #90053.05)`
.04	USER	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Enter the person who printed the letter.`
.05	DATE PRINTED	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Enter the date the letter was printed`
.06	BILL AMOUNT	0;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>500000)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Type a Dollar amount between 0 and 500000, 2 Decimal Digits`