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: 25

Package Total Routines
Fee Basis 25 FBAAV5    FBCNHCEN    FBMRASV1    FBNHACT    FBNHAMI1    FBNHAMI2    FBNHAMIE    FBNHAMIS
FBNHDEC    FBNHDLDI    FBNHDLTR    FBNHED    FBNHEDAD    FBNHEDDI    FBNHEDTR    FBNHEP
FBNHET    FBNHPAMS    FBNHRAT    FBNHRCS2    FBNHROS    FBPMRG    FBXIP19    FISCAL YEAR
^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("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 .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 .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!
>> 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