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 | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^DGBT(392.1

Package: Beneficiary Travel

Global: ^DGBT(392.1

Information

FileMan FileNo	FileMan Filename	Package
392.1	BENEFICIARY TRAVEL DISTANCE	Beneficiary Travel

Description

This file contains the mileage data between departure cities and medical center divisions. Each departure city can have multiple divisions entered, each with it's own associated mileage, most economical cost, and remarks field.

Directly Accessed By Routines, Total: 13

Package	Total	Routines
Beneficiary Travel	11	ALTERNATE INCOME DGBT REMARKS DGBT1P21 DGBTCR ^DGBT(392.1 DGBTDIST DGBTDST1 DGBTEE DGBTSRCH DGBTUTL DIVISION MILEAGE

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Beneficiary Travel	4	DGBT1P21 DGBTDIST DGBTSRCH DGBTUTL

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	STATE(#5)[2]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[#392.1001(.01)]

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	CITY OR TOWN	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X I $D(X) D UP^DGBTHELP` LAST EDITED: `OCT 30, 2001` HELP-PROMPT: `Enter the name of the city or town to be used as the point of departure, 1-30 characters in length.` DESCRIPTION: `This field contains the free text departure name, 1 to 30 characters in length, of the City or Town that is used as the alternate lookup in determining the one way mileage distance that is pre-stuffed when entering the` `Bene Travel Claim.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `392.1^B` `1)= S ^DGBT(392.1,"B",$E(X,1,30),DA)=""` `2)= K ^DGBT(392.1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `392.1^AC^MUMPS` `1)= S:$P(^DGBT(392.1,DA,0),"^",2)]"" ^DGBT(392.1,"ACS",$E(X,1,30),$P(^DGBT(392.1,DA,0),"^",2),DA)="" S ^DGBT(392.1,"AC",DA)=$E(X,1,30)` `2)= K:$P(^DGBT(392.1,DA,0),"^",2)]"" ^DGBT(392.1,"ACS",$E(X,1,30),$P(^DGBT(392.1,DA,0),"^",2),DA) K ^DGBT(392.1,"AC",DA)`
2	STATE	0;2	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `MAR 16, 1989` HELP-PROMPT: `Enter the State name or two digit postal abbreviation` DESCRIPTION: `This field points to the State File (#5) and contains the IFN for that field and is used in the Beneficiary Travel Claim Options as the primary look-up to determine the one way mileage that can be pre-stuffed in the Bene` `Travel Claim.` CROSS-REFERENCE: `392.1^ACS^MUMPS` `1)= S ^DGBT(392.1,"ACS",$P(^DGBT(392.1,DA,0),"^"),X,DA)=""` `2)= K ^DGBT(392.1,"ACS",$P(^DGBT(392.1,DA,0),"^"),X,DA)`
3	DEFAULT MILEAGE	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 09, 1993` HELP-PROMPT: `Enter the default mileage between the city/town and the primary division. This must be a number between 0 and 10000.` DESCRIPTION: `This field contains the one way mileage (in whole numbers between 0 and 10000) distance (e.g. between place of departure and place of destination). The default mileage is between the departure city and the primary` `division of the instituion. This value is not accessed directly by the user but is stuffed from the mileage/one way field in the primary division of the division mileage multiple. It is changed whenever the one-way` `mileage in the primary division is changed.`
4	ZIP	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR` OUTPUT TRANSFORM: `D ZIPOUT^VAFADDR` LAST EDITED: `MAR 01, 1993` HELP-PROMPT: `Answer must be 5 digit or 9 digit zip code. If no zip code is entered, you will not be able to do lookups later by cross-referencing on the zip code.` DESCRIPTION: `This field contains the 5-digit zip code for the Beneficiary Travel Distance File. This field is not required, but if no zip code is present, the claim enter/edit routine will not be able to make the initial look-up using` `the 'C' cross reference, and a correct look-up for the mileage will rely solely on the correct spelling of the city/town.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `392.1^C` `1)= S ^DGBT(392.1,"C",$E(X,1,30),DA)=""` `2)= K ^DGBT(392.1,"C",$E(X,1,30),DA)` `Zipcode cross-reference for lookup by zipcode`
5	* ADDITIONAL INFORMATION	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `FEB 09, 1993` HELP-PROMPT: `Enter 'YES' to indication that additional information should be checked (e.g. closer VA facility).` DESCRIPTION: `This field is a set of codes 0 for no and 1 for yes and is used to indicate that additional information should be checked or not (e.g. if there is a closer VA facility, etc.)`
6	* MOST ECON/PUBLIC TRANS. COST	0;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<0) X` LAST EDITED: `FEB 09, 1993` HELP-PROMPT: `Type a Dollar Amount between 0 and 10000, 2 Decimal Digits. Indicate if there is a Most Econ./Public Trans. amount that should be used for this location.` DESCRIPTION: `This field is a dollar amount between 0 and 10000.00 and is used to indicate if there is a most econ./public trans. amount that should be used for this location.`
100	DIVISION MILEAGE	1;0	POINTER Multiple #392.1001	392.1001 LAST EDITED: `FEB 09, 1993` DESCRIPTION: `Multiple for divisions with each division having it's own mileage value between the division and the departure city. Edited by the user and, for the primary division, the mileage will be stuffed into the default mileage` `field, #3.`

External References

Name	Field # of Occurrence
UP^DGBTHELP	.01+1
Y^DIQ	ID2+1
ZIPIN^VAFADDR	4+1
ZIPOUT^VAFADDR	4OT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(5	ID2+1
^DGBT(392.1 - [#392.1]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
^DIC(5 - [#5]	ID2+1

Naked Globals

Name	Field # of Occurrence
^(0	ID2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	ID2+1*!
>> C	ID2+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> DIC	ID2+1
U	ID2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3+1!, 4+1!, 4(XREF 1S) , 4(XREF 1K), 6+1*!
>> Y	ID2+1*, 4OT+1
>> Y(0	4OT+1*

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