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 C1, S1, P1
^DIE PRU+18, PRC+20
$$GET1^DIQ ST+14, PRU+8, PRU+13, PRU+15, PRU+16, PRU+17, PRU+19, PRU+20, PRU+21, PRC+5
, PRC+10, PRC+15, PRC+17, PRC+18, PRC+19, PRC+21, PRC+22, PRC+23, 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,CLN,.01),STOP
  • Line Location: PRU+8
Function Call: WRITE
  • Prompt: !,?8,"--- Telehealth Patient Site Stop Codes are not allowed for Bulk",!,?12,"Default Provider Update"
  • Line Location: PRU+9
Function Call: WRITE
  • Prompt: !,CLN,?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+13
Function Call: WRITE
  • Prompt: !,?8,"--- Provider update on inactive clinics is not allowed.",!
  • Line Location: PRU+13
Function Call: WRITE
  • Prompt: !,CLN,?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),STOP
  • Line Location: PRU+15
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, default provider is already set.",!
  • Line Location: PRU+15
Function Call: WRITE
  • Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),STOP
  • Line Location: PRU+16
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, multiple providers assigned.",!
  • Line Location: PRU+16
Function Call: WRITE
  • Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+19
Function Call: WRITE
  • Prompt: !,?8,">>> Default Provider set to: ",$$GET1^DIQ(200,+VAL,.01),!
  • Line Location: PRU+19
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+20
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no default provider found.",!
  • Line Location: PRU+20
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+21
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no Providers found.",!
  • Line Location: PRU+21
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+10
Function Call: WRITE
  • Prompt: !,?8,"--- Telehealth Patient Site Stop Codes are not allowed for Bulk",!,?12,"Default Provider Update"
  • Line Location: PRC+11
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+15
Function Call: WRITE
  • Prompt: !,?8,"--- Provider update on inactive clinics is not allowed.",!
  • Line Location: PRC+15
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+17
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, default provider is already set.",!
  • Line Location: PRC+17
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+18
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, multiple providers assigned.",!
  • Line Location: PRC+18
Function Call: WRITE
  • Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+21
Function Call: WRITE
  • Prompt: !,?8,">>> Default Provider is set to: ",$$GET1^DIQ(200,+VAL,.01),!
  • Line Location: PRC+21
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+22
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no default provider found.",!
  • Line Location: PRC+22
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+23
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no Providers found.",!
  • Line Location: PRC+23
Routine Call
  • DIC
  • Line Location:
    • C1
    • S1
    • P1
Routine Call
  • DIE
  • Line Location:
    • PRU+18
    • PRC+20
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+3, PRU+12, PRC+2, PRC+14, SC+2
^SC("AVADPR" PRU+2
^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+4, PRC+3, PRC+5, PRC+18
$$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+3, PRC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AA SDTMPUT2+4~, PRU+3*, PRC+2*
ACT SDTMPUT2+4~, EN+2*, ST+13, ASK+5*
ALL SDTMPUT2+4~, EN+2*
CLIEN SDTMPUT2+5~, PRU+20, PRU+21, PRC~, PRC+2, PRC+3, PRC+5, PRC+10, PRC+14, PRC+15
, PRC+17, PRC+19, PRC+20, PRC+21, PRC+22, PRC+23, SC~, SC+2
CLN SDTMPUT2+4~, S1+3*, PRU+2*, PRU+3, PRU+4, PRU+8, PRU+12, PRU+13, PRU+15, PRU+17
, PRU+18, PRU+19, PRU+20, PRU+21
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+2*, PRU+3*, PRU+16, PRU+17, PRU+20, PRU+21, PRC+2*, PRC+18, PRC+19
, PRC+22, PRC+23
CODE ST+1~, ST+3*
DA PRU+18*!, PRC+20*!
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+18*!, PRC+20*!
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+18!*, PRC+20!*
DT ACTIVE+9, PRU+12, PRC+14
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, PRU+6*, PRC+4*, PRC+8*
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+3*, 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+2
RESTCD SDTMPUT2+4~, PRU+1*, PRU+6, PRC+1*, PRC+4, PRC+8
RESULT SC+1~, SC+3*, SC+4
SC SDTMPUT2+4~, ST+8, ST+9, ST+10, ASK+11*, PRC+4
SDACT SDTMPUT2+4~, PRU+12*, PRC+14*
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
STCD SDTMPUT2+4~, PRU+4*, PRU+6, PRC+3*, PRC+8
STCODE SDTMPUT2+4~, PRU+6*, PRC~, PRC+4, PRC+8*
STFLG SDTMPUT2+4~, PRU+6*, PRU+7*, PRU+10, PRC+8*, PRC+9*, PRC+12
STIEN SDTMPUT2+4~, S1+3*, ST~, ST+3
STOP SDTMPUT2+4~, S1+4*, S1+6, PRU+4*, PRU+8, PRU+13, PRU+15, PRU+16, PRU+19, PRU+20
, PRU+21, PRC+2*, PRC+3*, PRC+10, PRC+15, PRC+17, PRC+21, PRC+22, PRC+23
TOT SDTMPUT2+5~, C+1*, C1+6, S+1*, S1+8, P+1*, P1+6, PRU+19*, PRC+21*
TOTAL SDTMPUT2+5~, C+1*, C1+3, C1+6, S+1*, S1+5, S1+8, P+1*, P1+3, P1+6
, PRU+2*, PRC+1*
U ST+7, ST+14, ACTIVE+6, ACTIVE+7, PRU+3, PRU+12, PRU+15, PRU+16, PRU+18, PRU+19
, PRC+2, PRC+4, PRC+14, PRC+18, PRC+20, PRC+21, SC+3
VAL SDTMPUT2+4~, PRU+2*, PRU+3*, PRU+15, PRU+16, PRU+17, PRU+18, PRU+19, PRU+20, PRU+21
, PRC+2*, PRC+18, PRC+19, PRC+20, PRC+21, PRC+22, PRC+23
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
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