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

Package: Integrated Billing

Routine: IB20PT87


Information

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

Source Information

Source file <IB20PT87.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  (D,DT)^DIQ  ^DIR  
Registration 2 DIS^DGMTU  (2,ELIG,KVAR)^VADPT  
Integrated Billing 1 DISP^IBCNSP2  
Kernel 1 HOME^%ZIS  

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

External References

Name Field # of Occurrence
HOME^%ZIS EN+1
DIS^DGMTU MT+1
^DIC %+1
D^DIQ AOIR+3
DT^DIQ ELIG+2
^DIR PAUSE+1
DISP^IBCNSP2 INS+8
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+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
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] DIS+9
^DGMT(408.31 - [#408.31] MT
^DIC(31 - [#31] DIS+10
^DIC(36 - [#36] IN
^DPT - [#2] EN+3, ELIG+2, DIS+10, INS+7, AOIR+1, AOIR+3

Label References

Name Line Occurrences
% %+2
AOIR EN+2
DIS EN+2
DISQ DIS+9
ELIG EN+2
EN %+1
END %+1
HDR EN+1, EN+4
INS EN+4
MT EN+2
PAUSE EN+4

Naked Globals

Name Field # of Occurrence
^( ELIG+2, DIS+10, INS+7, AOIR+1
^(0 EN+3, DIS+9, DIS+10, IN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A END+1!
C EN+3*, EN+4, END+1!
DFN %+1*, EN+1, EN+3, ELIG+2, DIS+10, INS+6, INS+7, AOIR+1, AOIR+3, MT
, MT+1, END+1!
DGA1 END+1!
DGKVAR DIS+7*, DISQ!
DGMT END+1!
DGMTL END+1!
DGMTLA END+1!
DGMTLL END+1!
DGQUIT %*, %+1, EN+4, PAUSE+1*, END+1!
DGT END+1!
DGTYPE HDR+1*, HDR+2, END+1!
DGX INSQ!, IN, IN+1, AOIR+1*, AOIR+2, END+1!
DGX1 PAUSE+1*, END+1!
DIC %+1*, END+1!
DIC(0 %+1*
DIR PAUSE+1~, END+1!
DIR(0 PAUSE+1*
I ELIG+3*, DIS+10*, DISQ+1!, INSQ!, AOIR+2*, END+1!
I1 ELIG+3*, DIS+10*, DISQ+1!, INSQ!, END+1!
I2 DIS+10*, DISQ+1!, END+1!
I3 DIS+10*, DIS+11, DISQ+1!, END+1!
IOF HDR+1
IOM AOIR+3
IOSL EN+4, PAUSE
IOST PAUSE+1
J PAUSE*, END+1!
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+9
>> VAEL(6 DIS+9, HDR+1
>> VAEL(8 ELIG+1, ELIG+2
VAROOT END+1!
X AOIR+2*, AOIR+3*, HDR+2*, HDR+3*, END+1!
X1 AOIR+3*, HDR+2*, END+1!
Y %+1, ELIG+2*, AOIR+3*, PAUSE+1, END+1!
Z INS+7*, INSQ!, END+1!
Info |  Source |  Call 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