Global: ^AUPNGUAR

Information

FileMan FileNo	FileMan Filename	Package
9000043	GUARANTOR	IHS Patient

Package	Total	Routines
IHS Patient Registration	10	AG2A AG71A1 AG71A2 AG71A3 AG71A4 AG71A5 AGDATA AGEDGUAR AGINS AGINSUPD
IHS Uniform Data System	7	BUD2RPC2 BUDARPC2 BUDBRPC2 BUDCRPC2 BUDDRPC2 BUDERPC2 BUDHRPC2
IHS Patient Merge	2	BPMXFX2 BPMXVP
Automated Lab Instruments	1	LA7VQINS
Third Party Billing	1	ABMPTSMT

Package	Total	Routines
IHS Patient Registration	8	AG71A1 AG71A2 AG71A3 AG71A4 AG71A5 AGAPIS1 AGDATA AGEDGUAR

Package	Total	FileMan Files
Utility Tables	3	EMPLOYER(#9999999.75)[#9000043.0101(.01)] INSURER(#9999999.18)[#9000043.0101(.01)] RELATIONSHIP(#9999999.36)[#9000043.0101(.06)]
IHS Patient	1	PATIENT(#9000001)[.01, #9000043.0101(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `APR 20, 2004` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000043^B` 1)= S ^AUPNGUAR("B",$E(X,1,30),DA)="" 2)= K ^AUPNGUAR("B",$E(X,1,30),DA)
101	GUARANTOR	1;0	VARIABLE POINTER Multiple #9000043.0101	9000043.0101

PATIENT NAME

0;1

POINTER TO PATIENT FILE (#9000001)

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

INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: APR 20, 2004
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9000043^B

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

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

101 GUARANTOR 1;0 VARIABLE POINTER Multiple #9000043.0101 9000043.0101