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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Automated Lab Instruments 5 (BUILDRI,CHKREQI)^LA7SM2  GETSITE^LA7SMP  (CMT,END,HED,INIT,ITEM,KILL,PTID,SH,WARN)^LA7SMP0  ($$CHKTST,$$SELSM,$$SMED)^LA7SMU  ($$NVAF,$$RETFACID)^LA7VHLU2  
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  ($$CJ,$$LJ,$$REPEAT)^XLFSTR  
VA FileMan 5 EN^DDIOL  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  ^DIWP  
Lab Service 1 $$PRAC^LRX  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Automated Lab Instruments 6 LA7S MANIFEST PRINT  LA7SM  LA7SM2  LA7SMB  LA7SMP  LA7SMPXL  

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

External References

Name Field # of Occurrence
^%ZIS DEV+17
HOME^%ZIS DEV+19
^%ZISC DEV+24
^%ZTLOAD DEV+24
EN^DDIOL EN+4, EN+10, DEV+25
$$EXTERNAL^DILFD DQ+33
$$GET1^DIQ DEV+5, DQ+35, DQ+63, DQ+64, DQ+105, DQ+115, DQ+118, DQ+161, GETSITE+8, GETSITE+15
^DIR DEV+12, ASK+16
^DIWP DQ+111
BUILDRI^LA7SM2 DQ+44
CHKREQI^LA7SM2 DQ+42
GETSITE^LA7SMP DQ+14
CMT^LA7SMP0 DQ+113
END^LA7SMP0 EN+16, DQ+164, ASK+17
HED^LA7SMP0 DQ+52, DQ+65, DQ+93, DQ+99, DQ+141, DQ+152, DQ+155, DQ+160
INIT^LA7SMP0 EN+6
ITEM^LA7SMP0 DQ+47
KILL^LA7SMP0 EN+5, EN+7, EN+11
PTID^LA7SMP0 DQ+71
SH^LA7SMP0 DQ+94, DQ+100
WARN^LA7SMP0 DQ+61, DQ+92, DQ+98, DQ+136
$$CHKTST^LA7SMU DQ+40, DQ+76
$$SELSM^LA7SMU EN+8
$$SMED^LA7SMU DQ+26
$$NVAF^LA7VHLU2 GETSITE+10, GETSITE+17
$$RETFACID^LA7VHLU2 GETSITE+11, GETSITE+18
$$PRAC^LRX DQ+80
$$HTE^XLFDT DQ+21
$$CJ^XLFSTR DQ+53
$$LJ^XLFSTR DQ+143, DQ+145
$$REPEAT^XLFSTR DQ+144, DQ+146, DQ+147
$$GET^XPAR ASK+12

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+17
Routine Call
  • %ZIS
  • Line Location:
    • DEV+19
Routine Call
  • DIR
  • Line Location:
    • DEV+12
    • ASK+16

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DQ+122
^LAB(60 - [#60] DQ+102
^LAB(61 - [#61] DQ+84
^LAB(62 - [#62] DQ+87
^LAHM(62.8 - [#62.8] DEV+8, DEV+9, DQ+9, DQ+37, DQ+38, DQ+67, ASK+10
^LAHM(62.9 - [#62.9] DQ+10
^LRO(68 - [#68] DQ+72, DQ+78, DQ+79, DQ+81, DQ+82, DQ+83
^TMP("LA7ITEM" DQ+70
^TMP("LA7SM" DQ+43*, DQ+51
^UTILITY($J DQ+109!, DQ+112

Label References

Name Line Occurrences
DEV EN+15, ASK+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+17*
DIR DEV+10~, ASK+3~
DIR("A" DEV+11*, ASK+5*
DIR("B" DEV+11*, ASK+7*, ASK+13*, ASK+14*
DIR(0 DEV+11*, ASK+5*
DIRUT DEV+10~, DEV+13, ASK+3~, ASK+16
DIWF DQ+108~, DQ+110*
DIWL DQ+108~, DQ+110*, DQ+112
DIWR DQ+108~, DQ+110*
DTOUT DEV+10~, ASK+3~
DUOUT DEV+10~, ASK+3~
I DQ+4~, DQ+38*, DQ+67*, DQ+143*
IO DQ+2
>> IO("Q" DEV+21
IOM DQ+34, DQ+53, DQ+106, DQ+110, DQ+119, DQ+125, DQ+126, DQ+127, DQ+135
IOSL DQ+90, DQ+96, DQ+155, DQ+160
IOST DQ+28, DQ+31
LA760 DQ+4~, DQ+11*, DQ+68*, DQ+102, DQ+105, DQ+115, DQ+118
LA762 DQ+4~, DQ+86*, DQ+87
LA762(0 DQ+87*, DQ+88*
LA762801 DQ+4~, DQ+11*, DQ+37*, DQ+38, DQ+40, DQ+42, DQ+43, DQ+66*, DQ+67, DQ+70
DQ+76
LA762801( DQ+38*, DQ+67*, DQ+107, DQ+111
LA762801(0 DQ+39, DQ+43, DQ+68, DQ+71
LA762801(5 DQ+123, DQ+124
LA7629 ASK+9~, ASK+10*, ASK+11, ASK+12
LA7AA DQ+4~, DQ+75*, DQ+78, DQ+79, DQ+81, DQ+82, DQ+83
LA7ACC DQ+4~, DQ+78*
LA7AD DQ+4~, DQ+75*, DQ+78, DQ+79, DQ+81, DQ+82, DQ+83
LA7AN DQ+4~, DQ+75*, DQ+78, DQ+79, DQ+81, DQ+82, DQ+83
LA7CDT DQ+4~, DQ+81*, DQ+82*
LA7CHK EN+2~, EN+13*, DQ+19*, DQ+42
LA7CMT DQ+108~, DQ+112*
LA7DC DQ+4~, DQ+11*, DQ+100*
LA7END DQ+4~, DQ+11*
LA7ERR DQ+4~
LA7ERR( DQ+154, DQ+156, DQ+157, DQ+160
LA7ERR("" DQ+150
LA7EXIT EN+2~, DEV+13*, DEV+15, DEV+20*, DEV+26*, DQ+4~, DQ+11*, DQ+56, DQ+57, DQ+59
DQ+69, DQ+90, DQ+96, DQ+99, DQ+130, DQ+154, DQ+155, DQ+159, DQ+160
LA7FS GETSITE~, GETSITE+8*, GETSITE+9*
LA7FS("NVAF" GETSITE+10*
LA7FS(99 GETSITE+11*, GETSITE+12*
LA7FSITE DQ+4~, DQ+14
LA7I DQ+5~, DQ+153*, DQ+154*, DQ+156, DQ+157, DQ+159, DQ+160
LA7ITEM DQ+5~, DQ+11*, DQ+89*, DQ+145
LA7ITEM( DQ+89*, DQ+143
LA7ITMID DQ+5~, DQ+49*, DQ+70*
LA7LINE DQ+5~, DQ+34*, DQ+58, DQ+60, DQ+97, DQ+101, DQ+132
LA7NLT DQ+5~, DQ+115*, DQ+116, DQ+118
LA7NLTN DQ+5~, DQ+117*, DQ+118*, DQ+119
LA7NOW DQ+5~, DQ+21*
LA7PAGE EN+2~, DQ+11*, DQ+61
LA7PROV DQ+5~, DQ+80*
LA7QUIT EN+2~, EN+7, DQ+5~
LA7ROOT DQ+5~, DQ+55*, DQ+56*, DQ+58, DQ+59, DQ+60, DQ+62, DQ+66, DQ+69, DQ+70
DQ+158*, DQ+159*, DQ+161
LA7SBC EN+2~, DEV+5*, DEV+8*, DEV+9, DEV+14*, DQ+31*
LA7SCFG EN+2~, EN+8, DEV+5, DQ+6~, DQ+10*
LA7SCFG(0 DQ+10*, DQ+14, DQ+28, DQ+122
LA7SCOND DQ+6~, DQ+49*, DQ+59, DQ+62*, DQ+63
LA7SCOND(0 DQ+49*, DQ+63*, DQ+89
LA7SCONT DQ+6~, DQ+49*, DQ+59, DQ+62*, DQ+64
LA7SCONT(0 DQ+49*, DQ+64*
LA7SDT DQ+6~, DQ+26*
LA7SKIP DQ+6~, DQ+17*, DQ+40*, DQ+41, DQ+73*, DQ+74*, DQ+76*, DQ+77, DQ+95
LA7SM EN+2~, EN+8*, EN+9, EN+10, DEV+8, DEV+9, DQ+9, DQ+26, DQ+37, DQ+38
DQ+40, DQ+42, DQ+67, DQ+76, DQ+159, ASK~, ASK+8, ASK+10
LA7SM(0 DQ+9*, DQ+10, DQ+23, DQ+35, DQ+120
LA7SMR DQ+6~, DQ+11*, DQ+28*, DQ+139, DQ+140*, DQ+151*
LA7SMST DQ+6~, DQ+23*, DQ+24, DQ+33*, DQ+61, DQ+92, DQ+98, DQ+103, DQ+134
LA7SPEC DQ+6~, DQ+83*, DQ+84, DQ+86
LA7SPEC(0 DQ+84*, DQ+85*, DQ+102
LA7SVIA DQ+6~, DQ+35*
LA7TCOST DQ+104~, DQ+105*, DQ+106
LA7TS GETSITE~, GETSITE+15*, GETSITE+16*
LA7TS("NVAF" GETSITE+17*
LA7TS(99 GETSITE+18*, GETSITE+19*
LA7TSITE DQ+6~, DQ+14
LA7UID DQ+6~, DQ+49*, DQ+58, DQ+60, DQ+65*, DQ+69, DQ+70*, DQ+72, DQ+74
LA7X DQ+121~, DQ+122*, DQ+123, DQ+126*, DQ+127, DQ+128*, GETSITE~, GETSITE+8, GETSITE+9, GETSITE+10
, GETSITE+11, GETSITE+12
LA7Y DQ+121~, DQ+124*, DQ+125, DQ+126, DQ+127*, DQ+128*, GETSITE~, GETSITE+15, GETSITE+16, GETSITE+17
, GETSITE+18, GETSITE+19
LA7Z DQ+121~, DQ+127*, DQ+128
LRDFN DQ+7~, DQ+71*
>> POP DEV+18
U DQ+79, DQ+81, DQ+82
X DEV+10~, DQ+72*, DQ+73, DQ+74, DQ+75, DQ+79*, DQ+80, DQ+111*, ASK+3~, ASK+9~
, ASK+12*, ASK+13
Y DEV+10~, DEV+14, ASK+3~, ASK+17
ZTDESC DEV+22~, DEV+23*
ZTDTH DEV+22~
ZTIO DEV+22~
>> ZTQUEUED DQ+164
ZTRTN DEV+22~, DEV+23*
ZTSAVE DEV+22~
ZTSAVE("LA7*" DEV+23*
ZTSK DEV+22~, DEV+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All