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 | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AMHPTPP

Package: Mental Health Social Services

Global: ^AMHPTPP

Information

FileMan FileNo	FileMan Filename	Package
9002011.62	*MHSS PATIENT TP PROBLEMS	Mental Health Social Services

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 10

Field #	Name	Loc	Type	Details
.01	PROBLEM NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `NOV 28, 2000` HELP-PROMPT: `Answer must be 3-50 characters in length.` CROSS-REFERENCE: `9002011.62^B` 1)= S ^AMHPTPP("B",$E(X,1,30),DA)="" 2)= K ^AMHPTPP("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.62^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.62^AC` 1)= S ^AMHPTPP("AC",$E(X,1,30),DA)="" 2)= K ^AMHPTPP("AC",$E(X,1,30),DA)
.03	TREATMENT PLAN	0;3	POINTER TO MHSS PATIENT TREATMENT PLANS FILE (#9002011.56)	**********************REQUIRED FIELD********************** MHSS PATIENT TREATMENT PLANS(#9002011.56) LAST EDITED: `JUL 25, 2000` DESCRIPTION: This is the last date/time this problem was changed. SOURCE OF DATA: 018/PRCOND CROSS-REFERENCE: `9002011.62^AD` 1)= S ^AMHPTPP("AD",$E(X,1,30),DA)="" 2)= K ^AMHPTPP("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`
.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
.12	STATUS	0;12	SET	**********************REQUIRED FIELD********************** 'A' FOR ACTIVE; 'I' FOR INACTIVE; 'R' FOR RESOLVED; LAST EDITED: `NOV 28, 2000` SOURCE OF DATA: 018/PRSTAT
1101	DESCRIPTION	11;0	WORD-PROCESSING #9002011.6211
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 | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All