Global: ^AMHRPA

Field #	Name	Loc	Type	Details
.01	PREVENTION ACTIVITY	0;1	POINTER TO MHSS PREVENTION ACTIVITIES FILE (#9002014.8)	**********************REQUIRED FIELD********************** MHSS PREVENTION ACTIVITIES(#9002014.8) LAST EDITED: `SEP 10, 2002` CROSS-REFERENCE: `9002011.09^B` 1)= S ^AMHRPA("B",$E(X,1,30),DA)="" 2)= K ^AMHRPA("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.09^AZ9^MUMPS` 1)= S:$D(AMHLOOK) DIC("DR")="" 2)= Q
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `NOV 15, 1993` CROSS-REFERENCE: `9002011.09^AC` 1)= S ^AMHRPA("AC",$E(X,1,30),DA)="" 2)= K ^AMHRPA("AC",$E(X,1,30),DA)
.03	MHSS RECORD	0;3	POINTER TO MHSS RECORD FILE (#9002011)	**********************REQUIRED FIELD********************** MHSS RECORD(#9002011) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,8)=$P(^AMHRPA(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 30, 1993` SCREEN: `S DIC("S")="I $P(^(0),U,8)=$P(^AMHRPA(DA,0),U,2)"` EXPLANATION: `Must be for current patient.` UNEDITABLE CROSS-REFERENCE: `9002011.09^AD` 1)= S ^AMHRPA("AD",$E(X,1,30),DA)="" 2)= K ^AMHRPA("AD",$E(X,1,30),DA)
.04	IF OTHER	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `OCT 04, 2010` HELP-PROMPT: `Answer must be 1-40 characters in length.`

Information