Global: ^AUTTPCR

Information

FileMan FileNo	FileMan Filename	Package
9999999.93	PROVIDER CHANGE REASON	Utility Tables

DATA DICTIONARY...: This is a standard RPMS data dictionary, maintained in the AUT package. Changes to this data dictionary must be submitted to the RPMS DBA. RPMS DBA, October 18, 2000 ENTRIES IN THIS FILE...: Entries in this file are not standard. Entries are locally entered and locally maintained. HISTORY...: January 2001, PCC requested this file be created for use in tracking the reasone that a patient changed providers, or why the provider was changed for the patient. There was not a request for a CODE field in the original request, but initial communications with other organizations indicated there might be need for a code.

Package	Total	FileMan Files
IHS Patient	2	PATIENT(#9000001)[.37, 1707, 1708] PRIMARY CARE PROVIDER CHANGE LOG(#9000096)[.05]
Third Party Billing	1	3P INSURER(#9002274.09)[#9002274.091(.21)]
Women's Health	1	BW PATIENT(#9002086)[.28]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	REASON	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `JAN 29, 2001` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: Select the reason that the patient changed provider. CROSS-REFERENCE: `9999999.93^B` 1)= S ^AUTTPCR("B",$E(X,1,30),DA)="" 2)= K ^AUTTPCR("B",$E(X,1,30),DA)
.02	CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 29, 2001` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Enter the code, if any, that is associated with this reason.

REASON

0;1

FREE TEXT

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

DESCRIPTION:

Select the reason that the patient changed provider.

CROSS-REFERENCE: 9999999.93^B

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

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

CODE

0;2

FREE TEXT

DESCRIPTION:

Enter the code, if any, that is associated with this reason.