Global: ^ABSP(9002313.99

FileMan FileNo	FileMan Filename	Package
9002313.99	ABSP SETUP	Pharmacy Point of Sale

Package	Total	Routines
Pharmacy Point of Sale	61	ABSPECA1 ABSPECP1 ABSPER10 ABSPER1A ABSPER20 ABSPER2A ABSPER30 ABSPER3A ABSPER40 ABSPER4A ABSPICNV ABSPOS03 ABSPOS25 ABSPOS26 ABSPOS29 ABSPOS57 ABSPOS6A ABSPOS6E ABSPOS6H ABSPOS6I ABSPOSA ABSPOSAB ABSPOSAE ABSPOSB ABSPOSB8 ABSPOSBD ABSPOSBM ABSPOSBX ABSPOSC2 ABSPOSCC ABSPOSCE ABSPOSCG ABSPOSE2 ABSPOSFC ABSPOSI1 ABSPOSII ABSPOSIV ABSPOSJ1 ABSPOSJ2 ABSPOSK ABSPOSM1 ABSPOSMD ABSPOSN6 ABSPOSP2 ABSPOSPW ABSPOSPX ABSPOSQ ABSPOSQ1 ABSPOSQA ABSPOSQG ABSPOSQQ ABSPOSQS ABSPOSR1 ABSPOSR3 ABSPOSRB ABSPOSRX ABSPOSS8 ABSPOSS9 ABSPOSX ABSPOSZ ABSPP49

Package	Total	Routines
Pharmacy Point of Sale	7	ABSPOSBB ABSPOSBM ABSPOSK ABSPOSK1 ABSPOSQS ABSPOSR1 ABSPOSS
IHS Changes To Pharmacy	1	APSQPINS

Package	Total	FileMan Files
Pharmacy Point of Sale	2	ABSP DIAL OUT(#9002313.55)[440.01] ABSP INSURANCE RULES(#9002313.94)[#9002313.9903(.02)]
Utility Tables	2	INSURER(#9999999.18)[577.01, 1960.01, #9002313.9901(.01), #9002313.992279(.01), #9002313.992388(.01)] BENEFICIARY(#9999999.25)[#9002313.992389(.01)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#9002313.992274(.01)]
Scheduling	1	CLINIC STOP(#40.7)[#9002313.992273(.01)]

Fields, Total: 111

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `OCT 20, 2000` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9002313.99^B` 1)= S ^ABSP(9002313.99,"B",$E(X,1,30),DA)="" 2)= K ^ABSP(9002313.99,"B",$E(X,1,30),DA)
.04	*M Vendor	0;4	SET	'DTM' FOR DTM; 'MSM' FOR MSM; 'CACHE' FOR CACHE; LAST EDITED: `OCT 16, 2000`
2.01	PCN or VCN on reports?	2;1	SET	**********************REQUIRED FIELD********************** 'PCN' FOR PCN; 'VCN' FOR VCN; LAST EDITED: `JUL 17, 1996` DESCRIPTION: Enter VCN if you want most reports to show VCN. Default is PCN. TECHNICAL DESCR: Rou. ABSPER10, ABSPER20, ABSPER40.
5.01	BACKBILL TIME LIMIT	BACKLIMIT;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 16, 2017` HELP-PROMPT: `This is the number of days payers can be back-billed.` DESCRIPTION: Per CR# 09828, the amount of time that payers can be back-billed has changed. That value is currently 6 years, but if that window changes, this parameter can be changed as well so base code changes won't be required again.
115.01	KEEP DISPHIST	ABSPOS6*;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 06, 2000` DESCRIPTION: Should DISPHIST be used to keep a temporary history of List Manager activity? (It's for debugging.)
115.02	SET $ZT	ABSPOS6*;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 06, 2000` DESCRIPTION: Should $ZT be set at various places in ABSPOS6? (For debugging - to make sure you get the NEW'ed variables.)
115.03	AUTOPRINT PHARMACY EXPENSE RPT	3;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 11, 2010`
119.01	ABSPOSM1 LAST BEGIN DATE	ABSPOSM1;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 29, 2001`
119.02	ABSPOSM1 LAST THRU DATE	ABSPOSM1;2	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 29, 2001`
119.03	ABSPOSM1 LAST STARTED RUN	ABSPOSM1;3	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 29, 2001`
119.04	ABSPOSM1 LAST FINISHED RUN	ABSPOSM1;4	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 29, 2001`
120.01	ABSPOSR1 CURRENT JOB	ABSPOSR1;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 07, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
120.02	ABSPOSR1 LAST DATETIME	ABSPOSR1;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 07, 2000`
120.03	ABSPOSR1 STOP SIGNAL	ABSPOSR1;3	SET	'0' FOR RUNNING; '1' FOR REQUESTED STOP; '2' FOR STOPPED; LAST EDITED: `SEP 07, 2000`
120.04	ABSPOSR1 POLLING INTERVAL	ABSPOSR1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10800)!(X<30)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 07, 2000` HELP-PROMPT: `Type a Number between 30 and 10800, 0 Decimal Digits` DESCRIPTION: Minimum 30 seconds - got to give ABSPOSRX time to set up data and start background jobs. Maximum 3 hours, very arbitrarily chosen.
120.05	ABSPOSR1 REACH BACK	ABSPOSR1;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>86400)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 07, 2000` HELP-PROMPT: `Type a Number between 0 and 86400, 0 Decimal Digits` DESCRIPTION: `How many seconds to reach back before the last datetime processed. Higher value - you'll spend more time querying status of already-proc'd claims. Lower value - you'll miss some and have to pick them up on a later` sweep, like at the end of the day or end of the week. The bigger this value is, the bigger your Polling interval should be. You don't want to reach back through the whole day's records every 30 seconds, for instance.
120.06	ABSPOSR1 INDEX FOR NEW CLAIMS	ABSPOSR1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `SEP 07, 2000` HELP-PROMPT: `Answer must be 1-9 characters in length.` DESCRIPTION: ^PSRX(index,datetime,rxi,rxr) for new claims - what index?
120.07	ABSPOSR1 INDEX FOR REVERSALS	ABSPOSR1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `SEP 07, 2000` HELP-PROMPT: `Answer must be 1-9 characters in length.` DESCRIPTION: ^PSRX(index,datetime,rxi,rxr) for reversals - what index?
140.01	ABSPOSX DELTA 1	ABSPOSX;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>366)!(X<0)!(X?.E1"."5N.N) X` LAST EDITED: `NOV 18, 2000` HELP-PROMPT: `Type a Number between 0 and 366, 4 Decimal Digits` DESCRIPTION: Number of days back to beginning of period
140.02	ABSPOSX DELTA 2	ABSPOSX;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>366)!(X<0)!(X?.E1"."5N.N) X` LAST EDITED: `NOV 18, 2000` HELP-PROMPT: `Type a Number between 0 and 366, 4 Decimal Digits` DESCRIPTION: Number of days back to end of period.
140.03	ABSPOSX HRS FOR PURGE	ABSPOSX;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<4)!(X?.E1"."5N.N) X` LAST EDITED: `NOV 18, 2000` HELP-PROMPT: `Type a Number between 4 and 99999, 4 Decimal Digits` DESCRIPTION: HRS hours arg passed to PURGE^ABSPOSU7
170.01	A/R PACKAGE A/R	INTERFACE;1	SET	'0' FOR INFORMATIX; '1' FOR NONE; '3' FOR IHS 3RD PARTY BILLING; '99' FOR OTHER; '2' FOR ANMC NIGHTLY CHECKER; '4' FOR PATIENT ACCOUNTS COMPONENT; LAST EDITED: `APR 13, 2010` AUDIT: `EDITED OR DELETED`
170.02	SEND 3PB REJECT A/R	INTERFACE;2	SET	'Y' FOR SEND 3PB REJECT; 'N' FOR SUPPRESS 3PB REJECT; LAST EDITED: `JUN 08, 2010` AUDIT: `EDITED OR DELETED`
230.01	*LAST TRANS THRU ABSPOSB1	BILLING;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 16, 2001` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` DESCRIPTION: `Points to the last entry in 9002313.57 that's completely been through processing in routine ABSPOSB1. This way, you can reliably restart ABSPOSB1 if it should fail in the middle of a run.` - And every time, it keeps track of what's been posted so you can remember where you should start the next time through.
235.01	BILLING - NEXT SCHEDULED TIME BILLING -	NEW;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 24, 2001` DESCRIPTION: Set by TASKAT^ABSPOSBD when scheduling a billing job. Subsequently, as transactions near completion they see this and realize that they don't need to schedule another billing job.
235.02	BILLING - DELTA TIME - MINUTES BILLING -	NEW;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999.9999)!(X<1)!(X?.E1"."5N.N) X` LAST EDITED: `JAN 24, 2001` HELP-PROMPT: `Type a Number between 1 and 9999.9999, 4 Decimal Digits` DESCRIPTION: How many minutes between firing up of background jobs. Used by scheduling logic in ABSPOSBD. Default (at last check) was 1 minute.
235.03	BILLING - DISABLED BILLING -	NEW;3	SET	'1' FOR DISABLED; '0' FOR ENABLED; LAST EDITED: `JAN 24, 2001` DESCRIPTION: By setting this flag, the billing job will be scheduled, but it won't do anything.
235.04	BILLING - POST PAPER CLAIMS BILLING -	NEW;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 03, 2001`
235.05	ILC ADJUSTMENTS BATCH NUMBER BILLING -	NEW;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAR 30, 2001` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `Points to ^ABSBPMNT(*) The batch number into which we are currently posting adjustments, for reversed transactions. The batch might have been released, so you have to check to see if the batch is still open before you can` post anything to it. you may have to create a new batch. See also fields 235.06 and 235.07.
235.06	ILC ADJUSTMENTS BATCH LAST USE BILLING -	NEW;6	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 30, 2001` DESCRIPTION: Date when we last made an entry into this batch.
235.07	ILC ADJUSTMENTS BATCH LIFESPAN BILLING -	NEW;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>31)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 30, 2001` HELP-PROMPT: `Type a Number between 1 and 31, 0 Decimal Digits` DESCRIPTION: `How many days we will keep an adjustments batch around. Default is 1. If you want to have one batch for every week, set it to 7. One batch for every month - 30 or 31. Note that the batch will not necessarily be` released on its own Actually, someone has to release it from inside of A/R land. This parameter is used to help Point of Sale to decide when it needs to create a new batch.
235.08	LAST 3PB HOLD RUN BILLING -	NEW;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 17, 2007` HELP-PROMPT: `(No range limit on date)`
240	BILLING LOG FILE BILLING LOG	FILE;0	Multiple #9002313.9902	9002313.9902
370.01	SUPPRESS V POV V68.1 CREATING	A/R;1	SET	'1' FOR YES; '2' FOR NO (SO PUT IT IN AUTOMATICALLY); LAST EDITED: `APR 20, 2000` DESCRIPTION: `Usually, when we post charges to A/R in ABSPOSB3, we will automatically make sure that the visit has a V POV of V68.1 ISSUE REPEAT PRESCRIPT. Set this to 1 YES to suppress this feature. (I inquired about whether this` should be done always or only when the prescription is refill - the answer is "always")
370.02	SUPPRESS V PROVIDER CREATING	A/R;2	SET	'1' FOR YES; '0' FOR NO (SO PUT IT IN AUTOMATICALLY); LAST EDITED: `APR 20, 2000` DESCRIPTION: `When posting to A/R, the default behavior is to see whether there is a provider assigned to this visit yet - and if not, take the prescriber (just take it from the first prescription) and put this prescriber as the primary` provider for the visit. Set this field to 1 TRUE to suppress this behavior.
370.03	SUPPRESS CLINIC CREATING	A/R;3	SET	'1' FOR YE; '1' FOR YES; '0' FOR NO (SO PUT IT IN AUTOMATICALLY); LAST EDITED: `APR 20, 2000` DESCRIPTION: By default, posting to A/R will also look to see if the visit has been assigned a CLINIC. If not, the clinic PHARMACY will be stuffed in there automatically. Set this field to YES to suppress this behavior.
440.01	DEFAULT DIAL OUT DIAL-OUT	DEFAULT;1	POINTER TO ABSP DIAL OUT FILE (#9002313.55)	ABSP DIAL OUT(#9002313.55) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U)'=""DEFAULT""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 13, 2010` SCREEN: `S DIC("S")="I $P(^(0),U)'=""DEFAULT"""` EXPLANATION: `The default points to some dial-out other than the DEFAULT dialout - it's where the default gets its defaults from.` AUDIT: `EDITED OR DELETED`
577.01	EOB INSURER	EOB-SCREEN;1	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) LAST EDITED: `MAY 04, 2000`
577.02	EOB START DATE/TIME	EOB-SCREEN;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 04, 2000`
577.03	EOB END DATE/TIME	EOB-SCREEN;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 04, 2000`
577.04	EOB DEPOSIT DATE	EOB-SCREEN;4	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 2000`
577.05	EOB $ TOTAL	EOB-SCREEN;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `MAY 05, 2000` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
665.01	NCPDP FORM - PRINT DRUG NAME FORMS -	NCPDP;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 24, 2000` DESCRIPTION: These are system-wide defaults. You can set insurer-specific values for these using fields in ^ABSPEI(...), FILE 9002313.4, ABSP INSURER.
665.02	NCPDP FORM - PRINT DIAGNOSIS FORMS -	NCPDP;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 24, 2000`
665.03	NCPDP FORM - PHARM # TO USE FORMS -	NCPDP;3	SET	'0' FOR NABP #; '1' FOR INSURER-ASSIGNED PHARMACY NUMBER; '2' FOR TAX ID #; LAST EDITED: `JUL 24, 2000`
665.04	NCPDP FORM - PRINT TAX ID # FORMS -	NCPDP;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 24, 2000` DESCRIPTION: This refers to printing the tax id # just above the pharmacy number, yet in the same box. Don't confuse with the tax id # in the PHARM # TO USE field - which prints the tax id # in lieu of the pharmacy number
667.01	PREBILL - DEFAULT FORM FORMS -	PREBILL;1	SET	'60.13' FOR NCPDP form; '60' FOR UB92; '60.2' FOR 1500; LAST EDITED: `JUL 25, 2000` DESCRIPTION: `This is a FIELD NUMBER in the BILLING ITEMS file. It points to the field corresponding to the prebill list where pharmacy paper claims should go when the bills are first created. The default default in the program is` 60.13, PRINT NCPDP PHARMACY. If you want your pharmacy bills to go to, say, a UB92, then set this field to 60. Or set it to 60.2 to send pharmacy bills to a 1500. - If you want to have a different field for different insurance companies, then use the corresponding field in file 9002313.4, ABSP INSURER.
667.02	PREBILL - FORM FOR ROLLOVERS FORMS -	PREBILL;2	SET	'60.13' FOR NCPDP; '60' FOR UB92; '60.2' FOR 1500; LAST EDITED: `JUL 25, 2000` DESCRIPTION: The default default in the program is 60 - print rolled-over bills on UB92. (Not NCPDP - how,where do you put the amount paid by the first insurer?)
800	ICD10 EFF DATE	ICD10;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:X<1 X` LAST EDITED: `NOV 06, 2012` HELP-PROMPT: `(No range limit on date)`
801	Maximum Dollar Limit	DOLLMT;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>50000)!(X<10000)!(X?.E1"."1.N) X` LAST EDITED: `AUG 09, 2013` HELP-PROMPT: `Type a number between 10000 and 50000, 0 Decimal Digits`
941	RX NUMERIC	INPUT;1	SET	'0' FOR MEANS INTERNAL RX #; '1' FOR MEANS EXTERNAL RX #; LAST EDITED: `APR 04, 2000` DESCRIPTION: `When the "Prescription" prompt is answered with a pure numeric input, should we interpret that to be an internal or external RX #? If this is set to 0 (INTERNAL RX #), then if you wish to input an external RX #, you need` to use the syntax RX number to force it to be interpreted as an external RX #.
942	COMPARE NDC # TO DRUG	INPUT;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 07, 2000` DESCRIPTION: `For interactive input, compare the NDC # typed or scanned with the NDC # stored in the drug file (as pointed to by this prescription) and do an are-you-sure? if they differ. The reason is to avoid accidental pricing` mistakes. (As of 10/07/2000 - field is defined; code isn't there yet)
943	USUAL INPUT METHOD	INPUT;3	SET	'0' FOR MANUAL; '1' FOR RPMS RX CALLS POS; '2' FOR BACKGROUND SCANNER OF PSRX; LAST EDITED: `APR 13, 2010` AUDIT: `EDITED OR DELETED`
951	INS GRACE DEFAULT	INS;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `MAR 01, 2011` HELP-PROMPT: `Type a number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `Default grace period for insurance - treat it as current even if the eligibility expired within this many days ago. Each insurer can have their own - File 9002313.4, field 100.08. For those which don't have that field,` the default comes from here. If this field is missing, the default default is 30 days, hardcoded in routine ABSPOS25.
952	*ASK INS DURING INPUT	INS;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 16, 2000` DESCRIPTION: If true, then user will be prompted for insurance selection during input, in routine ABSBPOSV. If false (or missing), then no insurance questions appear in ABSBPOSV and a default will be selected in ABSBPOSW.
953	NO FI TRANSLATION IN ABSPOS29	INS;3	SET	'1' FOR SUPPRESS FI TRANSLATION; '0' FOR (DEFAULT) DO FI TRANSLATION; LAST EDITED: `OCT 16, 2000` DESCRIPTION: `INSURER, field 1301 - should we translate Medicaid into state's Medicaid? Yes, unless this field is explicitly set to suppress the translation. Needed originally for Pawhuska, where Medicaid in IEN 3 is pointed to by all` of the Medicaid Eligible entries, but where IEN 3 is set to RX unbillable! We need to looka the OKLAHOMA MEDICAID in order to see RX as billable. - Important! This only happens in ABSPOS29, which only happens in non-ILC A/R sites, at least as of October 2000.
960.01	INS BASE PRVT INS BASE	SCORES;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 2010` HELP-PROMPT: `Type a Number between -1000 and 1000, 0 Decimal Digits` AUDIT: `EDITED OR DELETED`
960.02	INS BASE CARE INS BASE	SCORES;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 2010` HELP-PROMPT: `Type a Number between -1000 and 1000, 0 Decimal Digits` AUDIT: `EDITED OR DELETED`
960.03	INS BASE CAID INS BASE	SCORES;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 2010` HELP-PROMPT: `Type a Number between -1000 and 1000, 0 Decimal Digits` AUDIT: `EDITED OR DELETED`
960.04	INS BASE RR INS BASE	SCORES;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 2010` HELP-PROMPT: `Type a Number between -1000 and 1000, 0 Decimal Digits` AUDIT: `EDITED OR DELETED`
960.05	INS BASE SELF INS BASE	SCORES;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 2010` HELP-PROMPT: `Type a Number between -1000 and 1000, 0 Decimal Digits` AUDIT: `EDITED OR DELETED`
970.01	INS RULE ORDER INS	RULES;0	Multiple #9002313.9903	9002313.9903 IDENTIFIED BY: `INS RULE NAME(#.02)`
1490	NULL FILE NULL	FILE;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>127!($L(X)<1) X` LAST EDITED: `MAR 18, 2000` HELP-PROMPT: `Answer must be 1-127 characters in length.` DESCRIPTION: Path and filename of a "null" file we can throw away output to. Originally for when ABSPOS25 calls ABSBCOMB. If not present, ABSPOS25 defaults it to /dev/null
1501	OUTSIDE LINE OUTSIDE	LINE;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `APR 13, 2010` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: `The phone numbers in the DIAL OUT file 9002313.55 should be just the number to dial once you have an outside line. If you need something like a 9 in front, then set this node to that value, such as "9," to request an` outside line and then pause. A leading 1 (as in 18006544518) belongs in the DIAL OUT file, not here. AUDIT: `EDITED OR DELETED`
1660.01	POSTAGE CPT	POSTAGE;1	POINTER TO AN UNDEFINED FILE	LAST EDITED: `NOV 20, 2000` DESCRIPTION: Points to the charge code for postage for mailing prescriptions.
1801	RX AR TYPE DEFAULT RX A/R	TYPE;1	POINTER TO AN UNDEFINED FILE	LAST EDITED: `APR 13, 2000` DESCRIPTION: `ABSPOSB3 posts charges to accounts receivable. We need to decide on an AR TYPE before we call ABSBMAKE. The first choice is the A/R type from the PHARMACY field in the 9002313.57 record - it points to the 9002313.56` file, and we can have a different a/r type for each pharmacy. But this here is a default default.
1811.01	RECEIPT STYLE	RECEIPT;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `SEP 05, 2000` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: Must match a line tag at the top of ABSPECP3.
1960.01	OK MEDICAID INSURANCE NAME	SPECIAL;1	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) LAST EDITED: `APR 13, 2010` AUDIT: `EDITED OR DELETED`
1960.02	OK MEDICAID CYCLE (SECONDS)	SPECIAL;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1800)!(X<5)!(X?.E1"."1N.N) X` LAST EDITED: `APR 13, 2010` HELP-PROMPT: `Type a Number between 5 and 1800, 0 Decimal Digits` DESCRIPTION: After this many seconds without new prescriptions detected, we assume that data entry is complete so we may proceed to decide which ones to submit. AUDIT: `EDITED OR DELETED`
1960.03	OK MEDICAID LIMIT	SPECIAL;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 13, 2010` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: Limit is this many prescriptions in a month. AUDIT: `EDITED OR DELETED`
1960.04	SUBSCRIBER ID	SPECIAL;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `JAN 15, 2009` HELP-PROMPT: `For California Medicaid formats that need site specific software certification number`
1980.01	STARTUP DATE	STARTUP;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3991231X) X` LAST EDITED: `APR 10, 2000` HELP-PROMPT: `TYPE A DATE BETWEEN 4/10/2000 AND 12/31/2099` DESCRIPTION: `The date when POS activity went "live". This is needed by ABSPOSD1 so it won't pick up prescriptions before the POS "live" date. This is needed by ABSBLRX at Sitka so it won't do billing for prescriptions for visits` starting on this date.
2128.11	UNBILLABLE NDC # UNBILLABLE NDC	#;0	Multiple #9002313.9905	9002313.9905
2128.12	UNBILLABLE DRUG NAME UNBILLABLE DRUG	NAME;0	WORD-PROCESSING #9002313.9904
2128.13	UNBILLABLE OTC UNBILLABLE	OTC;1	SET	'1' FOR OTC DRUGS ARE UNBILLABLE; '0' FOR OTC DRUGS ARE BILLABLE; LAST EDITED: `APR 13, 2010` DESCRIPTION: `This is the system default setting to indicate that OTC drugs are unbillable. It can be set on an insurance-specific basis, too. If the system-wide setting is for OTC DRUGS ARE UNBILLABLE, any SELF, SELF PAY, or` uninsured cases will still be considered as billable. (Although you could still edit SELF PAY to say it's billable, for instance.) AUDIT: `EDITED OR DELETED`
2270.01	WO INSURER LIST TYPE	WRITEOFF-SCREEN;1	SET	'1' FOR ALL (Ignore list); '2' FOR Those LISTED here; '3' FOR EXCEPT these here; LAST EDITED: `MAY 09, 2000`
2270.02	WO ARTYPE LIST TYPE	WRITEOFF-SCREEN;2	SET	'1' FOR ALL (Ignore list); '2' FOR Those LISTED here; '3' FOR EXCEPT these here; LAST EDITED: `MAY 09, 2000`
2270.03	WO BAL MIN	WRITEOFF-SCREEN;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>1000000)!(X<-1000000) X` LAST EDITED: `MAY 18, 2000` HELP-PROMPT: `Type the MINIMUM balance of an account to include on the write-offs list.`
2270.04	WO BAL MAX	WRITEOFF-SCREEN;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>1000000)!(X<-1000000) X` LAST EDITED: `MAY 18, 2000` HELP-PROMPT: `Type the MAXIMUM balance of an account to include on the write-offs list.`
2270.05	WO AGE IN DAYS	WRITEOFF-SCREEN;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<10)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 09, 2000` HELP-PROMPT: `Type a Number between 10 and 9999, 0 Decimal Digits`
2270.06	WO CLINIC LIST TYPE	WRITEOFF-SCREEN;6	SET	'1' FOR ALL (Ignore list); '2' FOR Those LISTED here; '3' FOR EXCEPT these here; LAST EDITED: `MAY 09, 2000`
2270.11	WO PMT	WRITEOFF-SCREEN;11	SET	'0' FOR DON'T CONSIDER; '1' FOR BY CURRENT INSURER; '2' FOR YES, ANY PAYMENT; LAST EDITED: `MAY 11, 2000`
2270.12	WO REASON PTR	WRITEOFF-SCREEN;12	POINTER TO AN UNDEFINED FILE	LAST EDITED: `NOV 20, 2000`
2270.7	WO DIAGNOSIS LIST TYPE	WRITEOFF-SCREEN;7	SET	'1' FOR ALL (Ignore list); '2' FOR Those LISTED here; '3' FOR EXCEPT these here; LAST EDITED: `MAY 09, 2000`
2270.8	WO DATE OF SERVICE	WRITEOFF-SCREEN;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 09, 2000`
2270.9	WO BAL AS PCT	WRITEOFF-SCREEN;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `MAY 10, 2000` HELP-PROMPT: `Type a Number between 0 and 999.99, 2 Decimal Digits`
2271	WO ARTYPE WRITEOFF-SCREEN	ARTYPE;0	POINTER Multiple #9002313.992271	9002313.992271
2272.01	WO BATCH WRITEOFF-SCREEN	BATCH;1	POINTER TO AN UNDEFINED FILE	LAST EDITED: `MAY 17, 2000`
2273	WO CLINIC WRITEOFF-SCREEN	CLINIC;0	POINTER Multiple #9002313.992273	9002313.992273
2274	WO DIAG WRITEOFF-SCREEN	DIAG;0	POINTER Multiple #9002313.992274	9002313.992274
2279	WO INSURER WRITEOFF-SCREEN	INSURER;0	POINTER Multiple #9002313.992279	9002313.992279
2341.01	WINNOW .57 AFTER POSTING	WINNOW;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 26, 2000` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
2341.02	WINNOW UNPOSTED .57	WINNOW;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 26, 2000` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
2341.03	WINNOW LOG FILES	WINNOW;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `NOV 16, 2000` HELP-PROMPT: `Type a Number between 0 and 9999, 2 Decimal Digits`
2341.04	WINNOW COMBINED INSURANCE	WINNOW;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `NOV 16, 2000` HELP-PROMPT: `Type a Number between 0 and 9999, 2 Decimal Digits`
2341.05	WINNOW .03 RAW DATA	WINNOW;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
2341.06	WINNOW .03 CONTENTS	WINNOW;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
2341.07	WINNOW .02 RAW DATA	WINNOW;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
2341.08	WINNOW .02 CONTENTS	WINNOW;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
2341.09	WINNOW .51	WINNOW;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
2341.1	WINNOW .511	WINNOW;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
2341.11	WINNOW .59	WINNOW;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 2000` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
2342.01	WINNOW LOG FILE WINNOW	LOG;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 19, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.`
2342.02	WINNOW LOG -1 WINNOW	LOG;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 19, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.`
2342.03	WINNOW LOG -2 WINNOW	LOG;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 19, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.`
2343.01	WINNOW TESTING FLAG WINNOW	TESTING;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 19, 2000`
2380	WORKERS COMP WORKERS	COMP;0	POINTER Multiple #9002313.9901	9002313.9901
2388	WRITE OFF INSURER WRITE OFF	INSURER;0	POINTER Multiple #9002313.992388	9002313.992388
2389	WRITE OFF SELF PAY WRITE OFF SELF	PAY;0	POINTER Multiple #9002313.992389	9002313.992389
5151	NCPDP 5.1 CONVERSION	NCPDP51;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 31, 2002` DESCRIPTION: `This field will be used to document when the conversion of the claim file, done in preparation of the use of NCPDP 5.1, is completed. It should be set from within the post install routine (^ABSPOSJ1) run by the POS V1.0` Patch 3 kids file.
6000	GLOBAL NPI FLAG	NPI;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 26, 2010` HELP-PROMPT: `Set to YES to send NPI to all insurers.` AUDIT: `EDITED OR DELETED`

Customize PDF page

Package: Pharmacy Point of Sale

Global: ^ABSP(9002313.99

Information

Description

Directly Accessed By Routines, Total: 61

Accessed By FileMan Db Calls, Total: 8

Pointer To FileMan Files, Total: 6

Fields, Total: 111