Global: ^ACM(44.3

FileMan FileNo	FileMan Filename	Package
9002244.3	CMS DIAGNOSIS INTERVENTION	Case Management System

FileMan FileNo

FileMan Filename

Package

9002244.3

CMS DIAGNOSIS INTERVENTION

Package	Total	Routines
Case Management System	3	ACMADDM ACMDXIT ACMEP

Package	Total	Routines
Case Management System	2	ACMADDM ACMDXIT

Package	Total	FileMan Files
Case Management System	2	CMS INTERVENTION LIST ENTRY(#9002243.1)[.02] CMS DIAGNOSIS LIST ENTRY(#9002244.1)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO CMS DIAGNOSIS LIST ENTRY FILE (#9002244.1)	**********************REQUIRED FIELD********************** CMS DIAGNOSIS LIST ENTRY(#9002244.1) LAST EDITED: `JAN 20, 1992` CROSS-REFERENCE: `9002244.3^B` 1)= S ^ACM(44.3,"B",$E(X,1,30),DA)="" 2)= K ^ACM(44.3,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9002244.3^AC^MUMPS` 1)= I X,$D(^ACM(44.3,X,0)),$P(^(0),U,2)'="" S ^ACM(44.3,"AC",X,$P(^(0),U,2),DA)="" 2)= I X,$D(^ACM(44.3,X,0)),$P(^(0),U,2)'="" K ^ACM(44.3,"AC",X,$P(^(0),U,2),DA)
.02	INTERVENTION	0;2	POINTER TO CMS INTERVENTION LIST ENTRY FILE (#9002243.1)	CMS INTERVENTION LIST ENTRY(#9002243.1) LAST EDITED: `JAN 20, 1992` CROSS-REFERENCE: `9002244.3^AC2^MUMPS` 1)= I $D(DA),DA,$D(X),X,$D(^ACM(44.3,DA,0)),$P(^(0),U)'="" S ^ACM(44.3,"AC",$P(^(0),U),X,DA)="" 2)= I $D(DA),DA,$D(X),X,$D(^ACM(44.3,DA,0)),$P(^(0),U)'="" K ^ACM(44.3,"AC",$P(^(0),U),X,DA)

DIAGNOSIS

0;1

POINTER TO CMS DIAGNOSIS LIST ENTRY FILE (#9002244.1)

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

CROSS-REFERENCE: 9002244.3^B

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

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

CROSS-REFERENCE: 9002244.3^AC^MUMPS

1)= I X,$D(^ACM(44.3,X,0)),$P(^(0),U,2)'="" S ^ACM(44.3,"AC",X,$P(^(0),U,2),DA)=""

2)= I X,$D(^ACM(44.3,X,0)),$P(^(0),U,2)'="" K ^ACM(44.3,"AC",X,$P(^(0),U,2),DA)

INTERVENTION

0;2

POINTER TO CMS INTERVENTION LIST ENTRY FILE (#9002243.1)

CROSS-REFERENCE: 9002244.3^AC2^MUMPS

1)= I $D(DA),DA,$D(X),X,$D(^ACM(44.3,DA,0)),$P(^(0),U)'="" S ^ACM(44.3,"AC",$P(^(0),U),X,DA)=""

2)= I $D(DA),DA,$D(X),X,$D(^ACM(44.3,DA,0)),$P(^(0),U)'="" K ^ACM(44.3,"AC",$P(^(0),U),X,DA)

Information