Routine: DGBT1

Package	Total	Call Graph
Registration	1	PID^VADPT6

Package	Total	Caller Graph
Beneficiary Travel	1	DGBTE

Entry Points

Name	Comments	DBIA/ICR reference
SC	; service connected status/information
QUIT	;
SCREEN	; clear screen and write headers
SETVAR
INCOME	; income and eligibility information

External References

Name	Field # of Occurrence
PID^VADPT6	SCREEN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SCREEN+1
Function Call: WRITE	Prompt: !?18,"Beneficiary Travel Claim Information <Screen 1>" Line Location: SCREEN+2
Function Call: WRITE	Prompt: !!?2,"Claim Date: ",DGBTDTE Line Location: SCREEN+3
Function Call: WRITE	Prompt: !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),"^",2) Line Location: SCREEN+4
Function Call: WRITE	Prompt: !!?5,"Address: ",VAPA(1) Line Location: SCREEN+5
Function Call: WRITE	Prompt: !?14,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: SCREEN+5
Function Call: WRITE	Prompt: !?14,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: SCREEN+5
Function Call: WRITE	Prompt: !?14,VAPA(4),$S(VAPA(4)]"":", "_$P(VAPA(5),"^",2)_" "_$P(VAPA(11),U,2),1:"UNSPECIFIED") Line Location: SCREEN+5
Function Call: WRITE	Prompt: !!," Eligibility: ",$P(DGBTELG,"^",2) Line Location: SETVAR+3
Function Call: WRITE	Prompt: ?45,"SC%: ",$P(DGBTCSC,"^",2) Condition for execution: DGBTCSC Line Location: SETVAR+3
Function Call: WRITE	Prompt: ?14,$P(VAEL(1,I),"^",2),! Line Location: SETVAR+4
Function Call: WRITE	Prompt: ?14,I2,! Line Location: SC+1
Function Call: WRITE	Prompt: !!?2,"Income: ",$P(DGBTINC,U),?40,"Source of Income: ",$S(DGBTIFL="M":"MEANS TEST",DGBTIFL="C":"COPAY TEST",DGBTIFL="I":"INCOME SCREENING",DGBTIFL="V":"VA CHECK",1:"") Line Location: INCOME+2
Function Call: WRITE	Prompt: !?2,"No. of Dependents: ",DGBTDEP Line Location: INCOME+3
Function Call: WRITE	Prompt: !!?20,"MEANS TEST ",$P(DGBTMTS,"^",2) Line Location: INCOME+6
Function Call: WRITE	Prompt: !!?2,"BT Income: ",$S($D(DGBTCA):DGBTCA,1:"NOT RECORDED") Line Location: INCOME+8
Function Call: WRITE	Prompt: ?25,"Certified Eligible: ",$S(DGBTCE:"YES",1:"NO"),?53,"Date Certified: ",$S($D(DGBTCD):DGBTCD,1:"NOT RECORDED") Condition for execution: $D(DGBTCE) Line Location: INCOME+8
Function Call: WRITE	Prompt: 7,7,!!?8,"* * * NOTE * * PATIENT HAS BEEN CERTIFIED INELIGIBLE BASED ON INCOME" Line Location: INCOME+9
Function Call: WRITE	Prompt: !!?5,DGBTINFL Line Location: INCOME+10
Function Call: WRITE	Prompt: ! Line Location: INCOME+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(31 - [#31]	SC+1
^DPT - [#2]	SC+1

Naked Globals

Name	Field # of Occurrence
^(	SC+1
^(0	SC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CHZFLG	SETVAR+1
>> DFN	SC+1
>> DGBTCA	INCOME+8, INCOME+10
>> DGBTCD	INCOME+8
>> DGBTCE	INCOME+8, INCOME+9
>> DGBTCSC	SETVAR+1, SETVAR+2, SETVAR+3, SC+1
>> DGBTDEP	INCOME+3
>> DGBTDTE	SCREEN+3
>> DGBTELG	SETVAR+1*, SETVAR+2, SETVAR+3
DGBTIFL	INCOME+1~*, INCOME+2
>> DGBTINC	INCOME+1, INCOME+2, INCOME+10
>> DGBTINFL	INCOME+10*
>> DGBTMTS	INCOME+4, INCOME+5, INCOME+6, INCOME+10
>> I	SETVAR+4, SC+1, INCOME+11*
I1	SC+1*, QUIT+1!
I2	SC+1*, QUIT+1!
I3	SC+1*, QUIT+1!
IOF	SCREEN+1
U	SCREEN+5, INCOME+1, INCOME+2, INCOME+4, INCOME+10
>> VA("PID"	SCREEN+4
>> VADM(1	SCREEN+4
>> VADM(3	SCREEN+4
>> VAEL(1	SETVAR+1, SETVAR+4
>> VAEL(3	SETVAR+1
>> VAPA(1	SCREEN+5
>> VAPA(11	SCREEN+5
>> VAPA(2	SCREEN+5
>> VAPA(3	SCREEN+5
>> VAPA(4	SCREEN+5
>> VAPA(5	SCREEN+5

Customize PDF page

Package: Beneficiary Travel

Routine: DGBT1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: