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.1

Package: Pharmacy Data Management

DRUG(#50)-->50.1

Sub-Field: 50.1


Information

Parent File Name Number Package
DRUG(#50) SYNONYM 50.1 Pharmacy Data Management

Details

Field # Name Loc Type Details
.01 SYNONYM 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  SEP 21, 2015
  • HELP-PROMPT:  ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used as a quick code for look ups or to locate NDCs so the drug's inventory can be incremented when orders are received.
  • TECHNICAL DESCR:  
    free text.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50^C
    1)= S ^PSDRUG("C",$E(X,1,40),DA(1),DA)=""
    2)= K ^PSDRUG("C",$E(X,1,40),DA(1),DA)
    3)= Do not Delete.
    This field is used as a quick code for lookups. It is also used to locate NDCs to increment the drug's inventory when orders are received.
1 INTENDED USE 0;3 SET
  • '0' FOR TRADE NAME;
  • '1' FOR QUICK CODE;
  • 'D' FOR DRUG ACCOUNTABILITY;
  • 'C' FOR CONTROLLED SUBSTANCES;

  • LAST EDITED:  MAY 03, 1996
  • HELP-PROMPT:  Enter the intended use of the synonym.
  • DESCRIPTION:  If you designate a synonym as a quick code, then it will not appear on the formulary listing for distribution in the hospital. If it is designated as a trade name, then it will appear on the listing. This field does
    not affect the ability to look-up a drug by quick code or trade name.
    If the intended use is for Controlled Substances or Drug Accountability, the synonym is used to locate NDCs so the drug's inventory can be incremented when orders are received.
2 NDC CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X
  • LAST EDITED:  MAY 03, 1996
  • HELP-PROMPT:  ANSWER MUST BE 5-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field will contain the national drug code.
  • TECHNICAL DESCR:  
    free text
400 VSN 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 03, 1996
  • HELP-PROMPT:  Enter the vendor's stock number corresponding to the NDC.
  • DESCRIPTION:  
    This is the vendor's stock number for the NDC.
  • CROSS-REFERENCE:  50^AVSN
    1)= S ^PSDRUG("AVSN",$E(X,1,30),DA(1),DA)=""
    2)= K ^PSDRUG("AVSN",$E(X,1,30),DA(1),DA)
    3)= Do not delete.
    This cross-reference stores the vendor's stock number of the drug. It is used by Drug Accountability and Controlled Substances packages.
401 ORDER UNIT 0;5 POINTER TO ORDER UNIT FILE (#51.5) ORDER UNIT(#51.5)

  • LAST EDITED:  MAY 03, 1996
  • HELP-PROMPT:  Enter the NDC's packaging unit.
  • DESCRIPTION:  
    This is the NDC's unit of order.
  • TECHNICAL DESCR:  
    The Order Unit field points to the ORDER UNIT file (#51.5).
402 PRICE PER ORDER UNIT 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  AUG 30, 2010
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the price for one unit of order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^50.1^404
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(50.1,402,1,1,1.1) X ^DD(50.1,402,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=DIV,X=$S($P(Y(1),U,7):X/$P(Y(1),U,7),1:"*******"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
    1.4)= S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=50.1,DIG=404 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=50.1,DIG=404 D ^DIC
    R
    CREATE CONDITION)= #402>0
    CREATE VALUE)= $J(#402/#403,1,4)
    DELETE VALUE)= @
    FIELD)= #404
    TRIGGERS the calculation PRICE PER DISPENSE UNIT field of the SYNONYM sub-field of the DRUG File by DIVIDING the PRICE PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File BY the DISPENSE UNITS PER ORDER UNIT
    field of the SYNONYM sub-field of the DRUG File
403 DISPENSE UNITS PER ORDER UNIT 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."5.N) X
  • LAST EDITED:  AUG 30, 2010
  • HELP-PROMPT:  Type a number between 1 and 999999, 4 Decimal Digits
  • DESCRIPTION:  
    This is the number of dispense units in one order unit.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^50.1^404
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(50.1,403,1,1,1.1) X ^DD(50.1,403,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=$S(DIV:X/DIV,1:"*******"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
    1.4)= S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=50.1,DIG=404 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=50.1,DIG=404 D ^DIC
    R
    CREATE CONDITION)= #403>0
    CREATE VALUE)= $J(#402/#403,1,4)
    DELETE VALUE)= @
    FIELD)= #404
    TRIGGERS the calculation PRICE PER DISPENSE UNIT field of the SYNONYM sub-field of the DRUG File by DIVIDING the PRICE PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File BY the DISPENSE UNITS PER ORDER UNIT
    field of the SYNONYM sub-field of the DRUG File
404 PRICE PER DISPENSE UNIT 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  AUG 30, 2010
  • HELP-PROMPT:  Type a Number between 0 and 999999, 4 Decimal Digits.
  • DESCRIPTION:  
    This is the cost of one dispense unit.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRICE PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File
    TRIGGERED by the DISPENSE UNITS PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File
405 VENDOR 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  MAY 03, 1996
  • HELP-PROMPT:  Enter the vendor's name.
  • DESCRIPTION:  
    This is the name of the vendor from which the drug was purchased.
Info |  Details