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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 COMMA^%DTC  $$GET1^DIQ  ^DIR  
Beneficiary Travel 1 QUIT^DGBTEND  
Registration 1 PID^VADPT6  

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 DGBTE  DGBTR  

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

External References

Name Field # of Occurrence
COMMA^%DTC ACCT+10, ACCT+15, ACCT+20, ACCT+25, ACCT+31, ACCT+37, ACCT+42, ACCT+45
QUIT^DGBTEND SCREEN+9
$$GET1^DIQ ACCT+7, ACCT+27, ACCT+34, BLDARRY+2, BLDARRY+4, BLDARRY+5, BLDARRY+6, BLDARRY+7, BLDARRY+8, BLDARRY+9
, BLDARRY+10, BLDARRY+11, BLDARRY+12, BLDARRY+13, BLDARRY+14, BLDARRY+15, BLDARRY+16, BLDARRY+17, BLDARRY+18, BLDARRY+20
, BLDARRY+21, BLDARRY+23, BLDARRY+24, BLDARRY+25, BLDARRY+26, BLDARRY+28, BLDARRY+29, BLDARRY+30, BLDARRY+31, BLDARRY+32
, BLDARRY+33, BLDARRY+35, BLDARRY+36, BLDARRY+39
^DIR END+8
PID^VADPT6 SCREEN+13

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
Routine Call
  • DIR
  • Line Location:
    • END+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGBT(392 - [#392] SCREEN+5
^DIC(5 - [#5] SCREEN+6, SCREEN+7
^DIC(8 - [#8] ELIG

Label References

Name Line Occurrences
@( END+10, END+11
BLDARRY SCREEN+4
END ACCT+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGANS END+3!, END+5, END+8*, END+9, END+10!, END+11
>> DGBTACCT SCREEN+8*, SCREEN+9
DGBTCMTY ACCT+51!
>> DGBTDT SCREEN+3*, SCREEN+5, ACCT+7, ACCT+27, ACCT+34, BLDARRY+2, BLDARRY+4, BLDARRY+5, BLDARRY+6, BLDARRY+7
, BLDARRY+8, BLDARRY+9, BLDARRY+10, BLDARRY+11, BLDARRY+12, BLDARRY+13, BLDARRY+14, BLDARRY+15, BLDARRY+16, BLDARRY+17
, BLDARRY+18, BLDARRY+20, BLDARRY+21, BLDARRY+23, BLDARRY+24, BLDARRY+25, BLDARRY+26, BLDARRY+28, BLDARRY+29, BLDARRY+30
, BLDARRY+31, BLDARRY+32, BLDARRY+33, BLDARRY+35, BLDARRY+36, BLDARRY+39
>> DGBTDTE SCREEN+12
>> DGBTDTI SCREEN+3
>> DGBTFCTY SCREEN+15*
>> DGBTINST("ADDRESS1" FROM+3, BLDARRY+30*
>> DGBTINST("CITY" FROM+4, BLDARRY+31*
>> DGBTINST("DIVISION" SCREEN+12, BLDARRY+28*
>> DGBTINST("INS T NAME" , FROM+1, BLDARRY+29*
>> DGBTINST("STATE" SCREEN+7, BLDARRY+32*
>> DGBTINST("ZIP CODE" , FROM+4, BLDARRY+33*
DGBTSP SCREEN+4, ACCT+51!, BLDARRY~, BLDARRY+1!, END+5
DGBTSP("ACCOUNT" SCREEN+8, ACCT, BLDARRY+2*
DGBTSP("AUTHO RIZED PERSON" , BLDARRY+39*
DGBTSP("AUTHORIZED" ACCT+28, BLDARRY+38
DGBTSP("BASE RATE FEE" , ACCT+15, BLDARRY+9*
DGBTSP("CITY OF DEPARTURE" , FROM+2, BLDARRY+24*
DGBTSP("CLAIM TYPE" , BLDARRY+4*
DGBTSP("DATE/ TIME AUTHORIZED" , BLDARRY+36*
DGBTSP("DT IN VOICE REC" , ACCT+17, BLDARRY+7*
DGBTSP("EXTRA CREW" , ACCT+37, BLDARRY+13*
DGBTSP("INVOI CE NUMBER" , ACCT+12, BLDARRY+6*
DGBTSP("MILEA GE FEE" , ACCT+20, BLDARRY+10*
DGBTSP("MODE OF TRANS" , ACCT+2, BLDARRY+5*
DGBTSP("NO SH OW" , ACCT+25, BLDARRY+11*
DGBTSP("OTHER TRANS REMARKS" , BLDARRY+17*
DGBTSP("PLACE OF DEPARTURE" , FROM, BLDARRY+21*,  OF DEPATURE 2" , BLDARRY+23*
DGBTSP("PRE-AUTHORIZED" ACCT+22, BLDARRY+18*
DGBTSP("RT/ON E WAY" , ACCT+5, BLDARRY+15*
DGBTSP("SP EQ UIP" , ACCT+42, BLDARRY+14*
DGBTSP("SP MO DE CLAIM AUTHORIZED" , BLDARRY+35*, DE OTHER REMARKS" , ACCT+47, BLDARRY+20*
DGBTSP("STATE OF DEPARTURE" , SCREEN+6, BLDARRY+25*
DGBTSP("TOTAL INVOICE" , ACCT+45, BLDARRY+8*,  MILES" , ACCT+10, BLDARRY+16*
DGBTSP("WAIT TIME" , ACCT+31, BLDARRY+12*
DGBTSP("ZIP C ODE/DEPARTURE" , FROM+2, BLDARRY+26*
DGBTSPFG END+2~, END+5, END+10*
>> DGBTTCTY SCREEN+15*
>> DGBTVAR(0 SCREEN+5*, ELIG
>> DGBTX1 END+9*, END+10, END+11
DIR END+8!
DIR("?" END+7*
DIR("A" END+7*
DIR("B" END+7*
DIR(0 END+7*
>> DIRUT END+5
DPSTATE SCREEN+1~, SCREEN+6*, FROM+2
INFOLINE SCREEN+1~, SCREEN+2*, ACCT+49, ACCT+51, BLDARRY+40*
IOF SCREEN+10
>> PAYMENT ACCT+27*, ACCT+28
PROMPT END+2~, END+6*, END+7
>> SPCOMPLETE END+4*
TOSTATE SCREEN+1~, SCREEN+7*, FROM+4
U SCREEN+14, ELIG
>> VA("PID" SCREEN+14
>> VADATE("E" SCREEN+12
>> VADM(1 SCREEN+14
>> VADM(3 SCREEN+14
>> X ACCT+5*, ACCT+10*, ACCT+15*, ACCT+20*, ACCT+25*, ACCT+31*, ACCT+37*, ACCT+42*, ACCT+45*
>> X2 ACCT+10*, ACCT+15*, ACCT+20*, ACCT+25*, ACCT+31*, ACCT+37*, ACCT+42*, ACCT+45*
>> Y END+8
Z SCREEN+1~, END+6*
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 |  Local Variables  | All