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

Package: Pharmacy Point of Sale

Global: ^ABSPT


Information

FileMan FileNo FileMan Filename Package
9002313.59 ABSP TRANSACTION Pharmacy Point of Sale

Description

Directly Accessed By Routines, Total: 48

Package Total Routines
Pharmacy Point of Sale 44 ABSP5B1F    ABSPDB1F    ABSPECA8    ABSPER20    ABSPOS2    ABSPOS28    ABSPOS6B    ABSPOS6C
ABSPOS6D    ABSPOS6E    ABSPOS6G    ABSPOS6L    ABSPOS6M    ABSPOS6N    ABSPOSAN    ABSPOSCA
ABSPOSCB    ABSPOSCC    ABSPOSCD    ABSPOSII    ABSPOSIV    ABSPOSIZ    ABSPOSK    ABSPOSK1
ABSPOSNC    ABSPOSQ    ABSPOSQ1    ABSPOSQ2    ABSPOSQ4    ABSPOSQA    ABSPOSQB    ABSPOSQF
ABSPOSQG    ABSPOSQJ    ABSPOSQL    ABSPOSQP    ABSPOSQS    ABSPOSRB    ABSPOSRX    ABSPOSU
ABSPOSU7    ABSPOSUA    ABSPOSUB    ABSPOSUD    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Pharmacy Point of Sale 2 ABSPOS6N    ABSPOSIZ    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Pharmacy Point of Sale 1 ABSP INSURER(#9002313.4)[101.06]    

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)[3401]    ABSP INSURER(#9002313.4)[803]    ABSP RESPONSES(#9002313.03)[4402]    
IHS Patient 1 PATIENT(#9000001)[5]    
Kernel 1 NEW PERSON(#200)[613903905]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[1.11]    
Utility Tables 1 INSURER(#9999999.18)[1.06701702703]    

Fields, Total: 75

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

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 30, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • CROSS-REFERENCE:  9002313.59^B
    1)= S ^ABSPT("B",$E(X,1,30),DA)=""
    2)= K ^ABSPT("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:  JUN 16, 2000
.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:  
    Not applicable to 9002313.59.  See 9002313.57 for usage there.
  • CROSS-REFERENCE:  9002313.59^AR
    1)= S ^ABSPT("AR",$E(X,1,30),DA)=""
    2)= K ^ABSPT("AR",$E(X,1,30),DA)
.16 NEEDS BILLING (N/A) 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  JAN 24, 2001
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Placeholder - this field is used in 9002313.57.
1 STATUS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 25, 1999
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • CROSS-REFERENCE:  9002313.59^AD
    1)= S ^ABSPT("AD",$E(X,1,30),DA)=""
    2)= K ^ABSPT("AD",$E(X,1,30),DA)
1.05 ABSBDIV SOURCE 1;5 SET
  • '1' FOR 59 OUTPATIENT SITE;
  • '2' FOR 59.4 INPATIENT SITE;

  • LAST EDITED:  MAR 11, 2000
  • DESCRIPTION:  
    Reserved: to indicate from where ABSBDIV was obtained; when you try to map this back to a pharmacy in 9002313.56, you know which subscript to look under.
1.06 INSURER 1;6 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  MAR 11, 2000
  • DESCRIPTION:  
    Pointer to both INSURER (^AUTNINS) and ABSP INSURER (^ABSPEI) $D(^ABSPEI(n,100)) then see details of how to send this claim electronically
1.07 PHARMACY 1;7 POINTER TO ABSP PHARMACIES FILE (#9002313.56) ABSP PHARMACIES(#9002313.56)

  • LAST EDITED:  MAR 11, 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 18, 2000
  • HELP-PROMPT:  Type a Number between 1 and 9, 0 Decimal Digits
  • DESCRIPTION:  Pointer to which of the PINS pieces in ^(6) is in use for this claim. Use this to keep track of where you are in billing down the line to various insurers. (Probably won't automatically roll over to next insurer, but
    maybe we will have an option to edit insurance info, try next insurance, etc.)
1.09 PREAUTHORIZATION # 1;9 FREE TEXT

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

  • LAST EDITED:  MAY 30, 2000
1.1199 RXI INTERNAL COMPUTED

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

  • LAST EDITED:  AUG 21, 2000
1.13 NCPDP OVERRIDES 1;13 POINTER TO ABSP NCPDP OVERRIDE FILE (#9002313.511) ABSP NCPDP OVERRIDE(#9002313.511)

  • LAST EDITED:  OCT 19, 2000
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
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 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 17, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Pointer to the BILLING ITEMS file, ^ABSBITMS(9002302,*).  Initialized to 0 when the POS WORKING record is created.  Set to nonzero when the VCPT in this record is posted to a BILLING ITEMS entry.
2.0099 PCN-INTERNAL COMPUTED

  • MUMPS CODE:  S Y(9002313.59,2.0099,1)=$S($D(^ABSPT(D0,0)):^(0),1:"") S X=$P(Y(9002313.59,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:  OCT 25, 1999
  • CROSS-REFERENCE:  9002313.59^AE
    1)= S ^ABSPT("AE",$E(X,1,30),DA)=""
    2)= K ^ABSPT("AE",$E(X,1,30),DA)
3.1 CLAIM IEN COMPUTED

  • MUMPS CODE:  S Y(9002313.59,3.1,1)=$S($D(^ABSPT(D0,0)):^(0),1:"") S X=$P(Y(9002313.59,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:  OCT 25, 1999
  • CROSS-REFERENCE:  9002313.59^AF
    1)= S ^ABSPT("AF",$E(X,1,30),DA)=""
    2)= K ^ABSPT("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)
4.1 RESPONSE IEN COMPUTED

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

  • LAST EDITED:  OCT 25, 1999
  • CROSS-REFERENCE:  9002313.59^AC
    1)= S ^ABSPT("AC",$E(X,1,30),DA)=""
    2)= K ^ABSPT("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="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 28, 1999
  • CROSS-REFERENCE:  9002313.59^AH
    1)= S ^ABSPT("AH",$E(X,1,30),DA)=""
    2)= K ^ABSPT("AH",$E(X,1,30),DA)
8 VCPT 1;3 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  OCT 25, 1999
8.0099 VCPT-INTERNAL COMPUTED

  • MUMPS CODE:  S Y(9002313.59,8.0099,1)=$S($D(^ABSPT(D0,1)):^(1),1:"") S X=$P(Y(9002313.59,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:  OCT 25, 1999
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
10 ABSBNDC 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<5) X
  • LAST EDITED:  OCT 25, 1999
  • HELP-PROMPT:  Answer must be 5-11 characters in length.
10.0099 USER-INTERNAL COMPUTED

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

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

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  OCT 25, 1999
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
13 USER 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 26, 1999
  • CROSS-REFERENCE:  9002313.59^AG
    1)= S ^ABSPT("AG",$E(X,1,30),DA)=""
    2)= K ^ABSPT("AG",$E(X,1,30),DA)
14 POSITION IN CLAIM 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 26, 1999
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
15 START TIME 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 27, 1999
16 COMMS LOG 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  OCT 27, 1999
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Points to the ^ABSPECP("LOG",n) where the communications program which handled the most recent phone call on behalf of this prescription.
201 RESULT CODE 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.999)!(X<0)!(X?.E1"."8N.N) X
  • LAST EDITED:  OCT 27, 1999
  • HELP-PROMPT:  Type a Number between 0 and 999.999, 7 Decimal Digits
202 RESULT TEXT 2;2 FREE TEXT

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

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  AUG 31, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Actually a pointer to ^VA(200, Who requested the cancellation
302 CANCELED DURING STATUS 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  AUG 31, 2000
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  This field is null, until a cancellation is successful. Then, the STATUS field is copied into here, primarily to indicated that the cancellation was successful, and maybe useful to know what the status was at the time it
    was canceled.
401 REVERSAL CLAIM 4;1 POINTER TO ABSP CLAIMS FILE (#9002313.02) ABSP CLAIMS(#9002313.02)

  • LAST EDITED:  JUN 23, 2000
  • CROSS-REFERENCE:  9002313.59^AER
    1)= S ^ABSPT("AER",$E(X,1,30),DA)=""
    2)= K ^ABSPT("AER",$E(X,1,30),DA)
    ^ABSPT("AER",reversal claim #,IEN59)=""
402 REVERSAL RESPONSE 4;2 POINTER TO ABSP RESPONSES FILE (#9002313.03) ABSP RESPONSES(#9002313.03)

  • LAST EDITED:  JUN 23, 2000
  • CROSS-REFERENCE:  9002313.59^AFR
    1)= S ^ABSPT("AFR",$E(X,1,30),DA)=""
    2)= K ^ABSPT("AFR",$E(X,1,30),DA)
    ^ABSPT("AFR",reversal response,IEN59)=""
403 PAPER REVERSAL 4;3 SET
  • '1' FOR YES;

  • LAST EDITED:  AUG 21, 2000
  • DESCRIPTION:  
    Paper claims can be reversed.  But instead of an electronic request and response in fields 401,402; you have a 1 here in field 403, since reversal of a paper claim always succeeds.
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 IDENTIFY THE REASON A PRESCRIPTION WAS RETURNED TO STOCK TO IHS 3PB
501 QUANTITY 5;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  MAR 13, 2000
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  These 500-599 fields, stored in ^(5), hold a temporary copy of the pricing data as calculated in ^ABSPOSQP. Then later, when the ABSP() array is being set up in ABSPECC*, appropriate values can be lifted from here, rather
    than being recalculated.
502 UNIT PRICE 5;2 NUMBER

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAR 13, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999999, 6 Decimal Digits
  • DESCRIPTION:  
    = QUANTITY * UNIT PRICE This is probably what we want to send as the INGREDIENT COST field in the NCPDP message.
504 DISPENSING FEE 5;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99)!(X<0) X
  • LAST EDITED:  MAR 13, 2000
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99, 2 Decimal Digits
  • DESCRIPTION:  
    Storing it here, since it can vary by insurer (or maybe by Pharmacy, too? maybe we want to put a field in 9002313.56)
505 TOTAL PRICE 5;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  MAR 13, 2000
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    =SUBTOTAL + DISPENSING FEE
506 PRICE MANUALLY ENTERED 5;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 21, 2000
  • DESCRIPTION:  FUTURE: set this to 1 if the pricing was manually entered. This may be of use if you are rolling to the next insurer and want to know whether or not to erase the prices and recompute, just in case there are multiple
    pricing tables in use.
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:  MAR 17, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    PINS 1^PINS 2^PINS 3, just like in ^AUPNVSIT(ien,"PINS")
602 PINS 2 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 17, 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:  MAR 17, 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:  MAR 18, 2000
702 INSURER 2 7;2 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

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

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

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 21, 2000
  • DESCRIPTION:  
    Due to dial out error or insurer asleep, retry this claim no earlier than this time.  (May provide some way to poke it into activity, overriding this.)
802 RETRY ON DIAL OUT 8;2 POINTER TO ABSP DIAL OUT FILE (#9002313.55) ABSP DIAL OUT(#9002313.55)

  • LAST EDITED:  JUN 23, 2000
803 RETRY SLEEPING INSURER 8;3 POINTER TO ABSP INSURER FILE (#9002313.4) ABSP INSURER(#9002313.4)

  • LAST EDITED:  NOV 10, 2000
901 CLOSED STATUS 9;1 SET
  • '0' FOR OPEN;
  • '1' FOR CLOSED;

  • LAST EDITED:  FEB 18, 2010
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.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:"")
9999.97 ELAPSED TIME (PRINTABLE) COMPUTED

  • MUMPS CODE:  S X=$$TIMEDIF^ABSPOSUD($P(^ABSPT(D0,0),U,11),$P(^ABSPT(D0,0),U,8))
  • ALGORITHM:  S X=$$TIMEDIF^ABSPOSUD($P(^ABSPT(D0,0),U,11),$P(^ABSPT(D0,0),U,8))
  • LAST EDITED:  NOV 10, 2000
9999.98 ELAPSED TIME (SECONDS) COMPUTED

  • MUMPS CODE:  S X=$$TIMEDIFI^ABSPOSUD($P(^ABSPT(D0,0),U,11),$P(^ABSPT(D0,0),U,8))
  • ALGORITHM:  S X=$$TIMEDIFI^ABSPOSUD($P(^ABSPT(D0,0),U,11),$P(^ABSPT(D0,0),U,8))
  • 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:  SEP 11, 2000
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All