Routine: ABPAEEC0

Information

ABPAEEC0 ;ENTER/EDIT PVT INS CLAIMS; [ 07/09/91 11:19 AM ]

Package	Total	Call Graph
Third Party Tracking	4	EDIT^ABPAEEC1 ^ABPAHD EOP^ABPAMAIN ^ABPAPATL
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Third Party Tracking	1	ABPAEEC1

Name	Comments	DBIA/ICR reference
CONT
SCREEN
REVON
WRITE
START
PROMPT	;;FLD #;TITLE;X-POSITION;Y-POSITION;VARIABLE NAME
XIT
DOS
THEREST
PAT

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WRITE+2
Function Call: WRITE	Prompt: P3,$J(P4,22) Line Location: WRITE+2
Function Call: WRITE	Prompt: " " Line Location: WRITE+3
Function Call: WRITE	Prompt: @P7 Condition for execution: $D(@P7)=1 Line Location: WRITE+3
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+3
Function Call: WRITE	Prompt: "Enter the NAME of the patient (format = LNAME,FNAME MI.)" Line Location: PAT+0
Function Call: WRITE	Prompt: "Enter the DATE OF SERVICE being billed" Line Location: DOS+4
Routine Call	DIE Line Location: THEREST+5
Routine Call	DIC Line Location: DOS+5

Name	Line Occurrences (* Changed, ! Killed)
^ABPVAO - [#9002270.02]	PAT+4, PAT+5, PAT+6, DOS+2, DOS+3*
^ABPVAO("CN"	THEREST+4
^AUTNINS - [#9999999.18]	DOS+11
^DIC(4 - [#4]	PAT+5

Name	Field # of Occurrence
ABPA	XIT+1!
ABPA("HD"	SCREEN, SCREEN+1
ABPAAMT	START+2, DOS+12*, XIT+2!
>> ABPACDFN	DOS+5*, THEREST+3
ABPACN	THEREST+4*, THEREST+5, XIT+2!
ABPADOS	START+2, DOS+5*, XIT+2!
ABPADV	DOS+10*, XIT+2!
ABPAFAC	PAT+5*, XIT+2!
ABPAHRN	PAT+4*, XIT+1!
ABPAI	SCREEN+2, PAT+9, DOS+14*, XIT+1!
ABPAINS	DOS+11*, XIT+2!
ABPAJ	WRITE*, WRITE+1, XIT+1!
ABPAK	THEREST*, THEREST+1, XIT+2!
ABPAL	START*, XIT+1!
ABPALL	START*, SCREEN+3, XIT+1!
>> ABPAPAT	PAT+4
ABPAPHNM	DOS+12*, XIT+3!
ABPAPNAM	PAT+4*, XIT+1!
ABPAPNUM	DOS+13*, XIT+3!
>> ABPAPTN	PAT+2*
>> ABPAROFF	PAT+1, DOS+5
>> ABPARON	REVON+1, PAT+1, DOS+5
ABPATDFN	START+1, PAT+3, PAT+4, PAT+5, PAT+6, DOS+1, THEREST+3, XIT+1!
>> ABPATEXT	WRITE, WRITE+1, SCREEN+2, PAT+9, DOS+14, DOS+15
>> ABPATLE	SCREEN
ABPATYPE	DOS+7, DOS+8, DOS+9, DOS+10, XIT+2!
DA	DOS!, THEREST!, THEREST+2!, THEREST+3*
DA(1	DOS+1, DOS+2, DOS+3, THEREST+3
DFOUT	XIT+3!
DIC	DOS!, DOS+1*, THEREST!, THEREST+2!, XIT+1!
DIC("A"	DOS+4*
DIC(0	DOS+1*
DIE	DOS!, THEREST!, THEREST+2!, THEREST+3*
DLOUT	XIT+3!
DQOUT	XIT+3!
DR	DOS!, THEREST!, THEREST+2!, THEREST+5*
DT	THEREST+4
DTOUT	XIT+2!
DUOUT	XIT+3!
>> DX	WRITE+2, REVON
>> DY	WRITE+2, REVON
IOST	WRITE+2, REVON
>> LBL	THEREST+1*
>> P3	WRITE+2
>> P4	WRITE+2
>> P5	WRITE+2
>> P6	WRITE+2
>> P7	WRITE+3
X	DOS!, THEREST!, THEREST+2!, XIT+1!
>> XY	WRITE+2, REVON
Y	DOS!, DOS+5, DOS+6, THEREST!, THEREST+2!, XIT+1!
Y(0	DOS+5, DOS+7, DOS+10, DOS+11, DOS+12, DOS+13

Name	Field # of Occurrence
$T(PROMPT+4	DOS+15
$T(PROMPT+ABPAI	SCREEN+2, PAT+9, DOS+14