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: ^ABSPTL

Package: Pharmacy Point of Sale

Global: ^ABSPTL


Information

FileMan FileNo FileMan Filename Package
9002313.57 ABSP LOG OF TRANSACTIONS Pharmacy Point of Sale

Description

Directly Accessed By Routines, Total: 37

Package Total Routines
Pharmacy Point of Sale 35 ABSPOS57    ABSPOSB    ABSPOSB8    ABSPOSBB    ABSPOSBD    ABSPOSBF    ABSPOSBM    ABSPOSBV
ABSPOSBW    ABSPOSBX    ABSPOSEX    ABSPOSF    ABSPOSFA    ABSPOSFB    ABSPOSFC    ABSPOSFD
ABSPOSFP    ABSPOSK    ABSPOSK1    ABSPOSK2    ABSPOSM    ABSPOSM1    ABSPOSM2    ABSPOSMB
ABSPOSMC    ABSPOSN2    ABSPOSN3    ABSPOSPE    ABSPOSQB    ABSPOSR5    ABSPOSR9    ABSPOSRT
ABSPOSRY    ABSPOSRZ    ABSPOSU    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 19

Package Total Routines
Pharmacy Point of Sale 17 ABSPOSBB    ABSPOSBM    ABSPOSBP    ABSPOSBQ    ABSPOSBT    ABSPOSBW    ABSPOSBX    ABSPOSF
ABSPOSFA    ABSPOSK1    ABSPOSM1    ABSPOSMC    ABSPOSMF    ABSPOSR9    ABSPOSRY    ABSPOSU
ABSPOSX    
IHS Changes To Pharmacy 1 APSPFUNC    
Outpatient Pharmacy 1 PSORXED    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Pharmacy Point of Sale 1 ABSP REPORT MASTER(#9002313.61)[.03]    

Pointer To FileMan Files, Total: 13

Package Total FileMan Files
Pharmacy Point of Sale 9 ABSP DUR/PPS(#9002313.473)[1.14]    ABSP DIAGNOSIS CODE(#9002313.491)[1.17]    ABSP NCPDP OVERRIDE(#9002313.511)[1.13]    ABSP ORIGIN OF INPUT(#9002313.516)[.14]    ABSP DIAL OUT(#9002313.55)[802]    ABSP PHARMACIES(#9002313.56)[1.07]    ABSP CLAIMS(#9002313.02)[3, 401]    ABSP INSURER(#9002313.4)[803]    ABSP RESPONSES(#9002313.03)[4, 402]    
IHS Patient 1 PATIENT(#9000001)[5]    
Kernel 1 NEW PERSON(#200)[6, 13, 903, 905]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[1.11]    
Utility Tables 1 INSURER(#9999999.18)[1.06, 701, 702, 703]    

Fields, Total: 239

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 15, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  9002313.57^B
    1)= S ^ABSPTL("B",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("B",$E(X,1,30),DA)
.13 TYPE 0;13 SET
  • '1' FOR PRESCRIPTION;
  • '2' FOR POSTAGE FOR PRESCRIPTION;
  • '3' FOR NON-PRESCRIPTION;

  • LAST EDITED:  JAN 05, 2001
.14 ORIGIN 0;14 POINTER TO ABSP ORIGIN OF INPUT FILE (#9002313.516) ABSP ORIGIN OF INPUT(#9002313.516)

  • LAST EDITED:  NOV 17, 2000
.15 POSTED TO A/R 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 05, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    What the individual interface's $$ posting routine returns to ABSPOSBB.
  • CROSS-REFERENCE:  9002313.57^AR
    1)= S ^ABSPTL("AR",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AR",$E(X,1,30),DA)
.16 NEEDS BILLING 0;16 SET
  • '1' FOR YES;
  • '0' FOR NO (DONE);

  • LAST EDITED:  JAN 24, 2001
  • DESCRIPTION:  
    Set by transaction completion (ABSPOSBC).  Cleared by background job after posting done (ABSPOSBD).
  • CROSS-REFERENCE:  9002313.57^AS
    1)= S ^ABSPTL("AS",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AS",$E(X,1,30),DA)
1 STATUS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Should always be 99 (complete) here in file 9002313.57.
1.05 ABSBDIV SOURCE 1;5 SET
  • '1' FOR 59 OUTPATIENT SITE;
  • '2' FOR 59.4 INPATIENT SITE;

  • LAST EDITED:  APR 18, 2000
1.06 INSURER 1;6 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  NOV 11, 2000
  • CROSS-REFERENCE:  9002313.57^AI
    1)= S ^ABSPTL("AI",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AI",$E(X,1,30),DA)
1.07 PHARMACY 1;7 POINTER TO ABSP PHARMACIES FILE (#9002313.56) ABSP PHARMACIES(#9002313.56)

  • LAST EDITED:  APR 18, 2000
1.08 PINS PIECE 1;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 30, 2001
  • HELP-PROMPT:  Type a Number between 1 and 9, 0 Decimal Digits
  • DESCRIPTION:  
    See 9002313.59 description of field 1.08
1.09 PREAUTHORIZATION # 1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
1.11 ABSBRXI 1;11 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  JUL 11, 2000
1.1199 RXI-INTERNAL COMPUTED

  • MUMPS CODE:  S Y(9002313.57,1.1199,1)=$S($D(^ABSPTL(D0,1)):^(1),1:"") S X=$P(Y(9002313.57,1.1199,1),U,11),X=X
  • ALGORITHM:  INTERNAL(ABSBRXI)
1.12 RESUBMIT AFTER REVERSAL 1;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 30, 2001
  • DESCRIPTION:  
    see file 9002313.59 field 1.12
1.13 NCPDP OVERRIDES 1;13 POINTER TO ABSP NCPDP OVERRIDE FILE (#9002313.511) ABSP NCPDP OVERRIDE(#9002313.511)

  • LAST EDITED:  MAR 30, 2001
  • DESCRIPTION:  
    See file 9002313.59 field 1.13
1.14 DUR/PPS POINTER 1;14 POINTER TO ABSP DUR/PPS FILE (#9002313.473) ABSP DUR/PPS(#9002313.473)

  • LAST EDITED:  JUN 02, 2005
  • DESCRIPTION:  
    Pointer to the ABSP DUR/PPS override file for this transaction
1.15 PRIOR AUTHORIZATION TYPE CODE 1;15 SET
  • '0' FOR Not Specified;
  • '1' FOR Prior Authorization;
  • '2' FOR Medical Certification;
  • '3' FOR EPSDT;
  • '4' FOR Exemption from Copay;
  • '5' FOR Exemption from RX;
  • '6' FOR Family Plan. Indic.;
  • '7' FOR AFDC;
  • '8' FOR Payer Defined Exemption;
  • '9' FOR Emergency Preparedness;

  • LAST EDITED:  SEP 30, 2011
1.16 COB-OTHER PAYMENTS POINTER 1;16 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAR 20, 2010
1.17 DIAGNOSIS CODE POINTER 1;17 POINTER TO ABSP DIAGNOSIS CODE FILE (#9002313.491) ABSP DIAGNOSIS CODE(#9002313.491)

  • LAST EDITED:  JUN 20, 2007
2 PCN 0;3 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JUL 25, 2000
  • DESCRIPTION:  
    Pointer, actually, to 9002302, BILLING ITEMS
  • CROSS-REFERENCE:  9002313.57^C
    1)= S ^ABSPTL("C",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("C",$E(X,1,30),DA)
2.0099 PCN-INTERNAL COMPUTED

  • MUMPS CODE:  S Y(9002313.57,2.0099,1)=$S($D(^ABSPTL(D0,0)):^(0),1:"") S X=$P(Y(9002313.57,2.0099,1),U,3),X=X
  • ALGORITHM:  INTERNAL(PCN)
3 CLAIM 0;4 POINTER TO ABSP CLAIMS FILE (#9002313.02) ABSP CLAIMS(#9002313.02)

  • LAST EDITED:  NOV 11, 2000
  • CROSS-REFERENCE:  9002313.57^AE
    1)= S ^ABSPTL("AE",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AE",$E(X,1,30),DA)
3.1 CLAIM IEN COMPUTED

  • MUMPS CODE:  S Y(9002313.57,3.1,1)=$S($D(^ABSPTL(D0,0)):^(0),1:"") S X=$P(Y(9002313.57,3.1,1),U,4),X=X
  • ALGORITHM:  INTERNAL(CLAIM)
4 RESPONSE 0;5 POINTER TO ABSP RESPONSES FILE (#9002313.03) ABSP RESPONSES(#9002313.03)

  • LAST EDITED:  NOV 11, 2000
  • CROSS-REFERENCE:  9002313.57^AF
    1)= S ^ABSPTL("AF",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AF",$E(X,1,30),DA)
4.0098 RESULT WITH REVERSAL COMPUTED

  • MUMPS CODE:  S X=$$CATEG^ABSPOSUC(D0,1)
  • ALGORITHM:  S X=$$CATEG^ABSPOSUC(D0,1)
4.0099 RESULT COMPUTED

  • MUMPS CODE:  S X=$$CATEG^ABSPOSUC(D0)
  • ALGORITHM:  S X=$$CATEG^ABSPOSUC(D0)
  • LAST EDITED:  NOV 15, 2000
4.1 RESPONSE IEN COMPUTED

  • MUMPS CODE:  S Y(9002313.57,4.1,1)=$S($D(^ABSPTL(D0,0)):^(0),1:"") S X=$P(Y(9002313.57,4.1,1),U,5),X=X
  • ALGORITHM:  INTERNAL(RESPONSE)
5 PATIENT 0;6 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  JAN 30, 2001
  • CROSS-REFERENCE:  9002313.57^AC
    1)= S ^ABSPTL("AC",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AC",$E(X,1,30),DA)
6 UPDATED BY USER 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 27, 2009
7 LAST UPDATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 11, 2000
  • DESCRIPTION:  
    Date/time the POS transaction completed processing, as copied from 9002313.59 at the time the .57 record was created.
  • CROSS-REFERENCE:  9002313.57^AH
    1)= S ^ABSPTL("AH",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AH",$E(X,1,30),DA)
8 VCPT 1;3 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  APR 18, 2000
8.0099 VCPT-INTERNAL COMPUTED

  • MUMPS CODE:  S Y(9002313.57,8.0099,1)=$S($D(^ABSPTL(D0,1)):^(1),1:"") S X=$P(Y(9002313.57,8.0099,1),U,3),X=X
  • ALGORITHM:  INTERNAL(VCPT)
9 ABSBRXR 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    Point to refill multiple in ^PSRX file 52
10 ABSBNDC 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
10.0099 USER-INTERNAL COMPUTED

  • MUMPS CODE:  S Y(9002313.57,10.0099,1)=$S($D(^ABSPTL(D0,0)):^(0),1:"") S X=$P(Y(9002313.57,10.0099,1),U,10),X=X
  • ALGORITHM:  INTERNAL(USER)
11 ABSBDIV 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
12 ABSBVISI 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Pointer to 9000010 VISIT
13 USER 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 11, 2000
  • DESCRIPTION:  
    Who created the POS claim
  • CROSS-REFERENCE:  9002313.57^AG
    1)= S ^ABSPTL("AG",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AG",$E(X,1,30),DA)
14 POSITION IN CLAIM 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Type a Number between 1 and 9, 0 Decimal Digits
  • DESCRIPTION:  
    This is the D1 subscript into 9002313.02 and .03
15 START TIME 0;11 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 2000
16 COMMS LOG 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Points to ^ABSPECP("LOG",*
201 RESULT CODE 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
202 RESULT TEXT 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>222!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-222 characters in length.
301 CANCELLATION REQUESTED 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
302 CANCELED DURING STATUS 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  MAR 30, 2001
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    See file 9002313.59 field 302
401 REVERSAL CLAIM 4;1 POINTER TO ABSP CLAIMS FILE (#9002313.02) ABSP CLAIMS(#9002313.02)

  • LAST EDITED:  NOV 11, 2000
  • CROSS-REFERENCE:  9002313.57^AER
    1)= S ^ABSPTL("AER",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AER",$E(X,1,30),DA)
402 REVERSAL RESPONSE 4;2 POINTER TO ABSP RESPONSES FILE (#9002313.03) ABSP RESPONSES(#9002313.03)

  • LAST EDITED:  NOV 11, 2000
  • CROSS-REFERENCE:  9002313.57^AFR
    1)= S ^ABSPTL("AFR",$E(X,1,30),DA)=""
    2)= K ^ABSPTL("AFR",$E(X,1,30),DA)
403 PAPER REVERSAL 4;3 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 30, 2001
  • DESCRIPTION:  
    Non-electronic - i.e., paper - claims can be reversed.  Instead of pointers to electronic claim and response in fields 401, 402, you have the flag 1 here in field 403.
404 RXREASON 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  APR 17, 2009
  • HELP-PROMPT:  Answer must be 1-50 characters in length
  • DESCRIPTION:  
    PASSED BY OUTPATIENT PHARMACY 7.0 TO INDICATE THE REASON WHY A PRESCRIPTION WAS RETURNED TO STOCK FOR IHS 3PB
501 QUANTITY 5;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 3 Decimal Digits
502 UNIT PRICE 5;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."9N.N) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 8 Decimal Digits
503 SUBTOTAL 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."9N.N) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 8 Decimal Digits
504 DISPENSING FEE 5;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>100)!(X<0) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 100, 2 Decimal Digits
505 TOTAL PRICE 5;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 2 Decimal Digits
506 PRICE MANUALLY ENTERED 5;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 30, 2001
  • DESCRIPTION:  
    See file 9002313.59 field 506.
507 INCENTIVE AMOUNT SUBMITTED 5;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>1000)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  NOV 13, 2008
  • HELP-PROMPT:  Type a Dollar amount between 0 and 1000, 2 Decimal Digits
601 PINS 1 6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
602 PINS 2 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
603 PINS 3 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
701 INSURER 1 7;1 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  APR 18, 2000
702 INSURER 2 7;2 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  APR 18, 2000
703 INSURER 3 7;3 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  APR 18, 2000
801 RETRY AFTER 8;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 30, 2001
  • DESCRIPTION:  
    See file 9002313.59 field 801
802 RETRY ON DIAL OUT 8;2 POINTER TO ABSP DIAL OUT FILE (#9002313.55) ABSP DIAL OUT(#9002313.55)

  • LAST EDITED:  MAR 30, 2001
  • DESCRIPTION:  
    See file 9002313.59 field 802
803 RETRY SLEEPING INSURER 8;3 POINTER TO ABSP INSURER FILE (#9002313.4) ABSP INSURER(#9002313.4)

  • LAST EDITED:  MAR 30, 2001
  • DESCRIPTION:  
    See file 9002313.59 field 803.
901 CLOSED STATUS 9;1 SET
  • '0' FOR OPEN;
  • '1' FOR CLOSED;

  • LAST EDITED:  FEB 18, 2010
  • HELP-PROMPT:  (No range limit on date)
902 CLOSED DATE 9;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  FEB 18, 2010
  • HELP-PROMPT:  (No range limit on date)
903 CLOSED BY USER 9;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 18, 2010
904 RE-OPEN DATE 9;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  FEB 18, 2010
  • HELP-PROMPT:  (No range limit on date)
905 RE-OPEN BY USER 9;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 18, 2010
906 CLOSED REASON 9;6 SET
  • 'C' FOR Claim Too Old;
  • 'R' FOR Refill Too Soon;
  • 'P' FOR Plan Limitation Exceeded;
  • 'X' FOR Product Not Covered;

  • LAST EDITED:  AUG 19, 2010
9999.92 HRN & FAC COMPUTED

  • MUMPS CODE:  N IEN57 S IEN57=D0,X=$$HRN^ABSPOS57
  • ALGORITHM:  N IEN57 S IEN57=D0,X=$$HRN^ABSPOS57
9999.93 DRUG NAME COMPUTED

  • MUMPS CODE:  N IEN57 S IEN57=D0,X=$$DRGNAME^ABSPOS57
  • ALGORITHM:  N IEN57 S IEN57=D0,X=$$DRGNAME^ABSPOS57
9999.94 DRUG IEN COMPUTED

  • MUMPS CODE:  N IEN57 S IEN57=D0,X=$$DRGDFN^ABSPOS57
  • ALGORITHM:  N IEN57 S IEN57=D0,X=$$DRGDFN^ABSPOS57
9999.95 RELEASED DATE/TIME (INT) COMPUTED

  • MUMPS CODE:  N IEN57 S IEN57=D0,X=$$RELDATE^ABSPOS57
  • ALGORITHM:  N IEN57 S IEN57=D0,X=$$RELDATE^ABSPOS57
  • LAST EDITED:  APR 10, 2001
9999.96 NET PAID BY INSURER COMPUTED

  • MUMPS CODE:  N RESP,POSITION S X=$G(^ABSPTL(D0,0)),RESP=$P(X,U,5),POSITION=$P(X,U,9),X=$S(RESP&POSITION:$$NETPAID1^ABSPOS03(RESP,POSITION),1:"")
  • ALGORITHM:  N RESP,POSITION S X=$G(^ABSPTL(D0,0)),RESP=$P(X,U,5),POSITION=$P(X,U,9),X=$S(RESP&POSITION:$$NETPAID1^ABSPOS03(RESP,POSITION),1:"")
  • LAST EDITED:  FEB 06, 2001
9999.97 ELAPSED TIME (PRINTABLE) COMPUTED

  • MUMPS CODE:  S X=$G(^ABSPTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIF^ABSPOSUD(X11,X8),1:"")
  • ALGORITHM:  S X=$G(^ABSPTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIF^ABSPOSUD(X11,X8),1:"")
  • LAST EDITED:  FEB 06, 2001
9999.98 ELAPSED TIME (SECONDS) COMPUTED

  • MUMPS CODE:  S X=$G(^ABSPTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIFI^ABSPOSUD(X11,X8),1:"")
  • ALGORITHM:  S X=$G(^ABSPTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIFI^ABSPOSUD(X11,X8),1:"")
  • LAST EDITED:  OCT 20, 2000
9999.99 RESULT CATEGORY COMPUTED

  • MUMPS CODE:  S X=$$CATEG^ABSPOSUC(D0)
  • ALGORITHM:  S X=$$CATEG^ABSPOSUC(D0)
  • LAST EDITED:  NOV 15, 2000
10101 BIN NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(101)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(101)
10102 VERSION/RELEASE NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(102)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(102)
10103 TRANSACTION CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(103)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(103)
10104 PROCESSOR CONTROL NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(104)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(104)
10201 PHARMACY NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(201)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(201)
10301 GROUP NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(301)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(301)
10302 CARDHOLDER ID NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(302)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(302)
10303 PERSON CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(303)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(303)
10304 DATE OF BIRTH COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(304)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(304)
10305 SEX CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(305)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(305)
10306 RELATIONSHIP CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(306)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(306)
10307 CUSTOMER LOCATION COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(307)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(307)
10308 OTHER COVERAGE CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(308)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(308)
10309 ELIGIBILITY CLARIFICATION CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(309)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(309)
10310 PATIENT FIRST NAME COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(310)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(310)
10311 PATIENT LAST NAME COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(311)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(311)
10312 CARDHOLDER FIRST NAME COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(312)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(312)
10313 CARDHOLDER LAST NAME COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(313)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(313)
10314 HOME PLAN COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(314)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(314)
10315 EMPLOYER NAME COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(315)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(315)
10316 EMPLOYER STREET ADDRESS COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(316)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(316)
10317 EMPLOYER CITY ADDRESS COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(317)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(317)
10318 EMPLOYER STATE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(318)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(318)
10319 EMPLOYER ZIP CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(319)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(319)
10320 EMPLOYER PHONE NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(320)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(320)
10321 EMPLOYER CONTACT NAME COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(321)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(321)
10322 PATIENT STREET ADDRESS COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(322)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(322)
10323 PATIENT CITY ADDRESS COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(323)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(323)
10324 PATIENT STATE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(324)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(324)
10325 PATIENT ZIP CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(325)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(325)
10326 PATIENT PHONE NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(326)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(326)
10327 CARRIER ID NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(327)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(327)
10328 PATIENT WEIGHT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(328)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(328)
10329 PATIENT SSN COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(329)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(329)
10401 DATE FILLED COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(401)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(401)
10402 PRESCRIPTION NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(402)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(402)
10403 NEW/REFILL CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(403)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(403)
10404 METRIC QUANTITY COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(404)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(404)
10405 DAYS SUPPLY COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(405)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(405)
10406 COMPOUND CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(406)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(406)
10407 NDC NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(407)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(407)
10408 DISPENSE AS WRITTEN COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(408)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(408)
10409 INGREDIENT COST COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(409)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(409)
  • LAST EDITED:  APR 05, 2001
10410 SALES TAX COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(410)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(410)
10411 PRESCRIBER ID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(411)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(411)
10412 DISPENSING FEE SUBMITTED COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(412)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(412)
10414 DATE PRESCRIPTION WRITTEN COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(414)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(414)
10415 NUMBER OF REFILLS AUTHORIZED COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(415)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(415)
10416 PRIOR AUTH/MC CODE AND NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(416)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(416)
10418 LEVEL OF SERVICE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(418)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(418)
10419 PRESCRIPTION ORIGIN CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(419)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(419)
10420 PRESCRIPTION CLARIFICATION COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(420)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(420)
10421 PRIMARY PRESCRIBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(421)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(421)
10422 CLINIC ID NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(422)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(422)
10423 BASIS OF COST DETERMINATION COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(423)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(423)
10424 DIAGNOSIS CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(424)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(424)
10425 DRUG TYPE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(425)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(425)
10426 USUAL AND CUSTOMARY CHARGE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(426)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(426)
  • LAST EDITED:  APR 05, 2001
10427 PRESCRIBER LAST NAME COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(427)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(427)
10428 POSTAGE AMOUNT CLAIMED COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(428)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(428)
10429 UNIT DOSE INDICATOR COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(429)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(429)
10430 GROSS AMOUNT DUE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(430)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(430)
10431 OTHER PAYOR AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(431)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(431)
10432 BASIS OF DAYS SUPPLY DET COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(432)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(432)
10433 PATIENT PAID AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(433)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(433)
10434 DATE OF INJURY COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(434)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(434)
10435 CLAIM/REF ID NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(435)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(435)
10436 ALT. PRODUCT TYPE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(436)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(436)
10437 ALT. PRODUCT CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(437)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(437)
10438 INCENTIVE AMOUNT SUBMITTED COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(438)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(438)
10439 DUR CONFLICT CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(439)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(439)
10440 DUR INTERVENTION CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(440)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(440)
10441 DUR OUTCOME CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(441)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(441)
10442 METRIC DECIMAL QUANTITY COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(442)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(442)
10443 OTHER PAYOR DATE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(443)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(443)
10444 PHARMACIST ID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(444)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(444)
10501 RESPONSE STATUS COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(501)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(501)
10503 AUTHORIZATION NUMBER COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(503)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(503)
10504 MESSAGE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(504)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(504)
10505 PATIENT PAY AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(505)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(505)
  • LAST EDITED:  APR 05, 2001
10506 INGREDIENT COST PAID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(506)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(506)
10507 CONTRACT FEE PAID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(507)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(507)
10508 SALES TAX PAID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(508)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(508)
10509 TOTAL AMOUNT PAID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(509)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(509)
10510 REJECT COUNT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(510)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(510)
10511 REJECT CODES COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511)
10511.01 REJECT CODE #1 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.01)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.01)
10511.02 REJECT CODE #2 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.02)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.02)
10511.03 REJECT CODE #3 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.03)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.03)
10511.04 REJECT CODE #4 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.04)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.04)
10511.05 REJECT CODE #5 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.05)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.05)
10511.06 REJECT CODE #6 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.06)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.06)
10511.07 REJECT CODE #7 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.07)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.07)
10511.08 REJECT CODE #8 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.08)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.08)
10511.09 REJECT CODE #9 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.09)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.09)
10511.1 REJECT CODE #10 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.1)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.1)
10511.11 REJECT CODE #11 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.11)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.11)
  • LAST EDITED:  APR 05, 2001
10511.12 REJECT CODE #12 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.12)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.12)
10511.13 REJECT CODE #13 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.13)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.13)
10511.14 REJECT CODE #14 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.14)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.14)
10511.15 REJECT CODE #15 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.15)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.15)
10511.16 REJECT CODE #16 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.16)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.16)
10511.17 REJECT CODE #17 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.17)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.17)
10511.18 REJECT CODE #18 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.18)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.18)
10511.19 REJECT CODE #19 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.19)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.19)
10511.2 REJECT CODE #20 COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(511.2)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(511.2)
10512 ACCUMULATED DEDUCTIBLE AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(512)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(512)
10513 REMAINING DEDUCTIBLE AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(513)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(513)
10514 REMAINING BENEFIT AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(514)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(514)
10515 POSTAGE AMOUNT PAID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(515)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(515)
10516 DRUG DESCRIPTION COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(516)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(516)
10517 AMOUNT APP TO PER DEDUCTIBLE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(517)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(517)
10518 AMOUNT OF CO-PAY/CO-INSURANCE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(518)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(518)
10519 AMOUNT ATTR TO PRODUCT SELECT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(519)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(519)
10520 AMOUNT EXCEED PER BENEFIT MAX COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(520)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(520)
10521 INCENTIVE FEE PAID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(521)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(521)
  • LAST EDITED:  APR 05, 2001
10522 BASIS OF REIMBURSEMENT DET COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(522)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(522)
10523 AMOUNT ATTRIBUTED TO SALES TAX COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(523)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(523)
10524 PLAN ID COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(524)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(524)
10525 DUR RESPONSE DATA COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(525)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(525)
10525.01 DUR COUNT COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.01,9.5) S X=$S(Y(9002313.57,10525.01,2):Y(9002313.57,10525.01,3),Y(9002313.57,10525.01,5):Y(9002313.57,10525.01,6),Y(9002313.57,10525.01,8):Y(9002313.57,10525.01,9),Y(9002313.57,10525.01,10):X)
    9.2 = X $P(^DD(9002313.57,10525.1,0),U,5,99) S Y(9002313.57,10525.01,1)=X X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.01,4)=X
    9.3 = X ^DD(9002313.57,10525.01,9.2) X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.01,7)=X S X=Y(9002313.57,10525.01,1)="",Y(9002313.57,10525.01,2)=X S X=0
    9.4 = X ^DD(9002313.57,10525.01,9.3) S Y(9002313.57,10525.01,3)=X S X=Y(9002313.57,10525.01,4)="",Y(9002313.57,10525.01,5)=X S X=1,Y(9002313.57,10525.01,6)=X
    9.5 = X ^DD(9002313.57,10525.01,9.4) S X=Y(9002313.57,10525.01,7)="",Y(9002313.57,10525.01,8)=X S X=2,Y(9002313.57,10525.01,9)=X S X=1,Y(9002313.57,10525.01,10)=X S X=3
  • ALGORITHM:  $S(DUR #1 RAW DATA="":0,DUR #2 RAW DATA="":1,DUR #3 RAW DATA="":2,1:3)
10525.1 DUR #1 RAW DATA COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1,9.5) S X=$S(Y(9002313.57,10525.1,4):Y(9002313.57,10525.1,5),Y(9002313.57,10525.1,6):X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1,1)=X S X=Y(9002313.57,10525.1,1),Y(9002313.57,10525.1,2)=X S X=1,Y(9002313.57,10525.1,3)=X S X=2
    9.3 = X ^DD(9002313.57,10525.1,9.2) S X=$E(Y(9002313.57,10525.1,2),Y(9002313.57,10525.1,3),X)="  ",Y(9002313.57,10525.1,4)=X S X="",Y(9002313.57,10525.1,5)=X S X=1
    9.4 = X ^DD(9002313.57,10525.1,9.3) S Y(9002313.57,10525.1,6)=X,Y(9002313.57,10525.1,7)=X S X=Y(9002313.57,10525.1,1),Y(9002313.57,10525.1,8)=X S X=1
    9.5 = X ^DD(9002313.57,10525.1,9.4) S Y(9002313.57,10525.1,9)=X S X=53,X=$E(Y(9002313.57,10525.1,8),Y(9002313.57,10525.1,9),X)
  • ALGORITHM:  $S($E(DUR RESPONSE DATA,1,2)=" ":"",1:$E(DUR RESPONSE DATA,1,53))
10525.1439 DUR #1 DRUG CONFLICT CODE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1439,9.2) S Y(9002313.57,10525.1439,3)=X S X=2,X=$E(Y(9002313.57,10525.1439,2),Y(9002313.57,10525.1439,3),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1439,1)=X S X=Y(9002313.57,10525.1439,1),Y(9002313.57,10525.1439,2)=X S X=1
  • ALGORITHM:  $E(DUR RESPONSE DATA,1,2)
10525.1528 DUR #1 SEVERITY INDEX CODE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1528,9.2) S X=$E(Y(9002313.57,10525.1528,2),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1528,1)=X S X=Y(9002313.57,10525.1528,1),Y(9002313.57,10525.1528,2)=X S X=3
  • ALGORITHM:  $E(DUR RESPONSE DATA,3)
10525.1529 DUR #1 OTHER PHARMACY INDIC COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1529,9.2) S X=$E(Y(9002313.57,10525.1529,2),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1529,1)=X S X=Y(9002313.57,10525.1529,1),Y(9002313.57,10525.1529,2)=X S X=4
  • ALGORITHM:  $E(DUR RESPONSE DATA,4)
10525.153 DUR #1 PREVIOUS DATE OF FILL COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.153,9.2) S Y(9002313.57,10525.153,3)=X S X=12,X=$E(Y(9002313.57,10525.153,2),Y(9002313.57,10525.153,3),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.153,1)=X S X=Y(9002313.57,10525.153,1),Y(9002313.57,10525.153,2)=X S X=5
  • ALGORITHM:  $E(DUR RESPONSE DATA,5,12)
10525.1531 DUR #1 QTY OF PREVIOUS FILL COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1531,9.2) S Y(9002313.57,10525.1531,3)=X S X=17,X=$E(Y(9002313.57,10525.1531,2),Y(9002313.57,10525.1531,3),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1531,1)=X S X=Y(9002313.57,10525.1531,1),Y(9002313.57,10525.1531,2)=X S X=13
  • ALGORITHM:  $E(DUR RESPONSE DATA,13,17)
10525.1532 DUR #1 DATABASE INDICATOR COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1532,9.2) S X=$E(Y(9002313.57,10525.1532,2),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1532,1)=X S X=Y(9002313.57,10525.1532,1),Y(9002313.57,10525.1532,2)=X S X=18
  • ALGORITHM:  $E(DUR RESPONSE DATA,18)
10525.1533 DUR #1 OTHER PRESCRIBER INDIC COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1533,9.2) S X=$E(Y(9002313.57,10525.1533,2),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1533,1)=X S X=Y(9002313.57,10525.1533,1),Y(9002313.57,10525.1533,2)=X S X=19
  • ALGORITHM:  $E(DUR RESPONSE DATA,19)
10525.1544 DUR #1 FREE TEXT COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1544,9.2) S Y(9002313.57,10525.1544,3)=X S X=49,X=$E(Y(9002313.57,10525.1544,2),Y(9002313.57,10525.1544,3),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1544,1)=X S X=Y(9002313.57,10525.1544,1),Y(9002313.57,10525.1544,2)=X S X=20
  • ALGORITHM:  $E(DUR RESPONSE DATA,20,49)
10525.1999 DUR #1 RESERVE SPACE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.1999,9.2) S Y(9002313.57,10525.1999,3)=X S X=53,X=$E(Y(9002313.57,10525.1999,2),Y(9002313.57,10525.1999,3),X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1999,1)=X S X=Y(9002313.57,10525.1999,1),Y(9002313.57,10525.1999,2)=X S X=50
  • ALGORITHM:  $E(DUR RESPONSE DATA,50,53)
10525.2 DUR #2 RAW DATA COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2,9.5) S X=$S(Y(9002313.57,10525.2,4):Y(9002313.57,10525.2,5),Y(9002313.57,10525.2,6):X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.2,1)=X S X=Y(9002313.57,10525.2,1),Y(9002313.57,10525.2,2)=X S X=54,Y(9002313.57,10525.2,3)=X S X=55
    9.3 = X ^DD(9002313.57,10525.2,9.2) S X=$E(Y(9002313.57,10525.2,2),Y(9002313.57,10525.2,3),X)="  ",Y(9002313.57,10525.2,4)=X S X="",Y(9002313.57,10525.2,5)=X S X=1
    9.4 = X ^DD(9002313.57,10525.2,9.3) S Y(9002313.57,10525.2,6)=X,Y(9002313.57,10525.2,7)=X S X=Y(9002313.57,10525.2,1),Y(9002313.57,10525.2,8)=X S X=54
    9.5 = X ^DD(9002313.57,10525.2,9.4) S Y(9002313.57,10525.2,9)=X S X=106,X=$E(Y(9002313.57,10525.2,8),Y(9002313.57,10525.2,9),X)
  • ALGORITHM:  $S($E(DUR RESPONSE DATA,54,55)=" ":"",1:$E(DUR RESPONSE DATA,54,106))
10525.2439 DUR #2 DRUG CONFLICT CODE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2439,9.2) S Y(9002313.57,10525.2439,3)=X S X=2,X=$E(Y(9002313.57,10525.2439,2),Y(9002313.57,10525.2439,3),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2439,1)=X S X=Y(9002313.57,10525.2439,1),Y(9002313.57,10525.2439,2)=X S X=1
  • ALGORITHM:  $E(DUR #2 RAW DATA,1,2)
10525.2528 DUR #2 SEVERITY INDEX CODE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2528,9.2) S X=$E(Y(9002313.57,10525.2528,2),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2528,1)=X S X=Y(9002313.57,10525.2528,1),Y(9002313.57,10525.2528,2)=X S X=3
  • ALGORITHM:  $E(DUR #2 RAW DATA,3)
10525.2529 DUR #2 OTHER PHARMACY INDIC COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2529,9.2) S X=$E(Y(9002313.57,10525.2529,2),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2529,1)=X S X=Y(9002313.57,10525.2529,1),Y(9002313.57,10525.2529,2)=X S X=4
  • ALGORITHM:  $E(DUR #2 RAW DATA,4)
10525.253 DUR #2 PREVIOUS DATE OF FILL COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.253,9.2) S Y(9002313.57,10525.253,3)=X S X=12,X=$E(Y(9002313.57,10525.253,2),Y(9002313.57,10525.253,3),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.253,1)=X S X=Y(9002313.57,10525.253,1),Y(9002313.57,10525.253,2)=X S X=5
  • ALGORITHM:  $E(DUR #2 RAW DATA,5,12)
10525.2531 DUR #2 QTY OF PREVIOUS FILL COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2531,9.2) S Y(9002313.57,10525.2531,3)=X S X=17,X=$E(Y(9002313.57,10525.2531,2),Y(9002313.57,10525.2531,3),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2531,1)=X S X=Y(9002313.57,10525.2531,1),Y(9002313.57,10525.2531,2)=X S X=13
  • ALGORITHM:  $E(DUR #2 RAW DATA,13,17)
10525.2532 DUR #2 DATABASE INDICATOR COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2532,9.2) S X=$E(Y(9002313.57,10525.2532,2),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2532,1)=X S X=Y(9002313.57,10525.2532,1),Y(9002313.57,10525.2532,2)=X S X=18
  • ALGORITHM:  $E(DUR #2 RAW DATA,18)
10525.2533 DUR #2 OTHER PRESCRIBER INDIC COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2533,9.2) S X=$E(Y(9002313.57,10525.2533,2),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2533,1)=X S X=Y(9002313.57,10525.2533,1),Y(9002313.57,10525.2533,2)=X S X=19
  • ALGORITHM:  $E(DUR #2 RAW DATA,19)
10525.2544 DUR #2 FREE TEXT COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2544,9.2) S Y(9002313.57,10525.2544,3)=X S X=49,X=$E(Y(9002313.57,10525.2544,2),Y(9002313.57,10525.2544,3),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2544,1)=X S X=Y(9002313.57,10525.2544,1),Y(9002313.57,10525.2544,2)=X S X=20
  • ALGORITHM:  $E(DUR #2 RAW DATA,20,49)
10525.2999 DUR #2 RESERVE SPACE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.2999,9.2) S Y(9002313.57,10525.2999,3)=X S X=53,X=$E(Y(9002313.57,10525.2999,2),Y(9002313.57,10525.2999,3),X)
    9.2 = X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2999,1)=X S X=Y(9002313.57,10525.2999,1),Y(9002313.57,10525.2999,2)=X S X=50
  • ALGORITHM:  $E(DUR #2 RAW DATA,50,53)
10525.3 DUR #3 RAW DATA COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3,9.5) S X=$S(Y(9002313.57,10525.3,4):Y(9002313.57,10525.3,5),Y(9002313.57,10525.3,6):X)
    9.2 = X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.3,1)=X S X=Y(9002313.57,10525.3,1),Y(9002313.57,10525.3,2)=X S X=107,Y(9002313.57,10525.3,3)=X S X=108
    9.3 = X ^DD(9002313.57,10525.3,9.2) S X=$E(Y(9002313.57,10525.3,2),Y(9002313.57,10525.3,3),X)="  ",Y(9002313.57,10525.3,4)=X S X="",Y(9002313.57,10525.3,5)=X S X=1
    9.4 = X ^DD(9002313.57,10525.3,9.3) S Y(9002313.57,10525.3,6)=X,Y(9002313.57,10525.3,7)=X S X=Y(9002313.57,10525.3,1),Y(9002313.57,10525.3,8)=X S X=107
    9.5 = X ^DD(9002313.57,10525.3,9.4) S Y(9002313.57,10525.3,9)=X S X=159,X=$E(Y(9002313.57,10525.3,8),Y(9002313.57,10525.3,9),X)
  • ALGORITHM:  $S($E(DUR RESPONSE DATA,107,108)=" ":"",1:$E(DUR RESPONSE DATA,107,159))
10525.3439 DUR #3 DRUG CONFLICT CODE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3439,9.2) S Y(9002313.57,10525.3439,3)=X S X=2,X=$E(Y(9002313.57,10525.3439,2),Y(9002313.57,10525.3439,3),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3439,1)=X S X=Y(9002313.57,10525.3439,1),Y(9002313.57,10525.3439,2)=X S X=1
  • ALGORITHM:  $E(DUR #3 RAW DATA,1,2)
10525.3528 DUR #3 SEVERITY INDEX CODE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3528,9.2) S X=$E(Y(9002313.57,10525.3528,2),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3528,1)=X S X=Y(9002313.57,10525.3528,1),Y(9002313.57,10525.3528,2)=X S X=3
  • ALGORITHM:  $E(DUR #3 RAW DATA,3)
10525.3529 DUR #3 OTHER PHARMACY INDIC COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3529,9.2) S X=$E(Y(9002313.57,10525.3529,2),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3529,1)=X S X=Y(9002313.57,10525.3529,1),Y(9002313.57,10525.3529,2)=X S X=4
  • ALGORITHM:  $E(DUR #3 RAW DATA,4)
10525.353 DUR #3 PREVIOUS DATE OF FILL COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.353,9.2) S Y(9002313.57,10525.353,3)=X S X=12,X=$E(Y(9002313.57,10525.353,2),Y(9002313.57,10525.353,3),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.353,1)=X S X=Y(9002313.57,10525.353,1),Y(9002313.57,10525.353,2)=X S X=5
  • ALGORITHM:  $E(DUR #3 RAW DATA,5,12)
10525.3531 DUR #3 QTY OF PREVIOUS FILL COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3531,9.2) S Y(9002313.57,10525.3531,3)=X S X=17,X=$E(Y(9002313.57,10525.3531,2),Y(9002313.57,10525.3531,3),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3531,1)=X S X=Y(9002313.57,10525.3531,1),Y(9002313.57,10525.3531,2)=X S X=13
  • ALGORITHM:  $E(DUR #3 RAW DATA,13,17)
10525.3532 DUR #3 DATABASE INDICATOR COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3532,9.2) S X=$E(Y(9002313.57,10525.3532,2),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3532,1)=X S X=Y(9002313.57,10525.3532,1),Y(9002313.57,10525.3532,2)=X S X=18
  • ALGORITHM:  $E(DUR #3 RAW DATA,18)
10525.3533 DUR #3 OTHER PRESCRIBER INDIC COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3533,9.2) S X=$E(Y(9002313.57,10525.3533,2),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3533,1)=X S X=Y(9002313.57,10525.3533,1),Y(9002313.57,10525.3533,2)=X S X=19
  • ALGORITHM:  $E(DUR #3 RAW DATA,19)
10525.3544 DUR #3 FREE TEXT COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3544,9.2) S Y(9002313.57,10525.3544,3)=X S X=49,X=$E(Y(9002313.57,10525.3544,2),Y(9002313.57,10525.3544,3),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3544,1)=X S X=Y(9002313.57,10525.3544,1),Y(9002313.57,10525.3544,2)=X S X=20
  • ALGORITHM:  $E(DUR #3 RAW DATA,20,49)
10525.3999 DUR #3 RESERVE SPACE COMPUTED

  • MUMPS CODE:  X ^DD(9002313.57,10525.3999,9.2) S Y(9002313.57,10525.3999,3)=X S X=53,X=$E(Y(9002313.57,10525.3999,2),Y(9002313.57,10525.3999,3),X)
    9.2 = X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3999,1)=X S X=Y(9002313.57,10525.3999,1),Y(9002313.57,10525.3999,2)=X S X=50
  • ALGORITHM:  $E(DUR #3 RAW DATA,50,53)
10526 ADDITIONAL MESSAGE INFORMATION COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(526)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(526)
10528 CLINICAL SIGNIFICANCE CODE COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(528)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(528)
10529 OTHER PHARMACY INDICATOR COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(529)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(529)
10530 PREVIOUS DATE OF FILL COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(530)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(530)
10531 QUANTITY OF PREVIOUS FILL COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(531)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(531)
10532 DATABASE INDICATOR COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(532)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(532)
10533 OTHER PRESCRIBER INDICATOR COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(533)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(533)
10535 DUR OVERFLOW COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(535)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(535)
10544 FREE TEXT COMPUTED

  • MUMPS CODE:  S X=$$FIELD^ABSPOS57(544)
  • ALGORITHM:  S X=$$FIELD^ABSPOS57(544)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All