RD73P149.m

RD73P149 ;RSD/OAKLAND - Test Routine for XT*7.3*149

 ;;7.3;TOOLKIT;**149**;Apr 25, 1995;Build 1

 ;This routine is only to test XINDEX for patch 149.

 ;It is in the RD namespace because XT routines allow vendor specific code

 Q

 ;This is Vendor Specific code

 ; Call web server and web service. API key is set in Context Root of the web service in HWSC.

 N SERV,PREQ,JSON

 S SERV="TEST"

 S PREQ=$$GETREST^XOBWLIB(SERV,"UAM AV SERVER")

 S JSON="TEST"

 D PREQ.EntityBody.Write(JSON) ; places the entire json string into EntityBody

 D PREQ.SetHeader("ContentType","application/json")

 ;reference variable DILOCKTM

 I DILOCKTM

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RD73P149   645     printed  Dec 13, 2024@02:38:53                                                                                                                                                                                                     Page 2

RD73P149  ;RSD/OAKLAND - Test Routine for XT*7.3*149

 +1       ;;7.3;TOOLKIT;**149**;Apr 25, 1995;Build 1

 +2       ;This routine is only to test XINDEX for patch 149.

 +3       ;It is in the RD namespace because XT routines allow vendor specific code

 +4        QUIT 

 +5       ;This is Vendor Specific code

 +6       ; Call web server and web service. API key is set in Context Root of the web service in HWSC.

 +7        NEW SERV,PREQ,JSON

 +8        SET SERV="TEST"

 +9        SET PREQ=$$GETREST^XOBWLIB(SERV,"UAM AV SERVER")

 +10       SET JSON="TEST"

 +11      ; places the entire json string into EntityBody

           DO PREQ.EntityBody.Write(JSON)

 +12       DO PREQ.SetHeader("ContentType","application/json")

 +13      ;reference variable DILOCKTM

 +14       IF DILOCKTM

 +15      ;

 +16       QUIT