EASECPC ;ALB/PHH,CKN,LBD,AMA,SCK - LTC Copayment Report; 29-AUG-2001 ; 12/10/12 5:37pm
Source file <EASECPC.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |