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: AMHLEA

Package: Mental Health Social Services

Routine: AMHLEA


Information

AMHLEA ; IHS/CMI/LAB - ADD NEW CHR ACTIVITY RECORDS ;

Source Information

Source file <AMHLEA.m>

Call Graph

Call Graph Total: 32

Package Total Call Graph
Mental Health Social Services 21 START^AMHBPL  ($$ESIG,ESIG,ESIGGFI)^AMHESIG  EP^AMHLCD  HDR^AMHLE  (PCCLINK,RECCHECK)^AMHLE2  PHX^AMHLE3  PAUSE^AMHLEA  ($$IINTAKE,EN)^AMHLEDEL  
^AMHLEFP  ($$GETAWI,$$GETCLN,$$GETCOMM,$$GETLOC,$$GETTOC,CALLDIE)^AMHLEIN  EP1^AMHLEIV  GATHER^AMHLEL  ADDR^AMHLENS  REGULAR^AMHLEP2  ^AMHLEPOV  EN^AMHLESF  
EP1^AMHLETP  ^AMHPEDIT  ($$ALLOWP,$$PPINT,NALLOWP)^AMHUTIL  $$HL^AMHUTIL2  APPT^AMHVRL2  
VA Fileman 6 ^DDS  ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
IHS VA Utilities 3 $$VALI^XBDIQ1  ^XBFMK  EN^XBNEW  
Registration 2 TERM^VALM0  ($$FTIME,CLEAR,FULL)^VALM1  

Caller Graph

Caller Graph Total: 61

Package Total Caller Graph
Mental Health Social Services 60 AMHDMHPL  AMHDPEE  AMHEGR  AMHEGRPV  AMHEGS  AMHEHR  AMHEHR1  AMHGOM  
AMHLCD  AMHLE  AMHLE2  AMHLEA  AMHLEA1  AMHLEDV  AMHLEE  AMHLEER  
AMHLEGP1  AMHLEI  AMHLEIC  AMHLEIV  AMHLEIVP  AMHLENS  AMHLENS1  AMHLEP1  
AMHLEP2  AMHLEPAT  AMHLEPOV  AMHLESF  AMHLETP  AMHNAVR  AMHPCCL  AMHPHQO  
AMHPST  AMHRAS1  AMHRAS2  AMHRAS3  AMHRAS4  AMHRAS5  AMHRC1  AMHRC4  
AMHRDE1  AMHRDE2  AMHRDE3  AMHRDE4  AMHRDE5  AMHRDISP  AMHRDV1  AMHRDV4  
AMHRDV5  AMHRE1  AMHRGADO  AMHRNS  AMHRPS  AMHRPTI  AMHRSB1  AMHRSR1  
AMHRSR4  AMHRSR5  AMHSFR  AMHVDL  
Patient Care Component Reports 1 APCLAL4  

Entry Points

Name Comments DBIA/ICR reference
ADD1 ;
CDST ;EP
DEL ;EP
GETPAT1
SUIC ;EP - is this a suicide visit? IF so, pop into suicide form
PCCLINK ;EP -PCC LINK
RMENU ;EP - called form AMHLEA
CDST1
3 ;
1 ;EP
GETVTYP ;
PRIMPROB(R) ;EP
5 ;treatment Plan
OTHER1 ;
7 ;intake
6 ;print encounter form
9 ;problem list
8 ;suicide forms
ADDSCR ;screenman mode
4 ;scheduling system
PAUSE ;EP
INDS(R) ;is this a initial or a discharge
OTHERN ;
OTHERO ;
GETPAT ;EP
HEADER ;EP
OTHER ;EP - collect other data if patient related
2 ;
ADDNS ;EP
ADDR ;EP
GETPROV ;get providers
CHECK ;EP
EXIT ;CLEAN UP AND EXIT
CDSTDEL ;

External References

Name Field # of Occurrence
START^AMHBPL 9+1
$$ESIG^AMHESIG OTHERN+4
ESIG^AMHESIG ADDR+30
ESIGGFI^AMHESIG OTHERN+12
EP^AMHLCD 2+1
HDR^AMHLE EXIT+5
PCCLINK^AMHLE2 PCCLINK+1
RECCHECK^AMHLE2 ADDR+25, CHECK+2
PHX^AMHLE3 3+1
PAUSE^AMHLEA 7+1, 7+3, 8+1, 8+3
$$IINTAKE^AMHLEDEL DEL+1
EN^AMHLEDEL DEL+4
^AMHLEFP 6+3
$$GETAWI^AMHLEIN ADDSCR+21
$$GETCLN^AMHLEIN ADDSCR+20
$$GETCOMM^AMHLEIN ADDSCR+19
$$GETLOC^AMHLEIN ADDSCR+19
$$GETTOC^AMHLEIN ADDSCR+21
CALLDIE^AMHLEIN ADDR+19, ADDR+23, ADDR+26, ADDSCR+17
EP1^AMHLEIV 7+4
GATHER^AMHLEL EXIT+3
ADDR^AMHLENS ADDNS+5
REGULAR^AMHLEP2 ADDR+27, ADD1+13
^AMHLEPOV ADDR+21
EN^AMHLESF SUIC+11, 8+4
EP1^AMHLETP 5+1
^AMHPEDIT GETPAT1+5
$$ALLOWP^AMHUTIL GETPAT1+7
$$PPINT^AMHUTIL ADDSCR+24
NALLOWP^AMHUTIL GETPAT1+7
$$HL^AMHUTIL2 ADDSCR+19, ADD1+7
APPT^AMHVRL2 4+1
^DDS ADD1+1, CDST1+3, 1+4
^DIC GETPAT1+2, 1+3
FILE^DICN ADDR+16, ADDSCR+12, CDST+6, GETPROV+6
YN^DICN GETPAT1+6
^DIE ADDR+18, ADDSCR+16, ADDSCR+22, ADD1+7, CDST1+1, OTHERN+11
^DIK CDSTDEL+5
^DIR GETVTYP+4, CDSTDEL+2, SUIC+6, OTHERN+8, OTHERO+3, GETPROV+3, PAUSE+1, CHECK+4
TERM^VALM0 EXIT+1
$$FTIME^VALM1 HEADER+3
CLEAR^VALM1 1+1
FULL^VALM1 ADDR+1, ADDNS+1, ADDSCR+3, OTHER+2, 1+2, 2+2
$$VALI^XBDIQ1 ADD1+7
^XBFMK CDST+6, CDST1, CDST1+2, CDST1+5, GETPAT+1, 1+3
EN^XBNEW 6+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Date not entered."
  • Line Location: ADDR+2
Function Call: WRITE
  • Prompt: !,"Visit type is required!"
  • Line Location: ADDR+10
Function Call: WRITE
  • Prompt: !,"Creating new record..."
  • Line Location: ADDR+16
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",!
  • Line Location: ADDR+17
Function Call: WRITE
  • Prompt: !!,"Incomplete record!! Deleting record!!"
  • Line Location: ADDR+20
Function Call: WRITE
  • Prompt: !!,"Incomplete record!! Deleting record!!"
  • Line Location: ADDR+22
Function Call: WRITE
  • Prompt: !!,"Incomplete record!! Deleting record!!"
  • Line Location: ADDR+24
Function Call: WRITE
  • Prompt: !,"Incomplete record!! Deleting record!!"
  • Line Location: ADDR+25
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDR+26
Function Call: WRITE
  • Prompt: !!,"Date not entered."
  • Line Location: ADDNS+2
Function Call: WRITE
  • Prompt: !!,"Date not entered."
  • Line Location: ADDSCR+4
Function Call: WRITE
  • Prompt: !,"Visit type is required!"
  • Line Location: ADDSCR+8
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",!
  • Line Location: ADDSCR+13
Function Call: WRITE
  • Prompt: !!,"Error updating record......"
  • Line Location: ADDSCR+22
Function Call: WRITE
  • Prompt: !,"No PRIMARY PROVIDER entered!! - Required element"
  • Line Location: ADDSCR+24
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: ADD1+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"PLEASE EDIT THIS RECORD!!",!!
  • Line Location: ADD1+15
Function Call: WRITE
  • Prompt: !!,"There is already a initial/discharge entry for this visit.",!,"Editing existing data...."
  • Line Location: CDST+4
Function Call: WRITE
  • Prompt: !!,"Creating Initial Chemical Dependency data record..."
  • Line Location: CDST+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Notify supervisor....error in creating Initial Staging record.."
  • Line Location: CDST+7
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: !!,"You have entered a diagnosis relating to Suicide. ",!
  • Line Location: SUIC+4
Function Call: WRITE
  • Prompt: !,"IHS Suicide Forms should be filled out for all Suicide Ideations with Plan",!,"and Intent, for all Suicide Attempts and for all Completed Suicides.",!
  • Line Location: SUIC+5
Function Call: WRITE
  • Prompt: @IOF,!!!?20,"******* OTHER INFORMATION *******",!!
  • Line Location: OTHERO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OTHER1+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: GETPROV+1
Function Call: WRITE
  • Prompt: !!!!!!!
  • Line Location: GETPROV+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: GETPROV+2
Function Call: WRITE
  • Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7)
  • Line Location: GETPROV+7
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: !!,"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+3
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !!,"This is not a patient related encounter. Use ID to update an Intake document."
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: !!,"You cannot add/update an intake on a visit created in a group.",!
  • Line Location: 7+3
Function Call: WRITE
  • Prompt: !!,"This is not a patient related encounter. Use SFR to update suicide forms."
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !!,"You cannot add/update a suicide form on a visit created in a group.",!
  • Line Location: 8+3
Function Call: WRITE
  • Prompt: !!,"Incomplete record!!"
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !!,"Deleting record."
  • Line Location: CHECK+7
Routine Call
  • DIE
  • Line Location:
    • ADDR+18
    • ADDSCR+16
    • ADDSCR+22
    • ADD1+7
    • CDST1+1
    • OTHERN+11
Routine Call
  • DDS
  • Line Location:
    • ADD1+1
    • CDST1+3
    • 1+4
Routine Call
  • DIC
  • Line Location:
    • GETPAT1+2
    • 1+3
Routine Call
  • DIR
  • Line Location:
    • GETVTYP+4
    • CDSTDEL+2
    • SUIC+6
    • OTHERN+8
    • OTHERO+3
    • GETPROV+3
    • PAUSE+1
    • CHECK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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+3
^AMHPROB - [#9002012.2] SUIC+2
^AMHRCDST("B" CDST+4, CDSTDEL+5
^AMHREC - [#9002011] ADDR+29, ADDR+30, INDS+2, CDST+3, CDST1+1, DEL+2, 7+1, 7+3, 8+1, 8+3
, 8+4
^AMHRPRO - [#9002011.01] PRIMPROB+4, SUIC+2
^AMHRPRO("AD" ADDR+22, PRIMPROB+2, SUIC+2
^AMHRPROV("AD" ADDR+20, ADDR+22
^VA(200 - [#200] GETPROV+3

Label References

Name Line Occurrences
$$PRIMPROB CDST1+1
@( OTHER1+3
ADD1 ADD1+11
ADDSCR ADDR+5
CDST1 CDST+4
CHECK ADD1+9
DEL ADDR+20, ADDR+22, ADDR+24, ADDR+25, ADDSCR+17, ADDSCR+24, CHECK+7
EXIT ADDR+20, ADDR+22, ADDR+24, ADDR+25, ADDR+32, ADDNS+6, ADDSCR+17, ADDSCR+24, ADD1+10, ADD1+20
GETPAT ADDSCR+17, OTHER1+1, GETPAT1+7
GETPAT1 GETPAT1+5
GETPROV ADDSCR+24
HEADER ADDR+13
OTHER ADDR+29, ADD1+17, OTHERN+5
OTHER1 OTHERO+6
OTHERN OTHERO+7
OTHERO OTHERN+1
PAUSE ADDR+17, ADDSCR+13, CDST+7, CDST1+2, OTHERN+7, GETPAT1+7, DEL+1, DEL+5
PCCLINK ADDR+31, ADD1+18
RMENU OTHERO+2
SUIC ADDR+29, ADD1+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETPAT1+6*, 6+1*
>> %1 6+1*
>> AMHACTN ADDR+3*, ADDNS+3*, ADDSCR+5*, RMENU+1, CHECK+6
>> AMHADPTV ADDR+4, ADDR+19, ADDR+27, ADDSCR+17, ADD1+1, ADD1+13, ADD1+17, ADD1+18, GETPROV+1
>> AMHANS OTHERN+3*, OTHERN+5, OTHERN+10*
AMHC GETPAT+2*, GETPAT1, GETPAT1+3!, GETPAT1+5*, GETPAT1+6!, GETPAT1+8!
>> AMHCDR CDST+4*, CDST+8*, CDST1+1, CDST1+3
>> AMHDASH HEADER+2, HEADER+3
>> AMHDATE ADDR+2, ADDR+16, ADDNS+2, ADDSCR+4, ADDSCR+11, HEADER+3
>> AMHDET ADDR+5, GETVTYP+1, GETVTYP+2, GETPAT1
AMHDR EXIT+6!
AMHERROR ADD1+15, EXIT+6!
AMHF EXIT+6!
>> AMHFIRST OTHER+1*, OTHERN+1, OTHERN+13*
>> AMHLEAP SUIC+9*, SUIC+12, SUIC+13
AMHNAME EXIT+6!
AMHNOLOG 6+2*, 6+4!
AMHNONE EXIT+6!
AMHOKAY ADDR+25*, EXIT+6!, CHECK+2*
AMHOTH EXIT+6!
AMHPAT ADDR+4!, ADDR+15!, ADDSCR+2!, ADDSCR+17, CDST1+1, SUIC+1, SUIC+9, SUIC+12*, OTHER1+1*, GETPROV+6
, GETPAT1+1*, GETPAT1+4*, GETPAT1+5, GETPAT1+6*, GETPAT1+7, 1+3, 1+4, 6+1, 4+1, 5+1
, 7+4
>> AMHPATCE ADDR+15, ADDSCR+2, ADDSCR+17
AMHPTSV EXIT+6!
>> AMHPTYPE ADDSCR+11, ADDSCR+19, ADDSCR+20
AMHQUIT ADDR+3*, ADDNS+3*, ADDSCR+5*, ADD1+6*, CDST1+4*, EXIT+6!, 1+5*
AMHR ADDR+18*, ADDR+19, ADDR+20, ADDR+22, ADDR+23, ADDR+26, ADDR+29, ADDR+30, ADDSCR+15*, ADDSCR+16
, ADDSCR+17, ADDSCR+18, ADDSCR+24, ADD1+1, ADD1+7, CDST+3, CDST+4, CDST+6, CDST1+1, CDSTDEL+5
, SUIC+2, OTHERN+4, OTHERN+11, OTHERN+12, GETPROV+6, DEL+1, DEL+2, DEL+3, EXIT+6!, 6+1
, 7+1, 7+2, 7+3, 7+4, 8+1, 8+2, 8+3, 8+4, 9+1
AMHR0 EXIT+6!
>> AMHRCNT EXIT+4
AMHRDEL DEL+3*, EXIT+6!
>> AMHSELE OTHERO+6*, OTHER1+1, OTHER1+3
AMHSHIGH EXIT+6!
AMHV EXIT+6!
AMHVDLT DEL+2*, EXIT+6!
>> AMHVT GETVTYP+6*
>> AMHVTYPE ADDR+8*, ADDR+19, ADDR+23, ADDR+27, ADDSCR+10*, ADDSCR+11, ADD1+1, ADD1+13, GETVTYP+5*, GETVTYP+6*
AMHX EXIT+6!
AMHXX OTHERN+2!, OTHERN+4*, OTHERN+5, OTHERN+6, OTHERN+7, OTHERN+12
>> AMHZDEL ADD1+10, CHECK+1*, CHECK+8*
>> AMHZED ADD1+11, CHECK+1*, CHECK+5*
>> APCDOVRR ADDR+14*, ADDNS+4*, ADDSCR+1*
APCDPKG EXIT+6!
APCDV EXIT+6!
D0 ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6!
DA ADDR+16!, ADDR+18*!, ADDR+19*, ADDR+23*, ADDR+26*, ADDSCR+16*!, ADDSCR+17*, ADDSCR+18*, ADDSCR+23!, ADD1+1*
, ADD1+7*!, GETVTYP+3!, CDST1+1*, CDST1+3*, CDSTDEL+2!, CDSTDEL+5*, SUIC+6!, OTHERN+8!, OTHERN+11*!, GETPROV+3!
, GETPROV+6!, GETPAT1+2!, 1+4*, CHECK+4!
DD ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6!
>> DDSFILE ADD1+1*, CDST1+3*, 1+4*
>> DFN SUIC+9*, SUIC+13*, 8+4*
DG GETPROV+6!
DH GETPROV+6!
DI GETPROV+6!
DIADD ADDR+16*!, ADDSCR+11*, ADDSCR+12!, CDST+6*!, CDST1!, GETPROV+6*!, GETPAT1+2!
DIC ADDR+16!*, ADDSCR+11!*, ADDSCR+12!, CDST+6*!, GETPROV+3!, GETPROV+6*!, GETPAT1+2*!, 1+3*
DIC("A" GETPAT1*
DIC("DR" ADDR+16*, ADDSCR+11*, GETPROV+6*
DIC(0 ADDR+16*, ADDSCR+11*, CDST+6*, GETPROV+6*, GETPAT1+2*, 1+3*
DIE ADDR+16!, ADDR+18*!, ADDR+19*, ADDR+23*, ADDR+26*, ADDSCR+12!, ADDSCR+16*!, ADDSCR+17*, ADDSCR+18*, ADDSCR+23!
, ADD1+7*!, CDST1+1*, OTHERN+11*!, GETPROV+6!
>> DIK CDSTDEL+5*
DIMSG ADD1+6!, CDST1+4!, 1+5!
DINUM ADDR+16!
DIR GETVTYP+4!, CDSTDEL+2!, SUIC+6!, OTHERN+8!, OTHERO+3!, GETPROV+3!, PAUSE+1!, CHECK+4!
DIR("A" GETVTYP+3*, CDSTDEL+2*, SUIC+6*, OTHERN+8*, OTHERO+3*, GETPROV+3*, PAUSE+1*, CHECK+4*
DIR("B" GETVTYP+3*, CDSTDEL+2*, SUIC+6*, OTHERN+8*, OTHERO+3*, GETPROV+3*, CHECK+4*
DIR(0 GETVTYP+1*, GETVTYP+2*, CDSTDEL+2*, SUIC+6*, OTHERN+8*, OTHERO+3*, GETPROV+3*, PAUSE+1*, CHECK+4*
DIRUT GETVTYP+5, CDSTDEL+3, SUIC+7, OTHERN+9, OTHERO+4, GETPROV+3!*, GETPROV+4, PAUSE+1*
DIU GETPROV+6!
DIW GETPROV+6!
DLAYGO ADDR+16*!, ADDSCR+11*, ADDSCR+12!, CDST+6*!, CDST1!, GETPROV+6*!, GETPAT1+2!, 1+3*
DO ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6!
DQ GETPROV+6!
DR ADDR+16!, ADDR+18*!, ADDR+19*, ADDR+23*, ADDR+26*, ADDSCR+12!, ADDSCR+16*!, ADDSCR+17*, ADDSCR+19*, ADDSCR+20*
, ADDSCR+21*, ADDSCR+23!, ADD1+1*, ADD1+7*!, CDST1+1*, CDST1+3*, OTHERN+11*!, GETPAT1+2!, 1+4*
DR(2 ADDR+18*, ADDSCR+16*
DT CDST1+1
DTOUT GETPROV+3!
DUOUT GETPROV+3!, PAUSE+1
DUZ ADDSCR+11, CDST1+1, GETPROV+3, GETPAT1+7
DUZ(2 ADDSCR+19, ADDSCR+20, ADDSCR+21
G SUIC+2~*, SUIC+3
I EXIT+7!
IOF OTHERO+1, GETPROV+1, GETPAT1, HEADER+1
R INDS~, INDS+1, INDS+2, PRIMPROB~, PRIMPROB+1, PRIMPROB+2
U ADDR+29, ADDR+30, INDS+2, PRIMPROB+4, CDST+3, CDST1+1, SUIC+2, OTHERN+5, OTHERN+6, OTHERN+7
, GETPROV+3, DEL+2, 7+1, 7+3, 8+1, 8+3, 8+4
>> VALMBCK EXIT+2*
>> VALMCNT EXIT+4*
X ADDR+16*!, ADDSCR+11*, ADDSCR+12!, PRIMPROB+2~*, PRIMPROB+3, PRIMPROB+4, CDST+6*, SUIC+2~*, GETPROV+3!, GETPROV+6*
, GETPAT1+5*, EXIT+7!, 1+3*
Y ADDR+17, ADDR+18, ADDR+20, ADDR+24, ADDSCR+13, ADDSCR+15, ADDSCR+22, GETVTYP+6, CDST+7, CDST+8
, CDST1+2, CDSTDEL+4, SUIC+2~*, SUIC+8, OTHERN+10, OTHERO+5, OTHERO+6, GETPROV+3!, GETPROV+5, GETPROV+6
, GETPROV+7, GETPAT1+3, GETPAT1+4, EXIT+7!, 1+3, CHECK+5
Y(0 GETVTYP+6
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