Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BNPENHT

BNPENHT.m

Go to the documentation of this file. 
  1. BNPENHT ;IHS/OIT/MLP/ENM - communicate via http protocol
  1.  ;;1.0;NATIONAL SITE TRACKING SYSTEM;**1**;07/31/2009
  1.  ;BNP*1.0*1 11/30/2011 IHS.OIT.GAB Patch 1 changes
  1.  // *** MLP - communicate with NHIN development server to submit patch information
  1.  //w !!,"Connecting to NHIN Dev Server, removing old package data ...",!!!
  1.  s (bevx, bevxx)="",d="^"
  1.  // wipe entries prior to submission - mlp
  1.  f  s bevx=$o(^BNPENV(bevx)) q:bevx=""  d
  1.  . // load variables from global for submission
  1.  .set bevrec = ^BNPENV(bevx)
  1.  .set ttype="wipe"
  1.  .set asufac = $p(bevrec,d)
  1.  Set httprequest=##class(%Net.HttpRequest).%New()
  1.  ;Set httprequest.Server="seal6.ihs.gov"
  1.  ;BNP*1.0*1 10/27/2011 IHS.OIT.GAB Changed to different server below
  1.  Set httprequest.Server="nhin.ihs.gov"
  1.  Set httprequest.Port=80
  1.  Do httprequest.SetParam("ttype",ttype)
  1.  Do httprequest.SetParam("asufac",asufac)
  1.  Do httprequest.Get("/preport3/sentry.php")
  1.  // end wipe entries - mlp
  1.  //w !!,"Connecting to NHIN Dev Server, updating package data ...",!!!
  1.  f  s bevx=$o(^BNPENV(bevx)) q:bevx=""  d
  1.  	.//w !,bevx // load variables from global for submission
  1.  	.set bevrec = ^BNPENV(bevx)
  1.  	.//write bevrec
  1.  	.set ttype="PI"
  1.  	.set asufac = $p(bevrec,d)
  1.  	.set facilityname = $p(bevrec,d,2)
  1.  	.set packagename = $p(bevrec,d,3)
  1.  	.set pkgnamespace = $p(bevrec,d,4)
  1.  	.set version = $p(bevrec,d,5)
  1.  	.set lpatch = $p(bevrec,d,6)
  1.  	.set dlpatch = $p(bevrec,d,7)
  1.  	.set sindate = $p(bevrec,d,8)
  1.  	.set cos = $p(bevrec,d,9)
  1.  	.set ddist = $p(bevrec,d,10)
  1.  	.set lpdist = $p(bevrec,d,11)
  1.  	. // BNP*1.0*1 11/30/2011 IHS.OIT.GAB Added 10th & 11th fields above for date distributed
  1.  	.Set httprequest=##class(%Net.HttpRequest).%New()
  1.  	. // BNP*1.0*1 11/30/2011 IHS.OIT.GAB Changed to different server & added 10th & 11th fields below
  1.  	.Set httprequest.Server="seal6.ihs.gov"
  1.  	.Set httprequest.Port=80
  1.  	.Do httprequest.SetParam("ttype",ttype)
  1.  	.Do httprequest.SetParam("asufac",asufac)
  1.  	.Do httprequest.SetParam("facilityname",facilityname)
  1.  	.Do httprequest.SetParam("packagename",packagename)
  1.  	.Do httprequest.SetParam("pkgnamespace",pkgnamespace)
  1.  	.Do httprequest.SetParam("version",version)
  1.  	.Do httprequest.SetParam("lpatch",lpatch)
  1.  	.Do httprequest.SetParam("dlpatch",dlpatch)
  1.  	.Do httprequest.SetParam("sindate",sindate)
  1.  	.Do httprequest.SetParam("cos", cos)
  1.  	.Do httprequest.SetParam("ddist",ddist)
  1.  	.Do httprequest.SetParam("lpdist",lpdist)
  1.  	.Do httprequest.Get("/preport3/sentry.php")
  1.  	.// Do httprequest.HttpResponse.OutputToDevice()
  1.  	.// write !,bevrec
  1.  // *****
  1.  // MLP DONE NHIN communication