PSOERXO1 ;ALB/BWF - eRx Outbound Error messages ; 8/3/2016 5:14pm
Source file <PSOERXO1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MSGERR() | ;check errors from XML return
; note - not currently in use |
|
| ERRHNDL(DFN) | ;handle any errors that may get thrown in call to GET^ORRDI1
|
|
| POST(ERXIEN,PSSOUT,ECODE,DESCODE,DESC,RXVERIFY,INST,OVRESP) | ;
|
|
| C | ;
|
|
| RESTPOST(PSSOUT,GBL) | ;
|
|
| PRSSTRM(RESTOBJ,PSSOUT) | ; parse the XML into token
; input: RESTOBJ--a rest object ; output: PSSOUT - array containing the list of route names for the given drug. |
|
| PARSXML(AREADER,PSSOUT) | ; extract the list of routes from XML results
; input: AREADER-%XML.TextReader object. ; output: PSSOUT - array containing the list of route names for the given drug. |
|
| POSTRES(AREADER,PSSOUT,ATOKEN) | ; get value of success/failure
|
|
| POSTERR(AREADER,PSSOUT) | ; get error message
|
|
| GETREADR(RESTOBJ) | ; set up and return a Textreader object to be used to parse the XML stream
; input: RESTOBJ- REST object ; output: returns a %XML.TextReader object. |
|
| GETTOKEN(READER) | ; get a token at a time
; input: AREADER-%XML.TextReader object ; Output: returns a token |
|
| GETATTS(AREADER) | ; get attributes
; input: AREADER-%XML.TextReader object ; Output: returns the attributes |
|
| EXTIME(IDTTM) | ;
|
|
| CMFILE(HUBID,MID,RTMID,TOQUAL,TO,FRQUAL,FROM,RXREFN,PON,RESPONSE,RESTYPE,MTYPE,INST) | ;
|
|
| MSG2017(GBL,CNT) | ; ADAPTED FROM PSOERXX2
|
|
| HDR2017(GLB,CNT,PSDAT,IEN,TOQUAL,TOVAL,FRQUAL,FRVAL,MID,RTMID,ERXHID,PON,INST) | ; ADAPTED FROM PSOERXX2
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
