ipl ;BMI/BI IRIS PATCH LIST DIFFERENCE Viewer. ;11/19/2013
 Quit
 ;
view
 New x,name,ien,status
 Do import
 Set x=12451
 For  Do  Quit:+x=0
 . Set x=$Order(^ipl(x)) Quit:+x=0
 . Set name=^ipl(x)
 . Set ien=$Order(^XPD(9.7,"B",name,""),-1)
 . Set status=0 Set:ien status=$Piece(^XPD(9.7,ien,0),"^",9)
 . Quit:$Extract(name,$Length(name))="b"
 . Quit:name["DSSO*2.0"
 . Quit:name["DENT*1.2"
 . Quit:name["KMP*4.0"
 . Quit:name="PSO*7.0*729"
 . Quit:name="CCRA RDC UPDATE BUILD 1.0"
 . Quit:name="GMRC*3.0*200"
 . Quit:name="TIU*1.0*363"
 . Quit:name="MD*1.0*88"
 . Quit:name="XU*8.0*810"
 . Quit:name="XWB*1.1*76"
 . Quit:$Data(^XPD(9.7,"B",name))&(status=3)
 . Write "<tr><td>"_x_"</td><td>"_name_"</td></tr>",!
 Quit
 ;
import   ;public
 New ipl,TextLine,URL,RESULT
 Set URL="https://edu2.opensourcevista.net/vista/IrisPatchList.txt"
 Do get(URL,.RESULT)
 For cnt=1:1:RESULT(0) Do
 . Set ^ipl($Piece(RESULT(cnt),"^",1))=$Piece(RESULT(cnt),"^",2)
 Quit
 ;
delimited
 New x,name,ien,status
 Set x=$zcmdline,x=x-1
 Do import
 For  Do  Quit:+x=0
 . Set x=$Order(^ipl(x)) Quit:+x=0
 . Set name=^ipl(x)
 . Write x_"^"_name,!
 Quit
 ;
get(URL,RESULT)
 New TMP,I,CMD Kill RESULT
 Set TMP="curlTMP",CMD="curl -s """_URL_""""
 Open TMP:(shell="/bin/sh":command=CMD)::"PIPE"
 Use TMP For RESULT(0)=1:1 Read RESULT(RESULT(0))#4000:1 Quit:$ZEOF
 If RESULT(RESULT(0))="" Kill RESULT(RESULT(0)) Set RESULT(0)=RESULT(0)-1
 For I=1:1:RESULT(0) Set RESULT(I)=$Translate(RESULT(I),$c(13),"")
 Close TMP
 Quit