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

Package: Pharmacy Data Management

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

Sub-Field: 55.11


Information

Parent File Name Number Package
55.01 SOLUTION 55.11 Pharmacy Data Management

Details

Field # Name Loc Type Details
.01 SOLUTION 0;1 POINTER TO IV SOLUTIONS FILE (#52.7) IV SOLUTIONS(#52.7)

  • INPUT TRANSFORM:  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))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 27, 1988
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    This is the solution entered as part of the specified IV order.
  • 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 a solution or a solution's synonym.
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  55.11^AC^MUMPS
    1)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENTO^PSIVAL
    2)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENFR^PSIVAL
    Used by IV Package.
1 VOLUME 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!(X'=+X)!(X>3000)!(X<.01) X I $D(X) S X=X_" ML" W " ML"
  • LAST EDITED:  MAR 14, 1988
  • HELP-PROMPT:  Answer must be a number from .01-3000.
  • DESCRIPTION:  
    This field represents the volume of this solution in MLs.  Only a number can be entered into this field.  The total volume of an IV ORDER is all the solution's volumes added together.
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  55.11^AD^MUMPS
    1)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENTO^PSIVAL
    2)= Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENFR^PSIVAL
    Used by IV Package.
Info |  Details |  All