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

Directly Accessed By Routines, Total: 16

Package Total Routines
Beneficiary Travel 11 DGBT REMARKS    DGBT1P21    DGBTCR    DGBTDIST    DGBTDST1    DGBTEE    DGBTSRCH    DGBTUTL
DIVISION MILEAGE    MONETARY AWARD(S)    ^DGBT(392.1    
Registration 2 DESCRIPTION (VERSIONED)    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, .01+1
Y^DIQ ID2+1, ID2+1
ZIPIN^VAFADDR 4+1, 4+1
ZIPOUT^VAFADDR 4OT+1, 4OT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(5 ID2+1, 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), .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, ID2+1

Naked Globals

Name Field # of Occurrence
^(0 ID2+1, ID2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID2+1*!, ID2+1*!
>> C ID2+1*, 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), .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, ID2+1
U ID2+1, 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*!, .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, ID2+1*, 4OT+1
>> Y(0 4OT+1*, 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