MAGVIM03 ;WOIFO/MAT,MLH,BT,DAC - RPCs for DICOM Importer II ; Nov 10, 2020@13:55:05
;;3.0;IMAGING;**118,283**;Mar 19, 2002;Build 5;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
;
;+++ Importer II Log Reports: Populate MAGV IMPORT STUDY LOG File (#2006.9421)
;
; RPC: MAGV IMPORT STUDY LOG STORE
;
; Inputs:
; =======
;
; MAGVRET .... Variable for returned message.
; MAGVDUZ .... User DUZ.
; MAGVDUZ2 ... User Login Division.
; MAGVPDFN ... Associated Patient DFN.
; MAGVSACN ... Associated Study Accession Number.
; MAGVSUID ... Study Instance UID.
; MAGVSLOC ... Study performed location.
; MAGVSTYP ... Associated Study Type.
; MAGVSCNT ... Imported Series Count.
; MODLST ..... Array of NAME|VALUE PAIRS for MODALITY|COUNT.
; MEDGIEN .... IEN in the MAGV IMPORT MEDIA LOG file (#2006.9422)
; OBJFAIL .... Count of requested objects which failed to be imported.
;
; Outputs:
; ========
;
; 0`"IMPORT STUDY LOG UPDATED."
; -1`"Unable to lock MAGV IMPORT STUDY LOG File (#2006.9421)."
; -1`##_"Validator error message lines returned."
;
; Notes
; =====
;
;
IMPLOGIN(MAGVRET,MAGVDUZ,MAGVDUZ2,MAGVPDFN,MAGVSACN,MAGVSUID,MAGVSLOC,MAGVSTYP,MAGVSCNT,MODLIST,MEDGIEN,OBJFAIL) ;
;
;--- Initialize. Set output separators per p34 convention.
K FDA,FDAIEN,MAGVRET
N SEPOUTP,SEPSTAT D ZRUSEPIN
N MAGVERR,MAGVMSG S MAGVERR=0
N FILE S FILE=2006.9421
N SUBFILE S SUBFILE=2006.94211
N SFIEN,LOCIEN ; P283 DAC - Added Location/Instution IEN for Station # conversion
;
;--- Set FDA entries for literal parameters.
S FDA(0,FILE,"+1,",3)=MAGVPDFN ;PAT_DFN
S:MAGVSACN'="" FDA(0,FILE,"+1,",4)=MAGVSACN ;Associated_Study_Accession_Number
S:MAGVSUID'="" FDA(0,FILE,"+1,",5)=MAGVSUID ;Study_Instance_UID
S:MAGVSLOC'="" FDA(0,FILE,"+1,",6)=MAGVSLOC ;Study_Performed_Location
S FDA(0,FILE,"+1,",7)=MAGVSTYP ;Associated_Study_Type
S FDA(0,FILE,"+1,",8)=MAGVSCNT ;Series_Count
S FDA(0,FILE,"+1,",11)=OBJFAIL ;Object_Failed_Count
S FDA(0,FILE,"+1,",12)=MEDGIEN ;IEN in the MAGV IMPORT MEDIA LOG file (#2006.9422)
;
;--- Lock MAGV IMPORT STUDY LOG file (#2006.9421)
L +^MAGV(FILE):5 I $T D
. ;
. ;--- Set internal FDA entries for .01 field. IA #10103
. S FDA(0,FILE,"+1,",.01)=$$NOW^XLFDT
. S FDA(0,FILE,"+1,",1)=MAGVDUZ ;USER_DUZ
. S LOCIEN=$$IEN^XUAF4(MAGVDUZ2) ; P283 DAC - Convert Station # to Institution IEN before filing
. S FDA(0,FILE,"+1,",2)=LOCIEN ; P283 DAC - File Institution IEN instead of Station #
. ;
. ;--- Post top-level transaction data. IA# 2053.
. D UPDATE^DIE("","FDA(0)","SFIEN")
. ;
. ;--- Set FDA entries for array parameter MODLST.
. N CT,CTMOD S CT="",CTMOD=0 F S CT=$O(MODLIST(CT)) Q:CT="" D
. . N MODLTY S MODLTY=$P(MODLIST(CT),"|",1)
. . N VALUE S VALUE=$P(MODLIST(CT),"|",2)
. . S FDA(1,SUBFILE,"+"_CT_","_SFIEN(1)_",",.01)=MODLTY
. . S FDA(1,SUBFILE,"+"_CT_","_SFIEN(1)_",",.02)=VALUE
. . S CTMOD=CTMOD+VALUE
. . Q
. ;
. D:(CTMOD*SFIEN(1))>0
. . ;--- Set FDA entry for total modality object count.
. . S FDA(1,FILE,SFIEN(1)_",",9)=$G(CTMOD)
. . ;--- Post sub-file transaction data. IA# 2053.
. . D UPDATE^DIE("","FDA(1)")
. L -^MAGV(FILE)
. Q
;
E D
. ;
. S MAGVERR=1,MAGVMSG="Could not lock MAGV IMPORT STUDY LOG File."
. Q
;
;--- Return.
I MAGVERR S MAGVRET(0)="-1"_SEPSTAT_MAGVMSG Q
S MAGVRET(0)="0"_SEPSTAT_"IMPORT STUDY LOG UPDATED."
Q
;+++ Importer II Log Reports from MAGV IMPORT STUDY LOG file (#2006.9421)
;
; RPC: MAGV IMPORT STUDY LOG REPORT
;
; Inputs:
; =======
;
; MAGVARY .... Variable for returned message.
; REPORT ..... Report identifier as:
;
; 0 ... Initialization Request
; 1 ... Report Data for Each Date in Range
; 2 ... Report Data for Each Study Location
; 3 ... Report Data for Modality Counts
;
; STARTDT .... Inclusive lower bound of date range as YYYYMMDD.
; STOPDT ..... Inclusive upper bound of date range.
;
; Outputs:
; ========
;
; 0`## [report lines returned]
; -1`Error message.
;
; Notes
; =====
;
; Calls MAGVIM04 for processing.
;
IMPLOGEX(MAGVARY,REPORT,STARTDT,STOPDT) ;
;
N SEPOUTP,SEPSTAT D ZRUSEPIN
N MAGVERR S MAGVERR=0
N FILE S FILE=2006.9421
;
;--- Convert incoming HL7 dates to FileMan. IA #
S STARTDT=$$HL7TFM^XLFDT(STARTDT)
S STOPDT=$$HL7TFM^XLFDT(STOPDT)
;
S MAGVARY=$NA(^TMP("MAGVIM",$J))
K @MAGVARY
D I MAGVERR S @MAGVARY@(0)="-1"_SEPSTAT_MAGVERR Q
. ;
. I '$D(REPORT) S MAGVERR="REPORT TYPE NOT SPECIFIED." Q
. ;
. ;--- Set report types validator string.
. I "0,1,2,3,"'[REPORT_"," S MAGVERR="REPORT TYPE"_""_REPORT_""_"UNDEFINED." Q
;
;--- Report window initialization request.
I REPORT=0 D Q
. ;
. ;--- Detect file contains no data & return -1
. I '$D(^MAGV(FILE,"B")) S @MAGVARY@(0)="-1" Q
. ;
. ;--- Return "0'STARTDT" for earliest date in file.
. N FIRSTDT S FIRSTDT=+$P($O(^MAGV(FILE,"B","")),".")
. S @MAGVARY@(0)="0"_"`"_$$FMTHL7^XLFDT(FIRSTDT)
;
;--- Call the processor.
D MAGVQRY^MAGVIM04(MAGVARY,FILE,REPORT,STARTDT,STOPDT)
;
;--- Return.
N LNTOT S LNTOT=$O(@MAGVARY@("Z"),-1)
S @MAGVARY@(0)=0_SEPSTAT_LNTOT
Q
;
; +++++ Importer II Log Reports: Populate MAGV IMPORT MEDIA LOG (#2006.9422)
;
; RPC: MAGV IMPORT MEDIA LOG STORE
;
; Inputs:
; =======
;
; MAGVRET .... Variable for returned message.
; MAGVDUZ .... User DUZ.
; MAGVWKST ... Workstation running the Importer II application.
; MEDTYPE .... Import event media type (DIRect, STaGed,NETwork, DiCoM correct).
; MEDVALID ... Media Validation Status (0=valid; 1=invalid).
; MEDVMSG .... Media Validation Message extending MEDVALID.
;
; Outputs:
; ========
;
; 0`"IMPORT MEDIA LOG UPDATED."
; -1`"Unable to lock MAGV IMPORT MEDIA LOG File."
; -1`##_"Validator error message lines returned."
;
IMPMEDIA(MAGVRET,MAGVDUZ,MAGVWKST,MEDTYPE,MEDVALID,MEDVMSG) ;
;
K MAGVRET
N SEPOUTP,SEPSTAT D ZRUSEPIN
N MAGVERR,MAGVMSG S MAGVERR=0
;
N FILE S FILE=2006.9422
D
. K FDA
. ;--- Set FDA entries for literal parameters.
. S FDA(1,FILE,"+1,",.01)=$$NOW^XLFDT ;Media Import Timestamp
. S FDA(1,FILE,"+1,",2)=MAGVDUZ ;Import II User DUZ
. S FDA(1,FILE,"+1,",3)=MAGVWKST ;Import II Workstation ID
. S FDA(1,FILE,"+1,",4)=MEDTYPE ;Media Type
. S FDA(1,FILE,"+1,",100)=MEDVALID ;Media Validation Status
. S FDA(1,FILE,"+1,",101)=$G(MEDVMSG) ;Media Validation Status Message
. Q
;
;--- Lock MAGV IMPORT MEDIA LOG file (#2006.9422)
L +^MAGV(FILE):5 I $T D
. ;
. K MAGVIEN
. ;--- Post the transaction. IA# 2053.
. D UPDATE^DIE("","FDA(1)","MAGVIEN")
. L -^MAGV(FILE)
. Q
;
E D
. ;
. S MAGVERR=1,MAGVMSG="Could not lock MAGV IMPORT MEDIA LOG File."
. Q
;
;--- Return.
I MAGVERR S MAGVRET(0)="-1"_SEPSTAT_MAGVMSG Q
S MAGVRET(0)="0"_SEPSTAT_MAGVIEN(1)
Q
;
;+++ Routine Utility: Initialize Separators
ZRUSEPIN ;
S SEPOUTP=$$OUTSEP^MAGVIM01
S SEPSTAT=$$STATSEP^MAGVIM01
Q
;
; MAGVIM03
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVIM03 8085 printed Dec 13, 2024@02:09:50 Page 2
MAGVIM03 ;WOIFO/MAT,MLH,BT,DAC - RPCs for DICOM Importer II ; Nov 10, 2020@13:55:05
+1 ;;3.0;IMAGING;**118,283**;Mar 19, 2002;Build 5;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 ;+++ Importer II Log Reports: Populate MAGV IMPORT STUDY LOG File (#2006.9421)
+20 ;
+21 ; RPC: MAGV IMPORT STUDY LOG STORE
+22 ;
+23 ; Inputs:
+24 ; =======
+25 ;
+26 ; MAGVRET .... Variable for returned message.
+27 ; MAGVDUZ .... User DUZ.
+28 ; MAGVDUZ2 ... User Login Division.
+29 ; MAGVPDFN ... Associated Patient DFN.
+30 ; MAGVSACN ... Associated Study Accession Number.
+31 ; MAGVSUID ... Study Instance UID.
+32 ; MAGVSLOC ... Study performed location.
+33 ; MAGVSTYP ... Associated Study Type.
+34 ; MAGVSCNT ... Imported Series Count.
+35 ; MODLST ..... Array of NAME|VALUE PAIRS for MODALITY|COUNT.
+36 ; MEDGIEN .... IEN in the MAGV IMPORT MEDIA LOG file (#2006.9422)
+37 ; OBJFAIL .... Count of requested objects which failed to be imported.
+38 ;
+39 ; Outputs:
+40 ; ========
+41 ;
+42 ; 0`"IMPORT STUDY LOG UPDATED."
+43 ; -1`"Unable to lock MAGV IMPORT STUDY LOG File (#2006.9421)."
+44 ; -1`##_"Validator error message lines returned."
+45 ;
+46 ; Notes
+47 ; =====
+48 ;
+49 ;
IMPLOGIN(MAGVRET,MAGVDUZ,MAGVDUZ2,MAGVPDFN,MAGVSACN,MAGVSUID,MAGVSLOC,MAGVSTYP,MAGVSCNT,MODLIST,MEDGIEN,OBJFAIL) ;
+1 ;
+2 ;--- Initialize. Set output separators per p34 convention.
+3 KILL FDA,FDAIEN,MAGVRET
+4 NEW SEPOUTP,SEPSTAT
DO ZRUSEPIN
+5 NEW MAGVERR,MAGVMSG
SET MAGVERR=0
+6 NEW FILE
SET FILE=2006.9421
+7 NEW SUBFILE
SET SUBFILE=2006.94211
+8 ; P283 DAC - Added Location/Instution IEN for Station # conversion
NEW SFIEN,LOCIEN
+9 ;
+10 ;--- Set FDA entries for literal parameters.
+11 ;PAT_DFN
SET FDA(0,FILE,"+1,",3)=MAGVPDFN
+12 ;Associated_Study_Accession_Number
if MAGVSACN'=""
SET FDA(0,FILE,"+1,",4)=MAGVSACN
+13 ;Study_Instance_UID
if MAGVSUID'=""
SET FDA(0,FILE,"+1,",5)=MAGVSUID
+14 ;Study_Performed_Location
if MAGVSLOC'=""
SET FDA(0,FILE,"+1,",6)=MAGVSLOC
+15 ;Associated_Study_Type
SET FDA(0,FILE,"+1,",7)=MAGVSTYP
+16 ;Series_Count
SET FDA(0,FILE,"+1,",8)=MAGVSCNT
+17 ;Object_Failed_Count
SET FDA(0,FILE,"+1,",11)=OBJFAIL
+18 ;IEN in the MAGV IMPORT MEDIA LOG file (#2006.9422)
SET FDA(0,FILE,"+1,",12)=MEDGIEN
+19 ;
+20 ;--- Lock MAGV IMPORT STUDY LOG file (#2006.9421)
+21 LOCK +^MAGV(FILE):5
IF $TEST
Begin DoDot:1
+22 ;
+23 ;--- Set internal FDA entries for .01 field. IA #10103
+24 SET FDA(0,FILE,"+1,",.01)=$$NOW^XLFDT
+25 ;USER_DUZ
SET FDA(0,FILE,"+1,",1)=MAGVDUZ
+26 ; P283 DAC - Convert Station # to Institution IEN before filing
SET LOCIEN=$$IEN^XUAF4(MAGVDUZ2)
+27 ; P283 DAC - File Institution IEN instead of Station #
SET FDA(0,FILE,"+1,",2)=LOCIEN
+28 ;
+29 ;--- Post top-level transaction data. IA# 2053.
+30 DO UPDATE^DIE("","FDA(0)","SFIEN")
+31 ;
+32 ;--- Set FDA entries for array parameter MODLST.
+33 NEW CT,CTMOD
SET CT=""
SET CTMOD=0
FOR
SET CT=$ORDER(MODLIST(CT))
if CT=""
QUIT
Begin DoDot:2
+34 NEW MODLTY
SET MODLTY=$PIECE(MODLIST(CT),"|",1)
+35 NEW VALUE
SET VALUE=$PIECE(MODLIST(CT),"|",2)
+36 SET FDA(1,SUBFILE,"+"_CT_","_SFIEN(1)_",",.01)=MODLTY
+37 SET FDA(1,SUBFILE,"+"_CT_","_SFIEN(1)_",",.02)=VALUE
+38 SET CTMOD=CTMOD+VALUE
+39 QUIT
End DoDot:2
+40 ;
+41 if (CTMOD*SFIEN(1))>0
Begin DoDot:2
+42 ;--- Set FDA entry for total modality object count.
+43 SET FDA(1,FILE,SFIEN(1)_",",9)=$GET(CTMOD)
+44 ;--- Post sub-file transaction data. IA# 2053.
+45 DO UPDATE^DIE("","FDA(1)")
End DoDot:2
+46 LOCK -^MAGV(FILE)
+47 QUIT
End DoDot:1
+48 ;
+49 IF '$TEST
Begin DoDot:1
+50 ;
+51 SET MAGVERR=1
SET MAGVMSG="Could not lock MAGV IMPORT STUDY LOG File."
+52 QUIT
End DoDot:1
+53 ;
+54 ;--- Return.
+55 IF MAGVERR
SET MAGVRET(0)="-1"_SEPSTAT_MAGVMSG
QUIT
+56 SET MAGVRET(0)="0"_SEPSTAT_"IMPORT STUDY LOG UPDATED."
+57 QUIT
+58 ;+++ Importer II Log Reports from MAGV IMPORT STUDY LOG file (#2006.9421)
+59 ;
+60 ; RPC: MAGV IMPORT STUDY LOG REPORT
+61 ;
+62 ; Inputs:
+63 ; =======
+64 ;
+65 ; MAGVARY .... Variable for returned message.
+66 ; REPORT ..... Report identifier as:
+67 ;
+68 ; 0 ... Initialization Request
+69 ; 1 ... Report Data for Each Date in Range
+70 ; 2 ... Report Data for Each Study Location
+71 ; 3 ... Report Data for Modality Counts
+72 ;
+73 ; STARTDT .... Inclusive lower bound of date range as YYYYMMDD.
+74 ; STOPDT ..... Inclusive upper bound of date range.
+75 ;
+76 ; Outputs:
+77 ; ========
+78 ;
+79 ; 0`## [report lines returned]
+80 ; -1`Error message.
+81 ;
+82 ; Notes
+83 ; =====
+84 ;
+85 ; Calls MAGVIM04 for processing.
+86 ;
IMPLOGEX(MAGVARY,REPORT,STARTDT,STOPDT) ;
+1 ;
+2 NEW SEPOUTP,SEPSTAT
DO ZRUSEPIN
+3 NEW MAGVERR
SET MAGVERR=0
+4 NEW FILE
SET FILE=2006.9421
+5 ;
+6 ;--- Convert incoming HL7 dates to FileMan. IA #
+7 SET STARTDT=$$HL7TFM^XLFDT(STARTDT)
+8 SET STOPDT=$$HL7TFM^XLFDT(STOPDT)
+9 ;
+10 SET MAGVARY=$NAME(^TMP("MAGVIM",$JOB))
+11 KILL @MAGVARY
+12 Begin DoDot:1
+13 ;
+14 IF '$DATA(REPORT)
SET MAGVERR="REPORT TYPE NOT SPECIFIED."
QUIT
+15 ;
+16 ;--- Set report types validator string.
+17 IF "0,1,2,3,"'[REPORT_","
SET MAGVERR="REPORT TYPE"_""_REPORT_""_"UNDEFINED."
QUIT
End DoDot:1
IF MAGVERR
SET @MAGVARY@(0)="-1"_SEPSTAT_MAGVERR
QUIT
+18 ;
+19 ;--- Report window initialization request.
+20 IF REPORT=0
Begin DoDot:1
+21 ;
+22 ;--- Detect file contains no data & return -1
+23 IF '$DATA(^MAGV(FILE,"B"))
SET @MAGVARY@(0)="-1"
QUIT
+24 ;
+25 ;--- Return "0'STARTDT" for earliest date in file.
+26 NEW FIRSTDT
SET FIRSTDT=+$PIECE($ORDER(^MAGV(FILE,"B","")),".")
+27 SET @MAGVARY@(0)="0"_"`"_$$FMTHL7^XLFDT(FIRSTDT)
End DoDot:1
QUIT
+28 ;
+29 ;--- Call the processor.
+30 DO MAGVQRY^MAGVIM04(MAGVARY,FILE,REPORT,STARTDT,STOPDT)
+31 ;
+32 ;--- Return.
+33 NEW LNTOT
SET LNTOT=$ORDER(@MAGVARY@("Z"),-1)
+34 SET @MAGVARY@(0)=0_SEPSTAT_LNTOT
+35 QUIT
+36 ;
+37 ; +++++ Importer II Log Reports: Populate MAGV IMPORT MEDIA LOG (#2006.9422)
+38 ;
+39 ; RPC: MAGV IMPORT MEDIA LOG STORE
+40 ;
+41 ; Inputs:
+42 ; =======
+43 ;
+44 ; MAGVRET .... Variable for returned message.
+45 ; MAGVDUZ .... User DUZ.
+46 ; MAGVWKST ... Workstation running the Importer II application.
+47 ; MEDTYPE .... Import event media type (DIRect, STaGed,NETwork, DiCoM correct).
+48 ; MEDVALID ... Media Validation Status (0=valid; 1=invalid).
+49 ; MEDVMSG .... Media Validation Message extending MEDVALID.
+50 ;
+51 ; Outputs:
+52 ; ========
+53 ;
+54 ; 0`"IMPORT MEDIA LOG UPDATED."
+55 ; -1`"Unable to lock MAGV IMPORT MEDIA LOG File."
+56 ; -1`##_"Validator error message lines returned."
+57 ;
IMPMEDIA(MAGVRET,MAGVDUZ,MAGVWKST,MEDTYPE,MEDVALID,MEDVMSG) ;
+1 ;
+2 KILL MAGVRET
+3 NEW SEPOUTP,SEPSTAT
DO ZRUSEPIN
+4 NEW MAGVERR,MAGVMSG
SET MAGVERR=0
+5 ;
+6 NEW FILE
SET FILE=2006.9422
+7 Begin DoDot:1
+8 KILL FDA
+9 ;--- Set FDA entries for literal parameters.
+10 ;Media Import Timestamp
SET FDA(1,FILE,"+1,",.01)=$$NOW^XLFDT
+11 ;Import II User DUZ
SET FDA(1,FILE,"+1,",2)=MAGVDUZ
+12 ;Import II Workstation ID
SET FDA(1,FILE,"+1,",3)=MAGVWKST
+13 ;Media Type
SET FDA(1,FILE,"+1,",4)=MEDTYPE
+14 ;Media Validation Status
SET FDA(1,FILE,"+1,",100)=MEDVALID
+15 ;Media Validation Status Message
SET FDA(1,FILE,"+1,",101)=$GET(MEDVMSG)
+16 QUIT
End DoDot:1
+17 ;
+18 ;--- Lock MAGV IMPORT MEDIA LOG file (#2006.9422)
+19 LOCK +^MAGV(FILE):5
IF $TEST
Begin DoDot:1
+20 ;
+21 KILL MAGVIEN
+22 ;--- Post the transaction. IA# 2053.
+23 DO UPDATE^DIE("","FDA(1)","MAGVIEN")
+24 LOCK -^MAGV(FILE)
+25 QUIT
End DoDot:1
+26 ;
+27 IF '$TEST
Begin DoDot:1
+28 ;
+29 SET MAGVERR=1
SET MAGVMSG="Could not lock MAGV IMPORT MEDIA LOG File."
+30 QUIT
End DoDot:1
+31 ;
+32 ;--- Return.
+33 IF MAGVERR
SET MAGVRET(0)="-1"_SEPSTAT_MAGVMSG
QUIT
+34 SET MAGVRET(0)="0"_SEPSTAT_MAGVIEN(1)
+35 QUIT
+36 ;
+37 ;+++ Routine Utility: Initialize Separators
ZRUSEPIN ;
+1 SET SEPOUTP=$$OUTSEP^MAGVIM01
+2 SET SEPSTAT=$$STATSEP^MAGVIM01
+3 QUIT
+4 ;
+5 ; MAGVIM03
