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

Package: Beneficiary Travel

Routine: DGBTE


Information

DGBTE ;ALB/SCK/BLD - BENEFICIARY TRAVEL SETUP/MAIN ENTRY CALL UP ; 1/5/24 11:28am

Source Information

Source file <DGBTE.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Beneficiary Travel 11 SCREEN^DGBT1  SCREEN^DGBT2  (END,SCREEN)^DGBTCDSP  DGBTDR^DGBTDLT  ^DGBTE1  SCREEN^DGBTEE  (,DELETE,DELETE1,KVAR,QUIT,QUIT1)^DGBTEND  (CLEANUP,EN,RESTART)^DGBTSP  
FILE^DGBTSP1  $$NSC^DGBTUTL  ($$ELIG,RESADDR)^DGBTUTL1  
VA FileMan 5 ^%DT  ^DIC  YN^DICN  (,FILE)^DIE  ^DIR  
Kernel 2 ^%ZIS  $$DT^XLFDT  
Registration 1 (6,PID)^VADPT  

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

Package Total Caller Graph
Beneficiary Travel 4 DGBT BENE TRAVEL SCREEN  DGBTE1  DGBTEND  DGBTSP1  

Entry Points

Name Comments DBIA/ICR reference
START ;
DIVISN ; if MED CTR DIV file set up (first record) and record does not exist, write warning, kill variables, and exit
PATIENT ; patient lookup, quit if patient doesn't exist
OLDCLAIM ; find any past claims through DGBTE1 call
COREFLS ; coreFLS vendor interface active/inactive
SCREEN ; display B/T claim information through screen1
SPMODE ;BLD DGBT*1*20 - SPMODE line tag will display question whether or special mode claim or mileage claim
; CLMTYP = type of BT claim, Mileage or Special Mode
SCREEN2 ;
COMPLT ; complete claims processing
HELP1 ;
INSTIT ; check for pointer to institution file and for address information on institution
EXIT ; kills off all variables before quitting
EXIT2 ; delete claim through DIK call, return to patient label
EXIT3 ;
PATCH ;this return the date DGBT*1.0*20 was first loaded

External References

Name Field # of Occurrence
^%DT START+11
^%ZIS START+8
SCREEN^DGBT1 SCREEN+2
SCREEN^DGBT2 SCREEN2+3
END^DGBTCDSP EXIT+2
SCREEN^DGBTCDSP COMPLT+8
DGBTDR^DGBTDLT SPMODE+7
^DGBTE1 OLDCLAIM+1
SCREEN^DGBTEE COMPLT+11
^DGBTEND COMPLT+14
DELETE^DGBTEND EXIT3+3
DELETE1^DGBTEND SCREEN+13, COMPLT+12, EXIT2+1, EXIT3+1
KVAR^DGBTEND PATIENT+9
QUIT^DGBTEND START+6, PATIENT+2, EXIT+1, EXIT+3
QUIT1^DGBTEND PATIENT+4
CLEANUP^DGBTSP SCREEN+9, SPMODE+4, SPMODE+10, SCREEN2+1
EN^DGBTSP SPMODE+4
RESTART^DGBTSP SPMODE+10
FILE^DGBTSP1 COMPLT+8
$$NSC^DGBTUTL PATIENT+12
$$ELIG^DGBTUTL1 SCREEN+10
RESADDR^DGBTUTL1 PATIENT+9
^DIC DIVISN+5, PATIENT+6
YN^DICN COMPLT+3, COMPLT+7
^DIE SPMODE+9, COMPLT+6
FILE^DIE SCREEN+21
^DIR SCREEN+8
6^VADPT PATIENT+9
PID^VADPT PATIENT+9
$$DT^XLFDT PATIENT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",!,"USE THE ADT PARAMETER OPTION FILE TO SET UP DIVISION"
  • Line Location: DIVISN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIVISN+4
Function Call: WRITE
  • Prompt: !!,"***WARNING...BENE TRAVEL PARAMETERS HAVE NOT BEEN SET UP",!,"USE THE BENEFICIARY TRAVEL PARAMETER RATES ENTER/EDIT OPTION TO PROPERLY INITIALIZE"
  • Line Location: OLDCLAIM+4
Function Call: WRITE
  • Prompt: !!,"Eligibility is missing from registration and is required to continue.",*7
  • Line Location: SCREEN+5
Function Call: WRITE
  • Prompt: !!," Eligible: ",$P(DGBTELL,U,2),!!
  • Line Location: SCREEN+11
Function Call: WRITE
  • Prompt: !!,"Not Eligible: ",$P(DGBTELL,U,2),!!
  • Line Location: SCREEN+12
Function Call: WRITE
  • Prompt: !!,"The patients record is currently locked..."
  • Line Location: SCREEN+22
Function Call: WRITE
  • Prompt: !!?10,$S(%=-1:"SORRY, '^' NOT ALLOWED",1:"ENTER 'Y'ES OR 'N'O")
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !!,"INSTITUTION HAS NOT BEEN DEFINED FOR ",$P(^(0),"^"),!,"USE THE ADT PARAMETER OPTION TO UPDATE",!
  • Line Location: INSTIT+2
Function Call: WRITE
  • Prompt: !!,"INSTITUTION ADDRESS NOT ENTERED. PLEASE UPDATE USING THE INSTITUTION FILE ENTER/EDIT",!
  • Line Location: INSTIT+3
Routine Call
  • DIC
  • Line Location:
    • DIVISN+5
    • PATIENT+6
Routine Call
  • DIE
  • Line Location:
    • SPMODE+9
    • COMPLT+6
Routine Call
  • DIE
  • Line Location:
    • SCREEN+21
Routine Call
  • DIR
  • Line Location:
    • SCREEN+8
Routine Call
  • %ZIS
  • Line Location:
    • START+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGBT(392 - [#392] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIVISN+1, DIVISN+10, INSTIT+1
^DG(43 - [#43] DIVISN+3, OLDCLAIM+2, COREFLS+1
^DG(43.1 - [#43.1] OLDCLAIM+2
^DGBT(392 - [#392] PATIENT+10, SCREEN+4, SPMODE+4!, SPMODE+9, SCREEN2+1, COMPLT+3!, COMPLT+6, COMPLT+9!, EXIT3+1, EXIT3+2
^DIC(4 - [#4] INSTIT+3
^XPD(9.7 - [#9.7] PATCH+3, PATCH+4
^XTMP("DGBT BTD" PATIENT+15*, PATIENT+16*

Label References

Name Line Occurrences
COMPLT COMPLT+3, COMPLT+5
EXIT DIVISN+1, DIVISN+3, PATIENT+6, SCREEN+2, SCREEN+23, SPMODE+4, SPMODE+5, SPMODE+10, COMPLT+5, COMPLT+8
, COMPLT+10
EXIT2 OLDCLAIM+2, SCREEN+2, SCREEN+5, SCREEN+9, SPMODE+4, SPMODE+5, SPMODE+10, SCREEN2+1, COMPLT+3, COMPLT+5
EXIT3 COMPLT+5, COMPLT+13
HELP1 COMPLT+3, COMPLT+5
INSTIT DIVISN+7, DIVISN+10
PATCH START+7
PATIENT DIVISN+3, OLDCLAIM+1, SCREEN+2, SCREEN+9, SPMODE+4, SPMODE+5, SPMODE+10, SCREEN2+2, COMPLT+3, COMPLT+8

Naked Globals

Name Field # of Occurrence
^("GL" DIVISN+3
^(0 INSTIT+2
^(1 INSTIT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % COMPLT+3*, COMPLT+5, COMPLT+6*, COMPLT+7*, HELP1+1
>> %DT START+11*
>> ANS SCREEN+8*, SCREEN+9
>> CHZFLG SCREEN+2, SCREEN+13, SPMODE+4, SPMODE+5, SPMODE+9, COMPLT+3, COMPLT+6, COMPLT+7
CLMTYPE START+2~
>> DA SPMODE+9*, COMPLT+6*
>> DFN PATIENT+9*, PATIENT+10, PATIENT+16, SCREEN+10, SCREEN2+1, SCREEN2+2
DGANS START+2~, DIVISN+3, DIVISN+8, PATIENT+6*, SCREEN+6, COMPLT+8, EXIT+1
>> DGBTA OLDCLAIM+1
>> DGBTADDR PATIENT+9
DGBTAPPTYP START+2~, PATIENT+11*
DGBTCMTY START+2~, SPMODE+10, COMPLT+2, COMPLT+5, COMPLT+9, COMPLT+10, COMPLT+12, EXIT+2, EXIT3+1
>> DGBTCORE COREFLS+1*
>> DGBTCPAP SCREEN+16
DGBTDCLM START+2~
DGBTDIV START+2~, DIVISN+6*, DIVISN+10*
DGBTDIVI START+2~, DIVISN+6*, DIVISN+10*, PATIENT+8*, SPMODE+9, COMPLT+6, INSTIT+1
DGBTDIVN START+2~, INSTIT+1*, INSTIT+2, INSTIT+3
>> DGBTDT OLDCLAIM+2, SCREEN+4, SPMODE+9, COMPLT+6, COMPLT+9, EXIT3+1, EXIT3+2
>> DGBTDTE COMPLT+3, COMPLT+7
>> DGBTDTI SCREEN+16, SCREEN+17, SCREEN+18, SCREEN+19, SCREEN+20, SPMODE+4, SCREEN2+1, COMPLT+3
DGBTDTY START+2~
DGBTELL SCREEN+10~*, SCREEN+11, SCREEN+12, SCREEN+13, SCREEN+17, SCREEN+20, SPMODE+5
DGBTFDA START+4!
>> DGBTIME START+9*
DGBTINCA START+2~
>> DGBTMD DIVISN+7*
>> DGBTNEW PATIENT+10*
>> DGBTNSC PATIENT+12*
>> DGBTOLD PATIENT+3*, SCREEN+13*
DGBTPDIV START+2~, DIVISN+6*, DIVISN+10*, PATIENT+8
>> DGBTQAP SCREEN+19
DGBTQUIT SCREEN+1~, SCREEN+2
>> DGBTSCAP SCREEN+18
>> DGBTSP SPMODE+3*, SPMODE+4, SCREEN2+1, SCREEN2+2, COMPLT+5, COMPLT+8
>> DGBTTOUT PATIENT+5*, SCREEN+13*, SPMODE+4, SPMODE+5, SPMODE+7, SPMODE+10*, COMPLT+7*, COMPLT+12, COMPLT+13, EXIT3+1*
, EXIT3+2*
DGBTX1 START+4!
DIC DIVISN+4*, DIVISN+5!, PATIENT+5*, PATIENT+6!
DIC("A" DIVISN+4*, PATIENT+5*
DIC(0 DIVISN+4*, PATIENT+5*
>> DIE SPMODE+9*, COMPLT+6*
DIR SCREEN+8!
DIR("?" SCREEN+7*
DIR("A" SCREEN+7*
DIR("B" SCREEN+7*
DIR(0 SCREEN+7*
>> DR SPMODE+9*, COMPLT+6*
DT START+11*, SPMODE+9, COMPLT+6
DTIME START+9*
>> DTOUT SPMODE+4, SPMODE+10
>> DUOUT SPMODE+4, SPMODE+10
DUZ PATIENT+16, SPMODE+9, COMPLT+6
>> ENDMENU SCREEN+3
ERRMSG START+4!, SCREEN+15!, SCREEN+22, SCREEN+23
ERRMSG("DIERR" SCREEN+22
FDA SCREEN+15!
FDA(392 SCREEN+16*, SCREEN+17*, SCREEN+18*, SCREEN+19*, SCREEN+20*
>> I COMPLT+9*
INSTIT START+2~
IOM START+2~
IOP START+8*!
>> NOLINE COMPLT+8*
PATCHDT START+2~, PATCH+4*
PATCHNBR PATCH+2~, PATCH+3*, PATCH+4
>> PRCABN START+8*
REMARKS START+2~
>> S START+11*
SGCOMPLETE START+4!
>> SPCOMPLETE PATIENT+11*, SCREEN+4*, SCREEN+9*, SPMODE+3*, SPMODE+4, SPMODE+10, COMPLT+2*, COMPLT+3*, COMPLT+8, COMPLT+10
>> SPCOMPLTE SPMODE+10
SPMODE START+2~
TRNSMDE START+2~
U START+9*, DIVISN+3, DIVISN+6, DIVISN+10, COREFLS+1, SCREEN+11, SCREEN+12, SPMODE+9, COMPLT+6
VAEL PATIENT+1~
VAEL(1 SCREEN+5
>> X DIVISN+1*
>> Y START+11, DIVISN+3, DIVISN+5, DIVISN+6, PATIENT+6, PATIENT+9, SCREEN+8
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