ECXUTL1 ;ALB/GTS - Utilities for DSS Extracts ;4/4/19 15:09
Source file <ECXUTL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CYFY(ECXFMDT) | ;** Return the calandar and fiscal years for a FM date
|
|
FISCAL(DATE) | ||
DTRNG() | ;** Prompt the user for a date range
|
|
STRIP(ECXFIELD,ECXLGTH,ECXPOS) | ;* Strip blanks from a padded field
|
|
PAD(ECXVAL,ECXLGTH,ECXFB,ECXCHAR) | ;* Pad the value passed in with ECXCHAR
|
|
BLDXREF(START,END) | ;Build temporary xref from EDIS LOG file #230 API added in patch 136
|
|
EDIS(ECXDFN,ECD,ECETYPE,ECXVISIT,ECXSTOP) | ;Find emergency room disposition, if it exists, and translate it to a value for DSS. API added with patch 136
|
|
TRANS(DISP) | ;Translate disposition to set of codes. API added in patch 136
|
|
ERR | ;Send email when scheduling system reports an error. API added in patch 136
|
|
EXPORT() | ;Function indicates if report output is going to a device or to the screen in exportable format - API added in patch 144
|
|
EXPDISP | ;Displays report in exportable format. API added in patch 144
|
|
REPORTFY(NAME) | ;Function added in patch 144, determines which version of the report to run
|
|
SAMPLE | ;;API^ROUTINE
|
Name | Field # of Occurrence |
---|---|
^%ZIS | EXPDISP+15 |
HOME^%ZIS | EXPDISP+20 |
$$GET1^DIQ | BLDXREF+5, EDIS+7, EDIS+10, EDIS+11, TRANS+2 |
^DIR | DTRNG+8, DTRNG+19, EXPORT+5, EXPDISP+19, REPORTFY+13 |
$$ECXYM^ECXUTL | FISCAL+6 |
$$DT^XLFDT | FISCAL+5 |
$$FMADD^XLFDT | BLDXREF+2, BLDXREF+3, EDIS+5, EDIS+6 |
$$UP^XLFSTR | TRANS+2 |
^XMD | ERR+12 |
$$VERSION^XPDUTL | EDIS+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^EDP(230 - [#230] | GET1^DIQ |
^EDPB(233.1 - [#233.1] | GET1^DIQ |
Name | Line Occurrences |
---|---|
$$CYFY | DTRNG+14 |
$$TRANS | EDIS+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | DTRNG+10!, DTRNG+22! |
%ZIS | EXPDISP+1~, EXPDISP+15* |
%ZIS("B" | EXPDISP+15* |
CNT | ERR+1~, ERR+7*, ERR+8*, ERR+9*, ERR+10* |
CODE | TRANS+1~, TRANS+2*, TRANS+3 |
DATE | FISCAL~, FISCAL+5*, FISCAL+6*, FISCAL+7, FISCAL+8, EDIS+1~, EDIS+7* |
DIR | DTRNG+8!, DTRNG+22!, EXPORT+1~, EXPDISP+1~, REPORTFY+6~ |
DIR("?" | DTRNG+7*, DTRNG+18*, EXPORT+3*, REPORTFY+10*, REPORTFY+11*, REPORTFY+12* |
DIR("A" | DTRNG+6*, DTRNG+17*, EXPORT+4*, EXPDISP+19*, REPORTFY+9* |
DIR("B" | EXPORT+4*, REPORTFY+9* |
DIR(0 | DTRNG+6*, DTRNG+16*, EXPORT+4*, EXPDISP+19*, REPORTFY+9* |
DIROUT | EXPORT+1~, REPORTFY+6~ |
DIRUT | DTRNG+9, DTRNG+10!, DTRNG+21, DTRNG+22!, EXPORT+1~, EXPORT+6, EXPDISP+1~, REPORTFY+6~ |
DISP | EDIS+1~, EDIS+4, EDIS+7*, EDIS+11*, EDIS+12, EDIS+13, EDIS+14, TRANS~, TRANS+2 |
DSP | TRANS+1~, TRANS+2*, TRANS+4, TRANS+5, TRANS+6, TRANS+7, TRANS+8, TRANS+9 |
DT | DTRNG+15 |
DTOUT | DTRNG+10!, DTRNG+22!, EXPORT+1~, EXPDISP+1~, REPORTFY+6~ |
DUOUT | DTRNG+10!, DTRNG+22!, EXPORT+1~, EXPDISP+1~, REPORTFY+6~ |
DUZ | ERR+3 |
ECD | EDIS~, EDIS+5, EDIS+6, EDIS+10 |
ECETYPE | EDIS~, EDIS+3, EDIS+4, EDIS+8 |
>> ECGRP | ERR+4 |
ECXBEG | DTRNG+2~, DTRNG+9*, DTRNG+13, DTRNG+14, DTRNG+16, DTRNG+21 |
ECXCHAR | PAD~, PAD+11, PAD+14, PAD+15 |
ECXDFN | EDIS~, EDIS+7, EDIS+10 |
ECXEND | DTRNG+2~, DTRNG+20*, DTRNG+21 |
ECXFB | PAD~, PAD+11, PAD+14, PAD+15 |
ECXFIELD | STRIP~, STRIP+16, STRIP+17*, STRIP+21, STRIP+22*, STRIP+25 |
ECXFMDT | CYFY~, CYFY+10*, CYFY+11, CYFY+12, CYFY+13 |
ECXLGTH | STRIP~, STRIP+11, STRIP+22, STRIP+24, PAD~, PAD+11, PAD+12, PAD+13 |
ECXLPCT | PAD+10~, PAD+13* |
ECXPOS | STRIP~, STRIP+11, STRIP+12, STRIP+15, STRIP+20 |
ECXPVAL | STRIP+10~, STRIP+11*, STRIP+12*, STRIP+16, STRIP+17, STRIP+18*, STRIP+19, STRIP+22, STRIP+23*, STRIP+24 |
ECXRNG | DTRNG+2~, DTRNG+3*, DTRNG+21*, DTRNG+23 |
ECXSTOP | EDIS~, EDIS+3, EDIS+8 |
ECXVAL | PAD~, PAD+11, PAD+12*, PAD+14*, PAD+15*, PAD+16*, PAD+17 |
ECXVAR | PAD+10~, PAD+12*, PAD+13 |
ECXVISIT | EDIS~, EDIS+9 |
END | BLDXREF~, BLDXREF+3 |
ENDRNG | DTRNG+2~, DTRNG+14*, DTRNG+15*, DTRNG+16 |
ENDT | BLDXREF+1~, BLDXREF+3*, BLDXREF+4, EDIS+1~, EDIS+6*, EDIS+7 |
I | ERR+1~, ERR+9*, EXPDISP+1~, EXPDISP+16* |
IEN | BLDXREF+1~, BLDXREF+5*, EDIS+1~, EDIS+9*, EDIS+10*!, EDIS+11 |
NAME | REPORTFY~ |
PIEN | BLDXREF+1~, BLDXREF+5* |
POP | EXPDISP+1~, EXPDISP+15 |
QVAL | STRIP+10~, STRIP+13*, STRIP+14, STRIP+16*, STRIP+19*, STRIP+21*, STRIP+24* |
SITE | BLDXREF+1~, BLDXREF+4*, BLDXREF+5 |
START | BLDXREF~, BLDXREF+2 |
STDT | BLDXREF+1~, BLDXREF+2*, BLDXREF+4, EDIS+1~, EDIS+5*, EDIS+7 |
TEXT | ERR+1~ |
TEXT( | ERR+7*, ERR+8*, ERR+9*, ERR+10* |
TIME | BLDXREF+1~, BLDXREF+4*, BLDXREF+5 |
VAL | EXPORT+1~, EXPORT+6*, EXPORT+7, EXPORT+8 |
X | CYFY+8~, CYFY+9*, CYFY+14*, CYFY+15, EXPORT+1~, EXPDISP+1~, REPORTFY+6~ |
XMDUZ | ERR+1~, ERR+5* |
XMSUB | ERR+1~, ERR+6* |
XMTEXT | ERR+1~, ERR+11* |
XMY | ERR+1~ |
XMY( | ERR+3* |
XMY("G.DSS-" | ERR+4* |
XMZ | ERR+1~ |
Y | CYFY+8~, CYFY+12*, CYFY+13, CYFY+14, DTRNG+9, DTRNG+10!, DTRNG+20, DTRNG+22!, EXPORT+1~, EXPORT+6 , EXPDISP+1~, REPORTFY+6~, REPORTFY+14, REPORTFY+15 |
Y2 | CYFY+8~, CYFY+12*, CYFY+13*, CYFY+14 |
YEAR | FISCAL+4~, FISCAL+7*, FISCAL+8*, FISCAL+9 |
Name | Field # of Occurrence |
---|---|
$T(@NAME | REPORTFY+7, REPORTFY+15 |