©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
XOBUENV ;; ld/alb - VistaLink Environment Check ; 08/08/2003 08:44
Source file <XOBUENV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OSMSG | ;- Message to user if operating system is not Cache or DSM
|
|
| EN | ;- entry point
|
|
| ASKINSTR() | ;- ask if user wants file deletion instructions
|
|
| FILECHK() | ;- Check for file 18
|
|
| FILE18Q | ||
| PRNTXT(TEXT) | ;- display user text
|
|
| FILE18 | ;- check for obsolete Kernel file #18 which is in VistALink's numberspace
|
|
| ANSWER(XOB0,XOBA,XOBB,XOBARR) | ;wrap FileMan DIR Reader call
|
|
| INSTR1 | ;- user instructions to delete file #18
|
|
| INTRO | ;- display message to user explaining file #18
|
|
| ENQ | ||
| INSTR2 | ;- user instructions to delete file #18 (continued)
|
|
| OSCHK | ;- check enviroment for operating system (DSM or OpenM)
|
|
| PROG | ;- check enviroment for programmer variables
|
|
| ASKINSTL() | ;- ask if user wants to abort install
|
|
| REASK() | ;- ask user again if they want to continue with install (pre-init will
; delete file #18) |
|
| TOP | ;- top of screen
|
|
| PAUSE | ;- enhance readability of text
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | OSCHK+3 |
| ^DD(18 | FILECHK+6 |
| ^DIC(18 | FILECHK+6 |
| Name | Line Occurrences |
|---|---|
| $$ANSWER | ASKINSTL+13, REASK+12, ASKINSTR+7 |
| $$ASKINSTL | FILE18+16 |
| $$ASKINSTR | FILE18+12, FILE18+18, FILE18+25 |
| $$FILECHK | FILE18+5 |
| $$REASK | FILE18+23 |
| ENQ | EN+3, EN+6 |
| FILE18 | EN+9 |
| FILE18Q | FILE18+5, FILE18+11 |
| OSCHK | EN+6 |
| PAUSE | FILE18+12, FILE18+18, FILE18+25 |
| PRNTXT | OSCHK+6, FILE18+8, FILE18+12, FILE18+18, FILE18+25 |
| PROG | EN+3 |
| TOP | FILE18+12, FILE18+18, FILE18+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | ANSWER+12~, ANSWER+18!, PAUSE+3! |
| DIR("A" | ANSWER+15*, ANSWER+16*, PAUSE+3* |
| DIR("B" | ANSWER+17* |
| DIR(0 | ANSWER+14*, PAUSE+3* |
| DIRUT | ANSWER+12~, ANSWER+19 |
| DUZ | PROG+3 |
| DUZ(0 | PROG+3 |
| I | FILE18+2~, PRNTXT+3~, PRNTXT+4* |
| IOF | TOP+3 |
| IOST | TOP+2, PAUSE+2 |
| LINE | FILE18+2~, PRNTXT+3~, PRNTXT+4* |
| TEXT | PRNTXT~, PRNTXT+2 |
| U | ANSWER+19 |
| X | ANSWER+12~ |
| XOB0 | ASKINSTL+2~, ASKINSTL+3*, ASKINSTL+13, REASK+3~, REASK+4*, REASK+12, ASKINSTR+2~, ASKINSTR+3*, ASKINSTR+7, ANSWER~ , ANSWER+14 |
| XOBA | ASKINSTL+2~, ASKINSTL+4*, ASKINSTL+13, REASK+3~, REASK+5*, REASK+12, ASKINSTR+2~, ASKINSTR+4*, ASKINSTR+7, ANSWER~ , ANSWER+15, FILECHK+2~, FILECHK+3*, FILECHK+5*, FILECHK+6*, FILECHK+7 |
| XOBABORT | FILE18+2~, FILE18+16*, FILE18+17, FILE18+18, FILE18+22 |
| XOBARR | ASKINSTL+2~, ASKINSTL+13, REASK+3~, REASK+12, ASKINSTR+2~, ASKINSTR+7, ANSWER~, ANSWER+16 |
| XOBARR(1 | ASKINSTL+6*, REASK+7*, ASKINSTR+6* |
| XOBARR(2 | ASKINSTL+7*, REASK+8* |
| XOBARR(3 | ASKINSTL+8*, REASK+9* |
| XOBARR(4 | ASKINSTL+9*, REASK+10* |
| XOBARR(5 | ASKINSTL+10*, REASK+11* |
| XOBARR(6 | ASKINSTL+11* |
| XOBARR(7 | ASKINSTL+12* |
| XOBASK | FILE18+2~, FILE18+23*, FILE18+24, FILE18+25 |
| XOBB | ASKINSTL+2~, ASKINSTL+5*, ASKINSTL+13, REASK+3~, REASK+6*, REASK+12, ASKINSTR+2~, ASKINSTR+5*, ASKINSTR+7, ANSWER~ , ANSWER+17 |
| XOBFIL | FILECHK+2~ |
| XOBFIL("NAME" | FILECHK+5 |
| XOBOS | OSCHK+2~, OSCHK+3*, OSCHK+4 |
| >> XPDABORT | EN+3, EN+6, EN+12, EN+15, PROG+4*, OSCHK+5*, FILE18+19*, FILE18+26* |
| >> XPDENV | EN+12, EN+15, FILE18+11 |
| Y | ANSWER+12~, ANSWER+19 |
| Name | Field # of Occurrence |
|---|---|
| $T(@TEXT+I | PRNTXT+4 |