- MAGVRS06 ;WOIFO/MLH,DAC - RPC calls for DICOM file processing ; Mar 31, 2021@09:48:26
- ;;3.0;IMAGING;**118,257,278**;Mar 19, 2002;Build 138
- ;; Per VA Directive 6402, 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
- ATPROC(OUT,PROCATTS) ;RPC - create a new procedure reference
- L +^MAGV(2005.61):60 E D ; P257 DAC - Lock Procedure Reference file to prevent duplicates
- . S OUT(1)="-99"_$$STATSEP^MAGVRS41_"Procedure Reference file is locked"
- Q:$D(OUT(1))
- D ATTACH^MAGVRS41(.OUT,2005.61,.PROCATTS)
- L -^MAGV(2005.61)
- Q
- CREPAT(OUT,PATATTS) ;RPC - create a new patient reference
- L +^MAGV(2005.6):60 E D ; P257 DAC - Lock Patient Reference file to prevent duplicates
- . S OUT(1)="-99"_$$STATSEP^MAGVRS41_"Patient Reference file is locked"
- Q:$D(OUT(1))
- D ATTACH^MAGVRS41(.OUT,2005.6,.PATATTS)
- L -^MAGV(2005.6)
- Q
- UPDPAT(OUT,PATATTS,OVERRIDE) ;RPC - update patient
- D UPDATE^MAGVRS41(.OUT,2005.6,.PATATTS,$G(OVERRIDE))
- Q
- FINDPAT(OUT,PATATTS) ; RPC - find patient by attributes
- D STATUS^MAGVRS07(.PATATTS)
- D FINDBYAT^MAGVRS42(.OUT,2005.6,.PATATTS)
- Q
- INPAT(OUT,PATIEN) ; RPC - inactivate patient
- D INACTIVT^MAGVRS41(.OUT,2005.6,$G(PATIEN),0,0)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVRS06 2104 printed Jan 18, 2025@03:11:20 Page 2
- MAGVRS06 ;WOIFO/MLH,DAC - RPC calls for DICOM file processing ; Mar 31, 2021@09:48:26
- +1 ;;3.0;IMAGING;**118,257,278**;Mar 19, 2002;Build 138
- +2 ;; Per VA Directive 6402, 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
- ATPROC(OUT,PROCATTS) ;RPC - create a new procedure reference
- +1 ; P257 DAC - Lock Procedure Reference file to prevent duplicates
- LOCK +^MAGV(2005.61):60
- IF '$TEST
- Begin DoDot:1
- +2 SET OUT(1)="-99"_$$STATSEP^MAGVRS41_"Procedure Reference file is locked"
- End DoDot:1
- +3 if $DATA(OUT(1))
- QUIT
- +4 DO ATTACH^MAGVRS41(.OUT,2005.61,.PROCATTS)
- +5 LOCK -^MAGV(2005.61)
- +6 QUIT
- CREPAT(OUT,PATATTS) ;RPC - create a new patient reference
- +1 ; P257 DAC - Lock Patient Reference file to prevent duplicates
- LOCK +^MAGV(2005.6):60
- IF '$TEST
- Begin DoDot:1
- +2 SET OUT(1)="-99"_$$STATSEP^MAGVRS41_"Patient Reference file is locked"
- End DoDot:1
- +3 if $DATA(OUT(1))
- QUIT
- +4 DO ATTACH^MAGVRS41(.OUT,2005.6,.PATATTS)
- +5 LOCK -^MAGV(2005.6)
- +6 QUIT
- UPDPAT(OUT,PATATTS,OVERRIDE) ;RPC - update patient
- +1 DO UPDATE^MAGVRS41(.OUT,2005.6,.PATATTS,$GET(OVERRIDE))
- +2 QUIT
- FINDPAT(OUT,PATATTS) ; RPC - find patient by attributes
- +1 DO STATUS^MAGVRS07(.PATATTS)
- +2 DO FINDBYAT^MAGVRS42(.OUT,2005.6,.PATATTS)
- +3 QUIT
- INPAT(OUT,PATIEN) ; RPC - inactivate patient
- +1 DO INACTIVT^MAGVRS41(.OUT,2005.6,$GET(PATIEN),0,0)
- +2 QUIT