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

Package: Pharmacy Point of Sale

ABSP DATA INPUT(#9002313.51)-->9002313.512

Sub-Field: 9002313.512


Information

Parent File Name Number Package
ABSP DATA INPUT(#9002313.51) LINE ITEMS 9002313.512 Pharmacy Point of Sale

Details

Field # Name Loc Type Details
.01 LINE NUMBER 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 31, 2000
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Not edited by user, normally.   We assign a bunch of these early.  We probably will allow LAYGO on the form.  Could be by-user parameter as to how many of these get init'd.  Until then, ABSPOSI hardcodes it as 9.
  • CROSS-REFERENCE:  9002313.512^B
    1)= S ^ABSP(9002313.51,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^ABSP(9002313.51,DA(1),2,"B",$E(X,1,30),DA)
.02 RX DISP 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
.03 NDC DISP 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
.04 PAT DISP 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>31!($L(X)<1) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Answer must be 1-31 characters in length.
.05 DRUG DISP 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JUN 23, 2000
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
.06 DATE DISP 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Enter the date when the prescription was filled or type FIND.
  • DESCRIPTION:  
    Enter the date when the prescription was filled.  Type FIND to get help with finding the exact date.
1.01 RXI 1;1 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  MAY 29, 2000
1.02 RXR 1;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 31, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
1.03 DRUG 1;3 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  MAY 29, 2000
1.04 PATIENT 1;4 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  MAY 29, 2000
1.05 AWP MED 1;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Pointer to AWP-MED TRANSACTION file. We don't explicitly say it this way  because not every site has that file.
1.06 VISIT 1;6 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  MAY 29, 2000
1.07 IEN .59 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Answer must be 1-16 characters in length.
  • DESCRIPTION:  
    Pointer to 9002313.59, ABSB RX POS WORKING.  Just a place to figure out this value in advance; the entry it "points" to isn't created until after the form is done, when PF1 E is pressed.
1.08 CPTIEN 1;8 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JUN 16, 2000
  • DESCRIPTION:  
    Pointer to charge file entry.  Must be set up if you are entering a non-prescription item.  For prescriptions or postage, ABSPOSQ1 will be able to fill it in for you as it runs in the background.
1.09 NCPDP OVERRIDE 1;9 POINTER TO ABSP NCPDP OVERRIDE FILE (#9002313.511) ABSP NCPDP OVERRIDE(#9002313.511)

  • LAST EDITED:  NOV 18, 2000
1.13 NCPDP DUR 5.1 OVERRIDE 1;10 POINTER TO ABSP DUR/PPS FILE (#9002313.473) ABSP DUR/PPS(#9002313.473)

  • LAST EDITED:  JUL 11, 2003
1.15 NCPDP DIAGNOSIS CODE 5.1 1;12 POINTER TO ABSP DIAGNOSIS CODE FILE (#9002313.491) ABSP DIAGNOSIS CODE(#9002313.491)

  • LAST EDITED:  JUN 20, 2007
2.01 PREAUTHORIZATION NUMBER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Answer must be 1-16 characters in length.
2.02 Prior Authorization Type Code 2;2 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
5.01 QTY 5;1 NUMBER

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999999, 6 Decimal Digits
5.03 INGR COST 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 6 Decimal Digits
5.04 DISP FEE 5;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<-99)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between -99 and 99, 2 Decimal Digits
5.05 TOTAL PRICE 5;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 6 Decimal Digits
5.06 PRICE SOURCE 5;6 SET
  • 'APSAMDF' FOR AWP MED-TRANSACTION FILE;
  • 'PSDRUG-AWPPDU' FOR AWPPDU IN DRUG FILE;
  • 'PSDRUG-PPDU' FOR PPDU IN DRUG FILE;
  • 'ABSCPT' FOR ILC A/R CHARGE FILE;
  • 'NOT FOUND' FOR NOT FOUND;
  • 'PSRX-AWP' FOR AWP IN PRESC FILE;
  • 'PSRX-UNIT' FOR UNIT PRICE IN PRESC FILE;

  • LAST EDITED:  DEC 08, 2000
  • DESCRIPTION:  
    UNITPRI1^ABSPOSQP tells you the source of the unit price Display it in page 7 pricing data.  Reassuring to know - Helps catch glaring errors, too.
5.07 INCENTIVE AMOUNT 5;7 NUMBER

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

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

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

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

  • LAST EDITED:  MAY 29, 2000
7.02 INSURER 2 7;2 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  MAY 31, 2000
7.03 INSURER 3 7;3 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  MAY 31, 2000
100 INS SEL SCRATCH I;0 Multiple #9002313.522 9002313.522
Info |  Details |  All