Global: ^ABPVFAC

FileMan FileNo	FileMan Filename	Package
9002273.02	PRIVATE INS FACILITY BILLING	Third Party Tracking

Package	Total	Routines
Third Party Tracking	9	ABPVCK0 ABPVCK1 ABPVEEC0 ABPVEEC1 ABPVEEC2 ABPVEEC3 ABPVPI01 ABPVTX0 ABPVTX2
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Third Party Tracking	4	ABPVEEC1 ABPVEEC2 ABPVEEC3 ABPVPI01
Third Party Billing	3	ABMDECAN ABMDRSET ABMDTIMR
IHS Patient Registration	1	AGTMIMRG

Package	Total	FileMan Files
Utility Tables	2	INSURER(#9999999.18)[7] LOCATION(#9999999.06)[3]
IHS Patient	1	PATIENT(#9000001)[1]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	BILL ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `JUN 28, 1990` HELP-PROMPT: `Answer must be 1-7 characters in length.` CROSS-REFERENCE: `9002273.02^B` 1)= S ^ABPVFAC("B",$E(X,1,30),DA)="" 2)= K ^ABPVFAC("B",$E(X,1,30),DA)
1	PATIENT'S NAME	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001)
2	DATE OF SERVICE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` CROSS-REFERENCE: `9002273.02^PC^MUMPS` 1)= S ^ABPVFAC("PC",$P(^ABPVFAC(DA,0),"^",2),$E(X,1,30),DA)="" 2)= K ^ABPVFAC("PC",$P(^ABPVFAC(DA,0),"^",2),$E(X,1,30),DA) CROSS-REFERENCE: `9002273.02^C` 1)= S ^ABPVFAC("C",$E(X,1,30),DA)="" 2)= K ^ABPVFAC("C",$E(X,1,30),DA)
3	FACILITY	0;4	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06)
4	HEALTH RECORD NUMBER	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` CROSS-REFERENCE: `9002273.02^G^MUMPS` 1)= S ^ABPVFAC("G",$P(^ABPVFAC(DA,0),"^",4),$E(X,1,6),DA)="" 2)= K ^ABPVFAC("G",$P(^ABPVFAC(DA,0),"^",4),$E(X,1,6),DA)
4.03	SOCIAL SECURITY NUMBER	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<9) X I $D(X) I $L(X)=11 S X=$E(X,1,3)_$E(X,5,6)_$E(X,8,11)` LAST EDITED: `JUN 03, 1991` HELP-PROMPT: `Answer must be 9-11 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	VISIT TYPE	0;6	SET	**********************REQUIRED FIELD********************** 'O' FOR OUTPATIENT; 'I' FOR INPATIENT (HOSPITAL ONLY); 'D' FOR DENTAL; 'P' FOR INPATIENT (PHYSICIAN ONLY); LAST EDITED: `JUN 03, 1991`
6	DAYS OR VISITS	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 17, 1989` HELP-PROMPT: `Type a Number between 0 and 50, 0 Decimal Digits`
7	INSURANCE COMPANY	0;8	POINTER TO INSURER FILE (#9999999.18)	**********************REQUIRED FIELD********************** INSURER(#9999999.18) LAST EDITED: `JUN 03, 1991` CROSS-REFERENCE: `9002273.02^I` 1)= S ^ABPVFAC("I",$E(X,1,30),DA)="" 2)= K ^ABPVFAC("I",$E(X,1,30),DA)
7.03	POLICY HOLDER'S NAME	0;16	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUN 03, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.`
7.05	POLICY NUMBER	0;17	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JUN 03, 1991` HELP-PROMPT: `Answer must be 1-15 characters in length.`
8	BILLED AMOUNT	0;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<1) X` LAST EDITED: `NOV 17, 1989` HELP-PROMPT: `Type a Dollar Amount between 1 and 99999, 2 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	PAID AMOUNT	0;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `NOV 21, 1989` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	WRITE OFF		COMPUTED	MUMPS CODE: `X ^DD(9002273.02,10,9.2) S Y(9002273.02,10,3)=X S X=1,Y(9002273.02,10,4)=X S X="",X=$S(Y(9002273.02,10,2):Y(9002273.02,10,3),Y(9002273.02,10,4):X) S X=$J(X,0,2)` 9.2 = S Y(9002273.02,10,1)=$S($D(^ABPVFAC(D0,0)):^(0),1:"") S X=$P(Y(9002273.02,10,1),U,10)'="",Y(9002273.02,10,2)=X S X=$P(Y(9002273.02,10,1),U,9)-$P(Y(9002273.02,10,1),U,10) ALGORITHM: `$S(PAID AMOUNT'="":CLAIM AMOUNT-PAID AMOUNT,1:"") (ALWAYS 2 DECIMAL DIGITS)`
11	DATE CLAIM ENTERED	0;11	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 14, 1989` CROSS-REFERENCE: `9002273.02^H` 1)= S ^ABPVFAC("H",$E(X,1,30),DA)="" 2)= K ^ABPVFAC("H",$E(X,1,30),DA)
12	AGE OF CLAIM (ENTRY)		COMPUTED	MUMPS CODE: `S Y(9002273.02,12,1)=$S($D(^ABPVFAC(D0,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(9002273.02,12,1),U,11),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)` ALGORITHM: `TODAY-DATE CLAIM ENTERED (ALWAYS 0 DECIMAL DIGITS)`
13	DATE PAYMENT RECEIVED	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
14	DATE PAYMENT ENTERED	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` CROSS-REFERENCE: `9002273.02^D` 1)= S ^ABPVFAC("D",$E(X,1,30),DA)="" 2)= K ^ABPVFAC("D",$E(X,1,30),DA)
15	AGE OF CLAIM (VISIT)		COMPUTED	MUMPS CODE: `S Y(9002273.02,15,1)=$S($D(^ABPVFAC(D0,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(9002273.02,15,1),U,3),X="" D:X2 ^%DTC:X1` ALGORITHM: `TODAY-DATE OF SERVICE` LAST EDITED: `SEP 14, 1989`
16	CLAIM EXTRACTED FOR AREA?	0;14	SET	'N' FOR NO; 'Y' FOR YES; CROSS-REFERENCE: `9002273.02^E` 1)= S ^ABPVFAC("E",$E(X,1,30),DA)="" 2)= K ^ABPVFAC("E",$E(X,1,30),DA)
17	DATE CLAIM EXTRACTED FOR AREA	0;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` CROSS-REFERENCE: `9002273.02^F` 1)= S ^ABPVFAC("F",$E(X,1,30),DA)="" 2)= K ^ABPVFAC("F",$E(X,1,30),DA)

Customize PDF page

Package: Third Party Tracking

Global: ^ABPVFAC

Information

Description

Directly Accessed By Routines, Total: 11

Accessed By FileMan Db Calls, Total: 8

Pointer To FileMan Files, Total: 3

Fields, Total: 21