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

Package: Remote Order Entry System

STATION ORDER(#791810)-->791810.0101-->791810.101102

Sub-Field: 791810.101102


Information

Parent File Name Number Package
791810.0101 COMPONENT 791810.101102 Remote Order Entry System

Details

Field # Name Loc Type Details
.01 COMPONENT 0;1 POINTER TO HEARING AID COMPONENTS FILE (#791811.2) HEARING AID COMPONENTS(#791811.2)

  • LAST EDITED:  NOV 12, 1991
  • DESCRIPTION:  
    This field contains a component that may be added to a custom hearing aid.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  791810.101102^B
    1)= S ^RMPF(791810,DA(2),101,DA(1),102,"B",$E(X,1,30),DA)=""
    2)= K ^RMPF(791810,DA(2),101,DA(1),102,"B",$E(X,1,30),DA)
    Standard name cross-reference.
  • CROSS-REFERENCE:  791810.101102^AC^MUMPS
    1)= D COST^RMPFUTL
    2)= D COSTKILL^RMPFUTL
    This cross-reference sets the current cost of the component into the 'Cost of Component' field.
.02 PRICE OF COMPONENT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"."5N.N) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,0,2)
  • LAST EDITED:  OCT 07, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99999.9999, 4 Decimal Digits
  • DESCRIPTION:  
    This field contains the cost of the component at the time it was ordered.
    UNEDITABLE
.03 TYPE OF ENTRY 0;3 SET

  • LAST EDITED:  SEP 09, 1991
  • DESCRIPTION:  
    This field contains an indicator of whether the component was entered as part of an order, a deletion or and addition.
.04 RELATED ORDER 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 1991
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  This field contains the internal number of the component order to which this component order relates. It will be the same as the internal number for this order if the entry is an original order. It will be the
    internal number of the related entry if this is an adjustment.
.05 USER MAKING ADJUSTMENT 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 05, 1991
  • DESCRIPTION:  
    This field contains the name of the user making an adjustment.
.06 DATE/TIME OF ADJUSTMENT 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 05, 1991
  • DESCRIPTION:  
    This field contains the date and time that an adjustment was made.
.07 REASON FOR ADJUSTMENT 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1) X
  • LAST EDITED:  SEP 05, 1991
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
  • DESCRIPTION:  
    This field contains the reason for making the adjustment.
Info |  Details |  All