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 |