MAGVAC01 ;WOIFO/NST - Add records to storage files ; 22 Apr 2010 3:59 PM
;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
;
;***** Add a new record to RETENTION POLICY file (#2006.914)
;
; RPC:MAGVA CREATE RETPOL
;
; Input Parameters
; ================
;
; MAGPARAM("ARCHIVE DURATION TRIGGER")
; MAGPARAM("ARCHIVE DURATION YEARS")
; MAGPARAM("BUSINESS KEY")
; MAGPARAM("DISPLAY NAME")
; MAGPARAM("MINIMUM ARCHIVE COPIES")
; MAGPARAM("MINIMUM OFFSITE COPIES")
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDRP(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE RETPOL]
N MAGWP
K MAGRY
; Check for uniqueness of business key among active Retention Policies
I $G(MAGPARAM("BUSINESS KEY"))'="" D Q:$G(MAGRY)'=""
. I $O(^MAGV(2006.914,"BKEYACT",MAGPARAM("BUSINESS KEY"),""))'="" D
. . S MAGRY=$$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"Active business key """_MAGPARAM("BUSINESS KEY")_""" already exists."
. Q
;
S MAGPARAM("ACTIVE")=1
D ADDRCD^MAGVAF01(.MAGRY,2006.914,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to ARTIFACT file (#2006.916)
;
; RPC:MAGVA CREATE ARTIFACT W KL
;
; Input Parameters
; ================
;
; MAGPARAM("ARTIFACT DESCRIPTOR")
; MAGPARAM("ARTIFACT TOKEN")
; MAGPARAM("CRC")
; MAGPARAM("CREATING APPLICATION")
; MAGPARAM("LAST ACCESS DATE/TIME")
; MAGPARAM("SIZE IN BYTES")
;
; Artifact KEYLIST values
; KLIST(1) = First level Key
; KLIST(2) = Second level Key
; ...
; KLIST(N) = N-th level Key
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDAFACT(MAGRY,MAGPARAM,KLIST) ; RPC [MAGVA CREATE ARTIFACT W KL]
; build KLIST first - workaround for Old broker listener
N L,LL
S L="KLIST",LL=0
K KLIST
F S L=$O(MAGPARAM(L)) Q:(L="")!($E(L,1,5)'="KLIST") S LL=LL+1,KLIST(LL)=MAGPARAM(L) K MAGPARAM(L)
;
N MAGWP,FILE,MAGAPP,PFILE
K MAGRY
; Check ARTIFACT TOKEN presents
S FILE=2006.916
I $G(MAGPARAM("ARTIFACT TOKEN"))="" D Q
. S MAGRY=$$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"ARTIFACT TOKEN is required"
. Q
; check for "ARTIFACT TOKEN" for uniqueness first
I $D(^MAGV(FILE,"B",MAGPARAM("ARTIFACT TOKEN"))) D Q
. S MAGRY=$$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"ARTIFACT TOKEN is not unique"
. Q
;
; Get creating application or create a new one
S PFILE=$$GETFILEP^MAGVAF05(FILE,"CREATING APPLICATION") ; the file that field points to
S MAGRY=$$GETIEN^MAGVAF05(PFILE,MAGPARAM("CREATING APPLICATION"),1)
I '$$ISOK^MAGVAF02(MAGRY) Q ; Quit if error. MAGRY is already set
S MAGPARAM("CREATING APPLICATION")=$$GETVAL^MAGVAF02(MAGRY) ; Set the internal value
;
; get the KEYLIST
D GETKLFK^MAGVAKL1(.MAGRY,.KLIST)
I '$$ISOK^MAGVAF02(MAGRY) Q ; Quit if error. MAGRY is already set
S MAGPARAM("KEYLIST")=$$GETVAL^MAGVAF02(MAGRY) ; Set the FK
S MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
D ADDRCD^MAGVAF01(.MAGRY,FILE,.MAGPARAM,.MAGWP)
Q
;
;***** Add an Artifact Retention Policy (#2006.921) record
;
; RPC:MAGVA CREATE ARETPOL
;
; Input Parameters
;
; MAGPARAM("ARTIFACT") = A pointer to ARTIFACT file (#2006.916)
; MAGPARAM("RETENTION POLICY") = A pointer to RETENTION POLICY file (#2006.914)
; MAGPARAM("SATISFIED DATE/TIME") = DateTime in IDF Format (YYYYMMDD.HHMMSS)
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDARP(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE ARETPOL]
N MAGWP
K MAGRY
S MAGPARAM("SATISFIED DATE/TIME")=$$IDF2FM^MAGVAF01($G(MAGPARAM("SATISFIED DATE/TIME")))
S MAGPARAM("ACTIVE")=1
S MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
D ADDRCD^MAGVAF01(.MAGRY,2006.921,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to RETENTION POLICY FULFILLMENT file (#2006.922)
;
; RPC:MAGVA CREATE RETPOLFF
;
; Input Parameters
; ================
;
; MAGPARAM("ARTIFACT RETENTION POLICY") = A pointer to ARTIFACT RETENTION POLICY file (#2006.921)
; MAGPARAM("ARTIFACT INSTANCE") = A pointer to ARTIFACT INSTANCE file (#2006.918)
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDARPF(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE RETPOLFF]
N MAGWP
K MAGRY
S MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
D ADDRCD^MAGVAF01(.MAGRY,2006.922,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to STORAGE PROVIDER AVAILABILITY file (#2006.924)
;
; RPC:MAGVA CREATE PROVAVAILTY
;
; Input Parameters
;
; MAGPARAM("STORAGE PROVIDER") = A pointer to STORAGE PROVIDER file (#2006.917)
; MAGPARAM("SOURCE PLACE") = A pointer to IMAGING SITE PARAMETERS file (#2006.1)
; MAGPARAM("START TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
; MAGPARAM("END TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDPA(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE PROVAVAILTY]
N MAGWP
K MAGRY
; convert date time fields to FileMan date/time format
S MAGPARAM("START TIME")=$$IDF2FM^MAGVAF01($G(MAGPARAM("START TIME")))
S MAGPARAM("END TIME")=$$IDF2FM^MAGVAF01($G(MAGPARAM("END TIME")))
; Add the record
D ADDRCD^MAGVAF01(.MAGRY,2006.924,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to STORAGE PROVIDER file (#2006.917)
;
; RPC: MAGVA CREATE PROVIDER
;
; Input Parameters
; ================
;
; MAGPARAM("STORAGE PROVIDER TYPE")
; MAGPARAM("STORAGE PLACE")
; MAGPARAM("ARCHIVE")
; MAGPARAM("PRIMARY STORAGE")
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDPRV(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE PROVIDER]
N MAGWP
K MAGRY
S MAGPARAM("WRITABLE")=1
S MAGPARAM("ACTIVE")=1
; Add the record
D ADDRCD^MAGVAF01(.MAGRY,2006.917,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to ARTIFACT INSTANCE file (#2006.918)
;
; RPC: MAGVA CREATE AINSTANCE
;
; Input Parameters
; ================
;
; MAGPARAM("ARTIFACT")
; MAGPARAM("STORAGE PROVIDER")
; MAGPARAM("FILEREF")
; MAGPARAM("DISK VOLUME")
; MAGPARAM("FILEPATH")
; MAGURL(1..n) = URL value
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDAINST(MAGRY,MAGPARAM,MAGURL) ; RPC [MAGVA CREATE AINSTANCE]
; build MAGURL first - workaround for Old broker listener
N L,LL
S L="MAGURL",LL=0
K KLIST
F S L=$O(MAGPARAM(L)) Q:(L="")!($E(L,1,6)'="MAGURL") S LL=LL+1,MAGURL(LL)=MAGPARAM(L) K MAGPARAM(L)
;
N FILE,MAGWP
K MAGRY
S FILE=2006.918
S MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
M MAGWP("URL")=MAGURL
D ADDRCD^MAGVAF01(.MAGRY,FILE,.MAGPARAM,.MAGWP) ; add the record
Q
;
;***** Add a new record to ARTIFACT DESCRIPTOR file (#2006.915)
;
; RPC: MAGVA CREATE AD
;
; Input Parameters
; ================
;
; MAGPARAM("ARTIFACT FORMAT")
; MAGPARAM("ARTIFACT TYPE")
; MAGPARAM("FILE EXTENSION")
; MAGPARAM("ACTIVE")
; MAGPARAM("RETENTION POLICY")
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDAD(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE AD]
N MAGWP
K MAGRY
; Add the record
D ADDRCD^MAGVAF01(.MAGRY,2006.915,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to RETENTION POLICY STORAGE PROVIDER MAP file (#2006.923)
;
; RPC: MAGVA CREATE RETPOL PROV MAP
;
; Input Parameters
; ================
;
; MAGPARAM("RETENTION POLICY") = Pointer to RETENTION POLICY file (#2006.914)
; MAGPARAM("STORAGE PROVIDER") = Pointer to STORAGE PROVIDER file (#2006.917)
; MAGPARAM("SOURCE PLACE") = Pointer to IMAGING SITE PARAMETERS file (#2006.1)
; MAGPARAM("SYNCHRONOUS") = 0/1
; MAGPARAM("OFFSITE") = 0/1
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDRPPM(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE RETPOL PROV MAP]
N MAGWP
K MAGRY
; Add the record
D ADDRCD^MAGVAF01(.MAGRY,2006.923,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to TRANSFER STATISTICS file (#2006.925)
;
; RPC: MAGVA CREATE TRF STATS
;
; Input Parameters
; ================
;
; MAGPARAM("DURATION IN MILLISECONDS")
; MAGPARAM("ENDPOINT PLACE") = Pointer to IMAGING SITE PARAMETERS file (#2006.1)
; MAGPARAM("STORAGE PROVIDER") = Pointer to STORAGE PROVIDER file (#2006.917)
; MAGPARAM("SIZE IN BYTES")
; MAGPARAM("START DATE/TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
;
; Return Values
; =============
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDTRFS(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE TRF STATS]
N MAGWP
K MAGRY
; Add the record
S MAGPARAM("START DATE/TIME")=$$IDF2FM^MAGVAF01($G(MAGPARAM("START DATE/TIME")))
D ADDRCD^MAGVAF01(.MAGRY,2006.925,.MAGPARAM,.MAGWP)
Q
;
;***** Add a new record to STORAGE TRANSACTION file (#2006.926)
;
; RPC: MAGVA CREATE STORAGE TA
;
; Input Parameters
; ================
;
; MAGPARAM("ARTIFACT") = Pointer to ARTIFACT file (#2006.916)
; MAGPARAM("STORAGE PROVIDER") = Pointer to STORAGE PROVIDER file (#2006.917)
; MAGPARAM("SUCCEEDED") = 0/1
; MAGPARAM("TRANSACTION TYPE") =
; MAGPARAM("INITIATING APPLICATION") =
;
; MAGMSG(1..n) = MESSAGE - optional
;
; MAGMSG(1..n) = MESSAGE
; Return Values
; =============
;
; if error MAGRY = Failure status ^Error message^
; if success MAGRY = Success status ^^IEN - IEN of the new record
;
ADDSTTA(MAGRY,MAGPARAM,MAGMSG) ; RPC [MAGVA CREATE STORAGE TA]
; build MAGMSG first - workaround for Old broker listener
N L,LL
S L="MAGMSG",LL=0
K MAGMSG
F S L=$O(MAGPARAM(L)) Q:(L="")!($E(L,1,6)'="MAGMSG") S LL=LL+1,MAGMSG(LL)=MAGPARAM(L) K MAGPARAM(L)
;
N FILE,MAGWP,PFILE
K MAGRY
S FILE=2006.926
;
; Get creating application or create a new one
S PFILE=$$GETFILEP^MAGVAF05(FILE,"INITIATING APPLICATION")
S MAGRY=$$GETIEN^MAGVAF05(PFILE,MAGPARAM("INITIATING APPLICATION"),1)
I '$$ISOK^MAGVAF02(MAGRY) Q ; Quit if error. MAGRY is already set
S MAGPARAM("INITIATING APPLICATION")=$$GETVAL^MAGVAF02(MAGRY) ; Set the internal value
;
S MAGPARAM("TRANSACTION DATE/TIME")=$$NOW^XLFDT
M MAGWP("MESSAGE")=MAGMSG
D ADDRCD^MAGVAF01(.MAGRY,FILE,.MAGPARAM,.MAGWP) ; add the record
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVAC01 12199 printed Sep 23, 2025@19:45:31 Page 2
MAGVAC01 ;WOIFO/NST - Add records to storage files ; 22 Apr 2010 3:59 PM
+1 ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ;
+19 ;***** Add a new record to RETENTION POLICY file (#2006.914)
+20 ;
+21 ; RPC:MAGVA CREATE RETPOL
+22 ;
+23 ; Input Parameters
+24 ; ================
+25 ;
+26 ; MAGPARAM("ARCHIVE DURATION TRIGGER")
+27 ; MAGPARAM("ARCHIVE DURATION YEARS")
+28 ; MAGPARAM("BUSINESS KEY")
+29 ; MAGPARAM("DISPLAY NAME")
+30 ; MAGPARAM("MINIMUM ARCHIVE COPIES")
+31 ; MAGPARAM("MINIMUM OFFSITE COPIES")
+32 ;
+33 ; Return Values
+34 ; =============
+35 ; if error MAGRY = Failure status ^Error message^
+36 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+37 ;
ADDRP(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE RETPOL]
+1 NEW MAGWP
+2 KILL MAGRY
+3 ; Check for uniqueness of business key among active Retention Policies
+4 IF $GET(MAGPARAM("BUSINESS KEY"))'=""
Begin DoDot:1
+5 IF $ORDER(^MAGV(2006.914,"BKEYACT",MAGPARAM("BUSINESS KEY"),""))'=""
Begin DoDot:2
+6 SET MAGRY=$$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"Active business key """_MAGPARAM("BUSINESS KEY")_""" already exists."
End DoDot:2
+7 QUIT
End DoDot:1
if $GET(MAGRY)'=""
QUIT
+8 ;
+9 SET MAGPARAM("ACTIVE")=1
+10 DO ADDRCD^MAGVAF01(.MAGRY,2006.914,.MAGPARAM,.MAGWP)
+11 QUIT
+12 ;
+13 ;***** Add a new record to ARTIFACT file (#2006.916)
+14 ;
+15 ; RPC:MAGVA CREATE ARTIFACT W KL
+16 ;
+17 ; Input Parameters
+18 ; ================
+19 ;
+20 ; MAGPARAM("ARTIFACT DESCRIPTOR")
+21 ; MAGPARAM("ARTIFACT TOKEN")
+22 ; MAGPARAM("CRC")
+23 ; MAGPARAM("CREATING APPLICATION")
+24 ; MAGPARAM("LAST ACCESS DATE/TIME")
+25 ; MAGPARAM("SIZE IN BYTES")
+26 ;
+27 ; Artifact KEYLIST values
+28 ; KLIST(1) = First level Key
+29 ; KLIST(2) = Second level Key
+30 ; ...
+31 ; KLIST(N) = N-th level Key
+32 ;
+33 ; Return Values
+34 ; =============
+35 ; if error MAGRY = Failure status ^Error message^
+36 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+37 ;
ADDAFACT(MAGRY,MAGPARAM,KLIST) ; RPC [MAGVA CREATE ARTIFACT W KL]
+1 ; build KLIST first - workaround for Old broker listener
+2 NEW L,LL
+3 SET L="KLIST"
SET LL=0
+4 KILL KLIST
+5 FOR
SET L=$ORDER(MAGPARAM(L))
if (L="")!($EXTRACT(L,1,5)'="KLIST")
QUIT
SET LL=LL+1
SET KLIST(LL)=MAGPARAM(L)
KILL MAGPARAM(L)
+6 ;
+7 NEW MAGWP,FILE,MAGAPP,PFILE
+8 KILL MAGRY
+9 ; Check ARTIFACT TOKEN presents
+10 SET FILE=2006.916
+11 IF $GET(MAGPARAM("ARTIFACT TOKEN"))=""
Begin DoDot:1
+12 SET MAGRY=$$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"ARTIFACT TOKEN is required"
+13 QUIT
End DoDot:1
QUIT
+14 ; check for "ARTIFACT TOKEN" for uniqueness first
+15 IF $DATA(^MAGV(FILE,"B",MAGPARAM("ARTIFACT TOKEN")))
Begin DoDot:1
+16 SET MAGRY=$$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"ARTIFACT TOKEN is not unique"
+17 QUIT
End DoDot:1
QUIT
+18 ;
+19 ; Get creating application or create a new one
+20 ; the file that field points to
SET PFILE=$$GETFILEP^MAGVAF05(FILE,"CREATING APPLICATION")
+21 SET MAGRY=$$GETIEN^MAGVAF05(PFILE,MAGPARAM("CREATING APPLICATION"),1)
+22 ; Quit if error. MAGRY is already set
IF '$$ISOK^MAGVAF02(MAGRY)
QUIT
+23 ; Set the internal value
SET MAGPARAM("CREATING APPLICATION")=$$GETVAL^MAGVAF02(MAGRY)
+24 ;
+25 ; get the KEYLIST
+26 DO GETKLFK^MAGVAKL1(.MAGRY,.KLIST)
+27 ; Quit if error. MAGRY is already set
IF '$$ISOK^MAGVAF02(MAGRY)
QUIT
+28 ; Set the FK
SET MAGPARAM("KEYLIST")=$$GETVAL^MAGVAF02(MAGRY)
+29 SET MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
+30 DO ADDRCD^MAGVAF01(.MAGRY,FILE,.MAGPARAM,.MAGWP)
+31 QUIT
+32 ;
+33 ;***** Add an Artifact Retention Policy (#2006.921) record
+34 ;
+35 ; RPC:MAGVA CREATE ARETPOL
+36 ;
+37 ; Input Parameters
+38 ;
+39 ; MAGPARAM("ARTIFACT") = A pointer to ARTIFACT file (#2006.916)
+40 ; MAGPARAM("RETENTION POLICY") = A pointer to RETENTION POLICY file (#2006.914)
+41 ; MAGPARAM("SATISFIED DATE/TIME") = DateTime in IDF Format (YYYYMMDD.HHMMSS)
+42 ;
+43 ; Return Values
+44 ; =============
+45 ; if error MAGRY = Failure status ^Error message^
+46 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+47 ;
ADDARP(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE ARETPOL]
+1 NEW MAGWP
+2 KILL MAGRY
+3 SET MAGPARAM("SATISFIED DATE/TIME")=$$IDF2FM^MAGVAF01($GET(MAGPARAM("SATISFIED DATE/TIME")))
+4 SET MAGPARAM("ACTIVE")=1
+5 SET MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
+6 DO ADDRCD^MAGVAF01(.MAGRY,2006.921,.MAGPARAM,.MAGWP)
+7 QUIT
+8 ;
+9 ;***** Add a new record to RETENTION POLICY FULFILLMENT file (#2006.922)
+10 ;
+11 ; RPC:MAGVA CREATE RETPOLFF
+12 ;
+13 ; Input Parameters
+14 ; ================
+15 ;
+16 ; MAGPARAM("ARTIFACT RETENTION POLICY") = A pointer to ARTIFACT RETENTION POLICY file (#2006.921)
+17 ; MAGPARAM("ARTIFACT INSTANCE") = A pointer to ARTIFACT INSTANCE file (#2006.918)
+18 ;
+19 ; Return Values
+20 ; =============
+21 ; if error MAGRY = Failure status ^Error message^
+22 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+23 ;
ADDARPF(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE RETPOLFF]
+1 NEW MAGWP
+2 KILL MAGRY
+3 SET MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
+4 DO ADDRCD^MAGVAF01(.MAGRY,2006.922,.MAGPARAM,.MAGWP)
+5 QUIT
+6 ;
+7 ;***** Add a new record to STORAGE PROVIDER AVAILABILITY file (#2006.924)
+8 ;
+9 ; RPC:MAGVA CREATE PROVAVAILTY
+10 ;
+11 ; Input Parameters
+12 ;
+13 ; MAGPARAM("STORAGE PROVIDER") = A pointer to STORAGE PROVIDER file (#2006.917)
+14 ; MAGPARAM("SOURCE PLACE") = A pointer to IMAGING SITE PARAMETERS file (#2006.1)
+15 ; MAGPARAM("START TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
+16 ; MAGPARAM("END TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
+17 ;
+18 ; Return Values
+19 ; =============
+20 ; if error MAGRY = Failure status ^Error message^
+21 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+22 ;
ADDPA(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE PROVAVAILTY]
+1 NEW MAGWP
+2 KILL MAGRY
+3 ; convert date time fields to FileMan date/time format
+4 SET MAGPARAM("START TIME")=$$IDF2FM^MAGVAF01($GET(MAGPARAM("START TIME")))
+5 SET MAGPARAM("END TIME")=$$IDF2FM^MAGVAF01($GET(MAGPARAM("END TIME")))
+6 ; Add the record
+7 DO ADDRCD^MAGVAF01(.MAGRY,2006.924,.MAGPARAM,.MAGWP)
+8 QUIT
+9 ;
+10 ;***** Add a new record to STORAGE PROVIDER file (#2006.917)
+11 ;
+12 ; RPC: MAGVA CREATE PROVIDER
+13 ;
+14 ; Input Parameters
+15 ; ================
+16 ;
+17 ; MAGPARAM("STORAGE PROVIDER TYPE")
+18 ; MAGPARAM("STORAGE PLACE")
+19 ; MAGPARAM("ARCHIVE")
+20 ; MAGPARAM("PRIMARY STORAGE")
+21 ;
+22 ; Return Values
+23 ; =============
+24 ; if error MAGRY = Failure status ^Error message^
+25 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+26 ;
ADDPRV(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE PROVIDER]
+1 NEW MAGWP
+2 KILL MAGRY
+3 SET MAGPARAM("WRITABLE")=1
+4 SET MAGPARAM("ACTIVE")=1
+5 ; Add the record
+6 DO ADDRCD^MAGVAF01(.MAGRY,2006.917,.MAGPARAM,.MAGWP)
+7 QUIT
+8 ;
+9 ;***** Add a new record to ARTIFACT INSTANCE file (#2006.918)
+10 ;
+11 ; RPC: MAGVA CREATE AINSTANCE
+12 ;
+13 ; Input Parameters
+14 ; ================
+15 ;
+16 ; MAGPARAM("ARTIFACT")
+17 ; MAGPARAM("STORAGE PROVIDER")
+18 ; MAGPARAM("FILEREF")
+19 ; MAGPARAM("DISK VOLUME")
+20 ; MAGPARAM("FILEPATH")
+21 ; MAGURL(1..n) = URL value
+22 ;
+23 ; Return Values
+24 ; =============
+25 ; if error MAGRY = Failure status ^Error message^
+26 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+27 ;
ADDAINST(MAGRY,MAGPARAM,MAGURL) ; RPC [MAGVA CREATE AINSTANCE]
+1 ; build MAGURL first - workaround for Old broker listener
+2 NEW L,LL
+3 SET L="MAGURL"
SET LL=0
+4 KILL KLIST
+5 FOR
SET L=$ORDER(MAGPARAM(L))
if (L="")!($EXTRACT(L,1,6)'="MAGURL")
QUIT
SET LL=LL+1
SET MAGURL(LL)=MAGPARAM(L)
KILL MAGPARAM(L)
+6 ;
+7 NEW FILE,MAGWP
+8 KILL MAGRY
+9 SET FILE=2006.918
+10 SET MAGPARAM("CREATED DATE/TIME")=$$NOW^XLFDT
+11 MERGE MAGWP("URL")=MAGURL
+12 ; add the record
DO ADDRCD^MAGVAF01(.MAGRY,FILE,.MAGPARAM,.MAGWP)
+13 QUIT
+14 ;
+15 ;***** Add a new record to ARTIFACT DESCRIPTOR file (#2006.915)
+16 ;
+17 ; RPC: MAGVA CREATE AD
+18 ;
+19 ; Input Parameters
+20 ; ================
+21 ;
+22 ; MAGPARAM("ARTIFACT FORMAT")
+23 ; MAGPARAM("ARTIFACT TYPE")
+24 ; MAGPARAM("FILE EXTENSION")
+25 ; MAGPARAM("ACTIVE")
+26 ; MAGPARAM("RETENTION POLICY")
+27 ;
+28 ; Return Values
+29 ; =============
+30 ; if error MAGRY = Failure status ^Error message^
+31 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+32 ;
ADDAD(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE AD]
+1 NEW MAGWP
+2 KILL MAGRY
+3 ; Add the record
+4 DO ADDRCD^MAGVAF01(.MAGRY,2006.915,.MAGPARAM,.MAGWP)
+5 QUIT
+6 ;
+7 ;***** Add a new record to RETENTION POLICY STORAGE PROVIDER MAP file (#2006.923)
+8 ;
+9 ; RPC: MAGVA CREATE RETPOL PROV MAP
+10 ;
+11 ; Input Parameters
+12 ; ================
+13 ;
+14 ; MAGPARAM("RETENTION POLICY") = Pointer to RETENTION POLICY file (#2006.914)
+15 ; MAGPARAM("STORAGE PROVIDER") = Pointer to STORAGE PROVIDER file (#2006.917)
+16 ; MAGPARAM("SOURCE PLACE") = Pointer to IMAGING SITE PARAMETERS file (#2006.1)
+17 ; MAGPARAM("SYNCHRONOUS") = 0/1
+18 ; MAGPARAM("OFFSITE") = 0/1
+19 ;
+20 ; Return Values
+21 ; =============
+22 ; if error MAGRY = Failure status ^Error message^
+23 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+24 ;
ADDRPPM(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE RETPOL PROV MAP]
+1 NEW MAGWP
+2 KILL MAGRY
+3 ; Add the record
+4 DO ADDRCD^MAGVAF01(.MAGRY,2006.923,.MAGPARAM,.MAGWP)
+5 QUIT
+6 ;
+7 ;***** Add a new record to TRANSFER STATISTICS file (#2006.925)
+8 ;
+9 ; RPC: MAGVA CREATE TRF STATS
+10 ;
+11 ; Input Parameters
+12 ; ================
+13 ;
+14 ; MAGPARAM("DURATION IN MILLISECONDS")
+15 ; MAGPARAM("ENDPOINT PLACE") = Pointer to IMAGING SITE PARAMETERS file (#2006.1)
+16 ; MAGPARAM("STORAGE PROVIDER") = Pointer to STORAGE PROVIDER file (#2006.917)
+17 ; MAGPARAM("SIZE IN BYTES")
+18 ; MAGPARAM("START DATE/TIME") = DateTime in IDF format (YYYYMMDD.HHMMSS)
+19 ;
+20 ; Return Values
+21 ; =============
+22 ; if error MAGRY = Failure status ^Error message^
+23 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+24 ;
ADDTRFS(MAGRY,MAGPARAM) ; RPC [MAGVA CREATE TRF STATS]
+1 NEW MAGWP
+2 KILL MAGRY
+3 ; Add the record
+4 SET MAGPARAM("START DATE/TIME")=$$IDF2FM^MAGVAF01($GET(MAGPARAM("START DATE/TIME")))
+5 DO ADDRCD^MAGVAF01(.MAGRY,2006.925,.MAGPARAM,.MAGWP)
+6 QUIT
+7 ;
+8 ;***** Add a new record to STORAGE TRANSACTION file (#2006.926)
+9 ;
+10 ; RPC: MAGVA CREATE STORAGE TA
+11 ;
+12 ; Input Parameters
+13 ; ================
+14 ;
+15 ; MAGPARAM("ARTIFACT") = Pointer to ARTIFACT file (#2006.916)
+16 ; MAGPARAM("STORAGE PROVIDER") = Pointer to STORAGE PROVIDER file (#2006.917)
+17 ; MAGPARAM("SUCCEEDED") = 0/1
+18 ; MAGPARAM("TRANSACTION TYPE") =
+19 ; MAGPARAM("INITIATING APPLICATION") =
+20 ;
+21 ; MAGMSG(1..n) = MESSAGE - optional
+22 ;
+23 ; MAGMSG(1..n) = MESSAGE
+24 ; Return Values
+25 ; =============
+26 ;
+27 ; if error MAGRY = Failure status ^Error message^
+28 ; if success MAGRY = Success status ^^IEN - IEN of the new record
+29 ;
ADDSTTA(MAGRY,MAGPARAM,MAGMSG) ; RPC [MAGVA CREATE STORAGE TA]
+1 ; build MAGMSG first - workaround for Old broker listener
+2 NEW L,LL
+3 SET L="MAGMSG"
SET LL=0
+4 KILL MAGMSG
+5 FOR
SET L=$ORDER(MAGPARAM(L))
if (L="")!($EXTRACT(L,1,6)'="MAGMSG")
QUIT
SET LL=LL+1
SET MAGMSG(LL)=MAGPARAM(L)
KILL MAGPARAM(L)
+6 ;
+7 NEW FILE,MAGWP,PFILE
+8 KILL MAGRY
+9 SET FILE=2006.926
+10 ;
+11 ; Get creating application or create a new one
+12 SET PFILE=$$GETFILEP^MAGVAF05(FILE,"INITIATING APPLICATION")
+13 SET MAGRY=$$GETIEN^MAGVAF05(PFILE,MAGPARAM("INITIATING APPLICATION"),1)
+14 ; Quit if error. MAGRY is already set
IF '$$ISOK^MAGVAF02(MAGRY)
QUIT
+15 ; Set the internal value
SET MAGPARAM("INITIATING APPLICATION")=$$GETVAL^MAGVAF02(MAGRY)
+16 ;
+17 SET MAGPARAM("TRANSACTION DATE/TIME")=$$NOW^XLFDT
+18 MERGE MAGWP("MESSAGE")=MAGMSG
+19 ; add the record
DO ADDRCD^MAGVAF01(.MAGRY,FILE,.MAGPARAM,.MAGWP)
+20 QUIT
