Routine: SCMCTSK9

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC ^DIC DT^DICRW ^DIE
Scheduling	3	($$PRTP,$$PTTP)^SCAPMC $$DATES^SCAPMCU1 $$GETPRTP^SCAPMCU2

Entry Points

Name	Comments	DBIA/ICR reference
P2
EXTEND(DATA,SCTEAM)	;return list of patients to inactivate in next 60 days
P1
POS
GCL	;clean temp globals
SEEN	;was patient seen
EX1
EXTKEY	;
EXTCHUI	;roll n scroll option to extend a patient

External References

Name	Field # of Occurrence
^%DT	EXTEND+4, EXTEND+5
NOW^%DTC	EXTKEY+1
^DIC	P1
DT^DICRW	EXTEND+4
^DIE	P2+10
$$PRTP^SCAPMC	SEEN+8
$$PTTP^SCAPMC	POS+4
$$DATES^SCAPMCU1	POS
$$GETPRTP^SCAPMCU2	SEEN+5, SEEN+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,$G(SCDHD) Line Location: EXTKEY+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>(IOM-40) Line Location: EXTKEY+1
Function Call: WRITE	Prompt: ?(IOM-40) Line Location: EXTKEY+1
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " Line Location: EXTKEY+2
Function Call: WRITE	Prompt: $J(Y#100\1,2)_"," Condition for execution: Y#100 Line Location: EXTKEY+2
Function Call: WRITE	Prompt: Y\10000+1700 Line Location: EXTKEY+2
Function Call: WRITE	Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Condition for execution: Y#1 Line Location: EXTKEY+2
Function Call: WRITE	Prompt: ?(IOM-15),"PAGE: "_($G(DC)+1) Line Location: EXTKEY+3
Function Call: WRITE	Prompt: !,Y,!! Line Location: EXTKEY+4
Function Call: WRITE	Prompt: !,"Column Heading Explanation of column headings" Line Location: EXTKEY+5
Function Call: WRITE	Prompt: ! Line Location: EXTKEY+6
Function Call: WRITE	Prompt: !,"Patient Name Name of patient scheduled to be inactivated from their primary care team and position/provider." Line Location: EXTKEY+7
Function Call: WRITE	Prompt: !,"SSN SSN number." Line Location: EXTKEY+8
Function Call: WRITE	Prompt: !,"Institution Institution name, previously called Division, in which patient receives primary care." Line Location: EXTKEY+9
Function Call: WRITE	Prompt: !,"PC Team The patient's assigned Primary Care team in PCMM." Line Location: EXTKEY+10
Function Call: WRITE	Prompt: !,"Provider/ Name of Associate Primary Care Provider (AP) assigned to patient, if there is one." Line Location: EXTKEY+11
Function Call: WRITE	Prompt: !," Team Position The name of the team position to which the Associate Primary Care Provider (AP) is assigned." Line Location: EXTKEY+12
Function Call: WRITE	Prompt: !,"Current Preceptor/ Name of Primary Care Provider (PCP) assigned to patient. Every Primary Care patient should" Line Location: EXTKEY+13
Function Call: WRITE	Prompt: !," Team Position be assigned to one PCP. The name of the team position to which the Primary Care Provider (PCP)" Line Location: EXTKEY+14
Function Call: WRITE	Prompt: !," is assigned." Line Location: EXTKEY+15
Function Call: WRITE	Prompt: !,"Date Scheduled for Date patient will be inactivated from PCMM and their Primary Care team and provider/position unless" Line Location: EXTKEY+16
Function Call: WRITE	Prompt: !," Inactivation they have a completed outpatient appointment encounter with their current PCP or AP before this date." Line Location: EXTKEY+17
Function Call: WRITE	Prompt: !," Note: There is a patient reassignment option, which allows an inactivated patient to be reactivated" Line Location: EXTKEY+18
Function Call: WRITE	Prompt: !," to their previous Primary Care team and position if they return for care." Line Location: EXTKEY+19
Function Call: WRITE	Prompt: !,"Reason for Extended The reason entered for extending the patient's time before inactivation from PC panels." Line Location: EXTKEY+20
Function Call: WRITE	Prompt: !," Inactivation Entry of this field is in the PCMM GUI, Patient drop down menu, and the Extend Patient's Date for" Line Location: EXTKEY+21
Function Call: WRITE	Prompt: !," Inactivation from PC Panels option." Line Location: EXTKEY+22
Function Call: WRITE	Prompt: !,"Searching...",! Line Location: P1+1
Function Call: WRITE	Prompt: !,"No Patients to Extend..." Line Location: P1+3
Function Call: WRITE	Prompt: !,"Select From: ",!! Line Location: P2+0
Function Call: WRITE	Prompt: $J(V1,2)_" ",$P(^TMP("SCMCTSK9","OUT",$J,V1),U,3),! Line Location: P2+2
Function Call: READ	Timeout: DTIME Variable: SCX Line Location: P2+3
Function Call: WRITE	Prompt: !,"Select 1-",SCHIGH," or '^' to exit" Line Location: P2+4
Function Call: WRITE	Prompt: !,"Select a valid number" Line Location: P2+5
Routine Call	DIE Line Location: P2+10
Routine Call	DIC Line Location: P1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SCPT(404.43 - [#404.43]	Classic Fileman Calls
^SCTM(404.51 - [#404.51]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV - [#9000010.06]	SEEN+16
^AUPNVPRV("AD"	SEEN+16
^SCE - [#409.68]	SEEN+13
^SCE("ADFN"	SEEN+11, SEEN+12
^SCPT(404.43 - [#404.43]	EX1+2, POS+7, POS+8
^SCTM(404.57 - [#404.57]	EXTEND+7, EXTEND+8, POS+1, POS+11
^SDD(409.44 - [#409.44]	SEEN+15
^TMP("SC TMP LIST"	POS+3!
^TMP("SCMCTSK9"	P1+3, P1+4, P2+1, P2+2, P2+8, EXTEND+3, EX1+2, POS+11*, GCL+1!, GCL+2!

Label References

Name	Line Occurrences
EXTEND	P1+2
GCL	P1, P1+3
P1	EXTCHUI+2
P2	P1+5
POS	EXTEND+8
SEEN	POS+10

Naked Globals

Name	Field # of Occurrence
^(	POS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXTKEY+1~
A	EXTEND+3~, EX1*, EX1+1, EX1+2
>> B	EX1+1*, EX1+2
CNT	EXTEND+3~, EX1, EX1+2, EX1+3, POS+11
DA	EXTCHUI+1~, P2+8*
DATA	EXTEND~, EXTEND+2!
>> DC	EXTKEY+3
>> DFN	POS+9*, SEEN+11, SEEN+12
DIC	EXTCHUI+1~, P1*
DIC(0	P1*
DIE	EXTCHUI+1~, P2+7*
DR	EXTCHUI+1~, P2+9*
DT	SEEN+5, SEEN+7, SEEN+10
DTIME	P2+3
DUZ	P2+9
I	EXTEND+3~, SEEN+2~, SEEN+9, SEEN+11, SEEN+12
IOF	EXTKEY+1
IOM	EXTKEY+1, EXTKEY+3, EXTKEY+4
J	EXTEND+3~, POS+5, POS+6~, SEEN+12, SEEN+13, SEEN+15
K	EXTEND+3~
>> POS	EXTEND+8*, POS, POS+1, POS+4, POS+11, SEEN+5, SEEN+8, SEEN+10
POSA	EXTEND+3~, EXTEND+6, EXTEND+7, EXTEND+8
>> PREC	SEEN+10
PRECP	SEEN+2~, SEEN+10*
PRO	SEEN+2~, SEEN+14*, SEEN+15, SEEN+16
>> PROV	SEEN+5*
SCARRAY	EXTCHUI+1~, P1+2
SCDATA	EXTEND+2!, POS+5*, POS+6, POS+7, POS+8, POS+9, POS+11
>> SCDHD	EXTKEY+1
>> SCERR	POS+4
SCHIGH	EXTCHUI+1~, P1+4*, P2+3, P2+4, P2+5
>> SCLIST	POS+4, POS+5, POS+12
SCPR	SEEN+3~
SCPR(	SEEN+9
SCPRDTS	SEEN+3~
SCPRDTS("BEGIN"	SEEN+6*
SCPRDTS("END"	SEEN+7*
SCPRO	SEEN+2~
SCPRO(	SEEN+5, SEEN+9, SEEN+10*, SEEN+14
SCTEAM	EXTEND~, EXTEND+3*, EXTEND+7, EXTEND+8
SCTM	EXTCHUI+1~, EXTCHUI+2, P1, P1+2
SCX	EXTCHUI+1~, P1+5, P2+3, P2+4, P2+5, P2+6, P2+8
SDDATA	EXTEND+2!
>> SEEN	POS+10, SEEN+1, SEEN+11, SEEN+12, SEEN+14, SEEN+15, SEEN+16*
>> STDT	EXTEND+4*, POS+6
>> TYDT	EXTEND+5*, SEEN+6, SEEN+11, SEEN+13
U	EXTKEY+2, P2+2, P2+8, EX1+2, POS+1, POS+6, POS+7, POS+8, POS+11, SEEN+13
V	SEEN+16~*
V1	EXTCHUI+1~, P2+1*, P2+2
VISIT	SEEN+13~*, SEEN+16
X	EXTEND+4, EXTEND+5, POS+4, SEEN+3~, SEEN+8
Y	EXTKEY+1~, EXTKEY+2, EXTKEY+4, P1, EXTEND+4, EXTEND+5

Customize PDF page

Package: Scheduling

Routine: SCMCTSK9

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: