Global: ^AZPPI(1

FileMan FileNo	FileMan Filename	Package
2001060.01	AZP PRV INS BILLS	Portland Private Insurance package

Directly Accessed By Routines, Total: 9

Package	Total	Routines
Portland Private Insurance package	9	^AZPPI(1 AZP3EDT AZP3RP AZP3RX AZP3UTL CPT/ADA CODE DOS ICD9 DX CODE PHARMACY RX

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Portland Private Insurance package	1	AZP3EDT

Pointer To FileMan Files, Total: 9

Package	Total	FileMan Files
Portland Private Insurance package	3	AZP CPT/ADA CODE(#2001060.02)[#2001060.14011(.01)] AZP PRV INS TOS(#2001060.05)[#2001060.14011(.05)] AZP PRV INS POS(#2001060.06)[#2001060.14011(.02)]
Kernel	2	INSTITUTION(#4)[.09] PROVIDER(#6)[101]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#2001060.1201(.01)]
IHS Patient	1	PRIVATE INSURANCE ELIGIBLE(#9000006)[.02]
Outpatient Pharmacy	1	PRESCRIPTION(#52)[#2001060.1301(.01)]
Utility Tables	1	INSURER(#9999999.18)[106, 107]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	BILL NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` LAST EDITED: `SEP 12, 1990` HELP-PROMPT: `Answer must be 8 characters in length.` UNEDITABLE CROSS-REFERENCE: `2001060.01^B` 1)= S ^AZPPI(1,"B",$E(X,1,30),DA)="" 2)= K ^AZPPI(1,"B",$E(X,1,30),DA)
.02	PATIENT NAME	0;2	POINTER TO PRIVATE INSURANCE ELIGIBLE FILE (#9000006)	**********************REQUIRED FIELD********************** PRIVATE INSURANCE ELIGIBLE(#9000006) LAST EDITED: `DEC 07, 1990` HELP-PROMPT: `Enter the patients name. The patient must have insurance entered through patient registration.` UNEDITABLE CROSS-REFERENCE: `2001060.01^C` 1)= S ^AZPPI(1,"C",$E(X,1,30),DA)="" 2)= K ^AZPPI(1,"C",$E(X,1,30),DA)
.03	DATE OF SYMPTOM	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date of the first symptom.`
.04	DATE OF SIMILAR ILLNESS	0;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date of similar illness.`
.05	DATE FIRST CONSULTED	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the first date consulted for this condition.`
.06	FROM DATE DISABILITY	0;6	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the beginnng date of disability.`
.07	THRU DATE DISABILITY	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the ending date of disability for the patient.`
.08	DATE ENTERED	0;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 12, 1990`
.09	FACILITY	0;9	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `SEP 12, 1990`
101	PROVIDER	1;1	POINTER TO PROVIDER FILE (#6)	**********************REQUIRED FIELD********************** PROVIDER(#6) LAST EDITED: `AUG 22, 1990` HELP-PROMPT: `Enter the provider the patient visited.`
102	EMERGENCY	1;2	SET	'Y' FOR YES; 'N' FOR NO; HELP-PROMPT: `Enter if the Yes if visit was an emergency or No if it was not an emergency.`
103	OUTSIDE LAB WORK	1;3	SET	'Y' FOR YES; 'N' FOR NO; HELP-PROMPT: `Enter Yes if outside lab work was performed.`
104	OUTSIDE LAB COST	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X` HELP-PROMPT: `Type a Number between 0 and 10000.`
105	PRIOR AUTH NO	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` HELP-PROMPT: `Enter the prior authorization number received by insurance company.`
106	PRIMARY INSURANCE	1;6	POINTER TO INSURER FILE (#9999999.18)	**********************REQUIRED FIELD********************** INSURER(#9999999.18) LAST EDITED: `SEP 04, 1990` HELP-PROMPT: `Enter the primary insurance company for this patient.`
107	SECONDARY INS	1;7	POINTER TO INSURER FILE (#9999999.18)	INSURER(#9999999.18) LAST EDITED: `AUG 30, 1990` HELP-PROMPT: `Enter patients secondary insurance company.`
108	STATUS	1;8	SET	**********************REQUIRED FIELD********************** 'P' FOR PAID; 'C' FOR CANCELLED; 'H' FOR HOLD/PENDING; LAST EDITED: `AUG 30, 1990` HELP-PROMPT: `Enter the status of the claim`
109	PHARMACY COST	1;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>1000)!(X<0) X` LAST EDITED: `SEP 07, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 1000, 2 Decimal Digits`
201	ICD9 DX CODE	2;0	POINTER Multiple #2001060.1201	2001060.1201
301	PHARMACY RX	3;0	POINTER Multiple #2001060.1301	2001060.1301
401	DOS	4;0	DATE Multiple #2001060.1401	2001060.1401
501	TOTAL COST	5;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `AUG 30, 1990` HELP-PROMPT: `Enter the total amount billed for this claim.`
502	TOTAL COLLECTED	5;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `AUG 30, 1990` HELP-PROMPT: `Enter the amount collected for claim.`
503	DEDUCTABLE AMOUNT	5;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000000)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `AUG 30, 1990` HELP-PROMPT: `Enter the amount paid for the insurance deductable.`

Name	Field # of Occurrence
^%DT	.03+1, .04+1, .05+1, .06+1, .07+1, .08+1
Y^DIQ	ID.02+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPRVT - [#9000006]	ID.02+1
^AZPPI(1 - [#2001060.01]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
^DD(9000006	ID.02+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, .04+1, .05+1, .06+1, .07+1, .08+1
%I	ID.02+1*!
>> C	ID.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
>> DIC	ID.02+1
U	ID.02+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1!, .04+1!, .05+1!, .06+1!, .07+1! , .08+1!, 104+1!, 105+1!, 109+1*!, 501+1!, 502+1!, 503+1!
>> Y	ID.02+1*, .03+1, .04+1, .05+1, .06+1, .07+1, .08+1

Customize PDF page

Package: Portland Private Insurance package

Global: ^AZPPI(1

Information

Description

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 9

Fields, Total: 24

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: