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 |  Local Variables  | All
Print Page as PDF
Routine: SDTMPUT1

Package: Scheduling

Routine: SDTMPUT1


Information

SDTMPUT1 ;MS/SJA - VISTA-TELEHEALTH UPDATE UTILITY ;Dec 17, 2020

Source Information

Source file <SDTMPUT1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Scheduling 2 ASK2^SDDIV  EN^SDTMPHLB  

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 TELE CLN UPDATE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
C ; clinic
1
S ; stop codes
2
ST(STIEN,DIV) ;
EXIT ;
ASK
DIV ; ask for division
DIVCHK(CLNDIV) ; check clinic division
ACTIVE(LOC) ;determine if clinic is active
; Output X:1=ACTIVE,
; X:0=INACTIVE

External References

Name Field # of Occurrence
^DIC 1, 2
$$GET1^DIQ 1+3, 1+6, 2+6, ST+16
^DIR 1+7, 2+12, ASK+3, ASK+11
ASK2^SDDIV DIV+1
EN^SDTMPHLB 1+6, 2+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?22,"VistA Real-Time Clinic Updates",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !,"Clinic: ",III,?15,$$GET1^DIQ(44,III,.01)
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !,SDASH,!
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !,"Sending HL7 message for Clinic: ",$$GET1^DIQ(44,III,.01)
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !,"Sending HL7 message for Clinic: ",III,"-",$$GET1^DIQ(44,III,.01)
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: 2+7
Function Call: WRITE
  • Prompt: !,"Total number of Active clinics updated: ",TOT(1)
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !,"Total number of Inactive clinics updated: ",TOT(0)
  • Line Location: 2+10
Function Call: WRITE
  • Prompt: !,"Total number of clinics updated: ",TOT
  • Line Location: 2+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: ?20,"(",$S(STOP1:$$GET1^DIQ(40.7,STOP1,1),1:" "),"/",$S(STOP2:$$GET1^DIQ(40.7,STOP2,1),1:" "),") ",$P(NODE0,U)
  • Line Location: ST+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+12
Routine Call
  • DIC
  • Line Location:
    • 1
    • 2
Routine Call
  • DIR
  • Line Location:
    • 1+7
    • 2+12
    • ASK+3
    • ASK+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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
^SD(40.6 - [#40.6] ST+3
^TMP($J C+1!, 1*, 1+1, 1+3, 1+5, S+1!, 2*, 2+1, 2+3, 2+4
, ST+17*, EXIT+2!

Label References

Name Line Occurrences
$$ACTIVE ST+14
$$DIVCHK ST+7
$$ST 2+3
1 1
2 2
@( EN+5
ASK EN+3
EN EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT SDTMPUT1+4~, EN+1*, 2+8, ST+14, ST+15, ST+16, ASK+12*
ALL SDTMPUT1+4~, EN+1*
CLN SDTMPUT1+4~, 2+3*
CLNDIV DIVCHK~, DIVCHK+3
CODE ST+1~, ST+3*
DIC C+2!*, S+2!*
DIC("A" C+2*, 1*, S+2*, 2*
DIC(0 C+2*, S+2*
DIR 1+7!, 2+12!, ASK!, ASK+3!, ASK+11!
DIR("?" ASK+8*, ASK+9*
DIR("A" 1+7*, 2+12*, ASK+1*, ASK+7*
DIR("B" ASK+2*, ASK+10*
DIR(0 1+7*, 2+12*, ASK*, ASK+6*
DIV SDTMPUT1+4~, EN+1*, EN+4*, 2+3, ST~, ST+7
DT ACTIVE+9
DTOT EXIT+1!
DTOUT C+2!, 1+1, S+2!, 2+1, EXIT+1!, ASK+3, ASK+11
DUOUT C+2!, 1+1, S+2!, 2+1, EXIT+1!, ASK+3, ASK+11
F407 ST+1~, ST+2*, ST+4*, ST+10, ST+11, ST+12
FF DIVCHK+1~, DIVCHK+3*
FLG DIVCHK+1~, DIVCHK+2*, DIVCHK+3*, DIVCHK+4
FLG1 ST+1~, ST+6*, ST+11*, ST+13
FLG2 ST+1~, ST+6*, ST+12*, ST+13
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+14, ST+16, ST+17
III SDTMPUT1+4~, 1+3*, 1+5*, 1+6, 2+4*, 2+6
IOF EN+2
LOC ACTIVE~, ACTIVE+5
NODE ACTIVE+3~, ACTIVE+5*, ACTIVE+6, ACTIVE+7
NODE0 ST+1~, ST+7*, ST+8, ST+16
S407 ST+1~, ST+2*, ST+4*, ST+10, ST+11, ST+12
SDALL SDTMPUT1+4~
SDASH SDTMPUT1+4~, EN+1*, 1+2, 1+4, 2+2, 2+5
SDEF SDTMPUT1+4~
SDLT SDTMPUT1+4~
SDOUT SDTMPUT1+4~, EN+1*, EN+3, ASK+3*, ASK+11*, DIV+1*
SDV1 SDTMPUT1+4~
SEL SDTMPUT1+4~, EN+1*, EN+5, ASK+4*
STIEN SDTMPUT1+4~, 2+3*, ST~, ST+3
STOP1 ST+1~, ST+8*, ST+9, ST+11, ST+16
STOP2 ST+1~, ST+8*, ST+9, ST+12, ST+16
STP1 ST+1~, ST+2*, ST+3*, ST+4
STP2 ST+1~, ST+2*, ST+3*, ST+4
TOT SDTMPUT1+4~, S+1*, 2+5, 2+6*, 2+11
TOT( ST+14*
TOT(0 S+1*, 2+10
TOT(1 S+1*, 2+9
U ST+7, ST+16, ACTIVE+6, ACTIVE+7
VAUTD SDTMPUT1+4~, EN+4, DIVCHK+3
VAUTD( DIVCHK+3
X ACTIVE+3~, ACTIVE+4*, ACTIVE+8*, ACTIVE+9*, ACTIVE+10
XX SDTMPUT1+4~, ST+1~, ST+14*, ST+15, ST+16
Y 1, 2, ASK!, ASK+3, ASK+4, ASK+12, DIV+1
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 |  Local Variables  | All