PSOORRDI ;BHAM-ISC/EJW - Remote Data Interoperability Order Checks ;04/25/05
Source file <PSOORRDI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REMOTE(PSODFN,DREN) | ;
; Input: DFN: PATIENT file (#2) IEN ; : DREN: DRUG file (#50) IEN of order being checked |
|
| PARSE | ; PULL INFORMATION FROM ^XTMP
|
|
| CHKLOCAL | ; IF SAME RX NUMBER AND ISSUE DATE - LOCAL RX
|
|
| VAPROD(PSOPROD) | ; GET VA PRODUCT FILE NAME AND DRUG CLASS
|
|
| DRGNAME | ;
|
|
| FILTER | ; FOR SAME DRUG VUID FOR SAME SITE, KEEP 1 ENTRY - CHECK BY ACTIVE STATUS FIRST THEN BY GREATEST EXPIRATION DATE
|
|
| CHKEXP | ;
|
|
| SETRDI | ;
|
|
| GETPROD | ;
|
