Routine: ABPAEEC1

Information

ABPAEEC1 ;ENTER/EDT/PVT INS CLAIMS - PART 2; [ 07/09/91 11:21 AM ]

Package	Total	Call Graph
Third Party Tracking	2	START^ABPAEEC0 (EOP,HEADER)^ABPAMAIN
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Third Party Tracking	1	ABPAEEC0

Name	Comments	DBIA/ICR reference
PROMPT	;;FLD #;TITLE;X-POSITION;Y-POSITION;VARIABLE NAME
FLD8
FLD9
EDIT
FLD7
SCREEN
FLD5
REVON
WRITE
FLD6
XIT
FLD4

Name	Field # of Occurrence
START^ABPAEEC0	XIT
EOP^ABPAMAIN	REVON
HEADER^ABPAMAIN	SCREEN
^DIC	FLD4+5
^DIE	FLD4+3, FLD5+4, FLD5+6, FLD5+9, FLD5+12, FLD6+10, FLD7+4, FLD7+5, FLD7+6, FLD8+3 , FLD9+3

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WRITE+2
Function Call: WRITE	Prompt: P3,$J(P4,22) Line Location: WRITE+3
Function Call: WRITE	Prompt: @(ABPAEOL) Condition for execution: $D(ABPAEOL)=1 Line Location: WRITE+3
Function Call: WRITE	Prompt: " " Line Location: WRITE+4
Function Call: WRITE	Prompt: @P7 Condition for execution: $D(@P7)=1 Line Location: WRITE+4
Function Call: WRITE	Prompt: ! Line Location: REVON+0
Function Call: WRITE	Prompt: ! Condition for execution: IOST["QUME" Line Location: REVON+0
Function Call: WRITE	Prompt: !,ABPALL Line Location: SCREEN+2
Function Call: WRITE	Prompt: "Select FIELD NUMBER to edit (4 - 8)" Line Location: EDIT+0
Function Call: READ	Prompt: "FIELD NUMBER: " Formatting: ! Timeout: DTIME Variable: ABPAI Line Location: EDIT+2
Function Call: WRITE	Prompt: "Enter the DATE OF SERVICE being billed" Line Location: FLD4+1
Function Call: WRITE	Prompt: ABPAMESS Line Location: FLD5+2
Function Call: WRITE	Prompt: "Number of outpatient VISITS or inpatient DAYS (0 - 50)" Line Location: FLD6+8
Function Call: WRITE	Prompt: "Name of the INSURANCE COMPANY being billed" Line Location: FLD7+2
Function Call: WRITE	Prompt: "Enter the dollar AMOUNT being claimed (0 - 99999)" Line Location: FLD8+2
Function Call: WRITE	Prompt: "Enter the date of the BILL LOG where this bill can be found" Line Location: FLD9+2
Routine Call	DIE Line Location: FLD4+3 FLD5+4 FLD5+6 FLD5+9 FLD5+12 FLD6+10 FLD7+4 FLD7+5 FLD7+6 FLD8+3 FLD9+3
Routine Call	DIC Line Location: FLD4+5

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	FLD7+4

Name	Field # of Occurrence
>> ABPAAMT	FLD8+4*
>> ABPACDFN	FLD4, FLD5, FLD6+6, FLD7, FLD8, FLD9
>> ABPADOS	FLD4+5*
>> ABPADV	FLD5+6, FLD5+10, FLD5+12, FLD6+10, FLD6+11
>> ABPAEOL	WRITE+3
>> ABPAHD1	SCREEN*
>> ABPAI	SCREEN+1, EDIT+2, EDIT+3, EDIT+5, EDIT+7, EDIT+9
>> ABPAINS	FLD7+4*
>> ABPAJ	WRITE*, WRITE+1
>> ABPALL	SCREEN+2
>> ABPAMESS	FLD5+2*
>> ABPAPHNM	FLD7+5*
>> ABPAPNUM	FLD7+6*
>> ABPAROFF	EDIT+1, FLD4+2, FLD4+4, FLD5+3, FLD6+9, FLD7+3, FLD8+3, FLD9+3
>> ABPARON	REVON+1, EDIT+1, FLD4+2, FLD4+4, FLD5+3, FLD6+9, FLD7+3, FLD8+3, FLD9+3
>> ABPATDFN	FLD4, FLD5, FLD6+6, FLD7, FLD8, FLD9
>> ABPATEXT	WRITE, WRITE+1, SCREEN+1, FLD4+6, FLD5+13, FLD5+15, FLD6+13, FLD7+7, FLD8+4*
>> ABPATYPE	FLD5+4, FLD5+5, FLD5+6, FLD5+7, FLD5+8, FLD5+9, FLD5+11, FLD5+12*, FLD5+14, FLD6 , FLD6+2, FLD6+4, FLD6+11
DA	EDIT+9!, FLD4, FLD5, FLD6+6, FLD7, FLD8, FLD9
DA(1	FLD4, FLD4+3, FLD5, FLD6+6, FLD7, FLD8, FLD9
DIC	EDIT+9!, FLD4+3!*
DIC(0	FLD4+3*
DIE	EDIT+9!, FLD4, FLD5, FLD6+6, FLD7, FLD8, FLD9
DIE("NO^"	FLD4+1, FLD5+1, FLD6+7, FLD7+1, FLD8+1, FLD9+1
DR	EDIT+9!, FLD4, FLD5, FLD5+6, FLD5+9, FLD5+12, FLD6+6, FLD7, FLD7+5, FLD7+6* , FLD8, FLD9, FLD9+3*
DTIME	EDIT+2
>> DX	WRITE+2, REVON
>> DY	WRITE+2, REVON
IOST	WRITE+2, REVON
>> LBL	EDIT+9*
>> P3	WRITE+3
>> P4	WRITE+3
>> P5	WRITE+2
>> P6	WRITE+2
>> P7	WRITE+4
X	EDIT+9!, FLD5+4, FLD6+10, FLD7+4, FLD7+5, FLD7+6, FLD8+4, FLD9+3
>> XY	WRITE+2, REVON
Y	EDIT+9!
Y(0	FLD4+5