LEX2080 ;ISL/KER - LEX*2.0*80 Env Check ;04/21/2014
Source file <LEX2080.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAILQ | ; Quit Mail
|
|
| ENV2 | ; Environment Check #2 - XPDENV=1
|
|
| CKO | ; Kill and Obtain new global
|
|
| GBLS | ; Check Write access on globals
|
|
| IGT(X) | ; Import Global Error Text
|
|
| KILL | ; Kill all ^TMP(
|
|
| BM(X) | ; Blank Line with Message
|
|
| GOK(X) | ; Input Global Ok for Install
|
|
| TRIM(X) | ; Trim Spaces
|
|
| CU | ; Unable to verify
|
|
| ET(X) | ; Error Text
|
|
| INSD(X) | ; Installed on
|
|
| CO | ; Obtain new global
|
|
| CM | ; Missing ^LEXM
|
|
| ED | ; Error Display
|
|
| CF | ; Failed checksum
|
|
| NOTDEF(IEN) | ; Check to see if user is defined
|
|
| IMP | ; Import names
|
|
| UR(X) | ; Check User variables
|
|
| RGNF | ; Required global not found
|
|
| ENV | ; LEX*2.0*80 Environment Check
; Checks |
|
| CS | ; Checksum for import global
|
|
| RGBL(X) | ; Check Write access on globals
|
|
| CW | ; Wrong ^LEXM
|
|
| IG | ; Import Global
|
|
| QUIT | ; Quit Passed Environment Check
|
|
| ABRT | ; Abort Failed Environment Check, KILL the distribution
|
|
| OK | ; Environment is OK
|
|
| VC(X,Y) | ; Verify Checksum for import global
|
|
| SY(X) | ; Check System variables
|
|
| ADR(LEX) | ; Mailing Address
|
|
| M(X) | ; Message
|
|
| GD | ; Global Data
|
|
| EXIT | ; Exit Failed Environment Check
|
|
| UOK(X) | ; UCI Ok for Install
|
|
| ; Mail global array in message
|
||
| INS(X) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | ADR+1, ADR+2 |
| FIND^DIC | INSD+5, INSD+8, INSD+17, INSD+19 |
| $$IENS^DILF | INSD+7, INSD+15 |
| $$GET1^DIQ | MAIL+5 |
| EN^DIQ1 | NOTDEF+1 |
| $$FMTE^XLFDT | ENV+26, INSD+10, INSD+12, INSD+21 |
| ^XMD | MAIL+12 |
| $$NETNAME^XMXUTIL | UOK+1 |
| $$PATCH^XPDUTL | INS+1 |
| $$PKG^XPDUTL | INS+2, INSD+2 |
| $$VER^XPDUTL | INS+2, INSD+2 |
| $$VERSION^XPDUTL | ENV+11, INS+2 |
| BMES^XPDUTL | BM+1 |
| MES^XPDUTL | M+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4.2 - [#4.2] | Classic Fileman Calls |
| ^DIC(9.4 - [#9.4] | FIND^DIC |
| 9.49 | FIND^DIC |
| 9.4901 | FIND^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("UCI" | UOK+2 |
| ^%ZOSF("UCICHECK" | UOK+2 |
| ^LEXM | GOK+2 |
| ^LEXM(0 | GOK+3, CS+3, CS+4, VC+3, VC+8, CW+1 |
| ^LEXM(757 | IG+3 |
| ^LEXM(757.001 | IG+3 |
| ^LEXM(757.01 | IG+4 |
| ^LEXM(757.02 | IG+4 |
| ^LEXM(757.03 | IG+5 |
| ^LEXM(757.033 | IG+5 |
| ^LEXM(757.1 | IG+6 |
| ^LEXM(757.2 | IG+6 |
| ^LEXM(757.3 | IG+7 |
| ^LEXM(757.31 | IG+7 |
| ^LEXM(80 | GOK+2, IG+2 |
| ^LEXM(80.1 | GOK+2, IG+2 |
| ^LEXM(80.4 | GOK+2 |
| ^TMP("LEX*2.0*80" | RGNF+1, GOK+1, CS+1, VC+2, IG+1, MAIL+3 |
| ^TMP("LEXKID" | MAIL+6, MAIL+8, MAIL+10!, KILL+1! |
| ^TMP("LEXMSG" | MAIL+3!, MAIL+7, MAIL+8*, MAIL+9*, MAIL+10, MAIL+11, KILL+1! |
| Name | Line Occurrences |
|---|---|
| $$ADR | MAIL+4 |
| $$INS | ENV+23 |
| $$INSD | ENV+23 |
| $$NOTDEF | UR+2 |
| $$RGBL | ENV+38 |
| $$SY | ENV+8 |
| $$TRIM | GBLS+9, RGBL+3 |
| $$UR | ENV+6 |
| $$VC | CS+4 |
| ABRT | ENV+9, ENV+11, ENV+34, ENV+35, ENV+37, ENV+39, ENV+40, ENV+50, ENV+52 |
| BM | GBLS+2, GBLS+5, GBLS+7, CS+2, OK+3 |
| CF | CS+6 |
| CKO | CW+3, CW+4, CU+1, CF+1 |
| CM | RGBL+11, RGNF+3, CS+6 |
| CO | CM+1 |
| CS | ENV+52 |
| CU | CS+6 |
| CW | CS+6 |
| ED | EXIT+1, ABRT+1 |
| ENV | ENV2+1 |
| ET | ENV+6, ENV+8, ENV+12, ENV+32, RGBL+10, RGNF+2, CM+1, CW+1, CW+3, CW+4 , CU+1, CF+1, CO+2, CO+3, CO+4, CKO+1, CKO+2, CKO+3, CKO+4, CKO+5 , IG+9, IG+10, IG+11, IG+12, IGT+1 |
| GBLS | ENV+50 |
| IG | ENV+35 |
| IGT | IG+2, IG+3, IG+4, IG+5, IG+6, IG+7 |
| IMP | ENV+2, ENV+14, RGNF+1, GOK+1, CS+1, VC+2, CM+1, CW+1, CU+1, CF+1 , CO+1, CKO+1, IG+1, IG+9, OK+2, MAIL+2 |
| KILL | MAILQ+1 |
| M | ENV+31, ENV+34, ENV+35, GBLS+3, GBLS+4, GBLS+6, GBLS+7, GBLS+12, GBLS+13, GBLS+14 , CS+5, VC+8, ED+1, ED+2, OK+3 |
| MAILQ | MAIL+4, MAIL+5, MAIL+10, MAIL+11 |
| OK | QUIT+1 |
| QUIT | ENV+36, ENV+41, ENV+48 |
| RGNF | GBLS+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CT | IG+1~*, IGT+1* |
| DA | NOTDEF+1~*, INSD+1~, INSD+7!, INSD+15! |
| DA(1 | INSD+7*, INSD+15* |
| DA(2 | INSD+15* |
| DIC | NOTDEF+1~*, ADR+1~*, ADR+2* |
| DIC(0 | ADR+1*, ADR+2* |
| DIFROM | MAIL+1~ |
| DIQ | NOTDEF+1~* |
| DR | NOTDEF+1~* |
| DTOUT | ADR+1~ |
| DUOUT | ADR+1~ |
| DUZ | UR+2, MAIL+5 |
| DUZ(0 | UR+1 |
| IEN | NOTDEF~, NOTDEF+1 |
| IO | SY+1 |
| IOF | SY+1 |
| IOM | SY+1 |
| ION | SY+1 |
| IOSL | SY+1 |
| IOST | SY+1 |
| LEX | ENV+15~, NOTDEF+1~, ADR~, ADR+1*, ADR+2*, INS+1~*, INS+2, INSD+1~*, INSD+2 |
| LEXADR | MAIL+1~, MAIL+5*, MAIL+11 |
| LEXB | CW+1~*, CW+2, CW+3 |
| LEXB1 | GBLS+1~, GBLS+11*, GBLS+13, RGBL+1~, RGBL+5* |
| LEXB2 | GBLS+1~, GBLS+11*, GBLS+13, RGBL+1~, RGBL+5* |
| LEXBUILD | ENV+2~, RGNF+1~, GOK+1, GOK+3, CS+1, VC+1~, VC+2, VC+3, CM+1~, CW+1~ , CW+2, CU+1~, CF+1~, CO+1~, CO+3, CKO+1~, CKO+5, IG+1, IG+9~, OK+1~ , OK+2, MAIL+2~, MAIL+4, IMP+18* |
| LEXC | ENV+15~, ENV+16*, ENV+18*, ENV+33, VC+4~, VC+9*, VC+10 |
| LEXC1 | ENV+15~, ENV+16*, ENV+25 |
| LEXC2 | ENV+15~, ENV+16*, ENV+19, ENV+24, ENV+26 |
| LEXC3 | ENV+15~, ENV+16*, ENV+19*, ENV+28, ENV+30 |
| LEXC4 | ENV+15~, ENV+16*, ENV+19*, ENV+30 |
| LEXCK | CS+3~*, CS+4, VC+4~, VC+5*, VC+6, VC+18 |
| LEXCNT | VC+4~, VC+7*, VC+13*, VC+14* |
| LEXCOM | ENV+21~, ENV+22*, ENV+30 |
| LEXD | VC+4~, VC+15* |
| LEXDA | INSD+1~, INSD+7*, INSD+8, INSD+15*, INSD+17, INSD+19 |
| LEXE | ENV+2~, ENV+9, ENV+34, ENV+35, ENV+37, ENV+39, ENV+40, ENV+50, ENV+52, EXIT+1! , ABRT+1, ABRT+2!, GBLS+1~, GBLS+9*, CS+1!, IG+8, ED+2!, INSD+1~, INSD+21*, INSD+22 |
| LEXE( | ET+1*, ED+1 |
| LEXE(0 | ET+1* |
| LEXEC | RGBL+1~, RGBL+3* |
| LEXF | GBLS+1~, GBLS+10*, GBLS+13, RGBL+1~, RGBL+4* |
| LEXFULL | ENV+36, ENV+41, ENV+48, QUIT+1!, EXIT+1!, ABRT+2! |
| LEXFY | ENV+2~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~, IG+9~ , OK+1~, MAIL+2~, IMP+18* |
| LEXG | ENV+2~, ENV+38*, ENV+39, ENV+40 |
| LEXGBL | GBLS+1~, GBLS+10*, GBLS+12, GBLS+13, RGBL+1~, RGBL+4*, RGBL+6, RGNF+2, RGNF+3 |
| LEXGCS | VC+4~, VC+9*, VC+16*, VC+18 |
| LEXI | ENV+15~, ENV+17*, ENV+18, ENV+20*, ENV+21, ENV+24, GBLS+1~, GBLS+8*, GBLS+9, RGBL+1~ , RGBL+2*, RGBL+3, ET+1~*, ED+1~*, MAIL+1~, MAIL+6*, MAIL+8, INS+1~, INS+2*, INS+3 , INSD+1~, INSD+18*, INSD+20*, INSD+21, INSD+22 |
| LEXIGHF | ENV+2~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CO+3, CKO+1~ , CKO+4, IG+9~, IG+11, OK+1~, MAIL+2~, IMP+18* |
| LEXINE | ENV+21~, ENV+23*, ENV+29 |
| LEXINS | ENV+21~, ENV+23* |
| LEXIT | ENV+48~* |
| LEXL | VC+4~, VC+7*, VC+14 |
| LEXLC | VC+4~, VC+7*, VC+14* |
| LEXLREV | ENV+2~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~, IG+9~ , OK+1~, MAIL+2~, IMP+17* |
| LEXM | MAIL+1~, MAIL+7*, MAIL+8, MAIL+9 |
| LEXMSG | INSD+1~, INSD+6!, INSD+13! |
| LEXN | VC+4~, VC+9*, VC+10*, VC+11, VC+12, VC+15 |
| LEXNC | VC+4~, VC+9*, VC+15*, VC+17 |
| LEXND | CS+3~, CS+4*, VC+4~, VC+5*, VC+6, VC+7, VC+17 |
| LEXNS | INSD+1~, INSD+2*, INSD+3, INSD+5 |
| LEXO | ENV+15~, ENV+28*, ENV+33 |
| LEXOK | GBLS+1~*, GBLS+12*, GBLS+14 |
| LEXOUT | INSD+1~, INSD+6!, INSD+13! |
| LEXOUT("DILIST" | INSD+6, INSD+9, INSD+11, INSD+13, INSD+18, INSD+20 |
| LEXP | ENV+15~, VC+4~, VC+16*, INS+1~, INS+2* |
| LEXPAT | ENV+15~, ENV+18*, ENV+19, ENV+21~, ENV+22*, ENV+23, ENV+25, ENV+32 |
| LEXPI | INSD+1~, INSD+6*, INSD+7, INSD+14, INSD+15, INSD+16 |
| LEXPN | ENV+15~, ENV+23*, ENV+27, ENV+32, INSD+1~, INSD+2*, INSD+3*, INSD+9, INSD+11, INSD+13 , INSD+17, INSD+19 |
| LEXPRI | MAIL+1~, MAIL+4*, MAIL+5*, MAIL+11 |
| LEXPTYPE | ENV+2~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~, IG+9~ , OK+1~, MAIL+2~, IMP+17* |
| LEXQTR | ENV+2~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~, IG+9~ , OK+1~, MAIL+2~, IMP+18* |
| LEXR | ENV+15~, ENV+16*, ENV+19*, ENV+24 |
| LEXREL | ENV+21~, ENV+22*, ENV+26 |
| LEXREQ | ENV+21~*, ENV+22 |
| LEXREQP | ENV+2~, RGNF+1~, VC+1~, CM+1~, CW+1~, CU+1~, CF+1~, CO+1~, CKO+1~, IG+9~ , OK+1~, MAIL+2~ |
| LEXREQP( | ENV+17, ENV+18, ENV+20, ENV+21 |
| LEXREQP(0 | ENV+14 |
| LEXREQP(1 | IMP+1* |
| LEXREQP(2 | IMP+2* |
| LEXREQP(3 | IMP+3* |
| LEXREQP(4 | IMP+4* |
| LEXREQP(5 | IMP+8* |
| LEXREQP(6 | IMP+11* |
| LEXREQP(7 | IMP+16* |
| LEXRT | GBLS+1~, GBLS+10*, GBLS+11, GBLS+12, GBLS+13, RGBL+1~, RGBL+4*, RGBL+5, RGBL+6 |
| LEXS | GBLS+1~, GBLS+8*, RGBL+1~, RGBL+2*, RGBL+6*, RGBL+7, RGBL+8*, RGBL+9*, RGBL+10, VC+4~ , VC+7*, VC+8*, VC+14 |
| LEXSCR | INSD+1~, INSD+4*, INSD+5, INSD+16*, INSD+17, INSD+19* |
| LEXSTR | ENV+2~ |
| LEXSUB | MAIL+1~, MAIL+3*, MAIL+4*, MAIL+6 |
| LEXT | GBLS+1~, GBLS+10*, GBLS+11, GBLS+13, RGBL+1~, RGBL+4*, RGBL+5, VC+4~, VC+15*, VC+16 , OK+1~, OK+2*, OK+3 |
| LEXTX | ENV+21~, ENV+25*, ENV+26*, ENV+28*, ENV+29*, ENV+30*, ENV+31 |
| LEXV | CS+3~, CS+4*, CS+5, CS+6, INS+1~, INS+2*, INS+3 |
| LEXVD | INSD+1~, INSD+9*, INSD+10, INSD+11*, INSD+12 |
| LEXVI | INSD+1~, INSD+13*, INSD+14, INSD+15, INSD+16 |
| LEXVR | INSD+1~, INSD+2*, INSD+3*, INSD+4, INSD+8 |
| LEXX | GBLS+1~, GBLS+8, GBLS+9*, GBLS+10, RGBL+1~, RGBL+2, RGBL+3*, RGBL+4 |
| TXT | IGT+1~* |
| U | ENV+4* |
| X | GBLS+1~, GBLS+8*, RGBL~, RGBL+2*, RGBL+6*, RGBL+7, RGBL+10, RGBL+11, RGBL+12, UOK~ , UOK+1~*, UOK+2*, GOK~, VC~, VC+5, SY~, UR~, IGT~, IGT+1, ET~ , ET+1, ADR+1~*, ADR+2*, INS~, INS+1*, INSD~, INSD+1, INSD+2, INSD+9, INSD+10* , INSD+11, INSD+12*, INSD+22*, INSD+23, BM~, BM+1, M~, M+1, TRIM~, TRIM+1* , TRIM+2*, TRIM+3 |
| XCNP | MAIL+1~, MAILQ+1! |
| XMDUZ | MAIL+1~, MAIL+12*, MAILQ+1! |
| XMSCR | MAIL+1~, MAILQ+1! |
| XMSUB | MAIL+1~, MAIL+6*, MAILQ+1! |
| XMTEXT | MAIL+1~, MAIL+12*, MAILQ+1! |
| XMY | MAIL+1~, MAILQ+1! |
| XMY( | MAIL+11* |
| XMZ | MAIL+1~, MAILQ+1! |
| >> XPDABORT | ABRT+1* |
| >> XPDDIQ("XPI1" | ENV+3!* |
| >> XPDDIQ("XPZ1" | ENV+3!* |
| XPDENV | ENV+36, ENV+41, ENV+50, ENV+52, ENV2+1~* |
| >> XPDNOQUE | ENV+2* |
| >> XPDQUIT | EXIT+1*, ABRT+1* |
| >> XPDQUIT("ICD*18.0*57" | ABRT+1* |
| >> XPDQUIT("LEX*2.0*80" | ABRT+1* |
| Y | UOK+1~, UOK+2, VC~, VC+5, ADR+1~, ADR+2 |