Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Details | All

Print Page as PDF

Sub-Field: 9002270.21

Package: Third Party Tracking

AO PVT-INS ACCOUNT(#9002270.02)-->9002270.21

Sub-Field: 9002270.21

Information

Parent File	Name	Number	Package
AO PVT-INS ACCOUNT(#9002270.02)	DATE OF SERVICE	9002270.21	Third Party Tracking

Details

Field #	Name	Loc	Type	Details
.01	DATE OF SERVICE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 21, 1990` HELP-PROMPT: AUDIT: `EDITED OR DELETED` DELETE AUTHORITY: @ CROSS-REFERENCE: `9002270.02^C` 1)= S ^ABPVAO("C",$E(X,1,30),DA(1),DA)="" 2)= K ^ABPVAO("C",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `9002270.02^PC^MUMPS` 1)= S ^ABPVAO("PC",DA(1),$E(X,1,30),DA)="" 2)= K ^ABPVAO("PC",DA(1),$E(X,1,30),DA)
.02	BILL ID	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X` LAST EDITED: `MAY 03, 1991` HELP-PROMPT: `Answer must be 1-7 characters in length.` CROSS-REFERENCE: `9002270.02^CN^MUMPS` 1)= S ^ABPVAO("CN",$E(X,1,30),$P(^ABPVAO(DA(1),0),"^",2),DA(1),DA)="" 2)= K ^ABPVAO("CN",$E(X,1,30),$P(^ABPVAO(DA(1),0),"^",2),DA(1),DA) CROSS-REFERENCE: `9002270.02^I` 1)= S ^ABPVAO("I",$E(X,1,30),DA(1),DA)="" 2)= K ^ABPVAO("I",$E(X,1,30),DA(1),DA)
.03	WRITE-OFF	0;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `JUN 19, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits`
.04	VISIT TYPE	0;4	SET	**********************REQUIRED FIELD********************** 'I' FOR INPATIENT (HOSPITAL ONLY); 'O' FOR OUTPATIENT; 'D' FOR DENTAL; 'A' FOR ADJUSTMENT; 'P' FOR INPATIENT (PHYSICIAN ONLY); LAST EDITED: `APR 05, 1990` DELETE AUTHORITY: @
.05	DAYS OR VISITS	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>50)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 50, 0 Decimal Digits` DELETE AUTHORITY: @
.06	INSURANCE COMPANY	0;6	POINTER TO INSURER FILE (#9999999.18)	**********************REQUIRED FIELD********************** INSURER(#9999999.18) LAST EDITED: `JAN 10, 1991` DELETE AUTHORITY: @ CROSS-REFERENCE: `9002270.02^AI^MUMPS` 1)= S ^ABPVAO("AI",$E(X,1,30),DA(1),DA)="" 2)= K ^ABPVAO("AI",$E(X,1,30),DA(1),DA)
.062	POLICY HOLDER'S NAME	0;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 20, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.064	POLICY NUMBER	0;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `MAY 20, 1991` HELP-PROMPT: `Answer must be 1-15 characters in length.`
.07	CLAIM AMOUNT	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X I $D(X) S X=$J(X,0,2)` LAST EDITED: `SEP 26, 1989` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` DELETE AUTHORITY: @ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.11	DATE CLAIM ENTERED AT FACILITY	0;11	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 05, 1989` CROSS-REFERENCE: `9002270.02^H` 1)= S ^ABPVAO("H",$E(X,1,30),DA(1),DA)="" 2)= K ^ABPVAO("H",$E(X,1,30),DA(1),DA)
.115	DATE EXTRACTED FROM FACILITY	0;12	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 01, 1990` CROSS-REFERENCE: `9002270.02^AC^MUMPS` 1)= S ^ABPVAO("AC",$E(X,1,30),DA(1),DA)="" 2)= K ^ABPVAO("AC",$E(X,1,30),DA(1),DA)
.12	AGE OF CLAIM (ENTRY)		COMPUTED	MUMPS CODE: `S Y(9002270.21,.12,1)=$S($D(^ABPVAO(D0,1,D1,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(9002270.21,.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	AGE OF CLAIM (EXPORT)		COMPUTED	MUMPS CODE: `S Y(9002270.21,.13,1)=$S($D(^ABPVAO(D0,1,D1,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(9002270.21,.13,1),U,12),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)` ALGORITHM: `TODAY-DATE EXTRACTED FROM FACILITY (ALWAYS 0 DECIMAL DIGITS)`
.17	AGE OF CLAIM (VISIT)		COMPUTED	MUMPS CODE: `S Y(9002270.21,.17,1)=$S($D(^ABPVAO(D0,1,D1,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(9002270.21,.17,1),U,1),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)` ALGORITHM: `TODAY-DATE OF SERVICE (ALWAYS 0 DECIMAL DIGITS)`
.18	CLAIM STATUS	0;17	SET	**********************REQUIRED FIELD********************** 'C' FOR CLOSED; 'D' FOR DENIED; 'O' FOR OPEN ITEM; 'PA' FOR PAYMENT APPLIED; 'PE' FOR PENDING; LAST EDITED: `APR 27, 1990` CROSS-REFERENCE: `9002270.02^CS^MUMPS` 1)= S ^ABPVAO("CS",$E(X,1,30),DA(1),DA)="" 2)= K ^ABPVAO("CS",$E(X,1,30),DA(1),DA)
.19	DATE OF DENIAL	0;18	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 08, 1990`

Info | Details | All