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

Info | Details | All

Print Page as PDF

Sub-Field: 9000001.41

Package: IHS Patient

PATIENT(#9000001)-->9000001.41

Sub-Field: 9000001.41

Information

Parent File	Name	Number	Package
PATIENT(#9000001)	HEALTH RECORD NO.	9000001.41	IHS Patient

Details

Field #	Name	Loc	Type	Details
.01	HEALTH RECORD FAC	0;1	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `MAR 26, 2004` HELP-PROMPT: `ENTER NAME OF FACILITY ASSOCIATED WITH THE HEALTH RECORD NUMBER YOU WISH TO ENTER.` DESCRIPTION: `This field is a pointer to the FACILITY file. The internal pointer is forced into the third subscript for the 9000001.41 subfile. This allows easy lookup by health record number for the logged on facility.` The complete subscript for 9000001.41 will be (DFN,41,facility pointer,0). AUDIT: `YES, ALWAYS` SOURCE OF DATA: 015/HRSUBR NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001.41^AAVABDW22^MUMPS` 1)= D SET^AUPNDWXR(DA(1),"CHART") 2)= D KILL^AUPNDWXR(DA(1),"CHART") Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.02	HEALTH RECORD NO.	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:(X'?1.9N&(X'?1"T"5N))!(X?1.9N&(X'=+X)) X` LAST EDITED: `MAR 26, 2004` HELP-PROMPT: `ENTER A WHOLE NUMBER BETWEEN 1 AND 999999` AUDIT: `YES, ALWAYS` SOURCE OF DATA: 015/HRNUMB NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001^D` 1)= S ^AUPNPAT("D",$E(X,1,30),DA(1),DA)="" 2)= K ^AUPNPAT("D",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `9000001.41^AAVABDW23^MUMPS` 1)= D SET^AUPNDWXR(DA(1),"CHART") 2)= D KILL^AUPNDWXR(DA(1),"CHART") Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.0299	TERMINAL DIGITS		COMPUTED	MUMPS CODE: `X ^DD(9000001.41,.0299,9.4) S X=$E(Y(9000001.41,.0299,5),Y(9000001.41,.0299,6),X) S Y=+X,X=Y(9000001.41,.0299,4),X=X_Y` 9.2 = S Y(9000001.41,.0299,1)=$S($D(^AUPNPAT(D0,41,D1,0)):^(0),1:"") S X=$P(Y(9000001.41,.0299,1),U,2)+1000000,Y(9000001.41,.0299,2)=X S X=6 9.3 = X ^DD(9000001.41,.0299,9.2) S Y(9000001.41,.0299,3)=X S X=7,X=$E(Y(9000001.41,.0299,2),Y(9000001.41,.0299,3),X)_"-",Y(9000001.41,.0299,4)=X 9.4 = X ^DD(9000001.41,.0299,9.3) S X=$P(Y(9000001.41,.0299,1),U,2)+1000000,Y(9000001.41,.0299,5)=X S X=2,Y(9000001.41,.0299,6)=X S X=7 9.5 = X ^DD(9000001.41,.0299,9.4) S Y(9000001.41,.0299,7)=X S X=$P(Y(9000001.41,.0299,3),U,2)+1000000,Y(9000001.41,.0299,8)=X S X=2,Y(9000001.41,.0299,9)=X S X=5 ALGORITHM: `$E(#.02+1000000,6,7)_"-"_+$E(#.02+1000000,2,7)` LAST EDITED: `JUN 23, 1986`
.03	DATE INACTIVATED/DELETED	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X`
.04	RECORD DISPOSITION	0;4	POINTER TO PATIENT RECORD DISPOSITION FILE (#9999999.02)	PATIENT RECORD DISPOSITION(#9999999.02) LAST EDITED: `DEC 10, 1985`
.05	RECORD STATUS	0;5	SET	'D' FOR DELETED; 'I' FOR INACTIVATED; 'M' FOR MERGED; LAST EDITED: `MAR 25, 2004` HELP-PROMPT: `Enter "D" if the record has been deleted.` CROSS-REFERENCE: `9000001^AAVABDW24^MUMPS` 1)= D SET^AUPNDWXR(DA(1),"CHART") 2)= D KILL^AUPNDWXR(DA(1),"CHART") Populates AUPNDWAF for the Data Warehouse export. See routine AUPNDWXR for documentation.
.06	STOP INTEGRATION	0;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `AUG 17, 1988`
.07	CHS ONLY	0;7	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 10, 2002` HELP-PROMPT: `Is this Patient "CHS ONLY" at this time ?` DESCRIPTION: `Enter "Y" if this Patient was registered at this facility for completion of CHS Purchase Order(s) and not all Patient Registration and/or Medical records information was entered. Enter "N" if this Patient was registered` at this facility with complete Patient Registration and Medical Records information. This field will remind you to enter any missing or inconsistent data when the Patient presents in person.

Info | Details | All