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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^FBAA(161.5

Package: Fee Basis

Global: ^FBAA(161.5


Information

FileMan FileNo FileMan Filename Package
161.5 FEE CH REPORT OF CONTACT Fee Basis

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Fee Basis 10 ^FBAA(163.98    DATE/TIME OF CONTACT    FBAAPI    FBCH EDIT ROC    FBCHDEL    FBCHPRC    FBCHREQ1    FBCHROC
FBMRASV1    ^FBAA(161.5    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Fee Basis 5 FBCHDEL    FBCHPRC    FBCHREQ1    FBCHROC    FBMRASV1    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Fee Basis 2 FEE NOTIFICATION/REQUEST(#162.2)[.01]    FEE BASIS VENDOR(#161.2)[1]    
Kernel 2 STATE(#5)[10]    NEW PERSON(#200)[18#161.517(2)]    
Beneficiary Travel 1 BENEFICIARY TRAVEL MODE OF TRANSPORTATION(#392.4)[16]    
Registration 1 PATIENT(#2)[2]    

Fields, Total: 22

Field # Name Loc Type Details
.01 ASSOCIATED REQUEST 0;1 POINTER TO FEE NOTIFICATION/REQUEST FILE (#162.2) FEE NOTIFICATION/REQUEST(#162.2)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • DESCRIPTION:  
    This is the report of contact associated with a notification/ request in contract hospital.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  161.5^B
    1)= S ^FBAA(161.5,"B",$E(X,1,30),DA)=""
    2)= K ^FBAA(161.5,"B",$E(X,1,30),DA)
1 VENDOR 0;2 POINTER TO FEE BASIS VENDOR FILE (#161.2)
************************REQUIRED FIELD************************
FEE BASIS VENDOR(#161.2)

  • DESCRIPTION:  
    This is the Fee Basis Vendor, associated with the Contract Hospital Notification/Request.
2 VETERAN 0;3 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  AUG 14, 1990
  • DESCRIPTION:  
    This is the name of the veteran who is requesting contract hospital services from the VA.
  • CROSS-REFERENCE:  161.5^D
    1)= S ^FBAA(161.5,"D",$E(X,1,30),DA)=""
    2)= K ^FBAA(161.5,"D",$E(X,1,30),DA)
3 INITIAL DATE OF CONTACT 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This field corresponds to the Date/Time field of the Fee Notification/Request file.
4 AUTHORIZATION FROM DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1993
  • DESCRIPTION:  
    This field contains the date/time of admission of the veteran.
5 TYPE OF CONTACT 0;6 SET
************************REQUIRED FIELD************************
  • 'T' FOR telephone;
  • 'P' FOR personal;

  • DESCRIPTION:  
    This is a way of identifying how the report of contact was initiated.
6 PERSON CONTACTED 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    This is the name of the person who called.
6.5 PHONE # OF PERSON CONTACTED 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  AUG 16, 1990
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    The phone number of the person with whom initial contact was made.
7 STREET ADDRESS[1] OF CONTACT 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the street address of person who called.
8 STREET ADDRESS[2] OF CONTACT 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is a continuation line for the street address of the person who called.
9 CITY OF CONTACT 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the city of the person who called.
10 STATE OF CONTACT 0;11 POINTER TO STATE FILE (#5) STATE(#5)

  • DESCRIPTION:  
    This is the state of the person who called.
11 ZIP CODE OF CONTACT 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    This is the zip code associated with the address of the person who called.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
12 ATTENDING PHYSICIAN 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 31, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the name of the attending physician treating the patient at the contract hospital.
13 ATTEND.PHYSICIAN TELEPHONE NO. 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This is the number where the attending physician may be reached.
14 TENTATIVE DIAGNOSIS 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Initial diagnosis given at the time of notification.
15 INSURANCE TYPE 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This allows the user to document any other insurance the veteran may have.
16 MODE OF TRANSPORTATION 1;3 POINTER TO BENEFICIARY TRAVEL MODE OF TRANSPORTATION FILE (#392.4) BENEFICIARY TRAVEL MODE OF TRANSPORTATION(#392.4)

  • LAST EDITED:  AUG 16, 1990
  • DESCRIPTION:  
    This field allows the user to enter in the planned transportation of the veteran at time of transfer from contract hospital.
16.5 VETERAN HAVE OTHER INSURANCE 1;5 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^FBAAUTL3
  • OUTPUT TRANSFORM:  D OUTYN^FBAAUTL3
  • LAST EDITED:  MAR 18, 1994
  • HELP-PROMPT:  Answer 'Yes' or '1' for YES and 'No' or '0' for NO.
  • DESCRIPTION:  
    If the user answers 'Yes' to this question then they will be asked Insurance type.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17 DATE/TIME OF CONTACT 2;0 DATE Multiple #161.517 161.517

  • DESCRIPTION:  
    This multiple allows the CH user to enter contacts that were made with the VA on behalf of a patient who was admitted to a non-VA facility for treatment.
18 APPROVING OFFICIAL 1;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 17, 1990
  • DESCRIPTION:  
    This is the official who is approving/disapproving the contract hospitalization.
19 DATE/TIME OF ADMISSION 1;7 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1993
  • DESCRIPTION:  
    The date and time the veteran was admitted to a non-VA facility for care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #5284
  • Fee Basis
  • External References

    Name Field # of Occurrence
    ^%DT 3+1, 4+1, 19+1
    Y^DIQ ID2+1
    OUTYN^FBAAUTL3 16.5OT+1
    YN^FBAAUTL3 16.5+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(2 ID2+1
    ^DPT - [#2] ID2+1
    ^FBAA(161.5 - [#161.5] .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 3+1*, 4+1*, 19+1*
    %I ID2+1*!
    >> C ID2+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)
    >> DIC ID2+1
    >> DINUM .01+1*
    U ID2+1
    X .01+1, .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3+1*!, 4+1*!, 6+1!, 6.5+1!, 7+1!
    , 8+1!, 9+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16.5+1, 19+1*!
    >> Y ID2+1*, 3+1, 4+1, 16.5OT+1, 19+1
    >> Y(0 16.5OT+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All