Skip to content

Commit

Permalink
Install: MAG*3.0*201
Browse files Browse the repository at this point in the history
Patch Subject:  VIX IMAGE VIEWER VERSION 3.0
Description:

============
 MAG*3.0*201 adds enhancements to the Zero footprint HTML 5 based image
 viewer.
 MAG*3.0*201 contains the following new features:
 1) Global annotation settings of images
    a. User annotation preferences
    b. View annotation audit history (user, time, etc.)
 2) Annotate DICOM images
 3) Release of Information (ROI) patient's images or studies or report
     document.
    a. Viewer patient ROI submission and processing
    b. Monitor ROI submitted print queue status
 Note 1: If you are upgrading from P177 VIX to P201 VIX on the site VIX
 server, or don't have SQL2017 Express installed currently then you must
 remove the old (retired) SQL2014 features first by hand before running the
 P201 VIX Setup Wizard.
 See details in the MAG3_0P201_VIX_INSTALLATION_GUIDE.pdf
 Note 2: Also please follow P197 README file (see detailed instructions in
 MAG3_0P197_README) regarding confirming Tomcat User permissions,
 disabling archive scanning in McAfee and checking for Network locations
 without a place value.
 Patch Components:
 -----------------
 This patch includes the following files:
 File Name                  Description
 ---------                  -----------
 MAG3_0P201.KID             KIDS (Kernel Installation & Distribution
                            System) package to be installed on the VistA
                            System
 MAG3_0P201_VIX_Setup.msi   Installation file for the VIX(30.201.9.6250)
                            software.
 MAG3_0P201_Patch_
 Description_Document.pdf   This document
 MAG3_0P201_VIX_Installation
 _Guide.pdf                 VIX Installation Guide for this patch.
 VIX Software - MAG3_0P201_VIX_Setup.msi(30.201.9.6250)
 If this is a new install or an upgrade, this patch installs the following
 versions:
 . Apache Tomcat: 8.0.52
 . Java: 1.80_171
 Documentation:
 This document provides an overview, explains the changes, and outlines the
 installation for this patch.
 Files & Fields Associated:
 File Name (Number)   Field Name (Number)   New/Modified/Deleted
 ------------------   -------------------   --------------------
 N/A
 Forms Associated:
 Form Name    File #    New/Modified/Deleted
 ---------    ------    --------------------
 N/A
 Mail Groups Associated:
 Mail Group Name    New/Modified/Deleted
 ---------------    --------------------
 N/A
 Options Associated:
 Option Name                  Type                    New/Modified/Deleted
 -----------                  ----                    --------------------
 Delete work items            run routine              New
 [MAG WORK ITEMS DELETE]
 (For the site to purge old/non-processed work item, e.g.: PRECACHE,
 IMPORTER, ROI. etc.)
 For example:  (from VistA menu option)
  Delete out-date ROI request from WORK ITEM
     Select OPTION NAME: MAG WORK ITEMS DELETE  Delete work items
     Delete work items
     Enter from date: T-300 (DEC 28, 2017)
     Enter through date: T (OCT 24, 2018)
 Select work item type: ?
 Answer with WORKLIST NAME
    Choose from:
    IMPORTER
    PRECACHE
    ROI
    StorageCommit
 Enter a work item type.
 Select work item type: ROI
 Select work item subtype: ?
 Answer with MAG WORK ITEM SUBTYPE NAME
    Choose from:
    ACQUISITION
    DicomCorrect
    DirectImport
    NetworkImport
    Process
    REGISTRATION
    REMOTEPRIOR
    StagedMedia
    StorageCommit
 Enter a work item subtype.
 Select work item subtype: Process
 ARE YOU SURE YOU WANT TO DELETE WORK ITEMS? NO// YES
 Protocols Associated:
 Protocol Name                                 New/Modified/Deleted
 ------------------                            ---------------------------
 MAG PRECACHE                                      New
 Security Keys Associated:
 Security Key Name
 -----------------------
 N/A
 Templates Associated:
 Template Name    Type File Name (Number)     New/Modified/Deleted
 -------------    -----------------------     --------------------
 N/A
 Additional Information:
 -----------------------
 New Service Requests (NSRs):
 ----------------------------
 This project is initiated by Requirement BR 8.0 of the Health Information
 Exchange Viewer BRD #1-02-03-05-08-003.
 Patient Safety Issues (PSIs):
 -----------------------------
 N/A
 Supported SOP Classes
 ----------------------
 The following table includes the newly supported DICOM SOP classes in
 MAG*3.0*201. The Hybrid DICOM Image Gateway (HDIG) validates the objects
 associated with these classes and stores them in the new database that
 then can be viewed via the new Image Viewer.
 Each SOP class must be enabled individually to be stored. The patch is
 distributed with all SOP classes disabled as the default. To enable the
 storage of new SOP classes, please enter a ServiceNow ticket, or contact
 the National Help Desk to request assistance from the CLIN3 Support Team.
 NOTE: Newly Supported SOP Classes are not currently viewable with Clinical
 Display or VistARad.
 SOP Classes Newly Supported in MAG*3.0*201
 SOP Class Name                                 SOP Class UID
 -----------------------------                  -------------
 Positron Emission Tomography Image Storage     1.2.840.10008.5.1.4.1.1.128
 Digital X-Ray Image Storage - For Presentation 1.2.840.10008.5.1.4.1.1.1.1
 Defect Tracking System Ticket(s) & Overview:
 -------------------------------------------
 1. Rational Defect 694765: Provide the ability to save user annotation
 preferences
 Problem
 ----------
 Users were not able to save user annotation preferences.
 Resolution
 -------------
 The code was updated to allow user annotation in the New Image Viewer.
 Test Sites:
 -------------
 Heartland West, MO
 Puget Sound, WA
 Software and Documentation Retrieval Instructions:
 --------------------------------------------------------------
 Software being released as a host file and/or documentation describing the
 new functionality introduced by this patch are available.
 The preferred method is to retrieve files from
 download.vista.domain.ext
 This transmits the files from the first available server. Sites may also
 elect to retrieve files directly from a specific server.
 Sites may retrieve the software and/or documentation directly using Secure
 File Transfer Protocol (SFTP) from the ANONYMOUS software directory at
 the following OI Field Offices:
 Hines domain.ext
 Salt Lake City domain.ext
 Documentation can also be found on the VA Software Documentation Library at:
 http://www4.domain.ext/vdl/
 Title                  File Name                       FTP Mode
 -----------------------------------------------------------------------------------
 MAG*3.0*201 KIDS       MAG3_0P201.KID                  ASCII
 MAG*3.0*201 VIX Setup  MAG3_0P201_VIX_Setup.msi        Binary
 MAG*3.0*201 Patch      MAG3_0P201_Patch_Description_Document.pdf  Binary
             Description
 MAG*3.0*201 VIX Guide  MAG3_0P201_VIX_Installation_Guide.pdf Binary
 Patch Installation:
 Pre/Post Installation Overview:
 ---------------------------------------
 See MAG*3.0*201 VIX Installation Guide for additional information.

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages
  • Loading branch information
josephsnyder committed May 30, 2019
1 parent 50a2670 commit 045551f
Show file tree
Hide file tree
Showing 20 changed files with 738 additions and 50 deletions.
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
OSEHRA ZGO Export: HL7 APPLICATION PARAMETER
22-MAY-2019 03:04:10 ZWR
^HL(771,0)="HL7 APPLICATION PARAMETER^771I^245^239"
29-MAY-2019 20:30:48 ZWR
^HL(771,0)="HL7 APPLICATION PARAMETER^771I^246^240"
^HL(771,3,0)="RADIOLOGY^i"
^HL(771,3,"EC")="~|\&"
^HL(771,3,"FS")="^"
Expand Down Expand Up @@ -1076,6 +1076,11 @@ OSEHRA ZGO Export: HL7 APPLICATION PARAMETER
^HL(771,243,"FS")="|"
^HL(771,244,0)="PRF-TRANS-REQ^a^^^^^1"
^HL(771,245,0)="PRF-TRANS-RESP^a^^^^^1"
^HL(771,246,0)="MAG PRECACHE CLIENT^a^WCIOFO^^^^1"
^HL(771,246,"EC")=""
^HL(771,246,"FS")=""
^HL(771,246,"MSG",0)="^771.06P^^0"
^HL(771,246,"SEG",0)="^771.05P^^0"
^HL(771,"AF","AAC","a",105)=""
^HL(771,"AF","AAC_FPDS","a",163)=""
^HL(771,"AF","AITC_VTS","a",225)=""
Expand Down Expand Up @@ -1150,6 +1155,7 @@ OSEHRA ZGO Export: HL7 APPLICATION PARAMETER
^HL(771,"AF","LA7UI8","a",191)=""
^HL(771,"AF","LA7UI9","a",192)=""
^HL(771,"AF","MAG COMRCL PACS","a",222)=""
^HL(771,"AF","MAG PRECACHE CLIENT","a",246)=""
^HL(771,"AF","MAG VISTA IMGNG","a",223)=""
^HL(771,"AF","MAGD-CLIENT","a",59)=""
^HL(771,"AF","MAGJ-CLIENT","a",60)=""
Expand Down Expand Up @@ -1389,6 +1395,7 @@ OSEHRA ZGO Export: HL7 APPLICATION PARAMETER
^HL(771,"B","LA7UI8",191)=""
^HL(771,"B","LA7UI9",192)=""
^HL(771,"B","MAG COMRCL PACS",222)=""
^HL(771,"B","MAG PRECACHE CLIENT",246)=""
^HL(771,"B","MAG VISTA IMGNG",223)=""
^HL(771,"B","MAGD-CLIENT",59)=""
^HL(771,"B","MAGJ-CLIENT",60)=""
Expand Down
6 changes: 4 additions & 2 deletions Packages/Imaging/Globals/2006.9412+WORKLIST.zwr
Original file line number Diff line number Diff line change
@@ -1,9 +1,11 @@
OSEHRA ZGO Export: WORKLIST
09-NOV-2018 16:16:57 ZWR
^MAGV(2006.9412,0)="WORKLIST^2006.9412^3^3"
29-MAY-2019 20:31:58 ZWR
^MAGV(2006.9412,0)="WORKLIST^2006.9412^4^4"
^MAGV(2006.9412,1,0)="IMPORTER^1"
^MAGV(2006.9412,2,0)="StorageCommit"
^MAGV(2006.9412,3,0)="ROI"
^MAGV(2006.9412,4,0)="PRECACHE^1"
^MAGV(2006.9412,"B","IMPORTER",1)=""
^MAGV(2006.9412,"B","PRECACHE",4)=""
^MAGV(2006.9412,"B","ROI",3)=""
^MAGV(2006.9412,"B","StorageCommit",2)=""
10 changes: 8 additions & 2 deletions Packages/Imaging/Globals/2006.9414+MAG WORK ITEM SUBTYPE.zwr
Original file line number Diff line number Diff line change
@@ -1,15 +1,21 @@
OSEHRA ZGO Export: MAG WORK ITEM SUBTYPE
09-NOV-2018 16:16:57 ZWR
^MAGV(2006.9414,0)="MAG WORK ITEM SUBTYPE^2006.9414^6^6"
29-MAY-2019 20:31:58 ZWR
^MAGV(2006.9414,0)="MAG WORK ITEM SUBTYPE^2006.9414^9^9"
^MAGV(2006.9414,1,0)="DirectImport"
^MAGV(2006.9414,2,0)="StagedMedia"
^MAGV(2006.9414,3,0)="NetworkImport"
^MAGV(2006.9414,4,0)="DicomCorrect"
^MAGV(2006.9414,5,0)="StorageCommit"
^MAGV(2006.9414,6,0)="Process"
^MAGV(2006.9414,7,0)="ACQUISITION"
^MAGV(2006.9414,8,0)="REGISTRATION"
^MAGV(2006.9414,9,0)="REMOTEPRIOR"
^MAGV(2006.9414,"B","ACQUISITION",7)=""
^MAGV(2006.9414,"B","DicomCorrect",4)=""
^MAGV(2006.9414,"B","DirectImport",1)=""
^MAGV(2006.9414,"B","NetworkImport",3)=""
^MAGV(2006.9414,"B","Process",6)=""
^MAGV(2006.9414,"B","REGISTRATION",8)=""
^MAGV(2006.9414,"B","REMOTEPRIOR",9)=""
^MAGV(2006.9414,"B","StagedMedia",2)=""
^MAGV(2006.9414,"B","StorageCommit",5)=""
9 changes: 7 additions & 2 deletions Packages/Imaging/Routines/MAGGSIA.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
MAGGSIA ;WOIFO/GEK/SG - Imaging RPC Broker calls. Add/Modify Image entry ; 5/1/08 10:43am
;;3.0;IMAGING;**7,21,8,59,93**;Dec 02, 2009;Build 163
MAGGSIA ;WOIFO/GEK/SG/NST - Imaging RPC Broker calls. Add/Modify Image entry ; OCT 23, 2018@10:43am
;;3.0;IMAGING;**7,21,8,59,93,201**;Dec 02, 2009;Build 163
;;Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
Expand Down Expand Up @@ -162,6 +162,11 @@ S MAGRY(0)="0^Creating VistA Image Entry..."
. . Q
. Q
;
N MAGOUT
I $$GET^XPAR("ALL","MAG PRECACHE ACQ ENABLED",,"I") D ; IA# 2263
. D NWI2005^MAGNWRK1(.MAGOUT,MAGGDA) ; add a new storage work item
. Q
;
CLEAN ; Called as tag
D CLEAN^DILF
L -^MAG(2005,NEWIEN)
Expand Down
9 changes: 7 additions & 2 deletions Packages/Imaging/Routines/MAGGTIA1.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
MAGGTIA1 ;WOIFO/GEK/SG - RPC Call to Add Image File entry ; 1/22/09 1:42pm
;;3.0;IMAGING;**21,8,59,93**;Dec 02, 2009;Build 163
MAGGTIA1 ;WOIFO/GEK/SG/NST - RPC Call to Add Image File entry ; OCT 23, 2018@1:42pm
;;3.0;IMAGING;**21,8,59,93,201**;Dec 02, 2009;Build 163
;;Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
Expand Down Expand Up @@ -145,6 +145,11 @@ S MAGGFDA(2005,Y,1)=MAGGFNM
. . Q
. Q
;
N MAGOUT
I $$GET^XPAR("ALL","MAG PRECACHE ACQ ENABLED",,"I") D ; IA# 2263
. D NWI2005^MAGNWRK1(.MAGOUT,MAGGDA) ; add a new storage work item
. Q
;
CLEAN ;
D CLEAN^DILF
L -^MAG(2005,NEWIEN)
Expand Down
14 changes: 8 additions & 6 deletions Packages/Imaging/Routines/MAGJEX2.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
MAGJEX2 ;WIRMFO/JHC - Rad. Workstation RPC calls; 9 Sep 2011 4:05 PM
;;3.0;IMAGING;**51,18,76,120**;Mar 19, 2002;Build 27;May 23, 2012
MAGJEX2 ;WIRMFO/JHC,NST - Rad. Workstation RPC calls; OCT 24, 2018@4:05 PM
;;3.0;IMAGING;**51,18,76,120,201**;Mar 19, 2002;Build 27;May 23, 2012
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
Expand Down Expand Up @@ -43,6 +43,7 @@ D PRIOR1(.RET,"P"_U_RADFN_U_RADTI_U_RACNI)
; DATA: - input params for the Current Exam
; 1) ACTION = P -- Pre-fetch Exams (from Jukebox to Magnetic Disk)
; = A -- Auto-route priors
; = C -- Pre-cache exams
; 2) RADFN = Case pointers to Rad/Nuc Med Patient file
; 3) RADTI = "" "" "" ""
; 4) RACNI = "" "" "" ""
Expand All @@ -53,14 +54,14 @@ D PRIOR1(.RET,"P"_U_RADFN_U_RADTI_U_RACNI)
N RADFN,RADTI,RACNI,RARPT,RADATA
N DAYCASE,DIQUIET,ACTION,CPT,HDR,MAGDFN,MAGDTI,MAGCNI,MAGRET,MAGRACNT
S ACTION=$P(DATA,U)
I ACTION="P"!(ACTION="A")
I ACTION="P"!(ACTION="A")!(ACTION="C")
E S MAGGRY(0)="0^Invalid Request (Action code="_ACTION_")" G PRIOR1Z
S MAGDFN=$P(DATA,U,2),MAGDTI=$P(DATA,U,3),MAGCNI=$P(DATA,U,4)
I MAGDFN,MAGDTI,MAGCNI
E S MAGGRY(0)="0^Request Contains Invalid Case Pointer ("_DATA_")" G PRIOR1Z
S DIQUIET=1 D DT^DICRW
N MAGJOB D MAGJOBNC^MAGJUTL3
S HDR=$S(ACTION="P":"Pre-fetch",ACTION="A":"Auto-route",1:"???")_" Prior Exams for CASE: "
S HDR=$S(ACTION="P":"Pre-fetch",ACTION="A":"Auto-route",ACTION="C":"Pre-cache",1:"???")_" Prior Exams for CASE: "
I '$D(^DPT(MAGDFN,0)) S MAGGRY(0)="0^Request Contains Invalid Patient Pointer ("_MAGDFN_")" G PRIOR1Z
I $D(^RADPT(MAGDFN,"DT",MAGDTI,"P",MAGCNI))
E S MAGGRY(0)="0^Request Contains Invalid Case Pointer ("_MAGCNI_")" G PRIOR1Z
Expand Down Expand Up @@ -98,7 +99,7 @@ S MAGGRY(0)="0^Compiling Prior Radiology Exams"
; Find all the patient's exams whose CPT codes are related to the
; Current exam's CPT code, according to dictionary 2006.65
N RAIMGTYP,X
N CPT,CPT3,CPT4,CPT5,CURCPTX,CURCPTS,HIT,MAGMATCH,MAGDTH
N CPT,CPT3,CPT4,CPT5,CURCPTX,CURCPTS,HIT,MAGMATCH,MAGDTH,I
S RARPT=+$P(RADATA,U,10)
I MAGGRY(0) Q:'$P(MAGGRY(1),U) ; Cur Case CPT not in map file
I Q:(ACTION="P")&'$D(^RARPT(RARPT,2005)) ; nothing to pre-fetch
Expand Down Expand Up @@ -147,7 +148,7 @@ S MAGGRY(0)="0^Compiling Prior Radiology Exams"
; limits with respect to time interval & maximum # exams to retrieve
; Return MAGGRY(0) = count ^ message
; MAGGRY(1:N) = "M08" | RADFN ^ RADTI ^ RACNI ^ RARPT
N CPT,CT,CURDAT,ICPT,IREC,GO
N CPT,CT,CURDAT,ICPT,IREC,GO,Y
S CURDAT=$P(MAGGRY(1),U,4)
F IREC=2:1:MAGGRY(0) S X=MAGGRY(IREC),CPT=+X D K MAGGRY(IREC)
. I $P(X,U,2) S Y=CURDAT-$P(X,U,4) S:Y<0 Y=-Y I Y>$P(X,U,2) Q ;too old
Expand All @@ -159,6 +160,7 @@ S MAGGRY(0)="0^Compiling Prior Radiology Exams"
. . S CT=CT+1,X=GO(CPT,ICPT),RARPT=$P(X,U,11)
. . S MAGGRY(CT)="M08^"_CPT_"|"_$P(X,U,8,11)
. . I ACTION="P"!(ACTION="A") S Y=$$JBFETCH^MAGJUTL2(RARPT) ; fetch from jukebox
. . I ACTION="C" S Y=$$CACHE^MAGNUTL2(RARPT) ; precache exams
. S MAGGRY(0)=CT_"^"_HDR
E S MAGGRY(0)="0^No Exams Found for "_HDR
Q
Expand Down
10 changes: 5 additions & 5 deletions Packages/Imaging/Routines/MAGNAN01.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
MAGNAN01 ;WOIFO/NST - IMAGING ANNOTATION UTILITY RPCS ; 28 Jul 2017 11:43 AM
;;3.0;IMAGING;**185**;Mar 19, 2002;Build 92;Aug 02, 2012
MAGNAN01 ;WOIFO/NST - IMAGING ANNOTATION UTILITY RPCS ; 07 May 2018 11:43 AM
;;3.0;IMAGING;**185,201**;Mar 19, 2002;Build 92;Aug 02, 2012
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
Expand Down Expand Up @@ -91,7 +91,7 @@ S MAGOUT(0)=$$SETERROR^MAGNU002("")
. Q
;
S ANSITE=$G(DUZ(2)) ; Annotation Site
S ANSERV=$$GET1^DIQ(200,DUZ,29,"E") ; Annotation service
S ANSERV=$$GET1^DIQ(200,DUZ,29,"I") ; Annotation service
;
S IENS=IEN1_","_IEN0_","
S:$E(IEN0)'="+" MAGNIEN(1)=IEN0
Expand All @@ -102,8 +102,8 @@ S MAGNFDA(2005.0031,IENS,.01)=$G(MAGPARAM("PSTATE UID"))
S:$D(ANNOT) MAGNFDA(2005.0031,IENS,2)=$$NOW^XLFDT() ;SAVE D/T
S:VER'="" MAGNFDA(2005.0031,IENS,3)=VER ;VERSION
S MAGNFDA(2005.0031,IENS,4)=$G(SOURCE,"CLINIC")
S MAGNFDA(2005.0031,IENS,7)=$G(ANSERV) ;SERVICE/SECTION
S MAGNFDA(2005.0031,IENS,8)=$G(ANSITE) ;SITE
S MAGNFDA(2005.0031,IENS,7)=ANSERV ;SERVICE/SECTION
S MAGNFDA(2005.0031,IENS,8)=ANSITE ;SITE
S:NAME'="" MAGNFDA(2005.0031,IENS,9)=NAME ;Annotation name
D UPDATE^DIE("","MAGNFDA","MAGNIEN","MAGNXE")
I $$ISERROR^MAGNU002(.MAGOUT,.MAGNXE) Q 0
Expand Down
78 changes: 78 additions & 0 deletions Packages/Imaging/Routines/MAGNUTL2.m
Original file line number Diff line number Diff line change
@@ -0,0 +1,78 @@
MAGNUTL2 ;WOIFO/NST - VistRad subroutines for RPC calls ; OCT 22, 2018@1:42PM
;;3.0;IMAGING;**201**;Dec 02, 2009;Build 163
;;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
;
; Subroutines for pre-cache exams images
; Entry Points:
; PRECACHE -- Subroutine call via Protocol trigger
;
PRECACHE ; Entry point from HL7 processing, to initiate precache at
; time of radiology "Register Patient for Exam" RA REG protocol
; Do not process if the exam is being Canceled (RACANC true)
;
Q:'$$GET^XPAR("ALL","MAG PRECACHE RAD REG ENABLED",,"I") ; IA# 2263
;
N RET S RET=""
I '($G(RADFN)&$G(RADTI)&$G(RACNI)&'$G(RACANC)) Q ; Required vars
; MAGJEX2 will call CACHE^MAGNUTL2 after collecting all images to be precached - "C" is a new action
D PRIOR1^MAGJEX2(.RET,"C"_U_RADFN_U_RADTI_U_RACNI)
Q
;
CACHE(RARPT) ; cache this case's images
; Input: RARPT: IEN in RAD/NUC MED REPORTS file (#74)
;
N MAGOUT
D NWRKITEM(.MAGOUT,RARPT)
Q 1
;
NWRKITEM(MAGOUT,RARPT) ;Create New MAG WORK ITEM
; RARPT - IEN in RAD/NUC MED REPORTS file (#74)
;
N CRTUSR,CRTAPP,DFN,ICN,J,MAGCTXID,MSGTAGS,TYPE,SUBTYPE,STATUS,PLACEID,PRIORITY,SSEP
;
S SSEP="`"
S MAGCTXID=$$RACPRS^MAGNU003(RARPT) ; Radiology CPRS context
I MAGCTXID="" S MAGOUT=-20_SSEP_"CPRS context is blank"
S DFN=$$GET1^DIQ(74,RARPT,2,"I")
;
S PLACEID=DUZ(2)
;
; TAGS
S J=0
S J=J+1,MSGTAGS(J)="contextID`"_$TR(MAGCTXID,"^","~") ;CPRS Report Context ID and translate ^ to ~
S:DFN J=J+1,MSGTAGS(J)="patientDfn`"_DFN
I $L($T(GETICN^MPIF001)) D
. S ICN=$$GETICN^MPIF001(DFN)
. S:ICN>1 J=J+1,MSGTAGS(J)="patientIcn`"_ICN
. Q
S J=J+1,MSGTAGS(J)="registration`1" ; precache flag
;
S TYPE="PRECACHE"
S SUBTYPE="REGISTRATION"
S STATUS="New"
S PRIORITY=0
;
S PLACEID=$$STA^XUAF4(PLACEID) ;IA # 2171
;
S CRTUSR=DUZ ; CREATED BY
;
S CRTAPP="PRECACHE" ; CAPTURE APPLICATION
;
D CRTITEM^MAGVIM01(.MAGOUT,TYPE,SUBTYPE,STATUS,PLACEID,PRIORITY,.MSGTAGS,CRTUSR,CRTAPP)
Q
Loading

0 comments on commit 045551f

Please sign in to comment.