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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGMTUTL

Package: Registration

Routine: DGMTUTL


Information

DGMTUTL ;ALB/CAW/BRM/LBD - Means Test generic utilities ; 8/12/02 4:33pm

Source Information

Source file <DGMTUTL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 DD^%DT  FILE^DIE  ^DIR  
Kernel 2 KILL^%ZTLOAD  $$FMTE^XLFDT  
Registration 1 (DIVISION,FIRST)^VAUTOMA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 30

Package Total Caller Graph
Registration 22 DGEN  DGENA3  DGENUPL9  DGMTA  DGMTCOU  DGMTE  DGMTEO  DGMTO1  
DGMTOFA  DGMTOFA1  DGMTOHD  DGMTOPYT  DGMTOREQ  DGMTREQB  DGMTU  DGMTU2  
DGMTU23  DGPMGLG5  DGPTFVC1  DGPTUTL  DGRP9  DGRPE1  
Income Verification Match 3 IVMCUPL  IVMLDEM4  IVMLDEMB  
Enrollment Application System 2 EASECMT  EASECU23  
Scheduling 2 SCDXUTL0  SDCLAS  
Integrated Billing 1 IBARXEPS  

Entry Points

Name Comments DBIA/ICR reference
DIV() ; -- get division data
; input: none
; output: VAUTD := divs selected (VAUTD=1 for all)
; return: was selection made [ 1|yes 0|no]
ASK2
FDATE(Y) ; -- return formatted date
; input: Y := field name
; output: [returned] := formatted date only
LINE(STR) ; -- print line
; input: STR := text to insert
; output: none
; return: text to use
CLINICQ
LOCK(DFN) ;
; Description: Sets a lock used to synchronize local income test
; options with the income test upload.
CLOSE ; Utility to clean up tasked outputs
XMY(GROUP,DGDUZ,DGPOST) ; -- set up XMY for mail group members
; input: GROUP := mail group efn [required]
; DGDUZ := send to current user [ 0|no ; 1|yes] [optional]
; DGPOST := send to postmaster if XMY is undefined
; [ 0|no ; 1|yes] [optional]
; output: XMY := array of users
; XMDUZ := message sender set postmaster
ASK2Q ;
PA(DGMTI) ;Determine if the Pending Adjudication is for MT or GMT
; Input:
; DGMTI - IEN of Annual Means Test file #408.31
; Output:
; Returns "MT","GMT", or "" if it can't be determined
  • ICR #3637
    • Status: Active
    • Usage: Private
    RANGEQ
    UNLOCK(DFN) ;
    ; Description: Release the lock obtained by calling $$LOCK(DFN).
    RANGE(WHEN) ; select date range
    ; input: WHEN := past or future dates (optional)
    ; output: DGBEG := begin date
    ; DGEND := end date
    ; return: was selection made [ 1|yes 0|no]
    DATE
    FTIME(Y) ; -- return formatted date/time
    ; input: Y := internal date/time
    ; output: [returned] := formatted date and time
    CLINIC() ; -- get clinic data
    ; input: VAUTD := divisions selected
    ; output: VAUTC := clinic selected (VAUTC=1 for all)
    ; return: was selection made [ 1|yes 0|no]
    ISCNVRT(DGINC) ;* Convert Node 0 for records in 408.21 (IAI)
    ; Input: DGINC - Individual Annual Income IEN Array

    External References

    Name Field # of Occurrence
    DD^%DT FTIME+3
    KILL^%ZTLOAD CLOSE+2
    FILE^DIE ISCNVRT+25, ISCNVRT+47
    ^DIR DATE, DATE+4
    DIVISION^VAUTOMA ASK2+2
    FIRST^VAUTOMA CLINIC+8
    $$FMTE^XLFDT FDATE+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,$$LINE("Date Range Selection")
    • Line Location: RANGE+5
    Function Call: WRITE
    • Prompt: !," Future dates are not allowed.",*7
    • Line Location: DATE+1
    Function Call: WRITE
    • Prompt: !," Past dates are not allowed.",*7
    • Line Location: DATE+2
    Function Call: WRITE
    • Prompt: !," Future dates are not allowed.",*7
    • Line Location: DATE+6
    Function Call: WRITE
    • Prompt: !," Past dates are not allowed.",*7
    • Line Location: DATE+7
    Function Call: WRITE
    • Prompt: !!,"Beginning Date must be prior to Ending Date"
    • Line Location: DATE+8
    Function Call: WRITE
    • Prompt: !!,$$LINE("Clinic Selection")
    • Line Location: CLINIC+5
    Function Call: WRITE
    • Prompt: !,*7,"***WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP"
    • Line Location: ASK2+0
    Routine Call
    • DIE
    • Line Location:
      • ISCNVRT+25
      • ISCNVRT+47
    Routine Call
    • DIR
    • Line Location:
      • DATE
      • DATE+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SC - [#44] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(40.8 - [#40.8] ASK2, ASK2+3
    ^DG(43 - [#43] DIV+5, ASK2+1, ASK2+2
    ^DGMT("LOCAL INCOME TEST" LOCK+11, UNLOCK+9
    ^DGMT(408.21 - [#408.21] ISCNVRT+11, ISCNVRT+12, ISCNVRT+33, ISCNVRT+34
    ^DGMT(408.31 - [#408.31] PA+9
    ^XMB(3.8 - [#3.8] XMY+11

    Label References

    Name Line Occurrences
    $$LINE RANGE+5, DIV+5, CLINIC+5
    ASK2 DIV+6
    ASK2Q ASK2, ASK2+1, ASK2+3
    DATE DATE+1, DATE+2, DATE+6, DATE+7, DATE+8
    RANGEQ DATE, DATE+4

    Naked Globals

    Name Field # of Occurrence
    ^("GL" ASK2+2
    ^(0 ASK2+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DEPNUM ISCNVRT+28~, ISCNVRT+30*, ISCNVRT+31*, ISCNVRT+32
    DFN LOCK~, LOCK+10, LOCK+11, UNLOCK~, UNLOCK+8, UNLOCK+9
    DGBEG DATE*, DATE+1!, DATE+2!, DATE+8
    DGDUZ XMY~, XMY+9~*, XMY+12
    DGEND DATE+5*, DATE+6!, DATE+7!, DATE+8!, RANGEQ
    DGERR ISCNVRT+18~, ISCNVRT+20*, ISCNVRT+25, ISCNVRT+40~, ISCNVRT+42*, ISCNVRT+47
    DGINC ISCNVRT~
    DGINC( ISCNVRT+9, ISCNVRT+10
    DGINC("D" ISCNVRT+31, ISCNVRT+32
    DGMT0 PA+6~, PA+9*, PA+11, PA+13, PA+14
    DGMTI PA~, PA+8, PA+9
    DGMTRT ISCNVRT+18~, ISCNVRT+40~
    DGMTRT( ISCNVRT+21*, ISCNVRT+22*, ISCNVRT+23*, ISCNVRT+24*, ISCNVRT+43*, ISCNVRT+44*, ISCNVRT+45*, ISCNVRT+46*
    DGMTVR ISCNVRT+28~, ISCNVRT+29*
    DGPOST XMY~, XMY+10~, XMY+14
    DGY FDATE+3~, FDATE+4*, FDATE+5
    DIC CLINIC+7*, ASK2+3!
    DIC("S" CLINIC+6*
    DIR DATE!, DATE+4!
    DIR("?" DATE*, DATE+4*
    DIR("A" DATE*, DATE+4*
    DIR(0 DATE*, DATE+4*
    >> DIRUT DATE, DATE+4
    DT DATE+1, DATE+2, DATE+6, DATE+7
    DUZ XMY+12
    FLDNM ISCNVRT+18~, ISCNVRT+19*, ISCNVRT+21*, ISCNVRT+40~, ISCNVRT+41*, ISCNVRT+43*
    GMTTHR PA+6~, PA+14*, PA+17
    GROUP XMY~, XMY+11
    I ASK2+3*, XMY+8~
    IAIIEN ISCNVRT+3~, ISCNVRT+10*, ISCNVRT+11, ISCNVRT+12, ISCNVRT+21, ISCNVRT+22, ISCNVRT+23, ISCNVRT+24, ISCNVRT+32*, ISCNVRT+33
    , ISCNVRT+34, ISCNVRT+43, ISCNVRT+44, ISCNVRT+45, ISCNVRT+46
    IAIREC ISCNVRT+3~, ISCNVRT+11*, ISCNVRT+17, ISCNVRT+33*, ISCNVRT+39
    IO("C" CLOSE+2!
    IO("Q" CLOSE+2!
    IOM LINE+7
    MTTHR PA+6~, PA+13*, PA+17
    NULLVAL ISCNVRT+3~, ISCNVRT+4*, ISCNVRT+17, ISCNVRT+39
    NWNODE ISCNVRT+3~, ISCNVRT+12*, ISCNVRT+14, ISCNVRT+15, ISCNVRT+34*, ISCNVRT+36, ISCNVRT+37
    PA PA+6~, PA+7*, PA+8, PA+11, PA+13, PA+17*, PA+18
    PCE ISCNVRT+3~, ISCNVRT+16*, ISCNVRT+17*, ISCNVRT+38*, ISCNVRT+39*
    >> RECTYP ISCNVRT+7*, ISCNVRT+8, ISCNVRT+9, ISCNVRT+10, ISCNVRT+27
    RESULT ISCNVRT+3~
    >> SDPOST XMY+10*
    STR LINE~, LINE+6*, LINE+7, LINE+8
    TOT08 ISCNVRT+3~, ISCNVRT+13*, ISCNVRT+17*, ISCNVRT+22, ISCNVRT+35*, ISCNVRT+39*, ISCNVRT+44
    TOT201 ISCNVRT+3~, ISCNVRT+13*, ISCNVRT+14*, ISCNVRT+23, ISCNVRT+35*, ISCNVRT+36*, ISCNVRT+45
    TOT204 ISCNVRT+3~, ISCNVRT+13*, ISCNVRT+15*, ISCNVRT+24, ISCNVRT+35*, ISCNVRT+37*, ISCNVRT+46
    U DIV+5, ASK2+1, ASK2+2, ASK2+3, XMY+11, PA+11, PA+13, PA+14
    VAUTC CLINIC+9!, CLINICQ
    VAUTD DIV+6!, DIV+7, ASK2*, ASK2+1*
    VAUTD( ASK2+3*
    >> VAUTNI CLINIC+7*
    >> VAUTSTR CLINIC+7*
    >> VAUTVB CLINIC+7*
    WHEN RANGE~, DATE+1, DATE+2, DATE+6, DATE+7
    X LINE+5~, LINE+7*, LINE+8
    >> XMDUZ XMY+16*
    XMY XMY+8!, XMY+14
    XMY( XMY+12*, XMY+14*
    XMY("G." XMY+11*
    Y FDATE~, FDATE+4, FTIME~, FTIME+4, DATE, DATE+5, DIV+6, CLINIC+9, ASK2*
    ZTDESC CLOSE+2!
    ZTDTH CLOSE+2!
    ZTIO CLOSE+2!
    >> ZTQUEUED CLOSE+1
    ZTREQ CLOSE+2!
    ZTRTN CLOSE+2!
    ZTSAVE CLOSE+2!
    ZTSK CLOSE+2!
    ZTUCI CLOSE+2!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All