Global: ^AUPNHOS

FileMan FileNo	FileMan Filename	Package
9000016	*HISTORY OF PROCEDURES	IHS Patient

Description

*** WARNING *** ... The .05 field requires programmer access for delete. The field is optional. Once data is entered it may be changed, but never deleted. The effect of overriding this protection and deleting the field would be to leave a residual entry in the "AA" index pointing to the HISTORY OF SURGERY entry from which the field was deleted. This file contains a separate record for each operative procedure performed for a patient, as identified by the patient during the course of a regular patient visit. The data is stored here rather than in the V PROCEDURE file, since it is unsubstantiated by a physician performing the surgery, and was not done at a visit being reported into the system. The file contains backward pointers to the IHS Patient file, and to the visit in the visit file at which the information was collected, and data must exist in both of these files for the patient and visit before data can be entered here.

Package	Total	Routines
Local Area Programs	1	AZAXDPM1

Package	Total	FileMan Files
DRG Grouper	1	ICD OPERATION/PROCEDURE(#80.1)[.01]
IHS Patient	1	PATIENT(#9000001)[.02]
Utility Tables	1	PROVIDER NARRATIVE(#9999999.27)[.04]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	OPERATION	0;1	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	**********************REQUIRED FIELD********************** ICD OPERATION/PROCEDURE(#80.1) LAST EDITED: `AUG 07, 1986` CROSS-REFERENCE: `9000016^B` 1)= S ^AUPNHOS("B",$E(X,1,30),DA)="" 2)= K ^AUPNHOS("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000016^AZ9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 13, 1988` CROSS-REFERENCE: `9000016^AC` 1)= S ^AUPNHOS("AC",$E(X,1,30),DA)="" 2)= K ^AUPNHOS("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000016^AA-TOO^MUMPS` 1)= S ^AUPNHOS("AA",X,9999999,DA)="" 2)= K ^AUPNHOS("AA",X,9999999,DA)
.03	DATE NOTED	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `APR 13, 1988` HELP-PROMPT: `TYPE A DATE BETWEEN 1950 AND TODAY` CROSS-REFERENCE: `9000016^AD` 1)= S ^AUPNHOS("AD",$E(X,1,30),DA)="" 2)= K ^AUPNHOS("AD",$E(X,1,30),DA)
.04	PROVIDER NARRATIVE	0;4	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	PROVIDER NARRATIVE(#9999999.27) LAST EDITED: `APR 23, 1986`
.05	DATE OF SURGERY	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:DTX) X` LAST EDITED: `APR 22, 1986` HELP-PROMPT: `TYPE A DATE BETWEEN 1940 AND TODAY` CROSS-REFERENCE: `9000016^AA^MUMPS` 1)= K ^AUPNHOS("AA",$P(^AUPNHOS(DA,0),U,2),9999999,DA) S ^AUPNHOS("AA",$P(^AUPNHOS(DA,0),U,2),9999999-X,DA)="" 2)= K ^AUPNHOS("AA",$P(^AUPNHOS(DA,0),U,2),9999999-X,DA)

Customize PDF page

Package: IHS Patient

Global: ^AUPNHOS

Information

Description

Directly Accessed By Routines, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 5