Global: ^INTHL7S

FileMan FileNo	FileMan Filename	Package
4010	SCRIPT GENERATOR SEGMENT	IHS Generic Interface System

Directly Accessed By Routines, Total: 21

Package	Total	Routines
IHS Generic Interface System	18	INHMG1 INHMG2 INHMGD2 INHMGD3 INHMGD6 INHMGD7 INHMGD8 INHMGD9 INHSGZ1 INHSGZ2 INHSGZ20 INHSYS01 INHSYSU1 INMPORT INTSTR1 INXHR08 INXHR081 INXPORT
Data Warehouse Export System	1	BDW10P4
IHS Immunizations Interface	1	BYIMPORT
IHS Support HL7 Interfaces	1	BHLFO

Accessed By FileMan Db Calls, Total: 7

Package	Total	Routines
IHS Generic Interface System	4	INHSG INHSYSU1 INMPORT INXPORT
IHS Support HL7 Interfaces	2	BHLAFIN BHLXAC
IHS Immunizations Interface	1	BYIMPORT

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Generic Interface System	1	SCRIPT GENERATOR MESSAGE(#4011)[#4011.01(.01), #4011.01(.11)]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Generic Interface System	1	SCRIPT GENERATOR FIELD(#4012)[#4010.01(.01)]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SEGMENT NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X["""" X I $D(X) K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!'$$ISNS^INHUT2(X) X` LAST EDITED: `JUL 13, 1995` HELP-PROMPT: `Answer must be 3-45 characters in length and properly name-spaced` DESCRIPTION: The full name of the segment. EXECUTABLE HELP: `D:$D(DW)>1 MSG^INHUT2` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `4010^B^MUMPS` 1)= S ^INTHL7S("B",$E(X,1,45),DA)="" 2)= K ^INTHL7S("B",$E(X,1,45),DA)
.02	SEGMENT ID	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<2) X` LAST EDITED: `OCT 20, 1999` HELP-PROMPT: `Enter the identifier of this segment.` DESCRIPTION: This identifies the segment in a message. It will be a three-character ID if the standard is HL7, and may be either a two-character or three-character ID for other standards such as X12. CROSS-REFERENCE: `4010^C` 1)= S ^INTHL7S("C",$E(X,1,30),DA)="" 2)= K ^INTHL7S("C",$E(X,1,30),DA)
1	FIELD MULTIPLE	1;0	POINTER Multiple #4010.01	4010.01 LAST EDITED: `JUL 13, 1995` DESCRIPTION: This is the multiple that contains the fields for this segment.

.01

SEGMENT NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:X["""" X I $D(X) K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!'$$ISNS^INHUT2(X) X
LAST EDITED: JUL 13, 1995
HELP-PROMPT: Answer must be 3-45 characters in length and properly name-spaced
DESCRIPTION:
```
The full name of the segment.
```
EXECUTABLE HELP: D:$D(DW)>1 MSG^INHUT2
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 4010^B^MUMPS

1)= S ^INTHL7S("B",$E(X,1,45),DA)=""

2)= K ^INTHL7S("B",$E(X,1,45),DA)

.02

SEGMENT ID

0;2

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<2) X
LAST EDITED: OCT 20, 1999
HELP-PROMPT: Enter the identifier of this segment.

DESCRIPTION:

This identifies the segment in a message. It will be a three-character ID if the standard is HL7, and may be either a two-character or three-character ID for other standards such as X12.

CROSS-REFERENCE: 4010^C

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

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

1

FIELD MULTIPLE

1;0

POINTER Multiple #4010.01

4010.01

LAST EDITED: JUL 13, 1995

DESCRIPTION:

This is the multiple that contains the fields for this segment.

Customize PDF page

Package: IHS Generic Interface System