Sub-Field: 58.51

Parent File	Name	Number	Package
58.501	AMIS	58.51	Auto Replenishment Ward Stock

Details

Field #	Name	Loc	Type	Details
.01	AMIS FIELD	0;1	SET	'03' FOR FIELD 03; '04' FOR FIELD 04; '06' FOR FIELD 06; '07' FOR FIELD 07; '17' FOR FIELD 17; '22' FOR FIELD 22; DESCRIPTION: `AMIS FIELD identifies which field is to be credited for AMIS purposes. These fields will be "03", "04", "06", "07", "17", or "22".` CROSS-REFERENCE: `58.51^FLD` `1)= S ^PSI(58.5,DA(2),"S",DA(1),"AMIS","FLD",$E(X,1,30),DA)=""` `2)= K ^PSI(58.5,DA(2),"S",DA(1),"AMIS","FLD",$E(X,1,30),DA)`
1	DOSES DISPENSED	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 27, 1990` HELP-PROMPT: `Type a Number between -9999999 and 9999999, 0 Decimal Digits` DESCRIPTION: `DOSES DISPENSED = QUANTITY DISPENSED * AMIS CONVERSION NUMBER`
2	DISPENSED COST	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."7N.N) X` LAST EDITED: `NOV 02, 1989` HELP-PROMPT: `Type a Number between -9999999 and 9999999, 6 Decimal Digits` DESCRIPTION: `DISPENSED COST = QUANTITY DISPENSED * PRICE PER DISPENSE UNIT.`
3	DOSES RETURNED	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a whole number between 1 and 999999` DESCRIPTION: `DOSES RETURNED = QUANTITY RETURNED * AMIS CONVERSION NUMBER`
4	RETURNS COST	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X` LAST EDITED: `NOV 02, 1989` HELP-PROMPT: `Type a Number between 0 and 9999999, 6 Decimal Digits` DESCRIPTION: `RETURNS COST = QUANTITY RETURNED * PRICE PER DISPENSE UNIT`