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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call