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

Package: Scheduling

Routine: SDESCANCELVVS


Information

SDESCANCELVVS ;ALB/BWF,MGD - CANCEL VVS WEB SERVICE ; 5/30/24 13:38pm

Source Information

Source file <SDESCANCELVVS.m>

Entry Points

Name Comments DBIA/ICR reference
RESTPOST(APPTIEN,SDSTATUS,SDCANREASON) ; Generate web service call to cancel VVS appointment
; Input:
; APPTIEN = Appointment IEN in #409.84
; SDSTATUS = Cancellation Status for Appointment (passed in if VVS Appointment Cancelled prior to VistA Appointment)
; SDCANREASON = Cancellation Reason for Appointment (passed in if VVS Appointment Cancelled prior to VistA Appointment)
; Output:
; 0^Error Information
; 1^Success Information
ERRSPMSG(SDRESPERR,SDRESPETXT) ;
; Input : DGRESPERR (Required) - response error from Post call
; Return: response code/txt (ex: DGERR(400) from Init)_response code/msg (ex: ADDRVAL###)
STATUS(SDSTATUS) ;
REASON(SDCNREASON) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This Video Visit appointment ",VVSIDUPPER
  • Line Location: RESTPOST+78
Function Call: WRITE
  • Prompt: !,"couldn't be cancelled in the VVS system."
  • Line Location: RESTPOST+79
Function Call: WRITE
  • Prompt: !,"VVS ERROR: "
  • Line Location: RESTPOST+80
Function Call: WRITE
  • Prompt: VVSERR," - A validation error occurred for the cancellation request."
  • Line Location: RESTPOST+81
Function Call: WRITE
  • Prompt: VVSERR," - The API Key or client ID was not recognized."
  • Line Location: RESTPOST+82
Function Call: WRITE
  • Prompt: VVSERR," - The appointment to be cancelled was not found."
  • Line Location: RESTPOST+83
Function Call: WRITE
  • Prompt: VVSERR," - Internal server error."
  • Line Location: RESTPOST+84
Function Call: WRITE
  • Prompt: "504 - VVS Gateway Time-out."
  • Line Location: RESTPOST+85
Function Call: WRITE
  • Prompt: !!,"This Video Visit appointment successfully cancelled in the VVS system."
  • Line Location: RESTPOST+87

FileMan Files Accessed Via FileMan Db Call

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