Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABPAEEP0

Package: Third Party Tracking

Routine: ABPAEEP0


Information

ABPAEEP0 ;ENTER/EDIT PVT INS PATIENTS; [ 05/23/91 4:04 PM ]

Source Information

Source file <ABPAEEP0.m>

Call Graph

Call Graph Total: 4

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

External References

Name Field # of Occurrence
^ABPAHD SCREEN+1
EOP^ABPAMAIN REVON
^ABPAPATL PAT+2
^DIE FLD1+2, FLD2+2, FLD3+2, FLD4+2

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
@( EDIT+7
EDIT EDIT+3, EDIT+5, EDIT+7
PAT START+1, PAT+3, PAT+6
REVON EDIT, FLD1+1, FLD2+1, FLD3+1, FLD4+1, PAT
SCREEN START, FLD1+3, FLD2+3, FLD3+3, FLD4+3, PAT+3, PAT+9
START EDIT+2
WRITE FLD1+3, FLD2+3, FLD3+3, FLD4+3, SCREEN+2, PAT+9
XIT START, START+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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!

Marked Items

Name Field # of Occurrence
$T(PROMPT+1 FLD1+3, FLD2+3, FLD3+3, FLD4+3
$T(PROMPT+ABPAI SCREEN+2, PAT+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All