Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^AUTTTRT

Package: Utility Tables

Global: ^AUTTTRT

Information

FileMan FileNo	FileMan Filename	Package
9999999.17	TREATMENT	Utility Tables

Description

Changes to this data dictionary should be coordinated thru the IHS DBA. This file is a table developed by the IHS for recording Patient Treatments which are not covered in the ICD-9-CM Procedures. These are primarily Nursing Activities performed during a Patient Visit, such as Ear Irrigation, or Instructions or Counseling given to a patient for a Medical Problem.

Directly Accessed By Routines, Total: 9

Package	Total	Routines
PCE Patient Care Encounter	2	PXAPIIB PXCETRT
Patient Care Component	2	APCDEGP3 APCHS8
Automated Information Collection System	1	IBDFN14
Clinical Scheduling for Windows	1	BSDX41E
Health Summary Components	1	BHSFAM1
Order Entry Results Reporting	1	ORWPCE2
Scheduling	1	SCRPW25

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Table Maintenance	1	AUM94033

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Patient	1	V TREATMENT(#9000010.15)[.01]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
CPT Files	1	CPT(#81)[.11]

Fields, Total: 6

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'?.ANP) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.17^B` 1)= S ^AUTTTRT("B",$E(X,1,30),DA)="" 2)= K ^AUTTTRT("B",$E(X,1,30),DA)
.02	CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?6NU) X I $D(X),$D(^AUTTTRT("C",X)),'$D(^AUTTTRT("C",X,DA)) K X W:'$D(ZTQUEUED) " Already used! "` LAST EDITED: `MAY 19, 1993` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.17^C` 1)= S ^AUTTTRT("C",$E(X,1,30),DA)="" 2)= K ^AUTTTRT("C",$E(X,1,30),DA)
.03	SUMMARY FLAG	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'((X="0")!(X="1")) X` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH`
.04	INACTIVE FLAG	0;4	SET	'1' FOR INACTIVE; LAST EDITED: `JUL 10, 1996`
.11	CPT CODE	0;11	POINTER TO CPT FILE (#81)	CPT(#81) LAST EDITED: `MAY 22, 1996`
8801	MNEMONIC	88;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X` LAST EDITED: `MAR 16, 1987` HELP-PROMPT: `ANSWER MUST BE 1-6 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9999999.17^B^MNEMONIC` 1)= S ^AUTTTRT("B",$E(X,1,30),DA)=1 2)= K ^AUTTTRT("B",$E(X,1,30),DA)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All