Routine: DGOTHFSM

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

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*

Customize PDF page

Package: Registration

Routine: DGOTHFSM

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: