Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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"

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
Info |  Source |  Entry Points |  Interaction Calls