TIUMSER ; NA/AJB - PERSIAN GULF UPDATE;Nov 06, 2024@12:58:52
;;1.0;TEXT INTEGRATION UTILITIES;**370**;Jun 20, 1997;Build 14
;
; Reference to KVAR^VADPT in ICR #10061
; Reference to SVC^VADPT in ICR #10061
;
Q
PGULF(DFN) ; persian gulf indicator
N OUT,VAERR,VAROOT,X,Y
I '$D(^TMP($J,"SVC",DFN)) S VAROOT="^TMP($J,""SVC"",DFN)" D SVC^VADPT,KVAR^VADPT
S OUT=$G(^TMP($J,"SVC",DFN,16)),OUT="Persian Gulf Indicator: "_$S(OUT="":"<no data>",1:$P(OUT,U,2))
Q OUT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUMSER 478 printed Sep 23, 2025@20:18:56 Page 2
TIUMSER ; NA/AJB - PERSIAN GULF UPDATE;Nov 06, 2024@12:58:52
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**370**;Jun 20, 1997;Build 14
+2 ;
+3 ; Reference to KVAR^VADPT in ICR #10061
+4 ; Reference to SVC^VADPT in ICR #10061
+5 ;
+6 QUIT
PGULF(DFN) ; persian gulf indicator
+1 NEW OUT,VAERR,VAROOT,X,Y
+2 IF '$DATA(^TMP($JOB,"SVC",DFN))
SET VAROOT="^TMP($J,""SVC"",DFN)"
DO SVC^VADPT
DO KVAR^VADPT
+3 SET OUT=$GET(^TMP($JOB,"SVC",DFN,16))
SET OUT="Persian Gulf Indicator: "_$SELECT(OUT="":"<no data>",1:$PIECE(OUT,U,2))
+4 QUIT OUT
