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 |  All
Print Page as PDF
Routine: AMHLEP2

Package: Mental Health Social Services

Routine: AMHLEP2


Information

AMHLEP2 ; IHS/CMI/LAB - ADD NEW BH ACTIVITY RECORDS 06 Nov 2009 9:21 AM ;

Source Information

Source file <AMHLEP2.m>

Call Graph

Call Graph Total: 33

Package Total Call Graph
Mental Health Social Services 19 START^AMHBPL  ($$ESIG,ESIGGFI)^AMHESIG  EP^AMHLCD  GETDATE^AMHLE  PCCLINK^AMHLE2  PHX^AMHLE3  (CHECK,SUIC)^AMHLEA  ($$IINTAKE,EN)^AMHLEDEL  
^AMHLEFP  EP2^AMHLEFP2  (,$$GETAWI,$$GETCLN,$$GETCOMM,$$GETLOC,$$GETTOC)^AMHLEIN  EP1^AMHLEIV  EN^AMHLESF  EP1^AMHLETP  ^AMHPEDIT  EN^AMHRLKUP  
$$PPINT^AMHUTIL  $$HL^AMHUTIL2  APPT^AMHVRL2  
VA Fileman 6 ^DDS  ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
IHS VA Utilities 3 ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  EN^XBNEW  
MailMan 2 XMZ^XMA2  (ENL,ENT1)^XMD  
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
Registration 1 ($$FTIME,FULL)^VALM1  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Mental Health Social Services 10 AMHEGS  AMHLEA  AMHLEE  AMHLEI2  AMHLEIC  AMHLENS  AMHLENS1  AMHLEP1  
AMHLEP4  AMHNAVR  

Entry Points

Name Comments DBIA/ICR reference
6 ;print encounter form
FS ;
ADD1 ;
CDST ;EP
DEL ;EP
GETPAT1
PCCLINK ;EP -PCC LINK
RMENU ;EP
CDST1
1 ;
3 ;
PRIMPROB(R) ;
5 ;treatment Plan
OTHER1 ;
7 ;intake
MAILMSG ;
9 ;
8 ;suicide forms
PL ;EP - called from PDE Problem list protocol
4 ;scheduling system
PAUSE ;EP
CHK ; S AMHOKAY=0 D RECCHECK^AMHLE2 I AMHOKAY W !!,"Incomplete record!! Deleting record!!" D DEL,EXIT Q
GETPAT ;EP
HEADER ;
ADD ;EP
OTHER ;EP - collect other data if patient related
CASE(P,R,T) ;return 1 if case already opened
2 ;
OTHERX
GETPROV ;EP - get providers
GETLIST ;
REGULAR ;EP
EXIT ;CLEAN UP AND EXIT
CDSTDEL ;
GETLIST1 ;

External References

Name Field # of Occurrence
START^AMHBPL 9+2, PL+14
$$ESIG^AMHESIG OTHER+2
ESIGGFI^AMHESIG OTHER+10
EP^AMHLCD 2+1
GETDATE^AMHLE PL+9
PCCLINK^AMHLE2 PCCLINK+1
PHX^AMHLE3 3+1
CHECK^AMHLEA CHK+1
SUIC^AMHLEA CHK+13
$$IINTAKE^AMHLEDEL DEL+1
EN^AMHLEDEL DEL+4
^AMHLEFP 6+2
EP2^AMHLEFP2 MAILMSG+5
^AMHLEIN PL+7
$$GETAWI^AMHLEIN ADD+18
$$GETCLN^AMHLEIN ADD+17
$$GETCOMM^AMHLEIN ADD+15
$$GETLOC^AMHLEIN ADD+15
$$GETTOC^AMHLEIN ADD+18
EP1^AMHLEIV 7+1
EN^AMHLESF 8+1
EP1^AMHLETP 5+1
^AMHPEDIT GETPAT1+5
EN^AMHRLKUP PL+12
$$PPINT^AMHUTIL ADD+21, CASE+5
$$HL^AMHUTIL2 ADD+15, ADD1+8
APPT^AMHVRL2 4+1
$$HRN^AUPNPAT MAILMSG+12, MAILMSG+14
^DDS ADD1+1, CDST1+3, 1+2
^DIC GETLIST1+1, GETPAT1+2, 1+1
FILE^DICN ADD+9, CDST+5, GETPROV+4
YN^DICN GETPAT1+7
^DIE ADD+13, ADD+19, ADD1+8, REGULAR+13, MAILMSG+4, MAILMSG+28, CDST1+1, OTHER+9
^DIK CDSTDEL+5
^DIR REGULAR+3, REGULAR+9, REGULAR+14, FS+2, CDSTDEL+2, OTHER+6, OTHERX+3, GETPROV+1, PAUSE+1
$$FTIME^VALM1 HEADER+3
FULL^VALM1 ADD+2, OTHERX, 2+2, PL+1
$$VAL^XBDIQ1 MAILMSG+16
$$VALI^XBDIQ1 ADD1+8
^XBFMK REGULAR+12, MAILMSG+2, MAILMSG+4, CDST+5, CDST1, GETPAT+1, 1+1
EN^XBNEW 6+1
$$FMTE^XLFDT GETPAT1+6
XMZ^XMA2 MAILMSG+21
ENL^XMD MAILMSG+26
ENT1^XMD MAILMSG+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Date not entered."
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !!,"No patient identified."
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !,"Creating new record..."
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",!
  • Line Location: ADD+10
Function Call: WRITE
  • Prompt: !!,"Error updating record......"
  • Line Location: ADD+19
Function Call: WRITE
  • Prompt: !,"No PRIMARY PROVIDER entered!! - Required element"
  • Line Location: ADD+21
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: ADD1+6
Function Call: WRITE
  • Prompt: !!,"Incomplete record!! Deleting record!!"
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"PLEASE EDIT THIS RECORD!!",!!
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: ?28,$P(^VA(200,X,0),U),!
  • Line Location: REGULAR+8
Function Call: WRITE
  • Prompt: !,"Enter the text of your note.",!
  • Line Location: REGULAR+11
Function Call: WRITE
  • Prompt: !,"Sending Mailman message to distribution list"
  • Line Location: MAILMSG+25
Function Call: WRITE
  • Prompt: !,"Message Sent "
  • Line Location: MAILMSG+34
Function Call: WRITE
  • Prompt: !!,"There is already a initial/discharge entry for this visit.",!,"Editing existing data...."
  • Line Location: CDST+3
Function Call: WRITE
  • Prompt: !!,"Creating Initial Chemical Dependency data record..."
  • Line Location: CDST+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Notify supervisor....error in creating Initial Staging record.."
  • Line Location: CDST+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Notify supervisor....error in creating Initial Staging record.."
  • Line Location: CDST1+2
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: CDST1+4
Function Call: WRITE
  • Prompt: !!,"There is a staging tool entry for this visit and this visit",!,"is not an INITIAL, REOPEN, TRAN/DISC/CLOSE or FOLLOW UP.",!
  • Line Location: CDSTDEL+1
Function Call: WRITE
  • Prompt: @IOF,!!!?20,"******* OTHER INFORMATION *******",!!
  • Line Location: OTHERX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OTHER1+2
Function Call: WRITE
  • Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7)
  • Line Location: GETPROV+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)&(AMHC=0)
  • Line Location: GETPAT1+0
Function Call: WRITE
  • Prompt: !!!!!!!!?20,"TYPE THE PATIENT'S HRN, NAME, SSN OR DOB"
  • Line Location: GETPAT1+0
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: GETPAT1+6
Function Call: WRITE
  • Prompt: !!,"This visit has an Initial Intake with Updates, it can not be deleted",!,"until the update documents have been deleted."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"Record deleted."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !,"Update, add or append any of the following data"
  • Line Location: RMENU+2
Function Call: WRITE
  • Prompt: !!,?5,"1). Update any of the following information:"
  • Line Location: RMENU+3
Function Call: WRITE
  • Prompt: !,?10,"Designated Providers, Patient Flag"
  • Line Location: RMENU+4
Function Call: WRITE
  • Prompt: !,?5,"2). Patient Case Open/Admit/Closed Data"
  • Line Location: RMENU+5
Function Call: WRITE
  • Prompt: !,?5,"3). Personal History Information"
  • Line Location: RMENU+6
Function Call: WRITE
  • Prompt: !?5,"4). Appointments (Scheduling System)"
  • Line Location: RMENU+7
Function Call: WRITE
  • Prompt: !?5,"5). Treatment Plan Update"
  • Line Location: RMENU+8
Function Call: WRITE
  • Prompt: !?5,"6). Print an Encounter Form"
  • Line Location: RMENU+9
Function Call: WRITE
  • Prompt: !?5,"7). Add/Update/Print Intake Document"
  • Line Location: RMENU+10
Function Call: WRITE
  • Prompt: !?5,"8). Add/Update Suicide Forms"
  • Line Location: RMENU+11
Function Call: WRITE
  • Prompt: !?5,"9). Problem List Update"
  • Line Location: RMENU+12
Function Call: WRITE
  • Prompt: !,?5,"10). None of the Above (Quit)"
  • Line Location: RMENU+13
Function Call: WRITE
  • Prompt: !,AMHDASH
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"Date of Service: ",$$FTIME^VALM1(AMHDATE),!,AMHDASH
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"FAILED TO ADD PATIENT TO BH PATIENT DATA FILE"
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !!,"Visit not identified."
  • Line Location: 9+1
Function Call: WRITE
  • Prompt: !,"Problem List updates must be attached to a visit. If you are updating the "
  • Line Location: PL+2
Function Call: WRITE
  • Prompt: !,"Problem List in the context of a patient visit select the appropriate existing"
  • Line Location: PL+3
Function Call: WRITE
  • Prompt: !,"visit and then update the Problem List. If you are updating the Problem List "
  • Line Location: PL+4
Function Call: WRITE
  • Prompt: !,"outside of the context of a patient visit, first create a chart review visit "
  • Line Location: PL+5
Function Call: WRITE
  • Prompt: !,"and then update the Problem List."
  • Line Location: PL+6
Function Call: WRITE
  • Prompt: !!,"No visits to select on that date."
  • Line Location: PL+13
Routine Call
  • DIE
  • Line Location:
    • ADD+13
    • ADD+19
    • ADD1+8
    • REGULAR+13
    • MAILMSG+4
    • MAILMSG+28
    • CDST1+1
    • OTHER+9
Routine Call
  • DDS
  • Line Location:
    • ADD1+1
    • CDST1+3
    • 1+2
Routine Call
  • DIC
  • Line Location:
    • GETLIST1+1
    • GETPAT1+2
    • 1+1
Routine Call
  • DIR
  • Line Location:
    • REGULAR+3
    • REGULAR+9
    • REGULAR+14
    • FS+2
    • CDSTDEL+2
    • OTHER+6
    • OTHERX+3
    • GETPROV+1
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^AMHREC - [#9002011] Classic Fileman Calls
^AMHRPROV - [#9002011.02] Classic Fileman Calls
^AMHRCDST - [#9002011.06] Classic Fileman Calls
^AMHPATR - [#9002011.55] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPATR - [#9002011.55] 1+1
^AMHPCASE - [#9002011.58] CASE+5
^AMHPCASE("AA" CASE+5
^AMHRCDST("B" CDST+3, CDSTDEL+5
^AMHREC - [#9002011] REGULAR+13, CASE+5, MAILMSG+4, MAILMSG+17, CDST+2, CDST1+1, DEL+2
^AMHRPRO - [#9002011.01] PRIMPROB+4
^AMHRPRO("AD" PRIMPROB+2
^AMHSITE - [#9002013] REGULAR+2
^AUPNPAT - [#9000001] MAILMSG+14
^DPT - [#2] MAILMSG+15
^TMP("AMHMSG" MAILMSG+1!, MAILMSG+15*, MAILMSG+16*, MAILMSG+17*, MAILMSG+18*
^TMP("AMHS" MAILMSG+1!, MAILMSG+6, MAILMSG+7*, MAILMSG+8*, MAILMSG+9*, MAILMSG+10*, MAILMSG+18, MAILMSG+30!
^VA(200 - [#200] REGULAR+8, MAILMSG+20, MAILMSG+23, GETPROV+1

Label References

Name Line Occurrences
$$PRIMPROB CDST1+1
@( OTHER1+3
ADD1 CHK+3
CDST1 CDST+3
DEL ADD+21
EXIT ADD+21, CHK+2, CHK+15, PL+10, PL+13, PL+15
GETLIST REGULAR+6
GETLIST1 GETLIST1+4
GETPAT OTHER1+1
GETPAT1 GETPAT1+5
GETPROV ADD+21
MAILMSG FS+5
OTHER CHK+13, OTHER+3, OTHERX+7
OTHER1 OTHERX+6
OTHERX OTHER+1
PAUSE ADD+10, MAILMSG+35, CDST+6, CDST1+2, OTHER+5, DEL+1, DEL+5, PL+13
PCCLINK CHK+14
REGULAR CHK+6, REGULAR+7, REGULAR+10, REGULAR+16
RMENU OTHERX+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAILMSG+14*, GETPAT1+7*, 6+1*
>> %1 6+1*
>> AMHACTN ADD+6*, RMENU+1
>> AMHADPTV ADD+5*
>> AMHANS OTHER+3, OTHER+8*
AMHC MAILMSG+11*, MAILMSG+15*, MAILMSG+16*, MAILMSG+17*, MAILMSG+18*, GETPAT+2*, GETPAT1, GETPAT1+3!, GETPAT1+5*, GETPAT1+7!
, GETPAT1+8!
>> AMHCDR CDST+3*, CDST+7*, CDST1+1, CDST1+3
>> AMHDASH HEADER+2, HEADER+3
>> AMHDATE ADD+3, ADD+8, HEADER+3, PL+10
>> AMHDET GETPAT1
AMHDR EXIT+6!
AMHEFT REGULAR+15!, FS+1*, FS+3!, FS+4*, MAILMSG+33!
AMHERROR EXIT+6!
AMHF EXIT+6!
>> AMHLOC PL+11*
AMHNAME EXIT+6!
>> AMHNAVR CHK+11
AMHNONE EXIT+6!
AMHOKAY EXIT+6!
AMHOTH EXIT+6!
>> AMHPAT ADD+4, MAILMSG+12, MAILMSG+14, MAILMSG+15, MAILMSG+16, CDST1+1, OTHER1+1*, GETPROV+4, GETPAT1+1*, GETPAT1+4*
, GETPAT1+5, GETPAT1+7*, 1+1, 1+2, 6+1, 4+1, 5+1, 7+1, PL+11*
>> AMHPATCE PL+8*
AMHPTSV EXIT+6!
>> AMHPTYPE ADD+8, ADD+15, ADD+17
AMHQUIT ADD+6*, ADD1+6*, CDST1+4*, EXIT+6!, 1+3*
AMHR ADD+12*, ADD+13, ADD+14, ADD+21, ADD1+1, ADD1+8, REGULAR+13, MAILMSG+4, MAILMSG+5, MAILMSG+17
, CDST+2, CDST+3, CDST+5, CDST1+1, CDSTDEL+5, OTHER+2, OTHER+9, OTHER+10, GETPROV+4, DEL+1
, DEL+2, DEL+3, EXIT+6!, 6+1, 7+1, 8+1, 9+1, 9+2, PL+13, PL+14
AMHR0 EXIT+6!
AMHRDEL DEL+3*, EXIT+6!
>> AMHSELE OTHERX+6*, OTHER1+3
AMHSHIGH EXIT+6!
AMHV EXIT+6!
AMHVDLT DEL+2*, EXIT+6!
>> AMHVTYPE ADD+8, ADD1+1, CHK+6
AMHX MAILMSG+3*, MAILMSG+4, MAILMSG+33!, EXIT+6!
AMHXMZ MAILMSG+22*, MAILMSG+27, MAILMSG+33!
>> AMHXX OTHER+2*, OTHER+3, OTHER+4, OTHER+5, OTHER+10
>> AMHZDEL CHK+2
>> AMHZDO OTHER+1
>> AMHZED CHK+3
>> APCDOVRR ADD+1*
APCDPKG EXIT+6!
APCDV EXIT+6!
>> AUPNDOD GETPAT1+6
>> C MAILMSG+6*, MAILMSG+7*, MAILMSG+8*, MAILMSG+9*, MAILMSG+10*, MAILMSG+14*
D0 ADD+7!, ADD+9!, GETLIST1+1!, GETPROV+4!
DA ADD+7!, ADD+13*!, ADD+14*, ADD+20!, ADD1+1*, ADD1+8*!, REGULAR+3!, REGULAR+9!, REGULAR+13*, REGULAR+14!
, FS+2!, MAILMSG+4*, MAILMSG+28*!, MAILMSG+33!, CDST1+1*, CDST1+3*, CDSTDEL+2!, CDSTDEL+5*, OTHER+6!, OTHER+9*!
, GETPROV+1!, GETPROV+4!, GETPAT1+2!, 1+2*
DD ADD+7!, GETLIST1+1!, CDST+5!, GETPROV+4!
>> DDSFILE ADD1+1*, CDST1+3*, 1+2*
>> DFN PL+11
DG GETPROV+4!
DH GETPROV+4!
DI GETPROV+4!
DIADD ADD+8*, ADD+9!, CDST+5*!, CDST1!, GETPROV+4*!, GETPAT1+2!
DIC ADD+7!, ADD+8*, ADD+9!, GETLIST1+1!*, CDST+5*!, GETPROV+1!, GETPROV+4*!, GETPAT1+2*!, 1+1*
DIC("A" GETLIST1+1*, GETPAT1*
DIC("DR" ADD+8*, GETPROV+4*
DIC(0 ADD+8*, GETLIST1+1*, CDST+5*, GETPROV+4*, GETPAT1+2*, 1+1*
DIE ADD+9!, ADD+13*!, ADD+14*, ADD+20!, ADD1+8*!, REGULAR+13*, MAILMSG+4*, MAILMSG+28*!, MAILMSG+33!, CDST1+1*
, OTHER+9*!, GETPROV+4!
>> DIK CDSTDEL+5*
DIMSG ADD1+6!, CDST1+4!, 1+3!
DINUM ADD+7!
DIR REGULAR+3!, REGULAR+9!, REGULAR+14!, FS+2!, CDSTDEL+2!, OTHER+6!, OTHERX+3!, GETPROV+1!, PAUSE+1!
DIR("A" REGULAR+3*, REGULAR+9*, REGULAR+14*, FS+2*, CDSTDEL+2*, OTHER+6*, OTHERX+3*, GETPROV+1*, PAUSE+1*
DIR("B" REGULAR+3*, REGULAR+9*, REGULAR+14*, FS+2*, CDSTDEL+2*, OTHER+6*, OTHERX+3*, GETPROV+1*
DIR(0 REGULAR+3*, REGULAR+9*, REGULAR+14*, FS+2*, CDSTDEL+2*, OTHER+6*, OTHERX+3*, GETPROV+1*, PAUSE+1*
DIRUT REGULAR+4, REGULAR+10, REGULAR+15, FS+3, CDSTDEL+3, OTHER+7, OTHERX+3*, OTHERX+4, GETPROV+1!*, GETPROV+2
, PAUSE+1*
DIU GETPROV+4!
DIW GETPROV+4!
DLAYGO ADD+8*, ADD+9!, CDST+5*!, CDST1!, GETPROV+4*!, GETPAT1+2!, 1+1*
DO ADD+7!, GETLIST1+1!, CDST+5!, GETPROV+4!
DQ GETPROV+4!
DR ADD+7!, ADD+9!, ADD+13*!, ADD+15*, ADD+17*, ADD+18*, ADD+20!, ADD1+1*, ADD1+8*!, REGULAR+13*
, GETLIST1+1!, MAILMSG+4*, MAILMSG+28*!, MAILMSG+33!, CDST1+1*, CDST1+3*, OTHER+9*!, GETPAT1+2!, 1+2*
DR(2 ADD+13*
DT CDST1+1
DTOUT GETPROV+1!
DUOUT OTHERX+3, GETPROV+1!, PAUSE+1
DUZ ADD+8, REGULAR+2, MAILMSG+20, MAILMSG+23, CDST1+1, GETPROV+1
DUZ(2 ADD+15, ADD+17, ADD+18, REGULAR+2, MAILMSG+12, MAILMSG+14
H CASE+5~*, CASE+6, MAILMSG+12*, MAILMSG+13*, MAILMSG+14*, MAILMSG+15
I EXIT+7!
IOF OTHERX+1, GETPAT1, HEADER+1
P CASE~, CASE+2, CASE+5
R CASE~, CASE+3, CASE+5, PRIMPROB~, PRIMPROB+1, PRIMPROB+2
T CASE~, CASE+4, CASE+5
U REGULAR+8, CASE+1*, CASE+5, MAILMSG+15, MAILMSG+20, MAILMSG+23, PRIMPROB+4, CDST+2, CDST1+1, OTHER+3
, OTHER+4, OTHER+5, GETPROV+1, DEL+2
>> VALMBCK EXIT+2*
X ADD+8*, ADD+9!, REGULAR+8*, CASE+5~*, MAILMSG+6*, MAILMSG+17*, MAILMSG+18*, PRIMPROB+2~*, PRIMPROB+3, PRIMPROB+4
, CDST+5*, GETPROV+1!, GETPROV+4*, GETPAT1+5*, EXIT+7!, 1+1*
XMDUZ REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+20*, MAILMSG+23*, MAILMSG+33!
XMSUB REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+19*, MAILMSG+33!
XMTEXT REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+24*
XMY REGULAR+6!, REGULAR+7, REGULAR+15!, REGULAR+16!, FS+3!, GETLIST+1!, MAILMSG+33!
XMY( REGULAR+8, GETLIST1+3*, MAILMSG+3
XMZ REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+22, MAILMSG+27*, MAILMSG+28, MAILMSG+33!
Y ADD+10, ADD+12, ADD+19, REGULAR+5, REGULAR+12, REGULAR+16, FS+4, GETLIST1+2, GETLIST1+3, CDST+6
, CDST+7, CDST1+2, CDSTDEL+4, OTHER+8, OTHERX+5, OTHERX+6, GETPROV+1!, GETPROV+3, GETPROV+4, GETPROV+5
, GETPAT1+3, GETPAT1+4, EXIT+7!, 1+1
Z EXIT+7!
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 |  All