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

Package: Registration

Routine: DGOTHRP1


Information

DGOTHRP1 ;SLC/RED,RM - OTHD (OTHER THAN HONORABLE DISCHARGE) Reports ;May 9,2018@05:08

Source Information

Source file <DGOTHRP1.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Registration 8 $$HASENTRY^DGOTHD2  $$CROSS^DGOTHINQ  ASKCONT^DGOTHMG2  ($$SSN,PAUSE)^DGOTHRP2  $$ANSWER^DGOTHRPT  CHKTREAT^DGPPRP1  $$SITE^VASITE  DIVISION^VAUTOMA  
Kernel 6 HOME^%ZIS  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  $$STA^XUAF4  EN^XUTMDEVQ  
VA FileMan 2 WAIT^DICD  ($$GET1,GETS)^DIQ  

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

Package Total Caller Graph
Registration 3 DG OTH MH STATUS REPORT  DGOTHRP5  DGOTHRPT  

Entry Points

Name Comments DBIA/ICR reference
EN ; CALLED BY - DG OTH MH STATUS REPORT - menu option
STATUS() ;prompt for OTH MH status report type that user wish to print
STAT2() ;
DATEBEG() ;prompt for beginning date
DATEEND() ;prompt for ending date
SELDIV() ;prompt for DIVISION
GETDIV(X) ;get division for one or many but not all
SORTRPT() ;prompt user how the report will be sorted
STAT ; Entry point if Queued
BUILD ;
BYDIV ;Build data for report display by DIVISION
BYFAC ;Build data for report display by FACILITY
CHKDATE(DGPEDT,DGSORT) ;
DSPLY1 ;Print/Display Report
DSPLY2(SUB1) ;
PRNTDIV ;Print/Display Report by Division
DIVHDR(NXTPGE) ;Display Division header
DIVHDR1(RPTSRT) ;
PRNTFAC ;Print/Display Report by Facility
PRTHDR ;Print/Display Page Header
EXIT ;
HELP(DGSEL) ;

External References

Name Field # of Occurrence
HOME^%ZIS EN+48
$$S^%ZTLOAD PRTHDR+1
$$HASENTRY^DGOTHD2 STAT+9
$$CROSS^DGOTHINQ STAT+13
ASKCONT^DGOTHMG2 EN+19, DSPLY1+7, DSPLY1+36
$$SSN^DGOTHRP2 BUILD+6
PAUSE^DGOTHRP2 DSPLY1+17, DSPLY1+22, DSPLY2+6
$$ANSWER^DGOTHRPT STATUS+6, DATEBEG+9, DATEEND+9, SORTRPT+9
CHKTREAT^DGPPRP1 BUILD+4
WAIT^DICD STAT+3
$$GET1^DIQ SELDIV+11, SELDIV+21, SELDIV+23
GETS^DIQ STAT+11
$$SITE^VASITE STAT+4
DIVISION^VAUTOMA SELDIV+5
$$FMTE^XLFDT DATEEND+3, PRNTDIV+8, PRNTFAC+6, PRTHDR+9, PRTHDR+10
$$NOW^XLFDT PRTHDR+10
$$CJ^XLFSTR EN+19
$$STA^XUAF4 SELDIV+11, SELDIV+21
EN^XUTMDEVQ EN+47

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"OTHER THAN HONORABLE MH STATUS REPORT",!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"This option generates a report that displays a list(s) of Patients who had"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"EXPANDED MH CARE NON-ENROLLEE primary eligibility assigned, changed from"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"being EXPANDED MH CARE NON-ENROLLEE who have an Outpatient Encounter with"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"with STATUS=CHECKED OUT for Clinic(s) associated with the selected Division(s)"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"within the user-specified date range.",!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(">>> No OTH-90 Records have been found. <<<",80)
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !,"Please select divisions to include in the report"
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: !!," A date is required. Enter '^' to exit.",!
  • Line Location: DATEBEG+10
Function Call: WRITE
  • Prompt: !!," Ending date must be after beginning date",!
  • Line Location: DATEEND+10
Function Call: WRITE
  • Prompt: !!,*7,"***WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",!
  • Line Location: SELDIV+3
Function Call: WRITE
  • Prompt: !!," Report Sort is required. Enter '^' to exit."
  • Line Location: SORTRPT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY1+22
Function Call: WRITE
  • Prompt: !,"<END OF REPORT>"
  • Line Location: DSPLY1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY2+7
Function Call: WRITE
  • Prompt: ?29,$$FMTE^XLFDT($P(DGSTR,U,3),"5Z"),?41,$P(DGSTR,U,4),?51,$E($P(DGSTR,U,5),1,28),!
  • Line Location: PRNTDIV+8
Function Call: WRITE
  • Prompt: "Division: ",$P(@DGOUT@(SUB1,SUB2,SUB3),U)," (",SUB1,")",!
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: $E(SUB1,1,20),?22,$P(DGSTR,U,2)
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: !,$S(RPTSRT=1:$E(SUB2,1,20),1:$E(SUB1,1,20)),?22,$P(DGSTR,U,2)
  • Line Location: DIVHDR1+1
Function Call: WRITE
  • Prompt: ?29,$$FMTE^XLFDT($P(DGSTR,U,3),"5Z"),?41,$P(DGSTR,U,4),?51,$E($P(DGSTR,U,5),1,28),!
  • Line Location: PRNTFAC+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDR+3
Function Call: WRITE
  • Prompt: !,?80-$L(ZTDESC)\2,$G(ZTDESC),?71,"Page:",?77,DGPAGE
  • Line Location: PRTHDR+6
Function Call: WRITE
  • Prompt: !,?80-$L(DGFACLTY)\2,DGFACLTY
  • Line Location: PRTHDR+7
Function Call: WRITE
  • Prompt: !,"Status :",?12,$P($G(DGSORT("OTHSTAT")),U,2),?46,"Sorted By: ",?58,$P($G(DGSORT("REPORT")),U,2)
  • Line Location: PRTHDR+8
Function Call: WRITE
  • Prompt: !,"Date Range:",?12,$$FMTE^XLFDT(DGSORT("DGBEG"),"5Z")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5Z")
  • Line Location: PRTHDR+9
Function Call: WRITE
  • Prompt: ?46,"Printed :",?58,$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: PRTHDR+10
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: PRTHDR+11
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"PID",?29,"OTH MH PE",?41,"OTH MH",?51,"Eligibility"
  • Line Location: PRTHDR+12
Function Call: WRITE
  • Prompt: !,?29,"Change DT",?41,"Status",?59
  • Line Location: PRTHDR+13
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: PRTHDR+14
Function Call: WRITE
  • Prompt: !," Not a valid date."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," Please Enter:",!
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," 1 Activated OTH MH Status"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," If you wish to display a list(s) of patients whose Primary Eligibility"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," was SET TO EXPANDED MH CARE NON-ENROLLEE during selected timeframe,"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !," treated in selected division(s))"
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !," "
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !," 2 Inactivated OTH MH Status"
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !," If you wish to display a list(s) of patients whose Primary Eligibility"
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !," was CHANGED FROM being EXPANDED MH CARE NON-ENROLLEE during selected"
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !," timeframe, treated in selected division(s))."
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !," "
  • Line Location: HELP+17
Function Call: WRITE
  • Prompt: !," 3 Both"
  • Line Location: HELP+18
Function Call: WRITE
  • Prompt: !," If you wish to display a list(s) of patients whose Primary Eligibility"
  • Line Location: HELP+19
Function Call: WRITE
  • Prompt: !," was either set to EXPANDED MH CARE NON-ENROLLEE or changed from being"
  • Line Location: HELP+20
Function Call: WRITE
  • Prompt: !," EXPANDED MH CARE NON-ENROLLEE during selected timeframe, treated in"
  • Line Location: HELP+21
Function Call: WRITE
  • Prompt: !," selected division(s)."
  • Line Location: HELP+22
Function Call: WRITE
  • Prompt: !," Start Date is today's date, T-(number of days) or a specific date "
  • Line Location: HELP+24
Function Call: WRITE
  • Prompt: !," from the past.",!," Start date cannot be a future date."
  • Line Location: HELP+25
Function Call: WRITE
  • Prompt: !," End date must be greater than or equal to the start date."
  • Line Location: HELP+26
Function Call: WRITE
  • Prompt: !," Please Enter:",!
  • Line Location: HELP+28
Function Call: WRITE
  • Prompt: !," 1 Divisions"
  • Line Location: HELP+29
Function Call: WRITE
  • Prompt: !," Report output is sorted by Division, sorted first numerically,"
  • Line Location: HELP+30
Function Call: WRITE
  • Prompt: !," then alphabetically, then by Patient Name."
  • Line Location: HELP+31
Function Call: WRITE
  • Prompt: !," "
  • Line Location: HELP+32
Function Call: WRITE
  • Prompt: !," 2 Facility"
  • Line Location: HELP+33
Function Call: WRITE
  • Prompt: !," Report output will display list(s) of patients treated in the Facility"
  • Line Location: HELP+34
Function Call: WRITE
  • Prompt: !," or any Divisions, during selected range, then sorted by Patient Name."
  • Line Location: HELP+35
Routine Call
  • %ZIS
  • Line Location:
    • EN+48

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGOTH(33 - [#33] GETS^DIQ
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SELDIV+2, SELDIV+19, SELDIV+20, GETDIV+5, BUILD+14
^DGOTH(33 - [#33] EN+19, STAT+7
^TMP($J EN+42

Label References

Name Line Occurrences
$$CHKDATE STAT+20
$$DATEBEG EN+26
$$DATEEND EN+28
$$GETDIV SELDIV+12, SELDIV+22
$$SELDIV EN+33
$$SORTRPT EN+39
$$STAT2 STATUS+5, STATUS+7
$$STATUS EN+23
BUILD STAT+21, STAT+22, STAT+23
BYDIV BUILD+16
BYFAC BUILD+17
DIVHDR DSPLY2+8, PRNTDIV+2
DIVHDR1 DSPLY2+9, PRNTDIV+2, PRNTDIV+3, PRNTFAC+1
DSPLY1 STAT+25
DSPLY2 DSPLY1+23, DSPLY1+32
EXIT STAT+26
PRNTDIV DSPLY2+10
PRNTFAC DSPLY2+11
PRTHDR DSPLY1+5, DSPLY1+13, DSPLY1+17, DSPLY1+22, DSPLY1+30, DSPLY2+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT STAT+2~, STAT+16*, STAT+18, STAT+19
DDASH DSPLY1+1~, DSPLY1+3*, PRTHDR+11, PRTHDR+14
DGARR STAT+1~, STAT+8!
DGARR(33 STAT+15, STAT+21, STAT+22
DGASK STATUS+1~, STATUS+6*, STATUS+7, STATUS+8, DATEBEG+1~, DATEBEG+9*, DATEBEG+10, DATEBEG+11, DATEBEG+12, DATEBEG+13
, DATEEND+1~, DATEEND+9*, DATEEND+10, DATEEND+11, DATEEND+12, DATEEND+13, SORTRPT+1~, SORTRPT+9*, SORTRPT+10, SORTRPT+11
, SORTRPT+12, SORTRPT+13
DGBEGDT DATEBEG+1~
DGCNT STAT+1~, STAT+10*, BUILD+8*, BYDIV+3, BYFAC+2, DSPLY1+1~, DSPLY1+10*
DGDFN STAT+1~, STAT+6*, STAT+7*, STAT+9, BUILD+4, BUILD+6, BYDIV+3, BYFAC+2
DGDIRA STATUS+1~, STATUS+2*, STATUS+6, DATEBEG+1~, DATEBEG+2*, DATEBEG+9, DATEEND+1~, DATEEND+2*, DATEEND+9, SORTRPT+1~
, SORTRPT+2*, SORTRPT+9
DGDIRB STATUS+1~, STATUS+3*, STATUS+6, DATEBEG+1~, DATEBEG+3*, DATEBEG+9, DATEEND+1~, DATEEND+3*, DATEEND+9, SORTRPT+1~
, SORTRPT+3*, SORTRPT+9
DGDIRH STATUS+1~, STATUS+4*, STATUS+6, DATEBEG+1~, DATEBEG+4*, DATEBEG+9, DATEEND+1~, DATEEND+4*, DATEEND+9, SORTRPT+1~
, SORTRPT+4*, SORTRPT+9
DGDIRO STATUS+1~, STATUS+5*, STATUS+6, DATEBEG+1~, DATEBEG+5*, DATEBEG+9, DATEEND+1~, DATEEND+5*, DATEEND+9, SORTRPT+1~
, SORTRPT+5*, SORTRPT+9
DGDIV BUILD+9~, BUILD+10*, BUILD+11*, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BYDIV+2, BYFAC+1, DSPLY1+2~
, DSPLY1+14*, DSPLY1+15, DSPLY1+18
DGELIG STAT+2~, STAT+17!, STAT+18*, BUILD+7, BYDIV+3, BYFAC+2
DGERR STAT+1~, STAT+8!, STAT+12
DGFAC DSPLY1+2~, DSPLY1+15*, DSPLY1+16, DSPLY1+18, DSPLY1+20, DSPLY1+23
DGFACLTY PRTHDR+2~, PRTHDR+5*, PRTHDR+7
DGIEN33 STAT+2~, STAT+9*, STAT+11, STAT+13, STAT+15, STAT+16, STAT+18, STAT+19, STAT+21, STAT+22
DGOLD DSPLY1+2~, DSPLY1+10*, DSPLY1+20*, PRNTDIV+3, DIVHDR+4*, DIVHDR1+2*, PRNTFAC+1, PRNTFAC+5
DGOLD1 DSPLY1+2~, DSPLY1+10*, DSPLY1+22, PRNTDIV+1, PRNTDIV+3, PRNTDIV+7, DIVHDR+4*, DIVHDR1+2*
DGOLD2 DSPLY1+2~, DSPLY1+10*, PRNTDIV+7, DIVHDR+4*, DIVHDR1+2*, PRNTFAC+5
DGOTHIST STAT+1~, STAT+8!, STAT+13
DGOTHIST( STAT+16, STAT+18, STAT+19
DGOTHSTAT STAT+2~, BUILD+7*, BYDIV+3, BYFAC+2
DGOUT EN+8~, EN+42*, BYDIV+2, BYDIV+3, BYFAC+1, BYFAC+2, DSPLY1+4, DSPLY1+16, DSPLY1+31, DSPLY2+1
, DSPLY2+2, DSPLY2+3, DSPLY2+5, DIVHDR+1, EXIT+1
DGPAGE DSPLY1+1~, DSPLY1+3*, PRTHDR+3, PRTHDR+4*, PRTHDR+6
DGPEDT STAT+2~, STAT+17!, STAT+19*, STAT+20, BYDIV+3, BYFAC+2, CHKDATE~, CHKDATE+10
DGPID STAT+1~, STAT+8!, BUILD+6*, BYDIV+3, BYFAC+2
DGPTNAME STAT+2~, STAT+8!, STAT+15*, BYDIV+2, BYDIV+3, BYFAC+1, BYFAC+2
DGQ DSPLY1+1~, DSPLY1+3*, DSPLY1+14, DSPLY1+15, DSPLY1+17, DSPLY1+22, DSPLY1+26, DSPLY1+31, DSPLY1+33, DSPLY1+35
, DSPLY2+1, DSPLY2+2, DSPLY2+3, DSPLY2+6, DSPLY2+12, DSPLY2+13, PRTHDR+1*
DGRET STAT+1~, BUILD+3!, BUILD+4, BUILD+5
DGRET( BUILD+11, BUILD+12, BUILD+13, BUILD+15, BYDIV+2, BYFAC+1
DGSDT BUILD+9~, BUILD+10*, BUILD+12*, BUILD+13, BUILD+15, BYDIV+2, BYDIV+3, BYFAC+1, BYFAC+2
DGSEL HELP~, HELP+6, HELP+23, HELP+26, HELP+27
DGSORT EN+8~, EN+21!, STAT+20, CHKDATE~
DGSORT("DGBEG" DATEBEG+11*, DATEEND+5, DATEEND+10, BUILD+4, CHKDATE+10, PRTHDR+9
DGSORT("DGEND" DATEEND+11*, BUILD+4, CHKDATE+10, PRTHDR+9
DGSORT("DIVISION" EN+39, EN+40, SELDIV+7*, SELDIV+13*, SELDIV+17*, SELDIV+23*, BUILD+15*, DSPLY1+14, DSPLY1+15, DSPLY1+18
DGSORT("OTHSTAT" STATUS+7*, STAT+21, STAT+22, STAT+23, PRTHDR+8
DGSORT("REPORT" EN+40*, SORTRPT+11*, BUILD+16, DSPLY1+12, DSPLY1+29, DSPLY2+8, DSPLY2+9, DSPLY2+10, DSPLY2+11, PRTHDR+8
DGSTR DSPLY1+1~, DSPLY1+10*, DSPLY2+4!, DSPLY2+5*, PRNTDIV+3, PRNTDIV+8, DIVHDR+3, DIVHDR+4, DIVHDR1+1, DIVHDR1+2
, PRNTFAC+1, PRNTFAC+5, PRNTFAC+6
DIV SELDIV+1~, SELDIV+10*, SELDIV+11, SELDIV+12, SELDIV+13, SELDIV+20*, SELDIV+21, SELDIV+22, SELDIV+23
DIVCNT SELDIV+1~, SELDIV+8*, SELDIV+14*, SELDIV+17
DONE DATEBEG+1~, DATEBEG+6*, DATEBEG+7, DATEBEG+10*, DATEBEG+11*, DATEBEG+12*, DATEEND+1~, DATEEND+6*, DATEEND+7, DATEEND+10*
, DATEEND+11*, DATEEND+12*, SORTRPT+1~, SORTRPT+6*, SORTRPT+7, SORTRPT+10*, SORTRPT+11*, SORTRPT+12*
DT DATEEND+3
FAC SELDIV+1~, SELDIV+11*, SELDIV+12*, SELDIV+13, SELDIV+21*, SELDIV+22*, SELDIV+23
HERE STAT+4~*, PRTHDR+5
INS SELDIV+1~, SELDIV+19*, SELDIV+20
IOF EN+10, PRTHDR+3
IOSL DSPLY2+6
IOST STAT+3, STAT+5
NXTPGE DIVHDR~, DIVHDR+1, DIVHDR+2
OTH90 STAT+2~, STAT+8!, STAT+13*, STAT+14
RPTSRT DIVHDR1~, DIVHDR1+1
SUB1 DSPLY1+1~, DSPLY1+11*, DSPLY1+22, DSPLY1+31*, DSPLY1+32, DSPLY2~, DSPLY2+1, DSPLY2+2, DSPLY2+3, DSPLY2+5
, PRNTDIV+1, PRNTDIV+3, PRNTDIV+7, DIVHDR+1, DIVHDR+3, DIVHDR+4, DIVHDR1+1, DIVHDR1+2
SUB2 DSPLY1+1~, DSPLY1+11*, DSPLY2+1*, DSPLY2+2, DSPLY2+3, DSPLY2+5, DIVHDR+1, DIVHDR1+1
SUB3 DSPLY1+1~, DSPLY1+11*, DSPLY2+2*, DSPLY2+3, DSPLY2+5, PRNTDIV+7, DIVHDR+1, DIVHDR+4, DIVHDR1+2, PRNTFAC+5
SUB4 DSPLY1+1~, DSPLY1+11*, DSPLY2+3*, DSPLY2+5
TMPARY STAT+1~
TMPDIV BUILD+9~, BUILD+10*, BUILD+13*, BUILD+14*, BUILD+15, BYDIV+2, BYDIV+3, BYFAC+1, BYFAC+2
TRM STAT+5~*, PRTHDR+3
U STATUS+7, SORTRPT+11, STAT+14, STAT+18, STAT+19, STAT+21, STAT+22, STAT+23, BUILD+13, BUILD+14
, BUILD+16, BYDIV+3, BYFAC+2, DSPLY1+12, DSPLY1+29, DSPLY2+8, DSPLY2+9, DSPLY2+10, DSPLY2+11, PRNTDIV+3
, PRNTDIV+8, DIVHDR+1, DIVHDR+3, DIVHDR+4, DIVHDR1+1, DIVHDR1+2, PRNTFAC+1, PRNTFAC+5, PRNTFAC+6, PRTHDR+5
, PRTHDR+8
VAUTD EN+8~, EN+21!, SELDIV+7, SELDIV+9, BUILD+4
VAUTD( SELDIV+10, SELDIV+13
X EN+46*, EN+47, GETDIV~, GETDIV+4, GETDIV+5, HELP+5
Y SELDIV+1~, SELDIV+6, GETDIV+3~*, GETDIV+4, GETDIV+5*, GETDIV+6
ZTDESC EN+2~, PRTHDR+6
ZTQUEUED EN+3~, PRTHDR+1
ZTREQ EN+4~
ZTRTN EN+6~
ZTSAVE EN+1~, EN+47
ZTSAVE("DGSORT(" EN+45*
ZTSK EN+7~
ZTSTOP EN+5~, PRTHDR+1*
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