Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LA7SMP

Package: Automated Lab Instruments

Routine: LA7SMP


Information

LA7SMP ;DALOI/JMC - Shipping Manifest Print ;03/26/10 16:26

Source Information

Source file <LA7SMP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point to print a shipping manifest
DEV ; Alternate entry point when user has already selected a manifest.
DQ ;
GETSITE(LA7X,LA7Y,LA7FS,LA7TS) ; Setup variables for ordering and host sites
ASK(LA7SM) ; Ask it user wants to print manifest.
; Call with array LA7SM = ien of 62.8^.01 field of #62.8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("No entries to print",IOM)
  • Line Location: DQ+53
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+58
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+60
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+61
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+91
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+97
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+98
Function Call: WRITE
  • Prompt: !,?11,$E(LA7LINE,1,41)
  • Line Location: DQ+101
Function Call: WRITE
  • Prompt: !,?11,$P(^LAB(60,LA760,0),"^",1),?43,$P(LA7SPEC(0),"^")
  • Line Location: DQ+102
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-15)
  • Line Location: DQ+106
Function Call: WRITE
  • Prompt: ?(IOM-15)," Cost: $",$FN(LA7TCOST,",",2)
  • Line Location: DQ+106
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+113
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+113
Function Call: WRITE
  • Prompt: !,?13,"VA NLT Code [Name]: "
  • Line Location: DQ+114
Function Call: WRITE
  • Prompt: !,?32
  • Condition for execution: ($X+$L(LA7NLTN)+3)>IOM
  • Line Location: DQ+119
Function Call: WRITE
  • Prompt: " [",LA7NLTN,"]"
  • Line Location: DQ+119
Function Call: WRITE
  • Prompt: LA7Y
  • Line Location: DQ+125
Function Call: WRITE
  • Prompt: $E(LA7Y,1,LA7X)
  • Line Location: DQ+126
Function Call: WRITE
  • Prompt: !,?11,LA7X
  • Line Location: DQ+128
Function Call: WRITE
  • Prompt: !,LA7LINE,!!,"End of Shipping Manifest"
  • Line Location: DQ+132
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+135
Function Call: WRITE
  • Prompt: !!,"Shipping condition and specimens shipped"
  • Line Location: DQ+142
Function Call: WRITE
  • Prompt: !,?2,$$LJ^XLFSTR(I,30,"."),": ",$J(LA7ITEM(I),4,0)," specimens"
  • Line Location: DQ+143
Function Call: WRITE
  • Prompt: !,?34,$$REPEAT^XLFSTR("-",14)
  • Line Location: DQ+144
Function Call: WRITE
  • Prompt: !,?2,$$LJ^XLFSTR("Total number of specimens",30,"."),": ",$J(LA7ITEM,4,0)
  • Line Location: DQ+145
Function Call: WRITE
  • Prompt: !!,"Receipted by: ",$$REPEAT^XLFSTR("_",40)
  • Line Location: DQ+146
Function Call: WRITE
  • Prompt: !!," Date/time: ",$$REPEAT^XLFSTR("_",20)
  • Line Location: DQ+147
Function Call: WRITE
  • Prompt: LA7ERR(LA7I)
  • Line Location: DQ+156
Function Call: WRITE
  • Prompt: !,?5,LA7ERR(LA7I,.1)
  • Line Location: DQ+157
Function Call: WRITE
  • Prompt: LA7ERR(LA7I)," (Cont'd)"
  • Line Location: DQ+160
Function Call: WRITE
  • Prompt: !,?10,"UID: ",$QS(LA7ROOT,5)," Test: ",$$GET1^DIQ(60,$QS(LA7ROOT,6)_",",.01)
  • Line Location: DQ+161
Function Call: WRITE
  • Prompt: !!
  • Line Location: DQ+162

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
^LAHM(62.8 - [#62.8] EXTERNAL^DILFD
^LAHM(62.9 - [#62.9] GET1^DIQ
^LAHM(62.91 - [#62.91] GET1^DIQ
^LAHM(62.92 - [#62.92] GET1^DIQ
^LAHM(62.93 - [#62.93] GET1^DIQ
^LAM - [#64] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call