Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^ABSP(9002313.55

Package: Pharmacy Point of Sale

Global: ^ABSP(9002313.55


Information

FileMan FileNo FileMan Filename Package
9002313.55 ABSP DIAL OUT Pharmacy Point of Sale

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
Pharmacy Point of Sale 19 ABSPOS6B    ABSPOSA    ABSPOSAE    ABSPOSAM    ABSPOSAQ    ABSPOSC2    ABSPOSC4    ABSPOSCC
ABSPOSJ1    ABSPOSQ3    ABSPOSQ4    ABSPOSQG    ABSPOSQH    ABSPOSQJ    ABSPOSS5    ABSPOSSC
ABSPOSU6    ABSPOSUT    ABSPOSZ    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Pharmacy Point of Sale 2 ABSPOSA    ABSPOSJ1    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Pharmacy Point of Sale 4 ABSP SETUP(#9002313.99)[440.01]    ABSP INSURER(#9002313.4)[100.07]    ABSP TRANSACTION(#9002313.59)[802]    ABSP LOG OF TRANSACTIONS(#9002313.57)[802]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Pharmacy Point of Sale 1 ABSP MODEM TYPES(#9002313.54)[.02]    

Fields, Total: 24

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

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 12, 2010
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • AUDIT:  EDITED OR DELETED
  • CROSS-REFERENCE:  9002313.55^B
    1)= S ^ABSP(9002313.55,"B",$E(X,1,30),DA)=""
    2)= K ^ABSP(9002313.55,"B",$E(X,1,30),DA)
.02 MODEM TYPE 0;2 POINTER TO ABSP MODEM TYPES FILE (#9002313.54) ABSP MODEM TYPES(#9002313.54)

  • LAST EDITED:  APR 12, 2010
  • AUDIT:  EDITED OR DELETED
  • CROSS-REFERENCE:  9002313.55^AModemType
    1)= S ^ABSP(9002313.55,"AModemType",$E(X,1,30),DA)=""
    2)= K ^ABSP(9002313.55,"AModemType",$E(X,1,30),DA)
    used by file 9002313.54 computed field .99
.03 SWITCH TYPE 0;3 SET
  • 'NDC' FOR NDC;
  • 'ENVOY' FOR ENVOY;
  • 'DIRECT' FOR DIRECT;
  • 'OTHER' FOR OTHER;

  • LAST EDITED:  APR 12, 2010
  • AUDIT:  EDITED OR DELETED
.99 IN USE BY ANY INSURERS COMPUTED

  • MUMPS CODE:  S X=($D(^ABSPEI("ADialOut",D0))'=0)!($P(^ABSP(9002313.55,D0,0),U)="DEFAULT")!(D0=$P($G(^ABSP(9002313.99,1,"DIAL-OUT DEFAULT")),U))
  • ALGORITHM:  S X=($D(^ABSPEI("ADialOut",D0))'=0)!($P(^ABSP(9002313.55,D0,0),U)="DEFAULT")!(D0=$P($G(^ABSP(9002313.99,1,"DIAL-OUT DEFAULT")),U))
1 DESCRIPTION 1;0 WORD-PROCESSING #9002313.551
208 BAUD RATE BAUD;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<300)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 12, 2010
  • HELP-PROMPT:  Type a Number between 300 and 999999, 0 Decimal Digits
  • AUDIT:  EDITED OR DELETED
420.01 DEVICE # DEVICE;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 11, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
420.02 CONNECTION TYPE DEVICE;2 SET
  • '1' FOR TRADITIONAL MODEM;
  • '2' FOR TERMINAL SERVER TCP;
  • '3' FOR T1 LINE TO ENVOY;

  • LAST EDITED:  APR 12, 2010
  • DESCRIPTION:  
    Different communications routines for different kinds of connections, especially with the TCP and terminal server scheme.
  • AUDIT:  EDITED OR DELETED
420.03 CACHE DEVICE # DEVICE;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 12, 2010
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    IHS/SD/lwj 6/10/02  Cache device number for open and use commands
  • AUDIT:  EDITED OR DELETED
450.01 PHONE # DIAL;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 12, 2010
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    The phone number to dial, e.g., NDC's 800 number, or maybe direct # to a particular insurer.
  • AUDIT:  EDITED OR DELETED
567.01 EWAIT UNTIL ERROR WAIT;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 23, 2000
  • DESCRIPTION:  
    When waiting to retry after a communications error.
567.02 EWAIT BASE ERROR WAIT;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<15)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 2000
  • HELP-PROMPT:  Type a Number between 15 and 300, 0 Decimal Digits
  • DESCRIPTION:  
    Wait this many seconds the first time
567.03 EWAIT MULT ERROR WAIT;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<1)!(X?.E1"."4N.N) X
  • LAST EDITED:  JUN 23, 2000
  • HELP-PROMPT:  Type a Number between 1 and 10, 3 Decimal Digits
  • DESCRIPTION:  
    Each successive retry - multiply the wait time by this much.
567.04 EWAIT MAX ERROR WAIT;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>86400)!(X<15)!(X?.E1"."4N.N) X
  • LAST EDITED:  JUN 23, 2000
  • HELP-PROMPT:  Type a Number between 15 and 86400, 3 Decimal Digits
  • DESCRIPTION:  
    Maximum wait time between retries.  Should actually be a whole number.
567.05 EWAIT CURR ERROR WAIT;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>86400)!(X<15)!(X?.E1"."4N.N) X
  • LAST EDITED:  JUN 23, 2000
  • HELP-PROMPT:  Type a Number between 15 and 86400, 3 Decimal Digits
  • DESCRIPTION:  
    In the current wait-for-retry, how many seconds are we waiting?
1260 LOG FILE LOG FILE;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  AUG 30, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Pointer into ^ABSPECP("LOG",   which is NOT a Fileman file.  Maintained by ABSPOSQ3.  Referenced by ABSPOSU6.
1260.1 LOG FILE -1 LOG FILE;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  AUG 30, 2000
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
1260.2 LOG FILE -2 LOG FILE;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  AUG 30, 2000
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
1260.3 LOG FILE -3 LOG FILE;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  AUG 30, 2000
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    etc. etc.   We haven't defined all the fields, but ABSPOSQ3 is set up to maintain a FIFO list of up to ten log file pointers.
1425 NDC SYSTEM ID NDC;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAR 11, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Appears in the prefix to some messages to NDC.
1425.02 NDC MESSAGE PREFIX NDC;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  MAR 14, 2000
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    This is the prefix put on the message; typically to NDC.  When sending directly to PCS, for example, we don't have this prefix.  This might be the same as the NDC System ID?  Not sure.
1660.01 ETB PROTOCOL;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 12, 2010
  • DESCRIPTION:  
    The Envoy switch uses an ETB character - if we send ETB instead of ACK, it tells the switch that we have more messages coming after this one, and therefore Envoy should not send us an EOT.
  • AUDIT:  EDITED OR DELETED
2021.01 IP ADDRESS SERVER;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>32!($L(X)<1) X
  • LAST EDITED:  APR 12, 2010
  • HELP-PROMPT:  Answer must be 1-32 characters in length.
  • DESCRIPTION:  
    Terminal server name, used in the OPEN command parameters.
  • AUDIT:  EDITED OR DELETED
2021.02 TCP PORT NUMBER SERVER;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>31!($L(X)<1) X
  • LAST EDITED:  APR 12, 2010
  • HELP-PROMPT:  Answer must be 1-31 characters in length.
  • AUDIT:  EDITED OR DELETED
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All