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

Package: Accounts Receivable

Routine: RCDPTAR1


Information

RCDPTAR1 ;ALB/DMB - EFT TRANSACTION AUDIT REPORT (Summary) ;08/19/15

Source Information

Source file <RCDPTAR1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$UP^XLFSTR  
Accounts Receivable 3 $$EXCEL^RCDMCUT2  ($$DATE,$$NOW)^RCDPRU  $$AGED^RCDPTAR  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Accounts Receivable 1 RCDPTAR  

Entry Points

Name Comments DBIA/ICR reference
SUM ;EP from RCDPTAR
; Display EFT Transaction Audit Report in original summary mode by Deposit Date
SUM2 ;EP from RCDPTAR
; Display EFT Transaction Audit Report in summary mode by Deposit Number
ASKDNUM() ; Ask the user for the deposit number to select
; Input: None
; Returns: -1 - User quit or timed out
; Deposit Number
DNUM2 ; looping tag
SELDT(CTR,ARR) ; Ask the user to select a deposit date for the selected Deposit Number
; Input: CTR - Current # of choices displayed
; ARR - Array of available choices ARR(A1)=A2 Where:
; A1 - Selection #
; A2 - Deposit Date
; Returns: "" - Nothing selected, Otherwise selected deposit date is returned
; -1 if user '^' or timed out
ASKDEV(WHICH) ; Prompt user for device
; Input: WHICH - 0 - Original summary report, 1 - New summary report
; Retunrs: -1 - Unable to open device, 1 otherwise
; Prompt for device
RUN(RCDT1,RCDT2,RCEXCEL) ; Compile and run the report (original summary mode)
; Input: RCDT1 - Start Date
; RCDT2 - End Date
; RCEXCEL - 1 - Excel output, 0 otherwise
RUN2(RDNUM,RCDDT,RCEXCEL) ; Compile and run the report (new summary mode)
; Input: RCDNUM - Deposit Number
; RCDDT - Deposit Date
; RCEXCEL - 1 - Excel output, 0 otherwise
COMPILE(RCDT1,RCDT2) ; Compile the report (original summary mode)
; Input: RCDT1 - Start Date
; RCDT2 - End Date
MDATE(STATUS,EFTIEN) ; Finds the Match Date from the Match History Global for the EFT
; Input: STATUS - Internal value from the EFT MATCH STATUS field
; EFTIEN - EDI THIRD PARTY EFT DETAIL (#344.31) IEN
; Returns: Match Date from the MATCH STATUS HISTORY (#344.314) multiple
COMPILE2(RCDNUM,RCDDT) ; Compile the report (new summary mode)
; Input: RCDNUM - Deposit Number
; RCDDT - Deposit Date
REPORT(RCDT1,RCDT2,RCEXCEL) ; Output the report (original summary mode)
; Input: RCDT1 - Start Date
; RCDT2 - End Date
; RCEXCEL - 1 - Excel output, 0 otherwise
REPORT2(RCDNUM,RCDDT,RCEXCEL) ; Output the report (new summary mode)
; Input: RCDNUM - Deposit Number
; RCDDT - Deposit Date
; RCEXCEL - 1 - Excel output, 0 otherwise
HEADER(RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCEXCEL,RCDNUM,RCDDT) ; Display the report header
; Input: RCNOW - External Run Date/Time
; RCPG - Current page number
; RCHR - Dashed line
; RCDT1 - Start Date or null if new summary report
; RCDT2 - End Date or null if new summary report
; RCEXCEL - 1 - Excel output, 0 otherwise
; RCDNUM - Deposit Number or null if original summary report
; RCDDT - Internal Deposit Date or null if original summary report
; Output: RCPG - Updated page number
EXMSG ;
PAUSE() ; Display press return to continue message
CHKP(RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCEXCEL,RCSCR,LINES,RCDNUM,RCDDT) ; Check if we need to do a page break
; Input: RCNOW - Run date/time
; RCPG - Current Page Number
; RCHR - Dashed line
; RCDT1 - Start Date or null if new summary report
; RCDT2 - End Date or null if new summary report
; RCEXCEL - 1 if output to Excel, 0 otherwise
; RSCR - 1 output to screen, otherwise output to paper
; LINES - Current # of lines on the page
; RCDNUM - Deposit Number or null if original summary report
; RCDDT - Deposit Date or null if original summary report
; Output: RCPG - New Page Number or 0 if user quit display
EFT(EFTIEN) ; Format EFT output - EFT.SEQ - PRCA*4.5*326
; Input: EFTIEN - Internal EFT number
; Returns: EFT.Sequence #

External References

Name Field # of Occurrence
^%ZIS ASKDEV+6
HOME^%ZIS ASKDEV+16
^%ZISC REPORT+34, REPORT2+40
^%ZTLOAD ASKDEV+14
$$GET1^DIQ COMPILE+27, COMPILE2+10, EFT+3
GETS^DIQ MDATE+17
^DIR SUM+7, SUM+15, DNUM2+4, SELDT+10, PAUSE+3
$$EXCEL^RCDMCUT2 SUM+19, SUM2+21
$$DATE^RCDPRU COMPILE+27, COMPILE+29, COMPILE+30, COMPILE2+17, COMPILE2+19, HEADER+31, HEADER+37
$$NOW^RCDPRU REPORT+8, REPORT2+8
$$AGED^RCDPTAR COMPILE+34
$$FMTE^XLFDT SUM2+15, REPORT2+36
$$UP^XLFSTR REPORT+8, REPORT2+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select Deposit:"
  • Line Location: SUM2+7
Function Call: WRITE
  • Prompt: !,$J(CTR,3)," ",RCDNUM," on: ",XX
  • Line Location: SUM2+16
Function Call: WRITE
  • Prompt: *7,"Deposit Number: ",X," does not exist"
  • Line Location: DNUM2+7
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: ASKDEV+15
Function Call: WRITE
  • Prompt: !,"No data found"
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: !,$P(DATA,U,9),$$EFT(EFTIEN),U,$P(DATA,U,1,8)
  • Line Location: REPORT+25
Function Call: WRITE
  • Prompt: !,$P(DATA,U,9),$$EFT(EFTIEN),?13,$P(DATA,U,1),?25,$P(DATA,U,2),?37,$J($P(DATA,U,3),13,2),?54,$P(DATA,U,4),?69,$P(DATA,U,5)
  • Line Location: REPORT+28
Function Call: WRITE
  • Prompt: !,?4,$P(DATA,U,6)
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: !,?11,$P(DATA,U,7),"/",$P(DATA,U,8)
  • Line Location: REPORT+30
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: REPORT+32
Function Call: WRITE
  • Prompt: !,"No data found"
  • Line Location: REPORT2+15
Function Call: WRITE
  • Prompt: !,$$EFT(EFTIEN),"^",DATA
  • Line Location: REPORT2+27
Function Call: WRITE
  • Prompt: !,$$EFT(EFTIEN),?13,$P(DATA,"^",1),?26,$P(DATA,"^",2)
  • Line Location: REPORT2+30
Function Call: WRITE
  • Prompt: ?40,$P(DATA,"^",3),?55,$J($P(DATA,"^",4),13,2)
  • Line Location: REPORT2+31
Function Call: WRITE
  • Prompt: !,?4,$P(DATA,"^",5)
  • Line Location: REPORT2+32
Function Call: WRITE
  • Prompt: !,?11,$P(DATA,"^",6),"/",$P(DATA,"^",7)
  • Line Location: REPORT2+33
Function Call: WRITE
  • Prompt: !!,"Total for Deposit #: ",RCDNUM," Deposit Date: ",$$FMTE^XLFDT(RCDDT,"5DZ")
  • Line Location: REPORT2+36
Function Call: WRITE
  • Prompt: ?51,$J(GTOT,13,2)
  • Line Location: REPORT2+37
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: REPORT2+38
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,"EFT#^DATE RECEIVED^DEPOSIT#^EFT TOTAL AMT^DATE MATCHED^DATE POSTED^TRACE #^PAYER NAME^PAYER ID"
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: !,"EFT#^DEPOSIT#^DEPOSIT DATE^DATE RECEIVED^EFT TOTAL AMT^TRACE #^PAYER NAME^PAYER ID"
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE)\2),LINE
  • Line Location: HEADER+26
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE)\2),LINE
  • Line Location: HEADER+28
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE)\2),LINE
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: !!,"EFT#",?13,"DATE RECVD",?25,"DEPOSIT#",?37,"EFT TOTAL AMT",?54,"DATE MATCHED",?69,"DATE POSTED"
  • Line Location: HEADER+33
Function Call: WRITE
  • Prompt: !,?4,"TRACE #",!,?11,"PAYER NAME/ID"
  • Line Location: HEADER+34
Function Call: WRITE
  • Prompt: !,RCHR
  • Line Location: HEADER+35
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE)\2),LINE
  • Line Location: HEADER+39
Function Call: WRITE
  • Prompt: !!,"EFT#",?13,"DEPOSIT#",?26,"DEPOSIT DATE",?40,"DATE RECEIVED",?55,"EFT TOTAL AMT"
  • Line Location: HEADER+40
Function Call: WRITE
  • Prompt: !,?4,"TRACE #",!,?11,"PAYER NAME/ID"
  • Line Location: HEADER+41
Function Call: WRITE
  • Prompt: !,RCHR
  • Line Location: HEADER+42
Function Call: WRITE
  • Prompt: !!?5,"To capture as an Excel format, it is recommended that you queue this"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !?5,"report to a spool device with margins of 256 and page length of 99999"
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !?5,"(e.g. spoolname;256;99999). This should help avoid wrapping problems."
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !!?5,"Another method would be to set up your terminal to capture the detail"
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !?5,"report data. On some terminals, this can be done by clicking on the"
  • Line Location: EXMSG+7
Function Call: WRITE
  • Prompt: !?5,"'Tools' menu above, then click on 'Capture Incoming Data' to save to"
  • Line Location: EXMSG+8
Function Call: WRITE
  • Prompt: !?5,"Desktop. To avoid undesired wrapping of the data saved to the file,"
  • Line Location: EXMSG+9
Function Call: WRITE
  • Prompt: !?5,"please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: EXMSG+10
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+6
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+16
Routine Call
  • DIR
  • Line Location:
    • SUM+7
    • SUM+15
    • DNUM2+4
    • SELDT+10
    • PAUSE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.3 - [#344.3] GET1^DIQ
^RCY(344.31 - [#344.31] GET1^DIQ
344.314 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.3 - [#344.3] SUM2+9, DNUM2+6, COMPILE+8, COMPILE+12, COMPILE+14, COMPILE2+8
^RCY(344.31 - [#344.31] COMPILE+19, COMPILE+21, MDATE+12, COMPILE2+13, COMPILE2+15
^TMP("RCDPTAR1" RUN+8!, RUN2+8!, COMPILE+5!, COMPILE+27*, COMPILE+28*, COMPILE+29*, COMPILE+30*, COMPILE+31*, COMPILE+32*, COMPILE+33*
, COMPILE+34*, COMPILE2+4!, COMPILE2+16*, COMPILE2+18*, COMPILE2+20*, COMPILE2+22*, COMPILE2+24*, COMPILE2+26*, COMPILE2+28*, COMPILE2+29*
, REPORT+15, REPORT+18, REPORT+19, REPORT2+15, REPORT2+18, REPORT2+19, REPORT2+20

Label References

Name Line Occurrences
$$ASKDEV SUM+23, SUM2+25
$$ASKDNUM SUM2+4
$$EFT REPORT+25, REPORT+28, REPORT2+27, REPORT2+30
$$MDATE COMPILE+24
$$PAUSE CHKP+14
$$SELDT SUM2+12, SUM2+18
CHKP REPORT+22, REPORT2+23
COMPILE RUN+5
COMPILE2 RUN2+5
DNUM2 DNUM2+6
EXMSG SUM+21, SUM2+23
HEADER REPORT+12, REPORT2+12, CHKP+15
PAUSE REPORT+36, REPORT2+42
REPORT RUN+7
REPORT2 RUN2+7
RUN SUM+26
RUN2 SUM2+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKDEV+4~, ASKDEV+5*
ARR SUM2+2~, SUM2+12, SUM2+18, SELDT~
ARR( SUM2+14*, SELDT+12
CDDT SUM2+2~, SUM2+6*, SUM2+9*, SUM2+10, SUM2+14, SUM2+15
CTR SUM2+2~, SUM2+6*, SUM2+11, SUM2+12, SUM2+14*, SUM2+16, SUM2+17, SUM2+18, SELDT~, SELDT+8
, SELDT+9
DA ASKDNUM+4~
DATA REPORT+4~, REPORT+19*, REPORT+25, REPORT+28, REPORT+29, REPORT+30, REPORT2+4~, REPORT2+20*, REPORT2+27, REPORT2+30
, REPORT2+31, REPORT2+32, REPORT2+33
DIR SUM+2~, SUM+12!, SUM2+2~, ASKDNUM+4~, SELDT+7~, PAUSE+1~
DIR("?" SUM+6*, SUM+14*, DNUM2+3*, SELDT+9*
DIR("A" SUM+5*, SUM+13*, DNUM2+2*, SELDT+8*
DIR("B" SUM+5*, SUM+13*
DIR(0 SUM+5*, SUM+13*, DNUM2+1*, SELDT+8*, PAUSE+2*
DIROUT SUM+2~, SUM2+2~, ASKDNUM+4~, SELDT+7~, PAUSE+1~
DIRUT SUM+2~, SUM2+2~, ASKDNUM+4~, SELDT+7~, SELDT+12, PAUSE+1~
DT SUM+5, SUM+13
DTOUT SUM+2~, SUM+8, SUM+16, SUM2+2~, ASKDNUM+4~, DNUM2+5, SELDT+7~, SELDT+11, PAUSE+1~
DUOUT SUM+2~, SUM+8, SUM+16, SUM2+2~, ASKDNUM+4~, DNUM2+5, SELDT+7~, SELDT+11, PAUSE+1~
EFTDATA COMPILE+3~, COMPILE+21*, COMPILE+24, COMPILE+27, COMPILE+28, COMPILE+31, COMPILE+32, COMPILE+33, COMPILE2+3~, COMPILE2+15*
, COMPILE2+19, COMPILE2+21, COMPILE2+23, COMPILE2+25, COMPILE2+27
EFTIEN COMPILE+3~, COMPILE+17*, COMPILE+18, COMPILE+19*, COMPILE+20, COMPILE+21, COMPILE+24, COMPILE+27, COMPILE+28, COMPILE+29
, COMPILE+30, COMPILE+31, COMPILE+32, COMPILE+33, COMPILE+34, MDATE~, MDATE+7, MDATE+12, MDATE+16, COMPILE2+3~
, COMPILE2+11*, COMPILE2+12, COMPILE2+13*, COMPILE2+14, COMPILE2+15, COMPILE2+16, COMPILE2+18, COMPILE2+20, COMPILE2+22, COMPILE2+24
, COMPILE2+26, COMPILE2+28, REPORT+4~, REPORT+18*, REPORT+19, REPORT+25, REPORT+28, REPORT2+4~, REPORT2+18*, REPORT2+19*
, REPORT2+20, REPORT2+27, REPORT2+30, EFT~, EFT+3
GTOT COMPILE2+3~, COMPILE2+5*, COMPILE2+21*, COMPILE2+29, REPORT2+4~, REPORT2+18*, REPORT2+37
IENS MDATE+9~, MDATE+16*, MDATE+17, MDATE+20, MDATE+21
IO SUM+25, SUM2+26, REPORT+11, REPORT2+11
IO("Q" ASKDEV+8
IOF REPORT+32, REPORT2+38, HEADER+11
IOM REPORT+8, REPORT2+8, HEADER+26, HEADER+28, HEADER+32, HEADER+39
ION ASKDEV+11
IOSL CHKP+13
IOST REPORT+7, REPORT2+7
LINE HEADER+23~, HEADER+25*, HEADER+26, HEADER+27*, HEADER+28, HEADER+31*, HEADER+32, HEADER+37*, HEADER+39
LINES REPORT+4~, REPORT+20*, REPORT+21*, REPORT+22, REPORT2+4~, REPORT2+21*, REPORT2+22*, REPORT2+23, CHKP~, CHKP+13
LOCKDATA COMPILE+3~, COMPILE+14*, COMPILE+30
LOCKIEN COMPILE+3~, COMPILE+10*, COMPILE+11, COMPILE+12*, COMPILE+13, COMPILE+14, COMPILE+19, COMPILE+27
MDATE COMPILE+3~, COMPILE+24*, COMPILE+29
MIEN MDATE+9~, MDATE+12*, MDATE+13, MDATE+16
POP ASKDEV+4~, ASKDEV+7
RCDATA MDATE+9~
RCDATA( MDATE+20, MDATE+21
RCDDT SUM2+3~, SUM2+6*, SUM2+8, SUM2+12*, SUM2+13, SUM2+17, SUM2+18*, SUM2+19, SUM2+20, SUM2+27
, RUN2~, RUN2+5, RUN2+7, COMPILE2~, COMPILE2+8, COMPILE2+17, REPORT2~, REPORT2+12, REPORT2+23, REPORT2+36
, HEADER~, HEADER+37, CHKP~, CHKP+15
RCDIEN COMPILE2+3~, COMPILE2+6*, COMPILE2+7, COMPILE2+8*, COMPILE2+9, COMPILE2+13
RCDNUM SUM2+3~, SUM2+4*, SUM2+5, SUM2+9, SUM2+16, SUM2+27, RUN2+5, RUN2+7, COMPILE2~, COMPILE2+8
, COMPILE2+16, REPORT2~, REPORT2+12, REPORT2+23, REPORT2+36, HEADER~, HEADER+37, HEADER+38, CHKP~, CHKP+15
RCDT COMPILE+3~, COMPILE+6*, COMPILE+7, COMPILE+8*, COMPILE+9, COMPILE+12
RCDT1 SUM+2~, SUM+9*, SUM+13, SUM+26, SUM2+3~, RUN~, RUN+5, RUN+7, COMPILE~, COMPILE+6
, REPORT~, REPORT+12, REPORT+22, HEADER~, HEADER+16, HEADER+30, HEADER+31, CHKP~, CHKP+15
RCDT2 SUM+2~, SUM+17*, SUM+26, SUM2+3~, RUN~, RUN+5, RUN+7, COMPILE~, COMPILE+6*, COMPILE+7
, COMPILE+9, REPORT~, REPORT+12, REPORT+22, HEADER~, HEADER+31, CHKP~, CHKP+15
RCDTREC COMPILE2+3~, COMPILE2+10*
RCEXCEL SUM+2~, SUM+19*, SUM+20, SUM+21, SUM+26, SUM2+3~, SUM2+21*, SUM2+22, SUM2+23, SUM2+27
, RUN~, RUN+7, RUN2~, RUN2+7, REPORT~, REPORT+12, REPORT+20, REPORT+22, REPORT+25, REPORT2~
, REPORT2+12, REPORT2+21, REPORT2+23, REPORT2+27, REPORT2+35, HEADER~, HEADER+14, CHKP~, CHKP+15
RCHR REPORT+4~, REPORT+8*, REPORT+12, REPORT+22, REPORT2+4~, REPORT2+8*, REPORT2+12, REPORT2+23, HEADER~, HEADER+35
, HEADER+42, CHKP~, CHKP+15
RCNOW REPORT+4~, REPORT+8*, REPORT+12, REPORT+22, REPORT2+4~, REPORT2+8*, REPORT2+12, REPORT2+23, HEADER~, HEADER+27
, CHKP~, CHKP+15
RCPG REPORT+4~, REPORT+8*, REPORT+12, REPORT+18, REPORT+22, REPORT+23, REPORT+36, REPORT2+4~, REPORT2+8*, REPORT2+12
, REPORT2+19, REPORT2+23, REPORT2+24, REPORT2+35, REPORT2+42, HEADER~, HEADER+20*, HEADER+24*, HEADER+25, CHKP~
, CHKP+14*, CHKP+15
RCSCR REPORT+4~, REPORT+7*, REPORT+21, REPORT+22, REPORT+32, REPORT+36, REPORT2+4~, REPORT2+7*, REPORT2+22, REPORT2+23
, REPORT2+38, REPORT2+42, CHKP~, CHKP+14
RCSTOP SUM2+3~, SUM2+6*, SUM2+8, SUM2+13*, SUM2+19*, SUM2+20
RDNUM RUN2~
STATUS MDATE~, MDATE+6
U COMPILE+24, COMPILE+27, COMPILE+28, COMPILE+29, COMPILE+30, COMPILE+31, COMPILE+32, COMPILE+33, COMPILE+34, COMPILE2+21
, REPORT+25, REPORT+28, REPORT+29, REPORT+30
WHICH ASKDEV~, ASKDEV+9, ASKDEV+10
X SUM+2~, SUM2+3~, ASKDNUM+4~, DNUM2+6, DNUM2+7, DNUM2+8, SELDT+7~, PAUSE+1~
XX SUM2+3~, SUM2+15*, SUM2+16, COMPILE+3~, COMPILE2+3~, COMPILE2+17*, COMPILE2+18, COMPILE2+19*, COMPILE2+20, COMPILE2+21*
, COMPILE2+22, COMPILE2+23*, COMPILE2+24, COMPILE2+25*, COMPILE2+26, COMPILE2+27*, COMPILE2+28
Y SUM+2~, SUM+8, SUM+9, SUM+16, SUM+17, SUM2+3~, ASKDNUM+4~, DNUM2+5, SELDT+7~, SELDT+11
, SELDT+12, PAUSE+1~, PAUSE+4
ZTDESC ASKDEV+4~, ASKDEV+13*
ZTIO ASKDEV+4~, ASKDEV+11*
>> ZTQUEUED REPORT+33, REPORT2+39
>> ZTREQ REPORT+33*, REPORT2+39*
ZTRTN ASKDEV+4~, ASKDEV+9*, ASKDEV+10*
ZTSAVE ASKDEV+4~
ZTSAVE("*" ASKDEV+12*
ZTSK ASKDEV+4~, ASKDEV+15
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