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

Package: Scheduling

Routine: SDMHAD


Information

SDMHAD ;MAF/ALB - MENTAL HEALTH AD HOC NO SHOW REPORT;JULY 14, 2010

Source Information

Source file <SDMHAD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for the manual generation of the No Show Report
SORT
FUTNUM
START ;
PROCESS ;find patients in date range that had a no show appt for a MH clinic.
BGJ
CHK ;Check to see if Division/Clinic/Stop have been selected & if Clinic and Stop code are a valid mental health pair.
ACT ;Make sure patient has active flag
HEAD ;Heading for the report
HEAD1
RANGE() ;Select Start and End date for report
DIV() ;Division selection for multidivisional facility
LIST
LINE(STR) ; Print display prompts
LINE1(STR) ; Print display prompts
TOTAL(DIV,CLST) ;INITIALIZE total(DIV,CLIN/STOP)
CLIN ;select clinics
CL1
STOP
ST1
STOP1
MEN
MEN1
PID(DFN) ; Return PID
; INPUT - DFN
; OUTPUT - PID or 'UNKNOWN'
NAMSPC() ; API returns the name space for this patch
NAMSPC1() ; API returns the name space for this patch
PXRMD ;Set up Reminder Location List valid Stop Codes for No Show Report
END ;NO RECORDS
QUIT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SORT+1
Function Call: WRITE
  • Prompt: !,"Enter: 'C' to run the report by clinics which will then prompt",!,?7,"to refine the list of clinics to use."
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: !,"Enter: 'S' to run the report by stop codes which will then prompt",!,?7,"to refine the list of stop codes to use.",!
  • Line Location: SORT+4
Function Call: READ
  • Formatting: !
  • Prompt: "Select Number of days to List Future Appointments: 30//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: FUTNUM+1
Function Call: WRITE
  • Prompt: !!,?10,"Enter a number of days from 1 to 90. Future scheduled appointments",!,?10,"for the patients will list that number of days in the future",!,?10,"on the No Show report.",!
  • Line Location: FUTNUM+2
Function Call: WRITE
  • Prompt: !!,*7,"This output requires 80 column output",!
  • Line Location: FUTNUM+3
Function Call: WRITE
  • Prompt: !!,"Patch DG*5.3*836 needs to be installed - ICR 4903.",!,"Routines required to run report. Aborting!",!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "HIGH RISK MENTAL HEALTH NO SHOW ADHOC REPORT BY",?70,"PAGE "
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: SDPAG,!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: $S(SDTL="MEN":"MH CLINICS",SDTL="STOP":"STOP CODES",1:"CLINICS")_" for Appointments "_$$FMTE^XLFDT(SDBEG,"2")_"-"_$$FMTE^XLFDT($P(SDEND,".",1),"2"),?56,"Run: "_SDDAT
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,"Totals Page"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!,"*STATUS: NS = No Show NA = No Show Auto Rebook NAT = No Action Taken"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!,"#",?4,"PATIENT",?25,"PT ID",?31,"APPT D/T",?49,"CLINIC/STATUS/PROVIDER"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,$$LINE(""),!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !!,$$LINE(" High Risk Mental Health NO SHOW Adhoc Report")
  • Line Location: RANGE+1
Function Call: WRITE
  • Prompt: !!!,"Reminder location List file is not current.",!,"Missing reminder location list 'VA-MH NO SHOW APPT CLINICS LL' in file 810.9.",!,"Report Aborting!",!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,"Clinic Selection:",!,?20,"A All clinics",!,?20,"M Mental Health clinics only",!
  • Line Location: CLIN+1
Function Call: READ
  • Formatting: !
  • Prompt: "Select: (A)ll clinics A//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: CL1+0
Function Call: WRITE
  • Prompt: !,?6,"Enter : 'A' for All clinics",!,?14,"'M' for Mental Health clinics only"
  • Line Location: CL1+0
Function Call: WRITE
  • Prompt: !!,"Stop Code Selection:",!,?20,"A All Stop Codes",!,?20,"M Mental Health Stop Codes only",!
  • Line Location: STOP+1
Function Call: READ
  • Formatting: !
  • Prompt: "Select: (A)ll Stop Codes A//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: ST1+0
Function Call: WRITE
  • Prompt: !,?6,"Enter: 'A' for All Stop Codes",!,?14,"'M' for Mental Health Stop Codes only"
  • Line Location: ST1+0
Function Call: WRITE
  • Prompt: !!,$$LINE1(">>>>>> NO RECORDS FOUND <<<<<<")
  • Line Location: END+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call