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

Package: Beneficiary Travel

Routine: DGBTCD


Information

DGBTCD ;ALB/SCK/BLD - BENEFICIARY TRAVEL CLAIM DISPLAY; 12/15/92 4/14/93

Source Information

Source file <DGBTCD.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 2 ^VADATE  PID^VADPT6  
VA FileMan 2 COMMA^%DTC  $$GET1^DIQ  
Beneficiary Travel 1 CITY^DGBTCR  

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

Package Total Caller Graph
Beneficiary Travel 2 DGBTCE1  DGBTR  

Entry Points

Name Comments DBIA/ICR reference
SCREEN ;this will display the information screen at the end of a claim and
FROM
ELIG
ACCT
ATT
DED
REMARK
QUIT

External References

Name Field # of Occurrence
COMMA^%DTC ACCT+2, ACCT+3, ATT+3, ATT+8, ATT+11, DEDDED+3
CITY^DGBTCR SCREEN+10, SCREEN+14
$$GET1^DIQ SCREEN+13, ACCT+2, ATT+7, DED+3
^VADATE ELIG+1
PID^VADPT6 SCREEN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,">> WARNING! No ACCOUNT TYPE for this claim, Please correct through Claim Enter/Edit!"
  • Line Location: SCREEN+3
Function Call: WRITE
  • Prompt: !!,*7,">> WARNING! No DIVISION specified for this claim, please correct through Claim Enter/Edit."
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+5
Function Call: WRITE
  • Prompt: !?18,"Beneficiary Travel Claim Information <Display>"
  • Line Location: SCREEN+6
Function Call: WRITE
  • Prompt: !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),U,2)
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: !!," Depart From: ",$E($P(DGBTVAR("D"),U),1,30)
  • Line Location: FROM+0
Function Call: WRITE
  • Prompt: ?46,"To: ",$E($P(DGBTVAR("T"),U),1,30)
  • Line Location: FROM+1
Function Call: WRITE
  • Prompt: !?14
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: $P(DGBTVAR("D"),U,2)
  • Condition for execution: $P(DGBTVAR("D"),U,2)]""
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: $P(DGBTVAR("D"),U,3)
  • Condition for execution: $P(DGBTVAR("D"),U,2)=""
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P($G(DGBTVAR("D")),U,2)=""&($P($G(DGBTVAR("D")),U,3)="")
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: ?50
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: $P(DGBTVAR("T"),U,2)
  • Condition for execution: $P(DGBTVAR("T"),U,2)]""
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: $P(DGBTVAR("T"),U,3)
  • Condition for execution: $P(DGBTVAR("T"),U,2)=""
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),U,2)=""&($P(DGBTVAR("T"),U,3)="")
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: !?14
  • Line Location: FROM+4
Function Call: WRITE
  • Prompt: $P(DGBTVAR("D"),U,3)
  • Condition for execution: $P(DGBTVAR("D"),U,3)]""
  • Line Location: FROM+4
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),U,2)]""&($P(DGBTVAR("D"),U,3)="")
  • Line Location: FROM+4
Function Call: WRITE
  • Prompt: ?50
  • Line Location: FROM+5
Function Call: WRITE
  • Prompt: $P(DGBTVAR("T"),U,3)
  • Condition for execution: $P(DGBTVAR("T"),U,3)]""
  • Line Location: FROM+5
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),U,2)]""&($P(DGBTVAR("T"),U,3)="")
  • Line Location: FROM+5
Function Call: WRITE
  • Prompt: !?14
  • Line Location: FROM+6
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),U,2)]""&($P(DGBTVAR("D"),U,3)]"")
  • Line Location: FROM+6
Function Call: WRITE
  • Prompt: ?50
  • Line Location: FROM+7
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),U,2)]""&($P(DGBTVAR("T"),U,3)]"")
  • Line Location: FROM+7
Function Call: WRITE
  • Prompt: !!," Eligibility: "
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: $P(^DIC(8,$P(DGBTVAR(0),U,3),0),U)
  • Condition for execution: $P(DGBTVAR(0),U,3)
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: ?45,"SC%: ",$P(DGBTVAR(0),U,4)
  • Condition for execution: $P(DGBTVAR(0),U,4)]""
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: ?57,"Cert. Date: "
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: $P(VADATE("E"),"@")
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: !!?5,"Account: ",$S($P(DGBTVAR(0),U,6):$E($P(^DGBT(392.3,$P(DGBTVAR(0),U,6),0),U),1,15),1:"")
  • Line Location: ACCT+0
Function Call: WRITE
  • Prompt: ?31,"REVIEW VISIT"
  • Condition for execution: $P(DGBTVAR("A"),U,3)
  • Line Location: ACCT+0
Function Call: WRITE
  • Prompt: !!,"Common Carrier Req: ",$S($$GET1^DIQ(392,DGBTDT,55.1)="YES":"YES",1:"NO")
  • Line Location: ACCT+2
Function Call: WRITE
  • Prompt: ?48,"COMMON CARRIER FEE: "
  • Line Location: ACCT+2
Function Call: WRITE
  • Prompt: ?48,"COMMON CARRIER FEE: "
  • Line Location: ACCT+2
Function Call: WRITE
  • Prompt: !,?51,"Most Econ. Cost: "
  • Line Location: ACCT+3
Function Call: WRITE
  • Prompt: X
  • Line Location: ACCT+3
Function Call: WRITE
  • Prompt: !,"Attend/Payee: ",$S($D(DGBTVAR("A")):$P(DGBTVAR("A"),U,2),1:"")
  • Line Location: ATT+0
Function Call: WRITE
  • Prompt: !," Mode/Trans.: ",$S($P($G(DGBTVAR("A")),U,4):$P(^DGBT(392.43,$P($G(DGBTVAR("A")),U,4),0),U),1:"")
  • Line Location: ATT+1
Function Call: WRITE
  • Prompt: !," Mode/Trans.: ",$S($P($G(DGBTVAR("A")),U,4):$P(^DGBT(392.4,$P($G(DGBTVAR("A")),U,4),0),U),1:"")
  • Line Location: ATT+2
Function Call: WRITE
  • Prompt: ?51,"Meals & Lodging: "
  • Line Location: ATT+3
Function Call: WRITE
  • Prompt: X
  • Line Location: ATT+3
Function Call: WRITE
  • Prompt: !,"One Way/"
  • Line Location: ATT+4
Function Call: WRITE
  • Prompt: $E($S((DGX["FLS"&$P($G(DGBTVAR(0)),U,14)):$P(^DGBT(392.31,$P($G(DGBTVAR(0)),U,14),0),U),(DGX["Carrier"&$P(DGBTVAR(0),U,7)):$$GET1^DIQ(392,DGBTDT_",",7)),1,27)
  • Line Location: ATT+7
Function Call: WRITE
  • Prompt: ?46,"Ferry, Bridges, Etc.: "
  • Line Location: ATT+8
Function Call: WRITE
  • Prompt: X
  • Line Location: ATT+8
Function Call: WRITE
  • Prompt: !?2,"Round Trip: ",$S($P(DGBTVAR("M"),U)=1:"ONE WAY",$P(DGBTVAR("M"),U)=2:"ROUND TRIP",1:"")
  • Line Location: ATT+9
Function Call: WRITE
  • Prompt: !,"Auth. Person: "
  • Line Location: ATT+10
Function Call: WRITE
  • Prompt: $S($D(DGBTVAR("A"))&($D(^VA(200,$P(DGBTVAR("A"),U),0))):$P(^VA(200,$P(DGBTVAR("A"),U),0),U),1:"")
  • Line Location: ATT+10
Function Call: WRITE
  • Prompt: ?46,"Total Mileage Amount: "
  • Line Location: ATT+11
Function Call: WRITE
  • Prompt: X
  • Line Location: ATT+11
Function Call: WRITE
  • Prompt: !,"Mileage/"
  • Line Location: ATT+13
Function Call: WRITE
  • Prompt: ?48,"Applied Deductible: "
  • Line Location: DED+0
Function Call: WRITE
  • Prompt: X
  • Line Location: DED+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DED+2
Function Call: WRITE
  • Prompt: ?5,"One Way: ",$P($G(DGBTVAR("M")),U,2)_" MILES"
  • Condition for execution: $G(DGBTACCT)=4!($G(DGBTACCT)=5)
  • Line Location: DED+2
Function Call: WRITE
  • Prompt: ?53,"Amount Payable "
  • Line Location: DED+3
Function Call: WRITE
  • Prompt: X
  • Line Location: DED+3
Function Call: WRITE
  • Prompt: !!,"Remarks: ",$S($D(^DGBT(392,DGBTDT,"R")):$P(^DGBT(392,DGBTDT,"R"),U),1:"")
  • Line Location: REMARK+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGBT(392 - [#392] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SCREEN+7
^DG(43 - [#43] ATT+3, ATT+8
^DGBT(392 - [#392] SCREEN+1, REMARK
^DGBT(392.3 - [#392.3] SCREEN+2, ACCT
^DGBT(392.31 - [#392.31] ATT+7
^DGBT(392.4 - [#392.4] ATT+2
^DGBT(392.43 - [#392.43] ATT+1
^DIC(5 - [#5] SCREEN+11, SCREEN+14
^DIC(8 - [#8] ELIG
^VA(200 - [#200] ATT+10

Label References

Name Line Occurrences
QUIT SCREEN+3, SCREEN+4

Naked Globals

Name Field # of Occurrence
^( SCREEN+1
^(0 SCREEN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGBTACCT SCREEN+2*, SCREEN+3, ATTATT+1, ATT+2, ATT+4, ATT+5, ATT+9, ATT+10, ATT+11
ATT+13, DED+2
DGBTCNA SCREEN+10*, SCREEN+11, SCREEN+14*, QUIT!
DGBTCSZ SCREEN+10, SCREEN+11*, SCREEN+12*, SCREEN+14*, QUIT!
>> DGBTDT SCREEN+1, SCREEN+13, ACCT+2, ATT+1, ATT+2, ATT+7, DED+3, REMARK
>> DGBTDTE SCREEN+7
DGBTFCTY SCREEN+9*, SCREEN+12*, FROM+2, FROM+4, FROM+6, QUIT!
DGBTTCTY SCREEN+9*, SCREEN+14*, FROM+3, FROM+5, FROM+7, QUIT!
DGBTVAR SCREEN+1!
DGBTVAR( SCREEN+1*
DGBTVAR("A" ACCTATTATT+1, ATT+2, ATT+10
DGBTVAR("C" ACCT+2
DGBTVAR("D" SCREEN+10, SCREEN+11, SCREEN+12, FROMFROM+2, FROM+4, FROM+6
DGBTVAR("M" ATT+3, ATT+8, ATT+9, ATT+12, DED+2
DGBTVAR("T" SCREEN+13*, SCREEN+14, FROM+1, FROM+3, FROM+5, FROM+7
DGBTVAR(0 SCREEN+2, SCREEN+4, SCREEN+7, ELIGELIG+1, ACCTACCT+3, ATT+6, ATT+7, DED+1
DGX ATT+6*, ATT+7!
I SCREEN+1*, QUIT!
IOF SCREEN+5
>> PATCHDT ATT+1, ATT+2
U SCREEN+1*, SCREEN+2, SCREEN+4, SCREEN+7, SCREEN+8, SCREEN+10, SCREEN+11, SCREEN+12, SCREEN+13, SCREEN+14
FROMFROM+1, FROM+2, FROM+3, FROM+4, FROM+5, FROM+6, FROM+7, ELIGELIG+1
ACCTACCT+2, ACCT+3, ATTATT+1, ATT+2, ATT+3, ATT+6, ATT+7, ATT+8
ATT+9, ATT+10, ATT+12, DED+2, REMARK
>> VA("PID" SCREEN+8
VADAM QUIT!
VADAT ELIG+1!
VADAT("W" ELIG+1*
VADATE ELIG+1!
VADATE("E" ELIG+1
>> VADM(1 SCREEN+8
>> VADM(3 SCREEN+8
X ACCT+2*, ACCT+3*, ATT+3*, ATT+8*, ATT+11, ATT+12*, DEDDED+1*, DED+3*, QUIT!
X2 ACCT+2*, ACCT+3*, QUIT!
X3 ACCT+2~, ACCT+3~, ATT+3~, ATT+8~, ATT+11~, DED~, DED+3~
>> Y SCREEN+12*
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