MAGD350L ;WOIFO/RED/PMK - CREATE FILE REFERENCE FROM ^MAG(2005) ; Jan 03, 2023@10:37:34
Source file <MAGD350L.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VST | ; Entry point to get a full size image with copying from JB to MAG DISK
|
|
| VSTNOCP | ; Entry point to get a full size image without copying it from the JB
|
|
| ABS | ; Entry point to get an image abstract with copying from JB to MAG DISK
|
|
| ABSNOCP | ; Entry point to get an image abstract without copying it from the JB
|
|
| BIG | ; Entry point to get a big file with copying from JB to MAG DISK
|
|
| BIGNOCP | ; Entry point to get a big without copying it from the JB
|
|
| FULL | ||
| ABSTRACT | ||
| BIGFILE | ||
| EXIT | ||
| FINDFILE | ;
|
|
| DIRHASH(FILENAME,NETLOCN) | ; determine the hierarchical file directory hash
|
|
| NOWHERE | ; File is not anywhere on the jukebox -- output error message
; Requested imagQe file is not on the Jukebox |
|
| OFFLINE | ; Jukebox Cartridge is off-line -- output error message
; Jukebox Cartridge with image file is off-line." |
|
| IMOFFLN(FILE) | ;Check to see if image is offline (jb platter removed)
|
|
| TIER2LOC() | ; Get the TIER-2 location for the image entry and set it if null
|
| FileNo | Call Tags |
|---|---|
| ^MAG(2005.2 - [#2005.2] | GET1^DIQ |
| ^MAG(2006.1 - [#2006.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("UPPERCASE" | IMOFFLN+3 |
| ^MAG(2005 - [#2005] | FINDFILE+3, FINDFILE+4, FINDFILE+41, FINDFILE+53, TIER2LOC+7*, TIER2LOC+8 |
| ^MAG(2005.2 - [#2005.2] | FINDFILE+65, FINDFILE+68, FINDFILE+76, DIRHASH+8 |
| ^MAG(2006.1 - [#2006.1] | TIER2LOC+5 |
| ^MAGQUEUE(2006.033 - [#2006.033] | IMOFFLN+4, IMOFFLN+5, IMOFFLN+6 |
| Name | Line Occurrences |
|---|---|
| $$IMOFFLN | FINDFILE+95 |
| $$TIER2LOC | FINDFILE+13, FINDFILE+17, FINDFILE+27, FINDFILE+35, FINDFILE+74, FINDFILE+79, OFFLINE+2 |
| ABSTRACT | ABS+1, ABSNOCP+1 |
| BIGFILE | BIG+1, BIGNOCP+1 |
| EXIT | FULL, ABSTRACT, BIGFILE |
| FINDFILE | FULL, ABSTRACT, BIGFILE |
| FULL | VST+1, VSTNOCP+1 |
| NOWHERE | FINDFILE+75 |
| OFFLINE | FINDFILE+78 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNDBMP | FINDFILE+1~, FINDFILE+25, FINDFILE+26 |
| EXT | FINDFILE+40~, FINDFILE+45*, FINDFILE+46, FINDFILE+52~, FINDFILE+57*, FINDFILE+58 |
| FBIG | FINDFILE+40~, FINDFILE+41*, FINDFILE+42, FINDFILE+45, FINDFILE+47, FINDFILE+48, FINDFILE+52~, FINDFILE+53*, FINDFILE+54, FINDFILE+57 , FINDFILE+59 |
| FILE | IMOFFLN~, IMOFFLN+2, IMOFFLN+3*, IMOFFLN+4, IMOFFLN+5 |
| FILENAME | DIRHASH~, DIRHASH+12 |
| FILETYPE | FULL~*, ABSTRACT~*, BIGFILE~*, FINDFILE+8*, FINDFILE+9*, FINDFILE+11, FINDFILE+16, FINDFILE+20, FINDFILE+34, FINDFILE+39 , FINDFILE+51, FINDFILE+97 |
| FN | DIRHASH+7~, DIRHASH+12*, DIRHASH+13, DIRHASH+14 |
| HASH | DIRHASH+7~, DIRHASH+13*, DIRHASH+14*, DIRHASH+15*, DIRHASH+17*, DIRHASH+18 |
| HASHFLAG | DIRHASH+7~, DIRHASH+8*, DIRHASH+9 |
| I | DIRHASH+7~, DIRHASH+14* |
| IEN | TIER2LOC+1~, TIER2LOC+5*, TIER2LOC+6 |
| KSITEPAR | TIER2LOC+1~, TIER2LOC+4*, TIER2LOC+5 |
| MAG0 | FINDFILE+1~, FINDFILE+4*, FINDFILE+5, FINDFILE+12, FINDFILE+23, TIER2LOC+2, TIER2LOC+8* |
| MAGERR | FINDFILE+1~, FINDFILE+2*, FINDFILE+3*, FINDFILE+20, FINDFILE+24, FINDFILE+26*, FINDFILE+34, FINDFILE+39, FINDFILE+43*, FINDFILE+51 , FINDFILE+55*, FINDFILE+71*, FINDFILE+72, FINDFILE+73, FINDFILE+75*, FINDFILE+78* |
| >> MAGFILE | EXIT+1* |
| >> MAGFILE1 | EXIT+1, FINDFILE+3*, FINDFILE+4*, FINDFILE+6*, FINDFILE+8*, FINDFILE+9*, FINDFILE+26*, FINDFILE+31*, FINDFILE+36*, FINDFILE+43* , FINDFILE+46*, FINDFILE+55*, FINDFILE+58*, FINDFILE+63*, FINDFILE+66*, FINDFILE+90, FINDFILE+95, FINDFILE+101, NOWHERE+2*, OFFLINE+2* |
| >> MAGFILE1( | FINDFILE+5* |
| >> MAGFILE1("ERROR" | FINDFILE+2!, NOWHERE+3* |
| >> MAGFILE2 | EXIT+1* |
| >> MAGJB | FINDFILE+13*, FINDFILE+27* |
| MAGJBCP | VST+1~*, VSTNOCP+1~*, ABS+1~*, ABSNOCP+1~*, BIG+1~*, BIGNOCP+1~*, FINDFILE+96 |
| >> MAGJBOL | FINDFILE+2*, IMOFFLN+6* |
| >> MAGOFFLN | FINDFILE+2*, FINDFILE+95* |
| MAGPREF | VST+1~, VSTNOCP+1~, ABS+1~, ABSNOCP+1~, BIG+1~, BIGNOCP+1~, EXIT*, EXIT+1, FINDFILE+2!, FINDFILE+43* , FINDFILE+55*, FINDFILE+82*, FINDFILE+83*, FINDFILE+86*, FINDFILE+87*, FINDFILE+92*, FINDFILE+101*, NOWHERE+2*, OFFLINE+2* |
| MAGREF | FINDFILE+1~, FINDFILE+2*, FINDFILE+12*, FINDFILE+13*, FINDFILE+17*, FINDFILE+23*, FINDFILE+24, FINDFILE+27*, FINDFILE+35*, FINDFILE+47* , FINDFILE+48*, FINDFILE+59*, FINDFILE+62, FINDFILE+65, FINDFILE+66, FINDFILE+68, FINDFILE+79*, FINDFILE+97, FINDFILE+101 |
| MAGSTORE | FINDFILE+1~, FINDFILE+68*, FINDFILE+69, FINDFILE+72, FINDFILE+74*, FINDFILE+75, FINDFILE+76*, FINDFILE+78, FINDFILE+83, FINDFILE+86 , FINDFILE+87, FINDFILE+92 |
| MAGTYPE | FULL~, ABSTRACT~, BIGFILE~, FINDFILE+2*, FINDFILE+68*, FINDFILE+69*, FINDFILE+73, FINDFILE+83, FINDFILE+85, FINDFILE+86 , FINDFILE+87, FINDFILE+88 |
| MAGXX | EXIT+2!, FINDFILE+3, FINDFILE+4, FINDFILE+25, FINDFILE+41, FINDFILE+53, FINDFILE+97, NOWHERE+2, OFFLINE+2, TIER2LOC+7 , TIER2LOC+8 |
| NETLOCN | DIRHASH~, DIRHASH+8 |
| SUBDIR | FINDFILE+89~, FINDFILE+90*, FINDFILE+91*, FINDFILE+92 |
| TIER2LOC | TIER2LOC+1~, TIER2LOC+2*, TIER2LOC+3, TIER2LOC+6*, TIER2LOC+7, TIER2LOC+10 |
| X | FINDFILE+97*, IMOFFLN+1~, IMOFFLN+3* |
| XX | IMOFFLN+1~, IMOFFLN+5*, IMOFFLN+6 |
| Y | IMOFFLN+1~, IMOFFLN+3 |
