LA7SUTL ;DALISC/JMC - Shipping Utility ;5/5/97 14:44
Source file <LA7SUTL.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 |
|---|---|---|
| Automated Lab Instruments | 5 | LA7S PRINT LA7SM LA7SMB LA7SMP0 LA7SMU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SSCFG(SCR) | ; Select shipping configuration
; Call with X = 0 no screen ; = 1 active collecting facilty screen ; = 2 active host facility screen ; Returns Y = 0 (unsuccessful) or ien of entry in file #62.9 ^ .01 field name |
|
| JULIAN(LA7DT) | ; Calculate julian date based on date passed
; Call with X = VA FileMan date. ; Returns Y = julian date justified to 3 digits. |
|
| AD(LA7AA) | ; Determine current accession date for a given accession area.
; Call with LA7AA = ien of entry in file ACCESSION #68. ; Returns LA7AD = accession date in VA FileMan format ; 0^error message if not valid pointer |
|
| TEST(IEN) | ;USED FOR THE CATALOG
|
|
| EXIT | ;EXIT
|
|
| F | ;FREE TEXT
|
|
| N | ;NUMERIC
|
|
| S | ;SET OF CODES
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | TEST+2, TEST+3, TEST+4 |
| ^LRO(68 - [#68] | AD+8 |
| Name | Line Occurrences |
|---|---|
| @( | TEST+6 |
| EXIT | TEST+2, TEST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | SSCFG+6~ |
| DIR("A" | SSCFG+7* |
| DIR("S" | SSCFG+8* |
| DIR(0 | SSCFG+7* |
| DIRUT | SSCFG+6~ |
| DT | AD+7*, AD+9 |
| DTOUT | SSCFG+6~ |
| DUOUT | SSCFG+6~ |
| IEN | TEST~, TEST+2, TEST+3, TEST+4 |
| LA7AA | AD~, AD+5*, AD+6, AD+8 |
| LA7AD | AD+4~, AD+9*, AD+10*, AD+11 |
| LA7DT | JULIAN~, JULIAN+4 |
| LA7JUL | JULIAN+3~, JULIAN+4*, JULIAN+5*, JULIAN+6*, JULIAN+7 |
| LADATA | TEST+4*, TEST+5, EXIT+1!, S+2 |
| LADES | EXIT+1!, S+4*, S+5 |
| LAFLD | TEST+4*, EXIT+1!, F+2, N+2 |
| LAI | EXIT+1!, S+4* |
| LANUM | EXIT+1!, S+2*, S+3, S+4 |
| LASET | EXIT+1!, S+2*, S+4 |
| LATYP | TEST+5*, TEST+6, EXIT+1! |
| OUT | TEST+1!, EXIT+2*, EXIT+3, F+1*, F+2*, N+1*, N+2*, S+1*, S+5* |
| SCR | SSCFG~, SSCFG+8 |
| U | AD+8, TEST+3, TEST+4, TEST+5, F+2, N+2, S+2 |
| X | SSCFG+6~, AD+4~, AD+8*, AD+9 |
| Y | SSCFG+6~, SSCFG+10*, SSCFG+11 |
| Name | Field # of Occurrence |
|---|---|
| $T(@LATYP | TEST+6 |
