- 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 ---[H[J[2J[HRD73P149 645 printed Feb 19, 2025@00:05:20 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