©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XBLM ; IHS/ADC/GTH - LIST MANAGER API'S ; [ 09/30/2004 12:07 PM ]
Source file <XBLM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STRIP(Z) | ;REMOVE CONTROLL CHARACTERS
|
|
| CONT | ;
|
|
| HDR | ;EP -- header code
|
|
| FNAME1 | ;
|
|
| ESFILE | ;
|
|
| EXPND | ;EP -- expand code
|
|
| VIEWD(XBROU,XBHDR) | ;PEP ** USING XBROU print to a host file for viewing
|
|
| VIEWR(XBROU,XBHDR) | ;PEP ** USING XBROU print to a host file for viewing
|
|
| OPEN | ;
|
|
| HELP | ;EP -- help code
|
|
| INIT | ;EP -- init variables and list array
|
|
| GUID(XBROU,XBY) | ;PEP give routine and target array for FM prints
|
|
| ARRAYE | ;
|
|
| EN | ;EP -- main entry point for XB DISPLAY
|
|
| K | ;
|
|
| GUIR(XBROU,XBY) | ;PEP - give routine and target array
|
|
| ARRAY(XBAR,XBHDR) | ;PEP Display an array that has (...,n,0) structure
|
|
| MARKERS | ;
|
|
| FNAME | ;PEP - Select a file (directory can be pre-loaded into XBDIR)
|
|
| DIQ(DIC,DA) | ;PEP - Display DIC and DA after call to EN^DIQ
|
|
| ES | ;
|
|
| OPENROOT(XBY) | ;EP - return OPen RooT form of XBY .. for %RCR use
|
|
| EFILE | ;
|
|
| SFILE | ;PEP - Select a host file for display.
|
|
| EXIT | ;EP -- exit code
|
|
| FILE(XBDIR,XBFN) | ;PEP - pull up a file into the TMP global for display
; or into an array for GUI (see GUIR and GUID entry points) |
| Name | Field # of Occurrence |
|---|---|
| %XY^%RCR | ARRAY+6 |
| ^%ZIS | FILE+13, OPEN+2, FNAME1+20, VIEWR+12 |
| HOME^%ZIS | VIEWR+16, VIEWD+17 |
| ^%ZISC | FILE+18, ES+2, VIEWR+16, VIEWD+17 |
| $$DEL^%ZISH | VIEWR+18, VIEWD+19 |
| $$LIST^%ZISH | FNAME1+8 |
| $$PWD^%ZISH | OPEN+4, VIEWR+3, VIEWD+3 |
| $$STATUS^%ZISH | FILE+17 |
| DF^%ZISH | FILE+7, FNAME1+14, VIEWR+6, VIEWD+6 |
| WAIT^DICD | VIEWR+2, VIEWD+2 |
| DT^DICRW | OPEN+2 |
| ^DIR | OPEN+8, FNAME1+2 |
| EN^VALM | EN+1 |
| CLEAR^VALM1 | K+2 |
| CNTRL^VALM10 | MARKERS+2 |
| ^XBCLS | OPEN+2 |
| $$DIC^XBDIQ1 | DIQ+2 |
| PARSE^XBDIQ1 | DIQ+3 |
| $$DIR^XBDIR | FILE+14, ES+1 |
| EN^XBLM | FILE+26, ARRAY+6 |
| FILE^XBLM | ES+3, VIEWR+17, VIEWD+18 |
| VIEWD^XBLM | GUID+4 |
| VIEWR^XBLM | GUIR+4, DIQ+6 |
| ^XBLMSET | FILE+11, FNAME1+18, VIEWR+9, VIEWD+11 |
| DISP^XQORM1 | HELP+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | FILE+11, FNAME1+18, VIEWR+9, VIEWD+11 |
| ^%ZIS(2 - [#3.2] | FILE+11, FNAME1+18, VIEWR+9, VIEWD+11 |
| ^TMP("XBLM" | MARKERS+5, EXIT+1!, FILE+15!, FILE+17*, FILE+21!, FILE+24, FILE+27!, ARRAY+4!, ARRAY+7! |
| Name | Line Occurrences |
|---|---|
| $$OPENROOT | FILE+23 |
| $$STRIP | FILE+17 |
| @( | VIEWR+15, VIEWD+15 |
| CONT | OPENROOT+3, OPENROOT+4, OPENROOT+5 |
| EFILE | FILE+14 |
| FNAME | FNAME1+8, ES+1, ESFILE+1 |
| FNAME1 | FNAME1+7 |
| OPEN | FNAME1+5, FNAME1+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %X | ARRAY+5* |
| >> %Y | ARRAY+5* |
| %ZIS | FILE+10!, FNAME1+17!, VIEWR+7!, VIEWD+9! |
| %ZIS("HFSMODE" | FILE+12*, FNAME1+19*, VIEWR+11*, VIEWD+13* |
| %ZIS("HFSNAME" | FILE+12*, FNAME1+19*, VIEWR+11*, VIEWD+13* |
| DA | DIQ~, DIQ+3 |
| DIC | DIQ~, DIQ+2* |
| DIQ | DIQ+4~ |
| DIQ(0 | DIQ+5* |
| DIR | OPEN+5!, OPEN+9!, FNAME+1!, FNAME1+3! |
| DIR("A" | OPEN+6*, FNAME1+1* |
| DIR("B" | OPEN+6*, FNAME1+7* |
| DIR(0 | OPEN+6*, FNAME1+1* |
| DR | DIQ+4~ |
| DTIME | FNAME1+9 |
| >> DTOUT | OPEN+10, FNAME1+4 |
| DX | VIEWR+14!, VIEWD+16! |
| I | MARKERS+1*, MARKERS+2, FILE+3~, FILE+17*, FILE+22*, FILE+24*, ARRAY+2~, STRIP+1~, STRIP+2* |
| IO | FILE+17, VIEWR+13 |
| IO(0 | VIEWR+2, VIEWD+2 |
| IOM | VIEWR+8, VIEWR+10, VIEWR+19*, VIEWD+10, VIEWD+12, VIEWD+20* |
| >> IOP | FILE+12*, OPEN+1*, FNAME1+19*, VIEWR+10*, VIEWD+12* |
| IOPAR | K+3! |
| >> IORVOFF | MARKERS+2 |
| >> IORVON | MARKERS+2 |
| IOSL | DIQ+1*, DIQ+9* |
| IOSLO | DIQ+1*, DIQ+9, DIQ+10! |
| IOST | DIQ+1*, DIQ+7* |
| IOSTO | DIQ+1*, DIQ+7, DIQ+8! |
| IOUPAR | K+3! |
| >> J | MARKERS+2* |
| L | OPENROOT+1~, OPENROOT+2*, OPENROOT+3, OPENROOT+5 |
| >> POP | FILE+14, ES+1 |
| >> VALMAR | MARKERS+1 |
| >> VALMCNT | MARKERS+5* |
| >> VALMHDR(1 | HDR+1* |
| X | HELP+1*, FILE+3~, FILE+17*, FNAME1+8*, FNAME1+9*, VIEWR+18*, VIEWD+19*, ARRAY+2~ |
| XBAR | K+1!, ARRAY~, ARRAY+5 |
| XBDIR | K+1!, FILE~, FILE+7, FILE+12, FILE+14, OPEN+4*, OPEN+6, OPEN+7!, OPEN+12*, FNAME1+8 , FNAME1+14, FNAME1+19, ES+1, ES+3, VIEWR+3, VIEWR+4*, VIEWR+6, VIEWR+11, VIEWR+17, VIEWR+18 , VIEWR+20!, VIEWD+3*, VIEWD+6, VIEWD+13, VIEWD+18, VIEWD+19, VIEWD+21!, DIQ+10!, ARRAY+7! |
| XBDIR(1 | OPEN+4, VIEWR+4, VIEWD+3 |
| XBFL | K+1!, FNAME1+8! |
| XBFL( | FNAME1+7, FNAME1+9 |
| XBFN | K+1!, FILE~, FILE+12, FILE+14, FNAME1+11*, FNAME1+19, ES+1, ES+3, ES+4!, VIEWR+4* , VIEWR+11, VIEWR+17, VIEWR+18, VIEWR+20!, VIEWD+3*, VIEWD+13, VIEWD+18, VIEWD+19, VIEWD+21!, DIQ+10! , ARRAY+7! |
| XBGUI | FILE+21, VIEWR+2, GUIR+3*, GUIR+5!, GUID+3*, GUID+5!, VIEWD+2 |
| XBHDR | HDR+1, K+1!, FILE+2*, VIEWR~, VIEWR+1*, VIEWR+20!, VIEWD~, VIEWD+1*, ARRAY~, ARRAY+1* |
| XBI | K+1!, FNAME1+9* |
| XBIOM | VIEWR+8*, VIEWR+19, VIEWR+20!, VIEWD+10*, VIEWD+20, VIEWD+21! |
| XBLMMARK | MARKERS+1, MARKERS+4! |
| XBNODE | MARKERS+5, EXIT+1, FILE+3~, FILE+4*, FILE+15, FILE+17, FILE+21, FILE+24, FILE+27, VIEWR+20! , VIEWD+21!, DIQ+10!, ARRAY+2~, ARRAY+3*, ARRAY+4, ARRAY+5, ARRAY+7! |
| XBROU | K+1!, VIEWR~, VIEWR+15, GUIR~, GUIR+4, GUID~, GUID+4, VIEWD~, VIEWD+15 |
| XBY | FILE+23*, FILE+24, GUIR~, GUIR+1, GUIR+5!, GUID~, GUID+1, GUID+2*, GUID+5!, OPENROOT~ , OPENROOT+2, OPENROOT+3, OPENROOT+4*, OPENROOT+5*, CONT+1 |
| >> XBZ | FILE+24* |
| >> XQORS | K+2, FILE+4, ARRAY+3 |
| Y | FILE+3~, FILE+14*, OPEN+4*, OPEN+11, OPEN+12, FNAME1+5, FNAME1+6, FNAME1+7, FNAME1+8, FNAME1+11 , ES+1*, VIEWR+3*, VIEWD+3*, ARRAY+2~ |
| Z | STRIP~, STRIP+2*, STRIP+3 |