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

Package: IHS Patient

Routine: AUPNMCDF


Information

AUPNMCDF ;IHS/OIT/NKD - MCD Eligiblity fix ; 02/19/2015

Source Information

Source file <AUPNMCDF.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 $$GET1^DID  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$FMTE,$$NOW)^XLFDT  ($$CJ,$$REPEAT,$$TITLE)^XLFSTR  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDM  
IHS Patient 1 AUPN9924  
IHS Patient Registration 1 AG9924  
Third Party Billing 1 ABMMCDCU  

Entry Points

Name Comments DBIA/ICR reference
CHKPREV ; CHECK IF ANCILLARIES RAN ON CORRECTED RECORDS
SETANC ; BUILD ANCILLARY GLOBAL
GETANC(AUPNA,AUPNF) ; REPLACE GLOBAL READ
; FLAG=(V)ERSION, (R)OUTINE, DEFAULTS TO BOTH
CHKONE(AUPNI,AUPNO,AUPNR,AUPNV) ; DATA INTEGRITY CHECK, OVERRIDE WILL IGNORE COVERAGE OVERLAP WARNINGS
RPT3 ; EXCLUSION REPORT
PRC ; PROCESS RESULTS FROM A SCAN
SCAN ; SCAN MCD ELIGIBILITY RECORDS FOR NON-DINUMED SUB-RECORDS
RPT1 ; SUMMARY REPORT
RPT2 ; DETAILED REPORT
CONT ; PROMPT TO CONTINUE
ANCIL ; LIST OF ANCILLARY CLEANUPS
GETFIX(AUPNS,AUPNF) ; REPLACE GLOBAL READ
; FLAG=(C)OUNT, DA(T)E, (U)SER, (O)VERRIDE, DEFAULTS TO ALL
INC(RES,CNT,SUB) ; INCREMENT A TOTAL
AUPN(AUPNI,AUPNO,AUPNFX) ; AUPN MAIN CLEANUP
ASK(MSG,DEF) ; PROMPT USER INPUT
LOG(AUPNFL,AUPNI,AUPNFLD,AUPNO) ; EP - LOG RESULTS
; FL=FILE I=IEN FLD=FIELD # O=OLD VALUE
REC(AUPNP,AUPNI,AUPNFX,AUPNEX,AUPNV) ; PROCESS A SINGLE RECORD
MAIN ; EP - MAIN MENU
ANC(AUPNFX,AUPNS,AUPNAL) ; RUN ANCILLARY CLEANUP ROUTINES
; ANCILLARY LIST DEFAULTS TO ALL, CAN BE USED TO SEND SPECIFIC CLEANUPS (CHKPREV)

External References

Name Field # of Occurrence
$$GET1^DID RPT2+16, RPT2+25
FILE^DIE AUPN+6
UPDATE^DIE AUPN+13, AUPN+21
$$GET1^DIQ AUPN+17
^DIR MAIN+11, ASK+5, CONT+2
^XBFMK ANC+11
$$DT^XLFDT AUPN+18, AUPN+20
$$FMTE^XLFDT MAIN+5, CHKPREV+9, RPT1+7, RPT2+7, RPT2+12
$$NOW^XLFDT SCAN+4, PRC+7
$$CJ^XLFSTR RPT1+4, RPT2+3, RPT3+3
$$REPEAT^XLFSTR RPT1+4, RPT2+3, RPT3+3
$$TITLE^XLFSTR RPT2+16, RPT2+24, RPT2+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?8,"Medicaid Eligibility Fix"
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !,?23,"Scan last run at: ",$S($G(^AUPNTMP("SCAN","DT")):$$FMTE^XLFDT($G(^AUPNTMP("SCAN","DT"))),1:"Never")
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !,?10,"(S)can",?25,"Scan and fix corrupt entries"
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !,?10,"(V)erify",?25,"Verify results of previous scans"
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !,?10,"(R)esults",?25,"Display scan results"
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !!,"Scanning AUPNMCD global"
  • Line Location: SCAN+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: SCAN+7
Function Call: WRITE
  • Prompt: "Completed!",?40,"Total records scanned: ",+$G(@AUPNSC@("TOT"))
  • Line Location: SCAN+15
Function Call: WRITE
  • Prompt: !,"No issues found to correct!"
  • Line Location: SCAN+16
Function Call: WRITE
  • Prompt: !,?10,"Record count: ",+$G(@AUPNSC@("REC")),?40,"Entry count: ",+$G(@AUPNSC@("SUB"))
  • Line Location: SCAN+17
Function Call: WRITE
  • Prompt: !!,"Processing ",$G(@AUPNSC@("SUB"))," entries in the MEDICAID ELIGIBILE file..."
  • Line Location: PRC+6
Function Call: WRITE
  • Prompt: "Completed!"
  • Line Location: PRC+11
Function Call: WRITE
  • Prompt: !,+$G(@AUPNFX@(0))," entries successfully processed"
  • Line Location: PRC+12
Function Call: WRITE
  • Prompt: !,+$G(@AUPNEX)," entries were excluded - See report for details"
  • Line Location: PRC+13
Function Call: WRITE
  • Prompt: !,"Scanning corrected records for additional cleanup"
  • Line Location: CHKPREV+4
Function Call: WRITE
  • Prompt: !,?2,"Ancillary cleanup (",AUPNA,") did not run on: ",$$FMTE^XLFDT($$GETFIX(AUPNS,"T"))
  • Line Location: CHKPREV+9
Function Call: WRITE
  • Prompt: !,?4,"Processing (",$TR($E(AUPNR,1,$L(AUPNR)-1),U,","),") cleanup on ",$$GETFIX(AUPNS,"C")," records..."
  • Line Location: CHKPREV+12
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("REPORT (CORRECTED RECORDS)",80),!,$$REPEAT^XLFSTR("*",80)
  • Line Location: RPT1+4
Function Call: WRITE
  • Prompt: !,AUPNS,")",?4,"Run Date: ",$$FMTE^XLFDT($$GETFIX(AUPNS,"T")),?40,"User: ",$$GETFIX(AUPNS,"U"),?60,"Override: ",$S($$GETFIX(AUPNS,"O"):"YES",1:"NO"),!
  • Line Location: RPT1+7
Function Call: WRITE
  • Prompt: !,?2,"Patient: ",AUPNP
  • Line Location: RPT1+8
Function Call: WRITE
  • Prompt: ?21,"MCD Entry: ",AUPNI
  • Line Location: RPT1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT1+10
Function Call: WRITE
  • Prompt: ?39,"Old: ",$P($G(@AUPNFX@(AUPNS2)),U,3),?56,"New: ",$P($G(@AUPNFX@(AUPNS2)),U,4)
  • Line Location: RPT1+11
Function Call: WRITE
  • Prompt: ?75,"OVR"
  • Line Location: RPT1+12
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("REPORT (CORRECTED RECORDS - DETAILED)",80),!,$$REPEAT^XLFSTR("*",80)
  • Line Location: RPT2+3
Function Call: WRITE
  • Prompt: !,AUPNS,")",?4,"Run Date: ",$$FMTE^XLFDT($$GETFIX(AUPNS,"T")),?40,"User: ",$$GETFIX(AUPNS,"U"),?60,"Override: ",$S($$GETFIX(AUPNS,"O"):"Yes",1:"No"),!
  • Line Location: RPT2+7
Function Call: WRITE
  • Prompt: !,"Patient: ",AUPNP,?20,"MCD Entry: ",AUPNI
  • Line Location: RPT2+10
Function Call: WRITE
  • Prompt: ?40,"Last updated: ",$$FMTE^XLFDT($P($G(@AUPNFX@(AUPNS2,9000004,1)),";",3))
  • Line Location: RPT2+12
Function Call: WRITE
  • Prompt: !,?2,"* Old: ",$P($G(@AUPNFX@(AUPNS2)),U,3),?22,"New: ",$P($G(@AUPNFX@(AUPNS2)),U,4)
  • Line Location: RPT2+13
Function Call: WRITE
  • Prompt: !,?4," ",+$G(@AUPNFX@(AUPNS2,AUPNFL,0))," addtl record(s) from ",$$TITLE^XLFSTR($$GET1^DID(AUPNFL,,,"NAME"))," file (#",AUPNFL,")"
  • Line Location: RPT2+16
Function Call: WRITE
  • Prompt: !,?8
  • Line Location: RPT2+23
Function Call: WRITE
  • Prompt: $$TITLE^XLFSTR($P($G(^DD(AUPNT,0)),U))," (#",AUPNT,"), "
  • Line Location: RPT2+24
Function Call: WRITE
  • Prompt: $$TITLE^XLFSTR($$GET1^DID(AUPNT,AUPNT2,,"LABEL"))," field (#",AUPNT2,")"
  • Line Location: RPT2+25
Function Call: WRITE
  • Prompt: !,?8,"- Record: ",$P(AUPND,";")
  • Line Location: RPT2+26
Function Call: WRITE
  • Prompt: ?39,"Old: ",$P(AUPND,";",3)
  • Line Location: RPT2+27
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT2+28
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("REPORT (EXCLUDED RECORDS)",80),!,$$REPEAT^XLFSTR("*",80)
  • Line Location: RPT3+3
Function Call: WRITE
  • Prompt: !,?10,"PATIENT",?20,"RECORD",?30,"ENTRY",?40,"TYPE",?50,"REASON",?65,"CONFLICT ENTRY"
  • Line Location: RPT3+4
Function Call: WRITE
  • Prompt: !,?10,"-------",?20,"------",?30,"-----",?40,"----",?50,"------",?65,"--------------"
  • Line Location: RPT3+5
Function Call: WRITE
  • Prompt: !,?10,AUPNP
  • Line Location: RPT3+6
Function Call: WRITE
  • Prompt: ?20,AUPNI
  • Line Location: RPT3+7
Function Call: WRITE
  • Prompt: ?30,AUPNI2
  • Line Location: RPT3+8
Function Call: WRITE
  • Prompt: ?40,$S(AUPNTYP="E":"ERROR",AUPNTYP="W":"WARNING",1:"")
  • Line Location: RPT3+9
Function Call: WRITE
  • Prompt: ?50,AUPNEXC
  • Line Location: RPT3+10
Function Call: WRITE
  • Prompt: ?65,$P($G(@AUPNEX@(AUPNP,AUPNI,AUPNI2,AUPNTYP,AUPNEXC)),U,AUPNI3),!
  • Line Location: RPT3+11
Routine Call
  • DIE
  • Line Location:
    • AUPN+13
    • AUPN+21
Routine Call
  • DIE
  • Line Location:
    • AUPN+6
Routine Call
  • DIR
  • Line Location:
    • MAIN+11
    • ASK+5
    • CONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNMCD - [#9000004] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCD - [#9000004] SCAN+5, SCAN+6, SCAN+8, SCAN+9, REC+5, REC+6, CHKONE+3, CHKONE+4, CHKONE+5, AUPN+3
^AUPNTMP("ANCILLARY" SETANC+4*, GETANC+4, GETANC+6
^AUPNTMP("CURRENT" REC+11*, REC+16!, CHKPREV+14*, CHKPREV+16!, LOG+3
^AUPNTMP("EXCLUDE" PRC+4, RPT3+2
^AUPNTMP("FIXED" PRC+3, PRC+4, CHKPREV+3, RPT1+5, RPT1+6, RPT2+5, RPT2+6, GETFIX+4
^AUPNTMP("SCAN" MAIN+5, SCAN+2, PRC+2
^DD( RPT2+24

Label References

Name Line Occurrences
$$ASK SCAN+18, PRC+5, CHKPREV+10, RPT2+4
$$CHKONE REC+7
$$GETANC CHKPREV+3, CHKPREV+7, CHKPREV+8, ANC+4, ANC+6
$$GETFIX PRC+4, CHKPREV+2, CHKPREV+9, CHKPREV+12, RPT1+3, RPT1+7, RPT2+2, RPT2+7
@( ANC+9
ANC REC+15, CHKPREV+15
AUPN REC+13
CHKPREV MAIN+14
CONT MAIN+13, MAIN+14, MAIN+15
INC SCAN+7, SCAN+10, SCAN+11, SCAN+12, SCAN+13, PRC+3, REC+8, REC+18, LOG+4
LOG AUPN+21
PRC SCAN+18
REC PRC+10
RPT1 AUPNMCDF+11, MAIN+15
RPT2 AUPNMCDF+11, MAIN+15
RPT3 AUPNMCDF+11, MAIN+15
SCAN AUPNMCDF+11, MAIN+13
SETANC AUPNMCDF+11, MAIN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUPNA REC+1~, CHKPREV+1~, CHKPREV+6*, CHKPREV+7, CHKPREV+8, CHKPREV+9, CHKPREV+10, ANC+2~, ANC+5*, ANC+6
, ANC+10, RPT1+1~, RPT2+1~, SETANC+1~, SETANC+3*, SETANC+4, GETANC~, GETANC+3*, GETANC+5, GETANC+6
AUPNAL ANC~, ANC+4*, ANC+5
AUPNC CHKONE+1~, CHKONE+4*, CHKONE+5, CHKONE+6, CHKONE+7, CHKONE+9, CHKONE+10, CHKPREV+1~, CHKPREV+6*, ANC+2~
, ANC+5*, SETANC+1~, SETANC+2*, GETANC+2~, GETANC+4*, GETANC+5, GETANC+6
AUPNCHG REC+1~, REC+2*, REC+3, REC+5*, REC+14*, REC+18
AUPND CHKONE+1~, CHKONE+5*, CHKONE+7, CHKONE+8, CHKONE+9, CHKONE+10, ANC+2~, ANC+7*, ANC+8, RPT1+1~
, RPT2+1~, RPT2+19*, RPT2+21, RPT2+22, RPT2+26, RPT2+27, SETANC+1~, SETANC+3*, SETANC+4
AUPNDT SCAN+1~, SCAN+9*, SCAN+10, RPT1+1~, RPT2+1~
AUPNE REC+4~, REC+18
AUPNE( REC+12!, REC+18
AUPNEX PRC+1~, PRC+4*, PRC+10, PRC+13, REC~, REC+2*, REC+18, RPT3+1~, RPT3+2*, RPT3+6
, RPT3+7, RPT3+8, RPT3+9, RPT3+10, RPT3+11
AUPNEXC RPT3+1~, RPT3+10*, RPT3+11
AUPNF RPT2+1~, RPT2+4*, RPT2+17, GETANC~, GETANC+3*, GETANC+6, GETFIX~, GETFIX+3*, GETFIX+5
AUPNFL RPT2+1~, RPT2+14*, RPT2+15, RPT2+16, RPT2+18, RPT2+19, RPT2+21, RPT2+24, LOG~, LOG+3*
, LOG+4, LOG+5
AUPNFLD LOG~, LOG+3*, LOG+5
AUPNFX PRC+1~, PRC+4*, PRC+7, PRC+10, PRC+12, REC~, REC+2*, REC+8, REC+9, REC+10
, REC+11, REC+12, REC+13, REC+15, CHKPREV+1~, CHKPREV+3*, CHKPREV+5, CHKPREV+8, CHKPREV+13, CHKPREV+14
, CHKPREV+15, AUPN~, AUPN+2*, AUPN+7, AUPN+14, AUPN+15, ANC~, ANC+3*, ANC+7, ANC+10
, RPT1+1~, RPT1+6*, RPT1+8, RPT1+9, RPT1+10, RPT1+11, RPT1+12, RPT2+1~, RPT2+6*, RPT2+8
, RPT2+9, RPT2+11, RPT2+12, RPT2+13, RPT2+14, RPT2+15, RPT2+16, RPT2+18, RPT2+19, LOG+2~
, LOG+3*, LOG+4, LOG+5
AUPNI SCAN+1~, SCAN+5*, SCAN+6, SCAN+8, SCAN+9, SCAN+12, SCAN+14, PRC+1~, PRC+9*, PRC+10
, REC~, REC+2*, REC+5, REC+6, REC+7, REC+9, REC+10, REC+13, REC+18, CHKONE~
, CHKONE+2*, CHKONE+3, CHKONE+4, CHKONE+5, AUPN~, AUPN+2*, AUPN+3, AUPN+5, AUPN+9, AUPN+10
, AUPN+11, AUPN+17, AUPN+20, AUPN+21, ANC+2~, ANC+8*, RPT1+1~, RPT1+2~, RPT1+9*, RPT1+10
, RPT2+1~, RPT2+9*, RPT2+10, RPT2+11, RPT3+1~, RPT3+7*, RPT3+8, RPT3+9, RPT3+10, RPT3+11
, LOG~, LOG+3*, LOG+5
AUPNI2 SCAN+1~, SCAN+8*, SCAN+9, RPT2+1~, RPT2+18*, RPT2+19, RPT2+20, RPT3+1~, RPT3+8*, RPT3+9
, RPT3+10, RPT3+11
AUPNI3 RPT3+1~, RPT3+11*
AUPNN REC+1~, REC+6*, REC+9, CHKONE+1~, CHKONE+3*, CHKONE+6, CHKONE+8, CHKONE+9, CHKONE+10, AUPN+1~
, AUPN+3*, AUPN+9, AUPN+10, AUPN+11, AUPN+12, AUPN+14, ANC+2~, ANC+8*
AUPNO REC+1~, REC+5*, REC+6, REC+7, REC+9, REC+12, REC+13, REC+18*, CHKONE~, CHKONE+2*
, CHKONE+3, CHKONE+6, CHKONE+9, CHKONE+10, AUPN~, AUPN+2*, AUPN+3, AUPN+5, ANC+2~, ANC+8*
, LOG~, LOG+3*, LOG+5
AUPNP SCAN+1~, SCAN+6*, SCAN+11, SCAN+12, SCAN+14, PRC+1~, PRC+8*, PRC+9, PRC+10, REC~
, REC+2*, REC+9, REC+10, REC+18, ANC+2~, ANC+8*, RPT1+2~, RPT1+8*, RPT1+9, RPT1+10
, RPT2+8*, RPT2+9, RPT2+10, RPT2+11, RPT3+1~, RPT3+6*, RPT3+7, RPT3+8, RPT3+9, RPT3+10
, RPT3+11
AUPNQ AUPNMCDF+10~*, ASK+1, CONT+1
AUPNR SCAN+1~, CHKONE~, CHKONE+2*, CHKONE+6, CHKONE+9, CHKONE+10, CHKPREV+1~, CHKPREV+5*, CHKPREV+10*, CHKPREV+11
, CHKPREV+12, CHKPREV+15, GETANC+2~, GETANC+3*, GETANC+5*, GETANC+6*, GETANC+7, GETFIX+2~, GETFIX+3*, GETFIX+4*
, GETFIX+5*, GETFIX+6
AUPNRO REC+1~, ANC+2~, ANC+6*, ANC+9
AUPNS REC+1~, REC+8*, REC+9, REC+10, REC+11, REC+12, REC+13, REC+15, CHKPREV+1~, CHKPREV+5*
, CHKPREV+8, CHKPREV+9, CHKPREV+12, CHKPREV+13, CHKPREV+14, CHKPREV+15, ANC~, ANC+3*, ANC+7, RPT1+1~
, RPT1+5*, RPT1+6, RPT1+7, RPT2+1~, RPT2+5*, RPT2+6, RPT2+7, GETFIX~, GETFIX+3*, GETFIX+4
AUPNS2 CHKPREV+1~, CHKPREV+13*, CHKPREV+14, CHKPREV+15, RPT1+2~, RPT1+10*, RPT1+11, RPT1+12, RPT2+11*, RPT2+12
, RPT2+13, RPT2+14, RPT2+15, RPT2+16, RPT2+18, RPT2+19
AUPNSC SCAN+1~, SCAN+2*, SCAN+4, SCAN+7, SCAN+10, SCAN+11, SCAN+12, SCAN+13, SCAN+14, SCAN+15
, SCAN+16, SCAN+17, SCAN+18, PRC+1~, PRC+2*, PRC+6, PRC+8, PRC+9
AUPNT CHKONE+1~, CHKONE+2*, CHKONE+6*, CHKONE+11, CHKPREV+1~, CHKPREV+3*, CHKPREV+6, AUPN+1~, AUPN+17*, AUPN+18
, AUPN+21, RPT2+1~, RPT2+21*, RPT2+24, RPT2+25, SETANC+1~, SETANC+2*, SETANC+3
AUPNT2 CHKONE+1~, CHKONE+2*, CHKONE+9*, CHKONE+10*, CHKONE+11, RPT2+1~, RPT2+22*, RPT2+25
AUPNTYP RPT3+1~, RPT3+9*, RPT3+10, RPT3+11
AUPNV PRC+1~, PRC+5*, PRC+7, PRC+10, REC~, REC+2*, REC+7, REC+12, CHKONE~, CHKONE+2*
, CHKONE+11
AUPNVR ANC+2~, ANC+6*, ANC+10
AUPNW RPT1+1~
CNT INC~, INC+1, INC+2
DEF ASK~, ASK+1, ASK+3
DIR MAIN+1~, MAIN+16!, ASK+2~, ASK+5!, CONT+2!
DIR("A" MAIN+10*, ASK+4*, CONT+2*
DIR("B" ASK+3*
DIR(0 MAIN+9*, ASK+3*, CONT+2*
DIROUT MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DIRUT MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DTOUT MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DUOUT MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DUZ PRC+7
ERR AUPN+1~, AUPN+4!, AUPN+7, AUPN+8!, AUPN+15
FDA AUPN+1~, AUPN+4!, AUPN+8!, AUPN+19!
FDA( AUPN+5*, AUPN+9*, AUPN+10*, AUPN+11*
FDA(9000004 AUPN+20*
FDAIEN AUPN+1~, AUPN+8!
FDAIEN(1 AUPN+12*, AUPN+14
MSG ASK~, ASK+4
RES INC~, INC+1*, INC+2
SUB INC~, INC+1
U SCAN+6, SCAN+9, PRC+7, REC+6, REC+9, CHKONE+5, CHKONE+6, CHKONE+8, CHKONE+9, CHKONE+10
, CHKPREV+6, CHKPREV+10, CHKPREV+12, AUPN+9, AUPN+10, AUPN+11, AUPN+12, AUPN+14, ANC+5, ANC+8
, RPT1+11, RPT2+13, RPT2+24, RPT3+11, SETANC+4, GETANC+5, GETANC+6, GETFIX+5, INC+1
Y MAIN+13, MAIN+14, MAIN+15, ASK+2~, ASK+6

Marked Items

Name Field # of Occurrence
$T(@(4) CHKPREV+8
$T(@AUPNRO ANC+6
$T(ANCIL+AUPNC SETANC+2
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