Global: ^AMHTAXIV

Information

FileMan FileNo	FileMan Filename	Package
9002012.9	MHSS AXIS IV CODES	Mental Health Social Services

Package	Total	Routines
Mental Health Social Services	8	AMHHS AMHLEFP2 AMHLEFPP AMHLESM AMHLETPP AMHNAVRP AMHVDSG AMHVDSG1
Health Summary Components	1	BHSBH

Package	Total	Routines
Mental Health Social Services	2	AMHGDTP AMHGDVF

Package	Total	FileMan Files
Mental Health Social Services	2	MHSS PATIENT TREATMENT PLANS(#9002011.56)[#9002011.569(.01)] MHSS RECORD(#9002011)[.13, 8801, #9002011.06101(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1)!'(X?1.2N) X S:$D(X) DINUM=X` LAST EDITED: `APR 10, 1997` HELP-PROMPT: `Answer must be 1-2 characters in length.` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002012.9^B` 1)= S ^AMHTAXIV("B",$E(X,1,30),DA)="" 2)= K ^AMHTAXIV("B",$E(X,1,30),DA)
.02	AXIS IV	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<3) X` LAST EDITED: `APR 25, 1995` HELP-PROMPT: `Answer must be 3-80 characters in length.` CROSS-REFERENCE: `9002012.9^C` 1)= S ^AMHTAXIV("C",$E(X,1,30),DA)="" 2)= K ^AMHTAXIV("C",$E(X,1,30),DA)

CODE

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002012.9^B

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

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

AXIS IV

0;2

FREE TEXT

CROSS-REFERENCE: 9002012.9^C

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

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

CODE: 1	CODE: 2	CODE: 3	CODE: 4	CODE: 5	CODE: 6	CODE: 7	CODE: 8
CODE: 9