Routine: DGBTDLT1

Information

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

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA FileMan	6	DD^%DT ^DIC $$GET1^DIQ ^DIR ^DIWP ^DIWW
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Beneficiary Travel	1	DEVICE^DGBTDLT
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: 1

Package	Total	Caller Graph
Beneficiary Travel	1	DGBT REPRINT DENIAL LETTERS

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

External References

Name	Field # of Occurrence
DD^%DT	LIST2+7
^%ZIS	DEVICE+2
HOME^%ZIS	DEVICE+16
^%ZISC	LTR+41
^%ZTLOAD	DEVICE+14
DEVICE^DGBTDLT	REPRINT+24
^DIC	REPRINT+13, PATIENT+3
$$GET1^DIQ	REPRINT+21, REPRINT+23, LTR+4, LTR+5, LTR+13, LTR+14, LTR+16, LTR+23, LTR+30, LTR+37 , DIVISN+1, INSTIT+10, INSTIT+11, INSTIT+12, INSTIT+13, INSTIT+14, INSTIT+15, INSTIT+16, INSTIT+18, HEADER+28
^DIR	CHOZ+6
^DIWP	LTR+18, LTR+21, LTR+24, LTR+32, LTR+35, LTR+38
^DIWW	LTR+26, LTR+40
6^VADPT	PATIENT+5
DEM^VADPT	HEADER+14
PID^VADPT	PATIENT+5
$$FMTE^XLFDT	HEADER+30

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
Routine Call	DIC Line Location: REPRINT+13 PATIENT+3
Routine Call	DIR Line Location: CHOZ+6
Routine Call	%ZIS Line Location: DEVICE+2
Routine Call	%ZIS Line Location: DEVICE+16

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	REPRINT+9, REPRINT+17, DIVISN+3, INSTIT+2
^DG(43 - [#43]	REPRINT+11
^DGBT(392 - [#392]	PATIENT+6, LIST2+4, LIST2+6
^DIC(4 - [#4]	INSTIT+4, INSTIT+6, INSTIT+7
^DIC(49 - [#49]	INSTIT+17
^TMP("DGBT"	REPRINT+5!, QUIT+3!, QUIT+4!
^TMP("DGBTARA"	QUIT+4!
^UTILITY($J	REPRINT+5!, LTR+3!

Label References

Name	Line Occurrences
CHOZ	LIST3+6, CHOZ+8
DIVISN	LTR+6
HEADER	LTR+8
INSTIT	REPRINT+15, REPRINT+17, DIVISN+2, DIVISN+3
LIST2	REPRINT+20
LIST3	LIST3+7
LTR	REPRINT+26
PATIENT	REPRINT+19
QUIT	REPRINT+3, REPRINT+20, REPRINT+22, REPRINT+24, REPRINT+25, REPRINT+27, LIST2+4

Naked Globals

Name	Field # of Occurrence
^("GL"	REPRINT+11
^(0	INSTIT+3
^(1	INSTIT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE~, DEVICE+1*
ADD1	HEADER+4~, HEADER+8*, HEADER+23
ADD2	HEADER+4~, HEADER+9*, HEADER+24
C	QUIT+3!
CHOICE	CHOZ+1~, CHOZ+2*, CHOZ+8
CHZFLG	REPRINT+20, LIST3+4, LIST3+5, CHOZ+9*, QUIT+3!
CITY	HEADER+4~, HEADER+10*, HEADER+25
CITYSTZIP	HEADER+25*, HEADER+26, QUIT+3!
CNT	LIST2+1~
CNTR	LIST2+2, LIST2+8, LIST2+9, LIST3+1, LIST3+4, LIST3+5, LIST3+6, LIST3+8, CHOZ+7, CHOZ+10* , QUIT+6!
DFN	REPRINT+19, PATIENT+3!, PATIENT+5*, PATIENT+6, LIST2+4, LIST2+6, QUIT+2!, QUIT+3!, QUIT+6!
DGBTARY	QUIT+6!
DGBTARY(	LIST2+9*, LIST3+4, LIST3+5, LIST3+6, LIST3+8, CHOZ+7, CHOZ+9
DGBTC	LIST2+1~, LIST2+3, LIST2+6, LIST2+7, LIST2+9, LIST3+2, LIST3+5, LIST3+6, QUIT+2!
DGBTCDT	LTR+2~, LIST2+1~, LIST2+2*
DGBTCDT(1	LTR+12*
DGBTCDT(2	LTR+13*
DGBTCDT(3	LTR+14*
DGBTCH	LIST2+2, LIST3+1, QUIT+2!, QUIT+6!
DGBTCH1	LIST2+2, CHOZ+1~, CHOZ+3, CHOZ+8, QUIT+6!
DGBTCHK	QUIT+4!
DGBTCMTY	REPRINT+23*, LTR+15, LTR+29, QUIT+2!
DGBTDIV	REPRINT+14, REPRINT+17, DIVISN+1, DIVISN+2, DIVISN+3, QUIT+2!
DGBTDIVI	REPRINT+14, REPRINT+17, DIVISN+1, DIVISN+2, DIVISN+3, INSTIT+2, INSTIT+16, QUIT+2!
DGBTDIVN	INSTIT+2*, INSTIT+3, INSTIT+4, INSTIT+6, INSTIT+7, INSTIT+10, INSTIT+11, INSTIT+12, INSTIT+13, INSTIT+14 , INSTIT+15, QUIT+2!
DGBTDLTR	REPRINT+21*, REPRINT+22, QUIT+2!
DGBTDNLTR	QUIT+5!
DGBTDR	LTR+2~, LTR+4*, LTR+5, QUIT+5!
DGBTDTE	LTR+12, LIST3+8*, QUIT+6!
DGBTDTFILED	HEADER+4~, HEADER+28, HEADER+29, HEADER+30*, HEADER+31
DGBTDTI	REPRINT+21, REPRINT+23, LTR+4, LTR+13, LTR+14, LIST3+8, CHOZ+9, DIVISN+1, HEADER+28, QUIT+6!
DGBTFDA	QUIT+5!
DGBTINST	LTR+6, LTR+8, DIVISN~, DIVISN+2, DIVISN+3, INSTIT~, HEADER~, QUIT+2!
DGBTINST("FAC	NUMBER" , INSTIT+16*, HEADER+32
DGBTINST("INS	T ADDRESS 1" , INSTIT+11, HEADER+8, T ADDRESS 2" , INSTIT+12, HEADER+9, T CITY" , INSTIT+13, HEADER+10, T NAME" , INSTIT+10, HEADER+7, T STATE" , INSTIT+14, HEADER+11, T ZIP CODE" , INSTIT+15, HEADER+12
DGBTINST("MAI	L CODE" , INSTIT+18*, HEADER+33
DGBTINST("ORG	NAME" , INSTIT+9*, HEADER+2, HEADER+6
DGBTISSUED	QUIT+5!
DGBTMD	REPRINT+11, REPRINT+15, REPRINT+17, QUIT+2!
DGBTNEW	PATIENT+6*, QUIT+2!, QUIT+6!
DGBTQ	REPRINT+25, DEVICE+3, DEVICE+6, DEVICE+9, QUIT+6!
DGBTQ1	QUIT+6!
DGBTRPT	DEVICE~, DEVICE+13
DGBTSCR	DEVICE+8*, QUIT+5!
DGBTTOUT	PATIENT+2*, QUIT+2!, QUIT+6!
DGTCH1	QUIT+2!
DIC	REPRINT+12, REPRINT+13!, PATIENT+2, PATIENT+3!
DIC("A"	REPRINT+12, PATIENT+2
DIC(0	REPRINT+12, PATIENT+2
DIR	LIST3+9!, CHOZ+6!
DIR("?"	CHOZ+5*
DIR("A"	CHOZ+3, CHOZ+4
DIR(0	CHOZ+3*
DIWL	LTR+2~, LTR+10*
DIWR	LTR+2~, LTR+11*
DRIEN	QUIT+5!
DT	HEADER+29
DTOUT	REPRINT+24, LIST3+4, LIST3+6, LIST3+7, CHOZ+6, QUIT+6!
DUOUT	REPRINT+24, LIST3+4, LIST3+6, CHOZ+6, QUIT+6!
>> I	LIST2+6*, CHOZ+3
INSTADD	INSTIT+1~, INSTIT+7*
INSTNAME	HEADER+4~, HEADER+7*, HEADER+22
INSTNODE	INSTIT+1~, INSTIT+6*
IO	DEVICE+17
IO("Q"	DEVICE+9
ION	DEVICE+11
IOST	LTR+41, DEVICE+8
J	QUIT+2!
KETTERS2	LTR+28!
LETTERS1	LTR+28!, QUIT+5!
LETTERS1(	LTR+18, LTR+19, LTR+32, LTR+33
LETTERS2	QUIT+5!
LETTERS2(	LTR+24, LTR+25, LTR+38, LTR+39
LINENBR	LTR+17, LTR+18, LTR+19, LTR+24, LTR+25, LTR+31, LTR+32, LTR+33, LTR+38, LTR+39 , QUIT+5!
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+13*
NBR	LTR+20, LTR+21, LTR+22, LTR+34, LTR+35, LTR+36, QUIT+5!
ORG	HEADER+4~, HEADER+6*, HEADER+21
PATADD1	HEADER+16*, HEADER+36, QUIT+5!
PATADD2	HEADER+16*, HEADER+37, QUIT+5!
PATCITY	HEADER+17*, HEADER+38, QUIT+5!
PATNAME	HEADER+18*, HEADER+35, QUIT+5!
PATSEX	HEADER+15*, HEADER+35, QUIT+5!
PATST	HEADER+17*, HEADER+38, QUIT+5!
PATZIP	HEADER+17*, HEADER+38, QUIT+5!
POP	DEVICE~, DEVICE+3
QUIT	REPRINT+6, REPRINT+24, LTR+9*, QUIT+3!
REASON	QUIT+5!
REASON(	LTR+21, LTR+22, LTR+35, LTR+36
STATE	HEADER+4~, HEADER+11*, HEADER+25
U	REPRINT+11, REPRINT+14, REPRINT+17, DIVISN+3
VA	QUIT+6!
VACNTRY	QUIT+2!, QUIT+6!
VADAT	QUIT+2!
VADM	QUIT+2!, QUIT+5!
VADM(1	HEADER+18, HEADER+34
VADM(2	HEADER+34
VADM(5	HEADER+15
VAEL	PATIENT+1~
VAERR	QUIT+2!
VAPA	QUIT+2!, QUIT+6!
VAPA(1	HEADER+16
VAPA(2	HEADER+16
VAPA(4	HEADER+17
VAPA(5	HEADER+17
VAPA(6	HEADER+17
>> X	REPRINT+9, LTR+19, LTR+22, LTR+25, LTR+33, LTR+36, LTR+39*, CHOZ+8
X1	LIST2+1~, QUIT+4!
Y	REPRINT+11, REPRINT+13, REPRINT+14, PATIENT+3, PATIENT+5, LIST2+7, LIST2+9, LIST3+6, LIST3+7, CHOZ+3 , CHOZ+7, CHOZ+9, CHOZ+10, QUIT+2!
>> Y1	LIST2+4, CHOZ+3, CHOZ+6*
YY	LIST2+1~, QUIT+4!
Z	QUIT+2!
ZIP	HEADER+4~, HEADER+12*, HEADER+25
ZTDESC	DEVICE~, DEVICE+13*
ZTIO	DEVICE~, DEVICE+11*
ZTRTN	DEVICE~, DEVICE+10*
ZTSAVE	DEVICE~
ZTSAVE("*"	DEVICE+12*
ZTSK	DEVICE~, DEVICE+15

Customize PDF page

Package: Beneficiary Travel