Routine: DGBT2

Package	Total	Call Graph
Registration	3	SCAN^DGSDU ^VADATE PID^VADPT6
VA Fileman	1	(COMMA,NOW)^%DTC

Package	Total	Caller Graph
Beneficiary Travel	1	DGBTE

Entry Points

External References

Name	Field # of Occurrence
COMMA^%DTC	AMT
NOW^%DTC	ADM+1
SCAN^DGSDU	SCREEN+14
^VADATE	PAST+1
PID^VADPT6	SCREEN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SCREEN+1
Function Call: WRITE	Prompt: !?18,"Beneficiary Travel Claim Information <Screen 2>" Line Location: SCREEN+2
Function Call: WRITE	Prompt: !!?8,"Name: ",VADM(1),?42,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),"^",2) Line Location: SCREEN+3
Function Call: WRITE	Prompt: !!?2,"Visits For: " Line Location: SCREEN+5
Function Call: WRITE	Prompt: $P(DGBTDTE,"@") Line Location: SCREEN+5
Function Call: WRITE	Prompt: $S(DGBTAS="A":" * * * * ADMITTED ON THIS DATE * * * ",DGBTAS="D":" * * * DISCHARGED ON THIS DATE * * * ",DGBTAS="I":" * * * CURRENTLY AN INPATIENT * * * ",DGBTAS="II":" * * INPATIENT STATUS * * *",1:"") Line Location: SCREEN+7
Function Call: WRITE	Prompt: !!," Admitted On: " Line Location: SCREEN+8
Function Call: WRITE	Prompt: Y Line Location: SCREEN+8
Function Call: WRITE	Prompt: ?40,"Ward Location: ",^DPT(DFN,.1) Condition for execution: $D(^DPT(DFN,.1)) Line Location: SCREEN+8
Function Call: WRITE	Prompt: ?40,"Discharge Date: " Line Location: SCREEN+8
Function Call: WRITE	Prompt: Y Line Location: SCREEN+8
Function Call: WRITE	Prompt: !!,"Appointments: " Line Location: SCREEN+9
Function Call: WRITE	Prompt: Condition for execution: '$D(DGBTCL) "NONE RECORDED FOR THIS DATE" I $D(DGBTCL) F I=0:0 S I=$O(DGBTCL(I)) Q:'I Line Location: SCREEN+9
Function Call: WRITE	Prompt: !!?45,"Elig for Visit:",?65,"Appt Type:",!?45,"______________",?65,"_________",!!,"Clinic Stop: " Line Location: WRTVIS+2
Function Call: WRITE	Prompt: ?65,$E($S($D(^SD(409.1,+$P(DGBTCSN,"^",10),0)):$P(^(0),"^"),1:"REGULAR"),1,15),! Line Location: STOP+0
Function Call: WRITE	Prompt: ?14,$S($D(^SC(DGBTCN,0)):$P(^(0),"^"),1:"Unknown") Line Location: APPT+0
Function Call: WRITE	Prompt: " (",Y,") " Line Location: APPT+0
Function Call: WRITE	Prompt: !!?14,"Date/Time",?35,"Account",?55,"Deductible",?69,"Amt. Paid",!!,"Past Claims: " Line Location: PAST+0
Function Call: WRITE	Prompt: ?14,VADATE("E") Line Location: PAST+1
Function Call: WRITE	Prompt: ?35,$S($P(^DGBT(392,DGBTPDT,0),"^",6):$E($P(^DGBT(392.3,$P(^(0),"^",6),0),"^"),1,15),1:"") Line Location: ACCT+0
Function Call: WRITE	Prompt: ?54,X Line Location: AMT+0
Function Call: WRITE	Prompt: ?67,X,! Line Location: AMT+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SCREEN+8, APPT
^DGBT(392 - [#392]	PAST, PAST+1, ACCT, AMT
^DGBT(392.3 - [#392.3]	ACCT
^DGPM - [#405]	ADM+1, ADM+2
^DGPM("ATID3"	ADM+1
^DIC(40.7 - [#40.7]	WRTVIS+6
^DIC(8 - [#8]	WRTVIS+6
^DPT - [#2]	SCREEN+8, ADM
^SC - [#44]	APPT
^SD(409.1 - [#409.1]	STOP, APPT+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADM+1, ADM+3!
>> DFN	SCREEN+8, SCREEN+12, ADM, ADM+1, PAST, PAST+1
>> DGBTAD	SCREEN+6, SCREEN+8, ADM+2*
>> DGBTAN	ADM, ADM+1, ADM+2
>> DGBTAS	SCREEN+6*, SCREEN+7, SCREEN+8
>> DGBTCL	SCREEN+9, APPT, APPT+1
>> DGBTCL(	SCREEN+9, APPT, APPT+2, APPT+3
>> DGBTCN	APPT*
DGBTCS	WRTVIS+4~, WRTVIS+5*, STOP
DGBTCSN	WRTVIS~, WRTVIS+5, WRTVIS+6, STOP
>> DGBTDD	SCREEN+6, SCREEN+8, ADM+2*
DGBTDI	ADM+1*, ADM+3!
DGBTDN	ADM+1*, ADM+3!
>> DGBTDTE	SCREEN+5
>> DGBTDTI	SCREEN+6, SCREEN+12, PAST, PAST+1
>> DGBTP	PAST+1*
>> DGBTPDT	PAST+1*, ACCT, AMT
DGCBK	SCREEN+10~, SCREEN+13*, SCREEN+14
DGDT1	SCREEN+10~, SCREEN+13*, WRTVIS+1, WRTVIS+2
>> DGQUERY	SCREEN+14
DGVAL	SCREEN+10~, SCREEN+14
DGVAL("BDT"	SCREEN+12*
DGVAL("DFN"	SCREEN+12*
DGVAL("EDT"	SCREEN+12*
>> I	SCREEN+9*, APPT, APPT+2, APPT+3
IOF	SCREEN+1
>> J	PAST+1*
>> SDOE0	WRTVIS+1
>> SDSTOP	WRTVIS+1*, WRTVIS+3
U	WRTVIS+5, WRTVIS+6
>> VA("PID"	SCREEN+3
VADAT	AMT!
VADAT("W"	PAST+1*
VADATE	AMT!
VADATE("E"	PAST+1
>> VADM(1	SCREEN+3
>> VADM(3	SCREEN+3
VAIP	EXIT+1!
X	APPT+2, APPT+3, AMT!
X2	AMT*!
Y	SCREEN+8!, APPT

Customize PDF page

Package: Beneficiary Travel

Routine: DGBT2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ACCT	PAST+1
ADM	SCREEN+4
AMT	ACCT
APPT	SCREEN+9
PAST	SCREEN+4
STOP	WRTVIS+7

Name	Field # of Occurrence
^(	ADM, ADM+1
^(0	WRTVIS+6, ADM+1, ADM+2, STOP, APPT, APPT+3, ACCT, AMT