ECXTRT ;ALB/JAP,BIR/DMA,CML,PTD-Treating Specialty Change Extract ;6/29/18 14:57
Source file <ECXTRT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BEG | ;entry point from option
|
|
START | ; start package specific extract
|
|
NPDIV(WRD) | ;National Production Division
|
|
SETLOC(ECXDFN,ECXADM,ECXPRO,ECXLOC) | ;setup the local array from the ATS index
; output ; ECXLOC = local array (passed by reference) |
|
FINDLOC(ECXTSD,ECXLOC,ECXSPC,ECXPRV,ECXATT,ECXMOV,ECXTRT) | ;find local array node for current ts movement
; input ; ECXTSD = inverse date/time for current ts movement; required ; ECXLOC = local array; passed by reference; required ; output; data from record contained in MOVE ; ECXSPC = piece 1 of LOC (passed by reference) ; ECXPRV = piece 2 of LOC concatenated to PRO (passed by reference) ; ECXATT = piece 3 of LOC concatenated to PRO (passed by reference) ; ECXMOV = piece 4 of LOC (passed by reference) ; ECXTRT = pointer to file #45.7 |
|
SETUP | ;Set required input for ECXTRAC
|
|
QUE | ; entry point for the background requeuing handled by ECXTAUTO
|
|
SETTMP(ERRMSG,ECDA,ECDATE,DFN,ECADM) | ;190 Set TMP global for MM messages
|
|
SENDMSG | ;190 Send error MM messages
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DGPM - [#405] | FIELD^DID, GET1^DIQ |
^DIC(42 - [#42] | GET1^DIQ |