Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
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>

Entry Points

Name Comments DBIA/ICR reference
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
    RETRY ;retry line tag
    DRUGGCN(DRGIEN) ; for given drug ien return the GCN sequence number.
    ; input: drug IEN from drug file (#50)
    ; output: returns the GCN sequence number
    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
    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.
    PARSXML(DOCHAND,PSSOUT) ; read result
    ; @DOCHAND = Handle to XML Document
    ; @PSSOUT = output array
    PARSDRUG(DOCHAND,NODE,PSSOUT) ; read drug element
    ; @DOCHAND = Handle to XML Document
    ; @NODE = Document node
    ; @PSSOUT = output array
    PARSRTES(DOCHAND,NODE,PSSOUT) ; read routes element
    ; @DOCHAND = Handle to XML Document
    ; @NODE = Document node
    ; @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
    GETHEAD(PSSXML) ; return <?xml version="1.0" encoding="utf-8" ?>
    ; input: PSSXML string (by ref)
    ; output: returns the XML header info string
    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">
    ENDREQ(PSSXML) ; return the end tag </drugInfoRequest> portion of XML request
    ; input: PSSXML string (by ref)
    ; output: returns the XML string
    Info |  Source |  Entry Points