Global: ^ABSPECX("RPT"

FileMan FileNo	FileMan Filename	Package
9002313.61	ABSP REPORT MASTER	Pharmacy Point of Sale

Package	Total	Routines
Pharmacy Point of Sale	9	ABSPOSEX ABSPOSJ1 ABSPOSM ABSPOSM1 ABSPOSM2 ABSPOSMB ABSPOSMF ABSPOSR5 ABSPOSR9

Package	Total	Routines
Pharmacy Point of Sale	1	ABSPOSMF

Package	Total	FileMan Files
Outpatient Pharmacy	1	PRESCRIPTION(#52)[.04]
Pharmacy Point of Sale	1	ABSP LOG OF TRANSACTIONS(#9002313.57)[.03]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	RELEASED DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 27, 2001` DESCRIPTION: `As obtained from ^PSRX("AL",*) in ABSPOSM1 but then we take off the time part. This is to facilitate sorting, and speed, too. We sort first on this date, and then by insurer. If we included time here, we get page breaks` everywhere. CROSS-REFERENCE: `9002313.61^B` 1)= S ^ABSPECX("RPT","B",$E(X,1,30),DA)="" 2)= K ^ABSPECX("RPT","B",$E(X,1,30),DA)
.02	TRANSACTION DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 06, 2001` DESCRIPTION: only date portion is stored, actually CROSS-REFERENCE: `9002313.61^AD` 1)= S ^ABSPECX("RPT","AD",$E(X,1,30),DA)="" 2)= K ^ABSPECX("RPT","AD",$E(X,1,30),DA) For efficient reporting by transaction date.
.03	TRANSACTION	0;3	POINTER TO ABSP LOG OF TRANSACTIONS FILE (#9002313.57)	ABSP LOG OF TRANSACTIONS(#9002313.57) LAST EDITED: `JAN 24, 2001` DESCRIPTION: The most recent 9002313.57 transaction for this RXI,RXR. Should be same as the 9002313.59, but maybe different computed fields are available. CROSS-REFERENCE: `9002313.61^AE` 1)= S ^ABSPECX("RPT","AE",$E(X,1,30),DA)="" 2)= K ^ABSPECX("RPT","AE",$E(X,1,30),DA) The reason for this index is to screen entries when searching on the transaction file (.57). The screen "I $D(^ABSPECX(""RPT"",""AE"",D0))" answers the question "Is this transaction the most recent transaction for the associated prescription/fill?"
.04	RXI	0;4	POINTER TO PRESCRIPTION FILE (#52)	PRESCRIPTION(#52) LAST EDITED: `JAN 23, 2001` DESCRIPTION: points to prescription CROSS-REFERENCE: `9002313.61^C` 1)= S ^ABSPECX("RPT","C",$E(X,1,30),DA)="" 2)= K ^ABSPECX("RPT","C",$E(X,1,30),DA)
.05	RXR	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 2001` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: Refill multiple
.06	RESULT TYPE	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 07, 2001` HELP-PROMPT: `Type a Number between 0 and 20, 0 Decimal Digits` DESCRIPTION: See ABSPOSM1 for values. Purpose: quicker easier sorting
1	REMARKS	1;0	WORD-PROCESSING #9002313.611
1300	MESSAGE	M;0	WORD-PROCESSING #9002313.6213
1800	REJECTION REASONS	R;0	WORD-PROCESSING #9002313.6118
10001	RX DELETED		COMPUTED	MUMPS CODE: `S X=$$DELETED^ABSPOSM(D0)` ALGORITHM: `S X=$$DELETED^ABSPOSM(D0)` LAST EDITED: `FEB 03, 2001`
10002	INSURER HELP #		COMPUTED	MUMPS CODE: `S X=$$INSHELP^ABSPOSM(D0)` ALGORITHM: `S X=$$INSHELP^ABSPOSM(D0)`
10003	RX RELEASED DATE/TIME		COMPUTED	MUMPS CODE: `S X=$$RELTIME^ABSPOSM(D0)` ALGORITHM: `S X=$$RELTIME^ABSPOSM(D0)`
10004	RX RETURNED TO STOCK		COMPUTED	MUMPS CODE: `S X=$$RETSTOCK^ABSPOSM(D0)` ALGORITHM: `S X=$$RETSTOCK^ABSPOSM(D0)` LAST EDITED: `JAN 29, 2001`
10005	UNINSURED		BOOLEAN COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10005,10) S X=$S('$D(^AUTNINS(+$P(Y(9002313.61,10005,301),U,6),0)):"",1:$P(^(0),U,1))="SELF PAY",Y=X,X=Y(9002313.61,10005,202),X=X!Y S D0=Y(9002313.61,10005,80)` 9.2 = S Y(9002313.61,10005,80)=$S($D(D0):D0,1:""),Y(9002313.61,10005,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") 9.3 = X ^DD(9002313.61,10005,9.2) S D0=$P(Y(9002313.61,10005,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 S Y(9002313.61,10005,180)=$S($D(D0):D0,1:"") 9.4 = X ^DD(9002313.61,10005,9.3) S Y(9002313.61,10005,101)=$S($D(^ABSPTL(D0,1)):^(1),1:"") 9.5 = X ^DD(9002313.61,10005,9.4) S X=$S('$D(^AUTNINS(+$P(Y(9002313.61,10005,101),U,6),0)):"",1:$P(^(0),U,1))=0,Y(9002313.61,10005,102)=X 9.6 = X ^DD(9002313.61,10005,9.5) S D0=$P(Y(9002313.61,10005,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 S Y(9002313.61,10005,280)=$S($D(D0):D0,1:"") 9.7 = X ^DD(9002313.61,10005,9.6) S Y(9002313.61,10005,201)=$S($D(^ABSPTL(D0,1)):^(1),1:"") 9.8 = X ^DD(9002313.61,10005,9.7) S X=$S('$D(^AUTNINS(+$P(Y(9002313.61,10005,201),U,6),0)):"",1:$P(^(0),U,1))="",Y=X,X=Y(9002313.61,10005,102),X=X!Y 9.9 = X ^DD(9002313.61,10005,9.8) S Y(9002313.61,10005,202)=X,D0=$P(Y(9002313.61,10005,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 10 = X ^DD(9002313.61,10005,9.9) S Y(9002313.61,10005,301)=$S($D(^ABSPTL(D0,1)):^(1),1:"") ALGORITHM: `(TRANSACTION:INSURER=0)!(TRANSACTION:INSURER="")!(TRANSACTION:INSURER="SELF PAY")` LAST EDITED: `FEB 03, 2001` SOURCE OF DATA: X ^DD(9002313.61,10005,9.9) S Y(9002313.61,10005,301)=$S($D(^ABSPTL(D0,1)):^(1),1:"")
10006	AMOUNT PAYABLE		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10006,9.4) S Y(9002313.61,10006,103)=X S X="",X=$S(Y(9002313.61,10006,2):Y(9002313.61,10006,102),Y(9002313.61,10006,103):X) S D0=Y(9002313.61,10006,80)` 9.2 = S Y(9002313.61,10006,80)=$S($D(D0):D0,1:""),Y(9002313.61,10006,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") S X=$P(Y(9002313.61,10006,1),U,6)=4 9.3 = X ^DD(9002313.61,10006,9.2) S Y(9002313.61,10006,2)=X,D0=$P(Y(9002313.61,10006,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.4 = X ^DD(9002313.61,10006,9.3) X $P(^DD(9002313.57,9999.96,0),U,5,99) S Y(9002313.61,10006,101)=X S X=Y(9002313.61,10006,101),Y(9002313.61,10006,102)=X S X=1 ALGORITHM: `$S(RESULT TYPE=4:TRANSACTION:NET PAID,1:"")` LAST EDITED: `FEB 02, 2001`
10007	AMOUNT SHORTED		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10007,9.7) S X=$S(Y(9002313.61,10007,2):Y(9002313.61,10007,202),Y(9002313.61,10007,203):X) S D0=Y(9002313.61,10007,80)` 9.2 = S Y(9002313.61,10007,80)=$S($D(D0):D0,1:""),Y(9002313.61,10007,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") S X=$P(Y(9002313.61,10007,1),U,6)=4 9.3 = X ^DD(9002313.61,10007,9.2) S Y(9002313.61,10007,2)=X,Y(9002313.61,10007,3)=X,D0=$P(Y(9002313.61,10007,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.4 = X ^DD(9002313.61,10007,9.3) S Y(9002313.61,10007,180)=$S($D(D0):D0,1:""),Y(9002313.61,10007,101)=$S($D(^ABSPTL(D0,5)):^(5),1:"") 9.5 = X ^DD(9002313.61,10007,9.4) S X=$P(Y(9002313.61,10007,101),U,5),Y(9002313.61,10007,102)=X 9.6 = X ^DD(9002313.61,10007,9.5) S D0=$P(Y(9002313.61,10007,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 X $P(^DD(9002313.57,9999.96,0),U,5,99) S Y(9002313.61,10007,201)=X 9.7 = X ^DD(9002313.61,10007,9.6) S X=Y(9002313.61,10007,201),Y=X,X=Y(9002313.61,10007,102),X=X-Y,Y(9002313.61,10007,202)=X S X=1,Y(9002313.61,10007,203)=X S X="" ALGORITHM: `$S(RESULT TYPE=4:(TRANSACTION:TOTAL PRICE-(TRANSACTION:NET PAID BY INSURER)),1:"")` LAST EDITED: `FEB 02, 2001`
10008	AMOUNT CAPTURED		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10008,9.5) S X=$S(Y(9002313.61,10008,2):Y(9002313.61,10008,102),Y(9002313.61,10008,103):X) S D0=Y(9002313.61,10008,80)` 9.2 = S Y(9002313.61,10008,80)=$S($D(D0):D0,1:""),Y(9002313.61,10008,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") S X=$P(Y(9002313.61,10008,1),U,6)=3 9.3 = X ^DD(9002313.61,10008,9.2) S Y(9002313.61,10008,2)=X,D0=$P(Y(9002313.61,10008,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.4 = X ^DD(9002313.61,10008,9.3) S Y(9002313.61,10008,101)=$S($D(^ABSPTL(D0,5)):^(5),1:"") S X=$P(Y(9002313.61,10008,101),U,5) 9.5 = X ^DD(9002313.61,10008,9.4) S Y(9002313.61,10008,102)=X S X=1,Y(9002313.61,10008,103)=X S X="" ALGORITHM: `$S(RESULT TYPE=3:TRANSACTION:TOTAL PRICE,1:"")`
10009	AMOUNT DUPLICATE		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10009,9.5) S X=$S(Y(9002313.61,10009,2):Y(9002313.61,10009,102),Y(9002313.61,10009,103):X) S D0=Y(9002313.61,10009,80)` 9.2 = S Y(9002313.61,10009,80)=$S($D(D0):D0,1:""),Y(9002313.61,10009,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") S X=$P(Y(9002313.61,10009,1),U,6)=2 9.3 = X ^DD(9002313.61,10009,9.2) S Y(9002313.61,10009,2)=X,D0=$P(Y(9002313.61,10009,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.4 = X ^DD(9002313.61,10009,9.3) S Y(9002313.61,10009,101)=$S($D(^ABSPTL(D0,5)):^(5),1:"") S X=$P(Y(9002313.61,10009,101),U,5) 9.5 = X ^DD(9002313.61,10009,9.4) S Y(9002313.61,10009,102)=X S X=1,Y(9002313.61,10009,103)=X S X="" ALGORITHM: `$S(RESULT TYPE=2:TRANSACTION:TOTAL PRICE,1:"")`
10010	AMOUNT PAPER		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10010,9.6) S X=$S(Y(9002313.61,10010,4):Y(9002313.61,10010,102),Y(9002313.61,10010,103):X) S D0=Y(9002313.61,10010,80)` 9.2 = X $P(^DD(9002313.61,10005,0),U,5,99) S Y(9002313.61,10010,3)=X S Y(9002313.61,10010,80)=$S($D(D0):D0,1:""),Y(9002313.61,10010,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") 9.3 = X ^DD(9002313.61,10010,9.2) S X=$P(Y(9002313.61,10010,1),U,6)=9,Y(9002313.61,10010,2)=X S X=Y(9002313.61,10010,3)=0,Y=X,X=Y(9002313.61,10010,2),X=X&Y 9.4 = X ^DD(9002313.61,10010,9.3) S Y(9002313.61,10010,4)=X,D0=$P(Y(9002313.61,10010,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.5 = X ^DD(9002313.61,10010,9.4) S Y(9002313.61,10010,101)=$S($D(^ABSPTL(D0,5)):^(5),1:"") S X=$P(Y(9002313.61,10010,101),U,5) 9.6 = X ^DD(9002313.61,10010,9.5) S Y(9002313.61,10010,102)=X S X=1,Y(9002313.61,10010,103)=X S X="" ALGORITHM: `$S((RESULT TYPE=9)&(UNINSURED=0):TRANSACTION:TOTAL PRICE,1:"")`
10011	AMOUNT UNINSURED		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10011,9.6) S X=$S(Y(9002313.61,10011,4):Y(9002313.61,10011,102),Y(9002313.61,10011,103):X) S D0=Y(9002313.61,10011,80)` 9.2 = X $P(^DD(9002313.61,10005,0),U,5,99) S Y(9002313.61,10011,3)=X S Y(9002313.61,10011,80)=$S($D(D0):D0,1:""),Y(9002313.61,10011,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") 9.3 = X ^DD(9002313.61,10011,9.2) S X=$P(Y(9002313.61,10011,1),U,6)=9,Y(9002313.61,10011,2)=X S X=Y(9002313.61,10011,3),Y=X,X=Y(9002313.61,10011,2),X=X&Y 9.4 = X ^DD(9002313.61,10011,9.3) S Y(9002313.61,10011,4)=X,D0=$P(Y(9002313.61,10011,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.5 = X ^DD(9002313.61,10011,9.4) S Y(9002313.61,10011,101)=$S($D(^ABSPTL(D0,5)):^(5),1:"") S X=$P(Y(9002313.61,10011,101),U,5) 9.6 = X ^DD(9002313.61,10011,9.5) S Y(9002313.61,10011,102)=X S X=1,Y(9002313.61,10011,103)=X S X="" ALGORITHM: `$S((RESULT TYPE=9)&(UNINSURED):TRANSACTION:TOTAL PRICE,1:"")`
10012	AMOUNT OTHER		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10012,9.7) S X=$S(Y(9002313.61,10012,2):Y(9002313.61,10012,3),Y(9002313.61,10012,5):Y(9002313.61,10012,6),Y(9002313.61,10012,8):Y(9002313.61,10012,102),Y(9002313.61,10012,103):X) S D0=Y(9002313.61,10012,80` ) 9.2 = X $P(^DD(9002313.61,10001,0),U,5,99) S Y(9002313.61,10012,4)=X X $P(^DD(9002313.61,10004,0),U,5,99) S Y(9002313.61,10012,1)=X S Y(9002313.61,10012,80)=$S($D(D0):D0,1:"") 9.3 = X ^DD(9002313.61,10012,9.2) S Y(9002313.61,10012,7)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") S X=Y(9002313.61,10012,1),Y(9002313.61,10012,2)=X S X="" 9.4 = X ^DD(9002313.61,10012,9.3) S Y(9002313.61,10012,3)=X S X=Y(9002313.61,10012,4),Y(9002313.61,10012,5)=X S X="",Y(9002313.61,10012,6)=X S X=$P(Y(9002313.61,10012,7),U,6) 9.5 = X ^DD(9002313.61,10012,9.4) S X=X<0,Y(9002313.61,10012,8)=X,D0=$P(Y(9002313.61,10012,7),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.6 = X ^DD(9002313.61,10012,9.5) S Y(9002313.61,10012,101)=$S($D(^ABSPTL(D0,5)):^(5),1:"") S X=$P(Y(9002313.61,10012,101),U,5) 9.7 = X ^DD(9002313.61,10012,9.6) S Y(9002313.61,10012,102)=X S X=1,Y(9002313.61,10012,103)=X S X="" ALGORITHM: `$S(RX RETURNED TO STOCK:"",RX DELETED:"",RESULT TYPE<0:TRANSACTION:TOTAL PRICE,1:"")`
10013	AMOUNT REJECTED		COMPUTED	MUMPS CODE: `X ^DD(9002313.61,10013,9.5) S X=$S(Y(9002313.61,10013,2):Y(9002313.61,10013,102),Y(9002313.61,10013,103):X) S D0=Y(9002313.61,10013,80)` 9.2 = S Y(9002313.61,10013,80)=$S($D(D0):D0,1:""),Y(9002313.61,10013,1)=$S($D(^ABSPECX("RPT",D0,0)):^(0),1:"") S X=$P(Y(9002313.61,10013,1),U,6)=1 9.3 = X ^DD(9002313.61,10013,9.2) S Y(9002313.61,10013,2)=X,D0=$P(Y(9002313.61,10013,1),U,3) S:'$D(^ABSPTL(+D0,0)) D0=-1 9.4 = X ^DD(9002313.61,10013,9.3) S Y(9002313.61,10013,101)=$S($D(^ABSPTL(D0,5)):^(5),1:"") S X=$P(Y(9002313.61,10013,101),U,5) 9.5 = X ^DD(9002313.61,10013,9.4) S Y(9002313.61,10013,102)=X S X=1,Y(9002313.61,10013,103)=X S X="" ALGORITHM: `$S(RESULT TYPE=1:TRANSACTION:TOTAL PRICE,1:"")`

Customize PDF page

Package: Pharmacy Point of Sale

Global: ^ABSPECX("RPT"

Information

Description

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 22