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

MAGVAU01.m

Go to the documentation of this file.
  1. MAGVAU01 ;WOIFO/NST/DAC - Update records in storage files ; 14 Sep 2011 1:53 PM
  1. ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
  1. ;; Per VHA Directive 2004-038, this routine should not be modified.
  1. ;; +---------------------------------------------------------------+
  1. ;; | Property of the US Government. |
  1. ;; | No permission to copy or redistribute this software is given. |
  1. ;; | Use of unreleased versions of this software requires the user |
  1. ;; | to execute a written test agreement with the VistA Imaging |
  1. ;; | Development Office of the Department of Veterans Affairs, |
  1. ;; | telephone (301) 734-0100. |
  1. ;; | The Food and Drug Administration classifies this software as |
  1. ;; | a medical device. As such, it may not be changed in any way. |
  1. ;; | Modifications to this software may result in an adulterated |
  1. ;; | medical device under 21CFR820, the use of which is considered |
  1. ;; | to be a violation of US Federal Statutes. |
  1. ;; +---------------------------------------------------------------+
  1. ;;
  1. Q
  1. ;
  1. ;***** Update ARTIFACT DESCRIPTOR file (#2006.915)
  1. ;
  1. ; RPC: MAGVA SET AD RETPOL
  1. ;
  1. ; Input Parameters
  1. ; ================
  1. ;
  1. ; MAGPARAM("PK") = IEN
  1. ; MAGPARAM("RETENTION POLICY")
  1. ;
  1. ; Return Values
  1. ; =============
  1. ; if error MAGRY = Failure status ^ Error message
  1. ; if success MAGRY = Success status
  1. ;
  1. UPDAD(MAGRY,MAGPARAM) ; RPC [MAGVA SET AD RETPOL]
  1. K MAGRY
  1. ; Update the record
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.915,.MAGPARAM)
  1. Q
  1. ;
  1. ;***** Update STORAGE PROVIDER file (#2006.917)
  1. ;
  1. ; RPC: MAGVA UPDATE PROVIDER
  1. ;
  1. ; Input Parameters
  1. ; ================
  1. ;
  1. ; MAGPARAM("PK") = IEN
  1. ; MAGPARAM("STORAGE PLACE")
  1. ; MAGPARAM("ARCHIVE")
  1. ; MAGPARAM("PRIMARY STORAGE")
  1. ; MAGPARAM("ACTIVE")
  1. ; MAGPARAM("WRITABLE")
  1. ;
  1. ; Return Values
  1. ; =============
  1. ; if error MAGRY = Failure status ^ Error message^
  1. ; if success MAGRY = Success status
  1. ;
  1. UPDPRV(MAGRY,MAGPARAM) ; RPC [MAGVA UPDATE PROVIDER]
  1. K MAGRY
  1. ; Update the record
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.917,.MAGPARAM)
  1. Q
  1. ;***** Update STORAGE PROVIDER AVAILABILITY file (#2006.924)
  1. ;
  1. ; RPC: MAGVA UPDATE PROVAVAILTY
  1. ;
  1. ; Input Parameters
  1. ; ================
  1. ;
  1. ; MAGPARAM("PK") = IEN
  1. ; MAGPARAM("START TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
  1. ; MAGPARAM("END TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
  1. ; MAGPARAM("ACTIVE")= 0/1
  1. ;
  1. ; Return Values
  1. ; =============
  1. ; if error MAGRY = Failure status ^ Error message^
  1. ; if success MAGRY = Success status
  1. ;
  1. UPDPA(MAGRY,MAGPARAM) ; RPC [MAGVA UPDATE PROVAVAILTY]
  1. K MAGRY
  1. ; Update the record
  1. S MAGPARAM("START TIME")=$$IDF2FM^MAGVAF01($G(MAGPARAM("START TIME")))
  1. S MAGPARAM("END TIME")=$$IDF2FM^MAGVAF01($G(MAGPARAM("END TIME")))
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.924,.MAGPARAM)
  1. Q
  1. ;
  1. ;***** Set the Last Access Date/Time to current date/time
  1. ; for artifact instance records in ARTIFACT INSTANCE file (#2006.918)
  1. ; and ARTIFACT file (#2006.916)
  1. ;
  1. ; RPC: MAGVA UPDATE LAST ACCESS DT
  1. ;
  1. ; Input Parameters
  1. ; ================
  1. ;
  1. ; MAGPARAM("PK") = PK (IEN) of the record in ARTIFACT INSTANCE file (#2006.918)
  1. ;
  1. ; Return Values
  1. ; =============
  1. ; if error MAGRY = Failure status ^ Error message^
  1. ; if success MAGRY = Success status
  1. ;
  1. UPDLADT(MAGRY,MAGAPARAM) ; RPC [MAGVA UPDATE LAST ACCESS DT]
  1. K MAGRY
  1. N NOW,PARAM
  1. N FILE,FLDAFK,IENS
  1. N OUT,ERR,MAGRESA
  1. N VALAFK
  1. N IEN ; PK in Artifact Instance file (#2006.918)
  1. S IEN=$G(MAGAPARAM("PK"))
  1. ; Check for PK
  1. I IEN="" S MAGRY=$$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"Input parameter PK is required." Q ; Error getting the IEN
  1. ; Get Artifact Value
  1. S FILE=2006.918
  1. S IENS=IEN_","
  1. S FLDAFK=$$GETFLDID^MAGVAF01(FILE,"ARTIFACT")
  1. S VALAFK=$$GET1^DIQ(FILE,IENS,FLDAFK,"I") ; get ARTIFACT value
  1. ;
  1. ; Update files
  1. S NOW=$$NOW^XLFDT ; Get current datetime
  1. K PARAM
  1. S PARAM("PK")=IEN
  1. S PARAM("LAST ACCESS DATE/TIME")=NOW
  1. ; Update the last access datetime field in Artifact Instance file (#2006.918)
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.918,.PARAM)
  1. I '$$ISOK^MAGVAF02(MAGRY) Q ; Quit if error. MAGRY is already set
  1. ; Update Artifact file
  1. K PARAM,MAGRY
  1. S PARAM("PK")=VALAFK
  1. S PARAM("LAST ACCESS DATE/TIME")=NOW
  1. ; Update the last access datetime field in Artifact file (#2006.916)
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.916,.PARAM)
  1. Q
  1. ;
  1. ;***** Update ARTIFACT RETENTION POLICY file (#2006.921)
  1. ; If "SATISFIED" is sent and the value equals true (1) then
  1. ; set SATISFIED DATE/TIME to current date/time
  1. ;
  1. ; RPC: MAGVA UPDATE ARETPOL
  1. ;
  1. ; Input Parameters
  1. ; ================
  1. ;
  1. ; MAGPARAM("PK") = IEN of record in ARTIFACT RETENTION POLICY file (#2006.921)
  1. ; MAGPARAM("ACTIVE") = 0/1
  1. ;
  1. ; Return Values
  1. ; =============
  1. ; if error MAGRY = Failure status ^ Error message^
  1. ; if success MAGRY = Success status
  1. ;
  1. UPDARP(MAGRY,MAGPARAM) ; RPC [MAGVA UPDATE ARETPOL]
  1. K MAGRY
  1. S MAGPARAM("SATISFIED DATE/TIME")=$$IDF2FM^MAGVAF01($G(MAGPARAM("SATISFIED DATE/TIME")))
  1. ; Update the record
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.921,.MAGPARAM)
  1. Q
  1. ;
  1. ;***** Update RETENTION POLICY STORAGE PROVIDER MAP file (#2006.923)
  1. ;
  1. ; RPC: MAGVA UPDATE RETPOL PROV MAP
  1. ;
  1. ; Input Parameters
  1. ; ================
  1. ;
  1. ; MAGPARAM("PK") = IEN
  1. ; MAGPARAM("SYNCHRONOUS") = 0/1
  1. ; MAGPARAM("OFFSITE") = 0/1
  1. ;
  1. ; Return Values
  1. ; =============
  1. ; if error MAGRY = Failure status ^ Error message^
  1. ; if success MAGRY = Success status
  1. ;
  1. UPDRPPM(MAGRY,MAGPARAM) ; RPC [MAGVA UPDATE RETPOL PROV MAP]
  1. K MAGRY
  1. ; Update the record
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.923,.MAGPARAM)
  1. Q
  1. ;
  1. ;***** Update ARTIFACT file (#2006.916)
  1. ;
  1. ; RPC: MAGVA UPDATE ARTIFACT
  1. ;
  1. ; Input Parameters
  1. ; ================
  1. ;
  1. ; MAGPARAM("PK") = IEN
  1. ; MAGPARAM("CRC")
  1. ; MAGPARAM("SIZE IN BYTES")
  1. ;
  1. ; Return Values
  1. ; =============
  1. ; if error MAGRY = Failure status ^ Error message^
  1. ; if success MAGRY = Success status
  1. ;
  1. UPDAFACT(MAGRY,MAGPARAM) ; RPC [MAGVA UPDATE ARTIFACT]
  1. K MAGRY
  1. ; Make sure CREATING APPLICATION and CREATED DATE/TIME are not altered
  1. K MAGPARAM("CREATING APPLICATION")
  1. K MAGPARAM("CREATED DATE/TIME")
  1. ; Update the record
  1. D UPDRCD^MAGVAF01(.MAGRY,2006.916,.MAGPARAM)
  1. Q