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 |