ECXUD ;ALB/JAP,BIR/DMA,PTD-Extract from UNIT DOSE EXTRACT DATA File (#728.904) ;6/26/19 10:46
Source file <ECXUD.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| BEG | ;entry point from option
 | 
|
| START | ;start package specific extract
 | 
|
| STUFF | ;get data
 | 
|
| PAT(ECXDFN,ECXDATE,ECXERR) | ;get demographics from patient file
 | 
|
| FILE | ;file record
 | 
|
| NEW() | ;149 Function added to determine if script had pharmacist involvement
 | 
|
| CLEAN(START,END) | ;149 Section added to delete old log entries
 | 
|
| SETUP | ;Set required input for ECXTRAC
 | 
|
| QUE | ; entry point for the background requeuing handled by ECXTAUTO
 | 
|
| SETTMP(STR) | ;181 - Set global TMP for Mail Message
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: READ | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ | 
| ^DIC(40.7 - [#40.7] | Classic Fileman Calls | 
| ^SC - [#44] | Classic Fileman Calls, GET1^DIQ | 
| 55.06 | GET1^DIQ | 
| 55.09 | GET1^DIQ |