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 ;VA/DALOI/JMC - Shipping Manifest Print ; 22-Oct-2013 09:22 ; MAW

Source Information

Source file <LA7SMP.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Automated Lab Instruments 6 (BUILDRI,CHKREQI)^LA7SM2  GETSITE^LA7SMP  (CMT,END,HED,INIT,KILL,OCMT,PTID,SH,WARN)^LA7SMP0  ($$CHKTST,$$SELSM,$$SMED)^LA7SMU  $$RETFACID^LA7VHLU2  (AO,PRT)^LA7VQINS  
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA Fileman 5 EN^DDIOL  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  ^DIWP  
IHS Changes To Lab 1 ($$ASKCOP,$$GETCOP)^BLRRLEVN  
Lab Service 1 $$PRAC^LRX  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Automated Lab Instruments 6 LA7S MANIFEST PRINT  LA7SM  LA7SM2  LA7SMB  LA7SMP  LA7SMPXL  
IHS Changes To Lab 1 BLRAG09F  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEV+17
HOME^%ZIS DEV+19
^%ZISC DEV+24
^%ZTLOAD DEV+24
$$ASKCOP^BLRRLEVN DEV+16
$$GETCOP^BLRRLEVN DEV+15
EN^DDIOL EN+1, EN+7, DEV+25
$$EXTERNAL^DILFD DQ+28
$$GET1^DIQ DEV+3, DQ+30, DQ+97, DQ+154, GETSITE+8, GETSITE+14
^DIR DEV+9, ASK+6
^DIWP DQ+102
BUILDRI^LA7SM2 DQ+41
CHKREQI^LA7SM2 DQ+37
GETSITE^LA7SMP DQ+9
CMT^LA7SMP0 DQ+104
END^LA7SMP0 EN+17, DQ+157, ASK+7
HED^LA7SMP0 DQ+46, DQ+57, DQ+83, DQ+89, DQ+138, DQ+146, DQ+149, DQ+153
INIT^LA7SMP0 EN+3
KILL^LA7SMP0 EN+2, EN+4, EN+8
OCMT^LA7SMP0 DQ+105
PTID^LA7SMP0 DQ+63
SH^LA7SMP0 DQ+84, DQ+90
WARN^LA7SMP0 DQ+55, DQ+82, DQ+88, DQ+132
$$CHKTST^LA7SMU DQ+35, DQ+67
$$SELSM^LA7SMU EN+5
$$SMED^LA7SMU DQ+21
$$RETFACID^LA7VHLU2 GETSITE+10, GETSITE+16
AO^LA7VQINS DQ+119, DQ+122
PRT^LA7VQINS DQ+92
$$PRAC^LRX DQ+71
$$HTE^XLFDT DQ+16
$$CJ^XLFSTR DQ+47
$$REPEAT^XLFSTR DQ+140, DQ+141

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("No entries to print",IOM)
  • Line Location: DQ+47
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+52
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+54
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+55
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+81
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+87
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+88
Function Call: WRITE
  • Prompt: !,?11,$E(LA7LINE,1,41)
  • Line Location: DQ+93
Function Call: WRITE
  • Prompt: !,?11,$P(^LAB(60,LA760,0),"^",1),?43,$P(LA7SPEC(0),"^")
  • Line Location: DQ+94
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-15)
  • Line Location: DQ+98
Function Call: WRITE
  • Prompt: ?(IOM-15)," Cost: $",$FN(LA7TCOST,",",2)
  • Line Location: DQ+98
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+104
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+104
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+105
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+105
Function Call: WRITE
  • Prompt: !,?32
  • Condition for execution: ($X+$L(LA7NLTN)+3)>IOM
  • Line Location: DQ+111
Function Call: WRITE
  • Prompt: " [",LA7NLTN,"]"
  • Line Location: DQ+111
Function Call: WRITE
  • Prompt: !,?11,LA7X,$S($L($P(LA762801(5),"^")):$P(LA762801(5),"^"),1:"*** None specified ***")," "
  • Line Location: DQ+115
Function Call: WRITE
  • Prompt: $E(LA7Y,1,LA7X)
  • Line Location: DQ+120
Function Call: WRITE
  • Prompt: !,?11,LA7X
  • Line Location: DQ+124
Function Call: WRITE
  • Prompt: !,LA7LINE,!!,"End of Shipping Manifest"
  • Line Location: DQ+128
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+131
Function Call: WRITE
  • Prompt: !!,"Number of specimens: ",LA7ITEM
  • Line Location: DQ+139
Function Call: WRITE
  • Prompt: !!,"Receipted by: ",$$REPEAT^XLFSTR("_",40)
  • Line Location: DQ+140
Function Call: WRITE
  • Prompt: !!," Date/time: ",$$REPEAT^XLFSTR("_",20)
  • Line Location: DQ+141
Function Call: WRITE
  • Prompt: LA7ERR(LA7I)
  • Line Location: DQ+150
Function Call: WRITE
  • Prompt: LA7ERR(LA7I)," (Cont'd)"
  • Line Location: DQ+153
Function Call: WRITE
  • Prompt: !,?10,"UID: ",$QS(LA7ROOT,5)," Test: ",$$GET1^DIQ(60,$QS(LA7ROOT,6)_",",.01)
  • Line Location: DQ+154
Function Call: WRITE
  • Prompt: !!
  • Line Location: DQ+155
Routine Call
  • %ZIS
  • Line Location:
    • DEV+19
Routine Call
  • DIR
  • Line Location:
    • DEV+9
    • ASK+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+17

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.92 - [#62.92] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DQ+114
^LAB(60 - [#60] DQ+94
^LAB(61 - [#61] DQ+74
^LAB(62 - [#62] DQ+77
^LAHM(62.8 - [#62.8] DEV+5, DEV+6, DQ+4, DQ+32, DQ+33, DQ+59
^LAHM(62.9 - [#62.9] DQ+5
^LRO(68 - [#68] DQ+64, DQ+69, DQ+70, DQ+72, DQ+73
^TMP("LA7SM" DQ+39*, DQ+45
^UTILITY($J DQ+100!, DQ+103

Label References

Name Line Occurrences
DEV EN+11, ASK+7
DQ EN+15, ASK+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+17*
>> COP EN+14, DEV+16*
>> COPI DEV+15*, DEV+16
DIR DEV+7~, ASK+3~
DIR("A" DEV+8*, ASK+5*
DIR("B" DEV+8*, ASK+5*
DIR(0 DEV+8*, ASK+5*
DIRUT DEV+7~, DEV+10, ASK+3~, ASK+6
>> DIWF DQ+101*
>> DIWL DQ+101*, DQ+103
>> DIWR DQ+101*
DTOUT DEV+7~, ASK+3~
DUOUT DEV+7~, ASK+3~
DUZ(2 DEV+15
>> I DQ+33*, DQ+59*
IO DQ+2
IO("Q" DEV+21
IOM DQ+29, DQ+47, DQ+98, DQ+101, DQ+117, DQ+120, DQ+123, DQ+131
IOSL DQ+80, DQ+86, DQ+149, DQ+153
IOST DQ+23, DQ+26
L EN+13~, EN+14*
>> LA760 DQ+6*, DQ+60*, DQ+94, DQ+97
>> LA762 DQ+76*, DQ+77
>> LA762(0 DQ+77*, DQ+78*
>> LA762801 DQ+6*, DQ+32*, DQ+33, DQ+35, DQ+37, DQ+39, DQ+58*, DQ+59, DQ+67
>> LA762801( DQ+33*, DQ+59*, DQ+99, DQ+102
>> LA762801(0 DQ+34, DQ+39, DQ+60, DQ+63
>> LA762801(5 DQ+115, DQ+116
>> LA7AA DQ+66*, DQ+69, DQ+70, DQ+72, DQ+73
>> LA7ACC DQ+69*
>> LA7AD DQ+66*, DQ+69, DQ+70, DQ+72, DQ+73
>> LA7AN DQ+66*, DQ+69, DQ+70, DQ+72, DQ+73
>> LA7CDT DQ+72*
>> LA7CHK EN+9*, DQ+14*, DQ+37
LA7CMT DQ+100!, DQ+103*
>> LA7DC DQ+6*, DQ+90*
>> LA7END DQ+6*
>> LA7ERR( DQ+148, DQ+150, DQ+153
>> LA7ERR("" DQ+144
>> LA7EXIT DEV+10*, DEV+12, DEV+20*, DEV+26*, DQ+6*, DQ+50, DQ+51, DQ+53, DQ+61, DQ+80
, DQ+86, DQ+89, DQ+126, DQ+148, DQ+149, DQ+152, DQ+153
LA7FS GETSITE~, GETSITE+8*, GETSITE+9*
LA7FS(99 GETSITE+10*, GETSITE+11*
>> LA7FSITE DQ+9
>> LA7I DQ+147*, DQ+148*, DQ+150, DQ+152, DQ+153
>> LA7ITEM DQ+6*, DQ+79*, DQ+139
>> LA7LINE DQ+29*, DQ+52, DQ+54, DQ+87, DQ+93, DQ+128
>> LA7NOW DQ+16*
>> LA7PAGE DQ+6*, DQ+55
>> LA7PROV DQ+71*
>> LA7QUIT EN+4
>> LA7ROOT DQ+49*, DQ+50*, DQ+52, DQ+53, DQ+54, DQ+56, DQ+58, DQ+61, DQ+62, DQ+151*
, DQ+152*, DQ+154
>> LA7SBC DEV+3*, DEV+5*, DEV+6, DEV+11*, DQ+26*
>> LA7SCFG EN+5, DEV+3, DQ+5*
>> LA7SCFG(0 DQ+5*, DQ+9, DQ+23, DQ+114
>> LA7SCOND DQ+43*, DQ+53, DQ+56*
>> LA7SCONT DQ+43*, DQ+53, DQ+56*
>> LA7SDT DQ+21*
>> LA7SKIP DQ+12*, DQ+35*, DQ+36, DQ+65*, DQ+67*, DQ+68, DQ+85
LA7SM EN+5*, EN+6, EN+7, DEV+5, DEV+6, DQ+4, DQ+21, DQ+32, DQ+33, DQ+35
, DQ+37, DQ+59, DQ+67, DQ+152, ASK~
LA7SM(0 DQ+4*, DQ+5, DQ+18, DQ+30, DQ+112
>> LA7SMR DQ+6*, DQ+23*, DQ+135, DQ+137*, DQ+145*
>> LA7SMST DQ+18*, DQ+19, DQ+28*, DQ+55, DQ+82, DQ+88, DQ+95, DQ+130
>> LA7SPEC DQ+73*, DQ+74, DQ+76
>> LA7SPEC(0 DQ+74*, DQ+75*, DQ+94
>> LA7SVIA DQ+30*
LA7TCOST DQ+96~, DQ+97*, DQ+98
LA7TS GETSITE~, GETSITE+14*, GETSITE+15*
LA7TS(99 GETSITE+16*, GETSITE+17*
>> LA7TSITE DQ+9
>> LA7UID DQ+43*, DQ+52, DQ+54, DQ+57*, DQ+61, DQ+62*, DQ+64, DQ+65, DQ+92, DQ+105
, DQ+119, DQ+122
LA7X DQ+113~, DQ+114*, DQ+115, DQ+120*, DQ+123, DQ+124*, GETSITE~, GETSITE+8, GETSITE+9, GETSITE+10
, GETSITE+11, GETSITE+16
LA7Y DQ+113~, DQ+116*, DQ+117, DQ+118, DQ+120, DQ+123*, DQ+124*, GETSITE~, GETSITE+14, GETSITE+15
, GETSITE+17
LA7Z DQ+113~, DQ+123*, DQ+124
>> LRDFN DQ+63*
>> POP DEV+18
U DQ+70, DQ+72
X DEV+7~, DQ+64*, DQ+65, DQ+66, DQ+70*, DQ+71, DQ+102*, ASK+3~
Y DEV+7~, DEV+11, ASK+3~, ASK+7
>> ZTDESC DEV+23*
ZTDTH DEV+22~
ZTIO DEV+22~
>> ZTQUEUED DQ+157
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