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

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

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*, 1, 1+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, 1, 1+5, 1+10, 1+12
    , 1+13, 1+15, GETDEL+7, GETDEL+8, ASKPR+6, ASKPR+7, TRY, TRY+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