PSOORROC ;BHAM-ISC/EJW,SAB - Remote Data Interoperability Order Checks ;05/28/08
Source file <PSOORROC.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 | ;
|
|
RDUP | ;display Remote orders - duplicate drug
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|