PSSFDBDI ;BIR/LE - Sends XML Request to PEPS via HWSC for Dose Information ;01/23/12
Source file <PSSFDBDI.m>
| Package | Total | Call Graph |
|---|---|---|
| M XML Parser | 2 | ($$ATTRIB,$$CHILD,$$NAME,$$VALUE,DELETE)^MXMLDOM $$XMLHDR^MXMLUTL |
| Pharmacy Data Management | 2 | $$CHKSTAT^PSSDSFDB ($$ATRIBUTE,$$GETTEXT)^PSSHRCOM |
| Web Services Client | 1 | ($$GETREST,$$POST)^XOBWLIB |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PSSGCN,PSSOUT) | ;get dosing information based on GCNSEQNO
; input: PSSGCN - GCCNSEQNO from file 50.68 |
|
| RETRY | ;Retry line tag
|
|
| BLDXML(GCNSEQ) | ; build and return the XML request with drug information for given GCN sequence number
; input: drug IEN from drug file (#50) ; output: returns the XML request for given GCN sequence number ; Example: where 22211 is the GCN Sequence number passed by reference at line tag EN above. ; PSSXML="<?xml version=""1.0"" encoding=""utf-8"" ?><dosingInfoRequest xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" ; xsi:schemaLocation=""gov/va/med/pharmacy/peps/external/common/preencapsulation/vo/dosing/info/request dosingInfoSchemaInput.xsd"" ; xmlns=""gov/va/med/pharmacy/peps/external/common/preencapsulation/vo/dosing/info/request""> ; <dosingInfo gcnSeqNo=""22211"" fdbdx=""999"" /> ; </dosingInfoRequest>" |
|
| POST(XML,PSSGCN,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,PSSGCN,PSSOUT) | ; read result
; @DOCHAND = Handle to XML Document ; @PSSOUT = output array |
|
| PARSDOIN(DOCHAND,PSSGCN,NODE,PSSOUT) | ; parse dosingInfo element
; @DOCHAND = Handle to XML Document ; @NODE = Document node ; @PSSOUT = output array |
|
| READDOIN(DOCHAND,PSSGCN,NODE,PSSOUT,PSSOUT2) | ; read dosingInfo attributes
; @DOCHAND = Handle to XML Document ; @NODE = Document node ; @PSSOUT = output array ; @PSSOUT2 = output array for building ^tmp |
|
| PARSDORG(DOCHAND,PSSGCN,NODE,PSSOUT,PSSOUT2,PSSDR) | ; parse doseRange element
; @DOCHAND = Handle to XML Document ; @PSSGCN = GCN passed in to API ; @NODE = Document node ; @PSSOUT = output array ; @PSSOUT2 = output array for building ^tmp ; @PSSDR = array used for finding element with ^tmp node locations |
|
| READDORG(DOCHAND,PSSGCN,NODE,PSSOUT,PSSOUT2,PSSDR) | ; read doseRange attributes
; @DOCHAND = Handle to XML Document ; @PSSGCN = GCN passed in to API ; @NODE = Document node ; @PSSOUT = output array ; @PSSOUT2 = output array for building ^tmp ; @PSSDR = array used for finding element with ^tmp node locations |
|
| PARSDORC(DOCHAND,PSSGCN,NODE,PSSOUT,PSSOUT2,PSSDR) | ; parse doseRange child element
; @DOCHAND = Handle to XML Document ; @PSSGCN = GCN passed in to API ; @NODE = Document node ; @PSSOUT = output array ; @PSSOUT2 = output array for building ^tmp ; @PSSDR = array used for finding element with ^tmp node locations |
|
| PARSDOMM(DOCHAND,PSSGCN,NODE,PSSOUT,PSSOUT2,PSSMM) | ; parse minMaxResults element ; not implemented as of PSS*1*201
; @DOCHAND = Handle to XML Document ; @PSSGCN = GCN passed in to API ; @NODE = Document node ; @PSSOUT = output array ; @PSSOUT2 = output array for building ^tmp ; @PSSMM = array used for finding element with ^tmp node locations |
|
| PARSDONN(DOCHAND,PSSGCN,NODE,PSSOUT) | ; parse neonatalDoseRanges element ; not implemented as of PSS*1*201
; @DOCHAND = Handle to XML Document ; @PSSGCN = GCN passed in to API ; @NODE = Document node ; @PSSOUT = output array |
|
| READDODN(DOCHAND,PSSGCN,NODE,PSSOUT,PSSOUT2) | ; read dispensableDrugName element
; @DOCHAND = Handle to XML Document ; @PSSGCN = GCN passed in to API ; @NODE = Document node ; @PSSOUT = output array ; @PSSOUT2 = output array for building ^tmp |
|
| READDODD(DOCHAND,PSSGCN,NODE,PSSOUT,PSSOUT2) | ; read dispensableDrugDescription element
; @DOCHAND = Handle to XML Document ; @PSSGCN = GCN passed in to API ; @NODE = Document node ; @PSSOUT = output array ; @PSSOUT2 = output array for building ^tmp |
|
| SETXREFS(PSSOUT2) | ; set "A","B","C", zero node cross references & values
|
|
| GETFILE(PSSDR,PSSMM) | ;
|
|
| FILE | ;file structure for the temp file for each data field imported from FDB
|
| Name | Field # of Occurrence |
|---|---|
| $$ATTRIB^MXMLDOM | READDOIN+7, READDORG+9 |
| $$CHILD^MXMLDOM | PARSXML+5, PARSDOIN+8, PARSDORG+9, PARSDORC+9, PARSDOMM+10, PARSDONN+8 |
| $$NAME^MXMLDOM | PARSXML+3, PARSXML+6, PARSDOIN+9, PARSDORG+10, PARSDORC+10, PARSDOMM+11, PARSDONN+9 |
| $$VALUE^MXMLDOM | READDOIN+9, READDOIN+12, READDORG+15 |
| DELETE^MXMLDOM | POST+43 |
| $$XMLHDR^MXMLUTL | BLDXML+14 |
| $$CHKSTAT^PSSDSFDB | EN+11 |
| $$ATRIBUTE^PSSHRCOM | BLDXML+21, BLDXML+22, BLDXML+23, BLDXML+26 |
| $$GETTEXT^PSSHRCOM | PARSDORC+17, READDODN+7, READDODD+7 |
| $$GETREST^XOBWLIB | POST+17 |
| $$POST^XOBWLIB | POST+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANODE | READDORG+10~, READDORG+11*, READDORG+12, READDORG+15, PARSDORC+12~, PARSDORC+13*, PARSDORC+14, PARSDORC+17 |
| APIECE | READDORG+10~, READDORG+13*, READDORG+14, READDORG+15, PARSDORC+12~, PARSDORC+15*, PARSDORC+16, PARSDORC+17 |
| BASE | EN+10~, EN+12* |
| DOCHAND | POST+38, POST+43, PARSXML~, PARSXML+3, PARSXML+5, PARSXML+6, PARSXML+7, PARSDOIN~, PARSDOIN+6, PARSDOIN+8 , PARSDOIN+9, PARSDOIN+10, PARSDOIN+13, PARSDOIN+14, READDOIN~, READDOIN+7, READDOIN+9, READDOIN+12, PARSDORG~, PARSDORG+9 , PARSDORG+10, PARSDORG+13, PARSDORG+14, READDORG~, READDORG+9, READDORG+15, PARSDORC~, PARSDORC+9, PARSDORC+10, PARSDORC+17 , PARSDOMM~, PARSDOMM+10, PARSDOMM+11, PARSDONN~, PARSDONN+8, PARSDONN+9, READDODN~, READDODN+7, READDODD~, READDODD+7 |
| DOSETAG | BLDXML+10~, BLDXML+25*, BLDXML+26 |
| DRUGTAG | BLDXML+10~ |
| ENDTAG | BLDXML+10~, BLDXML+25*, BLDXML+26 |
| FDBDX | BLDXML+10~, BLDXML+25*, BLDXML+26 |
| FIRST | SETXREFS+1~, SETXREFS+2*, SETXREFS+5, SETXREFS+7* |
| FLD1 | SETXREFS+13~, SETXREFS+14*, SETXREFS+17, SETXREFS+18 |
| FLD2 | SETXREFS+1~ |
| FLD3 | SETXREFS+1~, SETXREFS+14*, SETXREFS+17, SETXREFS+18 |
| FLD7 | SETXREFS+1~, SETXREFS+14*, SETXREFS+17, SETXREFS+18 |
| FLD8 | SETXREFS+1~, SETXREFS+14*, SETXREFS+17, SETXREFS+18 |
| FLDS | SETXREFS+13~, SETXREFS+14*, SETXREFS+15*, SETXREFS+16 |
| >> FTYPE | SETXREFS+2*, SETXREFS+8*, SETXREFS+9, SETXREFS+10, SETXREFS+11, SETXREFS+12, SETXREFS+15 |
| GCNSEQ | EN+10~, EN+12*, EN+13, BLDXML~, BLDXML+26, SETXREFS+2*, SETXREFS+4*, SETXREFS+5, SETXREFS+6, SETXREFS+8 , SETXREFS+9, SETXREFS+10, SETXREFS+11, SETXREFS+15 |
| I | SETXREFS+16*, GETFILE+1~, GETFILE+2* |
| NODE | PARSDOIN~, PARSDOIN+6, PARSDOIN+8, READDOIN~, READDOIN+7, READDOIN+9, READDOIN+12, PARSDORG~, PARSDORG+9, READDORG~ , READDORG+9, READDORG+15, PARSDORC~, PARSDORC+9, PARSDOMM~, PARSDOMM+10, PARSDONN~, PARSDONN+8, READDODN~, READDODN+7 , READDODD~, READDODD+7 |
| PSS | POST+4~, PARSDOIN+4~, READDOIN+5~, PARSDORG+7~, READDORG+7~, PARSDORC+7~, PARSDOMM+8~, PARSDONN+6~, READDODN+6~, READDODD+6~ |
| PSS("attr" | READDOIN+6*, READDOIN+7*, READDOIN+8, READDOIN+9, READDOIN+11, READDOIN+12, READDORG+8*, READDORG+9*, READDORG+11, READDORG+13 , READDORG+15 |
| PSS("child" | PARSXML+4*, PARSXML+5*, PARSXML+6, PARSXML+7, PARSDOIN+7*, PARSDOIN+8*, PARSDOIN+9, PARSDOIN+10, PARSDOIN+13, PARSDOIN+14 , PARSDORG+8*, PARSDORG+9*, PARSDORG+10, PARSDORG+13, PARSDORG+14, PARSDORC+8*, PARSDORC+9*, PARSDORC+10, PARSDORC+17, PARSDOMM+9* , PARSDOMM+10*, PARSDOMM+11, PARSDONN+7*, PARSDONN+8*, PARSDONN+9 |
| PSS("childName" | PARSXML+6*, PARSXML+7, PARSDOIN+9*, PARSDOIN+10, PARSDOIN+13, PARSDOIN+14, PARSDORG+10*, PARSDORG+12, PARSDORC+10*, PARSDORC+11 , PARSDORC+13, PARSDORC+15, PARSDOMM+11*, PARSDONN+9* |
| PSS("childText" | READDODN+7*, READDODN+8, READDODN+9, READDODD+7*, READDODD+8, READDODD+9 |
| PSS("fdbdx" | READDOIN+9*, READDOIN+10 |
| PSS("gcnSeqNo" | READDOIN+12*, READDOIN+13 |
| 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+45 |
| PSS("rootName" | PARSXML+3* |
| PSS("server" | POST+10*, POST+17 |
| PSS("webserviceName" | POST+11*, POST+17 |
| PSSDR | PARSDOIN+4~, PARSDOIN+5, PARSDOIN+10, PARSDORG~, PARSDORG+13, PARSDORG+14, READDORG~, PARSDORC~, GETFILE~ |
| PSSDR( | READDORG+9, READDORG+11, READDORG+13, PARSDORC+11, PARSDORC+13, PARSDORC+15, GETFILE+4* |
| PSSDR(0 | PARSDORG+11*, READDORG+15, PARSDORC+17 |
| PSSERR | POST+4~, POST+25 |
| PSSFDBDI | POST+4~* |
| PSSFDBDN | EN+10~, EN+11* |
| PSSFDBDX | EN+10~ |
| PSSFILE | GETFILE+1~, GETFILE+2*, GETFILE+3 |
| PSSFLD | GETFILE+1~, GETFILE+3*, GETFILE+4, GETFILE+5 |
| PSSGCN | EN~, EN+9, EN+12, RETRY+1, POST~, POST+38, PARSXML~, PARSXML+7, PARSDOIN~, PARSDOIN+6 , PARSDOIN+10, PARSDOIN+13, PARSDOIN+14, READDOIN~, READDOIN+10, READDOIN+13, READDOIN+14, PARSDORG~, PARSDORG+13, PARSDORG+14 , READDORG~, READDORG+15, PARSDORC~, PARSDORC+17, PARSDOMM~, PARSDONN~, READDODN~, READDODN+9, READDODD~, READDODD+9 |
| PSSMM | PARSDOIN+4~, PARSDOIN+5, PARSDOMM~, GETFILE~ |
| PSSMM( | GETFILE+5* |
| PSSNODE | GETFILE+1~, GETFILE+3*, GETFILE+4, GETFILE+5 |
| PSSOUT | EN~, EN+9*, RETRY+1, RETRY+2!, POST~, POST+18, POST+22, POST+26, POST+38, PARSXML~ , PARSXML+7, PARSDOIN~, PARSDOIN+6, PARSDOIN+10, PARSDOIN+13, PARSDOIN+14, READDOIN~, PARSDORG~, PARSDORG+13, PARSDORG+14 , READDORG~, PARSDORC~, PARSDOMM~, PARSDONN~, READDODN~, READDODD~ |
| PSSOUT(0 | EN+9*, EN+11*, RETRY+2, POST+18*, POST+22*, POST+26*, POST+30*, POST+37*, POST+40*, POST+41* |
| PSSOUT2 | PARSDOIN+4~, PARSDOIN+6, PARSDOIN+10, PARSDOIN+13, PARSDOIN+14, PARSDOIN+15, PARSDOIN+16, READDOIN~, PARSDORG~, PARSDORG+13 , PARSDORG+14, READDORG~, PARSDORC~, PARSDOMM~, READDODN~, READDODD~, SETXREFS~, SETXREFS+3, SETXREFS+20* |
| PSSOUT2( | READDOIN+10*, READDOIN+13*, READDOIN+14*, READDORG+15*, PARSDORC+17*, READDODN+9*, READDODD+9*, SETXREFS+4, SETXREFS+5, SETXREFS+6 , SETXREFS+8, SETXREFS+9, SETXREFS+10, SETXREFS+11, SETXREFS+15 |
| PSSPIECE | GETFILE+1~, GETFILE+3*, GETFILE+4, GETFILE+5 |
| PSSRETR2 | EN+10~, RETRY+2* |
| PSSSORT | SETXREFS+1~, SETXREFS+3*, SETXREFS+20 |
| PSSSORT("A" | SETXREFS+17* |
| PSSSORT("B" | SETXREFS+6* |
| PSSSORT("C" | SETXREFS+18* |
| PSSSORT(0 | SETXREFS+19* |
| PSSTYPE | GETFILE+1~, GETFILE+3*, GETFILE+4, GETFILE+5 |
| PSSXML | EN+10~, EN+13*, RETRY+1, BLDXML+11*, BLDXML+14*, BLDXML+24*, BLDXML+26*, BLDXML+27*, BLDXML+28 |
| SCHEMA | BLDXML+10~, BLDXML+17*, BLDXML+22 |
| >> SEQ | SETXREFS+2*, SETXREFS+9*, SETXREFS+10, SETXREFS+11, SETXREFS+15, SETXREFS+17, SETXREFS+18 |
| >> SEQ2 | SETXREFS+2*, SETXREFS+10*, SETXREFS+11, SETXREFS+12, SETXREFS+15 |
| >> SEQ3 | SETXREFS+2*, SETXREFS+11*, SETXREFS+15 |
| >> SEQ4 | SETXREFS+2* |
| SPACE | BLDXML+10~, BLDXML+11*, BLDXML+16*, BLDXML+20, BLDXML+21, BLDXML+22, BLDXML+23, BLDXML+26 |
| SUBXML | BLDXML+10~, BLDXML+20*, BLDXML+21*, BLDXML+22*, BLDXML+23*, BLDXML+24 |
| TAG | BLDXML+10~, BLDXML+19*, BLDXML+20, BLDXML+27 |
| >> TYP2 | SETXREFS+2* |
| >> TYP3 | SETXREFS+2* |
| U | POST+30, READDOIN+10, READDOIN+13, READDOIN+14, READDORG+11, READDORG+13, READDORG+15, PARSDORC+13, PARSDORC+15, PARSDORC+17 , READDODN+9, READDODD+9 |
| XML | POST~, POST+14 |
| XMLNS | BLDXML+10~, BLDXML+18*, BLDXML+23 |
| Name | Field # of Occurrence |
|---|---|
| $T( | EN+12 |
| $T(FILE+I | GETFILE+2 |
