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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSNPPSMS

Package: National Drug File

Routine: PSNPPSMS


Information

PSNPPSMS ;HP/LE-PPSN update NDFK ; 05 Mar 2014 1:20 PM

Source Information

Source file <PSNPPSMS.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 6 NOW^%DTC  FILE^DICN  (,UPDATE)^DIE  $$GET1^DIQ  ^DIR  ^DIWP  
Kernel 5 (CLOSE,OPEN)^%ZISH  USE^%ZISUTL  ^%ZTLOAD  $$FMTE^XLFDT  OUT^XPDMENU  
National Drug File 3 $$GETD^PSNFTP  $$LEGACY^PSNPPSDL  $$SEND^PSNPPSNC  
MailMan 1 ^XMD  

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

Package Total Caller Graph
National Drug File 9 PSN PPS REJECT FILE  PSNPPSCL  PSNPPSI1  PSNPPSI2  PSNPPSI3  PSNPPSMG  PSNPPSNF  PSNPPSNK  
PSNPPSNU  

Entry Points

Name Comments DBIA/ICR reference
56(FILE,DIA,NEW,PSNTMPN) ;Drug Interaction file (#56) changes into 5000.561
IGU ;For National VistA Test SQA use only
IGU2 ;
RJ ; execute file rejection
CONT ;
ACTION ; prompt user for action type (complete/reject)
RETRY ; try to resend of complete message to PPS-N within one hour
NEWTRY ; send of complete message to PPS-N
N1
CTRLFILE(FILE) ;PROCESS CONTROL FILE, FILE NUMBER
CTRLIEN(IENS) ;PROCESS CONTROL FILE, IENS
CTRLSS(SS) ;PROCESS CONTROL FILE, SUBSCRIPT
CTRKDL(DSPLY) ;PROCESS CONTROLL FILE, DISPLAYED LAST
RESOP ;Restarting option and protocol which were paused during install
LOAD1 ;BUILD THE MESSAGE
HAZWASTE ;AFTER POPULATION OF HAZ WASTE FIELDS - CREATE DELIMITED FILE
QUEST ;
QUESTA ;
QUESTB ;
QUESTC ;
DISMNU ;disable menu options
DISOUT(NAM,PSREASON) ;
ENABLE ;enable menu options
ENABLE2(NAM,PSREASON) ;
ERRORMS ;FILE ERRORS ENCOUNTERED
ASK(FILE) ; check if the file has been finalized
ASK1(FILE) ; check if the file has been previously installed
REJUPD(FILE) ; update reject history node

External References

Name Field # of Occurrence
NOW^%DTC DISMNU+2, ENABLE+8, ENABLE+17, ERRORMS+2, REJUPD+6
CLOSE^%ZISH HAZWASTE+19
OPEN^%ZISH HAZWASTE+4
USE^%ZISUTL HAZWASTE+9
^%ZTLOAD RETRY+5
FILE^DICN 56+9
^DIE 56+11, 56+13, RESOP+8
UPDATE^DIE CTRLFILE+3, CTRLIEN+3, CTRLSS+3, CTRKDL+3, LOAD1+3, REJUPD+3, REJUPD+7
$$GET1^DIQ IGU+5, IGU2+13, HAZWASTE+14, HAZWASTE+15, QUEST+2, DISMNU+10, DISMNU+12, DISMNU+14, ENABLE+11, ENABLE+13
, ENABLE+15
^DIR IGU2+9, RJ+2, CONT+1, ACTION+4, RETRY+6
^DIWP LOAD1+7, LOAD1+8
$$GETD^PSNFTP HAZWASTE+2
$$LEGACY^PSNPPSDL IGU2+1
$$SEND^PSNPPSNC IGU2+18, RJ+6, N1
$$FMTE^XLFDT LOAD1+20
^XMD N1+8
OUT^XPDMENU DISMNU+4, DISMNU+5, DISMNU+6, DISMNU+7, DISOUT+1, ENABLE+4, ENABLE+5, ENABLE+6, ENABLE+7, ENABLE2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: IGU2+3
Function Call: WRITE
  • Prompt: "Note: Local sites may send completion messages for PPSN Update files, but may"
  • Line Location: IGU2+4
Function Call: WRITE
  • Prompt: !!!,$G(IOBON),"WARNING:",$G(IOBOFF)," The selected file hasn't been downloaded in VistA. It must be ",!,?9,"downloaded before you can be take action.",$C(7)
  • Line Location: IGU2+12
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter to continue... "
  • Variable: ENTER
  • Timeout: 60
  • Line Location: IGU2+13
Function Call: WRITE
  • Prompt: !!!,$G(IOBON),"WARNING:",$G(IOBOFF)," Reject isn't allowed for Update files older than the current",!,?9,"downloaded version",$C(7)
  • Line Location: IGU2+13
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: IGU2+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: IGU2+18
Function Call: WRITE
  • Prompt: !,"Complete message was sent to PPS-N. File should be approved/rejected ",!,"in PPS-N side.",!
  • Line Location: IGU2+19
Function Call: WRITE
  • Prompt: !,"There was a problem and the data file was not completed in PPS-N side."
  • Line Location: IGU2+20
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: RJ+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RJ+2
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: RJ+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RJ+4
Function Call: WRITE
  • Prompt: !!,FILE," has been automatically rejected in PPS-N.",!
  • Line Location: RJ+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTION+2
Function Call: WRITE
  • Prompt: !,"There was a problem and the data file was not completed in PPS-N side."
  • Line Location: RETRY+1
Function Call: WRITE
  • Prompt: !,"The completion message will be automatically resent to PPS-N until the message is successfully transmitted or one hour has elapsed.",!
  • Line Location: RETRY+2
Function Call: WRITE
  • Prompt: !!,"Queued as task #"_ZTSK
  • Line Location: RETRY+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: RETRY+6
Function Call: WRITE
  • Prompt: "VA PRODUCT IEN^NAME^HAZARDOUS TO HANDLE^HAZARDOUS TO DISPOSE^PRIMARY EPA CODE^WASTE SORT CODE^DOT SHIPPING CODE^VUID",!
  • Line Location: HAZWASTE+10
Function Call: WRITE
  • Prompt: !!,"The following PPS-N/NDF Update file(s) are available for install: ",!
  • Line Location: QUEST+8
Function Call: WRITE
  • Prompt: !?5,XX_")",?12,$P(X22,";")
  • Line Location: QUEST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEST+11
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter to continue... "
  • Variable: ENTER
  • Timeout: 60
  • Line Location: QUEST+12
Function Call: WRITE
  • Prompt: !,?5,"There are no files to install.",!
  • Line Location: QUEST+12
Function Call: WRITE
  • Prompt: !,"The files must be installed in sequential order and take around"
  • Line Location: QUESTA+1
Function Call: WRITE
  • Prompt: !,"30 minutes each to install. Pharmacy will be down for that period"
  • Line Location: QUESTA+2
Function Call: WRITE
  • Prompt: !,"of time. Do you want to install just the first one or all of them?"
  • Line Location: QUESTA+3
Function Call: WRITE
  • Prompt: !!,"No action taken.",!
  • Line Location: QUESTB+2
Function Call: WRITE
  • Prompt: !!,"Enter F to install only the first file or A to install all files."
  • Line Location: QUESTB+3
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: DISMNU+2
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: DISMNU+10
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: DISMNU+12
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: DISMNU+13
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: DISMNU+14
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: ENABLE+11
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: ENABLE+13
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: ENABLE+15
Function Call: WRITE
  • Prompt: !,"Options and protocols enabled: "
  • Line Location: ENABLE+17
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: ENABLE+17
Function Call: WRITE
  • Prompt: !!,"WARNING: File has been rejected and finalized. It's not recommended to",!,?9,"reject it again."
  • Line Location: ASK+7
Routine Call
  • DIE
  • Line Location:
    • 56+11
    • 56+13
    • RESOP+8
Routine Call
  • DIE
  • Line Location:
    • CTRLFILE+3
    • CTRLIEN+3
    • CTRLSS+3
    • CTRKDL+3
    • LOAD1+3
    • REJUPD+3
    • REJUPD+7
Routine Call
  • DIR
  • Line Location:
    • IGU2+9
    • RJ+2
    • CONT+1
    • ACTION+4
    • RETRY+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ
^DIC(19 - [#19] GET1^DIQ
^DIC(19.2 - [#19.2] GET1^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ
^PS(57.23 - [#57.23] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DISMNU+2, ENABLE+8, ENABLE+17
^NDFK(5000.56 56+8, 56+12
^ORD(101 - [#101] DISMNU+15*, ENABLE+16*
^PS(57.23 - [#57.23] IGU2+11, RJ+1, RJ+15*, DISMNU+10, DISMNU+12, DISMNU+14, ENABLE+11, ENABLE+13, ENABLE+15, ERRORMS+4
, ERRORMS+10, ERRORMS+11*, ERRORMS+12, ERRORMS+14*, ASK+5, ASK+6, ASK+7, ASK1+3, ASK1+4, ASK1+5
, REJUPD+5
^PS(59.7 - [#59.7] 56+5
^PSNDF(50.68 - [#50.68] HAZWASTE+11, HAZWASTE+12, HAZWASTE+16
^TMP("PSN PPSN ERR" ERRORMS+4, ERRORMS+5, ERRORMS+6, ERRORMS+7, ERRORMS+8, ERRORMS+9
^TMP("PSN PPSN PARSED" LOAD1+8
^TMP("PSN" LOAD1+6*, LOAD1+9*, LOAD1+11*, LOAD1+12*, LOAD1+16*, LOAD1+17*, LOAD1+19*, LOAD1+20*, LOAD1+21*
^TMP("PSNCON" RESOP+1, RESOP+4, RESOP+6
^TMP($J LOAD1+12, LOAD1+14, LOAD1+19, LOAD1+21
^UTILITY($J LOAD1+5!, LOAD1+9, LOAD1+10!

Label References

Name Line Occurrences
$$ASK RJ+1
$$ASK1 ACTION+1
ACTION IGU2+15
CONT IGU2+17
DISOUT DISMNU+10, DISMNU+12, ENABLE+11, ENABLE+13
IGU2 RJ+7
N1 N1+2
QUESTA QUEST+13
QUESTB QUESTB+3
REJUPD RJ+16
RETRY IGU2+21

Naked Globals

Name Field # of Occurrence
^( LOAD1+21
^(0 LOAD1+20*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DISMNU+2, ENABLE+8, ENABLE+17, ERRORMS+14, REJUPD+4!, REJUPD+7
ACT IGU+4~, IGU+5*, IGU2+15, IGU2+16*, IGU2+17, ACTION+1*, ACTION+2!, ACTION+4*
ANS IGU+4~, RJ+3*
>> B1( QUEST+7, QUEST+9!, QUESTC+1!, QUESTC+4!
COMM IGU+4~, IGU2+18*, IGU2+19, IGU2+21, RJ+6*, RJ+7, RJ+8, RJ+15, NEWTRY+1~, N1*
, N1+2, N1+6
>> CTRLIEN CTRLFILE+2, CTRLIEN+2, CTRLSS+2, CTRKDL+2, LOAD1+2
>> CTRLXIEN CTRLFILE+2, CTRLIEN+2, CTRLSS+2, CTRKDL+2, LOAD1+2
DA 56+4~, 56+10*, 56+11*, 56+13*, RESOP+2~, RESOP+7*
DATA HAZWASTE+1~, HAZWASTE+17*, HAZWASTE+18
DAY NEWTRY+1~*, N1+1*
DD 56+4~
DIA 56~, 56+6, 56+8, 56+9, 56+11, 56+12, 56+13
DIC 56+4~, 56+9*, 56+10!, 56+13*
DIC(0 56+9*
DIE 56+4~, 56+10*, 56+11*, 56+13*, RESOP+2~, RESOP+7*
DINUM 56+4~, 56+9*
DIR IGU2+6!, IGU2+9!, RJ+2!, CONT+1!, ACTION+2!, RETRY+6!
DIR("?" IGU2+8*, IGU2+9*, CONT+1*, ACTION+3*, RETRY+6*
DIR("A" IGU2+7*, RJ+2*, CONT+1*, ACTION+2*, RETRY+6*
DIR("B" RJ+2*, ACTION+2*
DIR(0 IGU2+6*, RJ+2*, CONT+1*, ACTION+2*, RETRY+6*
DIRUT QUEST+1~, QUESTB+2
DIWL LOAD1+1~, LOAD1+5*, LOAD1+9
DIWR LOAD1+1~, LOAD1+5*
DO 56+4~
DOTSC HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+14*, HAZWASTE+16*, HAZWASTE+17
DR 56+11*, 56+13*, RESOP+2~, RESOP+7*
DSPLY CTRKDL~, CTRKDL+2
DTOUT IGU2+10, RJ+2, QUEST+1~
DUOUT IGU2+10, RJ+2, QUEST+1~, QUESTB+2
DUZ N1+4, REJUPD+7
EDTM NEWTRY+1~, N1+1*
ELAPS NEWTRY+1~*, N1+1*, N1+2
ENTER IGU+4~, IGU2+13*, QUEST+12*
FDA 56+4~, CTRLFILE+1!, CTRLFILE+4!, CTRLIEN+1!, CTRLIEN+4!, CTRLSS+1!, CTRLSS+4!, CTRKDL+1!, CTRKDL+4!, LOAD1+4!
, REJUPD+1!, REJUPD+4!
FDA( CTRLFILE+2*, CTRLIEN+2*, CTRLSS+2*, CTRKDL+2*, LOAD1+2*, REJUPD+3*, REJUPD+7*
FILE 56~, IGU+4~, IGU2+9*, IGU2+10, IGU2+11, IGU2+13, IGU2+18, RJ+1, RJ+2, RJ+6
, RJ+10, RJ+15, RJ+16, ACTION+1, N1, N1+4, CTRLFILE~, CTRLFILE+2, ASK~, ASK+5
, ASK+6, ASK1~, ASK1+3, ASK1+4, REJUPD~, REJUPD+3, REJUPD+5
FIRST QUEST+1~, QUESTC+3*, QUESTC+4
FL RESOP+2~, RESOP+3*, RESOP+4*, RESOP+6, RESOP+7
FLD1 56+4~, 56+6*, 56+7
FLG IGU+4~, IGU2+11*, IGU2+12
HAZTODIS HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+15*, HAZWASTE+17
HAZTOHAN HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+15*, HAZWASTE+17
IEN RESOP+2~, RESOP+5*, RESOP+6*, RESOP+7, HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+11*, HAZWASTE+12, HAZWASTE+14, HAZWASTE+15
, HAZWASTE+16, HAZWASTE+17, DISMNU+9*, ENABLE+10*
IEN6 REJUPD+4!, REJUPD+5*, REJUPD+7
IENS CTRLIEN~, CTRLIEN+2
II IGU+4~, IGU2+11*
>> INDX LOAD1+7, LOAD1+12, LOAD1+14, LOAD1+19, LOAD1+20, LOAD1+21
IOBOFF IGU+4~, IGU2+12, IGU2+13
IOBON IGU+4~, IGU2+12, IGU2+13
J LOAD1+1~, LOAD1+8*, LOAD1+9*, LOAD1+21*
>> LINE LOAD1+6*, LOAD1+9*, LOAD1+11*, LOAD1+12*, LOAD1+16*, LOAD1+17*, LOAD1+19, LOAD1+20*, LOAD1+21*
LSTD ASK+3~, ASK+6*, ASK+8, ASK1+1~, ASK1+2*, ASK1+4*, REJUPD+2~*
LSTI ASK1+1~, ASK1+2*, ASK1+5*, ASK1+6
NA LOAD1+1~, LOAD1+12*, LOAD1+13*, LOAD1+14*, LOAD1+19, LOAD1+20, LOAD1+21
NAM DISMNU+1~, DISMNU+10*, DISMNU+12*, DISMNU+14*, DISOUT~, DISOUT+1, ENABLE+11*, ENABLE+13*, ENABLE+15*, ENABLE2~
, ENABLE2+1
NAME HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+14*, HAZWASTE+17
NDFIEN 56+4~, 56+6*
NEW 56~, 56+7
NFF RJ+1~*, RJ+16
NFILE ASK+3~, ASK+6*, ASK+7, ASK1+1~, ASK1+4*, ASK1+5
PARAM IGU+4~, IGU+5*, IGU2+2, RJ+1
POP HAZWASTE+1~, HAZWASTE+5, HAZWASTE+8*
PRIMESC HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+15*, HAZWASTE+17
PSCOMFIL HAZWASTE+1~, HAZWASTE+3*, HAZWASTE+4
PSFILE QUEST+1~, QUEST+4*
PSFILES QUEST+1~
PSFILES( QUESTC+1, QUESTC+3, QUESTC+4
PSFILES(99999999 QUEST+10*
PSFLG QUEST+1~, QUEST+2*
PSI ASK+3~, ASK+4*, ASK+5*, ASK+6, ASK+8, ASK1+1~, ASK1+2*, ASK1+3*, ASK1+4, REJUPD+2~
PSLAST QUEST+1~, QUEST+2*, QUEST+3, QUEST+4, QUEST+9
PSMSGTXT ERRORMS+1~
PSNECNT ERRORMS+1~, ERRORMS+3*, ERRORMS+10*, ERRORMS+11, ERRORMS+12, ERRORMS+14
PSNECNT2 ERRORMS+1~, ERRORMS+3*, ERRORMS+12*, ERRORMS+13*, ERRORMS+14
PSNEEN ERRORMS+1~
PSNEFIL ERRORMS+1~, ERRORMS+3*, ERRORMS+5*, ERRORMS+6, ERRORMS+7, ERRORMS+8, ERRORMS+9, ERRORMS+14
PSNEFLD ERRORMS+1~, ERRORMS+3*, ERRORMS+7*, ERRORMS+8, ERRORMS+9
PSNEIEN ERRORMS+1~, ERRORMS+3*, ERRORMS+6*, ERRORMS+7, ERRORMS+8, ERRORMS+9, ERRORMS+14
PSNESEQ ERRORMS+1~, ERRORMS+3*, ERRORMS+8*, ERRORMS+9
PSNESEQ2 ERRORMS+1~
PSNEUFS ERRORMS+1~, ERRORMS+3*, ERRORMS+4*, ERRORMS+5, ERRORMS+6, ERRORMS+7, ERRORMS+8, ERRORMS+9, ERRORMS+14
PSNEW QUEST+1~, QUEST+3*, QUEST+4, QUEST+5
PSNEX ERRORMS+1~, ERRORMS+3*, ERRORMS+9*, ERRORMS+14
PSNEXT QUEST+1~, QUEST+5*
PSNFIRST LOAD1+1~, LOAD1+13*, LOAD1+15, LOAD1+18*
PSNLEGF IGU+4~, IGU2+1*
PSNPS 56+4~, 56+5*
>> PSNSCJOB DISMNU+2, DISMNU+8, DISMNU+11, DISMNU+13, ENABLE+3, ENABLE+8, ENABLE+9, ENABLE+12, ENABLE+14
PSNTMPN 56~, 56+7
PSNTXT NEWTRY+1~
PSNTXT(1 N1+5*
PSNTXT(2 N1+6*
PSNWP LOAD1+1~
PSRC HAZWASTE+1~, HAZWASTE+6*
PSREASON DISMNU+1~, DISMNU+3*, DISMNU+4, DISMNU+5, DISMNU+6, DISMNU+7, DISMNU+10, DISMNU+12, DISMNU+15, DISOUT~
, DISOUT+1, ENABLE+1~, ENABLE+2*, ENABLE+11, ENABLE+13, ENABLE2~, ENABLE2+1
PSVUID HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+14*, HAZWASTE+17
PSWRKDIR HAZWASTE+1~, HAZWASTE+2*, HAZWASTE+4
QCNT QUEST+1~, QUEST+3*, QUEST+8*
QUEST QUEST+1~, QUEST+6*, QUESTB+1*, QUESTB+2, QUESTB+3, QUESTC+2
>> QUIT2 QUEST+12*, QUESTB+2*, QUESTC+5*
SDTM NEWTRY+1~*, N1+1
SEQ DISMNU+1~, DISMNU+9*, DISMNU+10*, DISMNU+12*, DISMNU+14*, DISMNU+15, ENABLE+10*, ENABLE+11*, ENABLE+13*, ENABLE+15*
, ENABLE+16
SS CTRLSS~, CTRLSS+2
STAT 56+4~, 56+7*, 56+11, 56+13
TYPE 56+4~, IGU+4~, IGU+5*, IGU2+2*, IGU2+4, IGU2+7, IGU2+15, IGU2+16
U DISMNU+15, ENABLE+16
WASTE HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+15*, HAZWASTE+17
X 56+9*, LOAD1+7*, LOAD1+8*, LOAD1+19*, LOAD1+20, HAZWASTE+1~, HAZWASTE+8*, HAZWASTE+12*, HAZWASTE+15
X2 QUEST+1~, QUEST+6*, QUEST+7*, QUEST+9, QUESTC+1*, QUESTC+3*, QUESTC+4*
X22 QUEST+1~, QUEST+6*, QUEST+7*, QUEST+9, QUEST+10, QUESTC+1*, QUESTC+4*
>> XMDUZ N1+7*
>> XMSUB N1+4*
>> XMTEXT N1+7*
>> XMY( N1+4*
XX NEWTRY+1~*, N1+1*, QUEST+1~, QUEST+6*, QUEST+10*, QUEST+12, QUEST+13
Y 56+10, IGU2+9, RJ+3, ACTION+4, DISMNU+1~, DISMNU+2*, ENABLE+1~, ENABLE+8*, ENABLE+17*
ZTDESC RETRY+3~, RETRY+4*
ZTDTH RETRY+3~, RETRY+5*
ZTIO RETRY+3~, RETRY+4*
ZTQUEUED IGU+4~, NEWTRY+2
ZTREQ IGU+4~, NEWTRY+2*
ZTRTN RETRY+3~, RETRY+4*
>> ZTSAVE("DUZ" RETRY+5*
>> ZTSAVE("FILE" RETRY+5*
ZTSK RETRY+3~, RETRY+5!
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 |  Naked Globals |  Local Variables  | All