PSODDPR4 ;BHAM - ISC/EJW,SAB - build local OP & RDI profiles ;07/19/07
Source file <PSODDPR4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BLD(PSODFN,LIST,PDRG,PTY) | ;
|
|
ORD | ||
PROFILE | ;build profile drug input
|
|
ID | ||
ID1 | ||
OIX | ||
REMOTE | ;
|
|
REMO | ;
|
|
PARSE | ; PULL INFORMATION FROM ^XTMP
|
|
CHKLOCAL | ; IF SAME RX NUMBER AND ISSUE DATE - LOCAL RX
|
|
FILTER | ; FOR SAME DRUG VUID FOR SAME SITE, KEEP 1 ENTRY - CHECK BY ACTIVE STATUS FIRST THEN BY GREATEST EXPIRATION DATE
|
|
CHKEXP | ;
|
|
SETRDI | ;
|
|
CPRS(PSODFN,LIST,PDRG,PTY) | ;
|
|
DRG | ;
|
|
DRGSUP | ;Create "prospective" nodes for duplicate supply entries
|
|
RVAGEN | ;va generic for remote drugs
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|