Routine: ABPAEEP0

Package	Total	Call Graph
Third Party Tracking	3	^ABPAHD EOP^ABPAMAIN ^ABPAPATL
VA Fileman	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
PAT
FLD3
EDIT
FLD4
FLD2
REVON
FLD1
WRITE
START
XIT
PROMPT	;;FLD #;TITLE;X-POSITION;Y-POSITION;VARIABLE NAME
SCREEN

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: "Select FIELD NUMBER to edit (1 - 4)" 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 name of the patient" Line Location: FLD1+1
Function Call: WRITE	Prompt: "Enter the facility for this patient" Line Location: FLD2+1
Function Call: WRITE	Prompt: "Enter the patient's health record number" Line Location: FLD3+1
Function Call: WRITE	Prompt: "Enter the patient's social security number" Line Location: FLD4+1
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
Routine Call	DIE Line Location: FLD1+2 FLD2+2 FLD3+2 FLD4+2

FileNo	Call Tags
^ABPVAO - [#9002270.02]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ABPVAO - [#9002270.02]	PAT+4, PAT+5, PAT+6
^DIC(4 - [#4]	PAT+5

Name	Field # of Occurrence
ABPA	XIT+1!
ABPA("HD"	SCREEN, SCREEN+1
ABPAAMT	XIT+2!
ABPACN	XIT+2!
ABPADOS	XIT+2!
ABPADV	XIT+2!
ABPAFAC	PAT+5*, XIT+2!
ABPAHRN	PAT+4*, XIT+1!
ABPAI	EDIT+2, EDIT+3, EDIT+5, EDIT+7, SCREEN+2, PAT+9*, XIT+1!
ABPAINS	XIT+2!
ABPAJ	WRITE*, WRITE+1, XIT+1!
ABPAK	XIT+2!
ABPAL	START*, XIT+1!
ABPALL	START*, SCREEN+3, XIT+1!
>> ABPAPAT	PAT+4
ABPAPHNM	XIT+3!
ABPAPNAM	PAT+4*, XIT+1!
ABPAPNUM	XIT+3!
ABPAPSSN	XIT+3!
>> ABPAPTN	PAT+2*
>> ABPAROFF	EDIT+1, FLD1+2, FLD2+2, FLD3+2, FLD4+2, PAT+1
>> ABPARON	REVON+1, EDIT+1, FLD1+2, FLD2+2, FLD3+2, FLD4+2, PAT+1
ABPATDFN	START+1, FLD1, FLD2, FLD3, FLD4, PAT+3, PAT+4, PAT+5, PAT+6, XIT+1!
>> ABPATEXT	WRITE, WRITE+1, FLD1+3, FLD2+3, FLD3+3, FLD4+3, SCREEN+2, PAT+9
>> ABPATLE	SCREEN
ABPATYPE	XIT+2!
DA	EDIT+7!, FLD1, FLD2, FLD3, FLD4
DFOUT	XIT+3!
DIC	EDIT+7!, XIT+1!
DIE	EDIT+7!, FLD1, FLD2, FLD3, FLD4
DIE("NO^"	FLD1+1, FLD2+1, FLD3+1, FLD4+1
DLOUT	XIT+3!
DQOUT	XIT+3!
DR	EDIT+7!, FLD1, FLD2, FLD3, FLD4
DTIME	EDIT+2
DTOUT	XIT+2!
DUOUT	XIT+3!
>> DX	WRITE+2, REVON
>> DY	WRITE+2, REVON
IOST	WRITE+2, REVON
>> LBL	EDIT+7*
>> P3	WRITE+2
>> P4	WRITE+2
>> P5	WRITE+2
>> P6	WRITE+2
>> P7	WRITE+3
X	EDIT+7!, XIT+1!
>> XY	WRITE+2, REVON
Y	EDIT+7!, XIT+1!

Name	Field # of Occurrence
$T(PROMPT+1	FLD1+3, FLD2+3, FLD3+3, FLD4+3
$T(PROMPT+ABPAI	SCREEN+2, PAT+9