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 |