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

Package: Enrollment Application System

Global: ^EASPFS(714.5


Information

FileMan FileNo FileMan Filename Package
714.5 EAS LTC MONTHLY MAX CALCULATIONS Enrollment Application System

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Enrollment Application System 1 ^EASPFS(714.5    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Enrollment Application System 1 EASPFSS    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Enrollment Application System 1 LTC CO-PAY EXEMPTION(#714.1)[.05]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 9

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the patient for these LTC calculated amounts.
  • DESCRIPTION:  
    This patient field is used to identify who the calculated LTC amounts stored in this file relate to.
    UNEDITABLE
  • CROSS-REFERENCE:  714.5^B
    1)= S ^EASPFS(714.5,"B",$E(X,1,30),DA)=""
    2)= K ^EASPFS(714.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^714.5^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EASPFS(714.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(714.5,.01,1,2,1.4)
    1.4)= S DIH=$G(^EASPFS(714.5,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=714.5,DIG=.09 D ^DICR
    2)= Q
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE ADDED
.02 LAST DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X I $G(X),$E($$FMADD^XLFDT(X,1),4,5)=$E(X,4,5) K X
  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the last day of the month to be calculated.
  • DESCRIPTION:  
    This is the date these calculated values relate to.  The date value must be the last day of the month for the calculation.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  714.5^AC
    1)= S ^EASPFS(714.5,"AC",$E(X,1,30),DA)=""
    2)= K ^EASPFS(714.5,"AC",$E(X,1,30),DA)
.03 LTC LOS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the Long Term Care total Length of Stay.
  • DESCRIPTION:  
    This is the Long Term Care Length of Stay to be used for this calculation.  The LOS should exclude pass days, ASIH days and discharge date.
    UNEDITABLE
.04 LTC EXEMPT 0;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter if the patient is exempt from LTC copayment.
  • DESCRIPTION:  
    This indicator specifies if the patient is designated as exempt for the specified date.
    UNEDITABLE
.05 EXEMPT REASON 0;5 POINTER TO LTC CO-PAY EXEMPTION FILE (#714.1) LTC CO-PAY EXEMPTION(#714.1)

  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the reason the patient is exempt.
  • DESCRIPTION:  
    This is the reason for the exemption that was specified in the LTC EXEMPT (#.04) field.
    UNEDITABLE
.06 180 DAY MAX CHARGE 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the 180 day or less max charge.
  • DESCRIPTION:  
    This is the calculated value that a patient can be charged for the specified month if his stay is 180 days or less.
    UNEDITABLE
.07 GREATER THAN 180 DAY AMOUNT 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the greater than 180 day max charge.
  • DESCRIPTION:  
    This is the calculated value that a patient can be charged for the specified month if his stay is greater than 180 days.
    UNEDITABLE
.08 MAX OUTPATIENT CHARGE 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the max outpatient LTC copay.
  • DESCRIPTION:  
    This is the calculated maximum charge the specified patient can be charged for LTC outpatient services for the month.
    UNEDITABLE
.09 DATE ADDED 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Enter the date this entry was added.
  • DESCRIPTION:  
    This field is automatically populated based on the date this entry is added.
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the PATIENT NAME field of the EAS LTC MONTHLY MAX CALCULATIONS File

External References

Name Field # of Occurrence
^%DT .02+1, .09+1
NOW^%DTC .01(XREF 2S)
^DICR .01(XREF 2n1.4)
$$FMADD^XLFDT .02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(714.5 .01(XREF 2S)
^EASPFS(714.5 - [#714.5] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .02(XREF 1S), .02(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 2S)
>> %DT .02+1*, .09+1*
%H .01(XREF 2S)
%I .01(XREF 2S)
>> D0 .01(XREF 2S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .02(XREF 1S), .02(XREF 1K)
>> DIG .01(XREF 2n1.4)
>> DIH .01(XREF 2n1.4)
>> DIU .01(XREF 2S)
DIV .01(XREF 2S), .01(XREF 2n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4)
U .01(XREF 2S), .01(XREF 2n1.4)
X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .02+1*!, .02(XREF 1S), .02(XREF 1K), .03+1!, .06+1*!, .07+1*!
, .08+1*!, .09+1*!
Y .01(XREF 2S), .02+1, .09+1
Y(1 .01(XREF 2S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All