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: ^AMHRRUP

Package: Mental Health Social Services

Global: ^AMHRRUP

Information

FileMan FileNo	FileMan Filename	Package
9002011.14	MHSS RECORD UPDATED/REVIEWED	Mental Health Social Services

Description

This file will contain various fields to indicate that a provider reviewed the problem list, medications and/or the allergy list.

Directly Accessed By Routines, Total: 3

Package	Total	Routines
Mental Health Social Services	3	AMHAPI6 AMHAPRB AMHBPL3

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Mental Health Social Services	2	AMHAPRB AMHBPL3

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Mental Health Social Services	1	MHSS RECORD UPDATED/REVIEWED(#9002011.14)[1208]

Pointer To FileMan Files, Total: 7

Package	Total	FileMan Files
Mental Health Social Services	2	MHSS RECORD(#9002011)[.03] MHSS RECORD UPDATED/REVIEWED(#9002011.14)[1208]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[1.02, 2.02, 1202, 1204]
Utility Tables	1	CLINICAL REVIEW ACTION(#9999999.101)[.01]

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	CLINICAL ACTION	0;1	POINTER TO CLINICAL REVIEW ACTION FILE (#9999999.101)	**********************REQUIRED FIELD********************** CLINICAL REVIEW ACTION(#9999999.101) LAST EDITED: `JUN 16, 2010` UNEDITABLE CROSS-REFERENCE: `9002011.14^B` 1)= S ^AMHRRUP("B",$E(X,1,30),DA)="" 2)= K ^AMHRRUP("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.14^AZ9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `^^TRIGGER^9002011.14^1.01` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHRRUP(D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AMHRRUP(DIV(0),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=9002011.14,DIG=1.01 D ^DICR 2)= Q CREATE VALUE)= S X=$$NOW^XLFDT DELETE VALUE)= NO EFFECT FIELD)= #1.01 CROSS-REFERENCE: `^^TRIGGER^9002011.14^1.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHRRUP(D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^AMHRRUP(DIV(0),1)),DIV=X S $P(^(1),U,2)=DIV,DIH=9002011.14,DIG=1.02 D ^DICR 2)= Q CREATE VALUE)= S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1.02 CROSS-REFERENCE: `9002011.14^AA^MUMPS` 1)= I $P($G(^AMHRRUP(DA,12)),U,1),$P(^AMHRRUP(DA,0),U,2) NEW % S %=$P(^AMHRRUP(DA,12),U,1) S ^AMHRRUP("AA",$P(^AMHRRUP(DA,0),U,2),X,(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA)="" 2)= I $P($G(^AMHRRUP(DA,12)),U,1),$P(^AMHRRUP(DA,0),U,2) NEW % S %=$P(^AMHRRUP(DA,12),U,1) K ^AMHRRUP("AA",$P(^AMHRRUP(DA,0),U,2),X,(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA) CROSS-REFERENCE: `9002011.14^AE^MUMPS` 1)= I $P($G(^AMHRRUP(DA,12)),U,1),$P(^AMHRRUP(DA,0),U,2) NEW % S %=$P(^AMHRRUP(DA,12),U,1) S ^AMHRRUP("AE",$P(^AMHRRUP(DA,0),U,2),(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),X,DA)="" 2)= I $P($G(^AMHRRUP(DA,12)),U,1),$P(^AMHRRUP(DA,0),U,2) NEW % S %=$P(^AMHRRUP(DA,12),U,1) K ^AMHRRUP("AE",$P(^AMHRRUP(DA,0),U,2),(9999999=$P(%,".",2))_$P(%,".",2),X,DA) This is a xref by patient, event date/time, action. It can be used to get all actions for 1 patient in order by latest first.
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUN 16, 2010` CROSS-REFERENCE: `9002011.14^AC` 1)= S ^AMHRRUP("AC",$E(X,1,30),DA)="" 2)= K ^AMHRRUP("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.14^AATOO^MUMPS` 1)= I $P($G(^AMHRRUP(DA,12)),U,1) NEW % S %=$P(^AMHRRUP(DA,12),U,1) S ^AMHRRUP("AA",X,+^AMHRRUP(DA,0),(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA)="" 2)= I $P($G(^AMHRRUP(DA,12)),U,1) NEW % S %=$P(^AMHRRUP(DA,12),U,1) K ^AMHRRUP("AA",X,+^AMHRRUP(DA,0),(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA) CROSS-REFERENCE: `9002011.14^AETOO^MUMPS` 1)= I $P($G(^AMHRRUP(DA,12)),U,1) NEW % S %=$P(^AMHRRUP(DA,12),U,1) S ^AMHRRUP("AE",X,(9999999-$P(%,".",1))_$S($P(%,".",2):"."_$P(%,".",2),1:""),+^AMHRRUP(DA,0),DA)="" 2)= I $P($G(^AMHRRUP(DA,12)),U,1) NEW % S %=$P(^AMHRRUP(DA,12),U) K ^AMHRRUP("AE",X,(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),+^AMHRRUP(DA,0),DA)
.03	MHSS RECORD	0;3	POINTER TO MHSS RECORD FILE (#9002011)	**********************REQUIRED FIELD********************** MHSS RECORD(#9002011) LAST EDITED: `JUN 21, 2011` CROSS-REFERENCE: `9002011.14^AD` 1)= S ^AMHRRUP("AD",$E(X,1,30),DA)="" 2)= K ^AMHRRUP("AD",$E(X,1,30),DA)
1.01	DATE/TIME ENTERED	1;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2010` NOTES: `TRIGGERED by the CLINICAL ACTION field of the MHSS RECORD UPDATED/REVIEWED File`
1.02	ENTERED BY	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 2010` NOTES: `TRIGGERED by the CLINICAL ACTION field of the MHSS RECORD UPDATED/REVIEWED File`
2.01	DELETED/ENTERED IN ERROR	2;1	SET	'1' FOR YES; LAST EDITED: `JUN 15, 2010`
2.02	DELETED/ENTERED IN ERROR BY	2;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 15, 2010`
2.03	REASON DELETED	2;3	SET	'D' FOR DUPLICATE; 'E' FOR ENTERED IN ERROR; 'O' FOR OTHER; LAST EDITED: `JUN 15, 2010`
2.04	REASON IF OTHER	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JUN 15, 2010` HELP-PROMPT: `Answer must be 2-30 characters in length.`
1201	EVENT DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2010` HELP-PROMPT: `Enter the date and time the measurement was taken.` DESCRIPTION: Date and time that the assessment was made. May be different than visit timestamp. Date must be precise. Must be within 30 days before or after visit date, but not a future date. TECHNICAL DESCR: Refer to V MEASUREMENT CROSS-REFERENCE: `9002011.14^AATOOO^MUMPS` 1)= I $P(^AMHRRUP(DA,0),U,2),+^AMHRRUP(DA,0) S ^AMHRRUP("AA",$P(^AMHRRUP(DA,0),U,2),+^AMHRRUP(DA,0),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),DA)="" 2)= I $P(^AMHRRUP(DA,0),U,2),+^AMHRRUP(DA,0) K ^AMHRRUP("AA",$P(^AMHRRUP(DA,0),U,2),+^AMHRRUP(DA,0),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),DA) CROSS-REFERENCE: `9002011.14^AETOOO^MUMPS` 1)= I $P(^AMHRRUP(DA,0),U,2),+^AMHRRUP(DA,0) S ^AMHRRUP("AE",$P(^AMHRRUP(DA,0),U,2),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),+^AMHRRUP(DA,0),DA)="" 2)= I $P(^AMHRRUP(DA,0),U,2),+^AMHRRUP(DA,0) K ^AMHRRUP("AE",$P(^AMHRRUP(DA,0),U,2),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),+^AMHRRUP(DA,0),DA)
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 15, 2010` HELP-PROMPT: `Enter the provider who ordered the assessment` DESCRIPTION: Provider who ordered the assessment
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `APR 15, 2010`
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 2010` HELP-PROMPT: `Enter the provider that made the assessment` DESCRIPTION: Provider that made the assessment TECHNICAL DESCR: Refer to technical description of field 1204 in V MEASUREMENT
1208	PARENT ASSESSMENT	12;8	POINTER TO MHSS RECORD UPDATED/REVIEWED FILE (#9002011.14)	MHSS RECORD UPDATED/REVIEWED(#9002011.14) LAST EDITED: `APR 15, 2010`
1209	EXTERNAL KEY	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 15, 2010` HELP-PROMPT: `Answer must be 1-20 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTEXK")
1210	OUTSIDE PROVIDER NAME	12;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 15, 2010` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTOPR")
1215	ORDERING LOCATION	12;15	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `APR 15, 2010`

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