MAGDUID3 ;WOIFO/EdM - UID Table Management - Server Part ; 11/09/2007 07:11
;;3.0;IMAGING;**54**;03-July-2009;;Build 1424
;; 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
;
SERVER(OUT,OFFSET,MAX) ; RPC = MAG DICOM GET UID TABLE
N BEGIN,COUNT,LAST,REF
S REF=$G(OFFSET) S:$TR(REF,"^")="" REF="^MAGDICOM(2006.539)"
S BEGIN="^MAGDICOM(2006.539,"
S LAST="",COUNT=0 F S REF=$Q(@REF) Q:REF="" Q:$E(REF,1,$L(BEGIN))'=BEGIN D Q:COUNT>MAX
. S COUNT=COUNT+1,OUT(COUNT)=REF,LAST=REF
. S COUNT=COUNT+1,OUT(COUNT)=@REF
. QUIT
S:$E(REF,1,$L(BEGIN))'=BEGIN COUNT=COUNT+1,OUT(COUNT)="^"
S OUT(0)=COUNT
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGDUID3 1574 printed Nov 22, 2024@17:12:22 Page 2
MAGDUID3 ;WOIFO/EdM - UID Table Management - Server Part ; 11/09/2007 07:11
+1 ;;3.0;IMAGING;**54**;03-July-2009;;Build 1424
+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 ;
SERVER(OUT,OFFSET,MAX) ; RPC = MAG DICOM GET UID TABLE
+1 NEW BEGIN,COUNT,LAST,REF
+2 SET REF=$GET(OFFSET)
if $TRANSLATE(REF,"^")=""
SET REF="^MAGDICOM(2006.539)"
+3 SET BEGIN="^MAGDICOM(2006.539,"
+4 SET LAST=""
SET COUNT=0
FOR
SET REF=$QUERY(@REF)
if REF=""
QUIT
if $EXTRACT(REF,1,$LENGTH(BEGIN))'=BEGIN
QUIT
Begin DoDot:1
+5 SET COUNT=COUNT+1
SET OUT(COUNT)=REF
SET LAST=REF
+6 SET COUNT=COUNT+1
SET OUT(COUNT)=@REF
+7 QUIT
End DoDot:1
if COUNT>MAX
QUIT
+8 if $EXTRACT(REF,1,$LENGTH(BEGIN))'=BEGIN
SET COUNT=COUNT+1
SET OUT(COUNT)="^"
+9 SET OUT(0)=COUNT
+10 QUIT
+11 ;
