Routine: SDMHAD1

Information

SDMHAD1 ;MAF/ALB - MENTAL HEALTH AD HOC NO SHOW REPORT (CONT.; JULY 14, 2010

Source Information

Source file <SDMHAD1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Scheduling	3	$$SDAPI^SDAMA301 (HEAD,HEAD1)^SDMHAD (COUNT,TOTAL1)^SDMHNS
VA Fileman	3	C^%DTC ($$GET1,GETS)^DIQ ^DIR
Registration	2	(ADD,KVAR,OAD)^VADPT PID^VADPT6
Health Level Seven	1	$$HLPHONE^HLFNC
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SDMHAD SDMHNS

Entry Points

Name	Comments	DBIA/ICR reference
PID(DFN)	; Return PID ; INPUT - DFN ; OUTPUT - PID or 'UNKNOWN'
FUT	; FUTURE SCHEDULED APPTS.
B
NOK	; Next of Kin information
PROV	;Clinic Default Provider
MHTC	;Mental Health Treatment Coordinator
RESULTS	;Reminder information
EC	;display emergency contact information
PATINFO	;Patients home, cell and office phones
PRT	;Print report
SET	; 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 ;
RET	;
EN	;PRINT OF THE ^TMP
NOKFL

External References

Name	Field # of Occurrence
C^%DTC	FUT+3
$$GET1^DIQ	EC+31, EC+37
GETS^DIQ	PATINFO+8, NOK+4, EC+7
^DIR	RET+3
$$HLPHONE^HLFNC	PATINFO+11, PATINFO+12, PATINFO+13, NOK+25, NOK+26, NOK+30, NOK+31, EC+40, EC+41, EC+42 , EC+43
$$SDAPI^SDAMA301	FUT+9
HEAD^SDMHAD	EN+36, PRT+2, RET+6
HEAD1^SDMHAD	PRT+3, B
COUNT^SDMHNS	B+1
TOTAL1^SDMHNS	EN+36
ADD^VADPT	PATINFO+2
KVAR^VADPT	EC+44
OAD^VADPT	PATINFO+5, NOK+2, NOK+3, EC+5, EC+6
PID^VADPT6	PID+4
$$FMTE^XLFDT	B+15, FUT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PRT+3
Function Call: WRITE	Prompt: !! Line Location: B+0
Function Call: WRITE	Prompt: !!,SDCOUNT,?3,$P(^DPT(SDXDFN,0),"^",1),?23,SDXID,?33,SDXDT,?53,$E(SDXCLIN,1,15),?73,$E("*"_SDXSTAT,1,10),! Line Location: B+15
Function Call: WRITE	Prompt: !,?5,"Home: ",$$HLPHONE^HLFNC(SDPHON("HOME"),,) Line Location: PATINFO+11
Function Call: WRITE	Prompt: !,?5,"Work: ",$$HLPHONE^HLFNC(SDPHON("WORK"),,) Line Location: PATINFO+12
Function Call: WRITE	Prompt: !,?5,"Cell: ",$$HLPHONE^HLFNC(SDPHON("CELL"),,) Line Location: PATINFO+13
Function Call: WRITE	Prompt: ?7,"NOK: "_SDNOKNM Line Location: NOK+14
Function Call: WRITE	Prompt: ?45,"NOK2: "_SDNOKNM2 Line Location: NOK+15
Function Call: WRITE	Prompt: ?7,"Relation: "_SDNOKR Line Location: NOK+19
Function Call: WRITE	Prompt: ?45,"Relation: "_SDNOKR2 Line Location: NOK+20
Function Call: WRITE	Prompt: ?7,"Phone: "_$$HLPHONE^HLFNC(SDNOKPH,,) Line Location: NOK+25
Function Call: WRITE	Prompt: ?45,"Phone: "_$$HLPHONE^HLFNC(SDNOKPH2,,) Line Location: NOK+26
Function Call: WRITE	Prompt: ?7,"Work Phone: "_$$HLPHONE^HLFNC(SDNOKPO,,) Line Location: NOK+30
Function Call: WRITE	Prompt: ?45,"Work Phone: "_$$HLPHONE^HLFNC(SDNOKPO2,,) Line Location: NOK+31
Function Call: WRITE	Prompt: ! Line Location: NOK+32
Function Call: WRITE	Prompt: !!," Next of Kin:",! Line Location: NOKFL+0
Function Call: WRITE	Prompt: !,?5,"Emergency Contact:" Line Location: EC+12
Function Call: WRITE	Prompt: !?7,"E-Cont.: ",SDEC1(9) Line Location: EC+14
Function Call: WRITE	Prompt: ?45,"E2-Cont.: ",SDEC2(9) Line Location: EC+15
Function Call: WRITE	Prompt: !,?7,"Relation: ",SDEC1(10) Line Location: EC+16
Function Call: WRITE	Prompt: ?45,"Relation: ",SDEC2(10) Line Location: EC+17
Function Call: WRITE	Prompt: !,?9,SDEC1(1) Line Location: EC+19
Function Call: WRITE	Prompt: ! Line Location: EC+20
Function Call: WRITE	Prompt: ?47,SDEC2(1) Line Location: EC+21
Function Call: WRITE	Prompt: !,?9,SDEC1(2) Line Location: EC+22
Function Call: WRITE	Prompt: ! Line Location: EC+23
Function Call: WRITE	Prompt: ?47,SDEC2(2) Line Location: EC+24
Function Call: WRITE	Prompt: !,?9,SDEC1(3) Line Location: EC+25
Function Call: WRITE	Prompt: ! Line Location: EC+26
Function Call: WRITE	Prompt: ?47,SDEC2(3) Line Location: EC+27
Function Call: WRITE	Prompt: !,?9,SDEC1(4) Line Location: EC+30
Function Call: WRITE	Prompt: ", "_$$GET1^DIQ(5,+SDEC1(5),1) Line Location: EC+31
Function Call: WRITE	Prompt: " ",$P(SDEC1(11),"^",2) Line Location: EC+32
Function Call: WRITE	Prompt: ! Line Location: EC+35
Function Call: WRITE	Prompt: ?47,SDEC2(4) Line Location: EC+36
Function Call: WRITE	Prompt: ", "_$$GET1^DIQ(5,+SDEC2(5),1) Line Location: EC+37
Function Call: WRITE	Prompt: " ",$P(SDEC2(11),"^",2) Line Location: EC+38
Function Call: WRITE	Prompt: !,?7,"Phone: "_$$HLPHONE^HLFNC(SDEC1(8),,) Line Location: EC+40
Function Call: WRITE	Prompt: ?45,"Phone: "_$$HLPHONE^HLFNC(SDEC2(8),,) Line Location: EC+41
Function Call: WRITE	Prompt: !?7,"Work Phone: "_$$HLPHONE^HLFNC(SDPHON("E-WORK"),,) Line Location: EC+42
Function Call: WRITE	Prompt: ?45,"Work Phone: "_$$HLPHONE^HLFNC(SDPHON("E2-WORK"),,) Line Location: EC+43
Function Call: WRITE	Prompt: !,?5,"MHTC: " Line Location: MHTC+1
Function Call: WRITE	Prompt: !,?5,"Future Scheduled Appointments: " Line Location: FUT+1
Function Call: WRITE	Prompt: !,?7,SDFUTDT,?33,$E($P($P(SDFNODE,"^",2),";",2),1,20) Line Location: FUT+15
Function Call: WRITE	Prompt: !,?5,"Results: " Line Location: RESULTS+1
Routine Call	DIR Line Location: RET+3

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ
^DIC(5 - [#5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	B+14
^DPT - [#2]	B+15
^SC - [#44]	PROV+3
^TMP(	EN+4, EN+7, EN+9, EN+11, EN+13, EN+14, EN+17, EN+19, EN+21, EN+23 , EN+24, EN+27, EN+29, EN+31, EN+33, EN+34, EN+36, B+5, B+6
^TMP($J	FUT+14, FUT+15, FUT+20!
^VA(200 - [#200]	PROV+4

Label References

Name	Line Occurrences
EC	B+18
FUT	B+21
MHTC	B+20
NOK	B+17
NOKFL	NOK+13, NOK+17, NOK+22, NOK+28
PATINFO	B+16
PROV	B+19
PRT	EN+14, EN+24, EN+34
RESULTS	B+22
RET	B+15, B+17, B+18, B+19, B+20, B+21, B+22, PATINFO+11, PATINFO+12, PATINFO+13 , NOK+13, NOK+14, NOK+16, NOK+19, NOK+21, NOK+24, NOK+27, NOK+32, EC+12, EC+16 , EC+19, EC+20, EC+22, EC+23, EC+25, EC+26, EC+30, EC+35, EC+40, EC+42 , PROV+4, MHTC+1, FUT+16, RESULTS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	PATINFO+1~, PATINFO+2, PATINFO+5, NOK+1~, NOK+2, NOK+3, EC+3~, EC+4*, PID~
DIR	RET+3!
DIR(0	RET+2*
DT	FUT+3, FUT+4
IOSL	RET+1
IOST	RET+1
>> NAMSPC1	EN+4, EN+7, EN+9, EN+11, EN+13, EN+14, EN+17, EN+19, EN+21, EN+23 , EN+24, EN+27, EN+29, EN+31, EN+33, EN+34, EN+36, B+5, B+6
SDARRAY	FUT+2~, FUT+9
SDARRAY("FLDS"	FUT+8*
SDARRAY("SORT"	FUT+5*
SDARRAY(1	FUT+4*
SDARRAY(3	FUT+6*
SDARRAY(4	FUT+7*
SDATE	EN+1~, EN+12, EN+13, EN+14, EN+22, EN+23, EN+24, EN+32, EN+33, EN+34 , B+5, B+6
SDCOUNT	EN+1~, EN+2, B+15, FUT+2~, FUT+9*, FUT+10, FUT+18
SDDSS	B+2~, B+14*
SDEC1	EC+1~, EC+12
SDEC1(1	EC+19, EC+20
SDEC1(10	EC+16
SDEC1(11	EC+32
SDEC1(2	EC+22, EC+23
SDEC1(3	EC+25, EC+26
SDEC1(4	EC+29, EC+30, EC+35
SDEC1(5	EC+31
SDEC1(8	EC+40
SDEC1(9	EC+11, EC+14
SDEC2	EC+1~, EC+12
SDEC2(1	EC+20, EC+21
SDEC2(10	EC+17
SDEC2(11	EC+38
SDEC2(2	EC+23, EC+24
SDEC2(3	EC+26, EC+27
SDEC2(4	EC+34, EC+36
SDEC2(5	EC+37
SDEC2(8	EC+41
SDEC2(9	EC+15
SDEC3	NOK+1~, NOK+9
SDEC3(10	NOK+10
SDEC3(8	NOK+10, NOK+12
SDEC3(9	NOK+10
SDEC4	NOK+1~, NOK+11
SDEC4(10	NOK+12
SDEC4(9	NOK+12
SDEC5	PATINFO+1~, PATINFO+6
SDEC5(8	PATINFO+7
SDEC6	PATINFO+1~, PATINFO+3
SDEC6(8	PATINFO+4
SDFA	FUT+12~, FUT+14*, FUT+15
SDFNODE	FUT+12~, FUT+15*
SDFUTDT	FUT+12~, FUT+15*
>> SDFUTNUM	FUT+3, FUT+19
SDNOK	NOK+1~
SDNOK2	NOK+1~
SDNOKFL	NOK+1~, NOK+17, NOK+22, NOK+28, NOKFL*
SDNOKNM	NOK+1~, NOK+10*, NOK+13, NOK+14
SDNOKNM2	NOK+1~, NOK+12*, NOK+13, NOK+15
SDNOKPH	NOK+1~, NOK+10*, NOK+21, NOK+25
SDNOKPH2	NOK+1~, NOK+12*, NOK+21, NOK+26
SDNOKPO	NOK+1~, NOK+10*, NOK+27, NOK+30
SDNOKPO2	NOK+1~, NOK+12*, NOK+27, NOK+31
SDNOKR	NOK+1~, NOK+10*, NOK+16, NOK+19
SDNOKR2	NOK+1~, NOK+12*, NOK+16, NOK+20
SDPHON	PATINFO+1~, NOK+1~, EC+1~
SDPHON("CELL"	PATINFO+10*, PATINFO+13
SDPHON("E-WORK"	EC+9*, EC+42
SDPHON("E2-WORK"	EC+10*, EC+43
SDPHON("HOME"	PATINFO+4*, PATINFO+11
SDPHON("K-WORK"	NOK+6*, NOK+10
SDPHON("K2-WORK"	NOK+7*, NOK+12
SDPHON("WORK"	PATINFO+7*, PATINFO+12
SDPHON(2	PATINFO+9, PATINFO+10, NOK+5, NOK+6, NOK+7, EC+8, EC+9, EC+10
SDPNODE	PROV+1~, PROV+3*, PROV+4
SDPNUM	PROV+1~, PROV+2, PROV+3
>> SDTL	EN+5, EN+15, EN+25, PRT+2, PRT+3, B, B+3, B+4, B+5, B+6
SDTOTPG	EN+1~, EN+36*
>> SDUP	EN+4, EN+7, EN+9, EN+11, EN+13, EN+17, EN+19, EN+21, EN+23, EN+27 , EN+29, EN+31, EN+33, EN+35, B+15, B+16, B+17, B+18, B+19, B+20 , B+21, B+22, PATINFO+11, PATINFO+12, PATINFO+13, NOK+13, NOK+14, NOK+16, NOK+19, NOK+21 , NOK+24, NOK+27, NOK+32, EC+12, EC+16, EC+19, EC+20, EC+22, EC+23, EC+25 , EC+26, EC+30, EC+35, EC+40, EC+42, PROV+3, FUT+10, FUT+14, FUT+16, FUT+18 , RESULTS+2, RET+1, RET+4*
SDX	FUT+2~, FUT+3*, FUT+4
SDXCLIEN	B+2~, B+13*, PROV+3
SDXCLIN	EN+1~, EN+6, EN+7, EN+9, EN+11, EN+13, EN+14, EN+20, EN+21, EN+23 , EN+24, EN+28, EN+29, EN+31, EN+33, EN+34, PRT+2, PRT+3, B+3, B+4 , B+15, RET+6
SDXDFN	EN+1~, EN+2, B+7, B+15, PATINFO+2, PATINFO+5, PATINFO+8, PATINFO+9, PATINFO+10, NOK+2 , NOK+3, NOK+4, NOK+5, NOK+6, NOK+7, EC+2, EC+4, EC+7, EC+8, EC+9 , EC+10, FUT+7, FUT+14, FUT+15
SDXDIV	EN+1~, EN+3, EN+4, EN+7, EN+9, EN+11, EN+13, EN+14, EN+17, EN+19 , EN+21, EN+23, EN+24, EN+27, EN+29, EN+31, EN+33, EN+34, PRT+2, PRT+3 , B, B+5, B+6, B+15, RET+5, RET+6
SDXDT	B+2~, B+9, B+15
>> SDXFLG(	PRT+2, PRT+3, B, RET+5!, RET+6
SDXID	B+2~, B+8*, B+15
SDXNM	EN+1~, EN+8, EN+9, EN+11, EN+13, EN+14, EN+18, EN+19, EN+21, EN+23 , EN+24, EN+30, EN+31, EN+33, EN+34, B+5, B+6
SDXNODE	B+2~, B+5, B+6, B+7, B+8, B+9, B+10, B+13, B+14
SDXREM	EN+1~, EN+2, EN+26, EN+27*, EN+29, EN+31, EN+33, EN+34, B+3
SDXRLL	B+2~
SDXSORT1	B+2~, B+3*, B+5, B+6
SDXSORT2	B+2~, B+4*, B+5, B+6
SDXSTAT	B+2~, B+10*, B+15
SDXSTOP	EN+1~, EN+10, EN+11, EN+13, EN+14, EN+16, EN+17, EN+19, EN+21, EN+23 , EN+24, EN+34*, PRT+2, B, B+3, B+4, RET+6
SDXSTOPN	EN+15~, EN+24*, PRT+2, B
SDXZERO	B+2~
>> TOTAL(	B+15
VA	PID+3~
VA("BID"	PID+5
VAOA	PATINFO+1~, NOK+1~, EC+1~
VAOA("A"	PATINFO+5, NOK+3, EC+5, EC+6
VAROOT	PATINFO+1~, PATINFO+2, PATINFO+5, NOK+1~, NOK+2, NOK+3, EC+1~, EC+5, EC+6
X	FUT+2~, FUT+3
X1	FUT+2~, FUT+3*
X2	FUT+2~, FUT+3*
>> Y	RET+4

Customize PDF page

Package: Scheduling

Routine: SDMHAD1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: