LA7SUTL ;DALISC/JMC - Shipping Utility ;5/5/97 14:44
Source file <LA7SUTL.m>
| 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
|
