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

MAGVAG01.m

Go to the documentation of this file.
  1. MAGVAG01 ;WOIFO/NST - Utilities for RPC calls ; 13 Feb 2012 4:18 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. ;***** Returns all records in RETENTION POLICY file (#2006.914)
  1. ;
  1. ; RPC: MAGVA GET ALL RETPOLS
  1. ;
  1. ; if error found during execution
  1. ; MAGRY(0) = Failure status ^ "Error getting the list"
  1. ; if success
  1. ; MAGRY(0) = Success status ^^#CNT" - where #CNT is a number of records returned
  1. ; MAGRY(1) = "^" delimited string with all field names in RETENTION POLICY file (#2006.914)
  1. ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
  1. ;
  1. GETRP(MAGRY) ; RPC [MAGVA GET ALL RETPOLS]
  1. D GALLLST^MAGVAF03(.MAGRY,2006.914,"")
  1. Q
  1. ;
  1. ;***** Returns all records in ARTIFACT DESCRIPTOR file (#2006.915)
  1. ;
  1. ; RPC: MAGVA GET ALL ADS
  1. ;
  1. ; if error found during execution
  1. ; MAGRY(0) = "0^Error getting the list"
  1. ; if success
  1. ; MAGRY(0) = "1^^#CNT" - where #CNT is a number of records returned
  1. ; MAGRY(1) = "^" delimited string with all field names in ARTIFACT DESCRIPTOR file (#2006.915)
  1. ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
  1. ;
  1. GETAD(MAGRY) ; RPC [MAGVA GET ALL ADS]
  1. D GALLLST^MAGVAF03(.MAGRY,2006.915,"")
  1. Q
  1. ;
  1. ;***** Returns all records in STORAGE PROVIDER AVAILABILITY file (#2006.924)
  1. ;
  1. ; RPC: MAGVA GET ALL PROVAVAILS
  1. ;
  1. ; if error found during execution
  1. ; MAGRY(0) = Failure status ^ "Error getting the list"
  1. ; if success
  1. ; MAGRY(0) = Success status ^^ #CNT - where #CNT is a number of records returned
  1. ; MAGRY(1) = "^" delimited string with all field names in STORAGE PROVIDER AVAILABILITY file (#2006.924)
  1. ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
  1. ;
  1. GETPA(MAGRY) ; RPC [MAGVA GET ALL PROVAVAILS]
  1. D GALLLST^MAGVAF03(.MAGRY,2006.924,"")
  1. Q
  1. ;
  1. ;***** Returns all records in STORAGE PROVIDER file (#2006.917)
  1. ;
  1. ; RPC: MAGVA GET ALL PROVIDERS
  1. ;
  1. ; if error found during execution
  1. ; MAGRY(0) = Failure status ^ "Error getting the list"
  1. ; if success
  1. ; MAGRY(0) = Success status^^#CNT - where #CNT is a number of records returned
  1. ; MAGRY(1) = "^" delimited string with all field names in STORAGE PROVIDER file (#2006.917)
  1. ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
  1. ;
  1. GETP(MAGRY) ; RPC [MAGVA GET ALL PROVIDERS]
  1. D GALLLST^MAGVAF03(.MAGRY,2006.917,"")
  1. Q
  1. ;
  1. ;***** Returns all records in RETENTION POLICY STORAGE PROVIDER MAP file (#2006.923)
  1. ;
  1. ; RPC: MAGVA GET ALL RETPOL PROV MAPS
  1. ;
  1. ; if error found during execution
  1. ; MAGRY(0) = Failure status ^ "Error getting the list"
  1. ; if success
  1. ; MAGRY(0) = Success status ^^#CNT" - where #CNT is a number of records returned
  1. ; MAGRY(1) = "^" delimited string with all field names in
  1. ; RETENTION POLICY STORAGE PROVIDER MAP file (#2006.923)
  1. ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
  1. ;
  1. GETRPPM(MAGRY) ; RPC [MAGVA GET ALL RETPOL PROV MAPS]
  1. D GALLLST^MAGVAF03(.MAGRY,2006.923,"")
  1. Q