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: ^IBA(351.81

Package: Integrated Billing

Global: ^IBA(351.81


Information

FileMan FileNo FileMan Filename Package
351.81 LTC COPAY CLOCK Integrated Billing

Description

Directly Accessed By Routines, Total: 18

Package Total Routines
Integrated Billing 18 EXEMPT DAY NUMBER    IBAECB1    IBAECC    IBAECM1    IBAECM2    IBAECM3    IBAECP    IBAECP1
IBAECU    IBAECU4    IBARXMI    IBECEA3    IBECEA3A    IBMHSP    IBOMTLTC    IBUCSP
^IBA(351.81    ^IBE(399.6    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Integrated Billing 8 IBAECB1    IBAECC    IBAECM2    IBAECP    IBAECP1    IBAECU    IBARXMI    IBOMTLTC

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[4.01, 4.03]    
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 12

Field # Name Loc Type Details
.01 FACILITY CLOCK NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<1000)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 24, 2002
  • HELP-PROMPT:  Type a Number between 1000 and 999999999999, 0 Decimal Digits.
  • DESCRIPTION:  
    This number is formed by Concatenating the Facility Site number with the next available entry number in the file.
  • CROSS-REFERENCE:  351.81^B
    1)= S ^IBA(351.81,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(351.81,"B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  APR 23, 2002
  • HELP-PROMPT:  Please enter the Patient's name.
  • DESCRIPTION:  
    This is the patient that is associated with this LTC clock.
  • CROSS-REFERENCE:  351.81^C
    1)= S ^IBA(351.81,"C",$E(X,1,30),DA)=""
    2)= K ^IBA(351.81,"C",$E(X,1,30),DA)
  • RECORD INDEXES:  AE (#149)
.03 CLOCK BEGIN DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 24, 2002
  • HELP-PROMPT:  Please enter the Begin Date of the Clock .
  • DESCRIPTION:  
    This is the beginning date of the clock entry.
  • RECORD INDEXES:  AE (#149)
.04 CLOCK EXPIRATION DATE 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2002
  • HELP-PROMPT:  Please enter the Clock Expiration Date. This should be one year from the Clock Begin Date - 1 day.
  • DESCRIPTION:  
    This is the date this LTC clock will expire. After which a new clock entry will be created.
.05 STATUS 0;5 SET
************************REQUIRED FIELD************************
  • '1' FOR OPEN;
  • '2' FOR CLOSED;
  • '3' FOR CANCELLED;

  • LAST EDITED:  APR 23, 2002
  • HELP-PROMPT:  Please enter 1 or 2 or 3 for the correct status.
  • DESCRIPTION:  
    This is the current status of this LTC clock.
.06 EXEMPT DAYS REMAINING 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 23, 2002
  • HELP-PROMPT:  Please enter the total EXEMPT DAYS REMAINING.
  • DESCRIPTION:  
    This is the number of free (exempt) days that have not been used yet.
.07 CURRENT EVENTS DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 2002
  • HELP-PROMPT:  Enter the earliest date to review for LTC transactions.
  • DESCRIPTION:  
    This is a flag indicating this patient needs to be reviewed for LTC transactions. The date stored here is the earliest date to review from.
  • CROSS-REFERENCE:  351.81^AD
    1)= S ^IBA(351.81,"AD",$E(X,1,30),DA)=""
    2)= K ^IBA(351.81,"AD",$E(X,1,30),DA)
1 EXEMPT DAY NUMBER 1;0 Multiple #351.811 351.811
4.01 USER ADDING ENTRY 4;1 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 24, 2002
  • HELP-PROMPT:  Enter the name of the person who created the entry.
  • DESCRIPTION:  
    This is the name of the person who created the entry.
  • TECHNICAL DESCR:  
    This is a pointer to file #200 NEW PERSONS.
4.02 DATE ENTRY ADDED 4;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 23, 2002
  • HELP-PROMPT:  Please enter the date the entry was created.
  • DESCRIPTION:  
    This is the date the entry was added.
  • TECHNICAL DESCR:  
    This field contains the date that this entry was created.
4.03 USER LAST UPDATING 4;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 23, 2002
  • HELP-PROMPT:  Please enter the name of the person last updating this field.
  • DESCRIPTION:  
    This is the name of the last person to update this field.
  • TECHNICAL DESCR:  
    This field is a pointer to file #200 NEW PERSONS.
4.04 DATE LAST UPDATED 4;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 31, 2001
  • HELP-PROMPT:  Please enter the date this entry was last updated.
  • DESCRIPTION:  
    This field contains the last date that this entry was updated.
  • TECHNICAL DESCR:  
    This is the date the entry was last updated.

External References

Name Field # of Occurrence
^%DT .03+1, .04+1, .07+1, 4.02+1, 4.04+1
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 ID.02+1
^DPT - [#2] ID.02+1
^IBA(351.81 - [#351.81] IXAESL+1*, IXAEKL+1!, IXAEKEIC+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 2S), .02(XREF 2K), .07(XREF 1S), .07(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .04+1*, .07+1*, 4.02+1*, 4.04+1*
%I ID.02+1*!
>> C ID.02+1*
>> DA IXAESL+1, IXAEKL+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 2S), .02(XREF 2K), .07(XREF 1S), .07(XREF 1K)
>> DIC ID.02+1, ID.05+1
U ID.02+1, ID.03+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1*!, .04+1*!, .06+1!, .07+1*!, .07(XREF 1S)
, .07(XREF 1K), 4.02+1*!, 4.04+1*!
X(1 IXAESL+1, IXAEKL+1
X(2 IXAESL+1, IXAEKL+1
>> Y ID.02+1*, .03+1, .04+1, .07+1, 4.02+1, 4.04+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