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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 5 $$ASKNW^DGMTCOU  $$LYR^DGMTSCU1  ($$NAME,$$SSN)^DGMTU1  GETIENS^DGMTU2  NEW^DGRPEIS1  
Enrollment Application System 1 GETFIPS^EASAILK  
Kernel 1 ENDR^%ZISS  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Registration 11 DG311PIR  DGMTDD3  DGMTP  DGMTSC  DGMTSC2  DGMTSC2V  DGMTSC3  DGMTSC3V  
DGMTSC4  DGMTSC4V  DGMTSCR  

Entry Points

Name Comments DBIA/ICR reference
SCRNS1 ;Screen Number;Screen Name;Screen Entry Routine;Reader Return Routine
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
    ROURET(DGMTSCI) ;Screen read processor return routine
    ; Input -- DGMTSCI Screen number
    ; Output -- Routine name
    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
    HDNH ;
    Q
    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
    SCRNS ;Screen Number;Screen Name;Screen Entry Routine;Reader Return Routine
    HD ;Print screen header
    ; Input -- DGMTSCI Screen number
    ; DGVPRI Veteran Patient Relation IEN
    ; DGMTDT Date of Test
    ; DGHLPF Help Flag (Optional)
    ; Output -- Screen Header

    External References

    Name Field # of Occurrence
    ENDR^%ZISS HD+12
    $$ASKNW^DGMTCOU SETUP+14
    $$LYR^DGMTSCU1 SETUP+13, HDNH+2
    $$NAME^DGMTU1 HDNH+2
    $$SSN^DGMTU1 HDNH+2
    GETIENS^DGMTU2 SETUP+24
    NEW^DGRPEIS1 SETUP+23
    GETFIPS^EASAILK PAR+14

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("RM" HD+12
    ^DD("DD" HDNH+2
    ^DG(43 - [#43] PAR+8, PAR+9, PAR+11, HD+11
    ^DGMT(408.31 - [#408.31] SETUP+17, SETUP+20
    ^EAS(712.5 PAR+16

    Label References

    Name Line Occurrences
    $$SCR HD+9
    HDNH HD+11
    PAR SETUP+25
    Q SETUP+23, SETUP+24

    Naked Globals

    Name Field # of Occurrence
    ^(0 PAR+8, PAR+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DFN SETUP+24, PAR+14
    >> DGERR SETUP+13*, SETUP+23*, SETUP+24, SETUP+25*
    DGHDR HD+6~, HD+9*, HD+10, HDNH+1
    DGHLPF HD+7*, HD+9, HDNH+2, HDNH+4!
    DGINI SETUP+12~, SETUP+24
    DGIOM HD+6~, HD+8*, HD+10, HDNH+2
    DGIRI SETUP+12~, SETUP+24
    DGLNE HD+6~, HD+8*, HDNH+3
    DGLY SETUP+12~, SETUP+13*, PAR+8, PAR+9, PAR+14
    >> DGMTDT SETUP+13, SETUP+24, HDNH+2
    >> DGMTGMT PAR+13*, PAR+16*
    >> DGMTI SETUP+17, SETUP+20
    >> DGMTNWC PAR+11*
    >> DGMTPAR SETUP+25, PAR+8*, PAR+9*
    >> DGMTPAR("PREV" PAR+9*
    DGMTSC SETUP+13!
    DGMTSC( SETUP+18*, SETUP+21*, SCR+4, ROU+4, ROURET+4
    DGMTSCI HD+9, SCR~, SCR+4, ROU~, ROU+4, ROURET~, ROURET+4
    DGMTSCR HD+6~, SCR+3~, SCR+4*, SCR+5
    >> DGMTYPT SETUP+14
    DGPRI SETUP+12~, SETUP+23, SETUP+24
    DGPRTY SETUP+12~
    DGROU ROU+3~, ROU+4*, ROU+5, ROURET+3~, ROURET+4*, ROURET+5
    DGSCR SETUP+12~, SETUP+14*, SETUP+18, SETUP+21
    DGTAB HD+6~, HD+10*, HDNH+1
    >> DGVI HD+11*, HD+12*, HDNH+1
    >> DGVINI SETUP+24*
    >> DGVIRI SETUP+24*
    >> DGVO HD+11*, HD+12*, HDNH+1
    >> DGVPRI SETUP+23*, HDNH+2
    GMT PAR+7~, PAR+14
    GMT("GMTIEN" PAR+15, PAR+16
    I SETUP+12~, SETUP+18*, SETUP+21*
    IOF HDNH+1
    >> IOINHI HD+12
    >> IOINLOW HD+12
    IOM HD+8
    IOST(0 HD+11
    X SETUP+12~, SETUP+18*, SETUP+21*, HD+12*!
    Y HD+6~, HDNH+2*

    Marked Items

    Name Field # of Occurrence
    $T(SCRNS+I SETUP+18
    $T(SCRNS1+I SETUP+21
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All