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 |