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

Package: Registration

Routine: DGOTHRP1


Information

DGOTHRP1 ;SLC/RED,RM - OTHD (OTHER THAN HONORABLE DISCHARGE) Reports ;May 9,2018@05:08

Source Information

Source file <DGOTHRP1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; CALLED BY - DG OTH MH STATUS REPORT - menu option
STATUS() ;prompt for OTH MH status report type that user wish to print
STAT2() ;
DATEBEG() ;prompt for beginning date
DATEEND() ;prompt for ending date
SELDIV() ;prompt for DIVISION
GETDIV(X) ;get division for one or many but not all
SORTRPT() ;prompt user how the report will be sorted
STAT ; Entry point if Queued
BUILD ;
BYDIV ;Build data for report display by DIVISION
BYFAC ;Build data for report display by FACILITY
CHKDATE(DGPEDT,DGSORT) ;
DSPLY1 ;Print/Display Report
DSPLY2(SUB1) ;
PRNTDIV ;Print/Display Report by Division
DIVHDR(NXTPGE) ;Display Division header
DIVHDR1(RPTSRT) ;
PRNTFAC ;Print/Display Report by Facility
PRTHDR ;Print/Display Page Header
EXIT ;
HELP(DGSEL) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"OTHER THAN HONORABLE MH STATUS REPORT",!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"This option generates a report that displays a list(s) of Patients who had"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"EXPANDED MH CARE NON-ENROLLEE primary eligibility assigned, changed from"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"being EXPANDED MH CARE NON-ENROLLEE who have an Outpatient Encounter with"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"with STATUS=CHECKED OUT for Clinic(s) associated with the selected Division(s)"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"within the user-specified date range.",!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(">>> No OTH-90 Records have been found. <<<",80)
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !,"Please select divisions to include in the report"
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: !!," A date is required. Enter '^' to exit.",!
  • Line Location: DATEBEG+10
Function Call: WRITE
  • Prompt: !!," Ending date must be after beginning date",!
  • Line Location: DATEEND+10
Function Call: WRITE
  • Prompt: !!,*7,"***WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",!
  • Line Location: SELDIV+3
Function Call: WRITE
  • Prompt: !!," Report Sort is required. Enter '^' to exit."
  • Line Location: SORTRPT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY1+22
Function Call: WRITE
  • Prompt: !,"<END OF REPORT>"
  • Line Location: DSPLY1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY2+7
Function Call: WRITE
  • Prompt: ?29,$$FMTE^XLFDT($P(DGSTR,U,3),"5Z"),?41,$P(DGSTR,U,4),?51,$E($P(DGSTR,U,5),1,28),!
  • Line Location: PRNTDIV+8
Function Call: WRITE
  • Prompt: "Division: ",$P(@DGOUT@(SUB1,SUB2,SUB3),U)," (",SUB1,")",!
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: $E(SUB1,1,20),?22,$P(DGSTR,U,2)
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: !,$S(RPTSRT=1:$E(SUB2,1,20),1:$E(SUB1,1,20)),?22,$P(DGSTR,U,2)
  • Line Location: DIVHDR1+1
Function Call: WRITE
  • Prompt: ?29,$$FMTE^XLFDT($P(DGSTR,U,3),"5Z"),?41,$P(DGSTR,U,4),?51,$E($P(DGSTR,U,5),1,28),!
  • Line Location: PRNTFAC+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDR+3
Function Call: WRITE
  • Prompt: !,?80-$L(ZTDESC)\2,$G(ZTDESC),?71,"Page:",?77,DGPAGE
  • Line Location: PRTHDR+6
Function Call: WRITE
  • Prompt: !,?80-$L(DGFACLTY)\2,DGFACLTY
  • Line Location: PRTHDR+7
Function Call: WRITE
  • Prompt: !,"Status :",?12,$P($G(DGSORT("OTHSTAT")),U,2),?46,"Sorted By: ",?58,$P($G(DGSORT("REPORT")),U,2)
  • Line Location: PRTHDR+8
Function Call: WRITE
  • Prompt: !,"Date Range:",?12,$$FMTE^XLFDT(DGSORT("DGBEG"),"5Z")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5Z")
  • Line Location: PRTHDR+9
Function Call: WRITE
  • Prompt: ?46,"Printed :",?58,$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: PRTHDR+10
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: PRTHDR+11
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"PID",?29,"OTH MH PE",?41,"OTH MH",?51,"Eligibility"
  • Line Location: PRTHDR+12
Function Call: WRITE
  • Prompt: !,?29,"Change DT",?41,"Status",?59
  • Line Location: PRTHDR+13
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: PRTHDR+14
Function Call: WRITE
  • Prompt: !," Not a valid date."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," Please Enter:",!
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," 1 Activated OTH MH Status"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," If you wish to display a list(s) of patients whose Primary Eligibility"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," was SET TO EXPANDED MH CARE NON-ENROLLEE during selected timeframe,"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !," treated in selected division(s))"
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !," "
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !," 2 Inactivated OTH MH Status"
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !," If you wish to display a list(s) of patients whose Primary Eligibility"
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !," was CHANGED FROM being EXPANDED MH CARE NON-ENROLLEE during selected"
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !," timeframe, treated in selected division(s))."
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !," "
  • Line Location: HELP+17
Function Call: WRITE
  • Prompt: !," 3 Both"
  • Line Location: HELP+18
Function Call: WRITE
  • Prompt: !," If you wish to display a list(s) of patients whose Primary Eligibility"
  • Line Location: HELP+19
Function Call: WRITE
  • Prompt: !," was either set to EXPANDED MH CARE NON-ENROLLEE or changed from being"
  • Line Location: HELP+20
Function Call: WRITE
  • Prompt: !," EXPANDED MH CARE NON-ENROLLEE during selected timeframe, treated in"
  • Line Location: HELP+21
Function Call: WRITE
  • Prompt: !," selected division(s)."
  • Line Location: HELP+22
Function Call: WRITE
  • Prompt: !," Start Date is today's date, T-(number of days) or a specific date "
  • Line Location: HELP+24
Function Call: WRITE
  • Prompt: !," from the past.",!," Start date cannot be a future date."
  • Line Location: HELP+25
Function Call: WRITE
  • Prompt: !," End date must be greater than or equal to the start date."
  • Line Location: HELP+26
Function Call: WRITE
  • Prompt: !," Please Enter:",!
  • Line Location: HELP+28
Function Call: WRITE
  • Prompt: !," 1 Divisions"
  • Line Location: HELP+29
Function Call: WRITE
  • Prompt: !," Report output is sorted by Division, sorted first numerically,"
  • Line Location: HELP+30
Function Call: WRITE
  • Prompt: !," then alphabetically, then by Patient Name."
  • Line Location: HELP+31
Function Call: WRITE
  • Prompt: !," "
  • Line Location: HELP+32
Function Call: WRITE
  • Prompt: !," 2 Facility"
  • Line Location: HELP+33
Function Call: WRITE
  • Prompt: !," Report output will display list(s) of patients treated in the Facility"
  • Line Location: HELP+34
Function Call: WRITE
  • Prompt: !," or any Divisions, during selected range, then sorted by Patient Name."
  • Line Location: HELP+35

FileMan Files Accessed Via FileMan Db Call

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