Routine: SDMHAD

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

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

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

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	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 DG5.3836 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
Routine Call	%ZIS Line Location: FUTNUM+5

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

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!

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!

Customize PDF page

Package: Scheduling

Routine: SDMHAD

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: