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: 55.02

Package: Pharmacy Data Management

PHARMACY PATIENT(#55)-->55.01-->55.02

Sub-Field: 55.02


Information

Parent File Name Number Package
55.01 ADDITIVE 55.02 Pharmacy Data Management

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:  NOV 23, 1987
  • DESCRIPTION:  
    This is the additive which was selected as part of the IV order.  This entry is a pointer to the ADDITIVES file (52.6).
  • SCREEN:  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))"
  • EXPLANATION:  Choose an additive, an additive's synonym, or an additive's quick code.
  • EXECUTABLE HELP:  S DIC("W")="I 1 D ENQUI^PSIV"
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  55.02^AC^MUMPS
    1)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENTO^PSIVAL
    2)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENFR^PSIVAL
    Used by IV Package.
.02 STRENGTH 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'?.6N.".".8N!(X<0) X I $D(X) D ENU^PSIV S X=X_" "_PSIVSTR W " ",PSIVSTR
  • LAST EDITED:  MAR 21, 1990
  • DESCRIPTION:  'STRENGTH' is the amount of an additive that is used in the manufacturing of the IV order. NOTE! You'll be expected to use the strength units that have been previously defined within the additive file (52.6) for
    each additive.  That is to say, if the additive file expects AMPICILLIN to be dispensed in 'GMS', it would not be correct for you to enter '500' for a half-gram dose -- enter 0.5 instead.
  • EXECUTABLE HELP:  D:X="??" ENTDRG^PSIVDRG D ENU^PSIV W !,"Enter the strength"_$S($D(PSIVSTR):" in "_PSIVSTR_"'s",1:"")_". Enter only a number.",!
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  55.02^AD^MUMPS
    1)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENTO^PSIVAL
    2)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENFR^PSIVAL
    Used by IV Package.
.03 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:  NOV 18, 1985
  • HELP-PROMPT:  Enter the bottle #'s that this additive will be in. (Ex. '1' or '1,3' or for all bottles)
  • DESCRIPTION:  
    Enter the bottle no.(s) in which this additive will be included in for this IV order.
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  55.02^AE^MUMPS
    1)= Q:$D(PSIVACT)  S PSIVF1=55.02,PSIVF2=.03 D ENTO^PSIVAL
    2)= Q:$D(PSIVACT)  S PSIVF1=55.02,PSIVF2=.03 D ENFR^PSIVAL
    Used by IV Package.
Info |  Details |  All