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

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

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

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