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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGOTHRPT

Package: Registration

Routine: DGOTHRPT


Information

DGOTHRPT ;SLC/RM - OTHD (OTHER THAN HONORABLE DISCHARGE) APIs ;April 27,2018@21:08

Source Information

Source file <DGOTHRPT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 HOME^%ZIS  ($$FMADD,$$FMTE,$$SCH)^XLFDT  $$CJ^XLFSTR  EN^XUTMDEVQ  
Registration 4 ASKCONT^DGOTHMG2  ($$SELDIV,$$SORTRPT)^DGOTHRP1  (,HELP)^DGOTHRP3  $$ANSWER^DGOTHRPT  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Registration 5 DG OTH 90-DAY PERIOD  DG OTH STATISTICAL REPORT  DGOTHRP1  DGOTHRP3  DGOTHRPT  

Entry Points

Name Comments DBIA/ICR reference
REPORT1 ;
STATUS() ;prompt OTH-90 STATUS
; 1) Active 90-Day Period
; 2) Expired 90-Day Period
; 3) Both (Active and Expired Period)
DATEBEG() ;prompt for beginning date
DATEEND() ;prompt for ending date
SORTBY() ;prompt for sort by
; 1) Patient Name
; 2) Period
; 3) Days Remaining
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.
ENSTAT ;
FISCAL() ;prompt for fiscal year
QRTRALL() ;prompt for statistical report to print
MQ(DGSORT) ;prompt month in the quarter
DTRANGE ;calculate monthly date range
CALRNGE(DGSORT,Q,M) ;calculate date range by month
FSCLYR ;calculate fiscal year date range
MSG(DGSORT) ;
DATES ;store date ranges for each quarter
MONTH(DGRRDT) ; Pass in a date (default = today's date)
; this function returns the first and last dates of the month
FY(DGRRDT) ; Pass in a date (default = today's date),
; and this function returns what FY we are in,
; followed by the FY start date and FY end date.
; ie. S X=$$FY^DGOTHST(3050208) results in X="FY 2005^3041000^3051000"

External References

Name Field # of Occurrence
HOME^%ZIS REPORT1+67, ENSTAT+47
ASKCONT^DGOTHMG2 REPORT1+27
$$SELDIV^DGOTHRP1 REPORT1+50
$$SORTRPT^DGOTHRP1 REPORT1+51
^DGOTHRP3 MQ+11, FSCLYR+11
HELP^DGOTHRP3 FISCAL+8
$$ANSWER^DGOTHRPT ENSTAT+16, QRTRALL+7, MQ+13
^DIR SORTBY+15, ANSWER+14
$$FMADD^XLFDT DATEBEG+6, DATEEND+6, DATEEND+7
$$FMTE^XLFDT MSG+1, MSG+2
$$SCH^XLFDT MONTH+5
$$CJ^XLFSTR REPORT1+27
EN^XUTMDEVQ REPORT1+66, ENSTAT+46

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(">>> No OTH-90 records have been found. <<<",80)
  • Line Location: REPORT1+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORT1+29
Function Call: WRITE
  • Prompt: !,"OTH 90-DAY PERIOD TRACKING REPORT"
  • Line Location: REPORT1+30
Function Call: WRITE
  • Prompt: !!,"This option generates a report that prints a listing of all OTH-90 patients"
  • Line Location: REPORT1+31
Function Call: WRITE
  • Prompt: !,"with ACTIVE or EXPIRED 90-Day period of care and who have an Outpatient"
  • Line Location: REPORT1+32
Function Call: WRITE
  • Prompt: !,"Encounter with the STATUS=CHECKED OUT for Clinic(s) associated with the"
  • Line Location: REPORT1+33
Function Call: WRITE
  • Prompt: !,"selected Division(s) within the user-specified date range of the 90-Day period."
  • Line Location: REPORT1+34
Function Call: WRITE
  • Prompt: !,"Those OTH-90 patients that have been adjudicated, entered in error, or the"
  • Line Location: REPORT1+35
Function Call: WRITE
  • Prompt: !,"Expanded MH Care Type is changed from OTH-90 to a different factor type"
  • Line Location: REPORT1+36
Function Call: WRITE
  • Prompt: !,"will not be displayed in this report."
  • Line Location: REPORT1+37
Function Call: WRITE
  • Prompt: !!,"Please select divisions to include in the report:"
  • Line Location: REPORT1+49
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT1+63
Function Call: WRITE
  • Prompt: !
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATEBEG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATEEND+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SORTBY+4
Function Call: WRITE
  • Prompt: !," Not a valid date.",!
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," Beginning Date cannot be more than 90 days from today."
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," Beginning Date cannot be a future date."
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," Ending Date is today's date + 1 day. The latest ending date was "
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !," calculated by adding 364 days from the Beginning Date entered by the user. "
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !," Please Enter:",!
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !," 1 = If you wish to print all OTH-90 MH Care patient which"
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !," were being treated at the Division with an ACTIVE"
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !," 90-Day period of care for a selected date range.",!
  • Line Location: HELP+17
Function Call: WRITE
  • Prompt: !," 2 = If you wish to print all OTH-90 Care patient whose"
  • Line Location: HELP+18
Function Call: WRITE
  • Prompt: !," 90-Day period has been EXPIRED or ZERO days remaining.",!
  • Line Location: HELP+19
Function Call: WRITE
  • Prompt: !," 3 = If you wish to print BOTH ACTIVE and EXPIRED 90-Day period",!
  • Line Location: HELP+20
Function Call: WRITE
  • Prompt: !," Select sort criteria within each Division."
  • Line Location: HELP+21
Function Call: WRITE
  • Prompt: !!," Enter the "_X_" date to include in the report."
  • Line Location: HELP+22
Function Call: WRITE
  • Prompt: !," Please enter a date from the specified date range displayed."
  • Line Location: HELP+23
Function Call: WRITE
  • Prompt: !?2,">>> No OTH-90 records were found.",*7
  • Line Location: ENSTAT+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENSTAT+18
Function Call: WRITE
  • Prompt: !,"OTH 90-DAY PERIOD STATISTICAL REPORT"
  • Line Location: ENSTAT+19
Function Call: WRITE
  • Prompt: !!,"This option generates a report that prints a listing of all OTH-90 patients"
  • Line Location: ENSTAT+20
Function Call: WRITE
  • Prompt: !,"with ACTIVE or EXPIRED 90-Day periods of care, have been adjudicated, entered"
  • Line Location: ENSTAT+21
Function Call: WRITE
  • Prompt: !,"in error, or the Expanded MH Care Type is changed from OTH-90 to a different"
  • Line Location: ENSTAT+22
Function Call: WRITE
  • Prompt: !,"Expanded MH Care Type."
  • Line Location: ENSTAT+23
Function Call: WRITE
  • Prompt: !!,"The date displayed in the 'INACTIVATION DATE' column is the date the 90-Day"
  • Line Location: ENSTAT+24
Function Call: WRITE
  • Prompt: !,"countdown clock has been inactivated. The 90-Day countdown is inactivated when"
  • Line Location: ENSTAT+25
Function Call: WRITE
  • Prompt: !,"an OTH-90 patient has received adjudication, was inactivated due to data entry"
  • Line Location: ENSTAT+26
Function Call: WRITE
  • Prompt: !,"error or the Expanded MH Care Type is changed from OTH-90.",!
  • Line Location: ENSTAT+27
Function Call: WRITE
  • Prompt: !
  • Line Location: ENSTAT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: FISCAL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FISCAL+8
Function Call: WRITE
  • Prompt: !!,"Statistical Date Range Selected: ",$$FMTE^XLFDT(DGSORT("DGBEG"),1)," to ",$$FMTE^XLFDT(DGSORT("DGEND"),1)
  • Line Location: MSG+2
Routine Call
  • %ZIS
  • Line Location:
    • REPORT1+67
    • ENSTAT+47
Routine Call
  • DIR
  • Line Location:
    • SORTBY+15
    • ANSWER+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGOTH(33 - [#33] REPORT1+27, ENSTAT+13

Label References

Name Line Occurrences
$$ANSWER STATUS+10, DATEBEG+8, DATEEND+8, FISCAL+7
$$DATEBEG REPORT1+42
$$DATEEND REPORT1+45
$$FISCAL ENSTAT+29
$$MONTH DTRANGE+6, CALRNGE+7
$$MQ ENSTAT+36
$$QRTRALL ENSTAT+32
$$SORTBY REPORT1+59
$$STATUS REPORT1+40
DTRANGE ENSTAT+38
FISCAL FISCAL+8
FSCLYR ENSTAT+41
MSG DTRANGE+13, FSCLYR+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGASK STATUS+4~, STATUS+10*, STATUS+11, STATUS+12, DATEBEG+1~, DATEBEG+8*, DATEBEG+9, DATEBEG+10, DATEEND+1~, DATEEND+8*
, DATEEND+9, DATEEND+10, SORTBY+16*, SORTBY+17, SORTBY+18, FISCAL+1~, FISCAL+7*, FISCAL+8*, FISCAL+9, FISCAL+10
, QRTRALL+2~, QRTRALL+7*, QRTRALL+8, QRTRALL+9, QRTRALL+10, MQ+2~, MQ+13*, MQ+14, MQ+15, MQ+16
, MQ+17, MQ+19
DGBEGDT DATEBEG+1~, DATEBEG+6*, DATEBEG+7
DGCNT MQ+2~, MQ+8*, MQ+10*, MQ+11
DGDIR0 ANSWER~, ANSWER+10
DGDIRA STATUS+4~, STATUS+6*, STATUS+10, DATEBEG+1~, DATEBEG+3*, DATEBEG+8, DATEEND+1~, DATEEND+3*, DATEEND+8, ANSWER~
, ANSWER+11, FISCAL+1~, FISCAL+3*, FISCAL+7, QRTRALL+2~, QRTRALL+3*, QRTRALL+7, MQ+2~, MQ+3*, MQ+13
DGDIRB STATUS+4~, STATUS+7*, STATUS+10, DATEBEG+1~, DATEBEG+4*, DATEBEG+8, DATEEND+1~, DATEEND+4*, DATEEND+8, ANSWER~
, ANSWER+12, FISCAL+1~, FISCAL+4*, FISCAL+7, QRTRALL+2~, QRTRALL+4*, QRTRALL+7, MQ+2~, MQ+4*, MQ+13
DGDIRH STATUS+4~, STATUS+8*, STATUS+10, DATEBEG+1~, DATEBEG+5*, DATEBEG+8, DATEEND+1~, DATEEND+5*, DATEEND+8, ANSWER~
, ANSWER+13, FISCAL+1~, FISCAL+5*, FISCAL+7, QRTRALL+2~, QRTRALL+5*, QRTRALL+7, MQ+2~, MQ+5*, MQ+13
DGDIRO STATUS+4~, STATUS+9*, STATUS+10, DATEBEG+1~, DATEBEG+7*, DATEBEG+8, DATEEND+1~, DATEEND+7*, DATEEND+8, FISCAL+1~
, FISCAL+6*, FISCAL+7, QRTRALL+2~, QRTRALL+6*, QRTRALL+7, MQ+2~, MQ+12*, MQ+13
DGDTEND DATEEND+1~, DATEEND+6*, DATEEND+7
DGDTRNGE ENSTAT+11~, MSG+1*
DGFIRST ENSTAT+1~, ENSTAT+13*, ENSTAT+14
DGFYQ QRTRALL+2~, QRTRALL+8*, QRTRALL+9, MQ+2~
DGMAX MQ+2~, MQ+7*, MQ+9, FSCLYR+1~, FSCLYR+10*, FSCLYR+11
DGMIN MQ+2~, MQ+6*, MQ+9, FSCLYR+1~, FSCLYR+9*, FSCLYR+11
DGMON MQ+2~, DTRANGE+4*, DTRANGE+5*, DTRANGE+6*, DTRANGE+7, DTRANGE+8, CALRNGE+2*, CALRNGE+3*, CALRNGE+5*, CALRNGE+6*
, CALRNGE+7*, CALRNGE+8
DGMON( MQ+11*, MQ+15, MQ+16, MQ+18
DGMON(1 MQ+12
DGMON(2 MQ+12
DGMON(3 MQ+12
DGQMON ENSTAT+10~, ENSTAT+34, ENSTAT+36*, ENSTAT+37
DGRRDT MONTH~, MONTH+3*, MONTH+4, FY~, FY+5*, FY+6
DGRRMND MONTH+2~, MONTH+5*, MONTH+6
DGRRMST MONTH+2~, MONTH+4*, MONTH+5, MONTH+6
DGRRND FY+4~, FY+7*, FY+8
DGRRST FY+4~, FY+6*, FY+7, FY+8
DGSEL REPORT1+15~, HELP~, HELP+5, HELP+6, HELP+7, HELP+10, HELP+13, HELP+21
DGSORT REPORT1+16~, REPORT1+38!, ENSTAT+2~, ENSTAT+36, MQ~, DTRANGE+13, CALRNGE~, FSCLYR+12, MSG~
DGSORT("DGBEG" DATEBEG+9*, DATEEND+6, DTRANGE+7*, DTRANGE+11*, FSCLYR+2*, MSG+1, MSG+2
DGSORT("DGEND" DATEEND+9*, DTRANGE+8*, DTRANGE+12*, FSCLYR+3*, MSG+1, MSG+2
DGSORT("DGFSCL" ENSTAT+29, ENSTAT+32, FISCAL+9*, DTRANGE+4, DTRANGE+11, DTRANGE+12, CALRNGE+2, CALRNGE+5, FSCLYR+2, FSCLYR+3
DGSORT("DGMON" MQ+15*, MQ+16*, MQ+18*, DTRANGE+3, DTRANGE+5, CALRNGE+1, CALRNGE+3, CALRNGE+4, CALRNGE+6, FSCLYR+5*
, FSCLYR+11*
DGSORT("DGQTR" ENSTAT+34, ENSTAT+41, QRTRALL+9*, DTRANGE+4, DTRANGE+11, DTRANGE+12, CALRNGE+2, FSCLYR+5, FSCLYR+7!, FSCLYR+8*
DGSORT("DGSRTBY" REPORT1+60*, SORTBY+17*
DGSORT("DGSTATUS" REPORT1+59, REPORT1+60, STATUS+11*
DGSORT("DIVISION" REPORT1+51, REPORT1+52
DGSORT("REPORT" REPORT1+52*, REPORT1+58*, SORTBY+7
DIR SORTBY+15!, ANSWER+9~
DIR("?" SORTBY+14*, ANSWER+13*
DIR("??" SORTBY+14*, ANSWER+13*
DIR("A" SORTBY+6*, SORTBY+7*, SORTBY+8*, SORTBY+9*, SORTBY+10*, SORTBY+11*, SORTBY+12*, SORTBY+13*, ANSWER+11*
DIR("B" ANSWER+12*
DIR(0 SORTBY+5*, ANSWER+10*
DIROUT ANSWER+9~, ANSWER+15, ANSWER+17
DIRUT ANSWER+9~
DT DATEBEG+6, DATEBEG+7, DATEEND+7, MONTH+3, FY+5
DTOUT ANSWER+9~, ANSWER+15, ANSWER+17
DUOUT ANSWER+9~, ANSWER+15, ANSWER+17
I MQ+2~, MQ+9*, MQ+11, MQ+18*, DTRANGE+2~, FSCLYR+1~, FSCLYR+6*, FSCLYR+8, FSCLYR+11
II FSCLYR+1~, FSCLYR+11*
IOF REPORT1+29, ENSTAT+18
M CALRNGE~, CALRNGE+3, CALRNGE+6
Q CALRNGE~, CALRNGE+5, CALRNGE+6
U REPORT1+58, REPORT1+59, REPORT1+60, STATUS+11, SORTBY+7, SORTBY+17, ANSWER+16, ANSWER+18, ENSTAT+34, ENSTAT+41
, QRTRALL+9, MQ+11, MQ+12, MQ+15, MQ+16, MQ+18, DTRANGE+3, DTRANGE+4, DTRANGE+5, DTRANGE+7
, DTRANGE+8, DTRANGE+11, DTRANGE+12, CALRNGE+1, CALRNGE+2, CALRNGE+3, CALRNGE+4, CALRNGE+6, FSCLYR+11, MONTH+6
, FY+8
VAUTD REPORT1+24~, REPORT1+38!
X REPORT1+65*, REPORT1+66, ANSWER+9~, ANSWER+16, ANSWER+18, HELP+5, HELP+6~*, HELP+22, ENSTAT+45*, ENSTAT+46
, FISCAL+1~, FISCAL+8*
Y REPORT1+24~, SORTBY+16, ANSWER+9~, ANSWER+16, ANSWER+18
Z ANSWER+9~, ANSWER+15*, ANSWER+16*
ZTDESC REPORT1+18~, ENSTAT+4~
ZTQUEUED REPORT1+19~, ENSTAT+5~
ZTREQ REPORT1+20~, ENSTAT+6~
ZTRTN REPORT1+22~, ENSTAT+8~
ZTSAVE REPORT1+17~, REPORT1+66, ENSTAT+3~, ENSTAT+46
ZTSAVE("DGSORT(" REPORT1+64*, ENSTAT+44*
ZTSK REPORT1+23~, ENSTAT+9~
ZTSTOP REPORT1+21~, ENSTAT+7~

Marked Items

Name Field # of Occurrence
$T(DATES+$PIECE^2;4(6) MQ+6, MQ+7, DTRANGE+11, DTRANGE+12, FSCLYR+9, FSCLYR+10
$T(DATES+1 FSCLYR+2
$T(DATES+4 FSCLYR+3
$T(MONAME+II^DGOTHRP3 FSCLYR+11
$T(MONAME+I^DGOTHRP3 MQ+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All