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 | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^IBE(352.1

Package: Integrated Billing

Global: ^IBE(352.1

Information

FileMan FileNo	FileMan Filename	Package
352.1	BILLABLE APPOINTMENT TYPE	Integrated Billing

Description

Records for each appointment type with indicators for IGNORE MEANS TEST, PRINT ON INSURANCE REPORT, and DISPLAY ON INPUT SCREEN. Also contains effective date of determination. Accessed by extrinsic function ^IBEFUNC. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Integrated Billing	4	^IBE(399.6 IB20P318 ^IBE(352.1 IBEFUNC
Scheduling	1	SD53P491

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Integrated Billing	1	IB20P318

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Scheduling	1	APPOINTMENT TYPE(#409.1)[.02]

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 21, 1991` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This is a unique number for each entry.` CROSS-REFERENCE: `352.1^B` `1)= S ^IBE(352.1,"B",$E(X,1,30),DA)=""` `2)= K ^IBE(352.1,"B",$E(X,1,30),DA)`
.02	APPOINTMENT TYPE	0;2	POINTER TO APPOINTMENT TYPE FILE (#409.1)	**********************REQUIRED FIELD********************** APPOINTMENT TYPE(#409.1) LAST EDITED: `OCT 22, 1991` DESCRIPTION: `This is the MAS Appointment type.` CROSS-REFERENCE: `352.1^AIVDT1^MUMPS` `1)= I $P(^IBE(352.1,DA,0),U,3) S ^IBE(352.1,"AIVDT",X,-$P(^(0),U,3),DA)=""` `2)= I $P(^IBE(352.1,DA,0),U,3) K ^IBE(352.1,"AIVDT",X,-$P(^(0),U,3),DA)` `Used to find most recent entry for appointment type.` CROSS-REFERENCE: `352.1^C` `1)= S ^IBE(352.1,"C",$E(X,1,30),DA)=""` `2)= K ^IBE(352.1,"C",$E(X,1,30),DA)`
.03	EFFECTIVE DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 22, 1991` DESCRIPTION: `Every Appointment type has certain billing characteristics that may change over time. For example, an appointment type may not be billable for Category C Means Test billing one year but may the next depending on` `legislation.` `It is only necessary to add a new effective date for an appointment type if the characteristics need to be time sensitive.` `UNEDITABLE` CROSS-REFERENCE: `352.1^AIVDT2^MUMPS` `1)= I $P(^IBE(352.1,DA,0),U,2) S ^IBE(352.1,"AIVDT",$P(^(0),U,2),-X,DA)=""` `2)= I $P(^IBE(352.1,DA,0),U,2) K ^IBE(352.1,"AIVDT",$P(^(0),U,2),-X,DA)` `Used to find most recent entry for an appointment type.` CROSS-REFERENCE: `352.1^D` `1)= S ^IBE(352.1,"D",$E(X,1,30),DA)=""` `2)= K ^IBE(352.1,"D",$E(X,1,30),DA)`
.04	IGNORE MEANS TEST	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 21, 1991` DESCRIPTION: `Set this field to 'YES' if this appointment type should NOT be billed for Category C means test billing.`
.05	PRINT ON INSURANCE REPORT	0;5	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 21, 1991` DESCRIPTION: `Set this field to 'YES' if you would like this appointment type to show up on the list of Veterans with insurance and outpatient visits.`
.06	DISPLAY ON INPUT SCREEN	0;6	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 21, 1991` DESCRIPTION: `Set this field to 'YES' if you would like this appointment type to be displayed as a potential billable visit on the outpatient visit screen when creating a third party bill.`

Found Entries, Total: 11

NUMBER: 1	NUMBER: 2	NUMBER: 3	NUMBER: 4	NUMBER: 5	NUMBER: 6	NUMBER: 7	NUMBER: 8
NUMBER: 9	NUMBER: 10	NUMBER: 11

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #5029	Scheduling		=> '11^11^2880101^0^1^1' Entire node accessed todetermine validity.

External References

Name	Field # of Occurrence
^%DT	.03+1
Y^DIQ	ID.02+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(409.1	ID.02+1
^IBE(352.1 - [#352.1]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
^SD(409.1 - [#409.1]	ID.02+1

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, ID.03+1, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1*
%I	ID.02+1*!
>> C	ID.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
>> DIC	ID.02+1
U	ID.02+1, ID.03+1, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1*!, .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K)
>> Y	ID.02+1*, .03+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All