Routine: DGBTDLT

Information

DGBTDLT ;UNK/BLD - BENEFICIARY TRAVEL DENIAL LETTER TEMPLATES ; 1/8/24 12:36pm

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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
EN	;entry point for denial letter templates.
MENU(DGIEN)	;allow user to select which letter to edit
SETUP(DGIEN)	;this will set up ^TMP global for editing
EDIT	;this will invoke the screen editor
DGBTDR	;will ask for the denial reason
LTR	;
HEADER(DGBTINST)	;this will print all of the standard information at the top of the letter. IT WILL NOT PRINT LOGO'S ETC
PATIENT	; patient lookup, quit if patient doesn't exist
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
DEVICE(RPTNAM,ROUTINE)	;common device call for DGBT reports
DEVICE1(DGBTRPT)	;
CLRLTR(DENIED)	;

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+8
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	DIC Line Location: DGBTDR+21 PATIENT+5
Routine Call	DIE Line Location: DGBTDR+48 CLRLTR+15
Routine Call	DIR Line Location: MENU+8 MENU+18 MENU+28 DGBTDR+33
Routine Call	%ZIS Line Location: DEVICE+8 DEVICE1+3
Routine Call	%ZIS Line Location: DEVICE+20 DEVICE1+17

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+5!, 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+12
HEADER	LTR+5
INSTIT	DIVISN+1, DIVISN+2
LTR	DGBTDR+52
MENU	EN+11

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+3~, SETUP+1, SETUP+2, SETUP+4
COUNTER	EN+3~, 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+3~, DIVISN+1, DIVISN+2*, INSTIT+2, INSTIT+16
DGBTDIVN	EN+3~, 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+3~, 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+3~
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+3~, EN+11, MENU~, MENU+19, MENU+29, SETUP~, SETUP+2, SETUP+4, EDIT+4, EDIT+7
DGIEN2	EN+3~, 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+3~
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+8, 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+3~, EN+6, EN+9, EN+10, EN+11, 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+3~
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

Customize PDF page

Package: Beneficiary Travel