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