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: DGMTSCU

Package: Registration

Routine: DGMTSCU


Information

DGMTSCU ;ALB/RMO/CAW,LBD - Means Test Screen Driver Utilities ;21 JAN 1992 8:00 pm

Source Information

Source file <DGMTSCU.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP ;Set-up the screen driver array and required screen variables
; Input -- DFN Patient IEN
; DGMTDT Date of Test
; DGMTYPT Type of Test
; Output -- DGMTSC Screen Driver Array
; DGVPRI Veteran Patient Relation IEN
; DGVINI Veteran Individual Annual Income IEN
; DGVIRI Veteran Income Relation IEN
; DGMTPAR Annual Means Test Parameter Array
; DGMTGMT GMT Threshold Values
; DGMTNWC Net Worth Calculation flag
; DGERR 1=ERROR and 0=NO ERROR
Q
PAR ;Annual Means Test Parameters
; Input -- DGLY Last Year
; Output -- DGMTPAR Means Test Parameter 0th node
; DGMTGMT GMT Threshold values
; DGMTNWC Net Worth Calculation flag
; Returned if the current year's parameters are not available:
; DGMTPAR("PREV") Previous Year Income Parameters
  • ICR #959
    • Status: Active
    • Usage: Private
    HD ;Print screen header
    ; Input -- DGMTSCI Screen number
    ; DGVPRI Veteran Patient Relation IEN
    ; DGMTDT Date of Test
    ; DGHLPF Help Flag (Optional)
    ; Output -- Screen Header
    HDNH ;
    SCR(DGMTSCI) ;Screen name and number
    ; Input -- DGMTSCI Screen number
    ; Output -- Screen number;Screen name
    ROU(DGMTSCI) ;Screen entry routine
    ; Input -- DGMTSCI Screen number
    ; Output -- Routine name
    ROURET(DGMTSCI) ;Screen read processor return routine
    ; Input -- DGMTSCI Screen number
    ; Output -- Routine name
    SCRNS ;Screen Number;Screen Name;Screen Entry Routine;Reader Return Routine
    SCRNS1 ;Screen Number;Screen Name;Screen Entry Routine;Reader Return Routine

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDNH+1
    Function Call: WRITE
    • Prompt: ?DGTAB,DGVI,DGHDR,DGVO
    • Line Location: HDNH+1
    Function Call: WRITE
    • Prompt: !,$$NAME^DGMTU1(DGVPRI)," ",$$SSN^DGMTU1(DGVPRI),?(DGIOM-24),"ANNUAL INCOME FOR "
    • Line Location: HDNH+2
    Function Call: WRITE
    • Prompt: Y
    • Line Location: HDNH+2
    Function Call: WRITE
    • Prompt: !,DGLNE
    • Line Location: HDNH+3
    Info |  Source |  Entry Points |  Interaction Calls