Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LA7SMU

Package: Automated Lab Instruments

Routine: LA7SMU


Information

LA7SMU ;VA/DALOI/JMC - Shipping Manifest Utility ;JUL 06, 2010 3:14 PM;

Source Information

Source file <LA7SMU.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 19

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All