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	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

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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: