INSY181.m

INSY181 ;slt;19 Aug 1994@090347;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(562037788,"DEMF",1,0)

 ;;HOSPITAL LOCATION^^1^^^^99HOS

 ;;^UTILITY(562037788,"DEMF",1,"SC")

 ;;44

 ;;^UTILITY(562037788,"DEMF",2,0)

 ;;PROVIDER^^0^^^^99STF

 ;;^UTILITY(562037788,"DEMF",2,"SC")

 ;;6

 ;;^UTILITY(562037788,"DEMF",13,0)

 ;;RADIOLOGY PROCEDURE^^0^^^^99RPR

 ;;^UTILITY(562037788,"DEMF",13,"SC")

 ;;71

 ;;^UTILITY(562037788,"DEMF",19,0)

 ;;PATIENT

 ;;^UTILITY(562037788,"DEMF",19,"SC")

 ;;2

 ;;^UTILITY(562037788,"ID",4,0)

 ;;MDIS^^INHVAM

 ;;^UTILITY(562037788,"ID",4,5,0)

 ;;^4005.02^^0

 ;;^UTILITY(562037788,"IS",8,0)

 ;;Generated: HL RAD RESULT MESSAGE-O^O^70.5^^1^6

 ;;^UTILITY(562037788,"IS",8,1,0)

 ;;^^123^123

 ;;^UTILITY(562037788,"IS",8,1,1,0)

 ;;;Script generated from 'HL RAD RESULT MESSAGE' HL7 message.|CR|

 ;;^UTILITY(562037788,"IS",8,1,2,0)

 ;;DATA:|CR|

 ;;^UTILITY(562037788,"IS",8,1,3,0)

 ;;DELIM="^"|CR|

 ;;^UTILITY(562037788,"IS",8,1,4,0)

 ;;SUBDELIM="\"|CR|

 ;;^UTILITY(562037788,"IS",8,1,5,0)

 ;;LINE "MSH"^"\|~&"^^INSITE^^^INTX(NOW,"TS")^^"ORU"^@MESSID^"D"^"2.2"|CR|

 ;;^UTILITY(562037788,"IS",8,1,6,0)

 ;;;'PID' segment|CR|

 ;;^UTILITY(562037788,"IS",8,1,7,0)

 ;;^SET INSETID=0|CR|

 ;;^UTILITY(562037788,"IS",8,1,8,0)

 ;;WHILE PATIENT|CR|

 ;;^UTILITY(562037788,"IS",8,1,9,0)

 ;;SET PID1 = $E(INSGX("^INTHL7FT(11,3)","PID"),1,4)|CR|

 ;;^UTILITY(562037788,"IS",8,1,10,0)

 ;;SET PID2 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,11,0)

 ;;SET PID3.1 = $E(INSGX("^INTHL7FT(3,3)",NUMBER),1,15)|CR|

 ;;^UTILITY(562037788,"IS",8,1,12,0)

 ;;SET PID3.2 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,13,0)

 ;;SET PID3.3 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,14,0)

 ;;SET PID3.4 = $E(INSITE,1,15)|CR|

 ;;^UTILITY(562037788,"IS",8,1,15,0)

 ;;SET PID4 = #8000|CR|

 ;;^UTILITY(562037788,"IS",8,1,16,0)

 ;;SET PID5 = $E(INSGX("^INTHL7FT(7,3)",NAME),1,48)|CR|

 ;;^UTILITY(562037788,"IS",8,1,17,0)

 ;;SET PID6 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,18,0)

 ;;SET PID7 = $E(INSGX("^INTHL7FT(4,3)",DOB),1,8)|CR|

 ;;^UTILITY(562037788,"IS",8,1,19,0)

 ;;SET PID8 = $E(INTERNAL(SEX),1,1)|CR|

 ;;^UTILITY(562037788,"IS",8,1,20,0)

 ;;SET PID9 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,21,0)

 ;;SET PID10 = $E(INTERNAL(RACE:CODE),1,1)|CR|

 ;;^UTILITY(562037788,"IS",8,1,22,0)

 ;;SET PID11.1 = $E(STREET ADDRESS,1,36)|CR|

 ;;^UTILITY(562037788,"IS",8,1,23,0)

 ;;SET PID11.2 = $E(#.112_$S($L(#.113):" ",1:"")_#.113,1,36)|CR|

 ;;^UTILITY(562037788,"IS",8,1,24,0)

 ;;SET PID11.3 = $E(CITY,1,20)|CR|

 ;;^UTILITY(562037788,"IS",8,1,25,0)

 ;;SET PID11.4 = $E(STATE,1,71)|CR|

 ;;^UTILITY(562037788,"IS",8,1,26,0)

 ;;SET PID11.5 = $E(ZIP CODE,1,10)|CR|

 ;;^UTILITY(562037788,"IS",8,1,27,0)

 ;;SET PID12 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,28,0)

 ;;SET PID13 = PHONE|CR|

 ;;^UTILITY(562037788,"IS",8,1,29,0)

 ;;SET PID14 = OFFICE PHONE|CR|

 ;;^UTILITY(562037788,"IS",8,1,30,0)

 ;;SET PID15 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,31,0)

 ;;SET PID16 = $E(INTERNAL(MARITAL STATUS:ABBREVIATION),1,1)|CR|

 ;;^UTILITY(562037788,"IS",8,1,32,0)

 ;;SET PID17 = $E(INTERNAL(RELIGION:CODE),1,3)|CR|

 ;;^UTILITY(562037788,"IS",8,1,33,0)

 ;;SET PID18 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,34,0)

 ;;SET PID19 = #.09|CR|

 ;;^UTILITY(562037788,"IS",8,1,35,0)

 ;;SET PID20 = ""|CR|

 ;;^UTILITY(562037788,"IS",8,1,36,0)

 ;;LINE "PID"^PID1^PID2^PID3.1_SUBDELIM_PID3.2_SUBDELIM_PID3.3_SUBDELIM_PID3.4^$E(PID4,1,15)^PID5^PID6^PID7^PID8^PID9^PID10^PID11.1_SUBDELIM_PID11.2_SUBDELIM_PID11.3_SUBDELIM_PID11.4_SUBDELIM_PID11.5^PID12^$E(PID13,1,14)^$E(PID14,1,18)^PID15^

 ;;^UTILITY(562037788,"IS",8,1,37,0)

 ;;PID16^PID17^PID18^$E(PID19,1,16)^PID20|CR|

 ;;^UTILITY(562037788,"IS",8,1,38,0)

 ;;ENDWHILE|CR|

 ;;^UTILITY(562037788,"IS",8,1,39,0)

 ;;;'ORC' segment|CR|

 ;;^UTILITY(562037788,"IS",8,1,40,0)

 ;;^SET INSETID=0|CR|

 ;;^UTILITY(562037788,"IS",8,1,41,0)

 ;;WHILE RADIOLOGY EXAM|CR|

 ;;^UTILITY(562037788,"IS",8,1,42,0)

 ;;^D RESLT^RAGISH01|CR|

 ;;^UTILITY(562037788,"IS",8,1,43,0)

 ;;SET ORC1 = $E(INTERNAL(@OREVENT),1,2)|CR|

 ;;^UTILITY(562037788,"IS",8,1,44,0)

 ;;SET ORC5 = $E(INTERNAL(@ORSTAT),1,2)|CR|

 ;;^UTILITY(562037788,"IS",8,1,45,0)

 ;;SET ORC9 = $E(INSGX("^INTHL7FT(6,3)",@ORTT),1,26)|CR|

 ;;^UTILITY(562037788,"IS",8,1,46,0)

 ;;SET ORC10 = $E(INSGX("^INTHL7FT(19,3)",@ORDUZ),1,80)|CR|

 ;;^UTILITY(562037788,"IS",8,1,47,0)

 ;;SET ORC11 = $E(INSGX("^INTHL7FT(19,3)",@ORHCP),1,80)|CR|

 ;;^UTILITY(562037788,"IS",8,1,48,0)

 ;;SET ORC13 = $E(INTERNAL(#1.07)_SUBDELIM_(#1.07),1,80)|CR|

 ;;^UTILITY(562037788,"IS",8,1,49,0)

 ;;SET ORC15 = $E(INSGX("^INTHL7FT(6,3)",#.07),1,26)|CR|

 ;;^UTILITY(562037788,"IS",8,1,50,0)

 ;;SET ORC16 = @ORCOM|CR|

 ;;^UTILITY(562037788,"IS",8,1,51,0)

 ;;LINE "ORC"^ORC1^^^^ORC5^^^^ORC9^ORC10^ORC11^^ORC13^^ORC15^$E(ORC16,1,200)|CR|

 ;;^UTILITY(562037788,"IS",8,1,52,0)

 ;;;'OBR' segment|CR|

 ;;^UTILITY(562037788,"IS",8,1,53,0)

 ;;^SET INSETID=0|CR|

 ;;^UTILITY(562037788,"IS",8,1,54,0)

 ;;SET OBR1 = $E(INSGX("^INTHL7FT(11,3)","OBR"),1,4)|CR|

 ;;^UTILITY(562037788,"IS",8,1,55,0)

 ;;SET OBR2 = #8609.11|CR|

 ;;^UTILITY(562037788,"IS",8,1,56,0)

 ;;SET OBR3 = #.01|CR|

 ;;^UTILITY(562037788,"IS",8,1,57,0)

 ;;SET OBR4 = $E(INSGX("^INTHL7FT(17,3)",INTERNAL(#.03)_";71"),1,75)|CR|

 ;;^UTILITY(562037788,"IS",8,1,58,0)

 ;;SET OBR6 = $E(INSGX("^INTHL7FT(6,3)",#.06),1,26)|CR|

 ;;^UTILITY(562037788,"IS",8,1,59,0)

 ;;SET OBR7 = $E(INSGX("^INTHL7FT(6,3)",@OBSDATE),1,26)|CR|

 ;;^UTILITY(562037788,"IS",8,1,60,0)

 ;;SET OBR13 = #8609.12:#.1|CR|

 ;;^UTILITY(562037788,"IS",8,1,61,0)

 ;;SET OBR14 = $E(INSGX("^INTHL7FT(6,3)",@RECDATE),1,26)|CR|

 ;;^UTILITY(562037788,"IS",8,1,62,0)

 ;;SET OBR16 = $E(INTERNAL(#.08)_SUBDELIM_(INSGX("^INTHL7FT(15,3)",#.08)),1,60)|CR|

 ;;^UTILITY(562037788,"IS",8,1,63,0)

 ;;SET OBR22 = $E(INSGX("^INTHL7FT(6,3)",@EFFDATE),1,26)|CR|

 ;;^UTILITY(562037788,"IS",8,1,64,0)

 ;;SET OBR24 = $E(INTERNAL(#.15:#.01)_SUBDELIM_(#.15:#.01),1,75)|CR|

 ;;^UTILITY(562037788,"IS",8,1,65,0)

 ;;SET OBR25 = $E(INTERNAL(@RESULT),1,1)|CR|

 Q

INSY181   ;slt;19 Aug 1994@090347;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(562037788,"DEMF",1,0)

 +2       ;;HOSPITAL LOCATION^^1^^^^99HOS

 +3       ;;^UTILITY(562037788,"DEMF",1,"SC")

 +4       ;;44

 +5       ;;^UTILITY(562037788,"DEMF",2,0)

 +6       ;;PROVIDER^^0^^^^99STF

 +7       ;;^UTILITY(562037788,"DEMF",2,"SC")

 +8       ;;6

 +9       ;;^UTILITY(562037788,"DEMF",13,0)

 +10      ;;RADIOLOGY PROCEDURE^^0^^^^99RPR

 +11      ;;^UTILITY(562037788,"DEMF",13,"SC")

 +12      ;;71

 +13      ;;^UTILITY(562037788,"DEMF",19,0)

 +14      ;;PATIENT

 +15      ;;^UTILITY(562037788,"DEMF",19,"SC")

 +16      ;;2

 +17      ;;^UTILITY(562037788,"ID",4,0)

 +18      ;;MDIS^^INHVAM

 +19      ;;^UTILITY(562037788,"ID",4,5,0)

 +20      ;;^4005.02^^0

 +21      ;;^UTILITY(562037788,"IS",8,0)

 +22      ;;Generated: HL RAD RESULT MESSAGE-O^O^70.5^^1^6

 +23      ;;^UTILITY(562037788,"IS",8,1,0)

 +24      ;;^^123^123

 +25      ;;^UTILITY(562037788,"IS",8,1,1,0)

 +26      ;;;Script generated from 'HL RAD RESULT MESSAGE' HL7 message.|CR|

 +27      ;;^UTILITY(562037788,"IS",8,1,2,0)

 +28      ;;DATA:|CR|

 +29      ;;^UTILITY(562037788,"IS",8,1,3,0)

 +30      ;;DELIM="^"|CR|

 +31      ;;^UTILITY(562037788,"IS",8,1,4,0)

 +32      ;;SUBDELIM="\"|CR|

 +33      ;;^UTILITY(562037788,"IS",8,1,5,0)

 +34      ;;LINE "MSH"^"\|~&"^^INSITE^^^INTX(NOW,"TS")^^"ORU"^@MESSID^"D"^"2.2"|CR|

 +35      ;;^UTILITY(562037788,"IS",8,1,6,0)

 +36      ;;;'PID' segment|CR|

 +37      ;;^UTILITY(562037788,"IS",8,1,7,0)

 +38      ;;^SET INSETID=0|CR|

 +39      ;;^UTILITY(562037788,"IS",8,1,8,0)

 +40      ;;WHILE PATIENT|CR|

 +41      ;;^UTILITY(562037788,"IS",8,1,9,0)

 +42      ;;SET PID1 = $E(INSGX("^INTHL7FT(11,3)","PID"),1,4)|CR|

 +43      ;;^UTILITY(562037788,"IS",8,1,10,0)

 +44      ;;SET PID2 = ""|CR|

 +45      ;;^UTILITY(562037788,"IS",8,1,11,0)

 +46      ;;SET PID3.1 = $E(INSGX("^INTHL7FT(3,3)",NUMBER),1,15)|CR|

 +47      ;;^UTILITY(562037788,"IS",8,1,12,0)

 +48      ;;SET PID3.2 = ""|CR|

 +49      ;;^UTILITY(562037788,"IS",8,1,13,0)

 +50      ;;SET PID3.3 = ""|CR|

 +51      ;;^UTILITY(562037788,"IS",8,1,14,0)

 +52      ;;SET PID3.4 = $E(INSITE,1,15)|CR|

 +53      ;;^UTILITY(562037788,"IS",8,1,15,0)

 +54      ;;SET PID4 = #8000|CR|

 +55      ;;^UTILITY(562037788,"IS",8,1,16,0)

 +56      ;;SET PID5 = $E(INSGX("^INTHL7FT(7,3)",NAME),1,48)|CR|

 +57      ;;^UTILITY(562037788,"IS",8,1,17,0)

 +58      ;;SET PID6 = ""|CR|

 +59      ;;^UTILITY(562037788,"IS",8,1,18,0)

 +60      ;;SET PID7 = $E(INSGX("^INTHL7FT(4,3)",DOB),1,8)|CR|

 +61      ;;^UTILITY(562037788,"IS",8,1,19,0)

 +62      ;;SET PID8 = $E(INTERNAL(SEX),1,1)|CR|

 +63      ;;^UTILITY(562037788,"IS",8,1,20,0)

 +64      ;;SET PID9 = ""|CR|

 +65      ;;^UTILITY(562037788,"IS",8,1,21,0)

 +66      ;;SET PID10 = $E(INTERNAL(RACE:CODE),1,1)|CR|

 +67      ;;^UTILITY(562037788,"IS",8,1,22,0)

 +68      ;;SET PID11.1 = $E(STREET ADDRESS,1,36)|CR|

 +69      ;;^UTILITY(562037788,"IS",8,1,23,0)

 +70      ;;SET PID11.2 = $E(#.112_$S($L(#.113):" ",1:"")_#.113,1,36)|CR|

 +71      ;;^UTILITY(562037788,"IS",8,1,24,0)

 +72      ;;SET PID11.3 = $E(CITY,1,20)|CR|

 +73      ;;^UTILITY(562037788,"IS",8,1,25,0)

 +74      ;;SET PID11.4 = $E(STATE,1,71)|CR|

 +75      ;;^UTILITY(562037788,"IS",8,1,26,0)

 +76      ;;SET PID11.5 = $E(ZIP CODE,1,10)|CR|

 +77      ;;^UTILITY(562037788,"IS",8,1,27,0)

 +78      ;;SET PID12 = ""|CR|

 +79      ;;^UTILITY(562037788,"IS",8,1,28,0)

 +80      ;;SET PID13 = PHONE|CR|

 +81      ;;^UTILITY(562037788,"IS",8,1,29,0)

 +82      ;;SET PID14 = OFFICE PHONE|CR|

 +83      ;;^UTILITY(562037788,"IS",8,1,30,0)

 +84      ;;SET PID15 = ""|CR|

 +85      ;;^UTILITY(562037788,"IS",8,1,31,0)

 +86      ;;SET PID16 = $E(INTERNAL(MARITAL STATUS:ABBREVIATION),1,1)|CR|

 +87      ;;^UTILITY(562037788,"IS",8,1,32,0)

 +88      ;;SET PID17 = $E(INTERNAL(RELIGION:CODE),1,3)|CR|

 +89      ;;^UTILITY(562037788,"IS",8,1,33,0)

 +90      ;;SET PID18 = ""|CR|

 +91      ;;^UTILITY(562037788,"IS",8,1,34,0)

 +92      ;;SET PID19 = #.09|CR|

 +93      ;;^UTILITY(562037788,"IS",8,1,35,0)

 +94      ;;SET PID20 = ""|CR|

 +95      ;;^UTILITY(562037788,"IS",8,1,36,0)

 +96      ;;LINE "PID"^PID1^PID2^PID3.1_SUBDELIM_PID3.2_SUBDELIM_PID3.3_SUBDELIM_PID3.4^$E(PID4,1,15)^PID5^PID6^PID7^PID8^PID9^PID10^PID11.1_SUBDELIM_PID11.2_SUBDELIM_PID11.3_SUBDELIM_PID11.4_SUBDELIM_PID11.5^PID12^$E(PID13,1,14)^$E(PID14,1,18)^PID15^

 +97      ;;^UTILITY(562037788,"IS",8,1,37,0)

 +98      ;;PID16^PID17^PID18^$E(PID19,1,16)^PID20|CR|

 +99      ;;^UTILITY(562037788,"IS",8,1,38,0)

 +100     ;;ENDWHILE|CR|

 +101     ;;^UTILITY(562037788,"IS",8,1,39,0)

 +102     ;;;'ORC' segment|CR|

 +103     ;;^UTILITY(562037788,"IS",8,1,40,0)

 +104     ;;^SET INSETID=0|CR|

 +105     ;;^UTILITY(562037788,"IS",8,1,41,0)

 +106     ;;WHILE RADIOLOGY EXAM|CR|

 +107     ;;^UTILITY(562037788,"IS",8,1,42,0)

 +108     ;;^D RESLT^RAGISH01|CR|

 +109     ;;^UTILITY(562037788,"IS",8,1,43,0)

 +110     ;;SET ORC1 = $E(INTERNAL(@OREVENT),1,2)|CR|

 +111     ;;^UTILITY(562037788,"IS",8,1,44,0)

 +112     ;;SET ORC5 = $E(INTERNAL(@ORSTAT),1,2)|CR|

 +113     ;;^UTILITY(562037788,"IS",8,1,45,0)

 +114     ;;SET ORC9 = $E(INSGX("^INTHL7FT(6,3)",@ORTT),1,26)|CR|

 +115     ;;^UTILITY(562037788,"IS",8,1,46,0)

 +116     ;;SET ORC10 = $E(INSGX("^INTHL7FT(19,3)",@ORDUZ),1,80)|CR|

 +117     ;;^UTILITY(562037788,"IS",8,1,47,0)

 +118     ;;SET ORC11 = $E(INSGX("^INTHL7FT(19,3)",@ORHCP),1,80)|CR|

 +119     ;;^UTILITY(562037788,"IS",8,1,48,0)

 +120     ;;SET ORC13 = $E(INTERNAL(#1.07)_SUBDELIM_(#1.07),1,80)|CR|

 +121     ;;^UTILITY(562037788,"IS",8,1,49,0)

 +122     ;;SET ORC15 = $E(INSGX("^INTHL7FT(6,3)",#.07),1,26)|CR|

 +123     ;;^UTILITY(562037788,"IS",8,1,50,0)

 +124     ;;SET ORC16 = @ORCOM|CR|

 +125     ;;^UTILITY(562037788,"IS",8,1,51,0)

 +126     ;;LINE "ORC"^ORC1^^^^ORC5^^^^ORC9^ORC10^ORC11^^ORC13^^ORC15^$E(ORC16,1,200)|CR|

 +127     ;;^UTILITY(562037788,"IS",8,1,52,0)

 +128     ;;;'OBR' segment|CR|

 +129     ;;^UTILITY(562037788,"IS",8,1,53,0)

 +130     ;;^SET INSETID=0|CR|

 +131     ;;^UTILITY(562037788,"IS",8,1,54,0)

 +132     ;;SET OBR1 = $E(INSGX("^INTHL7FT(11,3)","OBR"),1,4)|CR|

 +133     ;;^UTILITY(562037788,"IS",8,1,55,0)

 +134     ;;SET OBR2 = #8609.11|CR|

 +135     ;;^UTILITY(562037788,"IS",8,1,56,0)

 +136     ;;SET OBR3 = #.01|CR|

 +137     ;;^UTILITY(562037788,"IS",8,1,57,0)

 +138     ;;SET OBR4 = $E(INSGX("^INTHL7FT(17,3)",INTERNAL(#.03)_";71"),1,75)|CR|

 +139     ;;^UTILITY(562037788,"IS",8,1,58,0)

 +140     ;;SET OBR6 = $E(INSGX("^INTHL7FT(6,3)",#.06),1,26)|CR|

 +141     ;;^UTILITY(562037788,"IS",8,1,59,0)

 +142     ;;SET OBR7 = $E(INSGX("^INTHL7FT(6,3)",@OBSDATE),1,26)|CR|

 +143     ;;^UTILITY(562037788,"IS",8,1,60,0)

 +144     ;;SET OBR13 = #8609.12:#.1|CR|

 +145     ;;^UTILITY(562037788,"IS",8,1,61,0)

 +146     ;;SET OBR14 = $E(INSGX("^INTHL7FT(6,3)",@RECDATE),1,26)|CR|

 +147     ;;^UTILITY(562037788,"IS",8,1,62,0)

 +148     ;;SET OBR16 = $E(INTERNAL(#.08)_SUBDELIM_(INSGX("^INTHL7FT(15,3)",#.08)),1,60)|CR|

 +149     ;;^UTILITY(562037788,"IS",8,1,63,0)

 +150     ;;SET OBR22 = $E(INSGX("^INTHL7FT(6,3)",@EFFDATE),1,26)|CR|

 +151     ;;^UTILITY(562037788,"IS",8,1,64,0)

 +152     ;;SET OBR24 = $E(INTERNAL(#.15:#.01)_SUBDELIM_(#.15:#.01),1,75)|CR|

 +153     ;;^UTILITY(562037788,"IS",8,1,65,0)

 +154     ;;SET OBR25 = $E(INTERNAL(@RESULT),1,1)|CR|

 +155      QUIT