Global: ^AMHRTMDP

Field #	Name	Loc	Type	Details
.01	MEDICAL PROBLEM	0;1	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	**********************REQUIRED FIELD********************** PROVIDER NARRATIVE(#9999999.27) LAST EDITED: `OCT 27, 1993` CROSS-REFERENCE: `9002011.03^B` 1)= S ^AMHRTMDP("B",$E(X,1,30),DA)="" 2)= K ^AMHRTMDP("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.03^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.03^AC` 1)= S ^AMHRTMDP("AC",$E(X,1,30),DA)="" 2)= K ^AMHRTMDP("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(^AMHRTMDP(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(^AMHRTMDP(DA,0),U,2)"` EXPLANATION: `Must be for current patient.` UNEDITABLE CROSS-REFERENCE: `9002011.03^AD` 1)= S ^AMHRTMDP("AD",$E(X,1,30),DA)="" 2)= K ^AMHRTMDP("AD",$E(X,1,30),DA)

MEDICAL PROBLEM

0;1

POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002011.03^B

1)= S ^AMHRTMDP("B",$E(X,1,30),DA)=""

2)= K ^AMHRTMDP("B",$E(X,1,30),DA)

PATIENT

0;2

POINTER TO PATIENT FILE (#9000001)

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002011.03^AC

1)= S ^AMHRTMDP("AC",$E(X,1,30),DA)=""

2)= K ^AMHRTMDP("AC",$E(X,1,30),DA)

MHSS RECORD

0;3

POINTER TO MHSS RECORD FILE (#9002011)

************************REQUIRED FIELD************************

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,8)=$P(^AMHRTMDP(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(^AMHRTMDP(DA,0),U,2)"
EXPLANATION: Must be for current patient.
```
UNEDITABLE
```

CROSS-REFERENCE: 9002011.03^AD

1)= S ^AMHRTMDP("AD",$E(X,1,30),DA)=""

2)= K ^AMHRTMDP("AD",$E(X,1,30),DA)

Information