Routine: SDTMPUT2

Package	Total	Call Graph
VA FileMan	4	^DIC ^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Scheduling	1	SD DEFAULT PROVIDER UPDATE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
C	; clinic
C1
S	; stop codes
S1
P	; provider selection
P1
ST(STIEN)	; stop codes search
EXIT	; kill and exit
ASK	; selection options
ACTIVE(LOC)	;determine if clinic is active ; Output X:1=ACTIVE, ; X:0=INACTIVE
PRU(PRIEN)	; call for provider call
PRC(CLIEN,STCODE)	; call for clinic search
SC(CLIEN)	; call to return clinic stop codes

External References

Name	Field # of Occurrence
^DIC	C1, S1, P1
^DIE	PRU+7, PRC+10
$$GET1^DIQ	ST+14, PRU+4, PRU+5, PRU+6, PRU+8, PRU+9, PRU+10, PRC+5, PRC+7, PRC+8 , PRC+9, PRC+11, PRC+12, PRC+13, SC+3
^DIR	C1+7, S1+9, P1+7, ASK+4, ASK+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+3
Function Call: WRITE	Prompt: !,?20,"Bulk update for Default Provider field",! Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: !! Line Location: C1+5
Function Call: WRITE	Prompt: !,"Total number of clinics updated ",TOT," out of ",TOTAL Line Location: C1+6
Function Call: WRITE	Prompt: !! Line Location: C1+7
Function Call: WRITE	Prompt: ! Line Location: S1+2
Function Call: WRITE	Prompt: !! Line Location: S1+7
Function Call: WRITE	Prompt: !,"Total number of clinics updated ",TOT," out of ",TOTAL Line Location: S1+8
Function Call: WRITE	Prompt: !! Line Location: S1+9
Function Call: WRITE	Prompt: !! Line Location: P1+5
Function Call: WRITE	Prompt: !,"Total number of clinics updated ",TOT," out of ",TOTAL Line Location: P1+6
Function Call: WRITE	Prompt: !! Line Location: P1+7
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK+5
Function Call: WRITE	Prompt: !,CLN,?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),STOP Line Location: PRU+4
Function Call: WRITE	Prompt: !,?8,"--- No action taken, default provider is already set.",! Line Location: PRU+4
Function Call: WRITE	Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),STOP Line Location: PRU+5
Function Call: WRITE	Prompt: !,?8,"--- No action taken, multiple providers assigned.",! Line Location: PRU+5
Function Call: WRITE	Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,CLN,.01),STOP Line Location: PRU+8
Function Call: WRITE	Prompt: !,?8,">>> Default Provider set to: ",$$GET1^DIQ(200,+VAL,.01),! Line Location: PRU+8
Function Call: WRITE	Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLN,.01),STOP Line Location: PRU+9
Function Call: WRITE	Prompt: !,?8,"--- No action taken, no default provider found.",! Line Location: PRU+9
Function Call: WRITE	Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLN,.01),STOP Line Location: PRU+10
Function Call: WRITE	Prompt: !,?8,"--- No action taken, no Providers found.",! Line Location: PRU+10
Function Call: WRITE	Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),$$SC(CLIEN) Line Location: PRC+5
Function Call: WRITE	Prompt: !,?8,"--- Telehealth Patient Site Stop Codes are not allowed for Bulk",!,?12,"Default Provider Update" Line Location: PRC+6
Function Call: WRITE	Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP Line Location: PRC+7
Function Call: WRITE	Prompt: !,?8,"--- No action taken, default provider is already set.",! Line Location: PRC+7
Function Call: WRITE	Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),$$SC($P(VAL,U,2)) Line Location: PRC+8
Function Call: WRITE	Prompt: !,?8,"--- No action taken, multiple providers assigned.",! Line Location: PRC+8
Function Call: WRITE	Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,CLIEN,.01),STOP Line Location: PRC+11
Function Call: WRITE	Prompt: !,?8,">>> Default Provider is set to: ",$$GET1^DIQ(200,+VAL,.01),! Line Location: PRC+11
Function Call: WRITE	Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP Line Location: PRC+12
Function Call: WRITE	Prompt: !,?8,"--- No action taken, no default provider found.",! Line Location: PRC+12
Function Call: WRITE	Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP Line Location: PRC+13
Function Call: WRITE	Prompt: !,?8,"--- No action taken, no Providers found.",! Line Location: PRC+13
Routine Call	DIC Line Location: C1 S1 P1
Routine Call	DIE Line Location: PRU+7 PRC+10
Routine Call	DIR Line Location: C1+7 S1+9 P1+7 ASK+4 ASK+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^SD(40.6 - [#40.6]	Classic Fileman Calls
^DIC(40.7 - [#40.7]	GET1^DIQ
^SC - [#44]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	ST+4
^SC - [#44]	ST+6, ST+7, ACTIVE+5, PRU+2, PRC+2, SC+2
^SC("AVADPR"	PRU+1
^SD(40.6 - [#40.6]	ST+3
^TMP($J	EN+1!, C+1!, C1, C1+1, C1+2, S+1!, S1, S1+1, S1+3, S1+4 , P+1!, P1, P1+1, P1+2, ST+14, EXIT+2!

Label References

Name	Line Occurrences
$$ACTIVE	ST+12
$$SC	PRU+3, PRC+3, PRC+5, PRC+8
$$ST	S1+3
@(	EN+6
ASK	EN+4
C1	C1
EN	EN+7
P1	P1
PRC	C1+4, S1+6
PRU	P1+4
S1	S1

Naked Globals

Name	Field # of Occurrence
^(	S1+4, PRU+2, PRC+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AA	SDTMPUT2+4~, PRU+2, PRC+2
ACT	SDTMPUT2+4~, EN+2, ST+13, ASK+5
ALL	SDTMPUT2+4~, EN+2*
CLIEN	SDTMPUT2+5~, PRU+9, PRU+10, PRC~, PRC+2, PRC+3, PRC+5, PRC+7, PRC+9, PRC+10 , PRC+11, PRC+12, PRC+13, SC~, SC+2
CLN	SDTMPUT2+4~, S1+3, PRU+1, PRU+2, PRU+3, PRU+4, PRU+6, PRU+7, PRU+8, PRU+9 , PRU+10
CLSTP1	ST+1~, ST+7*, ST+8, ST+9, ST+14
CLSTP2	ST+1~, ST+7*, ST+8, ST+10, ST+14
CNT	SDTMPUT2+4~, PRU+1, PRU+2, PRU+5, PRU+6, PRU+9, PRU+10, PRC+2*, PRC+8, PRC+9 , PRC+12, PRC+13
CODE	ST+1~, ST+3*
DA	PRU+7!, PRC+10!
DIC	C+2!, S+2!, P+2*
DIC("A"	C+2, C1, S+2, S1, P+2, P1
DIC("S"	P+2*
DIC(0	C+2, S+2, P+2*
DIE	PRU+7!, PRC+10!
DIR	C1+7!, S1+9!, P1+7!, ASK+1!, ASK+4!, ASK+10!
DIR("A"	C1+7, S1+9, P1+7, ASK+2, ASK+8*
DIR("B"	ASK+3, ASK+9
DIR(0	C1+7, S1+9, P1+7, ASK+1, ASK+7*
DIV	SDTMPUT2+4~, EN+2, EN+5
DR	PRU+7!, PRC+10!
DT	ACTIVE+9
DTOT	EXIT+1!
DTOUT	C+2!, C1+1, S+2!, S1+1, P1+1, EXIT+1!, ASK+4, ASK+10
DUOUT	C+2!, C1+1, S+2!, S1+1, P1+1, EXIT+1!, ASK+4, ASK+10
FLAG	ST+1~, ST+2, ST+6, ST+9, ST+10, ST+11
FLG1	ST+1~
FLG2	ST+1~
I1	ACTIVE+3~, ACTIVE+6*, ACTIVE+8, ACTIVE+9
I2	ACTIVE+3~, ACTIVE+7*, ACTIVE+9
II	ST+1~, ST+5, ST+6, ST+7, ST+12, ST+14, PRC+4*
III	SDTMPUT2+4~, C1+2, C1+4, S1+4, S1+6, P1+2*, P1+4
IOF	EN+3
LN	SDTMPUT2+4~, S+1, S1+6
LOC	SDTMPUT2+4~, ACTIVE~, ACTIVE+5
NODE	ACTIVE+3~, ACTIVE+5*, ACTIVE+6, ACTIVE+7
NODE0	ST+1~, ST+7, SC+1~, SC+2, SC+3
NUM	SDTMPUT2+4~, PRU+2, PRC+2
P1	ST+1~, ST+2, ST+3, ST+4
P2	ST+1~, ST+2, ST+3, ST+4
P407F	ST+1~, ST+2, ST+4, ST+9, ST+10
P407S	ST+1~, ST+2, ST+4, ST+9, ST+10
PRIEN	SDTMPUT2+5~, PRU~, PRU+1
RESTCD	SDTMPUT2+4~, PRC+1*, PRC+4
RESULT	SC+1~, SC+3*, SC+4
SC	SDTMPUT2+4~, ST+8, ST+9, ST+10, ASK+11*, PRC+4
SDASH	SDTMPUT2+4~, EN+2*, C1+3, S1+5, P1+3
SDOUT	SDTMPUT2+4~, EN+2, EN+4, ASK+4, ASK+10*
SEL	SDTMPUT2+4~, EN+2, EN+6, ASK+6, PRC+4
STCODE	SDTMPUT2+4~, PRC~, PRC+4
STIEN	SDTMPUT2+4~, S1+3*, ST~, ST+3
STOP	SDTMPUT2+4~, S1+4, S1+6, PRU+3, PRU+4, PRU+5, PRU+8, PRU+9, PRU+10, PRC+2* , PRC+3*, PRC+7, PRC+11, PRC+12, PRC+13
TOT	SDTMPUT2+5~, C+1, C1+6, S+1, S1+8, P+1, P1+6, PRU+8, PRC+11*
TOTAL	SDTMPUT2+5~, C+1, C1+3, C1+6, S+1, S1+5, S1+8, P+1, P1+3, P1+6 , PRU+1, PRC+1*
U	ST+7, ST+14, ACTIVE+6, ACTIVE+7, PRU+2, PRU+4, PRU+5, PRU+7, PRU+8, PRC+2 , PRC+4, PRC+8, PRC+10, PRC+11, SC+3
VAL	SDTMPUT2+4~, PRU+1, PRU+2, PRU+4, PRU+5, PRU+6, PRU+7, PRU+8, PRU+9, PRU+10 , PRC+2*, PRC+8, PRC+9, PRC+10, PRC+11, PRC+12, PRC+13
VAUTD	SDTMPUT2+5~, EN+5
X	ACTIVE+3~, ACTIVE+4, ACTIVE+8, ACTIVE+9*, ACTIVE+10
XX	SDTMPUT2+5~, ST+1~, ST+12*, ST+13
Y	C1, S1, P1, ASK+1!, ASK+4, ASK+6, ASK+11

Customize PDF page

Package: Scheduling

Routine: SDTMPUT2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: