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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^FBAACNH

Package: Fee Basis

Global: ^FBAACNH


Information

FileMan FileNo FileMan Filename Package
162.3 FEE CNH ACTIVITY Fee Basis

Description

Directly Accessed By Routines, Total: 24

Package Total Routines
Fee Basis 24 FBAAV5    FBCNHCEN    FBMRASV1    FBNHACT    FBNHAMI1    FBNHAMI2    FBNHAMIE    FBNHAMIS
FBNHDEC    FBNHDLDI    FBNHDLTR    FBNHED    FBNHEDAD    FBNHEDDI    FBNHEDTR    FBNHEP
FBNHET    FBNHPAMS    FBNHRAT    FBNHRCS2    FBNHROS    FBPMRG    FBXIP19    ^FBAACNH

Accessed By FileMan Db Calls, Total: 14

Package Total Routines
Fee Basis 14 FBCHC78    FBMRASV1    FBNHDIEP    FBNHDLAD    FBNHDLDI    FBNHDLTR    FBNHEA    FBNHED
FBNHEDAD    FBNHEDDI    FBNHEDTR    FBNHET    FBPMRG    FBXIP19    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Fee Basis 1 FEE CNH ACTIVITY(#162.3)[4]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Fee Basis 3 FEE BASIS PATIENT(#161)[1]    FEE CNH ACTIVITY(#162.3)[4]    FEE BASIS VENDOR(#161.2)[8]    

Fields, Total: 11

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    The internal entry number for each CNH Activity.
.01 DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X) D DATCK2^FBAAUTL1
  • LAST EDITED:  AUG 30, 1988
  • DESCRIPTION:  
    The date and time of this activity (admission, discharge or transfer).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  162.3^B
    1)= S ^FBAACNH("B",$E(X,1,30),DA)=""
    2)= K ^FBAACNH("B",$E(X,1,30),DA)
1 VETERAN 0;2 POINTER TO FEE BASIS PATIENT FILE (#161)
************************REQUIRED FIELD************************
FEE BASIS PATIENT(#161)

  • LAST EDITED:  JAN 31, 2000
  • DESCRIPTION:  
    The name of the Fee Basis patient associated with this activity.
  • CROSS-REFERENCE:  162.3^AE
    1)= S ^FBAACNH("AE",$E(X,1,30),DA)=""
    2)= K ^FBAACNH("AE",$E(X,1,30),DA)
  • CROSS-REFERENCE:  162.3^AF^MUMPS
    1)= S ^FBAACNH("AF",$E(X,1,30),9999999.999999-$P(^FBAACNH(DA,0),"^",1),DA)=""
    2)= K ^FBAACNH("AF",$E(X,1,30),9999999.999999-$P(^FBAACNH(DA,0),"^",1),DA)
  • CROSS-REFERENCE:  162.3^AG^MUMPS
    1)= I $P(^FBAACNH(DA,0),U,9)]"" S ^FBAACNH("AG",$E(X,1,30),$P(^FBAACNH(DA,0),U,9),$P(^FBAACNH(DA,0),U,1),DA)=""
    2)= I $P(^FBAACNH(DA,0),U,9)]"" K ^FBAACNH("AG",$E(X,1,30),$P(^FBAACNH(DA,0),U,9),$P(^FBAACNH(DA,0),U,1),DA)
  • RECORD INDEXES:  AD (#72)
2 ACTIVITY TYPE 0;3 SET
  • 'A' FOR ADMISSION;
  • 'T' FOR TRANSFER;
  • 'D' FOR DISCHARGE;

  • DESCRIPTION:  
    Entry into this field indicates whether activity was an admission, discharge or transfer.
3 ACTIVE ADMISSION 0;4 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 31, 2000
  • DESCRIPTION:  
    An entry into this field will indicate that the activity at hand is part of an "active" admission.
  • RECORD INDEXES:  AD (#72)
4 ASSOCIATED ADMISSION 0;5 POINTER TO FEE CNH ACTIVITY FILE (#162.3)
************************REQUIRED FIELD************************
FEE CNH ACTIVITY(#162.3)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""A""&($P(^(0),U,4)=""Y"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • DESCRIPTION:  
    This field points all activities back to the admission that they are associated with. It allows for the ability to tie an admission with all associated transfers and a final discharge if one exists.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""A""&($P(^(0),U,4)=""Y"")"
  • EXPLANATION:  Allows only activity which is Admission type and active.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  162.3^AC
    1)= S ^FBAACNH("AC",$E(X,1,30),DA)=""
    2)= K ^FBAACNH("AC",$E(X,1,30),DA)
5 ADMISSION TYPE 0;6 SET
************************REQUIRED FIELD************************
  • '1' FOR AFTER RE-HOSPITALIZATION > 15 DAYS;
  • '2' FOR TRANSFER FROM OTHER CNH;
  • '3' FOR FROM ASIH < 15 DAYS;
  • '4' FOR ALL OTHER;

  • LAST EDITED:  SEP 10, 1990
  • DESCRIPTION:  
    Field populated for activity types of 'admission' only. Indicates the type of admission for veteran.
6 TRANSFER TYPE 0;7 SET
************************REQUIRED FIELD************************
  • '1' FOR TO AUTHORIZED ABSENCE;
  • '2' FOR TO UN-AUTHORIZED ABSENCE;
  • '3' FOR TO ASIH;
  • '4' FOR FROM AUTHORIZED ABSENCE;
  • '5' FOR FROM UN-AUTHORIZED ABSENCE;
  • '6' FOR FROM ASIH < 15 DAYS;

  • INPUT TRANSFORM:  D DATCK3^FBAAUTL1
  • LAST EDITED:  AUG 31, 1988
  • DESCRIPTION:  
    Field is populated for activity type of 'transfer' only. Indicates the type of transfer for each veteran.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 DISCHARGE TYPE 0;8 SET
  • '1' FOR REGULAR;
  • '2' FOR DEATH;
  • '3' FOR TRANSFER TO OTHER CNH;
  • '4' FOR ASIH;
  • '5' FOR DEATH WHILE ASIH;
  • '6' FOR REGULAR - PRIVATE PAY;

  • LAST EDITED:  AUG 24, 1988
  • DESCRIPTION:  
    Field is populated for activity type of 'discharge' only. Indicates the type of discharge for each veteran.
8 NURSING HOME 0;9 POINTER TO FEE BASIS VENDOR FILE (#161.2) FEE BASIS VENDOR(#161.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,9)=5" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 30, 1993
  • DESCRIPTION:  
    Reference to the Vendor file, this field indicates the name of the Nursing Home to which this activity is associated with (i.e. where the veteran is residing).
  • SCREEN:  S DIC("S")="I $P(^(0),U,9)=5"
  • EXPLANATION:  Only vendors with Participation Code of Community Nursing Home
  • CROSS-REFERENCE:  162.3^AH
    1)= S ^FBAACNH("AH",$E(X,1,30),DA)=""
    2)= K ^FBAACNH("AH",$E(X,1,30),DA)
9 ASSOCIATED AUTHORIZATION 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 16, 1990
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    The internal entry number of the Authorization associated with the admission entry. Transfer and Discharge entries will not have this data.

External References

Name Field # of Occurrence
^%DT .01+1
^DIC 4+1, 8+1
Y^DIQ ID1+1
DATCK2^FBAAUTL1 .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(161 ID1+1
^FBAAA - [#161] ID1+1
^FBAACNH - [#162.3] 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K)
^FBAACNH("AC" 4(XREF 1S), 4(XREF 1K)
^FBAACNH("AD" IXADSL+1*, IXADKL+1!, IXADKEIC+1!
^FBAACNH("AE" 1(XREF 1S), 1(XREF 1K)
^FBAACNH("AF" 1(XREF 2S), 1(XREF 2K)
^FBAACNH("AG" 1(XREF 3S), 1(XREF 3K)
^FBAACNH("AH" 8(XREF 1S), 8(XREF 1K)
^FBAACNH("B" .01(XREF 1S), .01(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
%I ID1+1*!
>> C ID1+1*
>> DA IXADSL+1, IXADKL+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K)
4(XREF 1S), 4(XREF 1K), 8(XREF 1S), 8(XREF 1K)
DIC ID1+1, ID2+1, 4+1!*, 8+1!*
DIC("S" 4+1*, 4SCR+1*, 8+1*, 8SCR+1*
>> DIE 4+1, 8+1
U ID1+1, 1(XREF 3S), 1(XREF 3K)
X IXADSCC+1*, .001+1!, .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S)
1(XREF 3K), 4+1*!, 4(XREF 1S), 4(XREF 1K), 8+1*!, 8(XREF 1S), 8(XREF 1K), 9+1!
X(1 IXADSL+1, IXADKL+1
X(2 IXADSCC+1
>> Y ID1+1*, .01+1, 4+1, 8+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All