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

Package: Registration

Routine: DGRPDB


Information

DGRPDB ;ALB/AAS,JAN,ERC,PHH,HM,JAM - VIEW ONLY SCREEN TO DETERMINE BILLING ELIGIBILITY ;24 Dec 2018 1:45 PM

Source Information

Source file <DGRPDB.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 6 $$INDSTATUS^DGENELA2  DISP^DGIBDSP  DOM^DGMTR  DIS^DGMTU  $$GETCUR^DGNTAPI  (2,ELIG,KVAR)^VADPT  
VA FileMan 4 $$EZBLD^DIALOG  ^DIC  (D,DT,GETS)^DIQ  ^DIR  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
Integrated Billing 1 $$INSUR^IBBAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 30

Package Total Caller Graph
Scheduling 6 SDES2PATSEARCH  SDESPATSEARCH  SDROUT2  SDSCAPI  SDSCEDT  SDSCRPT2  
Integrated Billing 4 IB SCREEN1  IBCSCH  IBXS1  IBXSC1  
Registration 4 DG PATIENT ELIGIBILITY INQUIRY  DGOTHFS2  DGPPDRPT  DGRP11  
Order Entry Results Reporting 3 ITEMS  ORCDPS3  ORCXPND1  
Fee Basis 2 FBAADEM  SERVICE PROVIDED  
Surgery 2 SROCD3  SROPCE1  
Virtual Patient Record 2 VPRDJ00  VPRDPT  
Automated Information Collection System 1 IBDFN4  
Consult Request Tracking 1 GMRCSLM2  
E Claims Management Engine 1 BPSVRX2  
Enterprise Health Management Platform 1 HMPDJ00  
VA FileMan 1 ITEM  
VA Point of Service 1 VPSRPC26  
VistA Integration Adapter 1 VIABRPC  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry with DFN defined.
ELIG ;eligibility code(s)
MOH ;medal of honor
DIS ;rated disabilities - Integration Agreement #700
  • ICR #700
    • Status: Active
    • Usage: Controlled Subscription
    DISQ
    INS ;insurance information
  • ICR #4509
    • Status: Active
    • Usage: Controlled Subscription
    INSQ
    IN ; Old code
    AOIR ;Agent Orange/ionizing radiation/Camp Lejeune
    PAUSE
    HDR ;Screen Header
    MT
    END
    RDIS(DGDFN,DGARR) ;API to return all Rated Disabilities from the
  • ICR #4807
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    HOME^%ZIS EN+1
    $$INDSTATUS^DGENELA2 EN+3
    DISP^DGIBDSP INS+11
    DOM^DGMTR MT+2
    DIS^DGMTU MT+2
    $$GETCUR^DGNTAPI AOIR+7
    $$EZBLD^DIALOG EN+3
    ^DIC %+1
    D^DIQ AOIR+4
    DT^DIQ ELIG+2
    GETS^DIQ RDIS+20
    ^DIR PAUSE+1
    $$INSUR^IBBAPI EN+6, INS+9
    2^VADPT EN+1
    ELIG^VADPT DIS+7
    KVAR^VADPT DISQEND
    $$FMTE^XLFDT MOH+7, MOH+8, MOH+9, MOH+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$$EZBLD^DIALOG(261133)
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: " "
    • Line Location: ELIG+2
    Function Call: WRITE
    • Prompt: !?21
    • Condition for execution: I1>1
    • Line Location: ELIG+3
    Function Call: WRITE
    • Prompt: $P(VAEL(1,I),"^",2)
    • Line Location: ELIG+3
    Function Call: WRITE
    • Prompt: "NO ADDITIONAL ELIGIBILITIES IDENTIFIED"
    • Line Location: ELIG+4
    Function Call: WRITE
    • Prompt: !," Rated Disabilities: "
    • Line Location: DIS+10
    Function Call: WRITE
    • Prompt: "NOT A VETERAN"
    • Line Location: DIS+10
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DIS+13
    Function Call: WRITE
    • Prompt: !?21
    • Condition for execution: I3>1
    • Line Location: DIS+15
    Function Call: WRITE
    • Prompt: I2
    • Line Location: DIS+15
    Function Call: WRITE
    • Prompt: !!," Health Insurance: "
    • Line Location: INS+8
    Function Call: WRITE
    • Prompt: $S(Z:"YES",1:"NO")
    • Line Location: INS+10
    Function Call: WRITE
    • Prompt: !," A/O Exp.: "
    • Condition for execution: I=2
    • Line Location: AOIR+3
    Function Call: WRITE
    • Prompt: "ION Rad.: "
    • Condition for execution: I=3
    • Line Location: AOIR+3
    Function Call: WRITE
    • Prompt: $S(X="Y":"YES",X="N":"NO",X="U":"UNKNOWN",1:"NOT ANSWERED")," "
    • Line Location: AOIR+3
    Function Call: WRITE
    • Prompt: "Medicaid Elig: ",$S(X1="":"NOT ANSWERED",'X1:"NO",1:"YES") I ($X+15)'>IOM
    • Line Location: AOIR+4
    Function Call: WRITE
    • Prompt: " - "
    • Line Location: AOIR+4
    Function Call: WRITE
    • Prompt: " - "
    • Line Location: AOIR+4
    Function Call: WRITE
    • Prompt: !," Env Contam.: "
    • Line Location: AOIR+6
    Function Call: WRITE
    • Prompt: $S(X="Y":"YES",X="N":"NO",X="U":"UNKNOWN",1:"NOT ANSWERED")," "
    • Line Location: AOIR+6
    Function Call: WRITE
    • Prompt: !," Camp Lejeune: "
    • Line Location: AOIR+11
    Function Call: WRITE
    • Prompt: $S(X="Y":"YES",X="N":"NO",1:"NOT ANSWERED")
    • Line Location: AOIR+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: $P(VADM(1),"^",1),?32,VA("PID"),?47,$P(VADM(3),"^",2)
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: ?X1,X
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: HDR+3
    Function Call: WRITE
    • Prompt: !," Means Test Status: NOT IN MEANS TEST FILE"
    • Line Location: MT+0
    Routine Call
    • %ZIS
    • Line Location:
      • EN+1
    Routine Call
    • DIALOG
    • Line Location:
      • EN+3
    Routine Call
    • DIC
    • Line Location:
      • %+1
    Routine Call
    • DIR
    • Line Location:
      • PAUSE+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(391 - [#391] DIS+10
    ^DGMT(408.31 - [#408.31] MT
    ^DIC(31 - [#31] DIS+12
    ^DPT - [#2] ELIG+2, MOH+2, MOH+5, MOH+10, MOH+11, MOH+16, DIS+11, AOIR+2, AOIR+4, AOIR+5
    AOIR+11, RDIS+19, RDIS+23

    Label References

    Name Line Occurrences
    % %+2
    AOIR EN+4
    DIS EN+4
    DISQ DIS+10
    ELIG EN+4
    EN %+1
    END %+1
    HDR EN+1, EN+8
    INS EN+8
    MOH EN+4
    MT EN+4
    PAUSE EN+8, DIS+13

    Naked Globals

    Name Field # of Occurrence
    ^( ELIG+2, DIS+12, AOIR+2
    ^(0 DIS+10, DIS+12

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A END+1!
    C EN+7*, EN+8, END+1!
    DFN %+1*, EN+1, EN+3, EN+6, ELIG+2, MOH+2, MOH+5, MOH+10, MOH+11, MOH+16
    DIS+11, INS+7, INS+9, AOIR+2, AOIR+4, AOIR+5, AOIR+7, AOIR+11, MTMT+2
    END+1!
    DGA1 END+1!
    DGARR RDIS~, RDIS+17!, RDIS+34!
    DGARR( RDIS+28*, RDIS+30, RDIS+31*, RDIS+32, RDIS+37*
    DGARR1 RDIS+16~
    DGARR1( RDIS+26, RDIS+28
    DGC RDIS+16~, RDIS+25*, RDIS+26*, RDIS+27, RDIS+28
    DGCC RDIS+16~, RDIS+22*, RDIS+23*, RDIS+24
    DGCL AOIR+1~, AOIR+11*
    DGCT RDIS+16~, RDIS+33*, RDIS+37*
    DGDFN RDIS~, RDIS+18, RDIS+19, RDIS+20, RDIS+23
    DGDOM MT+2!
    DGE RDIS+16~, RDIS+29*, RDIS+30*, RDIS+31, RDIS+32, RDIS+33*, RDIS+35*, RDIS+36, RDIS+37
    DGEC AOIR+1~, AOIR+5*, AOIR+6
    DGEE RDIS+16~, RDIS+36*, RDIS+37
    DGERR RDIS+16~, RDIS+21
    DGINS EN+5~, EN+6
    DGINS("IBBAPI" EN+7
    >> DGINSDT INS+9
    DGKVAR DIS+7*, DISQ!
    DGMOHADT MOH+1~, MOH+4~, MOH+5*, MOH+6*, MOH+8
    DGMOHCED MOH+1~
    DGMOHEDT MOH+4~, MOH+5*, MOH+6*, MOH+9
    DGMOHSDT MOH+1~, MOH+4~, MOH+5*, MOH+7, MOH+11~*, MOH+13
    DGMT END+1!
    DGMTL END+1!
    DGMTLA END+1!
    DGMTLL END+1!
    DGNODE RDIS+16~, RDIS+27*, RDIS+28
    DGNTARR AOIR+8!
    DGNTARR("INTRP" AOIR+7
    DGQUIT %*, %+1, EN+8, DIS+9~, DIS+11, DIS+13, DIS+14, PAUSE+1*, END+1!
    DGT END+1!
    DGTYPE HDR+1*, HDR+2, END+1!
    DGW RDIS+17!, RDIS+38!
    DGW( RDIS+32*, RDIS+35, RDIS+36, RDIS+37
    DGX INSQ!, AOIR+2*, AOIR+3, END+1!
    DGX1 PAUSE+1*, END+1!
    DIC %+1*, END+1!
    DIC(0 %+1*
    DIR PAUSE+1~, END+1!
    DIR(0 PAUSE+1*
    DT INS+9
    I ELIG+3*, DIS+11*, DIS+12, DISQ+1!, INSQ!, AOIR+3*, END+1!
    I1 ELIG+3*, DIS+12*, DISQ+1!, INSQ!, END+1!
    I2 DIS+12*, DIS+15, DISQ+1!, END+1!
    I3 DIS+11*, DIS+12*, DIS+15, DIS+16, DISQ+1!, END+1!
    IOF DIS+13, HDR+1
    IOM AOIR+4
    IOSL EN+8, DIS+13, PAUSE
    IOST PAUSE+1
    J PAUSE*, END+1!
    NTA AOIR+1~, AOIR+7*, AOIR+9
    U AOIR+6, RDIS+31, RDIS+32
    VA END+1!
    VA("PID" HDR+2
    >> VADM(1 HDR+2
    >> VADM(3 HDR+2
    >> VAEL DIS+7
    >> VAEL(1 ELIG+1, ELIG+3
    >> VAEL(3 DIS+8
    >> VAEL(4 DIS+10
    >> VAEL(6 DIS+10, HDR+1
    >> VAEL(8 ELIG+1, ELIG+2
    VAROOT END+1!
    X AOIR+3*, AOIR+4*, AOIR+6*, AOIR+11*, HDR+2*, HDR+3*, END+1!
    X1 AOIR+4*, HDR+2*, END+1!
    Y %+1, ELIG+2*, AOIR+4*, PAUSE+1, END+1!
    Z INS+9*, INS+10, INSQ!, END+1!
    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