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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: EASEZPDG

Package: Enrollment Application System

Routine: EASEZPDG


Information

EASEZPDG ;ALB/AMA/GTS/CMF - PRINT 10-10EZ OR EZR FROM DG OPTIONS ; 8/1/08 1:23pm

Source Information

Source file <EASEZPDG.m>

Entry Points

Name Comments DBIA/ICR reference
ENEZR(EASDFN,EASMTIEN) ;DBIA 4600 - PRINT THE 10-10EZR FROM DG OPTIONS
; INPUT:
; EASDFN - POINTER TO THE PATIENT FILE (#2) - required
; EASMTIEN - POINTER TO MEANS TEST FILE (#408.31) - optional
; (+ien, "", or 0)
; OUTPUT:
; (+ien or ""):ZTSK - TASKMAN JOB NUMBER
; (0):mt ien (forces test lookup only)
  • ICR #4600
    • Status: Active
    • Usage: Private
    ENEZ(EASDFN,EASMTIEN) ;DBIA 4600 - PRINT THE 10-10EZ FROM DG OPTIONS
    ; INPUT:
    ; EASDFN - POINTER TO THE PATIENT FILE (#2) - required
    ; EASMTIEN - POINTER TO MEANS TEST FILE (#408.31) - optional
    ; (+ien, "", or 0)
    ; OUTPUT:
    ; (+ien or ""):ZTSK - TASKMAN JOB NUMBER
    ; (0):mt ien (forces test lookup only)
  • ICR #4600
    • Status: Active
    • Usage: Private
    DEV
    EXIT
    EN ;BACKGROUND JOB ENTRY POINT TO PRINT EZ/EZR FROM DG OPTIONS
  • ICR #4600
    • Status: Active
    • Usage: Private
    EZR ; Entry point to print 1010EZR
    EZ ;PRINT THE 10-10EZ FORM (copied from EASEZP6F)
    NETMSG ;PRINT THE MESSAGE FOR THE NET WORTH SECTION

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"No data have been found for the selected patient, or"
    • Line Location: ENEZ+23
    Function Call: WRITE
    • Prompt: !,"the patient may have an on-line 10-10EZ application"
    • Line Location: ENEZ+24
    Function Call: WRITE
    • Prompt: !,"in progress. The 10-10EZ"_$S($G(EASFLAG)="EZR":"R",1:"")_" form shall not be printed."
    • Line Location: ENEZ+25
    Function Call: WRITE
    • Prompt: !!?5,*7,"Do not select a slave device for output."
    • Line Location: ENEZ+30
    Function Call: WRITE
    • Prompt: !?5,"This output requires a 132 column output printer."
    • Line Location: ENEZ+31
    Function Call: WRITE
    • Prompt: !?5,"Output to SCREEN will be unreadable.",!
    • Line Location: ENEZ+32
    Function Call: WRITE
    • Prompt: !,"Print request cancelled!"
    • Line Location: DEV+8
    Function Call: WRITE
    • Prompt: !,*7,"CANNOT QUEUE TO HOME DEVICE!",!
    • Line Location: DEV+11
    Function Call: WRITE
    • Prompt: !?131,$C(13)
    • Line Location: NETMSG+14
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: EALNE("ULC")="-"
    • Line Location: NETMSG+14
    Function Call: WRITE
    • Prompt: EALNE("UL")
    • Line Location: NETMSG+14
    Function Call: WRITE
    • Prompt: !!,?131,$C(13)
    • Line Location: NETMSG+18
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: EALNE("ULC")="-"
    • Line Location: NETMSG+18
    Function Call: WRITE
    • Prompt: EALNE("UL")
    • Line Location: NETMSG+18
    Function Call: WRITE
    • Prompt: !!?23,"ANY PREVIOUS CALENDAR YEAR NET WORTH AMOUNTS FROM ANY ADDITIONAL DEPENDENT CHILD(REN)"
    • Line Location: NETMSG+26
    Function Call: WRITE
    • Prompt: !!?29,"WILL BE INCLUDED IN THE VETERAN'S PREVIOUS CALENDAR YEAR NET WORTH AMOUNTS.",!
    • Line Location: NETMSG+27

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^EAS(712 - [#712] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call