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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$$EZBLD^DIALOG(261133)
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: !,"Acute Suicidal Crisis: ",$$ASC^PXCOMPACT(DFN)
    • Line Location: ELIG+1
    Function Call: WRITE
    • Prompt: " "
    • Line Location: ELIG+3
    Function Call: WRITE
    • Prompt: !?21
    • Condition for execution: I1>1
    • Line Location: ELIG+4
    Function Call: WRITE
    • Prompt: $P(VAEL(1,I),"^",2)
    • Line Location: ELIG+4
    Function Call: WRITE
    • Prompt: "NO ADDITIONAL ELIGIBILITIES IDENTIFIED"
    • Line Location: ELIG+5
    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GETS^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call