INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 01, 1999
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION: Prescriptions arrive for each patient, either in regular intervals or as amendments to the current prescription. The PRESCRIPTION SEQUENCE NUMBER denotes the order in which they arrive. Therefore, the prescription
number that is the highest usually is the one that expires last.
CROSS-REFERENCE: 669.9001^B
1)= S ^RMPR(669.9,DA(1),"RMPORXN","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPORXN","B",$E(X,1,30),DA)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 12, 1998
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Each prescription expires on a certain date (legally and by policy). Usually, the first prescription expires 6 months after it is written, the second prescription expires 6 months after it is written, and the third
precription and all subsequent prescriptions expires one year after they are written. The value of this field is used to determine a default answer for the expiration date of a prescription when a new prescription
record is created.
TECHNICAL DESCR: When the user is prompted for an expiration date for a prescription, the system calculates this date by adding the value of this field to the ACTIVATION DATE of the prescription. The result is used to prompt the user
for a default date of expiration for prescriptions.