Global: ^AUPNUMS

FileMan FileNo	FileMan Filename	Package
9000015	*UNMET SURGICAL NEED	IHS Patient

FileMan FileNo

FileMan Filename

Package

9000015

*UNMET SURGICAL NEED

This file contains patient's unmet surgical needs. The PATIENT NAME field of this file (.01) is a backward pointer to the IHS PATIENT file and the patient must exist there before data can be added here. This file contains one record for each unmet surgical need for each patient, therefore, the PATIENT NAME field of this file (.01) is duplicated. The file also has a backward pointer to the visit at which the information was generated, and data must exist in that file for the visit before data can be entered here.

Package	Total	Routines
Local Area Programs	1	AZAXDPM1

Package

Total

Routines

Package

Total

FileMan Files

Fields, Total: 4

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: `9000015^B` 1)= S ^AUPNUMS("B",$E(X,1,30),DA)="" 2)= K ^AUPNUMS("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000015^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 17, 1986` UNEDITABLE CROSS-REFERENCE: `9000015^AC` 1)= S ^AUPNUMS("AC",$E(X,1,30),DA)="" 2)= K ^AUPNUMS("AC",$E(X,1,30),DA)
.03	DATE NOTED	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `FEB 17, 1987` HELP-PROMPT: `TYPE A DATE BETWEEN 1960 AND TODAY` UNEDITABLE CROSS-REFERENCE: `9000015^AD` 1)= S ^AUPNUMS("AD",$E(X,1,30),DA)="" 2)= K ^AUPNUMS("AD",$E(X,1,30),DA)
.04	NARRATIVE QUALIFIERS	0;4	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	**********************REQUIRED FIELD********************** PROVIDER NARRATIVE(#9999999.27) LAST EDITED: `AUG 03, 1987`