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

Package: Beneficiary Travel

Routine: DGBTCDSP


Information

DGBTCDSP ;;ALB/BLD - BENEFICIARY TRAVEL CLAIM DISPLAY - SPECIAL MODE;02/03/2012

Source Information

Source file <DGBTCDSP.m>

Entry Points

Name Comments DBIA/ICR reference
SCREEN ;this will display the information screen at the end of a claim
FROM
ELIG
ACCT
BLDARRY(DGBTSP) ;
END ;display menu prompt at bottom of screen

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+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+10
Function Call: WRITE
  • Prompt: !?18,"Beneficiary Travel Claim Information <Display>"
  • Line Location: SCREEN+11
Function Call: WRITE
  • Prompt: !!,?2,"Claim Date: ",$S($G(DGBTDTE)'="":DGBTDTE,1:VADATE("E")) W:$G(DGBTINST("DIVISION"))'=""
  • Line Location: SCREEN+12
Function Call: WRITE
  • Prompt: !!,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),U,2)
  • Line Location: SCREEN+14
Function Call: WRITE
  • Prompt: !!," Depart From: ",$G(DGBTSP("PLACE OF DEPARTURE"))
  • Line Location: FROM+0
Function Call: WRITE
  • Prompt: ?46,"To: ",$G(DGBTINST("INST NAME"))
  • Line Location: FROM+1
Function Call: WRITE
  • Prompt: !?14,DGBTSP("CITY OF DEPARTURE")_", "_DPSTATE_" "_DGBTSP("ZIP CODE/DEPARTURE")
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: ?50,DGBTINST("ADDRESS1")
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: !,?50,$G(DGBTINST("CITY"))_", "_TOSTATE_" "_$G(DGBTINST("ZIP CODE"))
  • Line Location: FROM+4
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%: ",$S($P(DGBTVAR(0),U,4)="":0,1:$P(DGBTVAR(0),U,4))
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: !!,"Account: ",$G(DGBTSP("ACCOUNT"))
  • Line Location: ACCT+0
Function Call: WRITE
  • Prompt: !!,"Mode/Trans: ",$G(DGBTSP("MODE OF TRANS"))
  • Line Location: ACCT+2
Function Call: WRITE
  • Prompt: ?45,"One Way/Round Trip: "
  • Line Location: ACCT+4
Function Call: WRITE
  • Prompt: ?67,$J(X,11)
  • Line Location: ACCT+5
Function Call: WRITE
  • Prompt: !,"Carrier: ",$$GET1^DIQ(392,DGBTDT_",",71)
  • Line Location: ACCT+7
Function Call: WRITE
  • Prompt: ?45,"Total Miles Traveled: "
  • Line Location: ACCT+9
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+10
Function Call: WRITE
  • Prompt: !,"Invoice: ",$G(DGBTSP("INVOICE NUMBER"))
  • Line Location: ACCT+12
Function Call: WRITE
  • Prompt: ?45,"Base Rate Fee: "
  • Line Location: ACCT+14
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+15
Function Call: WRITE
  • Prompt: !,"Date Received: ",$G(DGBTSP("DT INVOICE REC"))
  • Line Location: ACCT+17
Function Call: WRITE
  • Prompt: ?45,"Mileage Fee: "
  • Line Location: ACCT+19
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+20
Function Call: WRITE
  • Prompt: !,"Pre-Authorized: ",$G(DGBTSP("PRE-AUTHORIZED"))
  • Line Location: ACCT+22
Function Call: WRITE
  • Prompt: ?45,"No-Show/No Load Fee: "
  • Line Location: ACCT+24
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+25
Function Call: WRITE
  • Prompt: !,"Payment: ",$S($G(PAYMENT)="YES":"APPROVED",$G(DGBTSP("AUTHORIZED"))="YES":"APPROVED",1:"DENIED")
  • Line Location: ACCT+28
Function Call: WRITE
  • Prompt: ?45,"Wait Time Fee: "
  • Line Location: ACCT+30
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+31
Function Call: WRITE
  • Prompt: !,"Auth. Person: ",$$GET1^DIQ(392,DGBTDT_",",12)
  • Line Location: ACCT+34
Function Call: WRITE
  • Prompt: ?45,"Extra Crew Fee: "
  • Line Location: ACCT+36
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCT+39
Function Call: WRITE
  • Prompt: ?45,"Equipment Fee: "
  • Line Location: ACCT+41
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+42
Function Call: WRITE
  • Prompt: !,?45,"Total Invoice Amount: "
  • Line Location: ACCT+44
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: ACCT+45
Function Call: WRITE
  • Prompt: !!,"Remarks: ",$G(DGBTSP("SP MODE OTHER REMARKS"))
  • Line Location: ACCT+47

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