Global: ^AUTTTHT

FileMan FileNo	FileMan Filename	Package
90636.01	TELEHEALTH TYPE	Patient Care Component

FileMan FileNo

FileMan Filename

Package

90636.01

TELEHEALTH TYPE

This file contains the types of telehealth Modality, the technology used for the telehealth visit. This file is pointed to by the V Telehealth file. DATA DICTIONARY...: This is a standard RPMS data dictionary, maintained in the AUM package. Changes to this data dictionary must be submitted to the RPMS/DBA Team. ENTRIES IN THIS FILE...: This is a DIR Standard Codeset, maintained in the AUM package. Changes to the entries must be submitted to and approved by the RPMS/DBA Team. IHS/OIT/CLS 11/11/2008

Package	Total	FileMan Files
IHS Patient	1	V TELEHEALTH(#9000010.48)[.01, .06]

Package

Total

FileMan Files

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `NOV 13, 2008` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Name of the Modality for the telhealth visit. CROSS-REFERENCE: `90636.01^B` 1)= S ^AUTTTHT("B",$E(X,1,30),DA)="" 2)= K ^AUTTTHT("B",$E(X,1,30),DA)
.02	DESCRIPTION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>160!($L(X)<3) X` LAST EDITED: `NOV 13, 2008` HELP-PROMPT: `Answer must be 3-160 characters in length` DESCRIPTION: Short description of the Modality type.
.03	CODE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `NOV 14, 2008` HELP-PROMPT: `Answer must be 1-5 characters in length.` CROSS-REFERENCE: `90636.01^C` 1)= S ^AUTTTHT("C",$E(X,1,30),DA)="" 2)= K ^AUTTTHT("C",$E(X,1,30),DA)

NAME

0;1

FREE TEXT

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

DESCRIPTION:

Name of the Modality for the telhealth visit.

CROSS-REFERENCE: 90636.01^B

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

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

DESCRIPTION

0;2

FREE TEXT

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

CODE

0;3

FREE TEXT

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

CROSS-REFERENCE: 90636.01^C

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

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