Global: ^AUPNSURV

FileMan FileNo	FileMan Filename	Package
9000008	*SURVEILLANCE	IHS Patient

FileMan FileNo

FileMan Filename

Package

9000008

*SURVEILLANCE

This file contains surveillance procedures due for each patient. The PATIENT NAME field of this file (.01) is a backward pointer to the IHS PATIENT file and must exist there before data can be added here. This file contains one record for each surveillance procedure for each patient, therefore, the KEY field (.01) is duplicated. The surveillance procedures include immunizations, skin tests, laboratory tests and physical exams, and a due date is calculated for each patient based on the patient age, sex and date of the previous procedure.

Package	Total	Routines
Local Area Programs	1	AZAXDPM1

Package

Total

Routines

Package	Total	FileMan Files
Utility Tables	2	CLINICAL REMINDER CODE(#9999999.24)[.05] SURVEILLANCE CODE(#9999999.19)[.02]
IHS Patient	1	PATIENT(#9000001)[.01]

Package

Total

FileMan Files

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000008^B` 1)= S ^AUPNSURV("B",$E(X,1,30),DA)="" 2)= K ^AUPNSURV("B",$E(X,1,30),DA)
.02	CODE	0;2	POINTER TO *SURVEILLANCE CODE FILE (#9999999.19)	**********************REQUIRED FIELD********************** *SURVEILLANCE CODE(#9999999.19) LAST EDITED: `JUL 11, 1986` SOURCE OF DATA: 50n/SICODE UNEDITABLE CROSS-REFERENCE: `9000008^AA^MUMPS` 1)= S ^AUPNSURV("AA",$P(^AUPNSURV(DA,0),U,1),X,DA)="" 2)= K ^AUPNSURV("AA",$P(^AUPNSURV(DA,0),U,1),X,DA)
.03	DATE LAST GIVEN	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `JUL 11, 1986` HELP-PROMPT: `TYPE A DATE BETWEEN 1960 AND TODAY` SOURCE OF DATA: 50n/SILSTG UNEDITABLE
.04	DATE NEXT DUE	0;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 11, 1986` SOURCE OF DATA: 50n/SIACTR UNEDITABLE
.05	PROCEDURE CODE	0;5	POINTER TO *CLINICAL REMINDER CODE FILE (#9999999.24)	**********************REQUIRED FIELD********************** *CLINICAL REMINDER CODE(#9999999.24) LAST EDITED: `JUL 11, 1986` SOURCE OF DATA: 50n/SIDSSC UNEDITABLE