Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 50.6069

Package: Pharmacy Data Management

DOSAGE FORM(#50.606)-->50.6069

Sub-Field: 50.6069


Information

Parent File Name Number Package
DOSAGE FORM(#50.606) DISPENSE UNITS PER DOSE 50.6069 Pharmacy Data Management

Details

Field # Name Loc Type Details
.01 DISPENSE UNITS PER DOSE 0;1 NUMBER

  • 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 '$D(XPDGREF) D EN^DDIOL(" DELETIONS ARE NOT ALLOWED")
  • LAYGO TEST:  1,0)= D:'$D(XPDGREF) EN^DDIOL(" NEW ENTRIES ARE NOT ALLOWED") I $D(XPDGREF)
    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)="".
1 PACKAGE 0;2 SET
  • 'I' FOR Inpatient;
  • 'O' FOR Outpatient;
  • 'IO' FOR Both;
  • 'OI' FOR Both;

  • LAST EDITED:  MAY 10, 2000
  • HELP-PROMPT:  Enter an 'I' for Inpatient, 'O' for Outpatient, 'IO' or 'OI' for both.
  • DESCRIPTION:  
    This field will allow a dispense units per dose to be marked for Inpatient Medications and/or Outpatient Pharmacy package use.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
    UNEDITABLE
  • CROSS-REFERENCE:  50.606^ADUP^MUMPS
    1)= N PSSDP F PSSDP=1:1:$L(X) S ^PS(50.606,"ADUP"_$E(X,PSSDP),DA(1),$P($G(^PS(50.606,DA(1),"DUPD",DA,0)),"^"))=""
    2)= N PSSDPK F PSSDPK=1:1:$L(X) K ^PS(50.606,"ADUP"_$E(X,PSSDPK),DA(1),$P($G(^PS(50.606,DA(1),"DUPD",DA,0)),"^"))
    This cross reference is used for Dosage conversion. It sets the global ^PS(50.606,"ADUP_I or O"),Dose Form,DIspense Units per Dose)="".
Info |  Details