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

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
List Manager 1 $$UPPER^VALM1  
Registration 1 ELIG^VADPT  
VA FileMan 1 FILE^DIE  

Caller Graph

Caller Graph Total: 54

Package Total Caller Graph
Scheduling 17 SDC0  SDC1  SDC3  SDCNL  SDCNP1  SDCNP1A  SDCO22  SDECDEV  
SDESAPPTLETTERSV  SDL1  SDM2  SDN  SDN1  SDRRRECL  SDRRRECP  SDRRTSK  
SDRRTSK1  
Outpatient Pharmacy 14 PSOBAI  PSOBAIR2  PSOBAIRP  PSOCP  PSOHLDS5  PSOLLL1  PSOMLLD2  PSOPKIV2  
PSOPTPST  PSORLLL1  PSORXVW  PSOSD1  PSOSULOG  PSOTPCLP  
Registration 11 DG101  DG101F  DGENACL1  DGPTF  DGPTF1  DGPTX1  DGQWK  DGQWKF  
DGRRLU1A  DPTLK  VAFHLZPD  
VA Point of Service 3 VPSAPPT  VPSRPC26  VPSSEND  
Accounts Receivable 1 PRCABARP  
CMOP 1 PSXMISC1  
DSS Extracts 1 ECXUTL4  
Enrollment Application System 1 EASMTL6A  
Income Verification Match 1 IVMPTRN9  
Inpatient Medications 1 PSJDPT  
Lab Service 1 LREPI3  
Surgery 1 SROAPIMS  
VA FileMan 1 ITEM  

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

    External References

    Name Field # of Occurrence
    FILE^DIE DELBAI+4
    ELIG^VADPT GETEL+6
    $$UPPER^VALM1 1+9, TRY+7

    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
    Routine Call
    • DIE
    • Line Location:
      • DELBAI+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(8 - [#8] ELIG+13, GETDEL+7, GETDEL+8, ASKPR+6
    ^DPT - [#2] BADADR+3, GETSHAD+5
    ^VAEL(8.3 GETDEL+5, GETDEL+6, ASKPR+5

    Label References

    Name Line Occurrences
    1 1+10
    DISP 1+10
    ELIGQ ELIG+17, ELIG+18, 1+3, 1+5, 1+7, 1+13
    GETEL ELIG+12
    PRIMQ TRY+3, TRY+5

    Naked Globals

    Name Field # of Occurrence
    ^( GETDEL+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ALLEL ELIG+9~, ELIG+16*, DISP+5*, 1+10, 1+12, ASKPR+2~
    DEFAULT ELIG~, ELIG+13, ELIG+14, ASKPR+5*, ASKPR+6, ASKPR+7
    DFN ELIG~, ELIG+12, GETEL~, GETDEL~, GETDEL+5, GETDEL+6, ASKPR~, ASKPR+5, BADADR~, BADADR+2
    , BADADR+3, DELBAI~, DELBAI+2, DELBAI+3, GETSHAD~, GETSHAD+4, GETSHAD+5
    DGDEF ELIG+9~, ELIG+13*, ELIG+14*, ELIG+20*, 11+7, ASKPR+2~, ASKPR+6*, ASKPR+7*, TRY
    DGI GETDEL+3~, GETDEL+5*, GETDEL+6, GETDEL+7, GETDEL+8
    DGJ GETDEL+3~, GETDEL+6*
    DGK GETDEL+3~, GETDEL+6*, GETDEL+7, GETDEL+8
    DTIME 1+1, TRY+1
    EMP ELIG+9~, ELIG+16*, 1+12*, 1+13, 1+15, ASKPR+2~
    END GETDEL~
    FDA DELBAI+1~
    FDA(2 DELBAI+3*
    IENS DELBAI+1~, DELBAI+3*
    RESULT ELIG+9~, ELIG+16*, ELIG+18*, 1+7*, 1+13*, 1+15*, ELIGQ+2, ASKPR+2~, ASKPR+9*, PRIMQ+2
    SOURCE ELIG~, 1
    START GETDEL~
    U ELIG+13, ELIG+14, ELIG+16, DISP+2, DISP+4, DISP+5, 11+5, 1+10, 1+12
    1+13, 1+15, GETDEL+7, GETDEL+8, ASKPR+6, ASKPR+7, TRYTRY+5
    VAEL ELIG+9~, ELIG+17, ELIGQ+1!, ASKPR+2~, PRIMQ+1!
    VAEL(1 ELIG+16, ELIG+18, ELIG+20, DISP+2, DISP+3, DISP+4, DISP+5, 1+13, 1+14, 1+15
    , GETDEL+7*, GETDEL+8*
    X ELIG+9~, DISP+3*, DISP+4, DISP+5, 1+1*, 1+5, 1+7, 1+9*, 1+10, 1+12
    1+14*, 1+15, ASKPR+2~, TRY+1*, TRY+5, TRY+7*
    Y ELIG+9~, ASKPR+2~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All