TIUMSER.m

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 ---TIUMSER   478     printed  Mar 13, 2025@21:47:33                                                                                                                                                                                                      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