Routine: PSSFDBRT

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

Package	Total	Caller Graph
Inpatient Medications	1	PSIVOCDS

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

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

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSFDBRT

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items