Routine: LA7SMU

Package	Total	Call Graph
VA Fileman	4	MIX^DIC1 (FILE,UPDATE)^DIE RECALL^DILFD $$GET1^DIQ
Automated Lab Instruments	2	(SEUP,STSUP)^LA7SMU $$AD^LA7SUTL
Kernel	1	($$DT,$$FMTE,$$FMTHL7,$$NOW)^XLFDT

Package

Total

Call Graph

VA Fileman

MIX^DIC1 (FILE,UPDATE)^DIE RECALL^DILFD $$GET1^DIQ

Automated Lab Instruments

(SEUP,STSUP)^LA7SMU $$AD^LA7SUTL

Kernel

($$DT,$$FMTE,$$FMTHL7,$$NOW)^XLFDT

Package	Total	Caller Graph
Automated Lab Instruments	15	LA27 LA7SM LA7SM1 LA7SM2 LA7SMB LA7SMP LA7SMU LA7SMU1 LA7VCIN4 LA7VHLU1 LA7VIN4 LA7VLIN4 LA7VORM1 LA7VQIN4 LA7VRIN4
IHS Changes To Lab	4	BLRAG09 BLRAG09C BLRAG09D BLRAG09F

Package

Total

Caller Graph

Automated Lab Instruments

LA27 LA7SM LA7SM1 LA7SM2 LA7SMB LA7SMP LA7SMU LA7SMU1
LA7VCIN4 LA7VHLU1 LA7VIN4 LA7VLIN4 LA7VORM1 LA7VQIN4 LA7VRIN4

IHS Changes To Lab

BLRAG09 BLRAG09C BLRAG09D BLRAG09F

Entry Points

Name	Comments	DBIA/ICR reference
SMSUP(LA7SM,LA7ST,LA7EVNC)	; Shipping manifest status update. ; Call with LA7SM = ien of entry in file #62.8 LAB SHIPPING MAINFEST^.01 field ; LA7ST = status to update ; LA7EVNC = event code^event date/time (default=NOW)
EVNC(LA7EVC)	; Resolve an event code to it's pointer/text(.01) value ; Call with LA7EVC = Code to lookup, i.e. SM01, SM50 ; Returns Y = ien of code in file #64.061, LAB ELECTRONIC CODES.
STSUP(LA7SM,LA762801,LA7DATA)	; Shipping test status update ; Call with LA7SM = ien of shipping manifest (#62.8) ; LA762801 = ien of test entry on shipping manifest ; LA7DATA = data to be filed
CHKTST(LA7SM,LA762801)	; Check and update if test is still valid. ; Call with LA7SM = ien of shipping manifest in file #62.8 ; LA762801 = ien of entry on test multiple in file #62.8
SMED(LA7SM,LA7EVC)	; Determine shipping manifest's event date ; Call with LA7SM = ien of entry in file #62.8 LAB SHIPPING MANIFEST ; LA7EVC = event type code ; Returns LA7Y = internal event date^external event date
SEUP(LA7ID,LA7EVN,LA7DATA)	; Shipping event update ; Call with LA7ID = shipping identifier (manifest invoice # or UID) ; LA7EVN = event type (1=shipping manifest/2=test) ; LA7DATA = data to be filed
CHKSM(X)	; Shipping manifest status check ; Call with X = ien of file #62.9 LAB SHIPPING CONFIGURATION ; Returns -1 = error^reason ; 0 = no active shipping manifest exists ; >0 = ien of active shipping manifest in file #62.8, LAB SHIPPING MANIFEST
CSM(LA7SCFG)	; Creates a new shipping manifest ; Call with X = ien of file #62.9 LAB SHIPPING CONFIGURATION ; Returns -1 = error^reason ; 0 = no active shipping manifest exists ; >0 = ien of active shipping manifest in file #62.8, LAB SHIPPING MANIFEST
ACCSUP(LA7UID,LA760,LA7DATA)	; Accession status update ; Call with LA7UID = UID of accession to update ; LA7DATA = value to update (pointer to file #62.8, LAB SHIPPING MANIFEST or "@" to delete
SELSM(LA7SCFG,LA7SCR)	; Select shipping manifest ; Call with LA7SCFG = ien of file #62.9 LAB SHIPPING CONFIGURATION ; LA7SCR = comma delimited list of status screen - only allow selection of manifests with matching status ; Returns LA7Y = pointer to shipping manifest or error

External References

Name	Field # of Occurrence
MIX^DIC1	SELSM+10
FILE^DIE	STSUP+7, ACCSUP+15
UPDATE^DIE	CSM+41, SMSUP+9, SEUP+16
RECALL^DILFD	CSM+42
$$GET1^DIQ	CSM+18
SEUP^LA7SMU	CHKTST+38
STSUP^LA7SMU	CHKTST+35
$$AD^LA7SUTL	ACCSUP+7
$$DT^XLFDT	CSM+26
$$FMTE^XLFDT	SMED+12
$$FMTHL7^XLFDT	CSM+26
$$NOW^XLFDT	CSM+44, CSM+47, SMSUP+10, SEUP+8, CHKTST+37

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^LAHM(62.8 - [#62.8]	Classic Fileman Calls, RECALL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(64.061 - [#64.061]	EVNC+5, EVNC+6
^LAHM(62.8 - [#62.8]	CHKSM+11, CHKSM+12, CSM+29, CSM+32, CSM+51, SMED+6, CHKTST+12, CHKTST+13
^LAHM(62.85 - [#62.85]	SEUP+5, SEUP+18, SMED+10, SMED+11, SMED+12
^LAHM(62.9 - [#62.9]	CHKSM+9, CSM+12, CSM+14
^LRO(68 - [#68]	ACCSUP+5, ACCSUP+9, ACCSUP+10, ACCSUP+11, ACCSUP+12, CHKTST+15, CHKTST+19, CHKTST+21, CHKTST+27

Name	Line Occurrences
$$EVNC	SEUP+11, SMED+7
SEUP	CSM+45, CSM+48, SMSUP+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D	SELSM+4~, SELSM+9*
DATA	CSM+6~, CSM+44, CSM+45, CSM+47, CSM+48, SMSUP+5~, SMSUP+10*, SMSUP+11
DIC	SELSM+4~, SELSM+5*
DIC("A"	SELSM+5*
DIC("S"	SELSM+6, SELSM+8
DIC("W"	SELSM+7*
DIC(0	SELSM+5*
DT	CSM+26*
DTOUT	SELSM+4~
DUOUT	SELSM+4~
DUZ	CSM+42, SEUP+7
FDA	CSM+6~, SMSUP+5~, STSUP+4~, SEUP+4~, ACCSUP+4~
FDA(	STSUP+6*
FDA(1	CSM+35, CSM+36, CSM+37, CSM+38, CSM+39, CSM+40
FDA(2	SMSUP+8*
FDA(3	SEUP+6, SEUP+7, SEUP+8, SEUP+9, SEUP+12, SEUP+13
FDA(68	ACCSUP+14*
I	CSM+6~, CSM+18, SEUP+4~, SEUP+13
LA760	ACCSUP~, ACCSUP+12, ACCSUP+13
LA762801	STSUP~, STSUP+5*, STSUP+6, CHKTST~, CHKTST+13, CHKTST+35
LA762801(0	CHKTST+13*, CHKTST+14, CHKTST+19, CHKTST+27, CHKTST+37
LA768	ACCSUP+4~, ACCSUP+13*, ACCSUP+14
LA7AA	ACCSUP+4~, ACCSUP+6, ACCSUP+7, ACCSUP+9, ACCSUP+10, ACCSUP+11, ACCSUP+12, ACCSUP+13, CHKTST+10~, CHKTST+16 , CHKTST+19, CHKTST+21, CHKTST+27
LA7AD	ACCSUP+4~, ACCSUP+6, ACCSUP+8, ACCSUP+9, ACCSUP+10, ACCSUP+11, ACCSUP+12, ACCSUP+13, CHKTST+10~, CHKTST+16 , CHKTST+19, CHKTST+21, CHKTST+27
LA7AN	ACCSUP+4~, ACCSUP+6, ACCSUP+10, ACCSUP+11, ACCSUP+12, ACCSUP+13, CHKTST+10~, CHKTST+16, CHKTST+19, CHKTST+21 , CHKTST+27
LA7CAD	ACCSUP+4~, ACCSUP+7*, ACCSUP+9
LA7CF	CSM+6~, CSM+16*, CSM+18, CSM+25
LA7DATA	STSUP~, STSUP+6, SEUP~, SEUP+10, SEUP+11, SEUP+13, ACCSUP~, ACCSUP+14, CHKTST+10~, CHKTST+24* , CHKTST+30, CHKTST+37, CHKTST+38
LA7DIE	CSM+6~
LA7DT	CSM+6~, CSM+26*, CSM+27
>> LA7EV	SMED+7*, SMED+11
LA7EVC	SMED~, SMED+7, SMED+8, EVNC~, EVNC+5
LA7EVN	SEUP~, SEUP+9
LA7EVNC	SMSUP~, SMSUP+10
LA7I	SMED+4~, SMED+9, SMED+10, SMED+11, SMED+12
LA7ID	SEUP~, SEUP+6
LA7IEN	CSM+6~, SMSUP+5~, SEUP+4~
LA7IEN(1	CSM+42, CSM+52, SMSUP+7*
LA7SCFG	CSM~, CSM+9, CSM+12, CSM+14, CSM+36, SELSM~
LA7SCFG(0	CSM+14*, CSM+16, CSM+38, CSM+39, CSM+40
LA7SCR	SELSM~, SELSM+8
LA7SKIP	CHKTST+10~, CHKTST+11, CHKTST+19, CHKTST+23, CHKTST+24, CHKTST+27, CHKTST+29, CHKTST+30*, CHKTST+33, CHKTST+39
LA7SM	CSM+6~, CSM+21, CSM+22, CSM+23, CSM+25, CSM+27, CSM+32, CSM+33, CSM+35, CSM+45 , CSM+48, CSM+52, SMSUP~, SMSUP+7, SMSUP+8, SMSUP+11, STSUP~, STSUP+5, SMED~, SMED+5 , SMED+6, CHKTST~, CHKTST+12, CHKTST+13, CHKTST+35
LA7SM(0	SMED+6, SMED+8, SMED+10, CHKTST+12, CHKTST+23, CHKTST+29, CHKTST+37
LA7ST	SMSUP~, SMSUP+8
LA7UID	ACCSUP~, ACCSUP+5, ACCSUP+11, CHKTST+10~, CHKTST+14*, CHKTST+15, CHKTST+38
LA7X	SMED+4~
LA7Y	SELSM+4~, SELSM+11, SELSM+12, SELSM+13, SMED+4~, SMED+9, SMED+10, SMED+12, SMED+13*, SMED+14
X	CHKSM~, CHKSM+7, CHKSM+9, CHKSM+11, CSM+6~, CSM+31, CSM+32, CSM+33, SEUP+4~, SEUP+11* , SEUP+12, ACCSUP+4~, ACCSUP+5, ACCSUP+6, SELSM+4~, EVNC+3~, EVNC+4, EVNC+5, EVNC+6, EVNC+7 , CHKTST+10~, CHKTST+15, CHKTST+16
X(0	EVNC+6*, EVNC+7
X4	CSM+6~
X4(	CSM+18*, CSM+23
X4(99	CSM+22
Y	CHKSM+11, CHKSM+12, CHKSM+13, SELSM+4~, SELSM+11, SELSM+12, EVNC+3~, EVNC+4, EVNC+5, EVNC+7 , EVNC+8*, EVNC+9, CHKTST+10~

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7SMU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 19

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: