Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDESINACTCLINIC

SDESINACTCLINIC.m

Go to the documentation of this file.
  1. SDESINACTCLINIC ;ALB/ANU,MGD - Inactivate Clinic in HOSPITAL LOCATION FILE 44 ;July 19, 2022
  1. ;;5.3;Scheduling;**799,805,820**;Aug 13, 1993;Build 10
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ; Documented API's and Integration Agreements
  1. ; -------------------------------------------
  1. ;Reference to $$GETS^DIQ is supported by IA #2056
  1. ;Reference to $$GETS1^DIQ is supported by IA #2056
  1. Q
  1. ;
  1. JSONINACTCLN(SDCINJSON,SDCLINICIEN,SDEAS) ;Inactivate Clinic
  1. ;INPUT - SDCLINICIEN (Clinic IEN)
  1. ; SDEAS - [optional] Enterprise Appointment Scheduling (EAS) Tracking Number associated to an appointment.
  1. ;RETURN PARMETER:
  1. ; Status
  1. ;
  1. N ERRPOP,ERR,ERRMSG
  1. D INIT
  1. D VALIDATE
  1. I ERRPOP D BLDJSON Q
  1. D BLDCINREC
  1. D BLDJSON
  1. Q
  1. ;
  1. INIT ; initialize values needed
  1. S ERR=""
  1. S ERRPOP=0,ERRMSG=""
  1. Q
  1. ;
  1. VALIDATE ; validate incoming parameters
  1. I $$GET1^DIQ(44,SDCLINICIEN,.01)="" D
  1. . ;create error message - Clinic Name/Clinic IEN not found
  1. . D ERRLOG^SDESJSON(.SDCINREC,80)
  1. . S ERRPOP=1
  1. S SDEAS=$G(SDEAS,"")
  1. I $L(SDEAS) S SDEAS=$$EASVALIDATE^SDESUTIL(SDEAS)
  1. I SDEAS=-1 D ERRLOG^SDESJSON(.SDCINREC,142) S ERRPOP=1
  1. Q
  1. ;
  1. BLDJSON ;
  1. D ENCODE^SDESJSON(.SDCINREC,.SDCINJSON,.ERR)
  1. K SDCINREC
  1. Q
  1. ;
  1. BLDCINREC ;Inactivate Clinic
  1. ;
  1. N SDERR,SDFDA,SDCLNNAME
  1. S SDCLNNAME=""
  1. S SDCLNNAME=$$GET1^DIQ(44,SDCLINICIEN,.01)
  1. I $E(SDCLNNAME,1,2)'="ZZ" S SDFDA(44,SDCLINICIEN_",",.01)="ZZ"_$E($$GET1^DIQ(44,SDCLINICIEN,.01),1,28)
  1. S SDFDA(44,SDCLINICIEN_",",2505)=DT
  1. D UPDATE^DIE("","SDFDA","","SDERR")
  1. I $G(SDERR) D ERRLOG^SDESJSON(.SDCINREC,81) Q
  1. S SDCINREC("Success")="Clinic is successfully inactivated."
  1. Q
  1. ;