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

Package: Inpatient Medications

INPATIENT USER PARAMETERS(#53.45)-->53.4502

Sub-Field: 53.4502


Information

Parent File Name Number Package
INPATIENT USER PARAMETERS(#53.45) DISPENSE DRUG 53.4502 Inpatient Medications

Details

Field # Name Loc Type Details
.01 DISPENSE DRUG 0;1 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^(2)),U,3)[""U"",$S('$G(PSGPDRG):1,1:PSGPDRG=+$G(^(2))) I (($G(^PSDRUG(+$G(Y),""I""))>(DT-1))!'$G(^PSDRUG(+$G(Y),""I"")))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 09, 2011
  • SCREEN:  S DIC("S")="I $P($G(^(2)),U,3)[""U"",$S('$G(PSGPDRG):1,1:PSGPDRG=+$G(^(2)))"
  • EXPLANATION:  Only dispense drugs marked for Unit Dose use.
  • EXECUTABLE HELP:  I $G(PSGPDRG) S X(1)=$G(PSGPDRGN) S:X(1)="" X(1)=PSGPDRG S X(1)="Only dispense drugs tied to the Orderable Item "_X(1)_" are selectable." D EN^DDIOL(" ") F X(2)=1:1:$L(X(1)," ") S X(3)=$P(X(1)," ",X(2)) D:$L(X(3))+$X>78 EN
    ^DDIOL(" "_X(3))
  • PRE-LOOKUP:  S DIC("S")="I 1"
  • DELETE TEST:  1,0)= D:$G(PSGOEEND) EN^DDIOL("Dispense Drugs for active orders cannot be deleted, but can be given an INACTIVE DATE.") D:$G(PSJPNDRN)&$G(^PS(53.1,+$G(ON),1,+$G(DA),0)) EN^DDIOL($P(PSJPNDRN,"^",2)) I $G(PSGOEEND)!$G(PSJPND
    RN)
  • LAYGO TEST:  1,0)= S X(1)=$D(^PS(53.45,DA,2,"B",+X)) D:X(1) EN^DDIOL("This dispense drug has already been entered for this order.") I 'X(1)
  • GROUP:  PSJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  53.4502^B
    1)= S ^PS(53.45,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^PS(53.45,DA(1),2,"B",$E(X,1,30),DA)
.02 UNITS PER DOSE 0;2 NUMBER

  • INPUT TRANSFORM:  S:X?1.2N1"/"1.2N X=+$J(+X/$P(X,"/",2),0,2) K:X'?.N.1".".N!(X>30)!(X<0)!(X?.E1"."5.N) X
  • OUTPUT TRANSFORM:  S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)
  • LAST EDITED:  FEB 20, 2003
  • HELP-PROMPT:  Enter a number between 0 and 30, no more than 4 decimals (will accept fractions).
  • DESCRIPTION:  This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a DOSE for this order. The literals '1/2' and '1/4' may be entered. If there is no entry (or an entry of `0'), it is assumed to be ONE (1).
    ** PLEASE NOTE **
    1. If the provider prescribes 30 ml's of a medication that is usually dispensed and administered as 60 ml's, the correct UNITS PER DOSE would be `1/2' (or .5), NOT 30 ml's.  The correct entry of 30 ml's would be in the
    DOSAGE ORDERED field.
    2. If the UNITS PER DOSE prescribed is a variable amount (1-2 tab.), it is suggested that the maximum amount be entered and the actual amount prescribed noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS fields.
  • EXECUTABLE HELP:  D EN^DDIOL("ONE (1) UNIT PER DOSE WILL BE ASSUMED IF THERE IS NO ENTRY (OR AN ENTRY OF ZERO (0)) INTO THIS FIELD.")
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 INACTIVE DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 26, 1992
  • HELP-PROMPT:  Enter the date that this drug will no longer be dispense for this order.
  • DESCRIPTION:  
    This is the date that this dispense drug will no longer be dispensed for this order.  Once an order becomes active, dispense drugs cannot be deleted.
  • TECHNICAL DESCR:  
    This is used by pharmacy when the dispense drug is no longer to be dispensed for the order.
  • GROUP:  PSJU
Info |  Details |  All