Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields