Routine: LA7SUTL

Information

LA7SUTL ;DALISC/JMC - Shipping Utility ;5/5/97 14:44

Source file <LA7SUTL.m>

Package	Total	Call Graph
Kernel	1	($$DT,$$FMDIFF)^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Automated Lab Instruments	4	LA7SM LA7SMB LA7SMP0 LA7SMU
IHS Changes To Lab	1	BLRAG09

Name	Comments	DBIA/ICR reference
F	;FREE TEXT
TEST(IEN)	;USED FOR THE CATALOG
JULIAN(LA7DT)	; Calculate julian date based on date passed ; Call with X = VA FileMan date. ; Returns Y = julian date justified to 3 digits.
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
N	;NUMERIC
S	;SET OF CODES
EXIT	;EXIT
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

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

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