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

Package: Integrated Billing

Routine: IB20PT87


Information

IB20PT87 ;ALB/CPM - EXPORT ROUTINE 'DGRPDB' ; 14-FEB-94

Source Information

Source file <IB20PT87.m>

Entry Points

Name Comments DBIA/ICR reference
DGRPDB ;ALB/AAS - VIEW ONLY SCREEN TO DETERMINE BILLING ELIGIBILITY ; 20 DEC 90 1:30 pm
EN ;entry with DFN defined.
ELIG ;eligibility code(s)
DIS ;rated disabilities
DISQ
INS ;insurance information
INSQ
IN
AOIR ;Agent Orange/ionizing radiation
PAUSE
HDR ;Screen Header
MT
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+9
Function Call: WRITE
  • Prompt: "NOT A VETERAN"
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !?21
  • Condition for execution: I3>1
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: I2
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !!," Health Insurance: "
  • Line Location: INS+7
Function Call: WRITE
  • Prompt: $S(Z="Y":"YES",Z="N":"NO",Z="U":"UNKNOWN",1:"NOT ANSWERED")
  • Line Location: INS+7
Function Call: WRITE
  • Prompt: !?3,$S($D(^DIC(36,+$P(DGX,"^",1),0)):$E($P(^(0),"^",1),1,25),1:"UNKNOWN"),?30,$S($P(DGX,"^",2)]"":$P(DGX,"^",2),1:"UNKNOWN"),?52,$S($P(DGX,"^",3)]"":$P(DGX,"^",3),1:"UNKNOWN")
  • Line Location: IN+0
Function Call: WRITE
  • Prompt: ?71,$S($P(DGX,"^",6)="v":"APPLICANT",$P(DGX,"^",6)="s":"SPOUSE",$P(DGX,"^",6)="o":"OTHER",1:"UNKNOWN")
  • Line Location: IN+1
Function Call: WRITE
  • Prompt: !," A/O Exp.: "
  • Condition for execution: I=2
  • Line Location: AOIR+2
Function Call: WRITE
  • Prompt: "ION Rad.: "
  • Condition for execution: I=3
  • Line Location: AOIR+2
Function Call: WRITE
  • Prompt: $S(X="Y":"YES",X="N":"NO",X="U":"UNKNOWN",1:"NOT ANSWERED")," "
  • Line Location: AOIR+2
Function Call: WRITE
  • Prompt: "Medicaid Elig: ",$S(X1="":"NOT ANSWERED",'X1:"NO",1:"YES") I ($X+15)'>IOM
  • Line Location: AOIR+3
Function Call: WRITE
  • Prompt: " - "
  • Line Location: AOIR+3
Function Call: WRITE
  • Prompt: " - "
  • Line Location: AOIR+3
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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call