Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ONCWEB1

Package: Oncology

Routine: ONCWEB1


Information

ONCWEB1 ;ALBANY OIFO/RVD - VACCR WEB SERVICE ;Nov 4, 2022@14:22:22

Source Information

Source file <ONCWEB1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$HTE^XLFDT  $$PROD^XUPROD  
Registration 1 $$SITE^VASITE  
Web Services Client 1 ($$EOFAC,$$GET,$$GETREST,$$POST,ERR2ARR)^XOBWLIB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Oncology 4 ONCCS  ONCGENED  ONCSAPIR  ONCSED01  

Entry Points

Name Comments DBIA/ICR reference
T3 ;Edits call to HWSC
PPOST3(ONCHAND,XML,globalName) ;POST request
; @DESC Sends an HTTP request to SERVER as a POST or GET
; @ONCHAND Handle to XML document
; @XML XML request as string
; @globalName the name of global to use
; @RESPONSE A handle to response XML document
; 1 for success, 0 for failure
TCS ;Collaborative Stage call to HWSC
PPOSTCS(ONCHAND,XML,globalName) ;POST request
; @DESC Sends an HTTP request to SERVER as a POST or GET
; @ONCHAND Handle to XML document
; @XML XML request as string
; @globalName the name of global to use
; @RESPONSE A handle to response XML document
; 1 for success, 0 for failure
ERROR ;
; @DESC Handles error during request to DC SERVER via webservice.
; Depends on GLOBAL variable ONCERR to be set in previous call.
; @RETURNS Nothing. Value store in global.
GETTEXT(ERRARRAY) ;
; @DESC Gets the error text from the array
; @ERRARRAY Error array stores error in format defined by web service product.
; @RETURNS Error info as a single string

External References

Name Field # of Occurrence
$$SITE^VASITE T3+8, TCS+8
$$HTE^XLFDT T3+6, TCS+6
$$EOFAC^XOBWLIB ERROR+6
$$GET^XOBWLIB PPOST3+37, PPOSTCS+36
$$GETREST^XOBWLIB PPOST3+19, PPOSTCS+18
$$POST^XOBWLIB PPOST3+43, PPOSTCS+42
ERR2ARR^XOBWLIB ERROR+8
$$PROD^XUPROD T3+2, TCS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Calling Web Service..."
  • Line Location: T3+10
Function Call: WRITE
  • Prompt: !," Call Web Service to calculate CS..."
  • Line Location: TCS+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( T3+14, PPOST3+16!, PPOST3+21, PPOST3+30, PPOST3+55, PPOST3+57*, TCS+14, PPOSTCS+15!, PPOSTCS+20, PPOSTCS+29
, PPOSTCS+54, PPOSTCS+56*, ERROR+10*
^TMP("ONC" T3+12
^TMP("ONCCSRSP" PPOSTCS+52*
^TMP("ONCINPUT" TCS+12
^TMP("ONCSED01R" PPOST3+53*
^TMP($J T3+3, TCS+3

Label References

Name Line Occurrences
$$GETTEXT ERROR+10
$$PPOST3 T3+13
$$PPOSTCS TCS+13
ONC PPOST3+28, PPOSTCS+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ERRARRAY ERROR+4~, ERROR+8, ERROR+10, GETTEXT~
ERRARRAY("text" GETTEXT+8, GETTEXT+9
ONC PPOST3+7~, PPOSTCS+7~, GETTEXT+4~
ONC("Content-Type" PPOST3+35*, PPOST3+41*, PPOSTCS+34*, PPOSTCS+40*
ONC("I" GETTEXT+7*, GETTEXT+8*, GETTEXT+9
ONC("Ocp-Apim-Subscription-Key" PPOST3+10*
ONC("errorText" GETTEXT+6*, GETTEXT+9*, GETTEXT+11
ONC("path" PPOST3+33*, PPOST3+34*, PPOST3+37, PPOST3+39*, PPOST3+40*, PPOST3+43, PPOSTCS+32*, PPOSTCS+33*, PPOSTCS+36, PPOSTCS+38*
, PPOSTCS+39*, PPOSTCS+42
ONC("postResult" PPOST3+37*, PPOST3+43*, PPOST3+56, PPOSTCS+36*, PPOSTCS+42*, PPOSTCS+55
ONC("restObject" PPOST3+19*, PPOST3+36*, PPOST3+37, PPOST3+42*, PPOST3+43, PPOST3+48, PPOSTCS+18*, PPOSTCS+35*, PPOSTCS+36, PPOSTCS+41*
, PPOSTCS+42, PPOSTCS+47
ONC("result" PPOST3+58*, PPOSTCS+57*
ONC("server" PPOST3+13*, PPOST3+19, PPOSTCS+12*, PPOSTCS+18
ONC("webserviceName" PPOST3+14*, PPOST3+19, PPOSTCS+13*, PPOSTCS+18
ONC1 PPOST3+51~*, PPOST3+53, PPOST3+54*, PPOSTCS+50~*, PPOSTCS+52, PPOSTCS+53*
ONCERR PPOST3+7~, PPOST3+37, PPOST3+43, PPOSTCS+7~, PPOSTCS+36, PPOSTCS+42, ERROR+6*, ERROR+8
ONCEXEC T3+10, PPOST3+32, PPOST3+38, PPOST3+44!, PPOSTCS+31, PPOSTCS+37, PPOSTCS+43!
ONCFERR PPOST3+7~, PPOSTCS+7~
ONCHAND T3+9*, T3+13, PPOST3~, TCS+9*, TCS+13, PPOSTCS~
ONCHR T3+1~, T3+3*, T3+13, TCS+1~, TCS+3*, TCS+13
>> ONCSERV T3+5*, PPOST3+9*, PPOST3+14, TCS+5*, PPOSTCS+9*, PPOSTCS+13
ONCSYS T3+1~, T3+2*, PPOST3+33, PPOST3+34, PPOST3+39, PPOST3+40, TCS+1~, TCS+2*, PPOSTCS+32, PPOSTCS+33
, PPOSTCS+38, PPOSTCS+39
ONCTMP T3+1~*, T3+14*, TCS+1~*, TCS+14*
>> ONCWEB T3+4*, PPOST3+8*, PPOST3+13, TCS+4*, PPOSTCS+8*, PPOSTCS+12
RESPONSE T3+1~*, T3+13*, T3+14, TCS+1~*, TCS+13*, TCS+14
>> SITE T3+8*, TCS+8*
>> TIME T3+6*, T3+7*, TCS+6*, TCS+7*
XML PPOST3~, PPOSTCS~
XMLQUIT PPOST3+24~*, PPOST3+25, PPOSTCS+23~*, PPOSTCS+24
globalName T3+12~*, T3+13, PPOST3~, PPOST3+25, PPOST3+26, PPOST3+27*, TCS+12~*, TCS+13, PPOSTCS~, PPOSTCS+24
, PPOSTCS+25, PPOSTCS+26*
result PPOST3+50~*, PPOST3+60, PPOSTCS+49~*, PPOSTCS+59
stream PPOST3+47~*, PPOSTCS+46~*
xmlString PPOST3+23~*, PPOST3+26*, PPOST3+28, PPOSTCS+22~*, PPOSTCS+25*, PPOSTCS+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All