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

Package: Scheduling

Routine: SDTMPUT1


Information

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

Source Information

Source file <SDTMPUT1.m>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call