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: SDTMPEDT

Package: Scheduling

Routine: SDTMPEDT


Information

SDTMPEDT ;MS/SJA - TELEHEALTH STOP CODES EDIT ;Dec 17, 2020

Source Information

Source file <SDTMPEDT.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 ^DIC  (,UPDATE)^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: 8

Package Total Caller Graph
Scheduling 8 SD PROVIDER ADD/EDIT  SD TELE STOP CODE  SD53P812  SD53P821  SD53P832  SD53P859  SD53P876  SD53P888  

Entry Points

Name Comments DBIA/ICR reference
EDIT ; Add/edit stop code entries in file #40.6
UPD(DEL,STOPCODE) ;
ASK(ACT) ;
CHKSTOP(STOPCODE) ;
EX1 ;
EXIT ;
MSG(TEXT) ; give user error message if stop code is not valid
PROVID ; provider fields add/edit
CR
EX
DPMAIL ; default provider email

External References

Name Field # of Occurrence
^DIC PROVID+3
^DIE PROVID+16, PROVID+20, DPMAIL+5
UPDATE^DIE UPD+4
$$GET1^DIQ PROVID+9, PROVID+10
^DIR EDIT+5, ASK+3, MSG+2, CR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !,$C(7),"STOP Code: ",STOPCODE," has been ",$S(DEL=1:"Deleted!",1:"Added!"),!
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: !!!,$C(7),"CAUTION: DO NOT USE - Default Provider for setting up a Shared or Patient Site",!,?19,"Telehealth VistA Clinics."
  • Line Location: PROVID+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROVID+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing this record. Try again later.",!
  • Line Location: PROVID+6
Function Call: WRITE
  • Prompt: !!,$S($O(^SC(CLNDA,"PR",0)):" "_TXT_":",1:" No "_TXT_".")
  • Line Location: PROVID+8
Function Call: WRITE
  • Prompt: !,?4,"- ",$$GET1^DIQ(200,PRIEN,.01)
  • Line Location: PROVID+9
Function Call: WRITE
  • Prompt: ?39,"<< Default >>"
  • Line Location: PROVID+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PROVID+12
Function Call: WRITE
  • Prompt: !!,$C(7)," **** Provider update on inactive clinics is not allowed ****",!
  • Line Location: PROVID+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PROVID+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: CR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing this provider record. Try again later.",!
  • Line Location: DPMAIL+4
Routine Call
  • DIC
  • Line Location:
    • PROVID+3
Routine Call
  • DIE
  • Line Location:
    • PROVID+16
    • PROVID+20
    • DPMAIL+5
Routine Call
  • DIE
  • Line Location:
    • UPD+4
Routine Call
  • DIR
  • Line Location:
    • EDIT+5
    • ASK+3
    • MSG+2
    • CR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
44.1 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] CHKSTOP+2
^SC - [#44] PROVID+6, PROVID+8, PROVID+9, PROVID+10, PROVID+13, PROVID+15, PROVID+21
^SD(40.6 - [#40.6] EDIT+9
^VA(200 - [#200] DPMAIL+3, DPMAIL+6

Label References

Name Line Occurrences
$$CHKSTOP EDIT+7
ASK EDIT+10
CR PROVID+6, PROVID+13
DPMAIL PROVID+17
EDIT EDIT+8, EDIT+11, EDIT+14
EX PROVID+3, PROVID+6, PROVID+13
EX1 ASK+1, MSG+1
EXIT EDIT+5, EDIT+8, EDIT+10, EDIT+11, EDIT+14
MSG EDIT+8, EDIT+11, EDIT+14
PROVID PROVID+4
UPD EDIT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT ASK~, ASK+2, ASK+3
ADD EDIT+1~, EDIT+2*, EDIT+11, ASK+3*
CLNDA PROVID+1~, PROVID+5*, PROVID+6, PROVID+8, PROVID+9, PROVID+10, PROVID+13, PROVID+15, PROVID+16, PROVID+20
, PROVID+21
DA PROVID+16*, PROVID+20*, EX!, DPMAIL+5*
DEL EDIT+1~, EDIT+2*, EDIT+11, EDIT+12, UPD~, UPD+2, UPD+5, ASK+3*
DIC PROVID+3*, EX!
DIC("A" PROVID+3*
DIC(0 PROVID+3*
DIE PROVID+3*, PROVID+16*, PROVID+20*, EX!, DPMAIL+5*
DIR EDIT+3!, EDIT+5!, ASK+3!, CR!, CR+1!, EX!
DIR("?" EDIT+5*, EX1+1!, EXIT+1!
DIR("A" EDIT+4*, ASK+2*, EX1+1!, EXIT+1!, MSG+2*, CR*
DIR("B" ASK+2*, MSG+2*
DIR("T" CR*
DIR(0 EDIT+4*, ASK+2*, EX1+1!, EXIT+1!, MSG+2*, CR*
DIROUT EX1+1!, EXIT+1!
DIRUT EX1+1!, EXIT+1!
DPDA DPMAIL+1~, DPMAIL+2*, DPMAIL+3, DPMAIL+5, DPMAIL+6
DR PROVID+16!*, PROVID+20!*, EX!, DPMAIL+5*!
DR(2 PROVID+20*
DT PROVID+13
DTIME CR
DTOUT EDIT+3!, EDIT+5, EDIT+8, EDIT+10, EDIT+11, EDIT+14, EX1+1!, EXIT+1!
DUOUT EDIT+3!, EDIT+5, EDIT+8, EDIT+10, EDIT+11, EDIT+14, EX1+1!, EXIT+1!
FDA UPD+1~
FDA( UPD+2*, UPD+3*
GOOD EDIT+1~, EDIT+2*, EDIT+7*, EDIT+8
IOF EX
JJ PROVID+1~
PRIEN PROVID+1~, PROVID+9*, PROVID+10
SDACT PROVID+1~, PROVID+13*
SEQ PROVID+1~, PROVID+10*
STOPCODE EDIT+1~, EDIT+6*, EDIT+7, EDIT+9, EDIT+12, UPD~, UPD+3, UPD+5, CHKSTOP~, CHKSTOP+2
, EXIT+1!
TEXT EDIT+8*, EDIT+13*, MSG~, MSG+2
TMPERR EDIT+1~, EDIT+13
TXT PROVID+1~, PROVID+7*, PROVID+8
U PROVID+13
X EDIT+1~, EX1+1!, EXIT+1!, PROVID+3, PROVID+17, DPMAIL+2
X1 EDIT+1~, EDIT+2*, EDIT+9*, EDIT+10, UPD+2, EXIT+1!
XX CHKSTOP+1~, CHKSTOP+2*, CHKSTOP+3
Y EDIT+1~, EDIT+5, EDIT+6, EDIT+8, EDIT+11, EDIT+14, ASK+3, EX1+1!, EXIT+1!, PROVID+4
, PROVID+5, PROVID+18
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