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

Package: Scheduling

Routine: SDMHAP


Information

SDMHAP ;MAF/ALB - MENTAL HEALTH AD HOC PROACTIVE HIGH RISK REPORT;JULY 14, 2010

Source Information

Source file <SDMHAP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for the manual generation of the Proactive Report
SORT ;sort is by clinic
START ;
PROCESS ;find patients in date range that have scheduled appt for a clinic in the date range.
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 patient record 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) ;INITIALIZE total(DIV,CLIN/STOP)
CLIN ;select clinics
PID(DFN) ; Return PID
; INPUT - DFN
; OUTPUT - PID or 'UNKNOWN'
RANGE1(SDBEG,SDEND,SDAMETH) ; -- select range
RANGEQ
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 Proactive Report
END ;NO RECORDS
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"This output requires 80 column output",!
  • Line Location: SORT+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+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "HIGH RISK MENTAL HEALTH PROACTIVE 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":"MENTAL HEALTH",SDTL="STOP":"STOP CODE",1:"CLINIC")_" 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: !!,"#",?4,"PATIENT",?25,"PT ID",?32,"APPT D/T",?49,"CLINIC"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,$$LINE(""),!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!,$$LINE(" High Risk Mental Health Proactive 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: !!,"Sort the report by:",!,?20,"A All clinics",!,?20,"M Mental Health clinics only",!
  • Line Location: CLIN+1
Function Call: READ
  • Formatting: !
  • Prompt: "Sort by: (A)ll clinics A//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: CLIN+2
Function Call: WRITE
  • Prompt: !,"Enter a 'A' for All clinics or 'M' for Mental Health clinics only"
  • Line Location: CLIN+2
Function Call: WRITE
  • Prompt: !!,$$LINE1(">>>>>> NO RECORDS FOUND <<<<<<")
  • Line Location: END+2

FileMan Files Accessed Via FileMan Db Call

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