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

Package: Registration

Routine: DGOTHRP3


Information

DGOTHRP3 ;SLC/RM - OTH PATIENT PERIOD STATUS REPORT CONT. ;MAY 8, 2018@5:15

Source Information

Source file <DGOTHRP3.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 9 $$MSNGPRD^DGOTHBTN  $$ISOTHD^DGOTHD  $$CROSS^DGOTHINQ  ASKCONT^DGOTHMG2  ($$ISOTH90,CLOCK,EXIT,PAUSE)^DGOTHRP2  CONT^DGOTHRP4  $$CALRNGE^DGOTHRPT  $$GET90DT^DGOTHUT1  
$$SITE^VASITE  
Kernel 2 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
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: 4

Package Total Caller Graph
Registration 4 DGOTHBTN  DGOTHRP2  DGOTHRP4  DGOTHRPT  

Entry Points

Name Comments DBIA/ICR reference
START ; compile and print report
LOOP(DGSORT,DGLIST) ;
LOOP1(DGSORT,DGLIST) ;
; If 4[$P(DGSORT("DGMON"),U)
; - Then, build DGSORT("DGBEG") and DGSORT("DGEND")
; for each month on the fly
LOOP2(DGSORT,DGLIST) ;
LOOP3(DGSORT,DGLIST) ;Fiscal year detail
; If 5[$P(DGSORT("DGMON"),U)
; - Then, build DGSORT("DGBEG") and DGSORT("DGEND")
; for each month in the quarter on the fly
RESULT(DGARR,DG90A,DGIEN33) ;extract the 365 and 90 day period data for OTH patient
SORT(DGRET,DGSORT,DGCLCK) ;
PRDDT(DGSORT,DGBEG,DGEND) ;
BLD(DGSORT,DGLIST,DGRET,DGARR,DATA,DGDTOK) ;
BLDNEW(DGPTNM,DATA) ;
BLDOLD(DGPTNM,DGMON,DGCLCK,DGTMP) ;
PRINT1(DGSORT,DGLIST,DGCNT) ;display by month or month in the quarter
PRINT2 ;
FYEAR ;loop and display report for the entire FISCAL YEAR
NOREC(STATUS) ;
PRNTNEW ;OTH-90 newly started their treatment
DSPLYNW ;
PRNTOLD ;OTH-90 whose treatment carried/continued to the following month
DSPLYCRY
CALCIN(DGSTR,DGSTAT,DGMON) ;calculate inactivated OTH patients
MRPTSUM ;monthly report summary
MONAME ;Month Name
HEAD ;Print/Display Page Header Detail
SUBHEAD(DGSTAT,DGMNAME) ;display sub header
HELP ;provide extended DIR("?") help text.

External References

Name Field # of Occurrence
$$S^%ZTLOAD HEAD+1
$$MSNGPRD^DGOTHBTN LOOP2+13
$$ISOTHD^DGOTHD SORT+15
$$CROSS^DGOTHINQ SORT+15
ASKCONT^DGOTHMG2 PRINT1+7, PRINT1+28
$$ISOTH90^DGOTHRP2 SORT+15
CLOCK^DGOTHRP2 LOOP2+11
EXIT^DGOTHRP2 START+14
PAUSE^DGOTHRP2 PRNTNEW+6, DSPLYNW+5, PRNTOLD+7, DSPLYCRY+6
CONT^DGOTHRP4 PRINT1+26
$$CALRNGE^DGOTHRPT LOOP1+6, LOOP3+7
$$GET90DT^DGOTHUT1 RESULT+13
WAIT^DICD START+1
$$GET1^DIQ SORT+18
GETS^DIQ LOOP2+8
$$SITE^VASITE START+2
$$FMTE^XLFDT PRNTNEW+9, PRNTNEW+12, PRNTOLD+10, PRNTOLD+13, HEAD+11
$$NOW^XLFDT HEAD+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!," >>> No Records were found using the report criteria.",!
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+22
Function Call: WRITE
  • Prompt: !!,"<END OF REPORT>"
  • Line Location: PRINT1+27
Function Call: WRITE
  • Prompt: !," *** No "_$S(STATUS=1:"NEW",1:"CARRY-OVER")_" OTH-90 patient records were found",!
  • Line Location: NOREC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOREC+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOREC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTNEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTNEW+6
Function Call: WRITE
  • Prompt: $E(DGPTNM,1,20),?23,$P(DGSTR,U,3)
  • Line Location: PRNTNEW+7
Function Call: WRITE
  • Prompt: ?31,$P(DGSTR,U,2),?37,$$FMTE^XLFDT($P(DGSTR,U,4),"5Z"),?49,$$FMTE^XLFDT($P(DGSTR,U,5),"5Z")
  • Line Location: PRNTNEW+9
Function Call: WRITE
  • Prompt: ?68,$$FMTE^XLFDT($P(DGSTR,U,8),"5Z")
  • Line Location: PRNTNEW+12
Function Call: WRITE
  • Prompt: !!,"New for "_DGMNAME,?26,"="
  • Line Location: DSPLYNW+2
Function Call: WRITE
  • Prompt: $S($G(DGCNT("NEW"))>0:$J(DGCNT("NEW"),5),1:$J(0,5)),!
  • Line Location: DSPLYNW+3
Function Call: WRITE
  • Prompt: $S($G(DGCNT("NEW",DGMON))>0:$J(DGCNT("NEW",DGMON),5),1:$J(0,5)),!
  • Line Location: DSPLYNW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTOLD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTOLD+7
Function Call: WRITE
  • Prompt: $E(DGPTNM,1,20),?23,$P(DGSTR,U,3)
  • Line Location: PRNTOLD+8
Function Call: WRITE
  • Prompt: ?31,$P(DGSTR,U,2),?37,$$FMTE^XLFDT($P(DGSTR,U,4),"5Z"),?49,$$FMTE^XLFDT($P(DGSTR,U,5),"5Z")
  • Line Location: PRNTOLD+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRNTOLD+17
Function Call: WRITE
  • Prompt: "Carryover for "_DGMNAME,?26,"="
  • Line Location: DSPLYCRY+0
Function Call: WRITE
  • Prompt: $S($G(DGCNT("OLD"))>0:$J(DGCNT("OLD"),5),1:$J(0,5)),!
  • Line Location: DSPLYCRY+1
Function Call: WRITE
  • Prompt: $S($G(DGCNT("OLD",DGMON))>0:$J(DGCNT("OLD",DGMON),5),1:$J(0,5)),!
  • Line Location: DSPLYCRY+3
Function Call: WRITE
  • Prompt: "================================",!
  • Line Location: DSPLYCRY+4
Function Call: WRITE
  • Prompt: "TOTAL",?26," ",$J(($G(DGCNT("NEW",DGMON)))+($G(DGCNT("OLD",DGMON))),5),!
  • Line Location: DSPLYCRY+5
Function Call: WRITE
  • Prompt: !,"REPORT SUMMARY for the month of ",$P(DGSORT("DGMON"),U,2),":"
  • Line Location: MRPTSUM+3
Function Call: WRITE
  • Prompt: !!,?16,"90-DAY",?29,"NEW",?39,"CARRY OVER",?55,"TOTAL",?64,"|",?65,"INACTIVATED"
  • Line Location: MRPTSUM+4
Function Call: WRITE
  • Prompt: !,?16,DGLN,?64,"|",?65,"============"
  • Line Location: MRPTSUM+5
Function Call: WRITE
  • Prompt: !,?16,$J(I,4)
  • Line Location: MRPTSUM+9
Function Call: WRITE
  • Prompt: ?29,$J(DGCNT("NEW",I),3)
  • Line Location: MRPTSUM+11
Function Call: WRITE
  • Prompt: ?39,$J(DGCNT("OLD",I),5)
  • Line Location: MRPTSUM+12
Function Call: WRITE
  • Prompt: ?55,$J($G(DGCNT("NEW",I))+($G(DGCNT("OLD",I))),5)
  • Line Location: MRPTSUM+13
Function Call: WRITE
  • Prompt: ?55,$J(0,5)
  • Line Location: MRPTSUM+14
Function Call: WRITE
  • Prompt: ?64,"|"
  • Line Location: MRPTSUM+15
Function Call: WRITE
  • Prompt: ?65,$J($G(DGCNT("NEW",I,0))+($G(DGCNT("OLD",I,0))),6)
  • Line Location: MRPTSUM+17
Function Call: WRITE
  • Prompt: !,DGLN,?64,"|",?65,"============"
  • Line Location: MRPTSUM+20
Function Call: WRITE
  • Prompt: !,"TOTAL",?29,$J($G(DGCNT("NEW")),3),?39,$J($G(DGCNT("OLD")),5),?55,$J($G(TOTAL1),5),?64,"|",?65,$J($G(TOTAL2),6)
  • Line Location: MRPTSUM+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,?80-$L(ZTDESC)\2,$G(ZTDESC),?71,"Page:",?77,DGPAGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,?80-$L(DGFACLTY)\2,DGFACLTY
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,?80-$L(DGPRD)\2,DGPRD
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"Date Range:",?12,DGDTRNGE
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?45,"Date Printed:",?59,$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?23,"PID",?29,"PERIOD",?37,"START DATE",?49,"END DATE",?61,"DAYS",?68,"INACTIVATION"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,?61,"LEFT",?68,"DATE"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,DDASH,!
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,$S(DGSTAT:"OTH-90 Patients that started treatment in ",1:"Carry-over OTH-90 Patients for ")
  • Line Location: SUBHEAD+1
Function Call: WRITE
  • Prompt: DGMNAME_":"
  • Line Location: SUBHEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHEAD+3
Function Call: WRITE
  • Prompt: !," Not a valid fiscal year.",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," Enter the fiscal year in this format: YY or YYYY"
  • Line Location: HELP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGOTH(33 - [#33] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGOTH(33 - [#33] LOOP2+4, LOOP2+7
^TMP("DGOTHST" START+6

Label References

Name Line Occurrences
$$PRDDT SORT+12
BLD SORT+21
BLDNEW BLD+5, BLD+15
BLDOLD BLD+16
CALCIN BLD+9, BLD+20
DSPLYCRY PRINT2+11, NOREC+5
DSPLYNW NOREC+4, NOREC+6
FYEAR PRINT1+17
HEAD PRINT1+5, PRINT2+5, PRINT2+6, PRINT2+16, PRINT2+17, PRNTNEW+6, PRNTOLD+7, MRPTSUM+2
LOOP START+10
LOOP1 LOOP+2
LOOP2 LOOP+1, LOOP1+9, LOOP3+11
LOOP3 LOOP+3
MRPTSUM PRINT1+24
NOREC PRINT2+6, PRINT2+17
PRINT1 START+11
PRINT2 PRINT1+14, FYEAR+5
PRNTNEW PRINT2+5
PRNTOLD PRINT2+16
RESULT LOOP2+14
SORT LOOP2+16
SUBHEAD PRINT2+5, PRINT2+6, PRINT2+16, PRINT2+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA SORT+3~, SORT+7!, SORT+20*, SORT+21, BLD~, BLD+3, BLD+4, BLD+5, BLD+7, BLD+9
, BLD+15, BLD+16, BLD+18, BLD+20, BLDNEW~, BLDNEW+1, BLDOLD+1
DATASTR RESULT+2~, RESULT+13*, RESULT+14, RESULT+15, RESULT+17
DDASH PRINT1+1~, PRINT1+3*, HEAD+12, HEAD+15
DFN LOOP2+5~, LOOP2+10*, SORT+18
DG90 SORT+3~, SORT+6*, SORT+8, SORT+9, SORT+16, SORT+20, BLD+11
DG90A LOOP2+1~, LOOP2+6!, LOOP2+14, RESULT~
DGARR LOOP2+1~, LOOP2+6!, LOOP2+14, RESULT~, SORT+21, BLD~
DGARR( RESULT+18, SORT+19
DGARR(33 LOOP2+10, SORT+17
DGAUTH RESULT+2~, RESULT+7*, RESULT+18*, RESULT+20, SORT+19*, SORT+20
DGBEG SORT+3~, SORT+7!, SORT+8*, SORT+12, PRDDT~, PRDDT+4, PRDDT+6
DGC1 PRINT1+2~, PRINT1+9*
DGC2 PRINT1+2~, PRINT1+9*
DGCLCK LOOP2+6!, LOOP2+12, LOOP2+13, LOOP2+16, SORT~, BLDOLD~, PRNTNEW+3*, PRNTNEW+4, PRNTOLD+3*, PRNTOLD+4
DGCLCK( RESULT+6, RESULT+8, RESULT+10, RESULT+11, RESULT+12, SORT+5, SORT+16
DGCNT START+7~, START+8!, START+9*, START+11, BLD+21*, PRINT1~
DGCNT("IN" CALCIN+5*
DGCNT("NEW" BLD+6*, BLD+7*, BLD+8*, BLD+21, DSPLYNW+3, DSPLYNW+4, DSPLYCRY+5, CALCIN+4*, MRPTSUM+11, MRPTSUM+13
, MRPTSUM+16, MRPTSUM+17, MRPTSUM+18, MRPTSUM+19, MRPTSUM+21
DGCNT("OLD" BLD+17*, BLD+18*, BLD+19*, BLD+21, DSPLYCRY+1, DSPLYCRY+3, DSPLYCRY+5, CALCIN+3*, MRPTSUM+12, MRPTSUM+13
, MRPTSUM+16, MRPTSUM+17, MRPTSUM+18, MRPTSUM+19, MRPTSUM+21
DGDATE RESULT+2~, RESULT+4*
DGDFN LOOP2+1~, LOOP2+3*, LOOP2+4*, LOOP2+7, SORT+15
DGDIEN LOOP2+1~
DGDIFF RESULT+2~, RESULT+9!, RESULT+17*, RESULT+19, RESULT+20, RESULT+23, RESULT+25, RESULT+26
DGDTOK SORT+3~, SORT+7!, SORT+12*, SORT+21, BLD~, BLD+3, BLD+11
>> DGDTRNGE HEAD+10
DGEND SORT+3~, SORT+7!, SORT+9*, SORT+12, PRDDT~, PRDDT+5, PRDDT+6
DGENDT RESULT+2~, RESULT+9!, RESULT+15*, RESULT+16*, RESULT+19, RESULT+20
DGERR LOOP2+1~, LOOP2+6!, LOOP2+9
DGFACLTY HEAD+2~, HEAD+5*, HEAD+7
DGFLG PRINT1+1~
DGGRND PRINT1+20~, PRINT1+23*
DGIEN LOOP2+1~, LOOP2+3*
DGIEN33 LOOP2+5~, LOOP2+7*, LOOP2+8, LOOP2+10, LOOP2+11, LOOP2+14, RESULT~, RESULT+12, RESULT+13, SORT+15
, SORT+16, SORT+17, BLD+23, BLD+24
DGIENS RESULT+2~, RESULT+9!, RESULT+12*, RESULT+18, SORT+16*, SORT+19
DGLIST START+4~, START+6*, START+8, START+10, START+11, START+12, LOOP~, LOOP+1, LOOP+2, LOOP+3
, LOOP1~, LOOP1+9, LOOP2~, LOOP3~, LOOP3+11, SORT+21, BLD~, BLDNEW+1, BLDOLD+1, PRINT1~
, PRINT1+4, PRINT2+4, PRINT2+15, PRNTNEW+1, PRNTNEW+2, PRNTNEW+3, PRNTNEW+4, PRNTOLD+1, PRNTOLD+2, PRNTOLD+3
, PRNTOLD+4
DGLN PRINT1+3*, PRINT1+20~, PRINT1+21*, MRPTSUM+5*, MRPTSUM+20*
DGLS365D LOOP2+5~, LOOP2+13, RESULT+5, SORT+4
DGLS365I LOOP2+5~
DGMNAME PRINT1+2~, PRINT1+13*, PRINT2+5, PRINT2+6, PRINT2+16, PRINT2+17, FYEAR+4*, DSPLYNW+2, DSPLYCRY, SUBHEAD~
, SUBHEAD+2
DGMON LOOP1+4~, LOOP1+6*, LOOP1+7, LOOP1+8, LOOP3+4~, LOOP3+7*, LOOP3+8, LOOP3+9, BLD+2~, BLD+3*
, BLD+8, BLD+9, BLD+11, BLDNEW+1, BLDOLD~, PRINT1+1~, PRINT1+12*, PRINT1+13, PRINT2+4, PRINT2+15
, FYEAR+1~, FYEAR+3*, FYEAR+4, PRNTNEW+1, PRNTNEW+2, PRNTNEW+3, PRNTNEW+4, DSPLYNW+4, PRNTOLD+1, PRNTOLD+2
, PRNTOLD+3, PRNTOLD+4, DSPLYCRY+3, DSPLYCRY+5, CALCIN~, CALCIN+5
DGNACTVN SORT+3~, SORT+7!, SORT+10*, SORT+15*, SORT+20
DGNET START+7~, START+8!, START+9*, BLD+25*
DGNET( BLD+23, BLD+24*
DGOLD LOOP2+1~, LOOP2+3*, PRINT1+1~, PRINT1+3*, PRNTNEW+7, PRNTNEW+8*, PRNTOLD+8, PRNTOLD+9*
DGOSTAT LOOP2+5~, LOOP2+7*
DGP1TOT PRINT1+2~, PRINT1+9*
DGP2TOT PRINT1+2~, PRINT1+9*
DGPAGE PRINT1+1~, PRINT1+3*, HEAD+3, HEAD+4*, HEAD+6
DGPR1 PRINT1+2~, PRINT1+9*
DGPR2 PRINT1+2~, PRINT1+9*
DGPRD HEAD+2~, HEAD+8*, HEAD+9
DGPTNM SORT+17*, BLD+5, BLD+15, BLD+16, BLD+23, BLD+24, BLDNEW~, BLDNEW+1, BLDOLD~, BLDOLD+1
, PRINT1+1~, PRNTNEW+2*, PRNTNEW+3, PRNTNEW+4, PRNTNEW+7, PRNTNEW+8, PRNTOLD+2*, PRNTOLD+3, PRNTOLD+4, PRNTOLD+8
, PRNTOLD+9
DGPTSTAT LOOP2+5~
DGQ LOOP2+1~, LOOP2+3*, PRINT1+1~, PRINT1+3*, PRINT1+11, PRINT1+12, PRINT1+16, PRINT1+19, PRINT2+4, PRINT2+7
, PRINT2+14, PRINT2+15, PRINT2+18, FYEAR+2, FYEAR+3, FYEAR+6, PRNTNEW+1, PRNTNEW+2, PRNTNEW+3, PRNTNEW+6
, PRNTNEW+13, PRNTNEW+14, PRNTNEW+15, DSPLYNW+5, PRNTOLD+1, PRNTOLD+2, PRNTOLD+3, PRNTOLD+7, PRNTOLD+14, PRNTOLD+15
, PRNTOLD+16, DSPLYCRY+6, HEAD+1*
DGQNUM LOOP2+1~
DGQRT START+5~, FYEAR+1~, FYEAR+2*, FYEAR+3, FYEAR+4
DGQRTR LOOP3+4~, LOOP3+10*, BLDNEW+1, BLDOLD+1, PRINT1+2~, PRNTNEW+1*, PRNTNEW+2, PRNTNEW+3, PRNTNEW+4, PRNTOLD+1*
, PRNTOLD+2, PRNTOLD+3, PRNTOLD+4
DGRES LOOP2+1~, LOOP2+5~, LOOP2+7*, RESULT+3*, RESULT+6*, RESULT+10*, RESULT+19*, RESULT+27
DGRET LOOP2+1~, LOOP2+6!, LOOP2+15, LOOP2+16, RESULT+6!, RESULT+10!, SORT~, SORT+21, BLD~
DGRET( RESULT+7*, RESULT+20*, RESULT+22, RESULT+23*, RESULT+24*, RESULT+25*, RESULT+26*, SORT+6, SORT+8, SORT+9
, SORT+20, BLD+11
DGSDT RESULT+2~, RESULT+9!, RESULT+14*, RESULT+19, RESULT+20, RESULT+25, RESULT+26
DGSORT START+10, START+11, LOOP~, LOOP+1, LOOP+2, LOOP+3, LOOP1~, LOOP1+6, LOOP1+9, LOOP2~
, LOOP2+16, LOOP3~, LOOP3+7, LOOP3+11, SORT~, SORT+12, SORT+21, PRDDT~, BLD~, PRINT1~
, PRINT1+26
DGSORT("DGBEG" LOOP1+7*, LOOP3+8*, PRDDT+4, PRDDT+5, BLD+4, BLD+19, BLD+20, BLDOLD+1
DGSORT("DGEND" LOOP1+8*, LOOP3+9*, PRDDT+4, PRDDT+5, PRDDT+6, BLD+4
DGSORT("DGMON" LOOP+1, LOOP+2, LOOP+3, LOOP1+5, LOOP3+5, LOOP3+6, BLD+7, BLD+18, BLD+23, BLDNEW+1
, BLDOLD+1, PRINT1+11, PRINT1+12, PRINT1+13, PRINT1+16, PRINT1+24, PRINT1+26, PRINT2+11, FYEAR+2, FYEAR+3
, FYEAR+4, NOREC+3, NOREC+6, DSPLYNW+1, DSPLYNW+3, DSPLYNW+5, PRNTOLD+5, PRNTOLD+13, DSPLYCRY+1, CALCIN+2
, CALCIN+5, MRPTSUM+3, HEAD+8
DGSORT("DGQTR" BLDNEW+1, BLDOLD+1
DGSSN SORT+3~, SORT+7!, SORT+18*, SORT+20
DGSTAT PRINT1+2~, CALCIN~, CALCIN+3, SUBHEAD~, SUBHEAD+1
DGSTDT PRINT1+1~
DGSTR PRINT1+1~, PRNTNEW+4*, PRNTNEW+7, PRNTNEW+9, PRNTNEW+11, PRNTNEW+12, PRNTOLD+4*, PRNTOLD+8, PRNTOLD+10, PRNTOLD+12
, PRNTOLD+13, CALCIN~, CALCIN+1, CALCIN+3, CALCIN+4
DGTMP BLDOLD~
DGTOTP1 PRINT1+20~, PRINT1+23*
DGTOTP2 PRINT1+20~, PRINT1+23*
DGTOTQ PRINT1+20~, PRINT1+23*
DGVASSN BLD+2~
DONE RESULT+2~, RESULT+3*, RESULT+5, RESULT+6*, RESULT+8, RESULT+10*
DT RESULT+4, RESULT+25, RESULT+26
HERE START+2~*, HEAD+5
I RESULT+2~, RESULT+5*, RESULT+6, RESULT+7, RESULT+8, RESULT+10, RESULT+11, RESULT+12, RESULT+13, RESULT+20
, RESULT+22, RESULT+23, RESULT+24, RESULT+25, RESULT+26, MRPTSUM+6~, MRPTSUM+8*, MRPTSUM+9, MRPTSUM+11, MRPTSUM+12
, MRPTSUM+13, MRPTSUM+16, MRPTSUM+17, MRPTSUM+18, MRPTSUM+19
II LOOP1+4~, LOOP1+5*, LOOP1+6, RESULT+2~, RESULT+8*, RESULT+10, RESULT+11, RESULT+12, RESULT+13, RESULT+20
, RESULT+24, RESULT+25, RESULT+26, SORT+3~, SORT+4*, SORT+5, SORT+6, SORT+8, SORT+9, SORT+16
, SORT+20, BLD+11
IOF HEAD+3
IOSL PRNTNEW+6, PRNTOLD+7
IOST START+1, START+3, PRINT1+22
M LOOP3+4~, LOOP3+6*, LOOP3+7
OK PRDDT+2~, PRDDT+3*, PRDDT+4*, PRDDT+5*, PRDDT+6*, PRDDT+7
Q LOOP3+4~, LOOP3+5*, LOOP3+6, LOOP3+7, LOOP3+10
RET LOOP2+1~, LOOP2+6!
STATUS PRINT2+2~, PRINT2+3*, NOREC~, NOREC+1, NOREC+2, NOREC+4
TOTAL MRPTSUM+6~
TOTAL1 MRPTSUM+1~, MRPTSUM+7*, MRPTSUM+18*, MRPTSUM+21
TOTAL2 MRPTSUM+1~, MRPTSUM+7*, MRPTSUM+19*, MRPTSUM+21
TRM START+3~*, HEAD+3
U LOOP+1, LOOP+2, LOOP+3, LOOP1+7, LOOP1+8, LOOP3+8, LOOP3+9, RESULT+14, RESULT+15, RESULT+17
, RESULT+19, RESULT+20, SORT+8, SORT+9, SORT+15, SORT+20, BLD+3, BLD+4, BLD+7, BLD+11
, BLD+18, BLD+23, BLDNEW+1, BLDOLD+1, PRINT1+11, PRINT1+13, PRINT1+16, PRINT1+24, PRINT1+26, PRINT2+11
, FYEAR+4, NOREC+3, NOREC+6, PRNTNEW+7, PRNTNEW+9, PRNTNEW+11, PRNTNEW+12, DSPLYNW+1, DSPLYNW+3, DSPLYNW+5
, PRNTOLD+5, PRNTOLD+8, PRNTOLD+10, PRNTOLD+12, PRNTOLD+13, DSPLYCRY+1, CALCIN+1, CALCIN+2, CALCIN+3, CALCIN+4
, CALCIN+5, MRPTSUM+3, HEAD+5, HEAD+8
>> X HELP+2
>> ZTDESC HEAD+6
>> ZTQUEUED PRINT1+19, HEAD+1
>> ZTSTOP HEAD+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