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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSSFDBRT

Package: Pharmacy Data Management

Routine: PSSFDBRT


Information

PSSFDBRT ;WOIFO/PO - Sends XML Request to PEPS via HWSC ;09/20/07

Source Information

Source file <PSSFDBRT.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
M XML Parser 2 ($$CHILD,$$NAME,DELETE)^MXMLDOM  $$XMLHDR^MXMLUTL  
Pharmacy Data Management 1 ($$ATRIBUTE,$$GETTEXT)^PSSHRCOM  
Web Services Client 1 ($$GETREST,$$POST)^XOBWLIB  

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: 1

Package Total Caller Graph
Inpatient Medications 1 PSIVOCDS  

Entry Points

Name Comments DBIA/ICR reference
GETREQ(PSSXML) ; build and return the <drugInfoRequest... portion of XML request.
; input: PSSXML string (by ref)
; output: returns the XML string. for example:
; <drugInfoRequest xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
; xsi:schemaLocation="gov/va/med/pharmacy/peps/external/common/preencapsulation/vo/drug/info/request
; drugInfoSchemaInput.xsd" xmlns="gov/va/med/pharmacy/peps/external/common/preencapsulation/vo/drug/info/request">
RETRY ;retry line tag
ENDREQ(PSSXML) ; return the end tag </drugInfoRequest> portion of XML request
; input: PSSXML string (by ref)
; output: returns the XML string
GROUTE(PSSIEN,PSSOUT) ; get the routes for given drug ien in drug file from PESPS via HWSC
; input: drug IEN from drug file (#50)
; output: PSSOUT - array containing the list of route names for the given drug.
; e.g. error/exception: PSSOUT(0)= (-1 for database cannot be reached, 0 for exceptions or 1 for successfull call) ^ error or exception message
  • ICR #5496
    • Status: Active
    • Usage: Private
    GETHEAD(PSSXML) ; return <?xml version="1.0" encoding="utf-8" ?>
    ; input: PSSXML string (by ref)
    ; output: returns the XML header info string
    PARSRTES(DOCHAND,NODE,PSSOUT) ; read routes element
    ; @DOCHAND = Handle to XML Document
    ; @NODE = Document node
    ; @PSSOUT = output array
    PARSDRUG(DOCHAND,NODE,PSSOUT) ; read drug element
    ; @DOCHAND = Handle to XML Document
    ; @NODE = Document node
    ; @PSSOUT = output array
    DRUGGCN(DRGIEN) ; for given drug ien return the GCN sequence number.
    ; input: drug IEN from drug file (#50)
    ; output: returns the GCN sequence number
    POST(XML,PSSOUT) ; post the XML request to PEPS server and return the routes
    ; input: XML request
    ; output: PSSOUT - array containing the list of route names for the given drug.
    BLDXML(GCNSEQ) ; build and return the XML request with drug information for given GCN sequence number
    ; input: drug GCN from national drug file (#50.68)
    ; output: returns the XML request for given GCN sequence number
    PARSXML(DOCHAND,PSSOUT) ; read result
    ; @DOCHAND = Handle to XML Document
    ; @PSSOUT = output array
    PARSRTE(DOCHAND,NODE,PSSOUT) ; read route element, add to array if value
    ; @DOCHAND = Handle to XML Document
    ; @NODE = Document node
    ; @PSSOUT = output array

    External References

    Name Field # of Occurrence
    $$CHILD^MXMLDOM PARSXML+5, PARSDRUG+6, PARSRTES+6, PARSRTE+6
    $$NAME^MXMLDOM PARSXML+3, PARSXML+6, PARSDRUG+7, PARSRTES+7, PARSRTE+7
    DELETE^MXMLDOM POST+41
    $$XMLHDR^MXMLUTL GETHEAD+5
    $$ATRIBUTE^PSSHRCOM BLDXML+10, GETREQ+14, GETREQ+15, GETREQ+16
    $$GETTEXT^PSSHRCOM PARSRTE+9
    $$GETREST^XOBWLIB POST+17
    $$POST^XOBWLIB POST+25

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PSDRUG - [#50] DRUGGCN+7
    ^PSNDF(50.68 - [#50.68] DRUGGCN+8
    ^TMP( POST+18!, POST+22!, POST+26!
    ^TMP($J POST+8!, POST+42!

    Label References

    Name Line Occurrences
    $$BLDXML GROUTE+14
    $$DRUGGCN GROUTE+12
    ENDREQ BLDXML+11
    GETHEAD BLDXML+6
    GETREQ BLDXML+7
    PARSDRUG PARSXML+7
    PARSRTE PARSRTES+8
    PARSRTES PARSDRUG+8
    PARSXML POST+38
    POST RETRY+1
    PSS POST+21
    RETRY RETRY+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BASE GROUTE+10~, GROUTE+11*
    DOCHAND POST+38, POST+41, PARSXML~, PARSXML+3, PARSXML+5, PARSXML+6, PARSXML+7, PARSDRUG~, PARSDRUG+6, PARSDRUG+7
    , PARSDRUG+8, PARSRTES~, PARSRTES+6, PARSRTES+7, PARSRTES+8, PARSRTE~, PARSRTE+6, PARSRTE+7, PARSRTE+9
    DRGIEN DRUGGCN~, DRUGGCN+7
    DRUGIEN BLDXML+4~
    DRUGTAG BLDXML+4~, BLDXML+8*, BLDXML+10
    ENDTAG BLDXML+4~, BLDXML+9*, BLDXML+10
    GCN DRUGGCN+4~, DRUGGCN+5*, DRUGGCN+8*, DRUGGCN+9
    GCNSEQ GROUTE+10~, GROUTE+12*, GROUTE+13, GROUTE+14, BLDXML~, BLDXML+10
    NODE PARSDRUG~, PARSDRUG+6, PARSRTES~, PARSRTES+6, PARSRTE~, PARSRTE+6
    PSS POST+4~, PARSDRUG+4~, PARSRTES+4~, PARSRTE+4~
    PSS("child" PARSXML+4*, PARSXML+5*, PARSXML+6, PARSXML+7, PARSDRUG+5*, PARSDRUG+6*, PARSDRUG+7, PARSDRUG+8, PARSRTES+5*, PARSRTES+6*
    , PARSRTES+7, PARSRTES+8, PARSRTE+5*, PARSRTE+6*, PARSRTE+7, PARSRTE+9
    PSS("childName" PARSXML+6*, PARSXML+7, PARSDRUG+7*, PARSDRUG+8, PARSRTES+7*, PARSRTES+8, PARSRTE+7*, PARSRTE+8
    PSS("childText" PARSRTE+9*, PARSRTE+10, PARSRTE+11
    PSS("parameterName" POST+13*, POST+21
    PSS("parameterValue" POST+14*, POST+21
    PSS("path" POST+12*, POST+25
    PSS("postResult" POST+25*, POST+29, POST+35
    PSS("restObject" POST+17*, POST+25
    PSS("result" POST+31*, POST+43
    PSS("rootName" PARSXML+3*
    PSS("server" POST+10*, POST+17
    PSS("webserviceName" POST+11*, POST+17
    PSSERR POST+4~, POST+25
    PSSFDBRT POST+4~*
    PSSIEN GROUTE~, GROUTE+12
    PSSOUT GROUTE~, RETRY+1, RETRY+2!, POST~, POST+18, POST+22, POST+26, POST+38, PARSXML~, PARSXML+7
    , PARSDRUG~, PARSDRUG+8, PARSRTES~, PARSRTES+8, PARSRTE~
    PSSOUT( PARSRTE+11*
    PSSOUT(0 GROUTE+13*, RETRY+2, POST+18*, POST+22*, POST+26*, POST+30*, POST+37*, PARSRTE+12*
    PSSRETR1 GROUTE+10~, RETRY+2*
    PSSXML GROUTE+10~, GROUTE+14*, RETRY+1, BLDXML+4~, BLDXML+5*, BLDXML+6, BLDXML+7, BLDXML+10*, BLDXML+11, BLDXML+12
    , GETHEAD~, GETHEAD+5*, GETREQ~, GETREQ+17*, ENDREQ~, ENDREQ+3*
    SCHEMA GETREQ+7~, GETREQ+9*, GETREQ+15
    SPACE GETREQ+7~, GETREQ+8*, GETREQ+11, GETREQ+14, GETREQ+15, GETREQ+16
    SUBXML GETREQ+7~, GETREQ+12*, GETREQ+14*, GETREQ+15*, GETREQ+16*, GETREQ+17
    TAG GETREQ+7~, GETREQ+11*, GETREQ+12
    U DRUGGCN+7, DRUGGCN+8, POST+30
    VAPROD DRUGGCN+4~, DRUGGCN+7*, DRUGGCN+8
    XML POST~, POST+14
    XMLNS GETREQ+7~, GETREQ+10*, GETREQ+16

    Marked Items

    Name Field # of Occurrence
    $T( GROUTE+11
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All