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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGOTHRP5

Package: Registration

Routine: DGOTHRP5


Information

DGOTHRP5 ;SLC/RED,RM - OTHD (OTHER THAN HONORABLE DISCHARGE) Reports ;April 03,2019@10:16

Source Information

Source file <DGOTHRP5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from Menu Option: DGOTH OTH-90 STATUS REPORTS
DQ ;
APPROV ;Approved authorizations
CHECKOE() ;check if there any Outpatient Encounter entry for this patient
BUILD ;Build data either by Division or Facility
PEND ; Pending Requests
DENIED ;Denied requests
HDR ; Print page header
PRINT ;Print out results
DVISION ;
PRINT1 ;Print out results
DTFRMTO(PROMPT)
INDT ;
TODT
SELECT(PROMPT,SET) ; prompts for a report type
OUT ; KILL RETURN ARRAY QUIT
HELP(DGSEL) ;OTH-90 Authorization Report help text
TEXT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(">>> No OTH-90 records have been found. <<<",80)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"OTH 90-DAY PERIOD AUTHORIZATION REPORT"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"This option generates a report that prints a listing of OTH-90 patients who"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !,"have an Outpatient Encounter with STATUS=CHECKED OUT for Clinic(s) associated"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,"with the selected Division(s) within the user-specified date range in which"
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,"their 90-Day period of care has been APPROVED, PENDING or DENIED."
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,"Please select divisions to include in the report"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?15,"Other Than Honorable '",$S(DGRTYP="APPROV":"APPROVED",DGRTYP="PEND":"PENDING",1:"DENIED"),"' Authorizations",?70,"Page: ",PAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?15,"Selected date range: ",$$FMTE^XLFDT(DGDTFRM,"5Z")," to ",$$FMTE^XLFDT(DGDTTO,"5Z"),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Facility: "_$P(HERE,U,2),?51,"Sorted By: ",$P(DGSORT("REPORT"),U,2),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Name",?23,"PID",?30,"Date Req.",?42,"Date Auth.",?54,"90-Day",?66,"Authorized By"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?30,"Submitted",?42,"Received",?54,"Start DT",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Name",?33,"PID",?41,"Pending Auth.",?58,"# of Days Auth.",!,?41,"Request Date",?58,"is Pending",!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"Name",?24,"PID",?31,"Date Request",?45,"Authorization Comment",!,?31,"Submitted",!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !!," >>> No records were found using the report criteria.",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !," >>> No records were found for this Division.",!!
  • Line Location: PRINT+13
Function Call: READ
  • Formatting: !!?8
  • Prompt: "End of the Report...Press Enter to Continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: "Division: ",DGSORT("DIVISION",DGOEIEN,DGFAC)_" ("_DGFAC_")",!
  • Line Location: DVISION+1
Function Call: WRITE
  • Prompt: !,$E(NAME,1,22),?23,$P(@DGRET@(DGFAC,NAME,DGPER),U,2)
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: !,$E(NAME,1,22),?23,$P(@DGRET@(DGFAC,NAME,DGPER),U,2)
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: ?30,$P(@DGRET@(DGFAC,NAME,DGPER),U,3),?42,$P(@DGRET@(DGFAC,NAME,DGPER),U,4),?54,$P(@DGRET@(DGFAC,NAME,DGPER),U,5)
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: ?66,$E($P(@DGRET@(DGFAC,NAME,DGPER),U,6),1,14),!
  • Line Location: PRINT1+18
Function Call: WRITE
  • Prompt: !,$E(NAME,1,30),?33,$P(@DGRET@(DGFAC,NAME),U,2),?41,$P(@DGRET@(DGFAC,NAME),U,3),?60,$J($P(@DGRET@(DGFAC,NAME),U,4),5)
  • Line Location: PRINT1+27
Function Call: WRITE
  • Prompt: !,$E(NAME,1,22),?24,$P(@DGRET@(DGFAC,NAME,SEQ),U,2)
  • Line Location: PRINT1+38
Function Call: WRITE
  • Prompt: ?31,$P(@DGRET@(DGFAC,NAME,SEQ),U,3),?45,$E($P(@DGRET@(DGFAC,NAME,SEQ),U,4),1,35),!
  • Line Location: PRINT1+39
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+42
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+43
Function Call: WRITE
  • Prompt: !
  • Line Location: INDT+4
Function Call: WRITE
  • Prompt: !!,"Future dates are not allowed, please re-enter"
  • Line Location: INDT+6
Function Call: WRITE
  • Prompt: !!,"No Date selected, quitting. ",!!
  • Line Location: TODT+3
Function Call: WRITE
  • Prompt: !!,"Ending date must be greater than or equal to the start date",!!
  • Line Location: TODT+4
Function Call: WRITE
  • Prompt: !," Please ENTER:",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," 1 = That have been 'APPROVED' for an additional 90-Day"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !," period of care."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," 2 = Whose request for an additional 90-Day period of"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," care is waiting to be approved or denied."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," 3 = Whose request for an additional 90-Day period of"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," care has been DENIED."
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," If you wish to print a list(s) of OTH-90 MH Care"
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: !," patient who have an Outpatient Encounter with"
  • Line Location: TEXT+2
Function Call: WRITE
  • Prompt: !," STATUS=CHECKED OUT for selected Division within"
  • Line Location: TEXT+3
Function Call: WRITE
  • Prompt: !," the user-specified date range.",!
  • Line Location: TEXT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGOTH(33 - [#33] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call