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 | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^ABPAPBAT

Package: Third Party Tracking

Global: ^ABPAPBAT

Information

FileMan FileNo	FileMan Filename	Package
9002270.04	AO PVT-INS PAYMENT BATCH	Third Party Tracking

Description

Directly Accessed By Routines, Total: 10

Accessed By FileMan Db Calls, Total: 6

Pointer To FileMan Files, Total: 1

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X` LAST EDITED: `FEB 21, 1990` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002270.04^B` 1)= S ^ABPAPBAT("B",$E(X,1,30),DA)="" 2)= K ^ABPAPBAT("B",$E(X,1,30),DA)
.05	CHECK LOG TOTAL	0;10	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `MAR 12, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits`
1	STANDARD AMOUNT	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
2	DEDUCTIBLE/COINSURANCE AMOUNT	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
3	NON-COVERED SERVICE AMOUNT	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
4	BATCH TOTAL		COMPUTED	MUMPS CODE: `S Y(9002270.04,4,1)=$S($D(^ABPAPBAT(D0,0)):^(0),1:"") S X=$P(Y(9002270.04,4,1),U,2)+$P(Y(9002270.04,4,1),U,3)+$P(Y(9002270.04,4,1),U,4) S X=$J(X,0,2)` ALGORITHM: `#1+#2+#3 (ALWAYS 2 DECIMAL DIGITS)`
4.5	TOTAL DEDUCTIBLES		COMPUTED	MUMPS CODE: `S Y(9002270.04,4.5,1)=$S($D(^ABPAPBAT(D0,0)):^(0),1:"") S X=$P(Y(9002270.04,4.5,1),U,3)+$P(Y(9002270.04,4.5,1),U,4) S X=$J(X,0,2)` ALGORITHM: `#2+#3 (ALWAYS 2 DECIMAL DIGITS)`
5	STATUS	0;5	SET	**********************REQUIRED FIELD********************** 'C' FOR CLOSED; 'O' FOR OPEN; LAST EDITED: `FEB 20, 1990`
6	ESTABLISHING USER	0;6	POINTER TO USER FILE (#3)	**********************REQUIRED FIELD********************** USER(#3) LAST EDITED: `APR 30, 1990` CROSS-REFERENCE: `9002270.04^AD^MUMPS` 1)= S ^ABPAPBAT("AD",$E(X,1,30),9999999-DA)="" 2)= K ^ABPAPBAT("AD",$E(X,1,30),9999999-DA)
7	DATE OPENED	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 27, 1990`
8	DATE CLOSED	0;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 27, 1990` CROSS-REFERENCE: `9002270.04^AC` 1)= S ^ABPAPBAT("AC",$E(X,1,30),DA)="" 2)= K ^ABPAPBAT("AC",$E(X,1,30),DA)
9	CLOSING USER	0;9	POINTER TO USER FILE (#3)	USER(#3) LAST EDITED: `MAR 01, 1990`
10	PENALTY AMOUNT	0;11	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
11	ADJUSTMENTS	0;12	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
12	INTERFUND ADDITIONS	0;13	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `JUN 26, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`
13	REFUNDS	0;14	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All