DGBTUTL ;ALB/SCK - BENEFICIARY/TRAVEL UTILITY ROUTINES;11/14/11
Source file <DGBTUTL.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |