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

Entry Points

Name Comments DBIA/ICR reference
FDATE(Y) ; -- return formatted date
; input: Y := field name
; output: [returned] := formatted date only
FTIME(Y) ; -- return formatted date/time
; input: Y := internal date/time
; output: [returned] := formatted date and time
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
RANGEQ
DIV() ; -- get division data
; input: none
; output: VAUTD := divs selected (VAUTD=1 for all)
; return: was selection made [ 1|yes 0|no]
CLINIC() ; -- get clinic data
; input: VAUTD := divisions selected
; output: VAUTC := clinic selected (VAUTC=1 for all)
; return: was selection made [ 1|yes 0|no]
CLINICQ
LINE(STR) ; -- print line
; input: STR := text to insert
; output: none
; return: text to use
ASK2
ASK2Q ;
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
LOCK(DFN) ;
; Description: Sets a lock used to synchronize local income test
; options with the income test upload.
UNLOCK(DFN) ;
; Description: Release the lock obtained by calling $$LOCK(DFN).
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
    ISCNVRT(DGINC) ;* Convert Node 0 for records in 408.21 (IAI)
    ; Input: DGINC - Individual Annual Income IEN Array

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SC - [#44] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call