INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."5N.N) X
LAST EDITED: FEB 06, 2001
HELP-PROMPT: Type a Number between 0 and 999999999, 4 Decimal Digits
DESCRIPTION:
The value in this field shall be used to populate dispense units per dose fields in the Possible Dosages and Local Possible Dosages sub files in the Drug File.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I 1 D EN^DDIOL(" DELETIONS ARE NOT ALLOWED")
LAYGO TEST: 1,0)= D EN^DDIOL(" NEW ENTRIES ARE NOT ALLOWED") I 0
UNEDITABLE
CROSS-REFERENCE: 50.6069^B
1)= S ^PS(50.606,DA(1),"DUPD","B",$E(X,1,30),DA)=""
2)= K ^PS(50.606,DA(1),"DUPD","B",$E(X,1,30),DA)
CROSS-REFERENCE: 50.606^ADUP1^MUMPS
1)= N PSSDUP,PSSDUPL S PSSDUP=$P($G(^PS(50.606,DA(1),"DUPD",DA,0)),"^",2) I PSSDUP'="" F PSSDUPL=1:1:$L(PSSDUP) S ^PS(50.606,"ADUP"_$E(PSSDUP,PSSDUPL),DA(1),$G(X))=""
2)= N PSSDXP,PSSDXPL S PSSDXP=$P($G(^PS(50.606,DA(1),"DUPD",DA,0)),"^",2) I PSSDXP'="" F PSSDXPL=1:1:$L(PSSDXP) K ^PS(50.606,"ADUP"_$E(PSSDXP,PSSDXPL),DA(1),$G(X))
This cross reference is used to compute possible doses. It sets the global ^PS(50.606,"ADUP_I or O"),Dose Form,Dispense Units Per Dose)="".