Global: ^ACDPROB

FileMan FileNo	FileMan Filename	Package
9002170.3	CDMIS PROBLEM	Alcohol Chemical Dependency

Directly Accessed By Routines, Total: 10

Package	Total	Routines
Alcohol Chemical Dependency	8	ACD4P1P ACDFLAT3 ACDPCCL3 ACDRLU2 ACDRR1PB ACDWCINV ACDWIIF ACDWTDC
Mental Health Social Services	2	AMHCDBL1 AMHCDBL2

Package	Total	Routines
Alcohol Chemical Dependency	1	ACD4P1P

Package	Total	FileMan Files
Alcohol Chemical Dependency	3	CDMIS INIT/INFO/FU(#9002170)[.01, #9002170.01(.01)] CDMIS INTERVENTIONS(#9002173.5)[7, #9002173.58(.01)] CDMIS TRANS/DISC/CLOSE(#9002171)[100, #9002171.0102(.01)]

Package	Total	FileMan Files
DRG Grouper	1	ICD DIAGNOSIS(#80)[.03]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROBLEM	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X K X` LAST EDITED: `JAN 08, 1998` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002170.3^B` 1)= S ^ACDPROB("B",$E(X,1,30),DA)="" 2)= K ^ACDPROB("B",$E(X,1,30),DA)
.03	ICD9 CODE	0;3	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `APR 22, 1995`
1	PROBLEM CODE	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 11, 1997` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002170.3^C` 1)= S ^ACDPROB("C",$E(X,1,30),DA)="" 2)= K ^ACDPROB("C",$E(X,1,30),DA)

PROBLEM

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002170.3^B

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

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

ICD9 CODE

0;3

POINTER TO ICD DIAGNOSIS FILE (#80)

PROBLEM CODE

0;2

NUMBER

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

CROSS-REFERENCE: 9002170.3^C

1)= S ^ACDPROB("C",$E(X,1,30),DA)=""

2)= K ^ACDPROB("C",$E(X,1,30),DA)