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: ^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: 2

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( |dd408.22, |dd408.31
^DD(408.22 |dd408.22, |dd408.22
^DD(408.31 |dd408.31
^DD(408.32 |dd408.31
^DD(408.33 |dd408.31, |dd408.32
^DD(408.34 |dd408.31
^DD(713.1 |dd713.2
^DD(714.5 .01(XREF 2S), |dd714.5
^DG(408.32 - [#408.32] |dd408.31, |dd408.32*!, |dd408.3275*!
^DG(408.33 - [#408.33] |dd408.31, |dd408.32, |dd408.33*!
^DG(408.34 - [#408.34] |dd408.31
^DGMT(408.22 - [#408.22] |dd408.22*!, |dd408.22, |dd408.22*!
^DGMT(408.31 - [#408.31] |dd408.31*!, |dd408.31*!, |dd408.31*!, |inpt
^DPT - [#2] |inpt
^EAS(711 - [#711] |dd711*!
^EAS(712 - [#712] |dd712*!, |dd712!, |dd712.01*!
^EAS(712.5 - [#712.5] |dd712.5*!
^EAS(712.6 - [#712.6] |dd712.6*!
^EAS(713 - [#713] |dd713*!, |dd713.025*!
^EAS(713.1 - [#713.1] |dd713.1*!, |dd713.2
^EAS(713.2 - [#713.2] |dd713.2*!
^EAS(713.3 - [#713.3] |dd713.3*!, |dd713.34*!
^EAS(714.1 - [#714.1] |dd714.1*!
^EASPFS(714.5 - [#714.5] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .02(XREF 1S), .02(XREF 1K), |dd714.5*!
^ORD(101 - [#101] |ptcl
^TMP("DGDEP" |list
^TMP("DGMTEP" |list, |ptcl!
^TMP("EASEXP" |list
^TMP("EASEZ" |list

Naked Globals

Name Field # of Occurrence
^("PRIM" |dd408.31
^(0 .01(XREF 2S), .01(XREF 2n1.4), |dd408.22*, |dd408.22*, |dd408.22*, |dd408.31*, |dd408.31*, |dd408.32, |dd713.2, |dd714.5*
, |inpt
^(24 |ptcl

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 2S), |dd714.5~
>> %DT .02+1*, .09+1*, |dd408.31*, |dd408.3275*, |dd711*, |dd712*, |dd712.01*, |dd712.5*, |dd713*, |dd713.1*
, |dd713.2*, |dd714.5*
>> %DT(0 |dd408.31*
%H .01(XREF 2S), |dd714.5~
%I .01(XREF 2S), |dd408.31*!, |dd408.32*!, |dd713.2*!, |dd714.5~
>> C |dd408.31*, |dd408.32*, |dd713.2*
>> D0 .01(XREF 2S), |dd408.22*, |dd408.22*, |dd408.31*, |dd714.5*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .02(XREF 1S), .02(XREF 1K), |dd408.22, |dd408.22, |dd408.22, |dd408.22, |dd408.31
, |dd408.31, |dd408.31, |dd408.32, |dd408.3275, |dd408.33, |dd711, |dd712, |dd712.01, |dd712.5, |dd712.6
, |dd713, |dd713.025, |dd713.1, |dd713.2, |dd713.3, |dd713.34, |dd714.1, |dd714.5, |inpt, |ptcl
>> DA(1 |dd408.3275, |dd712.01, |dd713.025, |dd713.34, |ptcl
>> DFN |inpt
>> DGDET |inpt
>> DGDR |inpt
DGFIN |inpt*!
DGFINOP |opt*!
>> DGINT |inpt
>> DGMTACT |dd408.31
>> DGMTS |inpt
DGMTYPT |dd408.31, |opt*!
>> DGNWT |inpt
>> DGPRTY |inpt
>> DGREF |inpt
>> DGREL("S" |inpt
DIC |dd408.31*!, |dd408.32, |dd713.2
DIC("S" |dd408.31*
>> DIE |dd408.31
>> DIG .01(XREF 2n1.4), |dd408.22*, |dd408.31*, |dd714.5*
>> DIH .01(XREF 2n1.4), |dd408.22*, |dd408.31*, |dd714.5*
>> DIR("?" |dd711*
>> DIR(0 |dd711*, |dd711*, |dd711*, |dd711*, |dd711*
>> DIU .01(XREF 2S), |dd408.22*, |dd408.31*, |dd714.5*
DIV .01(XREF 2S), .01(XREF 2n1.4), |dd408.22*!, |dd408.22*!, |dd408.22*!, |dd408.31*!, |dd714.5*!
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), |dd408.22*, |dd408.22*, |dd408.31*, |dd714.5*
>> EASAPP |dd711, |dd711
>> EASMULT |dd711
>> EASRTR |dd711*, |dd711*, |dd711*, |dd711*, |dd711*, |dd711*, |dd711*, |dd711*
EATYP |opt*!
EAX |opt*~
>> EZDATA |dd711, |dd711, |dd711, |dd711, |dd711, |dd711, |dd711
U .01(XREF 2S), .01(XREF 2n1.4), |dd408.22, |dd408.22, |dd408.22, |dd408.22, |dd408.31, |dd408.31, |dd408.32, |dd713.2
, |dd714.5, |inpt
>> VALMBCK |ptcl*
>> VAR |list*
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*!, |dd408.22*, |dd408.22*!, |dd408.22*!, |dd408.31*!, |dd408.31*!, |dd408.31*!, |dd408.32!, |dd408.3275*!
, |dd408.33!, |dd711*!, |dd712*!, |dd712*!, |dd712.01*!, |dd712.5*!, |dd712.6!, |dd713*!, |dd713.025, |dd713.1*!
, |dd713.2*!, |dd713.3!, |dd713.34, |dd714.1!, |dd714.5*!, |inpt*
X(1 |dd712.5, |dd712.6, |dd713.1, |dd713.2
X(2 |dd712.5, |dd712.6, |dd713.1, |dd713.2
X(3 |dd712.5
Y .01(XREF 2S), .02+1, .09+1, |dd408.22!, |dd408.31*!, |dd408.32*, |dd408.3275, |dd711, |dd712, |dd712.01
, |dd712.5, |dd713, |dd713.1, |dd713.2*, |dd714.5!, |inpt*
Y(0 |dd408.22*, |dd408.22*, |dd408.31*
Y(1 .01(XREF 2S), |dd408.22*, |dd408.22*, |dd408.22*, |dd408.31*, |dd714.5*
Y(2 |dd408.22*, |dd408.31*
Y(3 |dd408.31*
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