Global: ^DIC(45.3

FileMan FileNo	FileMan Filename	Package
45.3	SURGICAL SPECIALTY	Registration

Directly Accessed By Routines, Total: 20

Package	Total	Routines
Surgery	10	SROATM1 SROATMNO SROAUTL3 SROAUTLC SROPOST0 SROPOST1 SROQ0 SROQ1A SROQD1 SRSCOR
Registration	9	DG3PR2 DG53729R DG53757P DGPTAPA2 DGPTFM5 DGPTFMO DGPTFTR0 DGPTLMU5 DGPTR0
Integrated Billing	1	IB20PT8A

Package	Total	Routines
Registration	2	DG53729R DG53757P
Surgery	2	SROPCEP SROPOST0

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(((X>62)!(X<48))&(X'=78))!(X?.E1"."1N.N) X` LAST EDITED: `JUL 30, 2007` HELP-PROMPT: `Type a Number between 48 and 62, or 78` DESCRIPTION: This field contains the code for the surgical specialty. The code is a number between 48 and 62, or 78. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45.3^B` 1)= S ^DIC(45.3,"B",$E(X,1,30),DA)="" 2)= K ^DIC(45.3,"B",$E(X,1,30),DA)
1	SPECIALTY	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X` LAST EDITED: `FEB 23, 1984` HELP-PROMPT: `Enter the surgical specialty, 3-40 characters.` DESCRIPTION: This field contain the description of the surgical specialty. The field contains between 3 and 40 characters. CROSS-REFERENCE: `45.3^C` 1)= S ^DIC(45.3,"C",$E(X,1,30),DA)="" 2)= K ^DIC(45.3,"C",$E(X,1,30),DA)

CODE

0;1

NUMBER

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

DESCRIPTION:

This field contains the code for the surgical specialty. The code is a number between 48 and 62, or 78.

CROSS-REFERENCE: 45.3^B

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

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

SPECIALTY

0;2

FREE TEXT

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

DESCRIPTION:

This field contain the description of the surgical specialty. The field contains between 3 and 40 characters.

CROSS-REFERENCE: 45.3^C

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

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

CODE: 50	CODE: 500	CODE: 501	CODE: 502	CODE: 51	CODE: 52	CODE: 53	CODE: 54
CODE: 55	CODE: 56	CODE: 57	CODE: 58	CODE: 59	CODE: 60	CODE: 61	CODE: 62

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #218	SURGERY DSS EXTRACTS INTEGRATED BILLING	CODE (.01). Access: Direct Global Read & w/Fileman SPECIALTY (1). Access: Direct Global Read & w/Fileman DEPARTMENT CODE (2). Access: Direct Global Read & w/Fileman