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 | Found Entries | All

Print Page as PDF

Global: ^AMHRINTK

Package: Mental Health Social Services

Global: ^AMHRINTK

Information

FileMan FileNo	FileMan Filename	Package
9002011.13	MHSS RECORD INTAKE	Mental Health Social Services

Description

This file has been designed for joint use by the Indian Health Service and the Department of Veteran Affairs. Measurements, such as weight, height, blood pressure, etc., taken by a health professional at an outpatient encounter, will be stored in this file. The patient name is a pointer to the Patient/IHS file, and the visit is a pointer to the Visit file. Both of these must exist before data can be entered in this record. This file contains one record for each measurement for a patient for each visit; therefore the key field (.01) will be duplicated.

Directly Accessed By Routines, Total: 12

Package	Total	Routines
Mental Health Social Services	11	AMH40ENV AMHESIG AMHGDA AMHGDINT AMHGDVF AMHGEVF AMHGVDEL AMHLEDEL AMHLEIV AMHLEIV3 AMHLEIVP

Accessed By FileMan Db Calls, Total: 8

Package	Total	Routines
Mental Health Social Services	8	AMH40ENV AMHESIG AMHGDA AMHGDINT AMHGSINT AMHGVDEL AMHLEDEL AMHLEIV

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Mental Health Social Services	1	MHSS RECORD INTAKE(#9002011.13)[.1]

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[.04, .06, .13]
Mental Health Social Services	1	MHSS RECORD INTAKE(#9002011.13)[.1]
Text Integration Utility	1	TIU DOCUMENT(#8925)[.08]

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X I X>DT K X Q` LAST EDITED: `NOV 06, 2009` DESCRIPTION: This is the type of measurement being taken on the patient. TECHNICAL DESCR: Pointer to the measurement type file. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002011.13^B` 1)= S ^AMHRINTK("B",$E(X,1,30),DA)="" 2)= K ^AMHRINTK("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.13^AV9^MUMPS` 1)= S:$D(AMHLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9002011.13^AA^MUMPS` 1)= NEW % S %=^AMHRINTK(DA,0) I $P(%,U,2),$P(%,U,3) S ^AMHRINTK("AA",$P(%,U,2),X,(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)="" 2)= NEW % S %=^AMHRINTK(DA,0) I $P(%,U,2),$P(%,U,3) K ^AMHRINTK("AA",$P(%,U,2),X,(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `AUG 27, 2007` HELP-PROMPT: `Enter the patient name.` DESCRIPTION: Patient Name. TECHNICAL DESCR: Pointer to the patient file. Always stuffed by data entry/no editing allowed. CROSS-REFERENCE: `9002011.13^AC` 1)= S ^AMHRINTK("AC",$E(X,1,30),DA)="" 2)= K ^AMHRINTK("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.13^AATOO^MUMPS` 1)= NEW % S %=^AMHRINTK(DA,0) I $P(%,U),$P(%,U,3) S ^AMHRINTK("AA",X,$P(%,U),(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)="" 2)= NEW % S %=^AMHRINTK(DA,0) I $P(%,U),$P(%,U,3) K ^AMHRINTK("AA",X,$P(%,U),(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)
.04	PROVIDER	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `NOV 20, 2009`
.05	PROGRAM	0;5	SET	**********************REQUIRED FIELD********************** 'M' FOR MENTAL HEALTH; 'S' FOR SOCIAL SERVICES; 'O' FOR OTHER; 'C' FOR CHEMICAL DEPENDENCY; LAST EDITED: `NOV 09, 2009`
.06	USER LAST UPDATE	0;6	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `NOV 20, 2009`
.07	DATE LAST UPDATED	0;7	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:X>DT X` LAST EDITED: `NOV 09, 2009` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	TIU DOC	0;8	POINTER TO TIU DOCUMENT FILE (#8925)	TIU DOCUMENT(#8925) LAST EDITED: `MAR 04, 2009`
.09	TYPE OF INTAKE	0;9	SET	**********************REQUIRED FIELD********************** 'I' FOR INITIAL; 'U' FOR UPDATE; LAST EDITED: `NOV 09, 2009`
.1	INITIAL INTAKE	0;10	POINTER TO MHSS RECORD INTAKE FILE (#9002011.13)	MHSS RECORD INTAKE(#9002011.13) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=$P(^AMHRINTK(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 24, 2009` SCREEN: `S DIC("S")="I $P(^(0),U,2)=$P(^AMHRINTK(DA,0),U,2)"` EXPLANATION: `MUST BE FOR SAME PATIENT` CROSS-REFERENCE: `9002011.13^AI` 1)= S ^AMHRINTK("AI",$E(X,1,30),DA)="" 2)= K ^AMHRINTK("AI",$E(X,1,30),DA)
.11	DATE/TIME SIGNED	0;11	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 24, 2009`
.12	SIGNATURE BLOCK	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `OCT 08, 2009` HELP-PROMPT: `Answer must be 1-70 characters in length.`
.13	ENTERED BY	0;13	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `NOV 06, 2009`
.16	SIGNATURE TITLE	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `DEC 15, 2010` HELP-PROMPT: `Answer must be 1-50 characters in length.`
4100	NARRATIVE	41;0	WORD-PROCESSING #9002011.1341	LAST EDITED: `AUG 25, 2009`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All