EHMDISCH ;ALB/WTC - EHRM - AUTOMATED PATIENT DISCHARGE TOOL; Jun 06, 2025@13:23:13
Source file <EHMDISCH.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Electronic Health Modernization | 4 | EHMDISH1 EHM_DISCHARGE LIST EHM_DISCHARGE POST-LIST EHM_DISCHARGE SUMMARY |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LIST | ;
|
|
| LIST1 | ; TaskMan start point
|
|
| HEADER(INSTNAME,STATION,SORTBY) | ;
|
|
| SUMMARY | ;
|
|
| SUMMARY1 | ; TaskMan start point
|
|
| DISCHARGE | ;
|
|
| BLDLIST(SORTBY,INSTFLTR,WARDFLTR,QUEUED) | ;
|
|
| POSTLIST | ;
|
|
| POSTLIST1 | ; TaskMan start point
|
|
| POSTHDR | ;
|
|
| PAGINATE(QUIT,INSTNAME,STATION,SORTBY,LINES) | ;
|
|
| CENTER(TEXT,WIDTH) | ;
|
|
| DASHES(COUNT) | ;
|
|
| CONTINUE(DEFAULT) | ;
|
|
| DATETIME(X) | ;
|
|
| INSTFLTR() | ;
|
|
| INSTSCRN(IEN4) | ;
|
|
| WARDFLTR(INSTUTN) | ;
|
|
| IRT(DFN,ADMDTTM) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | LIST+15, SUMMARY+7, POSTLIST+8 |
| ^%ZISC | LIST1+55, SUMMARY1+26, POSTLIST1+27 |
| ^%ZTLOAD | LIST+23, SUMMARY+15, POSTLIST+16 |
| ^DIC | INSTFLTR+12, WARDFLTR+6 |
| ^DIE | IRT+14 |
| $$GET1^DIQ | LIST1+11, LIST1+33, SUMMARY1+9, SUMMARY1+18, DISCHARGE+15, INSTSCRN+4, INSTSCRN+7, IRT+9, IRT+10 |
| ^DIR | LIST+9, LIST+12, CONTINUE+7, INSTFLTR+6 |
| ENTRY^EHMDGPMV | DISCHARGE+20 |
| DEM^VADPT | BLDLIST+16, POSTLIST1+5 |
| IN5^VADPT | BLDLIST+18 |
| INP^VADPT | BLDLIST+17 |
| $$SITE^VASITE | INSTSCRN+4, INSTSCRN+7 |
| $$FMTE^XLFDT | HEADER+2, SUMMARY1+14, POSTHDR+2, DATETIME+6 |
| 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: READ |
|
| 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: READ |
|
| 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: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VAS(393 - [#393] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DGPM - [#405] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(393 | IRT+14 |
| ^DIC(4 - [#4] | BLDLIST+13, INSTSCRN+7 |
| ^DPT("ACERNER" | POSTLIST1+2 |
| ^DPT("CN" | BLDLIST+10, BLDLIST+14 |
| ^SC - [#44] | BLDLIST+11, BLDLIST+12 |
| ^SC("B" | BLDLIST+12 |
| ^TMP("EHMDISCH" | LIST1+4!, LIST1+10, LIST1+12, LIST1+14, LIST1+23, LIST1+25, LIST1+32, LIST1+34, LIST1+37, LIST1+46 , LIST1+48, LIST1+55!, SUMMARY1+3!, SUMMARY1+8, SUMMARY1+10, SUMMARY1+12, SUMMARY1+17, SUMMARY1+20, SUMMARY1+26!, DISCHARGE+14 , DISCHARGE+16, DISCHARGE+18, DISCHARGE+26!, BLDLIST+10!, BLDLIST+22*, BLDLIST+26*, BLDLIST+30*, BLDLIST+34*, POSTLIST1+2!, POSTLIST1+6* , POSTLIST1+11, POSTLIST1+12, POSTLIST1+27! |
| ^VAS(393 - [#393] | IRT+8 |
| Name | Line Occurrences |
|---|---|
| $$CENTER | HEADER+2, SUMMARY1+14, POSTHDR+2 |
| $$CONTINUE | LIST1+29, LIST1+51, DISCHARGE+7, POSTLIST1+17, PAGINATE+5 |
| $$DASHES | HEADER+5, HEADER+9, SUMMARY1+15, SUMMARY1+21, DISCHARGE+17, DISCHARGE+20, POSTHDR+3 |
| $$DATETIME | LIST1+18, LIST1+25, LIST1+41, LIST1+48, DISCHARGE+20, POSTLIST1+23 |
| $$INSTFLTR | LIST+6, DISCHARGE+9 |
| $$WARDFLTR | LIST+7, DISCHARGE+10 |
| BLDLIST | LIST1+6, SUMMARY1+5, DISCHARGE+12 |
| HEADER | LIST1+11, LIST1+33, PAGINATE+5, PAGINATE+9 |
| IRT | DISCHARGE+24 |
| PAGINATE | LIST1+16, LIST1+39 |
| POSTHDR | POSTLIST1+10, POSTLIST1+17, POSTLIST1+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | LIST+15*, SUMMARY+7*, POSTLIST+8* |
| ADMDTTM | SUMMARY+4~, DISCHARGE+4~, DISCHARGE+18*, DISCHARGE+20, DISCHARGE+24, IRT~, IRT+9 |
| ADMPTR | BLDLIST+8~, BLDLIST+14*, BLDLIST+22, BLDLIST+30 |
| CENTERED | CENTER+4~, CENTER+5*, CENTER+6 |
| COUNT | DASHES~, DASHES+2 |
| DA | IRT+6~, IRT+14* |
| DASHES | DASHES+2~*, DASHES+3 |
| DATE | DATETIME+4~, DATETIME+5*, DATETIME+6*, DATETIME+8 |
| DEFAULT | CONTINUE~, CONTINUE+7 |
| DFN | LIST+4~, LIST1+14*, LIST1+23, LIST1+25, LIST1+37*, LIST1+46, LIST1+48, SUMMARY+4~, SUMMARY1+12*, DISCHARGE+4~ , DISCHARGE+18*, DISCHARGE+20, DISCHARGE+24, BLDLIST+8~, BLDLIST+14*, BLDLIST+22, BLDLIST+26, BLDLIST+30, BLDLIST+34, POSTLIST+4~ , POSTLIST1+2*, POSTLIST1+6, POSTLIST1+12*, IRT~, IRT+8 |
| DIC | INSTFLTR+4~, INSTFLTR+12!*, WARDFLTR+4~, WARDFLTR+6* |
| DIC("A" | INSTFLTR+12* |
| DIC("S" | INSTFLTR+12*, WARDFLTR+6* |
| DIC(0 | INSTFLTR+12*, WARDFLTR+6* |
| DIE | IRT+6~, IRT+14!* |
| DIR | LIST+4~, LIST+11!, CONTINUE+6~, INSTFLTR+4~ |
| DIR("A" | LIST+9*, LIST+12*, CONTINUE+7*, INSTFLTR+6* |
| DIR("B" | LIST+12*, CONTINUE+7*, INSTFLTR+6* |
| DIR(0 | LIST+9*, LIST+12*, CONTINUE+7*, INSTFLTR+6* |
| DIRUT | LIST+9, LIST+12, CONTINUE+6~, CONTINUE+8, INSTFLTR+6, INSTFLTR+14 |
| DR | IRT+6~, IRT+14!* |
| DSCDTTM | POSTLIST+4~, POSTLIST1+2*, POSTLIST1+6, POSTLIST1+12*, POSTLIST1+23 |
| DSCWARD | DISCHARGE+4~, DISCHARGE+16*, DISCHARGE+17, DISCHARGE+18 |
| DT | HEADER+2, SUMMARY1+14, POSTHDR+2 |
| DTIME | LIST1+54, SUMMARY1+25, POSTLIST1+26 |
| FIRST | LIST+4~, LIST1+13*, LIST1+14*, LIST1+18, LIST1+34*, LIST1+35, LIST1+36*, SUMMARY+4~, DISCHARGE+4~ |
| HH | DATETIME+4~, DATETIME+7* |
| I | DASHES+2~*, DATETIME+4~, DATETIME+6*, IRT+8* |
| IDX | BLDLIST+8~, BLDLIST+26*, BLDLIST+34* |
| IEN | LIST+4~, LIST1+11*, LIST1+33*, SUMMARY+4~, SUMMARY1+9*, SUMMARY1+18*, DISCHARGE+4~, DISCHARGE+15*, BLDLIST+8~, BLDLIST+12* , INSTSCRN+6~, INSTSCRN+7*, IRT+6~, IRT+8*, IRT+10, IRT+14 |
| IEN1 | INSTSCRN+6~*, INSTSCRN+7* |
| IEN4 | INSTSCRN~, INSTSCRN+4, INSTSCRN+7 |
| INCLHIST | LIST+4~, LIST+12*, LIST1+19, LIST1+42 |
| INSTFLTR | LIST+4~, LIST+6*, LIST+7, LIST1+6, DISCHARGE+4~, DISCHARGE+9*, DISCHARGE+10, DISCHARGE+12, BLDLIST~, BLDLIST+12 , INSTFLTR+4~, INSTFLTR+6*, INSTFLTR+8, INSTFLTR+14*, INSTFLTR+15*, INSTFLTR+16*, INSTFLTR+18 |
| INSTNAME | LIST+4~, LIST1+11*, LIST1+16, LIST1+33*, LIST1+39, HEADER~, HEADER+2, SUMMARY+4~, SUMMARY1+9*, SUMMARY1+18* , SUMMARY1+19, DISCHARGE+4~, DISCHARGE+15*, BLDLIST+8~, BLDLIST+13*, BLDLIST+22, BLDLIST+26, BLDLIST+30, BLDLIST+34, PAGINATE~ , PAGINATE+5, PAGINATE+9 |
| INSTUTN | LIST+4~, LIST1+10*, LIST1+11, LIST1+12, LIST1+14, LIST1+23, LIST1+25, LIST1+32*, LIST1+33, LIST1+34 , LIST1+37, LIST1+46, LIST1+48, SUMMARY+4~, SUMMARY1+7*, SUMMARY1+8*, SUMMARY1+9, SUMMARY1+10, SUMMARY1+12, SUMMARY1+16* , SUMMARY1+17*, SUMMARY1+18, SUMMARY1+20, DISCHARGE+4~, DISCHARGE+14*, DISCHARGE+15, DISCHARGE+16, DISCHARGE+18, BLDLIST+8~, BLDLIST+12* , BLDLIST+13, BLDLIST+22, BLDLIST+26, BLDLIST+30, BLDLIST+34, WARDFLTR~ |
| IO | LIST1+7, LIST1+54, SUMMARY1+6, SUMMARY1+25, POSTLIST1+8, POSTLIST1+17, POSTLIST1+21, POSTLIST1+23, POSTLIST1+26, PAGINATE+5 , PAGINATE+9 |
| IO("Q" | LIST+19, SUMMARY+11, POSTLIST+12 |
| IOF | HEADER+2, SUMMARY1+14, POSTHDR+2 |
| IOM | HEADER+2, SUMMARY1+14, POSTHDR+2 |
| IOSL | POSTLIST1+17, POSTLIST1+21, PAGINATE+5, PAGINATE+9 |
| LINES | LIST+4~, LIST1+12*, LIST1+16, LIST1+18*, LIST1+25*, LIST1+26*, LIST1+34*, LIST1+35*, LIST1+39, LIST1+41* , LIST1+48*, LIST1+49*, SUMMARY+4~, DISCHARGE+4~, POSTLIST+4~, POSTLIST1+11*, POSTLIST1+17*, POSTLIST1+21*, POSTLIST1+23*, PAGINATE~ , PAGINATE+5*, PAGINATE+9* |
| MM | DATETIME+4~, DATETIME+7* |
| NEWWARD | LIST+4~ |
| OK | INSTSCRN+6~*, INSTSCRN+7*, INSTSCRN+9 |
| PC | DATETIME+4~, DATETIME+6* |
| POP | LIST+4~, LIST+15, SUMMARY+4~, SUMMARY+7, DISCHARGE+4~, POSTLIST+4~, POSTLIST+8 |
| PTMVMT | IRT+6~, IRT+8*, IRT+9 |
| PTNAME | LIST+4~, LIST1+13*, LIST1+14*, LIST1+18, LIST1+23, LIST1+25, LIST1+34*, LIST1+35, LIST1+36, LIST1+37 , LIST1+41, LIST1+46, LIST1+48, SUMMARY+4~, SUMMARY1+11*, SUMMARY1+12*, DISCHARGE+4~, DISCHARGE+17*, DISCHARGE+18*, DISCHARGE+20 , POSTLIST+4~, POSTLIST1+11*, POSTLIST1+12, POSTLIST1+23 |
| QUEUED | LIST+4~, LIST+19*, LIST1+2, LIST1+3, LIST1+6, LIST1+16, LIST1+29, LIST1+39, LIST1+51, LIST1+54 , SUMMARY+4~, SUMMARY+11*, SUMMARY1+2, SUMMARY1+5, SUMMARY1+25, DISCHARGE+4~, BLDLIST~, BLDLIST+14, POSTLIST+4~, POSTLIST+12* , POSTLIST1+3, POSTLIST1+26 |
| QUIT | LIST+4~, LIST1+10*, LIST1+12, LIST1+14, LIST1+16, LIST1+29*, LIST1+32*, LIST1+34, LIST1+37, LIST1+39 , LIST1+51*, LIST1+53, SUMMARY+4~, DISCHARGE+4~, POSTLIST+4~, POSTLIST1+11*, POSTLIST1+12, POSTLIST1+17*, POSTLIST1+25, PAGINATE~ , PAGINATE+5* |
| ROOMBED | DISCHARGE+4~, DISCHARGE+18*, DISCHARGE+20 |
| SORTBY | LIST+4~, LIST+9*, LIST1+2, LIST1+3, LIST1+6, LIST1+9, LIST1+11, LIST1+16, LIST1+31, LIST1+33 , LIST1+39, HEADER~, HEADER+3, HEADER+7, DISCHARGE+4~, BLDLIST~, BLDLIST+22, BLDLIST+30, PAGINATE~, PAGINATE+5 , PAGINATE+9 |
| STATION | LIST+4~, LIST1+11*, LIST1+16, LIST1+33*, LIST1+39, HEADER~, HEADER+2, SUMMARY+4~, SUMMARY1+9*, SUMMARY1+18* , SUMMARY1+19, DISCHARGE+4~, DISCHARGE+15*, PAGINATE~, PAGINATE+5, PAGINATE+9 |
| TEXT | CENTER~, CENTER+5 |
| TIME | DATETIME+4~, DATETIME+5*, DATETIME+7*, DATETIME+8 |
| TOTAL1 | SUMMARY+4~, SUMMARY1+20*, SUMMARY1+22 |
| TOTAL2 | SUMMARY+4~, SUMMARY1+16*, SUMMARY1+22*, SUMMARY1+23 |
| TRANSFER | BLDLIST+8~ |
| TXDTTM | LIST+4~, LIST1+25*, LIST1+48* |
| TYPE | IRT+6~, IRT+8*, IRT+10 |
| U | LIST+7, LIST1+11, LIST1+18, LIST1+25, LIST1+33, LIST1+41, LIST1+48, SUMMARY1+9, SUMMARY1+18, DISCHARGE+10 , DISCHARGE+15, DISCHARGE+18, BLDLIST+11, BLDLIST+12, BLDLIST+13, BLDLIST+22, BLDLIST+26, BLDLIST+30, BLDLIST+34, INSTSCRN+4 , INSTSCRN+7, IRT+8 |
| VADM | LIST+4~, SUMMARY+4~, DISCHARGE+4~, BLDLIST+8~, BLDLIST+16!, POSTLIST+4~, POSTLIST1+5! |
| VADM(1 | BLDLIST+22, BLDLIST+26, BLDLIST+30, BLDLIST+34, POSTLIST1+6 |
| VAIN | BLDLIST+8~, BLDLIST+17! |
| VAIN(11 | BLDLIST+22, BLDLIST+30 |
| VAIN(5 | BLDLIST+22, BLDLIST+30 |
| VAIN(7 | BLDLIST+22, BLDLIST+30 |
| VAIN(9 | BLDLIST+22, BLDLIST+30 |
| VAIP | BLDLIST+8~, BLDLIST+18! |
| VAIP( | BLDLIST+26, BLDLIST+34 |
| VAIP(9 | BLDLIST+26, BLDLIST+34 |
| WARD | LIST+4~, LIST1+12*, LIST1+14, LIST1+18, LIST1+23, LIST1+25, SUMMARY+4~, SUMMARY1+10*, SUMMARY1+12, SUMMARY1+20* , BLDLIST+8~, BLDLIST+10*, BLDLIST+11, BLDLIST+12, BLDLIST+14, BLDLIST+22, BLDLIST+26, BLDLIST+30 |
| WARDFLTR | LIST+4~, LIST+7*, LIST1+6, DISCHARGE+4~, DISCHARGE+10*, DISCHARGE+12, BLDLIST~, BLDLIST+11, WARDFLTR+4~, WARDFLTR+6* , WARDFLTR+7*, WARDFLTR+8 |
| WARDTO | BLDLIST+8~ |
| WIDTH | CENTER~, CENTER+5 |
| X | LIST+4~, LIST1+14*, LIST1+18, LIST1+25*, LIST1+37*, LIST1+41, LIST1+48*, LIST1+54*, SUMMARY1+25*, POSTLIST+4~ , POSTLIST1+26*, CONTINUE+6~, DATETIME~, DATETIME+5, INSTFLTR+4~, WARDFLTR+4~ |
| Y | LIST+4~, LIST+9, LIST+12, CONTINUE+6~, CONTINUE+9, INSTFLTR+4~, INSTFLTR+6, INSTFLTR+15, INSTFLTR+16, WARDFLTR+4~ , WARDFLTR+6 |
| ZTDESC | LIST+20~, LIST+21*, SUMMARY+12~, SUMMARY+13*, POSTLIST+13~, POSTLIST+14* |
| ZTRTN | LIST+20~, LIST+21*, SUMMARY+12~, SUMMARY+13*, POSTLIST+13~, POSTLIST+14* |
| ZTSAVE | LIST+20~, SUMMARY+12~, POSTLIST+13~ |
| ZTSAVE("*" | LIST+22*, SUMMARY+14*, POSTLIST+15* |
| ZTSK | LIST+20~, LIST+23, SUMMARY+12~, SUMMARY+15, POSTLIST+13~, POSTLIST+16 |