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

Package: Inpatient Medications

PRIMARY DRUG(#50.3)-->50.31

Sub-Field: 50.31


Information

Parent File Name Number Package
PRIMARY DRUG(#50.3) APPLICATION 50.31 Inpatient Medications

Details

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

  • INPUT TRANSFORM:  D ENALU^PSJUTL
  • OUTPUT TRANSFORM:  S Y=$O(^PS(50.35,"C",Y,0)) S:Y Y=$P($G(^PS(50.35,Y,0)),"^") S:Y="" Y=Y(0)
  • LAST EDITED:  AUG 23, 1991
  • HELP-PROMPT:  Select an application for which this drug will be dispensed.
  • DESCRIPTION:  
    This is an application (computer package) that would be using entries in this file.
  • EXECUTABLE HELP:  D ENAQ^PSJUTL
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50.31^B
    1)= S ^PS(50.3,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^PS(50.3,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  50.31^AFI^MUMPS
    1)= S X(1)=$G(^PS(50.3,DA(1),1,DA,0)),^PS(50.3,DA(1),1,"AFI",X)='$P(X(1),"^",2)_$S($P(X(1),"^",3):"^"_$P(X(1),"^",3),1:"")
    2)= K ^PS(50.3,DA(1),1,"AFI",X)
    3)= Needed to know if non-formulary or inactive.
    Provides a quicker check for non-formulary and/or inactive.
  • CROSS-REFERENCE:  50.3^AIU^MUMPS
    1)= S X(1)=$P($G(^PS(50.3,DA(1),0)),"^") I X(1)]"" S ^PS(50.3,"AIU"_X,X(1),DA(1))=""
    2)= S X(1)=$P($G(^PS(50.3,DA(1),0)),"^") I X(1)]"" K ^PS(50.3,"AIU"_X,X(1),DA(1))
    3)= Needed to select drugs by application.
    Used to allow the application to easily select only those drugs marked for the application.
.02 NON-FORMULARY 0;2 SET
  • '1' FOR N/F;

  • LAST EDITED:  OCT 30, 1991
  • HELP-PROMPT:  Enter a '1' if this is not to appear on the formulary list.
  • DESCRIPTION:  
    This is used to designate the drug as non-formulary.
  • GROUP:  PS
  • CROSS-REFERENCE:  50.31^AFIF^MUMPS
    1)= S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),"^")]"" S $P(^PS(50.3,DA(1),1,"AFI",$P(X(1),"^")),"^")=""
    2)= S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),"^")]"" S $P(^PS(50.3,DA(1),1,"AFI",$P(X(1),"^")),"^")=1
    3)= Needed to know if non-formulary.
    Used to quickly know if non-formulary.
.03 INACTIVE DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Enter a date this drug is to be inactive.
  • DESCRIPTION:  
    This is the date this drug is inactive.
  • GROUP:  PS
  • CROSS-REFERENCE:  50.31^AFII^MUMPS
    1)= S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),"^")]"" S $P(^PS(50.3,DA(1),1,"AFI",$P(X(1),"^")),"^",2)=X
    2)= S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),"^")]"" S $P(^PS(50.3,DA(1),1,"AFI",$P(X(1),"^")),"^",2)=""
    3)= Needed to know if inactive.
    Used to quickly know if inactive.
.05 DAY (nD) or DOSE (nL) LIMIT 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$S('X:1,X?1.2N1"D":0,1:X'?1.2N1"L") X
  • LAST EDITED:  AUG 15, 1991
  • HELP-PROMPT:  Type a whole Number between 0 and 99, 0 Decimal Digits, followed by either a 'D' (for NUMBER OF DAYS) or an 'L' (for DOSE LIMIT).
  • DESCRIPTION:  If found when this drug is ordered, this is used to calculate a DEFAULT value for the STOP DATE prompt of the order. If the number entered here is followed by a "D", that NUMBER OF DAYS will be added to the START DATE
    to calculate the STOP DATE. If the number entered is followed by an "L", the number is used as the NUMBER OF DOSES to calculate the stop date.
    This is best used for NARCOTICS and ANTIBIOTICS.
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 MED ROUTE 0;6 POINTER TO MEDICATION ROUTES FILE (#51.2) MEDICATION ROUTES(#51.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"")'=""ORAL"",$P(^(0),""^"",4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 18, 1991
  • HELP-PROMPT:  Enter the most common MED ROUTE associated with this medication.
  • DESCRIPTION:  
    If a MED ROUTE is entered here, that med route is used as a DEFAULT value during order entry when this drug is selected.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"")'=""ORAL"",$P(^(0),""^"",4)"
  • EXPLANATION:  ONLY MED ROUTES MARKED FOR USE BY ALL PACKAGES ARE SELECTABLE.
  • GROUP:  PS
.07 SCHEDULE TYPE 0;7 SET
  • 'OC' FOR ON CALL;
  • 'O' FOR ONE TIME;
  • 'P' FOR PRN;
  • 'R' FOR FILL on REQUEST;

  • LAST EDITED:  AUG 18, 1991
  • HELP-PROMPT:  Enter the most common SCHEDULE TYPE associated with this medication.
  • DESCRIPTION:  
    If a SCHEDULE TYPE is entered here, it is used as a DEFAULT value in order entry when this drug is selected.
  • GROUP:  PS
.08 SCHEDULE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!($L(X," ")>2)!($L(X)>70)!($L(X)<1) X D:$D(X)#2 EN^PSGS0 I $D(X)#2,'PSGS0Y,PSGS0XT W " Every ",PSGS0XT," minutes"
  • LAST EDITED:  AUG 18, 1991
  • HELP-PROMPT:  Enter the most common SCHEDULE associated with this medication.
  • DESCRIPTION:  
    If a SCHEDULE is entered here, it will be used as a DEFAULT value during order entry when this drug is selected.
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 FORMULARY ALTERNATIVE 1;0 POINTER Multiple #50.311 50.311

  • DESCRIPTION:  
    These are formulary alternatives to this non-formulary primary drug.
  • GROUP:  PS
Info |  Details