Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGBTDLT

Package: Beneficiary Travel

Routine: DGBTDLT


Information

DGBTDLT ;BLD-BENEFICIARY TRAVEL DENIAL LETTER TEMPLATES; 03/04/2012@1400; 03/04/2012

Source Information

Source file <DGBTDLT.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 8 DD^%DT  ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  EN^DIWE  ^DIWP  ^DIWW  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Registration 1 (6,DEM,PID)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Beneficiary Travel 6 DGBT EDIT DENIAL LETTERS  DGBTDLT1  DGBTE  DGBTSP  DGBTSP1  DGBTUTL1  

Entry Points

Name Comments DBIA/ICR reference
LTR ;
EN ;entry point for denial letter templates.
PATIENT ; patient lookup, quit if patient doesn't exist
INSTIT(DGBTINST) ; check for pointer to institution file and for address information on institution
EDIT ;this will invoke the screen editor
CLRLTR(DENIED) ;
MENU(DGIEN) ;allow user to select which letter to edit
DGBTDR ;will ask for the denial reason
SETUP(DGIEN) ;this will set up ^TMP global for editing
DEVICE(RPTNAM,ROUTINE) ;common device call for DGBT reports
DEVICE1(DGBTRPT) ;
HEADER(DGBTINST) ;this will print all of the standard information at the top of the letter. IT WILL NOT PRINT LOGO'S ETC
DIVISN(DGBTINST) ; if MED CTR DIV file set up (first record) and record does not exist, write warning, kill variables, and exit

External References

Name Field # of Occurrence
DD^%DT CLRLTR+12
^%ZIS DEVICE+8, DEVICE1+3
HOME^%ZIS DEVICE+20, DEVICE1+17
^%ZISC LTR+40
^%ZTLOAD DEVICE+18, DEVICE1+15
^DIC DGBTDR+21, PATIENT+5
FILE^DIE DGBTDR+48, CLRLTR+15
$$GET1^DIQ DGBTDR+9, DGBTDR+10, DGBTDR+11, DGBTDR+12, DGBTDR+13, DGBTDR+18, DGBTDR+25, DGBTDR+30, DGBTDR+47, DGBTDR+49
, LTR+10, LTR+11, LTR+14, LTR+21, LTR+28, LTR+35, HEADER+28, INSTIT+10, INSTIT+11, INSTIT+12
, INSTIT+13, INSTIT+14, INSTIT+15, INSTIT+16, INSTIT+18, CLRLTR+4, CLRLTR+6, CLRLTR+7
^DIR MENU+8, MENU+18, MENU+28, DGBTDR+33
EN^DIWE EDIT+8
^DIWP LTR+16, LTR+19, LTR+22, LTR+30, LTR+33, LTR+36
^DIWW LTR+24, LTR+38
6^VADPT PATIENT+7
DEM^VADPT HEADER+14
PID^VADPT PATIENT+7
$$FMTE^XLFDT DGBTDR+27, DGBTDR+35, DGBTDR+44, DGBTDR+46, HEADER+30, CLRLTR+6
$$NOW^XLFDT CLRLTR+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DGBTDR+3
Function Call: WRITE
  • Prompt: !!,"Denial Reason Required. '^' to exit.",!
  • Line Location: DGBTDR+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGBTDR+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DGBTDR+42
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: !!,"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: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE1+16
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+20
    • DEVICE1+17
Routine Call
  • DIE
  • Line Location:
    • DGBTDR+48
    • CLRLTR+15
Routine Call
  • DIC
  • Line Location:
    • DGBTDR+21
    • PATIENT+5
Routine Call
  • DIR
  • Line Location:
    • MENU+8
    • MENU+18
    • MENU+28
    • DGBTDR+33
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+8
    • DEVICE1+3

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] Classic Fileman Calls,  GET1^DIQ
^DGBT(392.8 - [#392.8] Classic Fileman Calls,  GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^DIC(49 - [#49] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIVISN+2, INSTIT+2
^DGBT(392 - [#392] PATIENT+8
^DGBT(392.6 - [#392.6] SETUP+2, SETUP+4
^DIC(4 - [#4] INSTIT+4, INSTIT+6, INSTIT+7
^DIC(49 - [#49] INSTIT+17
^TMP("DGBTDLT" EN+4!, SETUP+4*
^TMP($J EDIT+2!
^UTILITY($J DGBTDR+4!, LTR+3!

Label References

Name Line Occurrences
CLRLTR DGBTDR+36
DEVICE DGBTDR+50
DIVISN LTR+4
EDIT EN+11
HEADER LTR+5
INSTIT DIVISN+1, DIVISN+2
LTR DGBTDR+52
MENU EN+10

Naked Globals

Name Field # of Occurrence
^(0 INSTIT+3
^(1 INSTIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLRLTR+2~
%ZIS DEVICE+2~, DEVICE+7*, DEVICE1+1~, DEVICE1+2*
ADD1 HEADER+4~, HEADER+8*, HEADER+23
ADD2 HEADER+4~, HEADER+9*, HEADER+24
CITY HEADER+4~, HEADER+10*, HEADER+25
>> CITYSTZIP HEADER+25*, HEADER+26
CNT EN+2~, SETUP+1*, SETUP+2*, SETUP+4
COUNTER EN+2~, SETUP+1*, SETUP+3*, SETUP+4
DENIED CLRLTR~, CLRLTR+5
>> DFN PATIENT+7*, PATIENT+8
>> DGANS PATIENT+3*
DGBTCDT LTR+2~
DGBTCDT(1 LTR+9*
DGBTCDT(2 LTR+10*
DGBTCDT(3 LTR+11*
>> DGBTCMTY DGBTDR+20, LTR+13, LTR+27
>> DGBTDIV DIVISN+1, DIVISN+2*
DGBTDIVI EN+2~, DIVISN+1, DIVISN+2*, INSTIT+2, INSTIT+16
DGBTDIVN EN+2~, INSTIT+2*, INSTIT+3, INSTIT+4, INSTIT+6, INSTIT+7, INSTIT+10, INSTIT+11, INSTIT+12, INSTIT+13
, INSTIT+14, INSTIT+15
>> DGBTDL("CLAIM DENIED" , DGBTDR+11*, DGBTDR+26*, CLRLTR+5*
>> DGBTDL("DENIE D REASON" , DGBTDR+13*, DGBTDR+25*, DGBTDR+47, CLRLTR+7*
>> DGBTDL("DT DE NIED" , DGBTDR+12*, DGBTDR+27*, DGBTDR+46, CLRLTR+6*
>> DGBTDL("ISSUE D DATE" , DGBTDR+10*, DGBTDR+35*, DGBTDR+44
>> DGBTDL("ISSUED" DGBTDR+9*, DGBTDR+35*, DGBTDR+36*, DGBTDR+38, CLRLTR+4*
DGBTDNLTR DGBTDR+2~, DGBTDR+38*, DGBTDR+43
DGBTDR DGBTDR+2~
>> DGBTDT DGBTDR+18, DGBTDR+30
>> DGBTDTE LTR+9
DGBTDTFILED HEADER+4~, HEADER+28*, HEADER+29*, HEADER+30*, HEADER+31
>> DGBTDTI DGBTDR+9, DGBTDR+10, DGBTDR+11, DGBTDR+12, DGBTDR+13, DGBTDR+43, DGBTDR+44, DGBTDR+45, DGBTDR+46, DGBTDR+47
, HEADER+28, CLRLTR+4, CLRLTR+6, CLRLTR+7, CLRLTR+9, CLRLTR+10, CLRLTR+11, CLRLTR+13, CLRLTR+14
DGBTFDA DGBTDR+2~, DGBTDR+48!, CLRLTR+2~, CLRLTR+15!
DGBTFDA(392 DGBTDR+43*, DGBTDR+44*, DGBTDR+45*, DGBTDR+46*, DGBTDR+47*, CLRLTR+9*, CLRLTR+10*, CLRLTR+11*, CLRLTR+13*, CLRLTR+14*
DGBTINST EN+2~, LTR+4, LTR+5, HEADER~, DIVISN~, DIVISN+1, DIVISN+2, INSTIT~
DGBTINST("FAC NUMBER" , HEADER+32, INSTIT+16*
DGBTINST("INS T ADDRESS 1" , HEADER+8, INSTIT+11*, T ADDRESS 2" , HEADER+9, INSTIT+12*, T CITY" , HEADER+10, INSTIT+13*, T NAME"
, HEADER+7, INSTIT+10*, T STATE" , HEADER+11, INSTIT+14*, T ZIP CODE" , HEADER+12, INSTIT+15*
DGBTINST("MAI L CODE" , HEADER+33, INSTIT+18*
DGBTINST("ORG NAME" , HEADER+2, HEADER+6, INSTIT+9*
DGBTISSUED DGBTDR+2~, DGBTDR+36
DGBTLTR EN+2~
DGBTLTR("LETT ER TYPE" , MENU+9*, MENU+11, MENU+21
>> DGBTNEW PATIENT+8*
>> DGBTOLD PATIENT+2*
>> DGBTQ DGBTDR+51, DEVICE+6*, DEVICE+9*, DEVICE+14*, DEVICE1+4*, DEVICE1+5*, DEVICE1+8, DEVICE1+10*
>> DGBTQ1 DEVICE+6*
DGBTRPT DEVICE1~, DEVICE1+12
DGBTSCR DGBTDR+2~
DGBTTOUT DGBTDR+16, DGBTDR+17!, DGBTDR+21*, DGBTDR+23, DGBTDR+33*, DGBTDR+36*, DGBTDR+50*, PATIENT+4*
DGIEN EN+2~, EN+10, MENU~, MENU+19*, MENU+29*, SETUP~, SETUP+2, SETUP+4, EDIT+4, EDIT+7
DGIEN2 EN+2~, EDIT+4*
DIC EDIT+2!, EDIT+5*, DGBTDR+19*, DGBTDR+21!, PATIENT+4*, PATIENT+5!
DIC("A" DGBTDR+18*, PATIENT+4*
DIC("B" DGBTDR+18*
DIC("S" DGBTDR+20*
DIC(0 DGBTDR+19*, PATIENT+4*
DIR MENU+8!, MENU+18!, MENU+28!, DGBTDR+33!
DIR("?" MENU+6*, MENU+16*, MENU+26*, DGBTDR+32*
DIR("A" MENU+2*, MENU+12*, MENU+22*, DGBTDR+31*
DIR("B" DGBTDR+30*
DIR("L" MENU+3*, MENU+4*, MENU+5*, MENU+13*, MENU+14*, MENU+15*, MENU+23*, MENU+24*, MENU+25*
DIR(0 MENU+7*, MENU+17*, MENU+27*, DGBTDR+31*
DIWESUB EDIT+2!, EDIT+6*
DIWETXT EDIT+2!, EDIT+7*
DIWL LTR+2~, LTR+7*
DIWR LTR+2~, LTR+8*
DRIEN DGBTDR+2~, DGBTDR+24*, DGBTDR+25, DGBTDR+47, DGBTDR+49
DT DGBTDR+27, DGBTDR+35, DGBTDR+44, DGBTDR+46, HEADER+29, CLRLTR+6
DTOUT MENU+8, MENU+18, MENU+28, DGBTDR+21!, DGBTDR+33!, DGBTDR+50
DUOUT MENU+8, MENU+18, MENU+28, DGBTDR+21!, DGBTDR+33!, DGBTDR+50
DUZ LTR+10, LTR+11
DWPK EDIT+2!, EDIT+3*
ERRMSG DGBTDR+48!, CLRLTR+3!
IEN EN+2~
INSTADD INSTIT+1~, INSTIT+7*
INSTNAME HEADER+4~, HEADER+7*, HEADER+22
INSTNODE INSTIT+1~, INSTIT+6*
IO DEVICE+21
IO("Q" DEVICE+14, DEVICE+20!, DEVICE1+10, DEVICE1+17!
IOF EN+7, DGBTDR+42
IOST LTR+40, DEVICE+10, DEVICE1+5
LETTERS1 DGBTDR+2~, LTR+26!
LETTERS1( LTR+16, LTR+17, LTR+30, LTR+31
LETTERS2 DGBTDR+2~, LTR+26!
LETTERS2( LTR+22, LTR+23, LTR+36, LTR+37
LINENBR DGBTDR+2~, LTR+15*, LTR+16*, LTR+17, LTR+22*, LTR+23, LTR+29*, LTR+30*, LTR+31, LTR+36*
, LTR+37
LOC HEADER+4~, HEADER+21*, HEADER+22*, HEADER+23*, HEADER+24*, HEADER+26*, HEADER+31*, HEADER+32, HEADER+33, HEADER+34
LOC2 HEADER+4~, HEADER+20*, HEADER+35, HEADER+36, HEADER+37, HEADER+38
MAILCODE INSTIT+1~, INSTIT+17*, INSTIT+18
NAME LTR+2~, LTR+10*
NBR DGBTDR+2~, LTR+18*, LTR+19*, LTR+20, LTR+32*, LTR+33*, LTR+34
ORG HEADER+4~, HEADER+6*, HEADER+21
PATADD1 DGBTDR+2~, HEADER+16*, HEADER+36
PATADD2 DGBTDR+2~, HEADER+16*, HEADER+37
PATCITY DGBTDR+2~, HEADER+17*, HEADER+38
PATNAME DGBTDR+2~, HEADER+18*, HEADER+35
PATSEX DGBTDR+2~, HEADER+15*, HEADER+35
PATST DGBTDR+2~, HEADER+17*, HEADER+38
PATZIP DGBTDR+2~, HEADER+17*, HEADER+38
POP DEVICE+2~, DEVICE+9, DEVICE1+1~, DEVICE1+4
QUIT EN+2~, EN+5*, EN+8*, EN+9, EN+10, MENU+8*, MENU+18*, MENU+28*, DGBTDR+5*, DGBTDR+36*
, DGBTDR+50*, LTR+6*
REASON DGBTDR+2~
REASON( LTR+19, LTR+20, LTR+33, LTR+34
ROUTINE DEVICE~, DEVICE+15
RPTNAM DEVICE~, DEVICE+16
>> SPCOMPLETE DGBTDR+7*, DGBTDR+21*, DGBTDR+33*, DGBTDR+36*, DGBTDR+50, LTR+39*, PATIENT+9*, DEVICE+9*, DEVICE1+4*
STATE HEADER+4~, HEADER+11*, HEADER+25
TMP EN+2~
U DIVISN+2
VADM DGBTDR+2~
VADM(1 HEADER+18, HEADER+34
VADM(2 HEADER+34
VADM(5 HEADER+15
VAEL PATIENT+1~
>> VAPA(1 HEADER+16
>> VAPA(2 HEADER+16
>> VAPA(4 HEADER+17
>> VAPA(5 HEADER+17
>> VAPA(6 HEADER+17
X DGBTDR+17!*, LTR+17*, LTR+20*, LTR+23*, LTR+31*, LTR+34*, LTR+37*
Y MENU+9, MENU+19, MENU+29, DGBTDR+15!, DGBTDR+16, DGBTDR+22, DGBTDR+23, DGBTDR+24, DGBTDR+35, DGBTDR+36
, PATIENT+5, PATIENT+7, CLRLTR+2~, CLRLTR+12*
ZIP HEADER+4~, HEADER+12*, HEADER+25
ZTDESC DEVICE+2~, DEVICE+16*, DEVICE1+1~, DEVICE1+12*
ZTIO DEVICE+2~, DEVICE1+1~
ZTQUEUED DEVICE+2~
ZTRTN DEVICE+2~, DEVICE+15*, DEVICE1+1~, DEVICE1+11*
ZTSAVE DEVICE+2~, DEVICE1+1~
ZTSAVE("*" DEVICE+17*, DEVICE1+14*
ZTSK DEVICE+2~, DEVICE+19, DEVICE1+1~, DEVICE1+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All