INSY11.m

INSY11 ;slt;19 Aug 1994@142401;compiled gis system data

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 Q

 ;

EN F I=1:2 S %ODD=$E($T(EN+I),4,999) Q:%ODD=""  S %EVEN=$E($T(EN+(I+1)),4,999) S X="^UTILITY(""INHSYS"","_$J_","_$P(%ODD,",",2,99),@X=%EVEN

 ;;^UTILITY(562038146,"SLT",1,0)

 ;;STEVEN TJERNAGEL

 ;;^UTILITY(562038146,"SLT",1,1,0)

 ;;^4592001.01^2^2

 ;;^UTILITY(562038146,"SLT",1,1,1,0)

 ;;10022 PASEO MONTRIL #226^484-8364^535-7457

 ;;^UTILITY(562038146,"SLT",1,1,2,0)

 ;;CAMPUS POINT DRIVE^535-7457^555-2121

 ;;^UTILITY(562038146,"SLT",1,1,"B","10022 PASEO MONTRIL #226",1)

 ;;

 ;;^UTILITY(562038146,"SLT",1,1,"B","CAMPUS POINT DRIVE",2)

 ;;

 ;;^UTILITY(562038146,"SLT",1,2)

 ;;DANNY,CREGG

 Q

INSY11    ;slt;19 Aug 1994@142401;compiled gis system data

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3        QUIT 

 +4       ;

EN         FOR I=1:2

               SET %ODD=$EXTRACT($TEXT(EN+I),4,999)

               IF %ODD=""

                   QUIT 

               SET %EVEN=$EXTRACT($TEXT(EN+(I+1)),4,999)

               SET X="^UTILITY(""INHSYS"","_$JOB_","_$PIECE(%ODD,",",2,99)

               SET @X=%EVEN

 +1       ;;^UTILITY(562038146,"SLT",1,0)

 +2       ;;STEVEN TJERNAGEL

 +3       ;;^UTILITY(562038146,"SLT",1,1,0)

 +4       ;;^4592001.01^2^2

 +5       ;;^UTILITY(562038146,"SLT",1,1,1,0)

 +6       ;;10022 PASEO MONTRIL #226^484-8364^535-7457

 +7       ;;^UTILITY(562038146,"SLT",1,1,2,0)

 +8       ;;CAMPUS POINT DRIVE^535-7457^555-2121

 +9       ;;^UTILITY(562038146,"SLT",1,1,"B","10022 PASEO MONTRIL #226",1)

 +10      ;;

 +11      ;;^UTILITY(562038146,"SLT",1,1,"B","CAMPUS POINT DRIVE",2)

 +12      ;;

 +13      ;;^UTILITY(562038146,"SLT",1,2)

 +14      ;;DANNY,CREGG

 +15       QUIT