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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XOBWLIB1

Package: Web Services Client

Routine: XOBWLIB1


Information

XOBWLIB1 ;ALB/MJK - HWSC :: Utilities Library ; 09/13/10 4:00pm

Source Information

Source file <XOBWLIB1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 6 $$EC^%ZOSV  ($$CJ,$$UP)^XLFSTR  $$STA^XUAF4  $$KSP^XUPARAM  $$PROD^XUPROD  $$VPID^XUPS  
VA FileMan 4 ($$EZBLD,MSG)^DIALOG  (,$$FIND1,LIST)^DIC  (FILE,UPDATE)^DIE  ^DIR  
Web Services Client 1 $$VERSION^XOBWENV  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Web Services Client 4 XOBWLIB  XOBWPA04  XOBWPB04  XOBWPST  
Pharmacy Data Management 1 PSSHRPST  

Entry Points

Name Comments DBIA/ICR reference
STATKSP() ; -- get station number for computing facility
HEAD ; -- display heading
STATUSER() ; -- get station number for logged-on user
SNAME4KY(XOBWKEY,XOBWSNM,XOBERR) ; get server name based on key
IMPORT(XOBDIR,XOBFILE) ; -- import Cache-exported XML file into Cache
; input parameters:
; XOBDIR: directory holding 'export' file
; XOBFILE: 'export' file to import
; return:
; success: positive return value
; failure: 0^reason
;
  • ICR #5420
    • Status: Active
    • Usage: Private
    PAUSE(XOBEXIT) ; -- screen continue message
    GETSRV() ; -- PUBLIC API: return interactive-user-selected server name
    ATTACHDR(XOBPROXY) ; -- add VistaInfoHeader to proxy object
    SKEYADD(XOBWKEY,XOBWDESC,XOBOERR) ; add or edit a server key name/desc (no prompting)
    EOFACQ ;
    EOFAC(XOBPROXY) ; -- Error Object FACtory
    DISPSRVS ; -- display servers
    GETBLD() ; -- get current build number

    External References

    Name Field # of Occurrence
    $$EC^%ZOSV EOFAC+5, EOFAC+11, EOFAC+26
    $$EZBLD^DIALOG EOFAC+22, SNAME4KY+4, SNAME4KY+6, SNAME4KY+9
    MSG^DIALOG SKEYADD+17, SKEYADD+22
    ^DIC GETSRV+5
    $$FIND1^DIC SKEYADD+3
    LIST^DIC DISPSRVS+4
    FILE^DIE SKEYADD+14
    UPDATE^DIE SKEYADD+19
    ^DIR PAUSE+3
    $$CJ^XLFSTR HEAD+2, HEAD+3
    $$UP^XLFSTR SKEYADD+2, SNAME4KY+2
    $$VERSION^XOBWENV GETBLD+1
    $$STA^XUAF4 STATKSP+1, STATUSER+1
    $$KSP^XUPARAM STATKSP+1
    $$PROD^XUPROD ATTACHDR+9
    $$VPID^XUPS ATTACHDR+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^XOB(18.12 - [#18.12] Classic Fileman Calls,  LIST^DIC
    ^XOB(18.13 - [#18.13] FIND1^DIC

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DISV( GETSRV+4
    ^XOB(18.12 - [#18.12] SNAME4KY+11, GETSRV+4
    ^XOB(18.13 - [#18.13] SNAME4KY+5, SNAME4KY+8

    Label References

    Name Line Occurrences
    $$GETBLD HEAD+3
    $$STATKSP ATTACHDR+7
    $$STATUSER ATTACHDR+8
    EOFACQ EOFAC+5, EOFAC+11, EOFAC+18
    HEAD DISPSRVS+5, DISPSRVS+10
    PAUSE DISPSRVS+10

    Naked Globals

    Name Field # of Occurrence
    ^(0 GETSRV+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %XOBWERR EOFAC+18, EOFAC+20, EOFAC+21, EOFAC+23!
    %objlasterror EOFAC+7!, EOFAC+11, EOFAC+12, EOFAC+13!, IMPORT+13
    DEFAULT DISPSRVS+1~
    DIC GETSRV+1~, GETSRV+2*, GETSRV+5!
    DIC("B" GETSRV+4*
    DIC(0 GETSRV+3*
    DIERR SKEYADD+1~, SKEYADD+15, SKEYADD+20
    DIR PAUSE+3!
    DIR("A" PAUSE+3*
    DIR(0 PAUSE+3*
    DIROUT PAUSE+1~
    DIRUT PAUSE+1~, PAUSE+4
    DTOUT PAUSE+1~, GETSRV+1~
    DUOUT PAUSE+1~, GETSRV+1~
    DUZ ATTACHDR+3, ATTACHDR+4, GETSRV+4
    DUZ(2 STATUSER+1
    I EOFAC+19~, EOFAC+21*, IMPORT+8~, IMPORT+14*
    INFOARR ATTACHDR+1~, ATTACHDR+2*, ATTACHDR+10
    IOF HEAD+1
    IOSL DISPSRVS+10
    IPPORT DISPSRVS+1~, DISPSRVS+8*, DISPSRVS+11
    NAME DISPSRVS+1~, DISPSRVS+7*, DISPSRVS+11
    SITE DISPSRVS+1~
    STATUS DISPSRVS+1~, DISPSRVS+9*, DISPSRVS+11
    U SNAME4KY+8, SNAME4KY+11, GETSRV+4, GETSRV+7
    X PAUSE+1~, IMPORT+8~, IMPORT+14*, IMPORT+15, GETSRV+1~
    XOBCODE EOFAC+19~, EOFAC+20*, EOFAC+22
    XOBDATA DISPSRVS+4, DISPSRVS+13!
    XOBDATA("DILIST" DISPSRVS+3
    XOBDIR IMPORT~, IMPORT+9
    XOBERR EOFAC+1~, EOFAC+6*, EOFAC+12*, EOFAC+22*, EOFAC+26*, EOFACQ+1, SKEYADD+1~, SNAME4KY~, SNAME4KY+4*, SNAME4KY+6*
    , SNAME4KY+9*
    XOBEXIT PAUSE~, PAUSE+4*, DISPSRVS+1~, DISPSRVS+2*, DISPSRVS+6, DISPSRVS+10, DISPSRVS+12
    XOBFDA SKEYADD+1~
    XOBFDA( SKEYADD+10*, SKEYADD+11*
    XOBFDAI SKEYADD+1~
    XOBFDAI(1 SKEYADD+24
    XOBFILE IMPORT~, IMPORT+9
    XOBI DISPSRVS+1~, DISPSRVS+6*, DISPSRVS+7, DISPSRVS+8, DISPSRVS+9
    XOBIEN SKEYADD+1~, SKEYADD+3*, SKEYADD+6, SKEYADD+13, SKEYADD+16*, SKEYADD+21*, SKEYADD+24*, SKEYADD+26
    XOBIENS SKEYADD+1~, SKEYADD+6*, SKEYADD+7*, SKEYADD+10, SKEYADD+11
    XOBJ DISPSRVS+1~
    XOBKYIEN SNAME4KY+1~, SNAME4KY+5*, SNAME4KY+6, SNAME4KY+8
    XOBKYNM SNAME4KY+1~, SNAME4KY+2*, SNAME4KY+4, SNAME4KY+5, SNAME4KY+6
    XOBLERR IMPORT+8~, IMPORT+13, IMPORT+14
    XOBLERR( IMPORT+14
    XOBLIST IMPORT+8~, IMPORT+11
    XOBOERR SKEYADD~, SKEYADD+17, SKEYADD+22
    XOBPARMS EOFAC+19~, EOFAC+22, SNAME4KY+1~
    XOBPARMS( EOFAC+21*
    XOBPATH IMPORT+8~, IMPORT+9*, IMPORT+10, IMPORT+11
    XOBPROXY ATTACHDR~, ATTACHDR+10, EOFAC~, EOFAC+5
    XOBR DISPSRVS+1~, DISPSRVS+2*
    XOBSTAT IMPORT+8~, IMPORT+11*, IMPORT+12, IMPORT+15*, IMPORT+17*, IMPORT+18
    XOBSVRS DISPSRVS+1~, DISPSRVS+3*, DISPSRVS+6, DISPSRVS+7, DISPSRVS+8, DISPSRVS+9
    XOBWDESC SKEYADD~, SKEYADD+11
    XOBWKEY SKEYADD~, SKEYADD+2*, SKEYADD+3, SKEYADD+10, SNAME4KY~, SNAME4KY+2, SNAME4KY+9
    XOBWSIEN SNAME4KY+1~, SNAME4KY+8*, SNAME4KY+9, SNAME4KY+11
    XOBWSNM SNAME4KY~, SNAME4KY+11*
    Y PAUSE+1~, EOFAC+19~, EOFAC+21*, GETSRV+1~, GETSRV+6, GETSRV+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All