Global: ^ABMDCLM

FileMan FileNo	FileMan Filename	Package
9002274.3	3P CLAIM DATA	Third Party Billing

Package	Total	Routines
Third Party Billing	184	ABMAROL1 ABMAROLL ABMASPLT ABMCPTCK ABMDACK ABMDANTC ABMDAST ABMDAST1 ABMDAST2 ABMDAST3 ABMDAST4 ABMDBACK ABMDCOPN ABMDE ABMDE0 ABMDE0A ABMDE0X ABMDE0X1 ABMDE1 ABMDE1X ABMDE2 ABMDE2A ABMDE2E ABMDE2P ABMDE2X ABMDE2X1 ABMDE3 ABMDE30 ABMDE301 ABMDE31 ABMDE31X ABMDE32 ABMDE3A ABMDE3B ABMDE3C ABMDE3X ABMDE4 ABMDE4A ABMDE4X ABMDE5 ABMDE5A ABMDE5B ABMDE5C ABMDE5D ABMDE5X ABMDE6 ABMDE6X ABMDE7 ABMDE7A ABMDE7C ABMDE7X ABMDE8 ABMDE8A ABMDE8AS ABMDE8B ABMDE8B1 ABMDE8C ABMDE8CA ABMDE8D ABMDE8E ABMDE8EA ABMDE8F ABMDE8G ABMDE8H ABMDE8I ABMDE8J ABMDE8K ABMDE8X ABMDE8X1 ABMDE8X2 ABMDE8X3 ABMDE9 ABMDE9A ABMDE9B ABMDE9C ABMDE9X ABMDEAD2 ABMDEADD ABMDEBIL ABMDECAN ABMDECHK ABMDECK ABMDECLN ABMDEDIC ABMDEDIK ABMDEERL ABMDEFIP ABMDELOO ABMDEML ABMDEMLA ABMDEMLB ABMDEMLC ABMDEMLE ABMDEMRG ABMDEOK ABMDEOK1 ABMDES24 ABMDES4 ABMDESM ABMDESM1 ABMDESMB ABMDESMU ABMDEVAR ABMDEWS ABMDICST ABMDLCK ABMDLCK1 ABMDLINK ABMDMDB2 ABMDMEDB ABMDPAY ABMDPAY2 ABMDRBR ABMDRBR1 ABMDRBR2 ABMDRCHK ABMDRDE ABMDRRB ABMDRSU ABMDRSU1 ABMDRSU2 ABMDRXC ABMDRXC1 ABMDRXC2 ABMDSPLB ABMDSPLT ABMDTMS ABMDUTL ABMDVCK0 ABMDVCK2 ABMDVS10 ABMDVS11 ABMDVS12 ABMDVS13 ABMDVST ABMDVST1 ABMDVST2 ABMDVST3 ABMDVST4 ABMDVST5 ABMDVST6 ABMDVST9 ABMDVSTH ABMEAUTO ABMERUTL ABMEXLIP ABMFCPT ABMMCDCU ABMMLTIT ABMMRS ABMMUFC3 ABMP2510 ABMP2511 ABMP2512 ABMP2513 ABMP2514 ABMP2515 ABMP2611 ABMP2614 ABMP2619 ABMP263 ABMPOST9 ABMPPAD2 ABMPPADJ ABMPRVCV ABMPSPLT ABMPST10 ABMPST26 ABMPSTRD ABMPT258 ABMPT259 ABMPT266 ABMPT268 ABMPT269 ABMRSPI1 ABMRSTI1 ABMRSTI2 ABMRSTI3 ABMRSTIN ABMRVCXR ABMSTAT ABMTALLY ABMUCUTL ABMVRQUE
IHS Patient Registration	6	AG6P15 AG6P16 AG6P17A AG7ENV AGED51 AGUTILS
IHS Patient Merge	5	BPMX3PB BPMXFIX BPMXFX1 BPMXFX2 BPMXVP
Local Area Programs	2	AZAXDPM1 AZAXPTR
GUI Objects	1	BGOCPTP2
IHS Accounts Receivable	1	BAR3PINQ

Package	Total	Routines
Third Party Billing	67	ABMAROL1 ABMASPLT ABMDAST ABMDAST1 ABMDAST3 ABMDAST4 ABMDCOPN ABMDE ABMDE0 ABMDE0A ABMDE1 ABMDE1X ABMDE2E ABMDE2P ABMDE2X1 ABMDE3 ABMDE30 ABMDE31 ABMDE32 ABMDE3A ABMDE3B ABMDE3C ABMDE4 ABMDE5 ABMDE5A ABMDE6 ABMDE7 ABMDE7C ABMDE8 ABMDE8C ABMDE8D ABMDE8J ABMDE9B ABMDEAD2 ABMDECAN ABMDECK ABMDECLN ABMDEDIC ABMDEDIK ABMDEERL ABMDEML ABMDEMLA ABMDEMLB ABMDEMLC ABMDEMLE ABMDEMRG ABMDEOK ABMDEOPN ABMDEVAR ABMDEWS ABMDLCK ABMDPAY2 ABMDSPLB ABMDSPLT ABMDVST ABMDVST1 ABMDVST4 ABMDVST6 ABMDVSTH ABMEAUTO ABMEXLIP ABMFCPT ABMMUFC3 ABMPST10 ABMRSTI2 ABMRVCXR ABMVRQUE
IHS Accounts Receivable	1	BAR3PINQ

Package	Total	FileMan Files
IHS Patient	1	IHS HL7 SUPPLY INTERFACE(#9000021)[.06]

Package	Total	FileMan Files
Third Party Billing	10	3P CLOSED CLAIM REASON(#9002274.301)[#9002274.3069(.04)] 3P CHARGE MASTER(#9002274.75)[#9002274.3045(.01)] 3P CONDITION INDICATORS(#9002274.34)[#9002274.314(.01)] 3P BILL(#9002274.4)[#9002274.3065(.01)] 3P CODES(#9002274.03)[.51, .52, .53, .54, .916, #9002274.3021(.15), #9002274.3021(.16), #9002274.3027(.15), #9002274.3027(.16), #9002274.3035(.15), #9002274.3035(.16), #9002274.3037(.15), #9002274.3037(.16), #9002274.3039(.15), #9002274.3039(.16), #9002274.3043(.15), #9002274.3043(.16), #9002274.3047(.15), #9002274.3047(.16), #9002274.3051(.01), #9002274.3053(.01), #9002274.3055(.01), #9002274.3057(.01), #9002274.3059(.01), #9002274.3071(.01)] 3P EXPORT MODE(#9002274.08)[.14, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80] 3P VISIT TYPE(#9002274.8)[.07] 3P CLAIM PENDING STATUS(#9002274.33)[.18] 3P PROVIDER TAXONOMY(#9002274.95)[.888] 3P REFERENCE LAB LOCATIONS(#9002274.35)[.923, #9002274.3037(.14), #9002274.3043(.14), #9002274.3047(.14)]
Utility Tables	7	INSURER(#9999999.18)[.08, #9002274.3013(.01), #9002274.3013(.011)] PROVIDER NARRATIVE(#9999999.27)[#9002274.3017(.03), #9002274.3019(.04), #9002274.3021(.06)] ADA CODE(#9999999.31)[#9002274.3033(.01)] LOCATION(#9999999.06)[.03, .127, .13] COVERAGE TYPE(#9999999.65)[#9002274.301311(.01)] REVENUE CODES(#9999999.72)[.97, #9002274.3021(.03), #9002274.3023(.02), #9002274.3025(.01), #9002274.3027(.02), #9002274.3033(.02), #9002274.3035(.02), #9002274.3037(.02), #9002274.3039(.02), #9002274.3043(.02), #9002274.3045(.05), #9002274.3047(.02)] VENDOR(#9999999.11)[.127]
Kernel	4	STATE(#5)[.125, .816] PROVIDER CLASS(#7)[.887] PERSON CLASS(#8932.1)[.886] NEW PERSON(#200)[.023, .19, #9002274.3021(.14), #9002274.302118(.01), #9002274.3023(.1), #9002274.3023(.21), #9002274.3023(.23), #9002274.302318(.01), #9002274.3027(.1), #9002274.302718(.01), #9002274.303318(.01), #9002274.3035(.1), #9002274.303518(.01), #9002274.3037(.11), #9002274.303718(.01), #9002274.3039(.11), #9002274.303918(.01), #9002274.3041(.01), #9002274.3043(.11), #9002274.304318(.01), #9002274.3067(.02), #9002274.3069(.02)]
IHS Patient	3	MEDICAID ELIGIBLE(#9000004)[#9002274.3013(.06)] PATIENT(#9000001)[.01, .127] VISIT(#9000010)[#9002274.3011(.01)]
Pharmacy Data Management	3	IV ADDITIVES(#52.6)[#9002274.3023(.07)] IV SOLUTIONS(#52.7)[#9002274.3023(.08)] DRUG(#50)[#9002274.3023(.01)]
DRG Grouper	2	ICD OPERATION/PROCEDURE(#80.1)[#9002274.3019(.01), #9002274.3019(21)] ICD DIAGNOSIS(#80)[.59, .857, .858, .859, #9002274.3017(.01), #9002274.3017(.04), #9002274.3017(.07), #9002274.3017(.08), #9002274.3017(.09), #9002274.3017(21), #9002274.3017(23), #9002274.3017(24), #9002274.3017(25), #9002274.3017(26), #9002274.3019(22)]
Scheduling	2	CLINIC STOP(#40.7)[.06] HOSPITAL LOCATION(#44)[.16]
CPT Files	1	CPT(#81)[#9002274.3021(.01), #9002274.3023(.29), #9002274.3025(.07), #9002274.3027(.01), #9002274.3033(.03), #9002274.3035(.01), #9002274.3037(.01), #9002274.3039(.01), #9002274.3043(.01), #9002274.3045(.07), #9002274.3047(.01)]
IHS Dental System	1	DENTAL OPERATIVE SITE(#9002010.03)[#9002274.3033(.05)]
Outpatient Pharmacy	1	PRESCRIPTION(#52)[#9002274.3023(.22)]

Fields, Total: 186

Field #	Name	Loc	Type	Details
.001	CLAIM NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `JUL 24, 2006` HELP-PROMPT: `Type a number between 1 and 99999999, 0 Decimal Digits`
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) INPUT TRANSFORM: `K:'$D(XDRMRG) X` LAST EDITED: `FEB 16, 1996` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9002274.3^B` 1)= S ^ABMDCLM(DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),"B",$E(X,1,30),DA)
.02	ENCOUNTER DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 03, 1996` NOTES: `TRIGGERED by the SERVICE DATE FROM field of the 3P CLAIM DATA File` CROSS-REFERENCE: `^^TRIGGER^9002274.3^.71` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV X ^D D(9002274.3,.02,1,1,1.4) 1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,1)=DIV,DIH=9002274.3,DIG=.71 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= #.71="" CREATE VALUE)= #.02 DELETE VALUE)= NO EFFECT FIELD)= #.71 CROSS-REFERENCE: `9002274.3^AD` 1)= S ^ABMDCLM(DUZ(2),"AD",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),"AD",$E(X,1,30),DA)
.022	MANUAL,SPLIT CLAIM	0;22	SET	'O' FOR ORIGINAL; 'S' FOR SPLIT (MANUAL); 'A' FOR AUTO-SPLIT; LAST EDITED: `MAY 22, 2017`
.023	SPLIT BY	0;23	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 26, 2017`
.024	SPLIT ON DATE	0;24	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUN 26, 2017` HELP-PROMPT: `(No range limit on date)`
.025	SPLIT PAGES DONE	0;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<2) X` LAST EDITED: `AUG 23, 2017` HELP-PROMPT: `Answer must be 2-12 characters in length.`
.03	VISIT LOCATION	0;3	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `JUL 18, 1990`
.04	CLAIM STATUS	0;4	SET	'E' FOR In EDIT Mode; 'R' FOR Claim Rejected; 'U' FOR Uneditable (Billed); 'C' FOR Claim Completed; 'F' FOR Flagged as Billable; 'P' FOR Pending; 'O' FOR ROLLED-In Edit Mode; 'X' FOR Closed; LAST EDITED: `SEP 26, 2008` WRITE AUTHORITY: ^ CROSS-REFERENCE: `9002274.3^AS` 1)= S ^ABMDCLM(DUZ(2),"AS",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),"AS",$E(X,1,30),DA)
.05	NUMBER ERRORS FOUND	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 13, 1997` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
.06	CLINIC	0;6	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JAN 29, 1997`
.07	VISIT TYPE	0;7	POINTER TO 3P VISIT TYPE FILE (#9002274.8)	**********************REQUIRED FIELD********************** 3P VISIT TYPE(#9002274.8) LAST EDITED: `JAN 29, 1997`
.08	ACTIVE INSURER	0;8	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) LAST EDITED: `MAR 27, 1997`
.09	QUESTIONS ANSWERED	0;9	SET	'Y' FOR YES; LAST EDITED: `MAY 07, 1990`
.1	DATE LAST EDITED	0;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 16, 1992` CROSS-REFERENCE: `9002274.3^AC` 1)= S ^ABMDCLM(DUZ(2),"AC",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),"AC",$E(X,1,30),DA)
.11	SUPER BILL #	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JAN 29, 1997` HELP-PROMPT: `Answer must be 1-15 characters in length.`
.12	BILL TYPE	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<110)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 29, 1997` HELP-PROMPT: `Type a Number between 110 and 999, 0 Decimal Digits` CROSS-REFERENCE: `9002274.3^AE^MUMPS` 1)= I X=110,$G(ABMP("VTYP"))=111 S X2=$P($G(^ABMDCLM(DUZ(2),DA,7)),"^",1),X1=$P($G(^(7)),"^",2) Q:'X1 Q:'X2 D ^%DTC S $P(^(6),"^",6)=X,$P(^(7),"^",3)=0 2)= Q
.1211	PATIENT WEIGHT (LBS)	12;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 08, 2005` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
.1212	TYPE OF TRANSPORT	12;12	SET	'I' FOR INITIAL TRIP; 'R' FOR RETURN TRIP; 'T' FOR TRANSFER TRIP; 'X' FOR ROUND TRIP; LAST EDITED: `AUG 08, 2005`
.1213	TRANPORTED TO/FOR	12;13	SET	'A' FOR NEAREST FACILITY FOR CARE OF SYMPTOMS,COMPLAINTS, OR BOTH; 'B' FOR BENEFIT OF PREFERRED PHYSICIAN; 'C' FOR NEARNESS OF FAMILY MEMBERS; 'D' FOR CARE OF SPECIALIST OR AVAILABILITY OF SPECIALIZED EQUIPMENT; 'E' FOR TRANS. TO REHAB FACILITY; LAST EDITED: `AUG 08, 2005`
.1214	POINT OF PICKUP MODIFIER	12;14	SET	'D' FOR DIAG/THERA/FREE FAC; 'E' FOR RES/DOM/CUST. FAC; 'G' FOR HOSP-BASED DIAL FAC; 'H' FOR HOSPITAL; 'I' FOR TRANS SITE (AIRPORT,ETC); 'J' FOR NON-HOSP-BASED DIAL FAC; 'N' FOR SNF; 'P' FOR PHYS OFFICE; 'R' FOR RESIDENCE; 'S' FOR SCENE OF ACCIDENT; 'X' FOR INTER. STOP AT PHYS OFFICE; LAST EDITED: `AUG 08, 2005` DESCRIPTION: `Enter on of the following:` D - Diagnostic or therapeutic site/freestanding facility (i.e., radiation therapy center) other than P or H E - Residential/domiciliary/custodial facility (i.e., non-skilled facility) G - Hospital-based dialysis facility (hospital or hospital related) H - Hospital (i.e., inpatient or outpatient) I - Site of transfer (e.g., airport or helicopter pad) between modes of ambulance transport J - Non-hospital-based dialysis facility N - Skilled Nursing Facility (SNF) (swingbed is considered an SNF) P - Physician's office (includes HMO and non-hospital facility) R - Residence (patient's home or any residence) S - Scene of accident or acute event X - Intermediate stop at physician's office en route to hospital (destination code only)
.1215	MEDICAL NECESSITY IND	12;15	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 08, 2005`
.1216	DEST MODIFIER	12;16	SET	'D' FOR DIAG/THERA/FREE FAC; 'E' FOR RES/DOM/CUST FAC; 'G' FOR HOSP-BASED DIAL FAC; 'H' FOR HOSPITAL; 'I' FOR TRANS SITE (AIRPORT,ETC); 'J' FOR NON-HOPS-BASED DIAL FAC; 'N' FOR SNF; 'P' FOR PHYS OFFICE; 'R' FOR RESIDENCE; 'S' FOR SCENE OF ACCIDENT; 'X' FOR INTER. STOP AT PHYS OFFICE; LAST EDITED: `AUG 08, 2005` DESCRIPTION: `Enter one of the following:` D - Diagnostic or therapeutic site/freestanding facility (i.e., radiation therapy center) other than P or H E - Residental/domiciliary/custodial facility (i.e., non-skilled facility) G - Hospital-based dialysis facility (hospital or hospital-related) H - Hospital (i.e., inpatient or outpatient) I - Site of transfer (e.g., airport or helicopter pad) between modes of ambulance transport J - Non-hospital based dialysis facility N - Skilled Nursing Facility (SNF) (swingbed is considered an SNF) P - Physician's office (includes HMO and non-hospital facility) R - Residence (patient's home or any residence) S - Scene of accident or acute event X - Intermediate stop at physician's office en route to the hospital (destination code only)
.122	POINT OF PICKUP ORIGIN	12;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `AUG 08, 2005` HELP-PROMPT: `Answer must be 3-20 characters in length.`
.123	POINT OF PICKUP ADDRESS	12;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `AUG 08, 2005` HELP-PROMPT: `Answer must be 3-50 characters in length.`
.124	POINT OF PICKUP CITY	12;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 08, 2005` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.125	POINT OF PICKUP STATE	12;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `AUG 08, 2005`
.126	POINT OF PICKUP ZIP	12;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X I $D(X)'=0 S:$L(X)=9 X=$E(X,1,5)_"-"_$E(X,6,9)` LAST EDITED: `AUG 08, 2005` HELP-PROMPT: `Answer must be 5-10 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.127	DESTINATION	12;7	VARIABLE POINTER	LOCATION(#9999999.06) PATIENT(#9000001) VENDOR(#9999999.11) LAST EDITED: `AUG 08, 2005`
.128	COVERED MILEAGE	12;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 08, 2005` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
.129	NON-COVERED MILEAGE	12;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 08, 2005` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
.13	BILLING LOCATION	0;13	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `SEP 08, 1995`
.14	MODE OF EXPORT	0;14	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `JAN 29, 1997` CROSS-REFERENCE: `9002274.3^AF^MUMPS` 1)= S ABMP("EXP")=X D EXP^ABMDEVAR 2)= K ABMP("EXP"),^ABMDCLM(DUZ(2),DA,70)
.15	AUTO APPROVE DATE	0;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 09, 1996`
.16	HOSPITAL LOCATION	0;16	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `AUG 27, 1997`
.17	DATE CREATED	0;17	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:4000101X) X` LAST EDITED: `FEB 13, 1998` HELP-PROMPT: `TYPE A DATE BETWEEN 2/13/1998 AND 1/1/2100`
.18	PENDING STATUS	0;18	POINTER TO 3P CLAIM PENDING STATUS FILE (#9002274.33)	3P CLAIM PENDING STATUS(#9002274.33) LAST EDITED: `JUL 26, 2005`
.19	PENDING STATUS UPDATER	0;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 26, 2005`
.41	NO CORRESPONDING CPT	4;1	SET	'Y' FOR YES; LAST EDITED: `SEP 19, 1990`
.42	PCC EDITED W/O CLM UPDATE	4;2	SET	'Y' FOR YES; LAST EDITED: `OCT 23, 1990`
.43	NUMBER X-RAYS INCLUDED	4;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 23, 1991` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.44	ORTHODONTIC RELATED	4;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 23, 1991`
.45	ORTHODONTIC PLACEMENT DATE	4;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 23, 1991`
.46	PROSTHESIS INCLUDED	4;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 23, 1991`
.47	PRIOR PLACEMENT DATE	4;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 23, 1991`
.48	CASE NUMBER	4;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `JAN 28, 1992` HELP-PROMPT: `Answer must be 3-20 characters in length.`
.49	RESUBMISSION (CONTROL) NUMBER	4;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>29!($L(X)<1) X` LAST EDITED: `MAR 20, 2007` HELP-PROMPT: `Answer must be 1-29 characters in length.`
.51	ADMISSION TYPE	5;1	POINTER TO 3P CODES FILE (#9002274.03)	3P CODES(#9002274.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""T""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y Y=$E((100+$P(^ABMDCODE(+Y,0),U)),2,3)` LAST EDITED: `JUN 05, 2000` SCREEN: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""T"""` EXPLANATION: `ADMISSION TYPE ONLY` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.511	REFERRAL NUMBER	5;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `AUG 22, 2002` HELP-PROMPT: `Answer must be 1-12 characters in length.`
.512	PRIOR AUTHORIZATION NUMBER	5;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>22!($L(X)<1) X` LAST EDITED: `DEC 23, 2005` HELP-PROMPT: `Answer must be 1-22 characters in length.`
.52	ADMISSION SOURCE/NEWBORN CODE	5;2	POINTER TO 3P CODES FILE (#9002274.03)	3P CODES(#9002274.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=$S($P(^ABMDCLM(DUZ(2),DA,5),U)=85:""N"",1:""A"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y Y=$E((100+$P(^ABMDCODE(Y,0),U,1)),2,3)` LAST EDITED: `JUN 05, 2000` SCREEN: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=$S($P(^ABMDCLM(DUZ(2),DA,5),U)=85:""N"",1:""A"")"` EXPLANATION: `IF ADMIT TYPE=4 THEN NEWBORN CODE ELSE ADMISSION SOURCE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.525	NEWBORN DAYS	5;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 09, 1991` HELP-PROMPT: `Type a Number between 1 and 30, 0 Decimal Digits`
.53	DISCHARGE STATUS	5;3	POINTER TO 3P CODES FILE (#9002274.03)	3P CODES(#9002274.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$E((100+$P(^ABMDCODE(Y,0),U)),2,3)` LAST EDITED: `JUN 05, 2000` SCREEN: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""P"""` EXPLANATION: `CODE FOR PATIENT DISCHARGE STATUS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.54	PRO APPROVAL CODE	5;4	POINTER TO 3P CODES FILE (#9002274.03)	3P CODES(#9002274.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""X""" S:+X>0 X=+X D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:Y Y=$E((100+$P(^ABMDCODE(Y,0),U)),2,3)` LAST EDITED: `OCT 25, 1991` SCREEN: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""X""" S:+X>0 X=+X` EXPLANATION: `PRO CODES` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^9002274.3^.73` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y=Y(0) X:$D(^DD(9002274.3,.54,2)) ^(2) S X=Y=89 I X S X=DIV S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(9002274.3,.54,1,2 ,1.4) 1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,3)=DIV,DIH=9002274.3,DIG=.73 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= #.54=89 CREATE VALUE)= S X=0 DELETE VALUE)= NO EFFECT FIELD)= #.73
.55	PRO APPROVED STAY FROM	5;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:X<$P(^ABMDCLM(DUZ(2),DA,6),U)!(X>$P(^(6),U,3)) X` LAST EDITED: `JUL 16, 1990` HELP-PROMPT: `Date can't be before Admit Date nor after Discharge Date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.56	PRO APPROVED STAY THRU	5;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:X<$P(^ABMDCLM(DUZ(2),DA,6),U)!(X>$P(^(6),U,3))!(X<$P(^(5),U,5)) X` LAST EDITED: `JUL 16, 1990` HELP-PROMPT: `DATE CAN NOT BE BEFORE ADMIT DATE NOR AFTER DISCHARGE DATE!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.57	PROF COMP DAYS	5;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X D INP^ABMDE7:$D(X)&$D(ABMP("CDFN"))` LAST EDITED: `JUN 05, 1992` HELP-PROMPT: `Enter a Number which will serve as the number of days to be billed on the Professional Component (HCFA-1500). It must either be equal to the Covered Days (if PRO Code=3) or not exceed it by one.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.58	PRO AUTHORIZATION NUMBER	5;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>22!($L(X)<4) X` LAST EDITED: `JUL 14, 2006` HELP-PROMPT: `Answer must be 4-22 characters in length.`
.59	ADMITTING DIAGNOSIS	5;9	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `APR 12, 1990` CROSS-REFERENCE: `9002274.3^AINP` 1)= S ^ABMDCLM(DUZ(2),"AINP",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),"AINP",$E(X,1,30),DA)
.61	ADMISSION DATE	6;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 09, 1991` CROSS-REFERENCE: `^^TRIGGER^9002274.3^.71` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002274.3,.61,1,1,1.4) 1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,1)=DIV,DIH=9002274.3,DIG=.71 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= #.61 DELETE VALUE)= NO EFFECT FIELD)= #.71
.62	ADMISSION HOUR	6;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>23)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 21, 1990` HELP-PROMPT: `Type a Number between 0 and 23, 0 Decimal Digits`
.63	DISCHARGE DATE	6;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X K:+$G(X)<$P($G(^ABMDCLM(DUZ(2),DA,7)),U) X` LAST EDITED: `FEB 28, 2011` HELP-PROMPT: `DISCHARGE DATE CAN NOT BE BEFORE ADMISSION DATE.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.64	DISCHARGE HOUR	6;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>23)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Type a Number between 0 and 23, 0 Decimal Digits`
.66	NON-COVERED DAYS	6;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 21, 1990` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
.67	CO-INSURANCE DAYS	6;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.68	LIFETIME RESERVE DAYS	6;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.69	NUMBER OF OUTPATIENT VISITS	6;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 27, 1990` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
.71	SERVICE DATE FROM	7;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 20, 1997` HELP-PROMPT: `Date can not be less than ADMIT DATE nor greater than DISCHARGE DATE.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the ENCOUNTER DATE field of the 3P CLAIM DATA File TRIGGERED by the ADMISSION DATE field of the 3P CLAIM DATA File CROSS-REFERENCE: `^^TRIGGER^9002274.3^.02` 1)= X ^DD(9002274.3,.71,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002274.3,.71,1,1,1.4) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9002274.3,.71,1,1,69.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1))]"" S D0=I(0,0) 1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002274.3,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^AUTTLOC(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") CREATE CONDITION)= #.03]"" CREATE VALUE)= #.71 DELETE VALUE)= NO EFFECT FIELD)= #.02
.711	RELEASE OF INFORMATION DATE	7;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 26, 2006`
.712	ASSIGNMENT OF BENEFITS DATE	7;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 26, 2006`
.713	PROPERTY/CASUALTY CLAIM NUMBER	7;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `JUL 22, 2010` HELP-PROMPT: `3-50 characters in length. Populates REF*Y4 of 837P.`
.714	HEARING/VISION RX DATE	7;14	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `(No range limit on date)`
.715	START DISABILITY DATE	7;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `Leave blank if unknown`
.716	END DISABILITY DATE	7;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `Leave blank if unknown`
.717	DATE LAST WORKED	7;17	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `(No range limit on date)`
.718	DATE AUTH TO RETURN TO WORK	7;18	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `(No range limit on date)`
.719	ASSUMED CARE DATE	7;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `(No range limit on date)`
.72	SERVICE DATE TO	7;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 27, 1997` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^9002274.3^.73` 1)= X ^DD(9002274.3,.72,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002274.3,.72,1,1,1.1) X ^DD(9002274.3,.72,1,1,1.4) 1.1)= S X=DIV X ^DD(9002274.3,.72,1,1,49.2) S X=$S(Y(2):Y(3),Y(4):X) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,1)]"" 1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,3)=DIV,DIH=9002274.3,DIG=.73 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9002274.3,.72,1,1,2.4) 2.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,3)=DIV,DIH=9002274.3,DIG=.73 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,7)):^(7),1:"") S X=$P(Y(1),U,1)=DIV,Y(2)=X S X=1,Y(3)=X S X=1,Y(4)=X S X=DIV,X1=X,X2=$P(Y(1),U,1),X="" D:X2 ^%DTC:X1 S X=X CREATE CONDITION)= #.71]"" CREATE VALUE)= $S(#.71=#.72:1,1:#.72-#.71) DELETE VALUE)= @ FIELD)= #.73
.721	RELINQUISHED CARE DATE	7;21	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `(No range limit on date)`
.722	PROP/CASUALTY DT 1ST CONTACT	7;22	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 26, 2010` HELP-PROMPT: `(No range limit on date)`
.723	PATIENT PAID AMOUNT	7;23	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `JUL 27, 2010` HELP-PROMPT: `Type a Dollar amount between 0 and 999999, 2 Decimal Digits`
.724	SPINAL MANIPULATION COND CODE	7;24	SET	'A' FOR ACUTE CONDITION; 'C' FOR CHRONIC CONDITION; 'D' FOR NON-ACUTE; 'E' FOR NON-LIFE THREATENING; 'F' FOR ROUTINE; 'G' FOR SYMPTOMATIC; 'M' FOR ACUTE MANIFESTATION OF A CHRONIC CONDITION; LAST EDITED: `JUL 27, 2010` HELP-PROMPT: `Required on chiropractic claims involving spinal manipulation when the information is known to impact payer's adjudication process`
.725	PROP/CASUAL PATIENT ID	7;25	SET	'SY' FOR SOCIAL SECURITY NUMBER; '1W' FOR MEMBER IDENTIFICATION NUMBER; LAST EDITED: `OCT 04, 2010`
.726	PROP/CASUAL PATIENT NUMBER	7;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `OCT 04, 2010` HELP-PROMPT: `Answer must be 1-50 characters in length`
.727	ACUTE MANIFESTATION DATE	7;27	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 25, 2014` HELP-PROMPT: `(No range limit on date)`
.73	COVERED DAYS	7;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X Q:'$D(DA) Q:'$D(^ABMDCLM(DUZ(2),DA,7)) S ABMX("X")=X,X1=$P(^(7),U,2),X2=$P(^(7),U) D ^%DTC K:ABMX("X")>(X+1) X S:$D(X) X=ABMX("X") K ABMX("X")` LAST EDITED: `JUL 14, 1994` HELP-PROMPT: `Type a Number between 0 and 999, can not be more than the difference between the billed from and to days.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the PRO APPROVAL CODE field of the 3P CLAIM DATA File TRIGGERED by the SERVICE DATE TO field of the 3P CLAIM DATA File
.74	RELEASE OF INFORMATION	7;4	SET	'Y' FOR YES; 'N' FOR NO; 'R' FOR RESTRICTED; LAST EDITED: `JUL 29, 2010` HELP-PROMPT: `For 837P, NO, RESTRICTED or blank will be "I", Req'd when provider has not collected signature and state/fed laws do not require signature`
.75	ASSIGNMENT OF BENEFITS	7;5	SET	'Y' FOR YES; 'N' FOR NO; 'W' FOR NOT APPLICABLE; LAST EDITED: `JUL 29, 2010` HELP-PROMPT: `Use code "W" when the patient refuses to assign benefits.`
.76	PINTS OF BLOOD FURNISHED	7;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 27, 1990` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.77	PINTS OF BLOOD REPLACED	7;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 27, 1990` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.78	PINTS OF BLOOD NOT REPLACED	7;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 27, 1990` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.79	BLOOD DEDUCTIBLE PINTS	7;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 27, 1990` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits`
.81	OUTSIDE LAB CHARGES	8;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `MAR 27, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits`
.816	ACCIDENT STATE	8;16	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `AUG 18, 2004`
.82	INJURY DATE	8;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 20, 1990` CROSS-REFERENCE: `^^TRIGGER^9002274.3^.86` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,8)):^(8),1:"") S X=$P(Y(1),U,6)="" I X S X=DIV S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV X ^D D(9002274.3,.82,1,1,1.4) 1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),8)):^(8),1:""),DIV=X S $P(^(8),U,6)=DIV,DIH=9002274.3,DIG=.86 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,8)):^(8),1:"") S X=$P(Y(1),U,6)=$P(Y(1),U,2) I X S X=DIV S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^ DD(9002274.3,.82,1,1,2.4) 2.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),8)):^(8),1:""),DIV=X S $P(^(8),U,6)=DIV,DIH=9002274.3,DIG=.86 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE CONDITION)= #.86="" CREATE VALUE)= #.82 DELETE CONDITION)= #.86=#.82 DELETE VALUE)= @ FIELD)= #.86
.821	VISION CONDITION INFO	8;21	SET	'E1' FOR SPECTACLE LENSES; 'E2' FOR CONTACT LENSES; 'E3' FOR SPECTACLE FRAMES; LAST EDITED: `JUL 30, 2010`
.822	VISION CERT. CONDITION IND	8;22	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 30, 2010`
.823	INITIAL TREATMENT DATE	8;23	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 25, 2014` HELP-PROMPT: `(No range limit on date)`
.824	EXP35 FL 17 PROVIDER NAME	8;24	FREE TEXT	INPUT TRANSFORM: `B "L+" D NAME^AUPNPED` LAST EDITED: `APR 04, 2014` HELP-PROMPT: `Answer must be 3-30 characters in length. Must be in the format LASTNAME,FIRSTNAME.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.825	EXP35 FL17 PROVIDER TYPE	8;25	SET	'DN' FOR REFERRING PROVIDER; 'DK' FOR ORDERING PROVIDER; 'DQ' FOR SUPERVISING PROVIDER; LAST EDITED: `MAR 07, 2014`
.826	EXP35 FL17 PROVIDER NPI	8;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!'(($$CHKDGT^XUSNPI(X))) X` LAST EDITED: `MAR 07, 2014` HELP-PROMPT: `Answer must be 10 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.83	ACCIDENT TYPE	8;3	SET	'1' FOR AUTO; '2' FOR AUTO-NO FAULT INSURANCE; '3' FOR COURT ACTION POSSIBLE; '4' FOR EMPLOYMENT RELATED; '5' FOR OTHER ACCIDENT; '6' FOR CRIME VICTIM; LAST EDITED: `MAY 15, 1990`
.84	ACCIDENT HOUR	8;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>23)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 1990` HELP-PROMPT: `Type a Number between 0 and 23, 0 Decimal Digits`
.85	EMERGENCY (Y/N)	8;5	SET	'Y' FOR YES; LAST EDITED: `MAY 15, 1990`
.855	*EMERGENCY ROOM SUR-CHARGE	8;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999.99)!(X<0) X` LAST EDITED: `MAR 12, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits`
.857	E-CODE	8;12	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `K:$E($P(Y,"^",2))'="E" X` LAST EDITED: `MAR 11, 1994` HELP-PROMPT: `E-CODES ONLY` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.858	E-CODE (2)	8;19	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `K:$E($P(Y,"^",2))'="E" X` LAST EDITED: `MAR 28, 2007` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.859	E-CODE (3)	8;20	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `K:$E($P(Y,"^",2))'="E" X` LAST EDITED: `MAR 28, 2007` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.86	DATE OF FIRST SYMPTOM	8;6	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 19, 1990` NOTES: `TRIGGERED by the INJURY DATE field of the 3P CLAIM DATA File`
.87	DATE OF FIRST CONSULTATION	8;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 10, 1992`
.88	REFERRING PHYSICIAN	8;8	FREE TEXT	INPUT TRANSFORM: `D NAME^AUPNPED` LAST EDITED: `MAY 17, 2004` HELP-PROMPT: `Answer must be 3-30 characters in length. Must be in the format LASTNAME,FIRSTNAME.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.884	REFERRING PHYS ID QUALIFIER	8;18	SET	'0B' FOR STATE LIC NO; '1B' FOR BLUE SHIELD PRV NO; '1C' FOR MEDICARE PRV NO; '1D' FOR MEDICAID PRV NO; '1G' FOR PRV UPIN NO; '1H' FOR CHAMPUS ID NO; 'EI' FOR EMPLOYER'S ID NO; 'G2' FOR PRV COMMERCIAL NO; 'N5' FOR PRV PLAN NETWORK ID; 'SY' FOR SSN; LAST EDITED: `MAR 27, 2007` HELP-PROMPT: `ENTER INSURER TYPE QUALIFIER THAT BEST DESCRIBES THIS PROVIDER` DESCRIPTION: WHAT ID NUMBER WILL YOU BE ENTERING FOR THE REFERRING PROVIDER
.885	REFER PHYSICIAN ID NO.	8;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `JAN 28, 1992` HELP-PROMPT: `Answer must be 3-20 characters in length.`
.886	REFER PHYSICIAN PERSON CLASS	8;13	POINTER TO PERSON CLASS FILE (#8932.1)	PERSON CLASS(#8932.1) LAST EDITED: `MAY 17, 2004`
.887	REFER PHYSICIAN PROVIDER CLASS	8;14	POINTER TO PROVIDER CLASS FILE (#7)	PROVIDER CLASS(#7) LAST EDITED: `JUL 14, 2004`
.888	REFER PHYSICIAN TAXONOMY CODE	8;15	POINTER TO 3P PROVIDER TAXONOMY FILE (#9002274.95)	3P PROVIDER TAXONOMY(#9002274.95) LAST EDITED: `JUL 14, 2004`
.889	REFER PROV NPI	8;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!'(($$CHKDGT^XUSNPI(X))) X` LAST EDITED: `FEB 22, 2007` HELP-PROMPT: `Answer must be 10 characters in length` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.89	DATE OF SIMILIAR SYMPTOM	8;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 20, 1990`
.91	EMPLOYMENT RELATED (Y/N)	9;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 28, 2003`
.911	DATE LAST SEEN	9;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 25, 2002`
.912	SUPERVISING PROV(FL19)	9;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 17, 2012` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.913	DATE OF LAST X-RAY	9;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 26, 2003` HELP-PROMPT: `Required for Medicare Part B when the date of the x-ray was taken at a time reasonable proximate to the initiation of treatment.`
.914	HOMEBOUND INDICATOR	9;14	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 26, 2003` HELP-PROMPT: `Required for Medicare Part B when an independent lab renders an EKG or obtains a specimen from a homebound or institutionalized patient`
.915	HOSPICE EMPLOYED PROVIDER	9;15	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 26, 2003` HELP-PROMPT: `Required for Medicare Part B if treatment in the hospice was rendered by a hospice employed physician`
.916	DELAYED REASON CODE	9;16	POINTER TO 3P CODES FILE (#9002274.03)	3P CODES(#9002274.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""U""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 24, 2005` SCREEN: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""U"""` EXPLANATION: `DELAYED REASON CODE entries only`
.918	ORAL IMAGES	9;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 18, 2004` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.919	MODEL(S)	9;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 18, 2004` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
.92	DATE ABLE TO WORK	9;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 19, 1990`
.921	OTHER DENTAL CHARGES	9;21	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `AUG 18, 2004` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits`
.922	IN-HOUSE CLIA#	9;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!'(X?2N1U7N) X` LAST EDITED: `JUN 28, 2005` HELP-PROMPT: `Answer must be 10 characters in length with a format of ##A#######.`
.923	REFERENCE LAB CLIA#	9;23	POINTER TO 3P REFERENCE LAB LOCATIONS FILE (#9002274.35)	3P REFERENCE LAB LOCATIONS(#9002274.35) LAST EDITED: `JUN 28, 2005`
.93	UNABLE TO WORK FROM DATE	9;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 28, 1992`
.94	UNABLE TO WORK THRU DATE	9;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 28, 1992`
.95	PARTIAL DISABILITY FROM DATE	9;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 10, 1992`
.96	PARTIAL DISABILITY TO DATE	9;6	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 10, 1992`
.97	*REVENUE CODE	9;7	POINTER TO REVENUE CODES FILE (#9999999.72)	REVENUE CODES(#9999999.72) LAST EDITED: `MAR 01, 1996`
.98	*REVENUE CHARGE	9;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits`
.99	PRE-PAYMENT AMOUNT	9;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X` LAST EDITED: `JUN 05, 1992` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits`
8.5	VISION CONDITION INDICATORS	8.5;0	SET Multiple #9002274.3085	9002274.3085 LAST EDITED: `JUL 30, 2010`
10	HCFA 1500-B LINE 19	10;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<1) X` LAST EDITED: `JUL 19, 2002` HELP-PROMPT: `Information entered here will be placed in block 19 on the hard copy (only the first 48 characters) and in the appropriate field on the electronic format. Enter from 1 to 245 characters.`
11	PCC Visit	11;0	POINTER Multiple #9002274.3011	9002274.3011 SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^ABMDCLM(DUZ(2),DA,0),U,1)"` EXPLANATION: `VISIT MUST BE FOR PATIENT IN CONCERN`
13	Insurer	13;0	POINTER Multiple #9002274.3013	9002274.3013
14	MED NECESSITY COND	14;0	POINTER Multiple #9002274.314	9002274.314
15	APC Visit	15;0	POINTER Multiple #9002274.3015	9002274.3015
17	Diagnosis	17;0	POINTER Multiple #9002274.3017	9002274.3017
19	ICD Procedure	19;0	POINTER Multiple #9002274.3019	9002274.3019 SCREEN: `S DIC("S")="I $P(^(0),U,3)=$P(^ABMDCLM(DUZ(2),DA,0),U,3)"` EXPLANATION: `ICD PROCEDURE MUST BE ASSOCIATED WITH THE VISIT`
21	Surgical Procedure	21;0	POINTER Multiple #9002274.3021	9002274.3021
23	Pharmacy	23;0	POINTER Multiple #9002274.3023	9002274.3023
25	REVENUE CODE	25;0	POINTER Multiple #9002274.3025	9002274.3025 LAST EDITED: `MAR 01, 1996`
27	Medical Procedure	27;0	POINTER Multiple #9002274.3027	9002274.3027
33	Dental	33;0	POINTER Multiple #9002274.3033	9002274.3033
35	Radiology	35;0	POINTER Multiple #9002274.3035	9002274.3035
37	Laboratory	37;0	POINTER Multiple #9002274.3037	9002274.3037
39	Anesthesia	39;0	POINTER Multiple #9002274.3039	9002274.3039
41	Providers	41;0	POINTER Multiple #9002274.3041	9002274.3041
43	Misc. Services	43;0	POINTER Multiple #9002274.3043	9002274.3043
45	Charge Master	45;0	POINTER Multiple #9002274.3045	9002274.3045 LAST EDITED: `MAR 06, 1997`
47	AMBULANCE SERVICE	47;0	POINTER Multiple #9002274.3047	9002274.3047
51	Occurrence Code	51;0	POINTER Multiple #9002274.3051	9002274.3051 LAST EDITED: `FEB 25, 2014`
53	Condition Code	53;0	POINTER Multiple #9002274.3053	9002274.3053
55	Value Codes	55;0	POINTER Multiple #9002274.3055	9002274.3055
57	Occurance Span Code	57;0	POINTER Multiple #9002274.3057	9002274.3057 SCREEN: `S DOC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""S"""` EXPLANATION: `OCCURANCE SPAN CODES ONLY`
59	Special Program Code	59;0	POINTER Multiple #9002274.3059	9002274.3059 SCREEN: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""I"""` EXPLANATION: `SPECIAL PROGRAM CODE`
61	REMARKS	61;0	WORD-PROCESSING #9002274.3061
63	Dates of Similiar Symptoms	63;0	DATE Multiple #9002274.3063	9002274.3063
65	ACTIVE BILLS	65;0	POINTER Multiple #9002274.3065	9002274.3065
67	DATE STMT WAS PRINTED	67;0	DATE Multiple #9002274.3067	9002274.3067 LAST EDITED: `APR 13, 2007`
69	OPEN/CLOSED STATUS DATE	69;0	DATE Multiple #9002274.3069	9002274.3069 LAST EDITED: `NOV 04, 2008`
71	MODE OF EXPORT PAGE 8A	70;1	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
72	MODE OF EXPORT PAGE 8B	70;2	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
73	MODE OF EXPORT PAGE 8C	70;3	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
74	MODE OF EXPORT PAGE 8D	70;4	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
75	MODE OF EXPORT PAGE 8E	70;5	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
76	MODE OF EXPORT PAGE 8F	70;6	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
77	MODE OF EXPORT PAGE 8G	70;7	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
78	MODE OF EXPORT PAGE 8H	70;8	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
79	MODE OF EXPORT PAGE 8I	70;9	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
80	MODE OF EXPORT PAGE 8J	70;10	POINTER TO 3P EXPORT MODE FILE (#9002274.08)	3P EXPORT MODE(#9002274.08) LAST EDITED: `DEC 31, 1996`
411	RESUBMISSION (CONTROL) NOTE	4;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `MAR 19, 2007` HELP-PROMPT: `Answer must be 3-80 characters in length`
412	PT STMT MESSAGE	4;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `MAR 28, 2007` HELP-PROMPT: `Answer must be 1-70 characters in length`
413	ORTHO TRTMT MTHS REMAINING	4;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `MAY 02, 2007` HELP-PROMPT: `Type a number between 0 and 99, 0 Decimal Digits`
710	CLAIM ATTACHMENTS	71;0	POINTER Multiple #9002274.3071	9002274.3071
924	SUPERVISING PROVIDER	9;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `DEC 13, 2005` HELP-PROMPT: `Answer must be 3-20 characters in length.`
925	SUPERVISING PRV NPI	9;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!'((($$CHKDGT^XUSNPI(X)))) X` LAST EDITED: `MAR 05, 2007` HELP-PROMPT: `Answer must be 10 characters in length` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1217	ORIGINAL MSP REASON	12;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `JUL 09, 2009` HELP-PROMPT: `Answer must be 2-15 characters in length`
1218	AMBULANCE PATIENT COUNT	12;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `APR 12, 2011` HELP-PROMPT: `Type a number between 0 and 999, 0 Decimal Digits` DESCRIPTION: Req'd when more than one patient is transported in the same vehicle for Ambulance or non-emergency transportation services.

Customize PDF page

Package: Third Party Billing

Global: ^ABMDCLM

Information

Description

Directly Accessed By Routines, Total: 213

Accessed By FileMan Db Calls, Total: 68

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 34

Fields, Total: 186