PSORWRAP ;AITC/BWF - Remote RX API wrapper ;12/12/16 3:21pm
Source file <PSORWRAP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROCESS | ;
|
|
| BLDACK(DAT,DFN,TYPE,RX0,RX2,RXSTA,RPROV,SIG,RREF0,RPAR0,ROR1,RX3) | ;
|
|
| LABEL(RX,PSOLAP,PSOSITE,DUZ,PSOTRAMT,FNAME) | ; Print the label.
; Input: RX -- Pointer to the prescription in file #52 ; PSOLAP -- Label printer ; PSOSITE -- Pointer to the Pharmacy in file #59 ; DUZ -- Pointer to the use in file #200 ; PSOTRAMT -- Amount to be paid |
|
| IO | ||
| LOGDATA(HLDAT,TYPE,LOCDRUG,LBLGBL,PSOIEN,PSORFIEN,PSOPFIEN) | ;
|
|
| RRXLBL | ;Remote RX Label print
|
|
| FQDN(SITE,IEN4) | ; get Fully Qualified Domain Name
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| HL7 Protocol Name | Call Tags |
|---|---|
| PSO REMOTE RX RDS-O13 ESUBS | PROCESS |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | FIND1^DIC |
| ^SC - [#44] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
| ^PSRXR(52.09 - [#52.09] | WP^DIE |
| ^PS(53 - [#53] | GET1^DIQ |
| ^PS(55 - [#55] | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
| ^HLCS(870 - [#870] | GET1^DIQ |
