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

SDESADDDELCGI.m

Go to the documentation of this file.
  1. SDESADDDELCGI ;ALB/ANU - VISTA SCHEDULING RPCS ;sEP 19, 2022
  1. ;;5.3;Scheduling;**826**;Aug 13, 1993;Build 18
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ;External References
  1. ;-------------------
  1. ; Reference to $$GETS^DIQ,$$GETS1^DIQ in ICR #2056
  1. ;
  1. Q
  1. ;
  1. ;
  1. DELRGI(RETURNJSON,SDESRGIEN,SDESRSIEN) ;Deletes entry SDESIEN1 from entry SDESIEN in the SDEC RESOURCE GROUP file
  1. ;
  1. ; Input:
  1. ; SDESRGIEN [Required] - Resource Group Id - Pointer to SDEC RESOURCE GROUP file
  1. ; SDESRSIEN [Required] - Pointer to SDEC RESOURCE file
  1. ;
  1. ; Output:
  1. ; RETURNJSON - Returns Status (Success or Failure)
  1. ;
  1. ; Called by SDES DELETE RESGRP ITEM
  1. ;
  1. N RETURN,HASFIELDS,ELGFIELDSARRAY,ELGRETURN
  1. N ISRGIENVALID,ISRSIENVALID
  1. S (RETURN,ELGFIELDSARRAY,HASFIELDS)=""
  1. ;
  1. S ISRGIENVALID=$$VALIDATERGIEN(.ERRORS,$G(SDESRGIEN))
  1. I '$D(ERRORS) S ISRSIENVALID=$$VALIDATERSIEN(.ERRORS,1,$G(SDESRSIEN))
  1. ;
  1. I $D(ERRORS) M RETURN=ERRORS
  1. I '$D(ERRORS) S HASFIELDS=$$RGIDEL(.ELGFIELDSARRAY,SDESRGIEN,SDESRSIEN)
  1. I HASFIELDS M RETURN=ELGFIELDSARRAY
  1. ;
  1. D BUILDJSON^SDESBUILDJSON(.RETURNJSON,.RETURN)
  1. D CLEANUP
  1. Q
  1. ;
  1. ADDRGI(RETURNJSON,SDESRGIEN,SDESRSIEN) ;Adds entry SDESRSIEN to SDESRGIEN in the SDEC RESOURCE GROUP file
  1. ;
  1. ; Input:
  1. ; SDESRGIEN [Required] - Resource Group Id - Pointer to SDEC RESOURCE GROUP file
  1. ; SDESRSIEN [Required] - Pointer to SDEC RESOURCE file
  1. ;
  1. ; Output:
  1. ; RETURNJSON - Returns Status (Success or Failure)
  1. ;
  1. ; Called by SDES ADD RESGRP ITEM
  1. ;
  1. N RETURN,HASFIELDS,ELGFIELDSARRAY,ELGRETURN
  1. N ISRGIENVALID,ISRSIENVALID
  1. S (RETURN,ELGFIELDSARRAY,HASFIELDS)=""
  1. ;
  1. S ISRGIENVALID=$$VALIDATERGIEN(.ERRORS,$G(SDESRGIEN))
  1. I '$D(ERRORS) S ISRSIENVALID=$$VALIDATERSIEN(.ERRORS,0,$G(SDESRSIEN))
  1. ;
  1. I $D(ERRORS) M RETURN=ERRORS
  1. I '$D(ERRORS) S HASFIELDS=$$RGIADD(.ELGFIELDSARRAY,SDESRGIEN,SDESRSIEN)
  1. I HASFIELDS M RETURN=ELGFIELDSARRAY
  1. ;
  1. D BUILDJSON^SDESBUILDJSON(.RETURNJSON,.RETURN)
  1. D CLEANUP
  1. Q
  1. ;
  1. VALIDATERGIEN(ERRORS,SDESRGIEN) ; Validate Resource Group IEN
  1. N ERRORFLAG
  1. I SDESRGIEN="" S ERRORFLAG=1 D ERRLOG^SDESJSON(.ERRORS,312) Q $D(ERRORFLAG) ; Missing Resource Gruop IEN
  1. I SDESRGIEN'="" I '$D(^SDEC(409.832,SDESRGIEN,0)) S ERRORFLAG=1 D ERRLOG^SDESJSON(.ERRORS,276) Q $D(ERRORFLAG) ; Invalid Resource Group
  1. Q $D(ERRORFLAG)
  1. ;
  1. VALIDATERSIEN(ERRORS,SDDLTFLAG,SDESRSIEN) ; Validate Resource IEN
  1. N ERRORFLAG,SDDA
  1. I SDESRSIEN="" S ERRORFLAG=1 D ERRLOG^SDESJSON(.ERRORS,69) Q $D(ERRORFLAG) ; Missing Resource Item IEN
  1. I SDESRSIEN'="" I '$D(^SDEC(409.831,SDESRSIEN,0)) S ERRORFLAG=1 D ERRLOG^SDESJSON(.ERRORS,70) Q $D(ERRORFLAG) ; Invalid Resource Item
  1. I SDDLTFLAG D
  1. .S SDDA=$O(^SDEC(409.832,SDESRGIEN,1,"B",SDESRSIEN,0))
  1. .I $G(SDDA)="" S ERRORFLAG=1 D ERRLOG^SDESJSON(.ERRORS,313) Q
  1. .I '$D(^SDEC(409.832,SDESRGIEN,1,SDDA,0)) S ERRORFLAG=1 D ERRLOG^SDESJSON(.ERRORS,313) Q
  1. I 'SDDLTFLAG D
  1. .I $D(^SDEC(409.832,SDESRGIEN,1,"B",SDESRSIEN)) S ERRORFLAG=1 D ERRLOG^SDESJSON(.ERRORS,311) Q
  1. Q $D(ERRORFLAG)
  1. ;
  1. RGIDEL(ELGARRAY,SDESRGIEN,SDESRSIEN) ; Delete Resource ID from Resource Group File
  1. N HASDATA,SDFDA,SDDA,SDMSG
  1. S SDDA=$O(^SDEC(409.832,SDESRGIEN,1,"B",SDESRSIEN,0))
  1. ; Delete entry SDECIEN1
  1. S SDFDA(409.8321,SDDA_","_SDESRGIEN_",",.01)="@"
  1. D FILE^DIE(,"SDFDA","SDMSG")
  1. I $D(SDMSG) S ELGARRAY("Status")="0^Error in deleting Resource Item."
  1. I '$D(SDMSG) S ELGARRAY("Status")="1^Resource Item is successfully deleted."
  1. S HASDATA=($D(ELGARRAY)>1)
  1. Q HASDATA
  1. ;
  1. RGIADD(ELGARRAY,SDESRGIEN,SDESRSIEN) ; Add Resource ID to Resource Group File
  1. N HASDATA,SDFDA,SDMSG,SDESIENS
  1. ;
  1. S SDESIENS="+1,"_SDESRGIEN_","
  1. S SDFDA(409.8321,SDESIENS,.01)=SDESRSIEN ;RESOURCEID
  1. K SDESRGIEN
  1. D UPDATE^DIE("","SDFDA","SDESRGIEN","SDMSG")
  1. I $D(SDMSG) S ELGARRAY("Status")="0^Error in adding Resource Item."
  1. I '$D(SDMSG) S ELGARRAY("Status")="1^Resource Item is successfully added."
  1. S HASDATA=($D(ELGARRAY)>1)
  1. Q HASDATA
  1. ;
  1. CLEANUP ;
  1. K RETURNERROR,ERRORFLAG,ERRORS,ISRGIENVALID,ISRGNAMEVALID
  1. K RETURN,HASFIELDS,ELGFIELDSARRAY,ELGRETURN
  1. Q
  1. ;