Global: ^AUPNRHI

FileMan FileNo	FileMan Filename	Package
9000039	RESTRICTED HEALTH INFORMATION	IHS Patient

Package	Total	Routines
IHS Patient Registration	3	AG AGED11B AGRHI1
Local Area Programs	1	AZAXDPM1
Patient Registration GUI	1	AGGUL2

Package	Total	Routines
Patient Registration GUI	2	AGGDCUPD AGGUL2
IHS Patient Registration	1	AGED11B

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.01]
Kernel	1	NEW PERSON(#200)[.12, .23, .33, .43, .51]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 09, 2003` CROSS-REFERENCE: `9000039^B` 1)= S ^AUPNRHI("B",$E(X,1,30),DA)="" 2)= K ^AUPNRHI("B",$E(X,1,30),DA)
.02	RESTRICTED HEALTH INFORMATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `MAY 08, 2003` HELP-PROMPT: `Answer must be 3-80 characters in length. State reason why the patient requests information to be restricted.`
.03	STATUS CODE	0;3	SET	**********************REQUIRED FIELD********************** 'A' FOR APPROVED; 'N' FOR NOT APPROVED; 'P' FOR PENDING; 'R' FOR REVOKED; 'E' FOR ENTERED IN ERROR; LAST EDITED: `APR 29, 2003` HELP-PROMPT: `Enter pproved, ot approved,` `ending, evoked, or ntered in error.`
.11	PENDING DATE	1;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` DESCRIPTION: Enter the date that this reason went into PENDING status. CROSS-REFERENCE: `9000039^C^MUMPS` 1)= S ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X_"."_($P($H,",",2)),$P(^(0),U,3),DA)="" 2)= K ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X,$P(^(0),U,3),DA)
.12	PENDING ENTERED/UPDATED BY	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 24, 2003`
.13	PENDING ENTERED/UPDATED DATE	1;3	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` CROSS-REFERENCE: `9000039^G^MUMPS` 1)= S ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)="" 2)= K ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)
.21	APPROVED DATE	2;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` DESCRIPTION: Enter the date that this reason went into APPROVED status. CROSS-REFERENCE: `9000039^D^MUMPS` 1)= S ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X_"."_($P($H,",",2)),$P(^(0),U,3),DA)="" 2)= K ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X,$P(^(0),U,3),DA)
.22	APPROVING OFFICIAL	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `APR 24, 2003` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: Enter the name of the official who approved this reason.
.23	APPROVAL ENTERED/UPDATED BY	2;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 24, 2003`
.24	APPROVAL ENTERED/UPDATED DATE	2;4	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` CROSS-REFERENCE: `9000039^H^MUMPS` 1)= S ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)="" 2)= K ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)
.31	NOT APPROVED DATE	3;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` DESCRIPTION: Enter the date that this reason went into NOT APPROVED status. CROSS-REFERENCE: `9000039^E^MUMPS` 1)= S ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X_"."_($P($H,",",2)),$P(^(0),U,3),DA)="" 2)= K ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X,$P(^(0),U,3),DA)
.32	NOT APPROVED OFFICIAL	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `APR 24, 2003` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: Enter the name of the official who did NOT APPROVE this reason.
.33	NOT APPROVED ENTERED/UPD'D BY	3;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 24, 2003`
.34	NOT APPROVED ENTERED/UPD'D DT	3;4	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` CROSS-REFERENCE: `9000039^I^MUMPS` 1)= S ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)="" 2)= K ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)
.41	REVOKED DATE	4;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` DESCRIPTION: Enter the date that this reason went into REVOKED status. CROSS-REFERENCE: `9000039^F^MUMPS` 1)= S ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X_"."_($P($H,",",2)),$P(^(0),U,3),DA)="" 2)= K ^AUPNRHI("C",$P(^AUPNRHI(DA,0),U,1),X,$P(^(0),U,3),DA)
.42	REVOKED OFFICIAL	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `APR 24, 2003` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: Enter the name of the official who REVOKED this reason.
.43	REVOKE ENTERED/UPDATED BY	4;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 24, 2003`
.44	REVOKE ENTERED/UPDATED DATE	4;4	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` CROSS-REFERENCE: `9000039^J^MUMPS` 1)= S ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)="" 2)= K ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)
.51	EIE ENTERED/UPDATED BY	5;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 29, 2003`
.52	EIE ENTERED/UPDATED DATE	5;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 29, 2003` CROSS-REFERENCE: `9000039^K^MUMPS` 1)= S ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)="" 2)= K ^AUPNRHI("G",$E(X,1,30),$P(^AUPNRHI(DA,0),U,3),DA)

Customize PDF page

Package: IHS Patient

Global: ^AUPNRHI

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 2

Fields, Total: 20