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

Package: Beneficiary Travel

Routine: DGBTUTL


Information

DGBTUTL ;ALB/SCK - BENEFICIARY/TRAVEL UTILITY ROUTINES;11/14/11

Source Information

Source file <DGBTUTL.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
MILES(DGBTRN,DGBTDX) ;
; DGBTRN holds the record no., and DGBTDX holds the division pointer passed in during the function call
DICLKUP(DGBTRN,DGBTDX,DGBTP) ;
DEPCTY(ZIPCDE) ;
DWAIVER(DFN,DGBTDCV,CLIEN) ;Get Deductible Waiver ***PAVEL
GA(DFN,AA,DGBTDTI,AB) ;Get Alternate Income on file
LI(DFN,DGBTDTI,DGBTDEP,FLAG,DGBTINCA) ;Low Income
EXIT ;
TEST ;
ABP(DGBTU) ;Function returns date if patient has an active bus pass. Function added in patch 20
MHELP ;help text for Mileage/One Way field. Field 32 file 392.
PAUSE(EXCEL) ;
YESNO(PROMPT) ;
DEVICE(RPTNAM,ROUTINE,DGBTEXCEL,COLWID) ;common device call for DGBT reports
SELEXCEL() ; - Returns whether to capture data for Excel report.
; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data)
HEXC ; - 'Do you want to capture data...' prompt
PRINTMSG ;common help message if user selects a printer
EXMSG ;common help message if user selects Excel option
RDV(DGBTRDV,DGBTDTI) ;this will process the remote sites for visits during current month.
NMRNG(PATNAME,SNAME,ENAME,RESULT) ;
SNAM(PNAM,SNAM) ;
ENAM(PNAM,ENAM) ;
DRDV(DFN,DGBTDCV,DGBTDTI,DLM) ;Used in remote data view to get local Deductible
NSC() ;
DAYFLAG() ; See if we have a valid income test

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DATE/TIME REQUIRED.."
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !,?5,"If patient used a common carrier, then the mileage entered here would be"
  • Line Location: MHELP+3
Function Call: WRITE
  • Prompt: !,?5,"only the mileage needed to get to the common carrier pick up point.",!
  • Line Location: MHELP+4
Function Call: WRITE
  • Prompt: !!!,PROMPT1
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SELEXCEL+5
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: HEXC+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: HEXC+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: HEXC+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: HEXC+4
Function Call: WRITE
  • Prompt: !!,"WARNING - THIS REPORT REQUIRES THAT A DEVICE WITH ",COLWID," COLUMN WIDTH BE USED."
  • Line Location: PRINTMSG+2
Function Call: WRITE
  • Prompt: !,"IT WILL NOT DISPLAY CORRECTLY USING 80 COLUMN WIDTH DEVICES",!
  • Line Location: PRINTMSG+3
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXMSG+1
Function Call: WRITE
  • Prompt: !?5,"detail report data. On some terminals, this can be done by"
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !?5,"Incoming Data' to save to Desktop. This report may take a"
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !?5,"while to run."
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the"
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !?5," file, please enter '0;512;999' at the 'DEVICE:' prompt.",!
  • Line Location: EXMSG+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGBT(392.1 - [#392.1] Classic Fileman Calls
^DGBT(392.9 - [#392.9] GETS^DIQ
^DGMT(408.31 - [#408.31] GET1^DIQ
^DG(43 - [#43] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call