Global: ^ABSPT

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

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

Package	Total	Routines
Pharmacy Point of Sale	2	ABSPOS6N ABSPOSIZ

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

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

Customize PDF page

Package: Pharmacy Point of Sale

Global: ^ABSPT

Information

Description

Directly Accessed By Routines, Total: 48

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 13

Fields, Total: 75