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

Package: Registration

Routine: DGOTHFSM


Information

DGOTHFSM ;SLC/RM - FORMER OTH PATIENT ELIGIBILITY CHANGE REPORT ; July 13, 2020@09:44am

Source Information

Source file <DGOTHFSM.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 6 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  EN^XUTMDEVQ  
Registration 5 (CHECKIB,CHECKPTF,CHECKRX,CHKTREAT)^DGFSMOUT  $$GETSTAT^DGMSTAPI  ATID1^DGOTHFS4  (2,KVAR)^VADPT  $$SITE^VASITE  
VA FileMan 3 WAIT^DICD  ($$GET1,GETS)^DIQ  ^DIR  
DRG Grouper 1 $$CODEC^ICDEX  

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

Package Total Caller Graph
Registration 6 DG OTH FSM ELIG. CHANGE REPORT  DGFSMOUT  DGOTHFS2  DGPPDRP1  DGPPDRPT  DGPPOHUT  
Integrated Billing 1 IB OTH FSM ELIG. CHANGE REPORT  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
  • ICR #7243
    • Status: Active
    • Usage: Private
    DATEFROM() ;prompt for FROM Date of Service
    DATETO() ;prompt for TO Date of Service
    ANSWER(DGDIRA,DGDIRB,DGDIR0,DGDIRH) ;
    ; Input
    ; DGDIR0 - DIR(0) string
    ; DGDIRA - DIR("A") string
    ; DGDIRB - DIR("B") string
    ; DGDIRH - DIR("?") string
    ; Output
    ; Function Value - Internal value returned from ^DIR or -1 if user
    ; up-arrows, double up-arrows or the read times out.
    HELP(DGSEL) ;provide extended DIR("?") help text.
    ; Input: DGSEL - prompt var for help text word selection
    ; Output: none
    HELP1 ;
    HELP2 ;
    START ; compile and print report
    LOOP(DGSORT,DGLIST,DGOTHIN) ;
    INACTOTH(DGSORT) ;Gather all registered OTH Patients with INACTIVE status within the user-specified date range
    SCPRCT(DFN,DATA) ;extract the service connected percentage
    CHKINT(DATA) ; check for integrated site divisions
    PRINT(DGSORT,DGLIST) ;output report
    PRINT1 ;print the name, pid, and DOB only once
    HEADER ;Display header for the report
    LINE ;prints double dash line
    COLHEAD ;report column header
    ASKCONT(FLAG) ; display "press <Enter> to continue" prompt
    CHKDATE(DATE,BEGDT,ENDDT) ;check if dates fall within the Begin and End dates
    PAUSE(DGQ) ; pause screen display
    ; Input:
    ; DGQ - var used to quit report processing to user CRT
    ; Output:
    ; DGQ - passed by reference - 0 = Continue, 1 = Quit
    EXIT ;
    PTFDATA ;extract data for the inpatient

    External References

    Name Field # of Occurrence
    HOME^%ZIS MAIN+27, EXIT+5
    ^%ZISC EXIT+5
    $$S^%ZTLOAD HEADER+1
    CHECKIB^DGFSMOUT LOOP+36
    CHECKPTF^DGFSMOUT LOOP+35
    CHECKRX^DGFSMOUT LOOP+37
    CHKTREAT^DGFSMOUT LOOP+34
    $$GETSTAT^DGMSTAPI LOOP+46
    ATID1^DGOTHFS4 PTFDATA+11
    WAIT^DICD START+1
    $$GET1^DIQ PTFDATA+5, PTFDATA+9
    GETS^DIQ LOOP+23, INACTOTH+18, PTFDATA+20
    ^DIR ANSWER+14, PAUSE+5
    $$CODEC^ICDEX PTFDATA+14, PTFDATA+18
    2^VADPT SCPRCT+2
    KVAR^VADPT SCPRCT+5
    $$SITE^VASITE START+2
    $$FMADD^XLFDT INACTOTH+12
    $$FMTE^XLFDT DATEFROM+4, PRINT+17, PRINT+21, PRINT1+2, HEADER+6, HEADER+7, PTFDATA+6
    $$NOW^XLFDT HEADER+7
    $$CJ^XLFSTR MAIN+4, INACTOTH+3, ASKCONT+2
    EN^XUTMDEVQ MAIN+26

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!!,$$CJ^XLFSTR(">>> No OTH records have been found. <<<",80)
    • Line Location: MAIN+4
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: MAIN+5
    Function Call: WRITE
    • Prompt: "FORMER OTH PATIENT ELIGIBILITY CHANGE REPORT"
    • Line Location: MAIN+6
    Function Call: WRITE
    • Prompt: !!,"This report identifies Former Service Members whose Primary Eligibility"
    • Line Location: MAIN+7
    Function Call: WRITE
    • Prompt: !,"changed from EXPANDED MH CARE NON-ENROLLEE to a new Primary Eligibility"
    • Line Location: MAIN+8
    Function Call: WRITE
    • Prompt: !,"with a VERIFIED eligibility status. These patients are no longer treated"
    • Line Location: MAIN+9
    Function Call: WRITE
    • Prompt: !,"under the Other Than Honorable (OTH) authority (VHA Directive 1601A.02)."
    • Line Location: MAIN+10
    Function Call: WRITE
    • Prompt: !!,"*** THIS REPORT REQUIRES 132 COLUMN margin width ***"
    • Line Location: MAIN+11
    Function Call: WRITE
    • Prompt: !!,"At the DEVICE: prompt, please accept the default value of '0;132;99999'"
    • Line Location: MAIN+12
    Function Call: WRITE
    • Prompt: !,"to avoid wrapping of data."
    • Line Location: MAIN+13
    Function Call: WRITE
    • Prompt: !!,"To include pagination, please use ';132;' for the device value."
    • Line Location: MAIN+14
    Function Call: WRITE
    • Prompt: !!,"Enter Primary Eligibility Changed Date: "
    • Line Location: MAIN+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: MAIN+21
    Function Call: WRITE
    • Prompt: !," Enter the date when the former OTH patient has an Episode of Care"
    • Line Location: HELP+6
    Function Call: WRITE
    • Prompt: !," or Released Prescription."
    • Line Location: HELP+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+9
    Function Call: WRITE
    • Prompt: !," The Date you entered is not valid."
    • Line Location: HELP+11
    Function Call: WRITE
    • Prompt: !," The earliest date that you can enter is February 20,2020."
    • Line Location: HELP1+1
    Function Call: WRITE
    • Prompt: !," This is the date the new Primary Eligibility code"
    • Line Location: HELP1+2
    Function Call: WRITE
    • Prompt: !," EXPANDED MH CARE NON-ENROLLEE became available."
    • Line Location: HELP1+3
    Function Call: WRITE
    • Prompt: !," Date cannot be a future date."
    • Line Location: HELP2+1
    Function Call: WRITE
    • Prompt: !!!," >>> No records were found in the selected date range.",!!
    • Line Location: LOOP+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: LOOP+13
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: LOOP+14
    Function Call: WRITE
    • Prompt: !!!,$$CJ^XLFSTR(">>> The ""F"" cross reference use to run the report does not exist . <<<",80)
    • Line Location: INACTOTH+3
    Function Call: WRITE
    • Prompt: !!!," >>> No records were found using the report criteria.",!!
    • Line Location: PRINT+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+6
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PRINT+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+15
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):48,1:54),$$FMTE^XLFDT($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,3),"5Z")
    • Line Location: PRINT+17
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):60,1:69),$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,4)
    • Line Location: PRINT+18
    Function Call: WRITE
    • Prompt: ?91,$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,9)
    • Line Location: PRINT+19
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):107,1:103),$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,6)
    • Line Location: PRINT+20
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):112,1:110),$$FMTE^XLFDT($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,5),"5Z")
    • Line Location: PRINT+21
    Function Call: WRITE
    • Prompt: ?125,DGSTATN
    • Line Location: PRINT+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+29
    Function Call: WRITE
    • Prompt: !!,"Number of Unique Patients: ",$J(DGTOTAL,5)
    • Line Location: PRINT+31
    Function Call: WRITE
    • Prompt: !!,"<< end of report >>"
    • Line Location: PRINT+32
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PRINT+33
    Function Call: WRITE
    • Prompt: $E($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,1),1,$S($G(IBMST):27,1:30))
    • Line Location: PRINT1+1
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):29,1:33),$$FMTE^XLFDT($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,7),"5Z")
    • Line Location: PRINT1+2
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):41,1:46),$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,2)
    • Line Location: PRINT1+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HEADER+2
    Function Call: WRITE
    • Prompt: !,?44,$G(ZTDESC),?120,"Page: ",?127,DGPAGE
    • Line Location: HEADER+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: HEADER+5
    Function Call: WRITE
    • Prompt: !,"OTH Eligibility Change Date Range: ",?12,$$FMTE^XLFDT(DGSORT("DGBEG"),"5Z")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5Z")
    • Line Location: HEADER+6
    Function Call: WRITE
    • Prompt: ?92,"Date Printed : ",$$FMTE^XLFDT($$NOW^XLFDT,"MP")
    • Line Location: HEADER+7
    Function Call: WRITE
    • Prompt: !!,"List of Patients whose primary eligibility changed from EXPANDED MH CARE NON-ENROLLEE to a new primary eligibility code with"
    • Line Location: HEADER+8
    Function Call: WRITE
    • Prompt: !,"eligibility status of VERIFIED and episode(s)of care.",!
    • Line Location: HEADER+9
    Function Call: WRITE
    • Prompt: !,"The Current MST Screening indicates the latest MST screening result for the patient."
    • Line Location: HEADER+10
    Function Call: WRITE
    • Prompt: !,"The Station column provides data on which site(s) the patient was treated."
    • Line Location: HEADER+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: HEADER+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: HEADER+12
    Function Call: WRITE
    • Prompt: "="
    • Line Location: LINE+2
    Function Call: WRITE
    • Prompt: "PATIENT NAME",?29,"DATE OF",?41,"PID",?48,"OTH REG",?60,"NEW ELIGIBILITY CODE",?91,"CURRENT MST",?107,"SC%",?112,"ELIGIBILITY",?125,"STATION"
    • Line Location: COLHEAD+2
    Function Call: WRITE
    • Prompt: !,?29,"BIRTH",?48,"DATE",?91,"SCREEN STATUS",?112,"CHANGE DATE"
    • Line Location: COLHEAD+3
    Function Call: WRITE
    • Prompt: !,"---------------------------",?29,"----------",?41,"-----",?48,"----------",?60,"-----------------------------"
    • Line Location: COLHEAD+4
    Function Call: WRITE
    • Prompt: ?91,"--------------",?107,"---",?112,"-----------",?125,"-------"
    • Line Location: COLHEAD+5
    Function Call: WRITE
    • Prompt: "PATIENT NAME",?33,"DATE OF",?46,"PID",?54,"OTH REG DATE",?69,"NEW ELIGIBILITY CODE",?103,"SC%",?110,"ELIGIBILITY",?125,"STATION"
    • Line Location: COLHEAD+6
    Function Call: WRITE
    • Prompt: !,?33,"BIRTH",?110,"CHANGE DATE"
    • Line Location: COLHEAD+7
    Function Call: WRITE
    • Prompt: !,"------------------------------",?33,"----------",?46,"-----",?54,"------------"
    • Line Location: COLHEAD+8
    Function Call: WRITE
    • Prompt: ?69,"------------------------------",?103,"----",?110,"-----------",?125,"-------"
    • Line Location: COLHEAD+9
    Function Call: WRITE
    • Prompt: !!,$$CJ^XLFSTR("Press <Enter> to "_$S(FLAG=1:"continue.",1:"exit."),20)
    • Line Location: ASKCONT+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: EXIT+3
    Routine Call
    • %ZIS
    • Line Location:
      • MAIN+27
      • EXIT+5
    Routine Call
    • DIR
    • Line Location:
      • ANSWER+14
      • PAUSE+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GETS^DIQ
    ^DGOTH(33 - [#33] GETS^DIQ
    ^DGPT - [#45] GET1^DIQ,  GETS^DIQ
    ^DIC(45.7 - [#45.7] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGOTH(33 - [#33] MAIN+4, LOOP+10, INACTOTH+3, INACTOTH+13, INACTOTH+15, INACTOTH+23
    ^DGPT - [#45] PTFDATA+12, PTFDATA+13, PTFDATA+17, PTFDATA+18
    ^DGPT("AFEE" PTFDATA+16
    ^DPT - [#2] PTFDATA+8, PTFDATA+9
    ^TMP($J START+8, START+9, START+10, START+11, LOOP+36!

    Label References

    Name Line Occurrences
    $$ANSWER DATEFROM+7, DATETO+7
    $$DATEFROM MAIN+17
    $$DATETO MAIN+19
    $$SCPRCT LOOP+49
    ASKCONT MAIN+4, LOOP+14, INACTOTH+3, PRINT+7, PRINT+33
    CHKINT LOOP+50
    COLHEAD LOOP+11, PRINT+4, PRINT+9, PRINT+14
    EXIT START+16
    HEADER LOOP+11, PRINT+4, PRINT+9, PRINT+14
    HELP1 HELP+8, HELP+12
    HELP2 HELP+9, HELP+13
    INACTOTH LOOP+7
    LINE LOOP+13, PRINT+6, PRINT+14, PRINT+30, HEADER+5, HEADER+12
    LOOP START+13
    PAUSE PRINT+14
    PRINT START+14
    PRINT1 PRINT+16

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZIS MAIN+2~, MAIN+22*, MAIN+26, EXIT+4!
    %ZIS("B" MAIN+23*
    >> ADMDT PTFDATA+16, PTFDATA+31, PTFDATA+32
    BEGDT CHKDATE~, CHKDATE+1
    DATA LOOP+1~, LOOP+20!, LOOP+44*, LOOP+49*, LOOP+50, SCPRCT~, SCPRCT+4*, SCPRCT+6, CHKINT~, CHKINT+14
    , CHKINT+16
    DATE CHKDATE~, CHKDATE+1
    DDASH LOOP+1~, LOOP+3*, PRINT+1~, PRINT+2*
    DFN SCPRCT~
    DGASK DATEFROM+1~, DATEFROM+7*, DATEFROM+8, DATEFROM+9, DATETO+1~, DATETO+7*, DATETO+8, DATETO+9
    DGBEGDT DATEFROM+1~, DATEFROM+2*, DATEFROM+6, DATEFROM+8
    DGDFN LOOP+1~, LOOP+18*, LOOP+19, LOOP+23, LOOP+25, LOOP+26, LOOP+27, LOOP+34, LOOP+35, LOOP+40
    , LOOP+41, LOOP+42, LOOP+43, LOOP+46, LOOP+49, INACTOTH+1~, INACTOTH+30*, INACTOTH+31, CHKINT+14, CHKINT+16
    , PRINT+1~, PRINT+12*, PRINT+13, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT1+1, PRINT1+2
    PRINT1+3, PTFDATA+8, PTFDATA+9, PTFDATA+16
    DGDIR0 ANSWER~, ANSWER+10
    DGDIRA DATEFROM+1~, DATEFROM+3*, DATEFROM+7, DATETO+1~, DATETO+2*, DATETO+7, ANSWER~, ANSWER+11
    DGDIRB DATEFROM+1~, DATEFROM+4*, DATEFROM+7, DATETO+1~, DATETO+3*, DATETO+7, ANSWER~, ANSWER+12
    DGDIRH DATEFROM+1~, DATEFROM+5*, DATEFROM+7, DATETO+1~, DATETO+4*, DATETO+7, ANSWER~, ANSWER+13
    DGDIRO DATEFROM+1~, DATEFROM+6*, DATEFROM+7, DATETO+1~, DATETO+6*, DATETO+7
    DGDIV CHKINT+1~, CHKINT+5*, CHKINT+6, CHKINT+7, CHKINT+8, PTFDATA+26*, PTFDATA+29
    >> DGDIVNME PTFDATA+23*, PTFDATA+26*, PTFDATA+29
    DGDOB LOOP+2~, LOOP+20!, SCPRCT+1~, SCPRCT+3*, SCPRCT+4
    DGDTEND DATETO+1~, DATETO+5*
    DGELGDT INACTOTH+1~
    DGELGDTV LOOP+2~, LOOP+20!, LOOP+27*, LOOP+29, LOOP+34, LOOP+35, LOOP+36
    DGELIGDATE LOOP+2~, LOOP+20!, LOOP+40*, LOOP+44
    DGENCNT LOOP+2~, LOOP+22*, LOOP+38, PTFDATA+30*, PTFDATA+31, PTFDATA+32
    DGENCTRDT CHKINT+1~, CHKINT+4*, CHKINT+5, CHKINT+6, CHKINT+7, CHKINT+8
    DGERR LOOP+1~, LOOP+20!, LOOP+24, INACTOTH+1~, INACTOTH+14!, INACTOTH+19
    DGFOUND INACTOTH+1~, INACTOTH+22*, INACTOTH+26, INACTOTH+32*
    DGIBRX LOOP+1~
    DGIEN33 LOOP+1~, LOOP+19*, LOOP+26, INACTOTH+1~, INACTOTH+14!, INACTOTH+15*, INACTOTH+18, INACTOTH+20, INACTOTH+23, INACTOTH+27
    , INACTOTH+29, INACTOTH+30, INACTOTH+31
    DGLIST START+4~, START+8*, START+12, START+13, START+14, START+15, LOOP~, CHKINT+14, CHKINT+16, PRINT~
    , PRINT+3, PRINT+10, PRINT+12, PRINT+13, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT1+1
    PRINT1+2, PRINT1+3
    DGMSTRSLT LOOP+2~, LOOP+22*, LOOP+47*, LOOP+48*, CHKINT+14, CHKINT+16
    DGNEWELG LOOP+2~, LOOP+20!, LOOP+43*, LOOP+44
    DGOLD PRINT+1~, PRINT+2*, PRINT+11, PRINT+27*
    DGOTHARR LOOP+1~, LOOP+20!, INACTOTH+1~, INACTOTH+14!
    DGOTHARR( INACTOTH+27, INACTOTH+29
    DGOTHARR(2 LOOP+25, LOOP+27, LOOP+40, LOOP+41, LOOP+42, LOOP+43
    DGOTHARR(33 INACTOTH+20, INACTOTH+30
    DGOTHDT HELP+3~, HELP+4*, HELP+12
    DGOTHELDT INACTOTH+1~, INACTOTH+12*, INACTOTH+13*, INACTOTH+15
    DGOTHIN START+5~, START+9*, START+12, START+13, START+14, START+15, LOOP~, LOOP+9, LOOP+18, LOOP+19
    , LOOP+26, INACTOTH+31
    DGOTHMST LOOP+1~, LOOP+22*, LOOP+46*, LOOP+47, LOOP+48
    DGOTHREGDT LOOP+2~, LOOP+20!, LOOP+26*, LOOP+29, LOOP+34, LOOP+35, LOOP+36, LOOP+44, INACTOTH+14!, INACTOTH+29*
    , INACTOTH+31
    DGOUT PTFDATA+20!, PTFDATA+33!
    DGOUT(45 PTFDATA+21
    DGOUTERR PTFDATA+20!
    DGPAGE LOOP+1~, LOOP+4*, PRINT+1~, PRINT+2*, HEADER+2, HEADER+3*, HEADER+4, PAUSE+5
    DGPID LOOP+2~, LOOP+20!, LOOP+42*, LOOP+44
    DGPRINT PRINT+1~, PRINT+2*, PRINT+11*, PRINT+16*
    DGPTNAME LOOP+2~, LOOP+20!, LOOP+41*, LOOP+44, CHKINT+14, CHKINT+16, PRINT+1~, PRINT+10*, PRINT+11, PRINT+12
    , PRINT+13, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+27, PRINT1+1, PRINT1+2, PRINT1+3
    DGQ PRINT+1~, PRINT+2*, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+23, PRINT+24, PRINT+26, PRINT+28
    HEADER+1*, PAUSE~, PAUSE+5*
    DGRECNUM INACTOTH+1~, INACTOTH+26*, INACTOTH+27, INACTOTH+29
    DGREGDT INACTOTH+1~, INACTOTH+14!
    DGREGDT( INACTOTH+25*, INACTOTH+26
    DGSEL HELP~
    DGSORT MAIN+1~, START+13, START+14, LOOP~, LOOP+7, INACTOTH~, PRINT~
    DGSORT("DGBEG" DATEFROM+8*, DATETO+5, DATETO+6, LOOP+29, INACTOTH+10, INACTOTH+11, HEADER+6
    DGSORT("DGEND" DATETO+8*, LOOP+29, INACTOTH+13, HEADER+6
    >> DGSTA PTFDATA+19, PTFDATA+21*, PTFDATA+22*, PTFDATA+27*, PTFDATA+29, PTFDATA+31, PTFDATA+32
    DGSTATN CHKINT+1~, CHKINT+8*, CHKINT+9, CHKINT+11, CHKINT+12, CHKINT+14, CHKINT+16, CHKINT+17, PRINT+1~, PRINT+13*
    , PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT1+1, PRINT1+2, PRINT1+3
    DGSTDT INACTOTH+1~, INACTOTH+10*, INACTOTH+11*, INACTOTH+12
    DGSTRTDT DATEFROM+1~
    DGTOTAL PRINT+1~, PRINT+2*, PRINT+25*, PRINT+31
    DGTOTREC INACTOTH+1~, INACTOTH+22*, INACTOTH+23*, INACTOTH+24, INACTOTH+25
    DIR ANSWER+9~, ANSWER+14!, PAUSE+5!
    DIR("?" ANSWER+13*
    DIR("??" ANSWER+13*
    DIR("A" ANSWER+11*
    DIR("B" ANSWER+12*
    DIR(0 ANSWER+10*, PAUSE+5*
    DIROUT ANSWER+9~, ANSWER+15, ANSWER+17
    DIRUT ANSWER+9~
    DIVINPT PTFDATA+33!
    >> DSCHRGDT PTFDATA+4, PTFDATA+6, PTFDATA+25
    DT HELP+13
    DTIME ASKCONT+3
    DTOUT ANSWER+9~, ANSWER+15, ANSWER+17
    DUOUT ANSWER+9~, ANSWER+15, ANSWER+17
    ENDDT CHKDATE~, CHKDATE+1
    FILENO CHKINT+1~, CHKINT+6*, CHKINT+7, CHKINT+8
    FLAG ASKCONT~, ASKCONT+2
    HERE START+2~*, CHKINT+11
    >> IBMST LOOP+45, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT1+1, PRINT1+2, PRINT1+3, HEADER+10
    COLHEAD+1
    IBOTHSTAT START+7~, START+11*, START+12, START+15
    II INACTOTH+1~, INACTOTH+25*
    INTFCLTY CHKINT+1~, CHKINT+3*, CHKINT+12
    IOF MAIN+5, LOOP+14, PRINT+7, PRINT+33, HEADER+2, EXIT+3
    IOSL PRINT+14
    IOST START+1, START+3
    LINE LINE+1~, LINE+2*
    >> LSTUSR PTFDATA+24*, PTFDATA+27*, PTFDATA+29
    OLDSTA CHKINT+1~, CHKINT+2*, CHKINT+16, CHKINT+17*
    POP EXIT+4!
    PRIMDX PTFDATA+2~, PTFDATA+3*, PTFDATA+13*, PTFDATA+14*, PTFDATA+15*, PTFDATA+17*, PTFDATA+18*, PTFDATA+29
    >> PTFIEN PTFDATA+5, PTFDATA+12, PTFDATA+13, PTFDATA+16, PTFDATA+17, PTFDATA+18, PTFDATA+20, PTFDATA+21, PTFDATA+29
    PTFIEN405 PTFDATA+2~, PTFDATA+29
    RECNT CHKINT+1~, CHKINT+7*, CHKINT+8
    RECORD START+6~, START+10*, START+12, START+15, LOOP+21, LOOP+38, CHKINT+4, CHKINT+5, CHKINT+6, CHKINT+7
    , CHKINT+8, PTFDATA+31
    >> RECORD1 PTFDATA+32
    SORTENCBY LOOP+1~, LOOP+4*, PTFDATA+32
    >> TMPDATA PTFDATA+29*, PTFDATA+31, PTFDATA+32
    TRM START+3~*, HEADER+2, PAUSE+5, EXIT+3
    >> TRTFCLTY PTFDATA+6*, PTFDATA+9*, PTFDATA+25*, PTFDATA+29
    U ANSWER+16, ANSWER+18, LOOP+44, LOOP+47, LOOP+48, INACTOTH+23, SCPRCT+3, SCPRCT+4, CHKINT+8, CHKINT+11
    , CHKINT+12, CHKINT+14, CHKINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT1+1, PRINT1+2
    PRINT1+3, PTFDATA+13, PTFDATA+15, PTFDATA+18, PTFDATA+29
    VA SCPRCT+1~
    VADM SCPRCT+1~
    VADM(3 SCPRCT+3
    VAEL SCPRCT+1~
    VAEL(3 SCPRCT+4
    VAUTD LOOP+1~, LOOP+17*, LOOP+34
    >> WRDLOC PTFDATA+5*, PTFDATA+8*, PTFDATA+10*, PTFDATA+25*, PTFDATA+29
    X MAIN+25*, MAIN+26, ANSWER+9~, ANSWER+16, ANSWER+18, HELP+5
    Y ANSWER+9~, ANSWER+16, ANSWER+18, HELP+10!, HELP+12!, HELP+13!, PAUSE+5
    Z ANSWER+9~, ANSWER+15*, ANSWER+16*, ASKCONT+1~, ASKCONT+3*
    ZTDESC MAIN+2~, HEADER+4
    ZTQUEUED MAIN+2~, HEADER+1, EXIT+1, EXIT+2
    ZTREQ MAIN+2~, EXIT+1*
    ZTSAVE MAIN+2~, MAIN+26
    ZTSAVE("DGSORT(" MAIN+24*
    ZTSTOP MAIN+2~, HEADER+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