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

Package: DSS Extracts

Routine: ECXSCLD


Information

ECXSCLD ;BIR/DMA,CML-Enter, Print and Edit Entries in 728.44 ;5/9/17 12:31

Source Information

Source file <ECXSCLD.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 7 (,HOME)^%ZIS  ^%ZISC  (,ISQED)^%ZTLOAD  ($$FMADD,$$FMTE,$$HTE,$$NOW)^XLFDT  $$LJ^XLFSTR  $$KCHK^XUSRB  $$NODEV^XUTMDEVQ  
VA FileMan 5 ^DIC  ^DIE  ENALL^DIK  ($$GET1,GETS)^DIQ  ^DIR  
DSS Extracts 2 ($$ERRCHK,ERRPRNT,EXPORT,HEAD,SHOWEM,SS)^ECXSCLD1  ^ECXSCX1  

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

Package Total Caller Graph
DSS Extracts 5 ECXSCAPPROV  ECXSCEDIT  ECXSCLIST  ECXSCLOAD  ECXSCRP  
Scheduling 1 SD53P568  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
START ; entry point
FIX(EC) ;
; synchronize files #44 and #728.44.
UPDATE(ECSC,ECDDIF,ECSCSIGN) ;update ^xtmp node with today's changes
SELECT ;select IO device to 'gather clinic stop codes' and print 'unreviewd clinics' report;
PRINT ; print worksheet for updates
SPRINT ; queued entry to print work sheet
HEAD ; header for worksheet 149 moved to ECXSCLD1 due to size
SHOWEM ; list clinics for worksheet 149 moved to ECXSCLD1 due to size
EDIT ; put in DSS stopcodes and which one to send
ENDCHK ;check validity of clinic
ERRPRNT ;print errors 149 moved to ECXSCLD1 due to size
KILL ;
ERRCHK(CODE,TYPE,CLIEN1) ;check for problems 149 moved to ECXSCLD1 due to size
APPROVE ; approve current DSS Stop and Credit Stop codes
APPLOOP ; queued entry to approve action codes
ENDX
PAUSE ;pause screen
LOOK ;queued entry to check for new clinics

External References

Name Field # of Occurrence
^%ZIS SELECT+9, PRINT+21
HOME^%ZIS SELECT+19, PRINT+22
^%ZISC SELECT+19, SPRINT+43
^%ZTLOAD SELECT+14, PRINT+22, APPROVE+9
ISQED^%ZTLOAD EN+17
^DIC FIX+14, EDIT+3
^DIE FIX+60, ENDCHK+19, APPLOOP+1
ENALL^DIK START+3
$$GET1^DIQ EN+18, SPRINT+22, SPRINT+26, SPRINT+28
GETS^DIQ ENDCHK+16, ENDCHK+22
^DIR EN+22, EN+27, PRINT+18, APPROVE+8, PAUSE+2
$$ERRCHK^ECXSCLD1 ERRCHK+1
ERRPRNT^ECXSCLD1 ERRPRNT+1
EXPORT^ECXSCLD1 PRINT+19
HEAD^ECXSCLD1 HEAD+1
SHOWEM^ECXSCLD1 SHOWEM+1
SS^ECXSCLD1 SPRINT+41
^ECXSCX1 LOOK+6
$$FMADD^XLFDT EN+23, APPLOOP+3
$$FMTE^XLFDT EN+15, EN+26, PRINT+9, SPRINT+4
$$HTE^XLFDT EN+18
$$NOW^XLFDT EN+26, FIX+58, FIX+59
$$LJ^XLFSTR LOOK+5
$$KCHK^XUSRB EN+12, SELECT+4
$$NODEV^XUTMDEVQ EN+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option creates local entries in the DSS CLINIC AND STOP CODES"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"file (#728.44).",!
  • Line Location: EN+4
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"DSS Clinic stop code file does not exist",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),".",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"Running CREATE..."
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !!,"The CREATE option has completed on ",$$FMTE^XLFDT($$NOW^XLFDT),".",!
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,"DSS CSC",!
  • Line Location: FIX+49
Function Call: WRITE
  • Prompt: !,"Please select a print device for the 'Unreviewed Clinics' report."
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !,"**Please note: If printing in foreground, synching files may cause screen delay."
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !,"Queued as Task #: "_ZTSK
  • Line Location: SELECT+15
Function Call: WRITE
  • Prompt: !!,">> Synchronizing Stop Codes file (#728.44) with the Hospital"
  • Line Location: SELECT+16
Function Call: WRITE
  • Prompt: !," Location file (#44)...",!
  • Line Location: SELECT+17
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"DSS Clinic stop code file does not exist",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"This option produces a worksheet of (A) All Clinics, (C) Active, (D) Duplicate, (I) Inactive, "
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"or only the (U) Unreviewed Clinics that are awaiting approval."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"Clinics that were defined as ""inactive"" by MAS/HAS the last time the"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"option ""Create DSS Clinic Stop Code File"" was run will be indicated with",!,"an ""*""."
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,"Choose (X) for exporting the CLINICS AND STOP CODES FILE to a text file for"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"spreadsheet use.",!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"**REMINDER - The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),"."
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"If the most recent clinic changes from the HOSPITAL LOCATION file #44",!,"are desired, run the CREATE option before running a report.**",!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"**REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY**",!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR WORKSHEET.",!
  • Line Location: SPRINT+13
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR WORKSHEET.",!
  • Line Location: SPRINT+29
Function Call: WRITE
  • Prompt: !
  • Line Location: SPRINT+38
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"DSS Clinic stop code file does not exist",!!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !!,"...Errors found please fix."
  • Line Location: ENDCHK+14
Function Call: WRITE
  • Prompt: !!,"This option allows you to mark the current clinic entries in the CLINICS AND",!,"STOP CODES file (#728.44) as ""reviewed"". Those entries will then be omitted"
  • Line Location: APPROVE+1
Function Call: WRITE
  • Prompt: !,"from the list printed from the ""Clinic and DSS Stop Codes Print"" when you",!,"choose to print only ""unreviewed"" clinics.",!
  • Line Location: APPROVE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: APPROVE+9
Function Call: WRITE
  • Prompt: !!,"...approval queued"
  • Line Location: APPROVE+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • SELECT+9
    • PRINT+21
Routine Call
  • %ZIS
  • Line Location:
    • SELECT+19
    • PRINT+22
Routine Call
  • DIC
  • Line Location:
    • FIX+14
    • EDIT+3
Routine Call
  • DIE
  • Line Location:
    • FIX+60
    • ENDCHK+19
    • APPLOOP+1
Routine Call
  • DIR
  • Line Location:
    • EN+22
    • EN+27
    • PRINT+18
    • APPROVE+8
    • PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^SC - [#44] GET1^DIQ
^ECX(728.44 - [#728.44] Classic Fileman Calls,  GETS^DIQ
^ECX(728.441 - [#728.441] GET1^DIQ
^ECX(728.442 - [#728.442] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] FIX+15, FIX+30
^ECX(728.44 - [#728.44] EN+5, EN+15, FIX+8, FIX+11, FIX+35*, FIX+38, FIX+53*, PRINT+2, PRINT+9, SPRINT+4
, SPRINT+7, SPRINT+18, SPRINT+19, EDIT+1, ENDCHK+20*, ENDCHK+21*, ENDCHK+24*, APPLOOP+1, LOOK+3
^SC - [#44] START+2, FIX+5, FIX+7, FIX+31, SPRINT+8, SPRINT+9, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+19
, SPRINT+20, SPRINT+26, SPRINT+28, LOOK+3, LOOK+5
^TMP("EC" SPRINT+5!, SPRINT+9*, SPRINT+10*, SPRINT+11*, SPRINT+12*, SPRINT+13, SPRINT+15, SPRINT+24, SPRINT+25*, SPRINT+26*
, SPRINT+28*, SPRINT+29, SPRINT+31, SPRINT+32, SPRINT+34, SPRINT+37, SPRINT+40!
^TMP("ECXS" LOOK+2!, LOOK+5*
^XTMP("ECX CREATE" EN+16, EN+17!, EN+23*, START+5!
^XTMP("ECX UNREVIEWED CLINICS" FIX+57, FIX+58*, FIX+59*, UPDATE+2, UPDATE+9*, APPLOOP+3!*

Label References

Name Line Occurrences
EDIT KILL+3
ENDCHK EDIT+9
ENDX EN+12, SELECT+4, SELECT+15, PRINT+18, SPRINT+42, EDIT+11, APPROVE+8, APPROVE+9
FIX START+2
HEAD SPRINT+13, SPRINT+29, SPRINT+33, SPRINT+39
PAUSE EN+14, SELECT+6, SELECT+15
PRINT EN+28
SHOWEM SPRINT+15
START EN+25, SELECT+18
UPDATE FIX+57

Naked Globals

Name Field # of Occurrence
^(0 FIX+11, FIX+37*, SPRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SELECT+9*, PRINT+21*, ENDX+2!
AMIS KILL+2!, ENDX+1!
APPL SPRINT+1~, SPRINT+22*, SPRINT+24, SPRINT+25, SPRINT+26, SPRINT+28
APPL1 SPRINT+1~
APPL2 SPRINT+1~
CLIEN ENDX+1!
CLIEN1 EDIT+4*, ENDCHK+16, ENDCHK+17, ENDCHK+20, ENDCHK+22, ENDCHK+23, ENDCHK+24, KILL+2!, ERRCHK~, ERRCHK+1
CODE KILL+2!, ERRCHK~, ERRCHK+1, ENDX+1!
CREDSC SPRINT+1~, SPRINT+21*, SPRINT+24, SPRINT+25, SPRINT+26, SPRINT+28
CSTOP KILL+2!, ENDX+1!
DA FIX+2~, FIX+60*, ENDCHK+17*, ENDCHK+20, ENDCHK+21, KILL+1!, APPLOOP+1*, ENDX!
DAT FIX+6~, FIX+7*, FIX+16, LOOK+1~, LOOK+3*, LOOK+4
DC SPRINT+1~, SPRINT+18*, SPRINT+19, SPRINT+20, SPRINT+26, SPRINT+28
DIC FIX+14!*, EDIT+3!*, KILL+1!, ENDX!
DIC("S" EDIT+3*
DIC(0 FIX+14*, EDIT+3*
DIE FIX+2~, FIX+60*, ENDCHK+17*, KILL+1!, APPLOOP+1*, ENDX!
DIE("NO^" ENDCHK+17*
DIK START+3!*
DIK(1 START+3*
DIR EN+2~, SELECT+2~, PRINT+1~, PRINT+18!, KILL+1!, APPROVE+3!, APPROVE+8!, ENDX+1!, PAUSE+1~
DIR("?" EN+21*, PRINT+12*, PRINT+13*, PRINT+14*, PRINT+15*, PRINT+16*, PRINT+17*, APPROVE+4*, APPROVE+5*, APPROVE+6*
, APPROVE+7*
DIR("A" EN+20*, EN+27*, PRINT+11*, APPROVE+3*
DIR("B" EN+27*, APPROVE+3*
DIR(0 EN+20*, EN+27*, PRINT+11*, APPROVE+3*, PAUSE+2*
DIROUT PAUSE+1~
DIRUT EN+2~, EN+22, PRINT+18, KILL+1!, APPROVE+8, ENDX+1!, PAUSE+1~
>> DIV SPRINT+22*, SPRINT+24, SPRINT+25, SPRINT+26, SPRINT+28
DIV1 SPRINT+1~
DIV2 SPRINT+1~
DR FIX+2~, FIX+60*, ENDCHK+19*, KILL+1!, APPLOOP+1*, ENDX!
DT EN+23, FIX+20, FIX+22, FIX+24, SPRINT+11, APPLOOP+1, APPLOOP+3, LOOK+2, LOOK+4
DTOUT EN+2~, KILL+1!, ENDX+1!, PAUSE+1~
DUOUT EN+2~, KILL+1!, ENDX+1!, PAUSE+1~
DUPIEN SPRINT+1~
DUZ EN+12, SELECT+4
EC START+2*, FIX~, FIX+4*, FIX+5, FIX+7, FIX+8, FIX+11, FIX+31, FIX+32, FIX+35
, FIX+38, FIX+53, FIX+60, APPLOOP+1*, ENDX+3!, LOOK+3*, LOOK+5
ECALL SELECT+2~, PRINT+1~, PRINT+18*, PRINT+19, PRINT+20, SPRINT+3, SPRINT+6, SPRINT+9, SPRINT+10, SPRINT+11
, SPRINT+12, SPRINT+14, SPRINT+16, SPRINT+30, ENDX+3!
ECD FIX+6~, FIX+7*, FIX+8, FIX+30, FIX+31, FIX+37, FIX+51, FIX+55, SPRINT+15*, ENDX+2!
, ENDX+3!, LOOK+2*
ECD0 LOOK+1~, LOOK+2*
ECD2 FIX+11!*, FIX+12, FIX+13, FIX+18, FIX+20, FIX+21*, FIX+22, FIX+23*, FIX+24, FIX+25*
, FIX+26, FIX+27*, FIX+28, FIX+34, FIX+40, FIX+41*, FIX+43*, FIX+45*, FIX+47*, FIX+49*
, FIX+51*, FIX+53, FIX+56, ENDX+3!
ECDATE SPRINT+4*, ENDX+2!
ECDB FIX+32*, FIX+35, FIX+41, ENDX+3!
ECDDIF FIX+11!*, FIX+28*, FIX+41*, FIX+43*, FIX+45*, FIX+47*, FIX+49*, FIX+51*, FIX+57, FIX+58
, UPDATE~, UPDATE+3, UPDATE+4, UPDATE+5*, UPDATE+6*, UPDATE+7, UPDATE+8, ENDX+3!
ECDF FIX+31*, FIX+37, ENDX+3!
ECDNEW FIX+11!, FIX+38*, FIX+59, ENDX+3!
ECGRP LOOK+1~, LOOK+2*
ECL ENDX+3!
ECN ENDX+2!
ECNON ENDX+2!
ECP FIX+30*, ENDX+3!
ECS FIX+12*, FIX+13, FIX+15, FIX+30*, ENDX+3!
ECS( FIX+30*
ECS(18 FIX+32, FIX+47, FIX+49
ECS(7 FIX+32, FIX+43, FIX+45
ECS2 FIX+11!, ENDX+3!
ECS2( FIX+13*, FIX+15*
ECS2(2 FIX+43
ECS2(3 FIX+47
ECS2(4 FIX+45
ECS2(5 FIX+49
ECSC FIX+55*, FIX+57, FIX+58, FIX+59, UPDATE~, UPDATE+2, UPDATE+9, SPRINT+1~, SPRINT+9*, SPRINT+10*
, SPRINT+11*, SPRINT+12*, SPRINT+13*, SPRINT+15*, SPRINT+26*, SPRINT+28*, SPRINT+29*, ENDX+2!, ENDX+3!
ECSC2 SPRINT+1~, ENDX+3!
ECSCI SPRINT+1~
ECSCSIGN FIX+11!*, FIX+21*, FIX+23*, FIX+25*, FIX+27*, FIX+57, FIX+58, UPDATE~, UPDATE+8, ENDX+3!
ECSD SPRINT+7*, SPRINT+9, SPRINT+10, SPRINT+11, SPRINT+12, ENDX+2!
ECSDC SPRINT+1~, SPRINT+18*, SPRINT+21, SPRINT+22
ECXAFARR ENDCHK+1~
ECXAFARR( ENDCHK+23
ECXB4ARR ENDCHK+1~
ECXB4ARR( ENDCHK+23
ECXCHNG ENDCHK+1~, ENDCHK+2*, ENDCHK+23*, ENDCHK+24
ECXCLX PRINT+1~, SPRINT+34*, SPRINT+35, SPRINT+36
ECXERR KILL+2!
ECXMCA PRINT+1~, SPRINT+22*, SPRINT+24, SPRINT+25, SPRINT+26, SPRINT+28
ECXMISS LOOK+1~, LOOK+2*, LOOK+5*
ECXMSG KILL+2!, ENDX+1!
ECXOLD UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7
ERR KILL+2!
ERRCHK KILL+1!
FDA KILL+2!, ENDX+1!
FIEN SPRINT+1~
FIRST SPRINT+17*, SPRINT+23, SPRINT+27, SPRINT+28*, ENDX+3!
I ENDCHK+23*, KILL+1!
ID FIX+16*, FIX+20, FIX+21, FIX+22, FIX+24, FIX+26, ENDX+3!, LOOK+1~, LOOK+4*
IEN SPRINT+32*, SPRINT+34, SPRINT+37, ENDX+3!
IENS KILL+2!, ENDX+1!
IO SPRINT+2
IO("Q" SELECT+12, SELECT+19!, PRINT+22
IOF SPRINT+43
IOP SELECT+2~
IOSL SPRINT+33, SPRINT+39
IOST SPRINT+41
J UPDATE+1~, UPDATE+3*, UPDATE+4, UPDATE+5, SPRINT+7*, SPRINT+8, SPRINT+9, SPRINT+10, SPRINT+11, SPRINT+12
, SPRINT+15*, ENDX+2!
KEY SPRINT+31*, SPRINT+32, SPRINT+34, SPRINT+37, ENDX+3!
L1 UPDATE+1~, UPDATE+4*, UPDATE+5
L2 UPDATE+1~, UPDATE+4*, UPDATE+5
LN SPRINT+3*, ENDX!, ENDX+2!
NAME SPRINT+32*, SPRINT+34, SPRINT+37, ENDX+3!
NATC SPRINT+1~, SPRINT+21*, SPRINT+24, SPRINT+25, SPRINT+26, SPRINT+28
OUT PRINT+1~, KILL+2!, ENDX+1!
PG SPRINT+3*, ENDX!, ENDX+2!
POP SELECT+2~, SELECT+10, PRINT+21, ENDX+2!
QFLG SPRINT+3*, SPRINT+15, SPRINT+31, SPRINT+32, SPRINT+33, SPRINT+38, SPRINT+39, SPRINT+41, ENDX!, ENDX+2!
RD FIX+16*, FIX+20, FIX+22, ENDX+3!, LOOK+4*
SS ENDX+2!
STOP KILL+2!, ENDX+1!
STOPC SPRINT+1~, SPRINT+21*, SPRINT+24, SPRINT+25, SPRINT+26, SPRINT+28
TYPE ERRCHK~, ERRCHK+1
U FIX+8, FIX+13, FIX+15, FIX+16, FIX+20, FIX+21, FIX+22, FIX+23, FIX+24, FIX+25
, FIX+26, FIX+27, FIX+30, FIX+31, FIX+32, FIX+35, FIX+37, FIX+41, FIX+43, FIX+45
, FIX+47, FIX+49, FIX+51, FIX+55, FIX+56, FIX+58, FIX+59, UPDATE+3, UPDATE+4, UPDATE+5
, UPDATE+6, UPDATE+7, UPDATE+8, SPRINT+8, SPRINT+9, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+19, SPRINT+21
, SPRINT+22, SPRINT+26, SPRINT+28, SPRINT+35, SPRINT+36, SPRINT+37, EDIT+6, EDIT+7, ENDCHK+20, ENDCHK+21
, ENDCHK+24, APPLOOP+3, LOOK+3, LOOK+4, LOOK+5
WARNING KILL+1!
WRN KILL+2!
X EN+2~, EN+5*!, FIX+13*, FIX+43*, FIX+45*, FIX+47*, FIX+49*, FIX+51*, UPDATE+1~, UPDATE+7*
, UPDATE+8*, UPDATE+9, PRINT+2*!, EDIT+1*!, KILL+1!, ENDX!, PAUSE+1~
X1 UPDATE+1~, UPDATE+3*, UPDATE+6*, UPDATE+7*, UPDATE+8
X2 UPDATE+1~, UPDATE+3*, UPDATE+6*
XX SELECT+2~
Y EN+2~, EN+23, EN+28, FIX+14!, FIX+15, PRINT+18, EDIT+3, EDIT+4, KILL+1!, APPROVE+8
, ENDX!, PAUSE+1~
Y(0 EDIT+6, EDIT+7
ZTDESC SELECT+2~, SELECT+13*, PRINT+22*, APPROVE+9*, ENDX!
ZTIO SELECT+2~, APPROVE+9*, ENDX!
>> ZTQUEUED START+5
ZTREQ START+1~, START+4*, SPRINT+43*, APPLOOP+2*
ZTRTN SELECT+2~, SELECT+13*, PRINT+22*, APPROVE+9*, ENDX!
ZTSAVE SELECT+2~, SELECT+13!, PRINT+22!
ZTSAVE("ECALL" PRINT+22*
ZTSK EN+2~, EN+16*, EN+23*, SELECT+2~, SELECT+15
ZTSK("D" EN+18
ZTSK("DUZ" EN+18
ZTSK(0 EN+17
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