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: BLRAG09F

Package: IHS Changes To Lab

Routine: BLRAG09F


Information

BLRAG09F ; IHS/MSC/SAT - SUPPORT FOR LABORATORY ACCESSION GUI RPCS ;

Source Information

Source file <BLRAG09F.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Automated Lab Instruments 6 (BUILDRI,CHKREQI)^LA7SM2  GETSITE^LA7SMP  (CMT,END,HED,OCMT,PTID,SH,WARN)^LA7SMP0  ($$CHKTST,$$SMED)^LA7SMU  $$RETFACID^LA7VHLU2  (AO,PRT)^LA7VQINS  
VA Fileman 4 $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  ^DIWP  
IHS Changes To Lab 2 $$DEV^BLRAG02  $$TESTNAME^BLRAGUT  
Kernel 2 $$HTE^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
Lab Service 1 $$PRAC^LRX  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 2 BLRAG09B  BLRAG09C  

Entry Points

Name Comments DBIA/ICR reference
DEV(BLRDEV) ; Print Shipping Manifest
; requires:
; LA7SCFG = Shipping Configuration pointer to file 62.9
; LA7SM = Shipping Manifest pointer to file 62.8
ASK(LA7SM) ; Ask it user wants to print manifest.
; Call with array LA7SM = ien of 62.8^.01 field of #62.8
GETSITE(LA7X,LA7Y,LA7FS,LA7TS) ; Setup variables for ordering and host sites
DQ ;

External References

Name Field # of Occurrence
$$DEV^BLRAG02 DEV+10
$$TESTNAME^BLRAGUT DQ+163
$$EXTERNAL^DILFD DQ+29
$$GET1^DIQ DEV+6, DQ+31, DQ+103, GETSITE+8, GETSITE+14
^DIR ASK+6
^DIWP DQ+108
BUILDRI^LA7SM2 DQ+42
CHKREQI^LA7SM2 DQ+38
GETSITE^LA7SMP DQ+10
CMT^LA7SMP0 DQ+110
END^LA7SMP0 DQ+166, ASK+7
HED^LA7SMP0 DQ+47, DQ+60, DQ+89, DQ+95, DQ+144, DQ+152, DQ+155, DQ+161
OCMT^LA7SMP0 DQ+111
PTID^LA7SMP0 DQ+66
SH^LA7SMP0 DQ+90, DQ+96
WARN^LA7SMP0 DQ+58, DQ+88, DQ+94, DQ+138
$$CHKTST^LA7SMU DQ+36, DQ+73
$$SMED^LA7SMU DQ+22
$$RETFACID^LA7VHLU2 GETSITE+10, GETSITE+16
AO^LA7VQINS DQ+125, DQ+128
PRT^LA7VQINS DQ+98
$$PRAC^LRX DQ+77
$$HTE^XLFDT DQ+17
$$CJ^XLFSTR DQ+48
$$REPEAT^XLFSTR DQ+146, DQ+147

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("No entries to print",IOM)
  • Line Location: DQ+48
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+55
Function Call: WRITE
  • Prompt: !,LA7LINE
  • Line Location: DQ+57
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+58
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+94
Function Call: WRITE
  • Prompt: ?(IOM-15)," Cost: $",$FN(LA7TCOST,",",2)
  • Line Location: DQ+104
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+110
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+111
Function Call: WRITE
  • Prompt: !,?32
  • Condition for execution: ($X+$L(LA7NLTN)+3)>IOM
  • Line Location: DQ+117
Function Call: WRITE
  • Prompt: " [",LA7NLTN,"]"
  • Line Location: DQ+117
Function Call: WRITE
  • Prompt: $E(LA7Y,1,LA7X)
  • Line Location: DQ+126
Function Call: WRITE
  • Prompt: !,?11,LA7X
  • Line Location: DQ+130
Function Call: WRITE
  • Prompt: !,LA7LINE,!!,"End of Shipping Manifest"
  • Line Location: DQ+134
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+137
Function Call: WRITE
  • Prompt: !!,"Number of specimens: ",LA7ITEM
  • 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)," (Cont'd)"
  • Line Location: DQ+161
Routine Call
  • DIR
  • Line Location:
    • ASK+6

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+120
^LAB(60 - [#60] DQ+100
^LAB(61 - [#61] DQ+80
^LAB(62 - [#62] DQ+83
^LAHM(62.8 - [#62.8] DEV+8, DQ+4, DQ+33, DQ+34, DQ+62
^LAHM(62.9 - [#62.9] DQ+5
^LRO(68 - [#68] DQ+68, DQ+69, DQ+70, DQ+75, DQ+76, DQ+78, DQ+79
^TMP("BLRSM" DQ+40*, DQ+46, DQ+50, DQ+51, DQ+52, DQ+53
^TMP("LA7ERR" DQ+159, DQ+160
^UTILITY($J DQ+106!, DQ+109

Label References

Name Line Occurrences
DEV ASK+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRC3 DQ+67*, DQ+68, DQ+69, DQ+70, DQ+71
>> BLRC4 DQ+68*, DQ+69, DQ+70, DQ+72
>> BLRC5 DQ+69*, DQ+70, DQ+72
>> BLRC6 DQ+70*, DQ+72
BLRDEV DEV~, DEV+10*, DEV+14, DQ+2
>> BLREF DEV+12*, DEV+13*, DEV+14*
>> BLRS3 DQ+50*, DQ+51, DQ+52, DQ+53, DQ+56, DQ+59, DQ+157*, DQ+159, DQ+160
>> BLRS4 DQ+51*, DQ+52, DQ+53, DQ+56, DQ+59, DQ+158*, DQ+159, DQ+160
>> BLRS5 DQ+52*, DQ+53, DQ+55, DQ+57, DQ+64, DQ+65, DQ+159*, DQ+160*, DQ+163
>> BLRS6 DQ+53*, DQ+61, DQ+160*, DQ+163
DIR ASK+3~
DIR("A" ASK+5*
DIR("B" ASK+5*
DIR(0 ASK+5*
DIRUT ASK+3~, ASK+6
>> DIWF DQ+107*
>> DIWL DQ+107*, DQ+109
>> DIWR DQ+107*
DTOUT ASK+3~
DUOUT ASK+3~
>> I DQ+34*, DQ+62*
IOM DQ+30, DQ+48, DQ+104, DQ+107, DQ+123, DQ+126, DQ+129, DQ+137
IOSL DQ+86, DQ+92, DQ+155, DQ+161
IOST DQ+24, DQ+27
>> LA760 DQ+6*, DQ+63*, DQ+100, DQ+103
>> LA762 DQ+82*, DQ+83
>> LA762(0 DQ+83*, DQ+84*
>> LA762801 DQ+6*, DQ+33*, DQ+34, DQ+36, DQ+38, DQ+40, DQ+61*, DQ+62, DQ+73
>> LA762801( DQ+34*, DQ+62*, DQ+105, DQ+108
>> LA762801(0 DQ+35, DQ+40, DQ+63, DQ+66
>> LA762801(5 DQ+121, DQ+122
>> LA7AA DQ+72*, DQ+75, DQ+76, DQ+78, DQ+79
>> LA7ACC DQ+75*
>> LA7AD DQ+72*, DQ+75, DQ+76, DQ+78, DQ+79
>> LA7AN DQ+72*, DQ+75, DQ+76, DQ+78, DQ+79
>> LA7CDT DQ+78*
>> LA7CHK DQ+15*, DQ+38
LA7CMT DQ+106!, DQ+109*
>> LA7DC DQ+6*, DQ+96*
>> LA7END DQ+6*
>> LA7ERR( DQ+154, DQ+156, DQ+161
>> LA7ERR("" DQ+150
>> LA7EXIT DQ+6*, DQ+50, DQ+51, DQ+52, DQ+53, DQ+54, DQ+56, DQ+64, DQ+86, DQ+92
, DQ+95, DQ+132, DQ+154, DQ+155, DQ+159, DQ+160, DQ+161
LA7FS GETSITE~, GETSITE+8*, GETSITE+9*
LA7FS(99 GETSITE+10*, GETSITE+11*
>> LA7FSITE DQ+7*, DQ+10
>> LA7I DQ+153*, DQ+154*, DQ+156, DQ+157, DQ+161
>> LA7ITEM DQ+6*, DQ+85*, DQ+145
>> LA7LINE DQ+30*, DQ+55, DQ+57, DQ+93, DQ+99, DQ+134
>> LA7NOW DQ+17*
>> LA7PAGE DQ+6*, DQ+58
>> LA7PROV DQ+77*
>> LA7SBC DEV+6*, DEV+8*, DQ+27*
>> LA7SCFG DEV+6, DQ+5*
>> LA7SCFG(0 DQ+5*, DQ+10, DQ+24, DQ+120
>> LA7SCOND DQ+44*, DQ+56, DQ+59*
>> LA7SCONT DQ+44*, DQ+56, DQ+59*
>> LA7SDT DQ+22*
>> LA7SKIP DQ+13*, DQ+36*, DQ+37, DQ+71*, DQ+73*, DQ+74, DQ+91
LA7SM DEV+8, DQ+4, DQ+22, DQ+33, DQ+34, DQ+36, DQ+38, DQ+62, DQ+73, DQ+158
, ASK~
LA7SM(0 DQ+4*, DQ+5, DQ+19, DQ+31, DQ+118
>> LA7SMR DQ+6*, DQ+24*, DQ+141, DQ+143*, DQ+151*
>> LA7SMST DQ+19*, DQ+20, DQ+29*, DQ+58, DQ+88, DQ+94, DQ+101, DQ+136
>> LA7SPEC DQ+79*, DQ+80, DQ+82
>> LA7SPEC(0 DQ+80*, DQ+81*, DQ+100
>> LA7SVIA DQ+31*
LA7TCOST DQ+102~, DQ+103*, DQ+104
LA7TS GETSITE~, GETSITE+14*, GETSITE+15*
LA7TS(99 GETSITE+16*, GETSITE+17*
>> LA7TSITE DQ+7*, DQ+10
>> LA7UID DQ+44*, DQ+55, DQ+57, DQ+60*, DQ+64, DQ+65*, DQ+67, DQ+71, DQ+98, DQ+111
, DQ+125, DQ+128
LA7X DQ+119~, DQ+120*, DQ+121, DQ+126*, DQ+129, DQ+130*, GETSITE~, GETSITE+8, GETSITE+9, GETSITE+10
, GETSITE+11, GETSITE+16
LA7Y DQ+119~, DQ+122*, DQ+123, DQ+124, DQ+126, DQ+129*, DQ+130*, GETSITE~, GETSITE+14, GETSITE+15
, GETSITE+17
LA7Z DQ+119~, DQ+129*, DQ+130
>> LRDFN DQ+66*
>> POP DEV+12, DEV+13, DEV+15
U DQ+76, DQ+78
X DQ+76*, DQ+77, DQ+108*, ASK+3~
Y ASK+3~, ASK+7
>> ZTQUEUED DQ+166
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