Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: EASECSC2

Package: Enrollment Application System

Routine: EASECSC2


Information

EASECSC2 ;ALB/PHH,LBD - LTC Copay Test Screen Insurance Information ;18 AUG 2001

Source Information

Source file <EASECSC2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point
PAUSE(RESP) ; Prompt user for next page or quit
EASECRP5 ; Display the screen
; Note: This section was copied from ^DGRP5 and modified specifically
; to work with LTC.
IN
WW ;Write number on screens for display and/or edit (Z=number)
; NOTE: This section was copied from WW^DGRPV and modified specifically
; for LTC. The code calling ^DGRPV has been redirected here.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: " Covered by Health Insurance: "
  • Line Location: EASECRP5+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EASECRP5+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EASECRP5+6
Function Call: WRITE
  • Prompt: " Eligible for MEDICAID: ",$S(+DGRPX:"YES",$P(DGRPX,"^",1)=0:"NO",1:DGRPU)
  • Line Location: EASECRP5+6
Function Call: WRITE
  • Prompt: " [last updated ",Y,"]"
  • Line Location: EASECRP5+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EASECRP5+9
Function Call: WRITE
  • Prompt: " Medicaid Number: ",$P(DGRPX,U,3)
  • Line Location: EASECRP5+9
Info |  Source |  Entry Points |  Interaction Calls