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

Package: Beneficiary Travel

Routine: DGBTDLT1


Information

DGBTDLT1 ;UNK/BLD - REPRINT BENEFICIARY TRAVEL DENIAL LETTER ; 1/8/24 12:37pm

Source Information

Source file <DGBTDLT1.m>

Entry Points

Name Comments DBIA/ICR reference
REPRINT ;
LTR ;
PATIENT ; patient lookup, quit if patient doesn't exist
LIST2 ; find all previous claims, get total count in DGBTC and put those claims in utility file
LIST3 ; list claims (in external format) from temporary global, 5 at a time. Loop thru list until selection made.
CHOZ ; select from the displayed past claims dates for claim to be edited.
DIVISN(DGBTINST) ; if MED CTR DIV file set up (first record) and record does not exist, write warning, kill variables, and exit
INSTIT(DGBTINST) ; check for pointer to institution file and for address information on institution
HEADER(DGBTINST) ;this will print all of the standard information at the top of the letter. IT WILL NOT PRINT LOGO'S ETC
DEVICE(DGBTRPT)
QUIT ;will kill all local variables used by this routine

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: REPRINT+4
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: REPRINT+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: REPRINT+12
Function Call: WRITE
  • Prompt: !!,"THERE ARE NO DENIAL LETTERS TO PRINT FOR: ",VADM(1)
  • Line Location: REPRINT+19
Function Call: WRITE
  • Prompt: !!?10,"There are no entries on file for this patient",!
  • Line Location: LIST2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST3+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHOZ+3
Function Call: WRITE
  • Prompt: !?25,*7,"INVALID ENTRY!"
  • Line Location: CHOZ+8
Function Call: WRITE
  • Prompt: !!,"INSTITUTION HAS NOT BEEN DEFINED FOR ",$P(^(0),"^"),!,"USE THE ADT PARAMETER OPTION TO UPDATE",!
  • Line Location: INSTIT+3
Function Call: WRITE
  • Prompt: !!,"INSTITUTION ADDRESS NOT ENTERED. PLEASE UPDATE USING THE INSTITUTION FILE ENTER/EDIT",!
  • Line Location: INSTIT+4
Function Call: WRITE
  • Prompt: !,?LOC/2,ORG
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !,?LOC/2,INSTNAME
  • Line Location: HEADER+22
Function Call: WRITE
  • Prompt: !,?LOC/2,ADD1
  • Line Location: HEADER+23
Function Call: WRITE
  • Prompt: !,?LOC/2,ADD2
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: !,?LOC/2,CITYSTZIP,!
  • Line Location: HEADER+26
Function Call: WRITE
  • Prompt: !?LOC,$P(DGBTDTE,"@",1)
  • Line Location: HEADER+27
Function Call: WRITE
  • Prompt: !,?LOC,DGBTDTFILED
  • Line Location: HEADER+31
Function Call: WRITE
  • Prompt: !,?LOC,DGBTINST("FAC NUMBER")
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: ?LOC,$E(VADM(1),1)_$E($P(VADM(2),"^",1),6,99)
  • Line Location: HEADER+34
Function Call: WRITE
  • Prompt: !,?LOC2,$G(PATSEX),$G(PATNAME)
  • Line Location: HEADER+35
Function Call: WRITE
  • Prompt: !,?LOC2,$G(PATADD1)
  • Line Location: HEADER+36
Function Call: WRITE
  • Prompt: !,?LOC2,PATCITY,PATST,PATZIP,!!
  • Line Location: HEADER+38
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] GET1^DIQ
^DGBT(392 - [#392] GET1^DIQ
^DGBT(392.6 - [#392.6] GET1^DIQ
^DGBT(392.8 - [#392.8] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] Classic Fileman Calls,  GET1^DIQ
^DIC(49 - [#49] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call