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

Package: Registration

Routine: DGUTL3


Information

DGUTL3 ;ALB/MTC,CKN - ELIGIBILITY UTILITIES ; 10/4/05 12:22pm

Source Information

Source file <DGUTL3.m>

Entry Points

Name Comments DBIA/ICR reference
ELIG(DFN,SOURCE,DEFAULT) ;-- This function will prompt for the eligibility for a patient. If
; only one eligibility then it will be returned without prompting.
DISP ;-- display choices
1
ELIGQ ;
GETEL(DFN) ;-- This function will get the eligibilities for the patient
; specified by DFN and return all the active eligibilities in the
; ARRAY specified.
GETDEL(DFN,START,END) ;-- This function will scan the Eligibility Date
; Sensitive file #8.3 for all active eligibilities for a date range.
ASKPR(DFN) ;-- This function will ask the user for the primary eligibility.
TRY
PRIMQ ;
BADADR(DFN) ;does this patient have a bad address?
  • ICR #4080
    • Status: Active
    • Usage: Supported
  • ICR #7037
    • Status: Pending
    • Usage: Private
    DELBAI(DFN) ;delete bad address indicator
    GETSHAD(DFN) ;Get current value of Proj 112/SHAD from Patient file.
    ; Input: DFN - Patient ien
    ; Output: Valid values - 1 (Yes), 0 (No), or null
    ; -1 - error
  • ICR #4462
    • Status: Active
    • Usage: Supported

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"THIS PATIENT HAS OTHER ENTITLED ELIGIBILITIES:"
    • Line Location: DISP+1
    Function Call: WRITE
    • Prompt: !?5,$P(VAEL(1),U,2)
    • Line Location: DISP+2
    Function Call: WRITE
    • Prompt: !?5,$P(VAEL(1,X),U,2)
    • Line Location: DISP+4
    Function Call: WRITE
    • Prompt: !,"ENTER THE ELIGIBILITY FOR THIS "_$S(SOURCE=1:"MOVEMENT",SOURCE=2:"ADMISSION",SOURCE=3:"TRANSFER",1:"PATIENT")_": "_$P(DGDEF,U,2)_"// "
    • Line Location: 1+0
    Function Call: WRITE
    • Prompt: $P($P(ALLEL,U_X,2),U)
    • Line Location: 1+12
    Function Call: WRITE
    • Prompt: !,"PRIMARY ELIGIBILITY CODE: "_$P(DGDEF,U,2)_"// "
    • Line Location: TRY+0
    Info |  Source |  Entry Points |  Interaction Calls