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

Package: Inpatient Medications

NON-VERIFIED ORDERS(#53.1)-->53.157

Sub-Field: 53.157


Information

Parent File Name Number Package
NON-VERIFIED ORDERS(#53.1) ADDITIVE 53.157 Inpatient Medications

Details

Field # Name Loc Type Details
.01 ADDITIVE 0;1 POINTER TO IV ADDITIVES FILE (#52.6) IV ADDITIVES(#52.6)

  • INPUT TRANSFORM:  S PSIVX=X,DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT<^(""I"")!'^(""I""),1:1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 21, 1991
  • DESCRIPTION:  
    The additive selected as part of the IV order.  This entry is a pointer to the ADDITIVES file (52.6).
  • SCREEN:  S DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT<^(""I"")!'^(""I""),1:1))"
  • EXPLANATION:  Choose an additive, an additive's synonym or an additives quick code.
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  53.157^B
    1)= S ^PS(53.1,DA(1),"AD","B",$E(X,1,30),DA)=""
    2)= K ^PS(53.1,DA(1),"AD","B",$E(X,1,30),DA)
1 STRENGTH 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'?.6N.".".8N!(X<0) X I $D(X) S X=X_" "_$$ENU^PSIVUTL(DRG(1)) D EN^DDIOL(" "_$P(X," ",2)_" ")
  • LAST EDITED:  JUN 25, 1991
  • DESCRIPTION:  "STRENGTH" is the amount of an additive to be used in the manufacturing of the IV order. NOTE! You will be expected to use the strength units that were previously defined within the IV ADDITIVE file (52.6) for each
    additive. For example, if the DRUG UNITS field of the IV ADDITIVES file specifies the units for ampicillin to be in grams, it would be incorrect to enter 500 for a half-gram dose. Enter 0.5 instead.
  • EXECUTABLE HELP:  D:X="??" ENTDRG^PSIVDRG D EN^DDIOL("Enter the strength"_$S($$ENU^PSIVUTL(DRG(1))]"":" in "_$$ENU^PSIVUTL(DRG(1))_"'s",1:"")_". Enter only a number.")
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 BOTTLE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X F PSIV=1:1 Q:'$D(X) Q:PSIV>$L(X,",") K:$P(X,",",PSIV)'?1N.N X
  • LAST EDITED:  MAY 21, 1991
  • HELP-PROMPT:  Enter the bottle #'s that this additive will be in. (Ex. '1' or '1,3' or for all bottles)
  • DESCRIPTION:  
    The bottle number(s) this additive will be included in for this IV order.
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details |  All