Global: ^ACM(44.1

Information

FileMan FileNo	FileMan Filename	Package
9002244.1	CMS DIAGNOSIS LIST ENTRY	Case Management System

The CMS DIAGNOSIS CATEGORY file contains the standard set of pediatric diagnosis categories. This list can be customized to local needs.

Package	Total	Routines
Diabetes Registry	8	BDMFUTIL BDMGE BDMGU BDMSDX BDMVRL2 BDMVRL43 BDMVRL5 BDMVRL8
Case Management System	7	ACMADDM ACMADDM1 ACMADDM2 ACMDXIT ACMRDX ACMRGA01 ACMRGA02
iCare	2	BQIRGACM BQIRGDBL
PCC Medical Query	1	AMQQREG

Package	Total	Routines
Case Management System	6	ACMADDM ACMADDM1 ACMADDM2 ACMDXIT ACMRGA01 ACMRGA02
Diabetes Registry	4	BDMFUTIL BDMSDX BDMVRL6 BDMVRL8

Package	Total	FileMan Files
Case Management System	2	CMS DIAGNOSIS FOR THE CLIENT(#9002244)[.01] CMS DIAGNOSIS INTERVENTION(#9002244.3)[.01]

Package	Total	FileMan Files
Case Management System	2	CMS REGISTER TYPE(#9002241.1)[#9002244.11(.01)] *CMS DIAGNOSIS CATEGORY(#9002244.2)[.02]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 18, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DELETE TEST: `.01,0)= I $D(^ACM(44,"B",DA)) W *7,!!,"There are still clients with this diagnosis.",!,"Therefore, it cannot be deleted."` CROSS-REFERENCE: `9002244.1^B` 1)= S ^ACM(44.1,"B",$E(X,1,30),DA)="" 2)= K ^ACM(44.1,"B",$E(X,1,30),DA)
.02	CATEGORY	0;2	POINTER TO *CMS DIAGNOSIS CATEGORY FILE (#9002244.2)	*CMS DIAGNOSIS CATEGORY(#9002244.2) LAST EDITED: `AUG 28, 1989` CROSS-REFERENCE: `9002244.1^CAT` 1)= S ^ACM(44.1,"CAT",$E(X,1,30),DA)="" 2)= K ^ACM(44.1,"CAT",$E(X,1,30),DA)
.03	REGISTER	RG;0	POINTER Multiple #9002244.11	9002244.11

DIAGNOSIS

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUL 18, 1989
HELP-PROMPT: Answer must be 3-30 characters in length.
DELETE TEST: .01,0)= I $D(^ACM(44,"B",DA)) W *7,!!,"There are still clients with this diagnosis.",!,"Therefore, it cannot be deleted."

CROSS-REFERENCE: 9002244.1^B

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

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