LA7SMU ;DALOI/JMC - Shipping Manifest Utility ; 26 Oct 2014 9:51 PM
Source file <LA7SMU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| 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) |
|
| 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 |
|
| 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 |
|
| 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 |
|
| 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 |
|
| 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. |
|
| 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 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^LAHM(62.8 - [#62.8] | Classic Fileman Calls, RECALL^DILFD |
