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

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

Print Page as PDF

Global: ^IBE(365.021

Package: Integrated Billing

Global: ^IBE(365.021

Information

FileMan FileNo	FileMan Filename	Package
365.021	X12 271 CONTACT QUALIFIER	Integrated Billing

Description

This file contains all the corresponding X.12 codes which identify a method for contact. Per VHA Directive 10-93-142, this file definition should not be modified.

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 4

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` `MAXIMUM LENGTH: 30` LAST EDITED: `MAR 24, 2023` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field is controlled by the Financial Service Center (FSC) and is associated with their table: X12_COMMUNICATION_NUMBER.` CROSS-REFERENCE: `365.021^B` `1)= S ^IBE(365.021,"B",$E(X,1,30),DA)=""` `2)= K ^IBE(365.021,"B",$E(X,1,30),DA)` `Standard "B" cross-reference`
.02	DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>90!($L(X)<1) X` `MAXIMUM LENGTH: 90` LAST EDITED: `MAR 13, 2023` HELP-PROMPT: `Answer must be 1-90 characters in length.` DESCRIPTION: `This field is controlled by the Financial Service Center (FSC) and is associated with their table: X12_COMMUNICATION_NUMBER.` CROSS-REFERENCE: `365.021^C^MUMPS` `1)= S ^IBE(365.021,"C",$$UP^XLFSTR($E(X,1,30)),DA)=""` `2)= K ^IBE(365.021,"C",$$UP^XLFSTR($E(X,1,30)),DA)` `This index provides a lookup by Description.` CROSS-REFERENCE: `^^TRIGGER^365.021^.04` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(365.021,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(365.021,.02,1,2,1.4)` `1.4)= S DIH=$G(^IBE(365.021,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=365.021,DIG=.04 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(365.021,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(365.021,.02,1,2,2.4)` `2.4)= S DIH=$G(^IBE(365.021,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=365.021,DIG=.04 D ^DICR` `CREATE VALUE)= NOW` `DELETE VALUE)= NOW` `FIELD)= DATE LAST EDITED` `Update the 'DATE LAST EDITED' whenever the Description is changed.`
.03	INACTIVE?	0;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 03, 2002` DESCRIPTION: `This field will be marked inactive if a code is determined to no longer be used by X.12.`
.04	DATE LAST EDITED	0;4	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 2023` HELP-PROMPT: `Enter the date and time the DESCRIPTION was last edited.` DESCRIPTION: `The date and time that the DESCRIPTION for this entry was last edited.` NOTES: `TRIGGERED by the DESCRIPTION field of the X12 271 CONTACT QUALIFIER File`
.05	FSC CONTROLLED	0;5	SET (BOOLEAN Data Type)	This field indicates whether or not this file is controlled by FSC. LAST EDITED: `FEB 13, 2023` HELP-PROMPT: `Enter 1 if FSC controlled or 0 is not.` DESCRIPTION: `This field indicates whether or not this file is controlled by FSC.`

Found Entries, Total: 8

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