Routine: SDMHPRO1

Information

SDMHPRO1 ;MAF/ALB - MENTAL HEALTH PROACTIVE HIGH RISK REPORT (BGJ CONT.);AUGUST 31, 2010

Package	Total	Call Graph
Scheduling	3	$$SDAPI^SDAMA301 (COUNT,HEAD,HEAD1,TOTAL)^SDMHPRO $$SETSTR^SDUL1
Kernel	1	$$FMTE^XLFDT
Registration	1	PID^VADPT6
Toolkit	1	$$GET^XPAR
VA FileMan	1	C^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SDMHAP SDMHPRO

Entry Points

Name	Comments	DBIA/ICR reference
DATA	; Set up the data for the patient ; piece 1 = dfn ; piece 2 = Appointment Date and time ; piece 3 = status N(Noshow) or NA (Noshow with auto rebook) ; piece 4 = PID last 4 of SSN ; piece 5 = clinic ien ^SC( ; piece 6 = stop code ien ^DIC(40.7 ;
EN	;PRINT OF THE ^TMP
PRT	;Print report
SETSTR(W,X,Y,Z)	;SET UP THE STRING
SET1(X)	;Sets the XMTEXT global
SET	;
FUT	; FUTURE SCHEDULED APPTS.
PID(DFN)	; Return PID ; INPUT - DFN ; OUTPUT - PID or 'UNKNOWN'

External References

Name	Field # of Occurrence
C^%DTC	FUT+5
$$SDAPI^SDAMA301	FUT+11
COUNT^SDMHPRO	PRT+2
HEAD^SDMHPRO	PRT+3
HEAD1^SDMHPRO	PRT+4, PRT+16
TOTAL^SDMHPRO	EN+4
$$SETSTR^SDUL1	SETSTR+5
PID^VADPT6	PID+4
$$FMTE^XLFDT	PRT+17, FUT+18
$$GET^XPAR	FUT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	FUT+19
^DIC(40.7 - [#40.7]	PRT+14
^DPT - [#2]	PRT+19
^DPT("B"	EN+17
^SC - [#44]	FUT+19
^TMP(	EN+4, EN+6, EN+10, EN+12, EN+14, EN+16, EN+17, PRT+8
^TMP("SDMHP"	SET1+1*
^TMP("SDPRO1"	SET+1*
^TMP($J	FUT+16, FUT+18, FUT+30!

Label References

Name	Line Occurrences
$$SETSTR	EN+8, EN+18, PRT+4, PRT+19, FUT+20, FUT+21, FUT+23, FUT+28
FUT	PRT+20
PRT	EN+17
SET	PRT+18
SET1	EN+8, EN+18, PRT+4, FUT+22, FUT+23, FUT+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	PID~
DT	FUT+5, FUT+6
>> NAMSPC1	EN+4, EN+6, EN+10, EN+12, EN+14, EN+16, EN+17, PRT+8
SDARRAY	FUT+1~, FUT+11
SDARRAY("FLDS"	FUT+10*
SDARRAY("SORT"	FUT+7*
SDARRAY(1	FUT+6*
SDARRAY(3	FUT+8*
SDARRAY(4	FUT+9*
SDATE	EN+1~, EN+11, EN+12, EN+14, EN+16, EN+17, PRT+8
SDCLCD	FUT+19~*
SDCOUNT	EN+1~, EN+2, EN+7, PRT+19, FUT+1~, FUT+11, FUT+12, FUT+25
SDDSS	PRT+5~, PRT+14*
SDFA	FUT+15~, FUT+16*, FUT+18
SDFNODE	FUT+15~, FUT+18*, FUT+19, FUT+20, FUT+21
SDFUTDT	FUT+15~, FUT+18*, FUT+20, FUT+21
>> SDLN	SET1+1, SET+1
SDPAT	EN+3!
SDPAT(	EN+17, PRT+15*
SDPRODAY	FUT+1~, FUT+2, FUT+3, FUT+5, FUT+27
>> SDTL	EN+8, PRT+6, PRT+7
>> SDUP	EN+6, EN+10, EN+12, EN+14, EN+16, FUT+12
SDX	EN+8~, EN+18~, PRT+1~, PRT+4, PRT+5~, FUT+1~, FUT+5, FUT+6, FUT+14, FUT+17 , FUT+20, FUT+21, FUT+22, FUT+23~, FUT+26, FUT+27, FUT+28
SDXCLIEN	PRT+5~, PRT+13*
SDXCLIN	EN+1~, EN+13, EN+14, EN+16, EN+17, PRT+3, PRT+6, PRT+7, PRT+8
SDXDFN	EN+1~, EN+2, PRT+9, PRT+15, PRT+19, FUT+9, FUT+16, FUT+18
SDXDIV	EN+1~, EN+5, EN+6, EN+10, EN+12, EN+14, EN+16, EN+17, PRT+3, PRT+4 , PRT+8, PRT+15, PRT+16, PRT+19, FUT+19
SDXDT	PRT+5~, PRT+11, PRT+17
>> SDXFLG(	PRT+3, PRT+4, PRT+16*
SDXID	PRT+5~, PRT+10*, PRT+19
SDXNM	EN+1~, EN+9, EN+10, EN+12, EN+14, EN+16, EN+17, PRT+8
SDXNODE	PRT+5~, PRT+8*, PRT+9, PRT+10, PRT+11, PRT+12, PRT+13, PRT+14
SDXREM	EN+1~, EN+2*, PRT+6
SDXSORT1	PRT+5~, PRT+6*
SDXSORT2	PRT+5~, PRT+7*
SDXSTAT	PRT+5~, PRT+12*
SDXSTOP	EN+1~, EN+15, EN+16, EN+17, PRT+6, PRT+7, PRT+8
SDXX	PRT+1~, PRT+19*, FUT+20, FUT+21!
>> TOTAL(	PRT+19
VA	PID+3~
VA("BID"	PID+5
W	SETSTR~, SETSTR+5
X	EN+8, EN+18, PRT+4, PRT+19, SETSTR~, SETSTR+5, SETSTR+6, SET1~, SET1+1, SET+1 , FUT+1~, FUT+5, FUT+14, FUT+17, FUT+20, FUT+21, FUT+23, FUT+26*, FUT+28
X1	FUT+1~, FUT+5*
X2	FUT+1~, FUT+5*
Y	SETSTR~, SETSTR+5
Z	SETSTR~, SETSTR+5

Customize PDF page

Package: Scheduling