Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Registration 5 $$GETINF^DGPFAPIH  $$GETFLAG^DGPFAPIU  CLOSE^DGUTQ  PID^VADPT6  FIRST^VAUTOMA  
Scheduling 5 $$RANGE^SDAMQ  ASK2^SDDIV  ^SDMHAD1  HEAD^SDMHNS  (,$$SETSTR,SET1)^SDMHNS1  
Kernel 3 ^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 NOW^%DTC  WAIT^DICD  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 3 SD MH NO SHOW AD HOC REPORT  SDMHAD1  SDMHNS  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC FUTNUM+4
^%ZIS FUTNUM+5
^%ZTLOAD FUTNUM+5
$$GETINF^DGPFAPIH ACT+3, ACT+4
$$GETFLAG^DGPFAPIU PROCESS+4, PROCESS+6
CLOSE^DGUTQ QUIT+2
WAIT^DICD START+2
$$RANGE^SDAMQ RANGE+2
ASK2^SDDIV DIV+1
^SDMHAD1 BGJ+4
HEAD^SDMHNS BGJ+1
^SDMHNS1 BGJ+2
$$SETSTR^SDMHNS1 START+10, START+11, LIST+3, LIST+4, LIST+5
SET1^SDMHNS1 START+10, START+11, LIST+3, LIST+4, LIST+5
PID^VADPT6 PID+4
FIRST^VAUTOMA CL1+5, ST1+4, STOP1+1
$$FMTE^XLFDT FUTNUM+4, HEAD+3
$$GET^XPAR PROCESS+3

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
  • Prompt: "Select Number of days to List Future Appointments: 30//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Select: (A)ll clinics A//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Select: (A)ll Stop Codes A//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • FUTNUM+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" START+7
^DG(40.8 - [#40.8] START+22, PROCESS+19, CHK+12, CHK+13
^DIC(40.7 - [#40.7] PROCESS+21, CHK+16, CHK+17, PXRMD+6
^DPT - [#2] PROCESS+15, PROCESS+22
^PXRMD(810.9 - [#810.9] START+25, PROCESS+25, LIST, MEN1, MEN1+2, PXRMD+3
^SC - [#44] START+23, START+24, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+20, CHK+14, CHK+15, PXRMD+5, PXRMD+8
^SC("AST" PXRMD+5, PXRMD+7
^TMP( START+16!, START+27, PROCESS+7, PROCESS+8, PROCESS+23*, PROCESS+24*, PROCESS+25*, BGJ+1, BGJ+3, CHK+18*
, HEAD1
^TMP("SDNS" QUIT+1!
^TMP("SDNSHOW" QUIT+1!

Label References

Name Line Occurrences
$$DIV EN+3
$$LINE HEAD+7, RANGE+1
$$LINE1 END+2
$$NAMSPC START+14
$$NAMSPC1 START+15
$$PID PROCESS+23, PROCESS+24, PROCESS+25
$$RANGE EN+2
@( SORT+8, START+28
ACT PROCESS+15
CHK START+24, START+26
CL1 CL1
END BGJ+3
FUTNUM FUTNUM+2
HEAD END+1
LIST SORT+7, START+13
PXRMD START+19, START+20
QUIT EN+2, EN+3, SORT, SORT+8, FUTNUM+1, FUTNUM+5, START+29
SORT SORT+1
ST1 ST1
TOTAL PROCESS+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, FUTNUM+4
%DT QUIT!
%ZIS EN+1~, FUTNUM+5*
%ZIS("A" FUTNUM+5*
%ZIS("B" FUTNUM+5*
ACT PROCESS+9~
CLST TOTAL~, TOTAL+1, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7
DFN PROCESS+9~, PROCESS+10*, PROCESS+13*, PROCESS+15, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, ACT+3, ACT+4
, TOTAL+7, PID~
DIC CL1+2~, CL1+3*, STOP~, ST1+2*, STOP1~, STOP1+1*
DIC("S" CL1+4*, ST1+3*, STOP1+1*
DIR QUIT!
DIV TOTAL~, TOTAL+1, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7
DTIME SORT, FUTNUM+1, CL1, ST1
IO("Q" FUTNUM+5!
IOF SORT+1, HEAD+1
IOM FUTNUM+5*, LINE+2*, LINE+4, LINE1+2*, LINE1+4
IOST START+2
K CL1+2~, STOP~, STOP1~
NAMSPC START+6~, START+14*, START+16, START+27, PROCESS+7, PROCESS+8, CHK+18
NAMSPC1 START+6~, START+15*, START+16, PROCESS+23, PROCESS+24, PROCESS+25, BGJ+1, BGJ+3, HEAD1
PATNM PROCESS+16~, PROCESS+22*, PROCESS+23, PROCESS+24, PROCESS+25
POP FUTNUM+5, QUIT!
SDACT PROCESS+1~, PROCESS+15, ACT+3*, ACT+4*, ACT+5*
SDALL EN+1~, SORT+7*, START+20, CL1+1*, CL1+4, ST1+1*, ST1+3
SDBEG EN+1~, PROCESS+11, HEAD+3, RANGE+2
SDC PROCESS+1~, PROCESS+2*, PROCESS+7*, PROCESS+8, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+20, PROCESS+23, PROCESS+24
, PROCESS+25
SDCFL PXRMD+1~, PXRMD+8*, PXRMD+10
SDCL START+6~, START+17*, START+23*, START+24, START+26*, CHK+7, CHK+8, CHK+14, CHK+15, CHK+18
SDCLNM PROCESS+16~, PROCESS+20*, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, CHK+1~, CHK+15*, CHK+18
SDCNTT TOTAL+2~*
SDDAT EN+1~, FUTNUM+4*, HEAD+3
SDDIV START+6~, START+22*, START+24*, START+26*, CHK+4, CHK+5, CHK+12, CHK+13, CHK+18, QUIT!
SDDIVNM PROCESS+16~, PROCESS+19*, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, CHK+1~, CHK+13*, CHK+18
SDDT PROCESS+9~, PROCESS+10*, PROCESS+11*, PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+23, PROCESS+24, PROCESS+25, ACT+2
SDDTNT ACT+1~, ACT+2*, ACT+3, ACT+4
SDEND EN+1~, PROCESS+11, HEAD+3, RANGE+2
SDFL CL1+5*, STOP~, STOP1~, MEN1+2*
SDFLG CHK+1~, CHK+2*, CHK+3, CHK+4*, CHK+5*, CHK+6, CHK+7*, CHK+8*, CHK+9, CHK+10*
, CHK+11*
SDFUTNUM FUTNUM~, FUTNUM+1*
SDHEAD2 HEAD1+1~, HEAD1+2*, HEAD1+3*, HEAD1+4
SDHFL PROCESS+1~
SDI PXRMD+1~, PXRMD+5~*, PXRMD+7~*, PXRMD+8
SDIV PROCESS+1~, PROCESS+2*, PROCESS+7*, PROCESS+8, PROCESS+19
SDLINE START+6~, START+27*, START+28
SDMHFLG PROCESS+1~, PROCESS+3*, PROCESS+4
SDMHFLG("L" PROCESS+4*, ACT+3
SDMHFLG("N" PROCESS+6*, ACT+4
SDMHNFLG PROCESS+1~, PROCESS+5*, PROCESS+6
SDNUM PROCESS+9~, PROCESS+10*, PROCESS+11*, PROCESS+12, PROCESS+13
SDNUM1 PROCESS+9~, PROCESS+10*, PROCESS+11*, PROCESS+12, PROCESS+13
SDPAG START+6~, START+17*, HEAD+2*
SDPAT START+6~
SDPAT( TOTAL+7*
SDR PROCESS+1~, PROCESS+2*, PROCESS+8*, PROCESS+25
SDRLL START+6~, START+17*, START+25*, CHK+18
SDRR PROCESS+9~, PROCESS+25*
SDS PROCESS+1~, PROCESS+2*, PROCESS+7*, PROCESS+8, PROCESS+21, PROCESS+23, PROCESS+24, PROCESS+25
SDSC START+6~, START+17*, START+24*, START+26*, CHK+10, CHK+11, CHK+16, CHK+17, CHK+18
SDSCNM PROCESS+16~, PROCESS+21*, PROCESS+24, CHK+1~, CHK+17*, CHK+18
SDSFL PXRMD+1~, PXRMD+6*, PXRMD+9
SDSTAT PROCESS+9~, PROCESS+10*, PROCESS+15*, PROCESS+17*, PROCESS+18, PROCESS+23, PROCESS+24, PROCESS+25, TOTAL+6
SDSTOP START+6~
SDSTOP( PXRMD+4*
SDTBEG QUIT!
SDTEND QUIT!
SDTL EN+1~, SORT+6*, SORT+7, SORT+8, START+23, START+25, PROCESS+8, PROCESS+23, PROCESS+24, PROCESS+25
, HEAD+3, HEAD1+2, HEAD1+3, MEN1+1, PXRMD+5
>> SDTOTPG HEAD+4, HEAD+5, HEAD+6, HEAD1
SDUP EN+1~, PROCESS+1~, PROCESS+2*, PROCESS+7, PROCESS+11, PROCESS+15
SDX START+9~*, START+10*, START+11*, START+12*, LIST+2~*, LIST+3*, LIST+4*, LIST+5*, LIST+6*, PXRMD+1~
, PXRMD+3*
>> SDXCLIN HEAD1+2, HEAD1+3
>> SDXDIV HEAD1+2, HEAD1+3
SDXFLG EN+1~, START+2, START+8, START+18, START+19, BGJ, LIST+1
>> SDXSTOP HEAD1+2
>> SDXSTOPN HEAD1+3
SDY PXRMD+1~, PXRMD+2*, PXRMD+3*, PXRMD+4, PXRMD+5, PXRMD+6, PXRMD+7
SDZERO PROCESS+16~
STR LINE~, LINE+3*, LINE+4, LINE+5, LINE1~, LINE1+3*, LINE1+4, LINE1+5
TOTAL START+6~
TOTAL( TOTAL+1, TOTAL+3*, TOTAL+4, TOTAL+5*, TOTAL+6*, TOTAL+7*
VA PID+3~
VA("BID" PID+5
VADAT EN+1~, QUIT!
VADATE EN+1~, QUIT!
VAUTCL START+18*, CHK+6, CHK+8, PXRMD+7, PXRMD+10*, QUIT!
VAUTCL( CHK+8, PXRMD+8*
VAUTD EN+1~, START+21, CHK+3, CHK+5, DIV+1!, DIV+2, QUIT!
VAUTD( START+22*, CHK+5
VAUTNI CL1+2~, CL1+5*, STOP~, ST1+4*, STOP1~, STOP1+1*
VAUTR MEN*, QUIT!
VAUTR( MEN1*
VAUTRR START+6~
VAUTRR( START+26, PXRMD+5*
VAUTSC CHK+9, CHK+11, PXRMD+6, PXRMD+9*, QUIT!
VAUTSC( CHK+11, PXRMD+6*
VAUTSTR CL1+2~, CL1+5*, STOP~, ST1+4*, STOP1~, STOP1+1*
VAUTVB CL1+2~, CL1+3*, STOP~, ST1+2*, STOP1~, STOP1+1*
X EN+1~, SORT*, SORT+1, SORT+6, FUTNUM+1*, FUTNUM+2, START+7~*, START+10, START+11, LIST~
, LIST+2*, LIST+3, LIST+4*, LIST+5*, LINE+1~, LINE+4*, LINE+5, LINE1+1~, LINE1+4*, LINE1+5
, TOTAL+6~*, CL1*, CL1+1, ST1*, ST1+1, MEN1~*, MEN1+2, QUIT!
Y EN+1~, SORT+7*, SORT+8, FUTNUM+4*, START+6~, START+13*, DIV+1, LIST+1*, LIST+7*, CL1*
, CL1+5, ST1*, MEN1+2, QUIT!
ZTRTN EN+1~, FUTNUM+5*
ZTSAVE EN+1~
ZTSAVE("SD*" FUTNUM+5*
ZTSAVE("VA*" FUTNUM+5*
ZTSK FUTNUM+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All