Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: EASECPC

Package: Enrollment Application System

Routine: EASECPC


Information

EASECPC ;ALB/PHH,CKN,LBD,AMA,SCK - LTC Copayment Report; 29-AUG-2001 ; 12/10/12 5:37pm

Source Information

Source file <EASECPC.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Enrollment Application System 2 ($$DOM,START)^EASECPC1  ($$LST,DISDT)^EASECU  
VA FileMan 2 ^DIC  ^DIR  
Integrated Billing 1 $$MAXRATE^IBAECU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Enrollment Application System 1 EASEC LTC COPAY PRINT  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN
RPT() ; Select which report to print
; Input: None
; Output: Y - Report Type (1=Institutional (IP); 2=Non-Institutional (OP); 0=Quit)
GETDFN() ; Get the veteran's DFN
GETLTC(DFN,EASADM) ; Get the most recent LTC copay test. If no completed test on
; file, test status is exempt or LTC copay rates not defined, quit 0
; Input: DFN - Patient file IEN
; EASADM - LTC Admission Date
; Output: DGMTI - LTC Copay Test IEN (file #408.31)
; DGMTDT - LTC Copay Test Date
; MAXRT - Maximum daily copay rates for OP and IP LTC
; 1=OK to continue; 0=Not OK to continue
ADMDT() ; Get the LTC admission date (for IP report only)
RPTDT() ; Get the start date for the report
RD
QUE ; Get report device. Queue report if requested.
DISCMSG ;EAS*1*105 This is a disclaimer to remind users that this report

External References

Name Field # of Occurrence
^%ZIS QUE+5
HOME^%ZIS QUE+13
^%ZISC QUE+14
^%ZTLOAD QUE+11
^DIC GETDFN+4
^DIR RPT+8, ADMDT+7, RD+6
$$DOM^EASECPC1 RD+7
START^EASECPC1 QUE+14
$$LST^EASECU GETLTC+10
DISDT^EASECU GETLTC+18
$$MAXRATE^IBAECU GETLTC+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report of Calculated Long Term Care Copayments"
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !,"=============================================="
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDFN+2
Function Call: WRITE
  • Prompt: !!,"No LTC Copayment Test on file for this veteran for that LTC admission date!"
  • Line Location: GETLTC+11
Function Call: WRITE
  • Prompt: !!,"Copayment rates for LTC are not available at this time.",!!
  • Line Location: GETLTC+16
Function Call: WRITE
  • Prompt: !!,"The LTC Copayment Test is incomplete!"
  • Line Location: GETLTC+20
Function Call: WRITE
  • Prompt: !!,"This veteran is Exempt from LTC copayments!"
  • Line Location: GETLTC+21
Function Call: WRITE
  • Prompt: !!,"This LTC Copayment Test contains an invalid status!"
  • Line Location: GETLTC+22
Function Call: WRITE
  • Prompt: !
  • Line Location: ADMDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,*7,"Report Start Date cannot be before LTC Admission Date!"
  • Line Location: RD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !!,"Report Cancelled!"
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !!,"Report "_$S($D(ZTSK):"Queued!",1:"Cancelled!")
  • Line Location: QUE+12
Function Call: WRITE
  • Prompt: !!,"** This report is intended to provide a projected estimate of charges that"
  • Line Location: DISCMSG+2
Function Call: WRITE
  • Prompt: !,"should generate for a patient admitted for a LTC stay. These estimates are"
  • Line Location: DISCMSG+3
Function Call: WRITE
  • Prompt: !,"dependent on existing conditions with the projected estimate out to a year "
  • Line Location: DISCMSG+4
Function Call: WRITE
  • Prompt: !,"being presented in the report. Be advised that changing circumstances or newer"
  • Line Location: DISCMSG+5
Function Call: WRITE
  • Prompt: !,"LTC Copay tests within this timeframe could impact these projected estimates"
  • Line Location: DISCMSG+6
Function Call: WRITE
  • Prompt: !,"and a discrepancy can exist from the actual charges billing generates. **"
  • Line Location: DISCMSG+7
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5
Routine Call
  • %ZIS
  • Line Location:
    • QUE+13
Routine Call
  • DIC
  • Line Location:
    • GETDFN+4
Routine Call
  • DIR
  • Line Location:
    • RPT+8
    • ADMDT+7
    • RD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Label References

Name Line Occurrences
$$ADMDT EN+8
$$GETDFN EN+5
$$GETLTC EN+16
$$RPT EN+3
$$RPTDT EN+11
DISCMSG EN+2
QUE EN+18
RD RD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE+2!, QUE+3*
DAYS RPTDT+1~, RD+7*, RD+8, RD+9
DFN EN~, EN+5*, EN+16, GETLTC~, GETLTC+10, GETLTC+18
DGMTDT EN~, GETLTC+12*, GETLTC+15
DGMTI EN~, GETLTC+10*, GETLTC+11
DIC GETDFN+1~, GETDFN+3*
DIC("S" GETDFN+3*
DIC(0 GETDFN+3*
DIR RPT+3~, ADMDT+1~, RPTDT+1~
DIR("?" ADMDT+5*, ADMDT+6*, RD+3*, RD+4*, RD+5*
DIR("A" RPT+7*, ADMDT+4*, RD+2*
DIR(0 RPT+6*, ADMDT+3*, RD+1*
DIROUT RPT+3~, ADMDT+1~, RPTDT+1~
DIRUT RPT+3~, ADMDT+1~, RPTDT+1~
DTOUT RPT+3~, RPT+8, GETDFN+1~, GETDFN+5, ADMDT+1~, ADMDT+7, RPTDT+1~, RD+6
DUOUT RPT+3~, RPT+8, GETDFN+1~, GETDFN+5, ADMDT+1~, ADMDT+7, RPTDT+1~, RD+6
EASADM EN~, EN+6*, EN+8*, EN+14*, EN+16, GETLTC~, GETLTC+10, GETLTC+18, RD+8, QUE+10
EASRDT EN~, EN+11*, EN+14
EASRPT EN~, EN+3*, EN+8, EN+14
IO("Q" QUE+6
IOP QUE+2!
LTC GETLTC+8~, GETLTC+10*, GETLTC+12
MAXRT EN~, GETLTC+15*, GETLTC+16
POP QUE+1~, QUE+5
STAT GETLTC+8~, GETLTC+12*, GETLTC+19, GETLTC+20, GETLTC+21
U GETLTC+12, GETLTC+16
X RPT+3~, GETDFN+1~, ADMDT+1~, RPTDT+1~
Y RPT+3~, RPT+8, RPT+9, GETDFN+1~, GETDFN+6, GETDFN+7, ADMDT+1~, ADMDT+7, ADMDT+8, RPTDT+1~
, RD+6, RD+7, RD+8, RD+9
ZTDESC QUE+1~, QUE+8*
ZTRTN QUE+1~, QUE+7*
ZTSAVE QUE+1~
ZTSAVE("DFN" QUE+9*
ZTSAVE("DGMTDT" QUE+9*
ZTSAVE("DGMTI" QUE+9*
ZTSAVE("EASADM" QUE+10*
ZTSAVE("EASRDT" QUE+10*
ZTSAVE("EASRPT" QUE+10*
ZTSAVE("MAXRT" QUE+9*
>> ZTSK QUE+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All