Global: ^AUPNWC

FileMan FileNo	FileMan Filename	Package
9000042	WORKMAN'S COMPENSATION	IHS Patient

FileMan FileNo

FileMan Filename

Package

9000042

WORKMAN'S COMPENSATION

Package	Total	Routines
IHS Uniform Data System	7	BUD2RPC2 BUDARPC2 BUDBRPC2 BUDCRPC2 BUDDRPC2 BUDERPC2 BUDHRPC2
IHS Patient Registration	5	AGAGERP1 AGCNVWC AGEDWC AGINS AGINSUPD
Third Party Billing	3	ABMDE2X3 ABMDLCK ABMDVST1

Package	Total	Routines
Automated Lab Instruments	1	LA7VQINS
IHS Patient Registration	1	AGEDWC

Package	Total	FileMan Files
Utility Tables	3	EMPLOYER GROUP INSURANCE(#9999999.77)[#9000042.11(.12)] EMPLOYER(#9999999.75)[#9000042.11(.06)] INSURER(#9999999.18)[#9000042.11(.11)]
IHS Patient	1	PATIENT(#9000001)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAR 30, 2004` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000042^B` 1)= S ^AUPNWC("B",$E(X,1,30),DA)="" 2)= K ^AUPNWC("B",$E(X,1,30),DA)
1101	DATE OF WC INJURY	11;0	DATE Multiple #9000042.11	9000042.11 DESCRIPTION: Enter the date this work related injury occurred.

NAME

0;1

POINTER TO PATIENT FILE (#9000001)

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9000042^B

1)= S ^AUPNWC("B",$E(X,1,30),DA)=""

2)= K ^AUPNWC("B",$E(X,1,30),DA)

DATE OF WC INJURY

11;0

DATE Multiple #9000042.11

DESCRIPTION:

Enter the date this work related injury occurred.

Information