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 - VIEW ONLY SCREEN TO DETERMINE BILLING ELIGIBILITY ; 3/23/06 8:16am

Source Information

Source file <DGRPDB.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 5 DISP^DGIBDSP  DOM^DGMTR  DIS^DGMTU  $$GETCUR^DGNTAPI  (2,ELIG,KVAR)^VADPT  
VA Fileman 3 ^DIC  (D,DT,GETS)^DIQ  ^DIR  
Integrated Billing 1 $$INSUR^IBBAPI  
Kernel 1 HOME^%ZIS  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Scheduling 4 SDROUT2  SDSCAPI  SDSCEDT  SDSCRPT2  
Order Entry Results Reporting 2 ORCDPS3  ORCXPND1  
Registration 2 DG PATIENT ELIGIBILITY INQUIRY  DGRP11  
Surgery 2 SROCD3  SROPCE1  
Automated Information Collection System 1 IBDFN4  
IHS Electronic Health Record 1 BEHOPTCX  
Integrated Billing 1 IBXSC1  

Entry Points

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

    External References

    Name Field # of Occurrence
    HOME^%ZIS EN+1
    DISP^DGIBDSP INS+11
    DOM^DGMTR MT+2
    DIS^DGMTU MT+2
    $$GETCUR^DGNTAPI AOIR+7
    ^DIC %+1
    D^DIQ AOIR+4
    DT^DIQ ELIG+2
    GETS^DIQ RDIS+20
    ^DIR PAUSE+1
    $$INSUR^IBBAPI INS+9
    2^VADPT EN+1
    ELIG^VADPT DIS+7
    KVAR^VADPT DISQ, END

    Interaction Calls

    Name Line Occurrences
    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: !
    • 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
    • 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, DIS+11, AOIR+2, AOIR+4, AOIR+5, RDIS+19, RDIS+23

    Label References

    Name Line Occurrences
    % %+2
    DISQ DIS+10
    EN %+1
    END %+1
    HDR EN+1, EN+7
    INS EN+7
    PAUSE EN+7, 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, END+1!
    DFN %+1*, EN+1, ELIG+2, DIS+11, INS+7, INS+9, AOIR+2, AOIR+4, AOIR+5, AOIR+7
    , MT, MT+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
    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
    >> DGINSDT INS+9
    DGKVAR DIS+7*, DISQ!
    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+7, 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+7, 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*, 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