Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDTMPUT2

Package: Scheduling

Routine: SDTMPUT2


Information

SDTMPUT2 ;MS/SJA - VISTA-BULK DEFAULT PROVIDER UPDATE ;May 15, 2022

Source Information

Source file <SDTMPUT2.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

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 C1S1P1
^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 C1S1P1ASK+1!, ASK+4, ASK+6, ASK+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All