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

Caller Graph Total: 24

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  
Scheduling 2 SCDXUTL0  SDCLAS  

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