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

Package: Beneficiary Travel

Routine: DGBTDW


Information

DGBTDW ;ALB/RFE - DEDUCTIBLE WAIVER SETUP/MAIN ENTRY CALLUP; 01/19/12

Source Information

Source file <DGBTDW.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
ENTRQ ; Keep prompting until we don't get a DFN
PATIENT ;
PENSION() ;
UPDATE ;
FILDLT ;
DATE ;
DATE1 ;
OTHR ; date/time entry for manually entered date
LOCKNEW(DGBTDTI,DONE) ;
PASTRQ ;
DELETE ;
OLD ; Previously entered waiver request dates
DEL ; Deleted waivers on file
LIST ;
DHELP ;
PENSDT() ;
CHOZ ; select from the displayed past claims dates for claim to be edited.
AUTH ; Deductible waiver authorized Y/N
RMRK ; Remarks
APPDT ; Waiver Approval Date
GRANT ; Waiver granted by:
EXP() ; Expiration date
EXPDT() ;
OLDREQ ;
EDITOLD() ;
DISPLAY ;
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Eligibility is missing from registration and is required to continue.",*7
  • Line Location: ENTRQ+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTRQ+7
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(2,DFN,.01)," ",DGBTDW("REQDT")
  • Line Location: ENTRQ+14
Function Call: WRITE
  • Prompt: !,"NAME: ",$$GET1^DIQ(2,DFN,.01)," DEDUCTIBLE WAIVER REQUEST DATE: ",DGBTDW("REQDT")
  • Line Location: ENTRQ+23
Function Call: WRITE
  • Prompt: !,$S(DGBTDW("AUTH")="YES":"GRANT",1:"DENI"),"ED BY: ",$$GET1^DIQ(200,DGBTDW("GRANT"),.01)," ON DATE: ",DGBTDW("APPDT")
  • Line Location: ENTRQ+24
Function Call: WRITE
  • Prompt: !,"Not completed"
  • Line Location: ENTRQ+26
Function Call: WRITE
  • Prompt: !,ERRMSG("DIERR",1,"TEXT",I)
  • Line Location: UPDATE+29
Function Call: WRITE
  • Prompt: !,"Date cannot precede ",$$FMTE^XLFDT($$FMADD^XLFDT(DT,-30))
  • Line Location: OTHR+2
Function Call: WRITE
  • Prompt: !,"Please enter another date/time"
  • Line Location: OTHR+13
Function Call: WRITE
  • Prompt: !,"No past dates on file, please enter a valid date/time"
  • Line Location: PASTRQ+1
Function Call: WRITE
  • Prompt: !!,"Request already on file for this year: "
  • Line Location: DELETE+2
Function Call: WRITE
  • Prompt: $$UP^XLFSTR($$FMTE^XLFDT(THISYR)),!
  • Line Location: DELETE+4
Function Call: WRITE
  • Prompt: !?5,I,". ",$P(PASTDT(I),"^")
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,"If there is more than one waiver request, select by number to edit."
  • Line Location: DHELP+2
Function Call: WRITE
  • Prompt: !,"You cannot enter a future date/time."
  • Line Location: DHELP+3
Function Call: WRITE
  • Prompt: !,"The date you enter cannot precede ",$$FMTE^XLFDT($$FMADD^XLFDT(DT,-30)),"."
  • Line Location: DHELP+4
Function Call: WRITE
  • Prompt: !,$$UP^XLFSTR(DGBTDW("REQDT"))
  • Line Location: PENSDT+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHOZ+3
Function Call: WRITE
  • Prompt: !?25,*7,"INVALID ENTRY"
  • Line Location: CHOZ+9
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(392.7,DGBTDTI,2)," ",$$GET1^DIQ(392.7,DGBTDTI,.01)
  • Line Location: CHOZ+10
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER AUTHORIZED YES"
  • Line Location: AUTH+1
Function Call: WRITE
  • Prompt: !,"Cannot be before request date"
  • Line Location: APPDT+7
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$$GET1^DIQ(392.7,DGBTIENS,2)
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER REQUEST DATE: ",$$GET1^DIQ(392.7,DGBTIENS,.01)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER AUTHORIZED?: ",AUTH
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER "
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: $S(AUTH="YES":"GRANT",1:"DENI"),"ED BY: ",$$GET1^DIQ(392.7,DGBTIENS,4)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER "
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: $S(AUTH="YES":"APPROV",1:"DENI"),"AL DATE: ",$$GET1^DIQ(392.7,DGBTIENS,5)
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER ENTERED BY: ",$$GET1^DIQ(392.7,DGBTIENS,6)
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER ENTRY DATE: ",$$GET1^DIQ(392.7,DGBTIENS,9)
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER EXPIRATION DATE: "
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: $S(I?7N:$$UP^XLFSTR($$FMTE^XLFDT(I)),1:I)
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER REMARKS: ",$$GET1^DIQ(392.7,DGBTIENS,7)
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: !,"DEDUCTIBLE WAIVER DELETION DATE: ",DENYDT
  • Line Location: DISPLAY+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^DGBT(392.7 - [#392.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call