Routine: IB20PT87

Package	Total	Call Graph
VA Fileman	3	^DIC (D,DT)^DIQ ^DIR
Registration	2	DIS^DGMTU (2,ELIG,KVAR)^VADPT
Integrated Billing	1	DISP^IBCNSP2
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

VA Fileman

^DIC (D,DT)^DIQ ^DIR

Registration

DIS^DGMTU (2,ELIG,KVAR)^VADPT

Integrated Billing

DISP^IBCNSP2

Kernel

HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
DISQ
EN	;entry with DFN defined.
END
HDR	;Screen Header
AOIR	;Agent Orange/ionizing radiation
MT
INS	;insurance information
INSQ
ELIG	;eligibility code(s)
IN
DGRPDB	;ALB/AAS - VIEW ONLY SCREEN TO DETERMINE BILLING ELIGIBILITY ; 20 DEC 90 1:30 pm
PAUSE
DIS	;rated disabilities

Name	Field # of Occurrence
HOME^%ZIS	EN+1
DIS^DGMTU	MT+1
^DIC	%+1
D^DIQ	AOIR+3
DT^DIQ	ELIG+2
^DIR	PAUSE+1
DISP^IBCNSP2	INS+8
2^VADPT	EN+1
ELIG^VADPT	DIS+7
KVAR^VADPT	DISQ, END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " " Line Location: ELIG+2
Function Call: WRITE	Prompt: !?21 Condition for execution: I1>1 Line Location: ELIG+3
Function Call: WRITE	Prompt: $P(VAEL(1,I),"^",2) Line Location: ELIG+3
Function Call: WRITE	Prompt: "NO ADDITIONAL ELIGIBILITIES IDENTIFIED" Line Location: ELIG+4
Function Call: WRITE	Prompt: "NOT A VETERAN" Line Location: DIS+9
Function Call: WRITE	Prompt: !?21 Condition for execution: I3>1 Line Location: DIS+10
Function Call: WRITE	Prompt: I2 Line Location: DIS+10
Function Call: WRITE	Prompt: $S(Z="Y":"YES",Z="N":"NO",Z="U":"UNKNOWN",1:"NOT ANSWERED") Line Location: INS+7
Function Call: WRITE	Prompt: !," A/O Exp.: " Condition for execution: I=2 Line Location: AOIR+2
Function Call: WRITE	Prompt: "ION Rad.: " Condition for execution: I=3 Line Location: AOIR+2
Function Call: WRITE	Prompt: $S(X="Y":"YES",X="N":"NO",X="U":"UNKNOWN",1:"NOT ANSWERED")," " Line Location: AOIR+2
Function Call: WRITE	Prompt: "Medicaid Elig: ",$S(X1="":"NOT ANSWERED",'X1:"NO",1:"YES") I ($X+15)'>IOM Line Location: AOIR+3
Function Call: WRITE	Prompt: " - " Line Location: AOIR+3
Function Call: WRITE	Prompt: " - " Line Location: AOIR+3
Function Call: WRITE	Prompt: ! Line Location: PAUSE+0
Function Call: WRITE	Prompt: ?X1,X Line Location: HDR+2
Function Call: WRITE	Prompt: !,X Line Location: HDR+3
Function Call: WRITE	Prompt: !," Means Test Status: NOT IN MEANS TEST FILE" Line Location: MT+0
Routine Call	%ZIS Line Location: EN+1
Routine Call	DIC Line Location: %+1
Routine Call	DIR Line Location: PAUSE+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	DIS+9
^DGMT(408.31 - [#408.31]	MT
^DIC(31 - [#31]	DIS+10
^DIC(36 - [#36]	IN
^DPT - [#2]	EN+3, ELIG+2, DIS+10, INS+7, AOIR+1, AOIR+3

Name	Line Occurrences
%	%+2
AOIR	EN+2
DIS	EN+2
DISQ	DIS+9
ELIG	EN+2
EN	%+1
END	%+1
HDR	EN+1, EN+4
INS	EN+4
MT	EN+2
PAUSE	EN+4

Name	Field # of Occurrence
^(	ELIG+2, DIS+10, INS+7, AOIR+1
^(0	EN+3, DIS+9, DIS+10, IN

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	END+1!
C	EN+3*, EN+4, END+1!
DFN	%+1*, EN+1, EN+3, ELIG+2, DIS+10, INS+6, INS+7, AOIR+1, AOIR+3, MT , MT+1, END+1!
DGA1	END+1!
DGKVAR	DIS+7*, DISQ!
DGMT	END+1!
DGMTL	END+1!
DGMTLA	END+1!
DGMTLL	END+1!
DGQUIT	%, %+1, EN+4, PAUSE+1, END+1!
DGT	END+1!
DGTYPE	HDR+1*, HDR+2, END+1!
DGX	INSQ!, IN, IN+1, AOIR+1*, AOIR+2, END+1!
DGX1	PAUSE+1*, END+1!
DIC	%+1*, END+1!
DIC(0	%+1*
DIR	PAUSE+1~, END+1!
DIR(0	PAUSE+1*
I	ELIG+3, DIS+10, DISQ+1!, INSQ!, AOIR+2*, END+1!
I1	ELIG+3, DIS+10, DISQ+1!, INSQ!, END+1!
I2	DIS+10*, DISQ+1!, END+1!
I3	DIS+10*, DIS+11, DISQ+1!, END+1!
IOF	HDR+1
IOM	AOIR+3
IOSL	EN+4, PAUSE
IOST	PAUSE+1
J	PAUSE*, END+1!
VA	END+1!
VA("PID"	HDR+2
>> VADM(1	HDR+2
>> VADM(3	HDR+2
>> VAEL	DIS+7
>> VAEL(1	ELIG+1, ELIG+3
>> VAEL(3	DIS+8
>> VAEL(4	DIS+9
>> VAEL(6	DIS+9, HDR+1
>> VAEL(8	ELIG+1, ELIG+2
VAROOT	END+1!
X	AOIR+2, AOIR+3, HDR+2, HDR+3, END+1!
X1	AOIR+3, HDR+2, END+1!
Y	%+1, ELIG+2, AOIR+3, PAUSE+1, END+1!
Z	INS+7*, INSQ!, END+1!

Customize PDF page

Package: Integrated Billing

Routine: IB20PT87

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: