Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^AUPNPLDC

Package: IHS Patient

Global: ^AUPNPLDC

Information

FileMan FileNo	FileMan Filename	Package
9000034	PATIENT'S LEGAL DOCS	IHS Patient

Description

This file is used to identify other types of legal documents that the patient may present to the facility for proof of person as set by policies and procedures established to identify other forms of documentation what may assist in identifying the patient.

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	DATE/TIME OF ENTRY	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 01, 2003` TECHNICAL DESCR: Created 6/13/2002 for V7.0 of AG Distributed in AUPN99.18 NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000034^B` 1)= S ^AUPNPLDC("B",$E(X,1,30),DA)="" 2)= K ^AUPNPLDC("B",$E(X,1,30),DA)
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `JUL 03, 2002` TECHNICAL DESCR: Created 6/20/02 for V7.0 of AG Distributed in AUPN99.18 CROSS-REFERENCE: `9000034^C` 1)= S ^AUPNPLDC("C",$E(X,1,30),DA)="" 2)= K ^AUPNPLDC("C",$E(X,1,30),DA)
.03	LEGAL DOCUMENT	0;3	POINTER TO ELIGIBILITY MODIFIERS FILE (#9000030)	ELIGIBILITY MODIFIERS(#9000030) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)[""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 01, 2003` HELP-PROMPT: `Enter the name of the legal document that has been entered into the patient's chart` TECHNICAL DESCR: Created 6/20/02 for V7.0 of AG Distributed in AUPN99.18 SCREEN: `S DIC("S")="I $P(^(0),U,2)[""L"""` EXPLANATION: `Enter name of legal document`
.04	DATE ADDED TO FILE	0;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 02, 2002`
.05	DOCUMENT#	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `JUL 01, 2004` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: Enter the document number if applicable.
.06	EFFECTIVE DATE	0;6	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 01, 2004` DESCRIPTION: Enter the effective date if this is a temporary document such as "Temporary Guardianship" or "Consent for medical care of a minor"
.07	END DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 01, 2004` DESCRIPTION: Enter the end date if this is a temporary document such as "Temporary Guardianship" or "Consent for medical care of a minor"
.08	ENTERED BY	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 01, 2004`
1101	BEGINNING DATE	11;0	DATE Multiple #9000034.11	9000034.11

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All