Global: ^DIAR(1.12

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `1.12^B` 1)= S ^DIAR(1.12,"B",$E(X,1,30),DA)="" 2)= K ^DIAR(1.12,"B",$E(X,1,30),DA)
.02	SENT/INSTALLED	0;2	SET	**********************REQUIRED FIELD********************** 's' FOR SENT; 'i' FOR INSTALLED; 'u' FOR UNSUCCESSFUL;
.03	USER	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.04	FILE	0;4	POINTER TO FILE FILE (#1)	FILE(#1)
.05	ENTRY NUMBER	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<.001)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between .001 and 99999999, 0 Decimal Digits`
.06	MESSAGE	0;6	POINTER TO MESSAGE FILE (#3.9)	MESSAGE(#3.9)
.07	FILEGRAM	0;7	POINTER TO PRINT TEMPLATE FILE (#.4)	PRINT TEMPLATE(#.4)

Information