Sub-Field: 58.81126

Parent File	Name	Number	Package
58.8112	CREDITS	58.81126	Drug Accountability

Details

Field #	Name	Loc	Type	Details
.01	CREDIT MEMO	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 07, 1996` HELP-PROMPT: `Enter the credit memo number. If there is no credit memo number, enter "None".` DESCRIPTION: The CREDIT MEMO field contains the credit memo number issued against the invoice. CROSS-REFERENCE: `58.81126^B` 1)= S ^PSD(58.811,DA(2),1,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^PSD(58.811,DA(2),1,DA(1),2,"B",$E(X,1,30),DA) 3)= DO NOT DELETE! This cross-reference is used to locate a credit memo number.
1	CREDIT DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 07, 1996` HELP-PROMPT: `Enter the date the credit memo was issued.` DESCRIPTION: The CREDIT DATE field contains the date the credit memo was issued.
2	AMOUNT	0;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X` LAST EDITED: `FEB 26, 1997` HELP-PROMPT: `Enter the credit memo amount.` DESCRIPTION: The AMOUNT field contains the dollar value of the credit issued.
3	REASON	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `FEB 28, 1997` HELP-PROMPT: `Enter the reason the credit was issued. Enter 1-40 characters.` DESCRIPTION: The REASON field contains the explanation why the credit memo was issued.