Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
44.1 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call