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 | 
  |