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

Info | Desc | Directly Accessed By Routines | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AMHPTPGL

Package: Mental Health Social Services

Global: ^AMHPTPGL

Information

FileMan FileNo	FileMan Filename	Package
9002011.63	*MHSS PATIENT TP GOALS 2	Mental Health Social Services

Description

This file contains patient specific problems entered by the various pro- viders of service. The PATIENT NAME field (.01) is a backward pointer to the IHS PATIENT file. This file contains one record for each problem for each patient, therefore, the KEY field (.01) is duplicated. As of March 17, 1986 the FACILITY must be entered prior to the NUMBER. If the NUMBER is entered without previously entering the FACILITY the "AC" index is created with no FACILITY pointer.

Directly Accessed By Routines, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	GOAL NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 25, 2000` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: This contains the standardized text stored in the Clinical Term file for this problem. CROSS-REFERENCE: `9002011.63^B` 1)= S ^AMHPTPGL("B",$E(X,1,30),DA)="" 2)= K ^AMHPTPGL("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.63^AZ9^MUMPS` 1)= S:$D(AMHLOOK) DIC("DR")="" 2)= Q
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUL 26, 1994` DESCRIPTION: This is the patient for whom this problem has been observed and recorded. CROSS-REFERENCE: `9002011.63^AC` 1)= S ^AMHPTPGL("AC",$E(X,1,30),DA)="" 2)= K ^AMHPTPGL("AC",$E(X,1,30),DA)
.03	PROBLEM	0;3	POINTER TO *MHSS PATIENT TP PROBLEMS FILE (#9002011.62)	**********************REQUIRED FIELD********************** *MHSS PATIENT TP PROBLEMS(#9002011.62) LAST EDITED: `JUL 25, 2000` DESCRIPTION: This is the last date/time this problem was changed. SOURCE OF DATA: 018/PRCOND CROSS-REFERENCE: `9002011.63^AD` 1)= S ^AMHPTPGL("AD",$E(X,1,30),DA)="" 2)= K ^AMHPTPGL("AD",$E(X,1,30),DA)
.04	DATE LAST MODIFIED	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 25, 2000`
.05	PROVIDER LAST UPDATE	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 25, 2000`
.06	ESTABLISHED BY	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 25, 2000`
.07	REVISE/ACHIEVE BY	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 25, 2000`
.08	DATE ESTABLISHED	0;8	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `MAR 07, 1988` HELP-PROMPT: `TYPE A DATE BETWEEN 1900 AND DT` DESCRIPTION: This is the date this problem was entered into this file. SOURCE OF DATA: 018/PREDAT UNEDITABLE
.09	SCORE	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 25, 2000` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
.12	STATUS	0;12	SET	**********************REQUIRED FIELD********************** 'M' FOR MET; 'N' FOR NOT MET; 'C' FOR CONTINUED; LAST EDITED: `JUL 25, 2000` SOURCE OF DATA: 018/PRSTAT
.13	TREATMENT PLAN	0;13	POINTER TO MHSS PATIENT TREATMENT PLANS FILE (#9002011.56)	MHSS PATIENT TREATMENT PLANS(#9002011.56) LAST EDITED: `JUL 25, 2000`
1101	GOAL DESCRIPION	11;0	WORD-PROCESSING #9002011.6311
1201	COMMENTS	12;0	DATE Multiple #9002011.6312	9002011.6312
9999	LOOKUP		COMPUTED	MUMPS CODE: `S X=$S($D(AMHLOOK):AMHLOOK,1:"")` ALGORITHM: `S X=$S($D(AMHLOOK):AMHLOOK,1:"")`

Info | Desc | Directly Accessed By Routines | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All