Routine: SCMCMHTC

Package	Total	Call Graph
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Scheduling	2	SCMCMH SCRPU4
Clinical Reminders	1	PXRMPCMM

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;Display in CPRS Patient Inquiry.
EXIT	;
SAVE	;Save MHTC info.
LIST	;List of all active MHTC's from PCMM to CPRS.
START(DFN)	; Get patient MHTC info.	ICR #5697 Status: Active Usage: Controlled Subscription

Name	Field # of Occurrence
$$GET1^DIQ	START+8, START+10, START+11, START+12, START+14, START+15, START+16, START+17, SAVE+3, SAVE+4 , PRINT+7, LIST+10, LIST+11, LIST+12, LIST+13, LIST+14, LIST+15, LIST+16

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," MH Treatment Team: ",TNAM Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"MH Treatment Coord: ",$E(PNAM,1,28),?52,"Position: ",$E(TP,1,18) Line Location: PRINT+9
Function Call: WRITE	Prompt: !," Analog Pager: ",PAG,?55,"Phone: ",PH Line Location: PRINT+10
Function Call: WRITE	Prompt: !," Digital Pager: ",DPAG Line Location: PRINT+11

Name	Line Occurrences (* Changed, ! Killed)
^SCPT(404.42 - [#404.42]	START+6, START+7
^SCPT(404.43 - [#404.43]	START+9
^SCTM(404.52 - [#404.52]	START+13, LIST+8, LIST+9
^TMP("MHTC"	LIST+6!, LIST+17*

Name	Field # of Occurrence
ACT	START+2~, START+14*
ADATE	START+3~, START+16*, START+18
CC	LIST+5, LIST+17, EXIT+1!
>> CPRSGUI	START+19, PRINT+2
DFN	START~, START+1, START+6
DPAG	PRINT+3~, PRINT+7*, PRINT+11
DT	START+18
IEN	START+2~, START+6, START+7, START+9, LIST+5, LIST+8*, LIST+9, EXIT+1!
MHTC	START+4, START+20, SAVE+2, SAVE+5, SAVE+6, SAVE+7, SAVE+8, SAVE+9, LIST+5, LIST+13* , LIST+17, EXIT+1!
NP	START+3~, SAVE+2, SAVE+3, SAVE+5, PRINT+4, PRINT+7
PAG	PRINT+3~, PRINT+7*, PRINT+10
PAIEN	LIST+5, LIST+9, LIST+10, LIST+11, LIST+13, LIST+14, EXIT+1!
PH	PRINT+3~, PRINT+7*, PRINT+10
PIEN	LIST+5, LIST+14, LIST+17, EXIT+1!
PNAM	START+2~, START+15*, SAVE+6, PRINT+5, PRINT+9
PRO	START+2~, START+13*, START+14, START+15, SAVE+3
ROLE	LIST+5, LIST+12, LIST+17, EXIT+1!
SAVE	START+3~, START+4, START+6, START+9, SAVE+2, SAVE+10*
TEAM	START+2~, LIST+5, LIST+16, LIST+17, EXIT+1!
TIEM	START+2~, START+7*, START+8, SAVE+4
TNAM	START+3~, SAVE+2, SAVE+4, SAVE+9, PRINT+8
TP	START+3~, START+12, SAVE+7, PRINT+6, PRINT+9, LIST+5, LIST+15*, LIST+17, EXIT+1!
TPIEN	START+9, START+10, START+16, START+17, LIST+5, LIST+11*, LIST+12, LIST+15, LIST+16, EXIT+1!
TPR	START+3~, START+11*, START+12, SAVE+8
TPRIEN	START+3~, START+10*, START+11, START+12, START+13
TPUR	START+2~
UDATE	START+3~, START+17*, START+18