Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BOP(90355.35

Package: IHS Omnicell Pyxis Interface

Global: ^BOP(90355.35


Information

FileMan FileNo FileMan Filename Package
90355.35 BOP IV IHS Omnicell Pyxis Interface

Description

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Pharmacy Data Management 2 IV ADDITIVES(#52.6)[#90355.351(.01)]    IV SOLUTIONS(#52.7)[2.01]    
Registration 1 VA PATIENT(#2)[.02]    

Fields, Total: 9

Field # Name Loc Type Details
.01 IV ORDER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  NOV 15, 2004
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: #
    WRITE AUTHORITY:  #
    READ AUTHORITY:   #
  • CROSS-REFERENCE:  90355.35^B
    1)= S ^BOP(90355.35,"B",$E(X,1,30),DA)=""
    2)= K ^BOP(90355.35,"B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • LAST EDITED:  FEB 26, 1999
  • CROSS-REFERENCE:  90355.35^AA^MUMPS
    1)= I $P(^BOP(90355.35,DA,0),U,3) S ^BOP(90355.35,"AA",X,(9999999-$P($P(^BOP(90355.35,DA,0),U,3),".",1)),DA)=""
    2)= I $P(^BOP(90355.35,DA,0),U,3) K ^BOP(90355.35,"AA",X,(9999999-$P($P(^BOP(90355.35,DA,0),U,3),".",1)),DA)
.03 DATE VENDED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 26, 1999
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90355.35^AATOO^MUMPS
    1)= I $P(^BOP(90355.35,DA,0),U,2) S ^BOP(90355.35,"AA",$P(^BOP(90355.35,DA,0),U,2),(9999999-$P(X,".",1)),DA)=""
    2)= I $P(^BOP(90355.35,DA,0),U,2) K ^BOP(90355.35,"AA",$P(^BOP(90355.35,DA,0),U,2),(9999999-$P(X,".",1)),DA)
.04 ORDER NUMBER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  FEB 26, 1999
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
.05 TRANSACTION QUANTITY 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<-999)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 26, 1999
  • HELP-PROMPT:  Type a Number between -999 and 999, 0 Decimal Digits
.08 BILLING STATUS 0;8 SET
  • 'R' FOR READY FOR BILLING;
  • 'B' FOR BILLED;

  • LAST EDITED:  FEB 26, 1999
  • CROSS-REFERENCE:  90355.35^AB
    1)= S ^BOP(90355.35,"AB",$E(X,1,30),DA)=""
    2)= K ^BOP(90355.35,"AB",$E(X,1,30),DA)
1 ADDITIVES AD;0 POINTER Multiple #90355.351 90355.351
2.01 SOLUTION SOL;1 POINTER TO IV SOLUTIONS FILE (#52.7) IV SOLUTIONS(#52.7)

  • LAST EDITED:  FEB 26, 1999
2.02 VOLUME SOL;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  FEB 26, 1999
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All