MAGDMEDI ;WOIFO/LB - Routine for Medicine DICOM ID ; [ 06/20/2001 08:56 ]
;;3.0;IMAGING;;Mar 01, 2002
;; +---------------------------------------------------------------+
;; | 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
DICOMID(RETURN,MAGMFILE,MAGMFIEN,MAGPROC,MAGDFN) ;
;MAGMFILE= Medicine file number ( i.e. 699 , 699.5 etc)
;MAGMFIEN= Medicine file entry, IEN (699,xxx)
;MAGPROC= Medicine procedure IEN ( 697.2,yyy points to 699, 699.5 etc)
;MAGDFN= Patient's DFN
; RETURN piece 1= 1 or 0
; piece 2= DICOM ID
; DICOM ID= medicine file id code-Medicine file IEN
N OK,MAGID,MCFILE
S RETURN="0^Invalid information sent"
Q:'MAGMFILE!('MAGMFIEN)!('MAGDFN)
; Will check to see if valid information is sent
I '$D(^MAG(2005.03,MAGMFILE)) D Q
. S RETURN="0^Invalid Imaging Parent file."
S MCFILE=MAGMFILE
S OK=$$VALID^MCUIMAG0(MAGMFILE,MAGMFIEN,MAGDFN,MAGPROC)
I 'OK S RETURN=OK Q
;
S MAGID=$$TYPE(MAGMFILE)
S RETURN="1^DICOM ID: "_MAGID_"-"_MAGMFIEN
Q
TYPE(FILE) ;Set the id code for the Medicine file
; If we add addtl. Medicine files, the following will need to be chgd.
N MAGCODE
S MAGCODE="unknown"
I 'FILE Q MAGCODE
S MAGCODE=$S(FILE=691:"EC",FILE=691.1:"CC",FILE=691.5:"EL",FILE=694:"HE",FILE=699:"EN",1:"GM")
Q MAGCODE
FILE(CODE) ;Set the file number according to the Medicine id file code
; If we add addtl. Medicine files, the following will need to be chgd.
; Default is the Generalized Procedure/Consult Medicine file.
N MAGFILE
I '$D(CODE) Q 0
S MAGFILE=$S(CODE="EC":691,CODE="CC":691.1,CODE="EL":691.5,CODE="HE":694,CODE="EN":699,1:699.5)
Q MAGFILE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGDMEDI 2540 printed Oct 16, 2024@18:01:27 Page 2
MAGDMEDI ;WOIFO/LB - Routine for Medicine DICOM ID ; [ 06/20/2001 08:56 ]
+1 ;;3.0;IMAGING;;Mar 01, 2002
+2 ;; +---------------------------------------------------------------+
+3 ;; | Property of the US Government. |
+4 ;; | No permission to copy or redistribute this software is given. |
+5 ;; | Use of unreleased versions of this software requires the user |
+6 ;; | to execute a written test agreement with the VistA Imaging |
+7 ;; | Development Office of the Department of Veterans Affairs, |
+8 ;; | telephone (301) 734-0100. |
+9 ;; | |
+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
DICOMID(RETURN,MAGMFILE,MAGMFIEN,MAGPROC,MAGDFN) ;
+1 ;MAGMFILE= Medicine file number ( i.e. 699 , 699.5 etc)
+2 ;MAGMFIEN= Medicine file entry, IEN (699,xxx)
+3 ;MAGPROC= Medicine procedure IEN ( 697.2,yyy points to 699, 699.5 etc)
+4 ;MAGDFN= Patient's DFN
+5 ; RETURN piece 1= 1 or 0
+6 ; piece 2= DICOM ID
+7 ; DICOM ID= medicine file id code-Medicine file IEN
+8 NEW OK,MAGID,MCFILE
+9 SET RETURN="0^Invalid information sent"
+10 if 'MAGMFILE!('MAGMFIEN)!('MAGDFN)
QUIT
+11 ; Will check to see if valid information is sent
+12 IF '$DATA(^MAG(2005.03,MAGMFILE))
Begin DoDot:1
+13 SET RETURN="0^Invalid Imaging Parent file."
End DoDot:1
QUIT
+14 SET MCFILE=MAGMFILE
+15 SET OK=$$VALID^MCUIMAG0(MAGMFILE,MAGMFIEN,MAGDFN,MAGPROC)
+16 IF 'OK
SET RETURN=OK
QUIT
+17 ;
+18 SET MAGID=$$TYPE(MAGMFILE)
+19 SET RETURN="1^DICOM ID: "_MAGID_"-"_MAGMFIEN
+20 QUIT
TYPE(FILE) ;Set the id code for the Medicine file
+1 ; If we add addtl. Medicine files, the following will need to be chgd.
+2 NEW MAGCODE
+3 SET MAGCODE="unknown"
+4 IF 'FILE
QUIT MAGCODE
+5 SET MAGCODE=$SELECT(FILE=691:"EC",FILE=691.1:"CC",FILE=691.5:"EL",FILE=694:"HE",FILE=699:"EN",1:"GM")
+6 QUIT MAGCODE
FILE(CODE) ;Set the file number according to the Medicine id file code
+1 ; If we add addtl. Medicine files, the following will need to be chgd.
+2 ; Default is the Generalized Procedure/Consult Medicine file.
+3 NEW MAGFILE
+4 IF '$DATA(CODE)
QUIT 0
+5 SET MAGFILE=$SELECT(CODE="EC":691,CODE="CC":691.1,CODE="EL":691.5,CODE="HE":694,CODE="EN":699,1:699.5)
+6 QUIT MAGFILE
