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 |  Caller 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: AGEDPRV

Package: IHS Patient Registration

Routine: AGEDPRV


Information

AGEDPRV ;IHS/ASDS/TPF - PRIVATE INSURANCE PAGE A ;

Source Information

Source file <AGEDPRV.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS Patient Registration 9 UPDATE1^AGED  (EDITCHEK,FETCHERR)^AGEDERR  (CONFIRM,PUTPOLH)^AGEDPRV1  EDITPOLM^AGEDPRVI  (ADDMEMB,DELMEM)^AGEDPRVP  HDR^AGEDPRVU  $$ISACTIVE^AGINS  EN^AGPHADDR  
($$UPDTSEL,$$UPPER,VERIF)^AGUTILS  
VA Fileman 5 ^DIC  FILE^DICN  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Patient Registration 3 AG7  AGED4A  AGED4A3  

Entry Points

Name Comments DBIA/ICR reference
ADDINS(ID0,AGINSPTR) ;EP -
WMSG ;EP -
PULLPATI(NEWPH,X,PATPTR,SAME,EXIT,INSPTR) ;EP -
END ;EP -
CLEAN11(ID0,ID1) ;EP-
EDIT ;EP
CLEAN(ID0) ;EP -
GETAW(POLHPTR) ;EP -
DRAW(POLHPTR) ;EP -
ADDPOLH(PATPTR,AGINSPTR,EXIT,POLHPTR) ;EP - ADD POL HOLD
PHLOOKUP(X,NEWPH,AGINSPTR) ;EP -
EN(ID0,ID1,NEWENTRY,AGSELECT,AGINSPTR,POLHPTR,COVPTR) ;EP - CALLED BY AG7
1 ;
NEWENTRY(ID0) ;EP -
ADDPOLH2
VAR ;
PTLOOKUP(X,NEWPH) ;EP -
POLMEM(POLHPTR,POLMCNT,POLMEMBS) ;EP - DISPLAY POLICY MEMBERS
CLEANZER(ID0) ;EP - CLEAN ZERO NODE

External References

Name Field # of Occurrence
UPDATE1^AGED EDIT+20
EDITCHEK^AGEDERR EN+13, VAR+43, GETAW+59
FETCHERR^AGEDERR EN+10, VAR+40, GETAW+56
CONFIRM^AGEDPRV1 ADDPOLH2+22, ADDPOLH2+26, ADDPOLH2+30
PUTPOLH^AGEDPRV1 PULLPATI+14
EDITPOLM^AGEDPRVI EDIT+15
ADDMEMB^AGEDPRVP VAR+13
DELMEM^AGEDPRVP VAR+16
HDR^AGEDPRVU DRAW+1
$$ISACTIVE^AGINS VAR+36
EN^AGPHADDR VAR+28
$$UPDTSEL^AGUTILS EN+8, EN+27, VAR+38
$$UPPER^AGUTILS ADDPOLH2+19
VERIF^AGUTILS GETAW+60
^DIC NEWENTRY+5, PHLOOKUP+6, PTLOOKUP+5
FILE^DICN ADDINS+19
^DIK CLEAN11+4, CLEANZER+2
$$GET1^DIQ GETAW+37, GETAW+38, GETAW+39, GETAW+40, GETAW+43, GETAW+46, PULLPATI+6, PULLPATI+11
^DIR VAR+3, VAR+8, EDIT+5, ADDINS+7, ADDPOLH2+13
$$FMTE^XLFDT GETAW+38, GETAW+43, POLMEM+29, POLMEM+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"New entry not made"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Entry could not be created."
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,"New entry not made"
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,"New entry not made"
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,"New entry not made"
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+4
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!"
  • Line Location: VAR+10
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!"
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: EDIT+12
Function Call: WRITE
  • Prompt: !,CAPTION
  • Line Location: GETAW+6
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+18
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+19
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($$GET1^DIQ(DIC,D0,DR,"I"),5)
  • Line Location: GETAW+38
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR,"I")
  • Line Location: GETAW+43
Function Call: WRITE
  • Prompt: ?62,"Date:",$$FMTE^XLFDT($$GET1^DIQ(DIC,D0,.16,"I"),5)
  • Condition for execution: $$GET1^DIQ(DIC,D0,DR,"I")="Y"
  • Line Location: GETAW+43
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR,FLAG)
  • Line Location: GETAW+46
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+52
Function Call: WRITE
  • Prompt: !,"Entering new PRIVATE INSURANCE ELIGIBILITY record"
  • Line Location: WMSG+1
Function Call: WRITE
  • Prompt: *7,!!,"WARNING: If you proceed you will be ADDING an Insurer that the Patient already",!," has an Eligibility Record for!"
  • Line Location: ADDINS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDINS+7
Function Call: WRITE
  • Prompt: " (OK, then proceed with caution)"
  • Condition for execution: Y=1
  • Line Location: ADDINS+7
Function Call: WRITE
  • Prompt: !!,"Enter the NAME of the POLICY HOLDER or the POLICY NUMBER if it already exists."
  • Line Location: ADDPOLH2+2
Function Call: WRITE
  • Prompt: !?10,"(Enter 'SAME' if the PATIENT is the Policy Holder.)"
  • Line Location: ADDPOLH2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDPOLH2+4
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: ADDPOLH2+19
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDPOLH2+20
Function Call: WRITE
  • Prompt: !!,"No Hit Found in POLICY HOLDER file",!!,"Searching PATIENT file ...."
  • Line Location: ADDPOLH2+23
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: ADDPOLH2+25
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: ADDPOLH2+26
Function Call: WRITE
  • Prompt: !!,"No Hit Found in PATIENT File for ",$G(TARGET),"!"
  • Line Location: ADDPOLH2+27
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDPOLH2+27
Function Call: WRITE
  • Prompt: !!,TARGET," is a non registered patient"
  • Line Location: ADDPOLH2+29
Function Call: WRITE
  • Prompt: !,"THERE ARE NO POLICY MEMBERS FOR THIS ELIGIBLITY RECORD!"
  • Line Location: POLMEM+3
Function Call: WRITE
  • Prompt: ?26,$E(AGPH,1,16)
  • Line Location: POLMEM+23
Function Call: WRITE
  • Prompt: "-",THRU
  • Line Location: POLMEM+32
Function Call: WRITE
  • Prompt: ?50,$C(124)
  • Line Location: 1+2
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+5
    • PHLOOKUP+6
    • PTLOOKUP+5
Routine Call
  • DIR
  • Line Location:
    • VAR+3
    • VAR+8
    • EDIT+5
    • ADDINS+7
    • ADDPOLH2+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPN3PPH - [#9000003.1] Classic Fileman Calls
^AUPNPRVT - [#9000006] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] POLMEM+26
^AUPNPAT - [#9000001] POLMEM+27
^AUPNPRVT - [#9000006] CLEAN+1, POLMEM+8, POLMEM+9, POLMEM+22, POLMEM+25
^AUPNPRVT("C" POLMEM+5, POLMEM+7, POLMEM+11!
^AUPNPRVT("I" ADDINS+5
^AUTTRLSH - [#9999999.36] POLMEM+16
^DD( GETAW+21, GETAW+22
^DPT - [#2] ADDPOLH2+19, ADDPOLH2+26, POLMEM+19

Label References

Name Line Occurrences
@( EDIT+16
ADDINS EN+22
ADDPOLH EN+5, EN+24
ADDPOLH2 ADDPOLH2+15
CLEAN EN+22, EN+24, VAR+11, CLEAN11+5
CLEAN11 EN+2, EN+24
CLEANZER CLEAN+1
DRAW EN+19, VAR+2
EDIT VAR+30
END EN+2, EN+21, EN+22, EN+24, VAR+30
GETAW DRAW+2
NEWENTRY EN+21
PHLOOKUP ADDPOLH2+22
POLMEM GETAW+44
PTLOOKUP ADDPOLH2+26
PULLPATI ADDPOLH2+19, ADDPOLH2+26
VAR VAR+10, VAR+13, VAR+14, VAR+46
WMSG EN+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADA END+2!
ADT END+2!
AG END+1!, GETAW+2*
AG("C" EDIT+16, GETAW+1!, GETAW+17*, GETAW+51
AG("N" EDIT+3, EDIT+4, EDIT+12, EDIT+14, GETAW+51*
AG("PG" EN+10, EN+15*, VAR+40, GETAW+56
AG("SEL" EDIT+14*, EDIT+15, EDIT+16
AGI EDIT+14*, EDIT+21!
>> AGINS EN+8, EN+27, VAR+38
AGINSPTR EN~, EN+5, EN+8, EN+22, EN+24, EN+27, VAR+13, VAR+38, GETAW+29, ADDINS~
, ADDINS+5, ADDINS+15, ADDPOLH~, ADDPOLH2+22, PHLOOKUP~
>> AGLINE("-" GETAW+52
>> AGLINE("EQ" VAR+4
>> AGOPT("ESCAPE" VAR+9, EDIT+6, EDIT+8, EDIT+9
AGPH POLMEM+21~, POLMEM+22*, POLMEM+23, POLMEM+24, POLMEM+25*, POLMEM+26
AGSCRN END+1!, GETAW+2, GETAW+3*, GETAW+4, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11
, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+16
>> AGSEENLY VAR+3, VAR+10, EDIT+8
AGSELECT EN~, EN+8*, EN+12, EN+27*, VAR+38*, VAR+42, GETAW+58
AGY EDIT+13*, EDIT+14, EDIT+21!
CALLER EN+17*, END+2!
CANCELED VAR+15!, VAR+16, VAR+17
>> CAPDENT GETAW+10*, GETAW+21, GETAW+22
>> CAPTION GETAW+5*, GETAW+6, GETAW+21, GETAW+22, GETAW+44
>> CHOICES EDIT+7*, EDIT+15
CNT POLMEM+1~, POLMEM+5*, POLMEM+17, POLMEM+18, POLMEM+33
>> COMPIEN EN+7*, EN+8, EN+26*, EN+27, EN+28*, VAR+33*, VAR+35, VAR+38
COVPTR EN~, GETAW+37*, GETAW+42
>> D0 GETAW+24*, GETAW+25*, GETAW+26*, GETAW+29*, GETAW+37*, GETAW+38, GETAW+39, GETAW+40, GETAW+41*, GETAW+42*
, GETAW+43, GETAW+46, GETAW+48*
DA CLEAN11+1!, CLEAN11+3*, CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1!
DA(1 CLEAN11+2*, CLEAN11+4, ADDINS+17*, ADDINS+18
DELALL VAR+14, VAR+15!, VAR+16, VAR+22
>> DFN PHLOOKUP+5, PHLOOKUP+7*, PTLOOKUP+4, PTLOOKUP+6*
DFOUT VAR+28!, EDIT+2!, EDIT+11, END+1!
DIC END+1!, GETAW+7*, GETAW+21, GETAW+22, GETAW+25, GETAW+29, GETAW+37, GETAW+38, GETAW+39, GETAW+40
, GETAW+41, GETAW+42, GETAW+43, GETAW+45, GETAW+46, NEWENTRY+1!, NEWENTRY+4*, ADDINS+1!, ADDINS+18*, PHLOOKUP+1!
, PHLOOKUP+3*, PTLOOKUP+1!, PTLOOKUP+3*
DIC("S" ADDINS+16*, PHLOOKUP+4*
DIC(0 NEWENTRY+3*, ADDINS+15*, PHLOOKUP+2*, PTLOOKUP+2*
DIE NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1!
DIK CLEAN11+1!, CLEAN11+4*, CLEANZER+1!, CLEANZER+2*
DINUM ADDINS+1!
DIR VAR+3!, VAR+5!, EDIT+1!, NEWENTRY+1!, ADDINS+1!, ADDINS+7!, ADDPOLH2+4!, PHLOOKUP+1!, PTLOOKUP+1!
DIR("?" ADDPOLH2+7*, ADDPOLH2+8*, ADDPOLH2+9*, ADDPOLH2+10*, ADDPOLH2+11*
DIR("??" ADDPOLH2+12*
DIR("A" VAR+3*, VAR+6*, EDIT+3*, ADDINS+7*, ADDPOLH2+5*
DIR(0 VAR+3*, VAR+7*, EDIT+4*, ADDINS+7*, ADDPOLH2+5*
DIROUT VAR+12, VAR+28!, EDIT+2!, ADDPOLH2+16
DIRUT ADDINS+6!, ADDINS+8
DLOUT VAR+28!, EDIT+2!, EDIT+10, END+1!
DO NEWENTRY+1!, ADDINS+1!
DOUBLE ADDINS+2~, ADDINS+3*, ADDINS+5*
DQOUT VAR+28!, EDIT+2!, EDIT+12, END+1!
DR END+1!, GETAW+8*, GETAW+21, GETAW+22, GETAW+31, GETAW+32*, GETAW+38, GETAW+39, GETAW+40, GETAW+41
, GETAW+42, GETAW+43, GETAW+45, GETAW+46, NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1!
DTOUT VAR+12, VAR+28!, EDIT+2!, EDIT+11, END+1!, ADDINS+6!, ADDINS+8, ADDPOLH2+16
DUOUT VAR+12, VAR+28!, EDIT+2!, EDIT+10, ADDINS+6!, ADDPOLH2+16
DUZ(2 EN+12, VAR+42, EDIT+20, GETAW+58, POLMEM+27
>> EXECUTE GETAW+13*, GETAW+34, GETAW+48
EXIT EN+1!, EN+2!, EN+5*, EN+18, EN+21*, EN+22*, EN+24, VAR+30, EDIT+6*, ADDPOLH~
, ADDPOLH2+1*, ADDPOLH2+16*, ADDPOLH2+19, ADDPOLH2+26, ADDPOLH2+31*, PULLPATI~, PULLPATI+14
FIELD PULLPATI+1~, PULLPATI+4*, PULLPATI+5, PULLPATI+6, PULLPATI+9*, PULLPATI+10, PULLPATI+11, PULLPATI+14
FILE PULLPATI+1~, PULLPATI+3*, PULLPATI+5, PULLPATI+6, PULLPATI+8*, PULLPATI+10, PULLPATI+11
>> FLAG GETAW+27*, GETAW+46, GETAW+47*
FN PULLPATI+1~, PULLPATI+2*, PULLPATI+5*, PULLPATI+6, PULLPATI+7*, PULLPATI+10*, PULLPATI+11, PULLPATI+12*
FROM POLMEM+1~, POLMEM+14*, POLMEM+29*, POLMEM+31
>> FTARGET ADDPOLH2+18*, ADDPOLH2+28
GLO VAR+34~, VAR+35*, VAR+36, VAR+37!
>> GRPPTR GETAW+40*, GETAW+41
ID0 EN~, EN+2, EN+5, EN+7, EN+11, EN+21, EN+22, EN+24, EN+26, EN+28
, VAR+11, VAR+13, VAR+33, VAR+41, EDIT+20, CLEAN11~, CLEAN11+2, CLEAN11+5, CLEAN~, CLEAN+1
, CLEANZER~, CLEANZER+2, END+2!, DRAW+1, GETAW+24, GETAW+57, NEWENTRY~, NEWENTRY+2, NEWENTRY+7*, ADDINS~
, ADDINS+5, ADDINS+17, ADDPOLH2+19, ADDPOLH2+26
ID1 EN~, EN+2, EN+7, EN+24, EN+26, EN+28, VAR+33, CLEAN11~, CLEAN11+3, END+2!
, GETAW+26, ADDINS+20*, ADDPOLH2+19, ADDPOLH2+26
INSPTR PULLPATI~, PULLPATI+14
>> ITEMNUM GETAW+11*, GETAW+17, GETAW+19, GETAW+20
LASTDEL VAR+14, VAR+15!, VAR+16, VAR+18
MYERRS EN+9!, EN+10, EN+13, VAR+39!, VAR+40, VAR+43, GETAW+55!, GETAW+56, GETAW+59
MYERRS("C" VAR+10, EDIT+8
MYVARS EN+9!, EN+13, VAR+39!, VAR+43, GETAW+55!, GETAW+59
MYVARS("DFN" EN+11*, VAR+41*, GETAW+57*
MYVARS("FINDCALL" EN+11*, VAR+41*, GETAW+57*
MYVARS("SELECTION" EN+12*, VAR+42*, GETAW+58*
MYVARS("SITE" EN+12*, VAR+42*, GETAW+58*
NEWENTRY EN~, EN+2, EN+18, EN+25*, END+2!, GETAW+23, GETAW+59
>> NEWLINE GETAW+9*, GETAW+18
NEWPH ADDPOLH2+22, ADDPOLH2+26, PHLOOKUP~, PHLOOKUP+9*, PTLOOKUP~, PTLOOKUP+8*, PULLPATI~, PULLPATI+6, PULLPATI+11, PULLPATI+14
>> NOPVTB GETAW+37*
PATPTR ADDPOLH~, ADDPOLH2+19, PULLPATI~, PULLPATI+14
PIECE GETAW+30~, GETAW+32*, GETAW+33, GETAW+34, GETAW+48, GETAW+49, GETAW+50!
POL0 POLMEM+1~, POLMEM+8*, POLMEM+12
POL11 POLMEM+1~, POLMEM+9*, POLMEM+11, POLMEM+13, POLMEM+14, POLMEM+15, POLMEM+20
POLHPTR EN~, EN+2, EN+5, EN+18, EN+24, VAR+1, VAR+2, VAR+13, VAR+16, VAR+28
, DRAW~, DRAW+2, GETAW~, GETAW+37, GETAW+39*, GETAW+44, ADDPOLH~, ADDPOLH2+21!, ADDPOLH2+22*, PULLPATI+14
, POLMEM~, POLMEM+3, POLMEM+5, POLMEM+7, POLMEM+11
POLMCNT VAR+16, GETAW+44, GETAW+51, POLMEM~, POLMEM+33*
POLMEM POLMEM+1~, POLMEM+4*, POLMEM+5*, POLMEM+7, POLMEM+8, POLMEM+9, POLMEM+11, POLMEM+16, POLMEM+18, POLMEM+22
, POLMEM+25, POLMEM+27
POLMEMBS VAR+13, VAR+16!, EDIT+15, GETAW+44, POLMEM~, POLMEM+2!
POLMEMBS( POLMEM+18*
POLMEMBS("SELF" POLMEM+16*
POLPTR END+2!
>> POSTEXEC GETAW+16*, GETAW+49
>> PRECAPEX GETAW+15*, GETAW+21, GETAW+22
>> PREEXEC GETAW+14*, GETAW+33
>> PTPTR POLMEM+12*, POLMEM+19
REC END+2!
RECNO POLMEM+1~, POLMEM+6*, POLMEM+7*, POLMEM+9, POLMEM+11, POLMEM+18, POLMEM+22, POLMEM+25
REGISTER ADDPOLH2~, ADDPOLH2+1*, ADDPOLH2+19*, ADDPOLH2+22*, ADDPOLH2+26*, ADDPOLH2+28*
RELATION POLMEM+1~, POLMEM+13*, POLMEM+16*, POLMEM+28
RET ADDPOLH2+21!, ADDPOLH2+24!
>> ROUTID EN+16*
SAME ADDPOLH2~, ADDPOLH2+1*, ADDPOLH2+19*, ADDPOLH2+26*, PULLPATI~, PULLPATI+14
>> SHOWINAC VAR+36*
>> TAGCALL GETAW+12*, GETAW+17
TARGET ADDPOLH2~, ADDPOLH2+18*, ADDPOLH2+19*, ADDPOLH2+22, ADDPOLH2+26*, ADDPOLH2+27, ADDPOLH2+28*, ADDPOLH2+29
>> TEMPDFN PHLOOKUP+5*, PHLOOKUP+7, PTLOOKUP+4*, PTLOOKUP+6
THRU POLMEM+1~, POLMEM+15*, POLMEM+32*
>> TMPEXIT ADDPOLH2+26*
U VAR+36, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+21, GETAW+22
, ADDPOLH2+19, ADDPOLH2+26, POLMEM+12, POLMEM+13, POLMEM+14, POLMEM+15, POLMEM+16, POLMEM+19, POLMEM+20, POLMEM+22
, POLMEM+25, POLMEM+26, POLMEM+27
VDR GETAW+31*, GETAW+32, GETAW+50!
WDA END+2!
WDT END+2!
X NEWENTRY+2*, ADDINS+1!, ADDINS+15*, ADDPOLH2+18, PHLOOKUP~, PHLOOKUP+8*, PTLOOKUP~, PTLOOKUP+7*, PULLPATI~
Y EN+21, EN+22, VAR+9, VAR+10, VAR+11, VAR+13, VAR+14, VAR+28, VAR+30, EDIT+6
, EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+12, EDIT+13, END+1!, NEWENTRY+6, NEWENTRY+7, ADDINS+7
, ADDINS+8*, ADDINS+20, ADDPOLH2+15, ADDPOLH2+16, PHLOOKUP+8, PHLOOKUP+9, PTLOOKUP+7, PTLOOKUP+8

Marked Items

Name Field # of Occurrence
$T( EN+16
$T(@1+AG GETAW+3
Info |  Source |  Call Graph |  Caller 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