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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRWLST12

Package: Lab Service

Routine: LRWLST12


Information

LRWLST12 ;DALOI/STAFF - ACCESSION SETUP ;8/19/2013

Source Information

Source file <LRWLST12.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 $$FIND1^DIC  (,FILE,UPDATE,WP)^DIE  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Kernel 2 ($$LGR,$$OS,$$VERSION,GETENV)^%ZOSV  $$HTFM^XLFDT  
Lab Service 2 STUFI^LRCAPV1  $$NLT^LRVER1  
Automated Lab Instruments 1 SET^LA7VMSG  
MailMan 1 SENDMSG^XMXAPI  

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
Lab Service 6 LRAPLG1  LRCONJAM  LRTSTSET  LRUWLF  LRWLST1  LRWLST11  

Entry Points

Name Comments DBIA/ICR reference
CAP ; from LRWLST11,LRTSTJAM
CAP1 ;
C3 ;
VMSG ;
ORUT2 ; Update ordered test in file #69.6
; Called by LRWLST11
PROVCPY ; Copy remote ordering provider from file #69.6 to ordered test multiple (#.35)
; Called from LRWLST11
APMOVE ; Copy anatomic pathology data from file #69.6 to corresponding fields in file #63 for this accession.
; Called from LRWLST11
MAILALRT(LRRNAME,LRFMERR) ;
; Send mail message alert when FileMan DBS errors returned
; Inputs
; LRRNAME: Routine name (TAG~RTN)
; LRFMERR:<byref><opt> FileMan error local array
CYWKLD(LR61NAME,LR61,LR62,LRAA) ;

External References

Name Field # of Occurrence
$$LGR^%ZOSV MAILALRT+18
$$OS^%ZOSV MAILALRT+20
$$VERSION^%ZOSV MAILALRT+19
GETENV^%ZOSV MAILALRT+21
$$FIND1^DIC ORUT2+8
^DIE ORUT2+29
FILE^DIE ORUT2+16, ORUT2+43, PROVCPY+15, PROVCPY+24
UPDATE^DIE APMOVE+18, APMOVE+33
WP^DIE APMOVE+43
CLEAN^DILF ORUT2+17, ORUT2+44, PROVCPY+27, APMOVE+45
$$GET1^DIQ ORUT2+34, ORUT2+39, APMOVE+26, CYWKLD+13, CYWKLD+14
^DIR CYWKLD+18
SET^LA7VMSG VMSG+8
STUFI^LRCAPV1 CAP1+1
$$NLT^LRVER1 ORUT2+3
$$HTFM^XLFDT C3+2
SENDMSG^XMXAPI MAILALRT+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CYWKLD+9
Function Call: WRITE
  • Prompt: !!,"CY Workload Profile For:"
  • Line Location: CYWKLD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CYWKLD+11
Function Call: WRITE
  • Prompt: !," SPECIMEN: ",LR61NAME
  • Line Location: CYWKLD+12
Function Call: WRITE
  • Prompt: !," SPECIMEN TOPOGRAPHY: ",$$GET1^DIQ(61,LR61_",",.01)
  • Line Location: CYWKLD+13
Function Call: WRITE
  • Prompt: !," COLLECTION SAMPLE: ",$$GET1^DIQ(62,LR62_",",.01)
  • Line Location: CYWKLD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: CYWKLD+15
Routine Call
  • DIC
  • Line Location:
    • ORUT2+8
Routine Call
  • DIE
  • Line Location:
    • ORUT2+29
Routine Call
  • DIE
  • Line Location:
    • ORUT2+16
    • ORUT2+43
    • PROVCPY+15
    • PROVCPY+24
Routine Call
  • DIE
  • Line Location:
    • APMOVE+18
    • APMOVE+33
Routine Call
  • DIE
  • Line Location:
    • APMOVE+43
Routine Call
  • DIR
  • Line Location:
    • CYWKLD+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] GET1^DIQ
^LAB(62 - [#62] GET1^DIQ
^LAB(64.061 - [#64.061] FIND1^DIC,  GET1^DIQ
^LRO(69.6 - [#69.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] CAP+11
^LAB(62 - [#62] CAP+14
^LAB(62.05 - [#62.05] ORUT2+25
^LAB(69.9 - [#69.9] CYWKLD+6
^LAM - [#64] ORUT2+4
^LAM("E" ORUT2+4
^LR - [#63] PROVCPY+7, PROVCPY+8
^LRO(68 - [#68] CAP+2, CAP+3, CAP+4, CAP+5, CAP+7, CAP+9, CAP+12, CAP1+3, CAP1+4, C3+1
, C3+3*, MAILALRT+8, CYWKLD+6
^LRO(69.6 - [#69.6] VMSG+3, VMSG+4*, VMSG+7, ORUT2+6, ORUT2+10, ORUT2+11, ORUT2+21, ORUT2+22, ORUT2+33, ORUT2+37
, ORUT2+38, PROVCPY+9, PROVCPY+11, APMOVE+8, APMOVE+10, APMOVE+22, APMOVE+24, APMOVE+39, APMOVE+40, APMOVE+41

Label References

Name Line Occurrences
$$CYWKLD APMOVE+16, APMOVE+31
CAP1 CAP+11, CAP+14

Naked Globals

Name Field # of Occurrence
^( CAP+5*, CAP+11, CAP+14
^(0 CAP+3*, CAP+4*, CAP+11, CAP+14, CAP1+3*, CAP1+4*, VMSG+7*, ORUT2+22*, ORUT2+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C0 CAP+16!, CAP1+4*
C3 CAP+16!
C4 CAP+16!, CAP1+4*
DA ORUT2+23~, ORUT2+24*, CYWKLD+2~
DIC ORUT2+23~, ORUT2+26*
DIC(0 ORUT2+26*
DIE ORUT2+23~, ORUT2+26*
DIR CYWKLD+2~
DIR(0 CYWKLD+17*
>> DIRUT CYWKLD+19
DLAYGO ORUT2+23~, ORUT2+24*
DR ORUT2+23~, ORUT2+27*
DR(1 ORUT2+27*
DR(2 ORUT2+28*
DUZ MAILALRT+27
DUZ(2 C3+3
FDA ORUT2+2~, PROVCPY+2~, APMOVE+4~
FDA(1 ORUT2+12*, ORUT2+13*, ORUT2+14*, ORUT2+15*, PROVCPY+14*, PROVCPY+16!, APMOVE+12*, APMOVE+13*, APMOVE+14*, APMOVE+17*
, APMOVE+18, APMOVE+19!
FDA(2 PROVCPY+23*, PROVCPY+25!, APMOVE+27*, APMOVE+28*, APMOVE+29*, APMOVE+32*, APMOVE+33, APMOVE+34!
FDA(3 ORUT2+42*
J MAILALRT+6~, MAILALRT+14*, MAILALRT+15, MAILALRT+16, MAILALRT+17*
LA7V VMSG+1~, VMSG+2*
LR61 CYWKLD~, CYWKLD+13
LR61NAME CYWKLD~, CYWKLD+12
LR62 CYWKLD~, CYWKLD+14
LR68 MAILALRT+6~, MAILALRT+8*
>> LR696 ORUT2+37, ORUT2+38, PROVCPY+9, PROVCPY+11, APMOVE+8, APMOVE+10, APMOVE+22, APMOVE+24, APMOVE+39, APMOVE+40
, APMOVE+41
>> LR696IEN VMSG+3, VMSG+4, VMSG+7, ORUT2+4, ORUT2+6, ORUT2+10, ORUT2+11, ORUT2+12, ORUT2+13, ORUT2+14
, ORUT2+15, ORUT2+21, ORUT2+22, ORUT2+24, ORUT2+33, ORUT2+42
LRAA CAP+2, CAP+3, CAP+4, CAP+5, CAP+7, CAP+9, CAP+12, CAP+14, CAP1+3, CAP1+4
, C3+1, C3+3, APMOVE+16, APMOVE+31, MAILALRT+8, CYWKLD~, CYWKLD+6
>> LRAD CAP+2, CAP+3, CAP+4, CAP+5, CAP+7, CAP1+3, CAP1+4, C3+1, C3+3, MAILALRT+8
>> LRAN CAP+2, CAP+3, CAP+4, CAP+5, CAP+7, CAP1+3, CAP1+4, C3+1, C3+3, MAILALRT+8
LRCAPA CYWKLD+2~, CYWKLD+6*, CYWKLD+7
LRCI CAP+10*, CAP+11*, CAP+13*, CAP+14*, CAP+16!, CAP1+4, C3+1, C3+3
LRCNT CAP+1~, CAP+11*, CAP+14*, CAP+16!, C3+3, VMSG+4*, VMSG+5*, VMSG+6, MAILALRT+6~, MAILALRT+12*
, MAILALRT+16*, MAILALRT+17*, MAILALRT+18*, MAILALRT+19*, MAILALRT+20*, MAILALRT+22*
LRCWT CAP+16!
LRCYWKLD APMOVE+9~, APMOVE+16*, APMOVE+17, APMOVE+23~, APMOVE+31*, APMOVE+32, CYWKLD+2~, CYWKLD+4*, CYWKLD+7, CYWKLD+19
, CYWKLD+20*, CYWKLD+22
>> LRDFN VMSG+8, PROVCPY+7, PROVCPY+8, PROVCPY+14, PROVCPY+23, APMOVE+12, APMOVE+13, APMOVE+14, APMOVE+17, APMOVE+27
, APMOVE+28, APMOVE+29, APMOVE+32, APMOVE+43
LRDIE ORUT2+2~, PROVCPY+2~, APMOVE+4~
LRDIE(1 PROVCPY+16!, APMOVE+19!
LRDIE(2 PROVCPY+25!, APMOVE+34!
LRFILE PROVCPY+2~, PROVCPY+4*, PROVCPY+5, PROVCPY+14, PROVCPY+21*, PROVCPY+22, PROVCPY+23, APMOVE+4~, APMOVE+5*, APMOVE+6
, APMOVE+12, APMOVE+13, APMOVE+14, APMOVE+17, APMOVE+27, APMOVE+28, APMOVE+29, APMOVE+32, APMOVE+38*, APMOVE+43
LRFMERR MAILALRT~
LRI ORUT2+2~, ORUT2+11*, ORUT2+12, ORUT2+13, ORUT2+14, ORUT2+15, ORUT2+36*, ORUT2+37*, ORUT2+38, PROVCPY+2~
, PROVCPY+6*, PROVCPY+7*, PROVCPY+8, PROVCPY+14, APMOVE+4~, APMOVE+7*, APMOVE+8*, APMOVE+10, APMOVE+38*, APMOVE+39*
, APMOVE+40, APMOVE+41, APMOVE+42*
>> LRIDT VMSG+8, PROVCPY+7, PROVCPY+8, PROVCPY+14, PROVCPY+23, APMOVE+12, APMOVE+13, APMOVE+14, APMOVE+17, APMOVE+27
, APMOVE+28, APMOVE+29, APMOVE+32, APMOVE+43
LRMTXT MAILALRT+6~
LRMTXT( MAILALRT+16*, MAILALRT+17*, MAILALRT+18*, MAILALRT+19*, MAILALRT+20*, MAILALRT+22*
LRMTXT(1 MAILALRT+10*
LRMTXT(2 MAILALRT+11*
LRMTXT(3 MAILALRT+12*
LRNLT ORUT2+2~, ORUT2+3*, ORUT2+4, ORUT2+10, ORUT2+11, ORUT2+21, ORUT2+28
>> LRNT C3+2*, C3+3, VMSG+7, ORUT2+13, ORUT2+28
>> LRODT VMSG+8
LROK ORUT2+2~, ORUT2+33*, ORUT2+37, ORUT2+39*, ORUT2+40
>> LRORU3 VMSG+8
>> LROT( VMSG+5, VMSG+6
>> LRPARAM CAP+9, CAP+12
LRPROV PROVCPY+2~, PROVCPY+6*, PROVCPY+13*, PROVCPY+14, PROVCPY+20, PROVCPY+23
LRRNAME MAILALRT~, MAILALRT+24, MAILALRT+25
>> LRSAMP CAP+7*, CAP+14, VMSG+5, VMSG+6
>> LRSPEC VMSG+5, VMSG+6
>> LRSS VMSG+8, PROVCPY+4, PROVCPY+7, PROVCPY+8, PROVCPY+20, PROVCPY+21, APMOVE+5, APMOVE+15, APMOVE+30, APMOVE+38
, APMOVE+42
LRSTATUS ORUT2+2~, ORUT2+33*, ORUT2+34*, ORUT2+35, ORUT2+41
LRT CAP1+1*, CAP1+2!
>> LRTS CAP+3, CAP+4, CAP+5, CAP+11, CAP+14, CAP1+1, CAP1+3, CAP1+4, C3+1, C3+3
, VMSG+5, VMSG+6, ORUT2+25
>> LRTSN VMSG+6*, VMSG+7, VMSG+8
>> LRTSORU CAP+4, ORUT2+3
LRTST ORUT2+2~, ORUT2+4*, ORUT2+27, ORUT2+28
>> LRUID VMSG+7, ORUT2+14, ORUT2+28
LRUPSTAT ORUT2+2~, ORUT2+8*, ORUT2+12, ORUT2+42
>> LRURG ORUT2+15, ORUT2+25*, ORUT2+28
LRX ORUT2+2~, ORUT2+33*, ORUT2+34, PROVCPY+2~, PROVCPY+8*, PROVCPY+9, APMOVE+4~, APMOVE+24*, APMOVE+25, APMOVE+26
LRY PROVCPY+2~, PROVCPY+9*, PROVCPY+10, PROVCPY+11, APMOVE+4~, APMOVE+10*, APMOVE+11, APMOVE+12, APMOVE+13, APMOVE+14
, APMOVE+16, APMOVE+26*, APMOVE+27, APMOVE+28, APMOVE+29, APMOVE+31, APMOVE+40*, APMOVE+43
LRZ PROVCPY+2~, PROVCPY+11*, PROVCPY+12, PROVCPY+13
U CAP+3, CAP+4, CAP+7, CAP+9, CAP+11, CAP+12, CAP+14, CAP1+4, C3+3, VMSG+4
, VMSG+7, VMSG+8, ORUT2+4, ORUT2+25, ORUT2+33
X CAP+11*, CAP+14*, CAP+16!, ORUT2+38*, ORUT2+39, MAILALRT+6~, MAILALRT+15*, MAILALRT+16, CYWKLD+2~
XMINSTR MAILALRT+6~, MAILALRT+27
XMINSTR("ADDR FLAGS" , MAILALRT+26*
XMINSTR("FROM" MAILALRT+26*
XMSUB MAILALRT+6~, MAILALRT+24*, MAILALRT+25*, MAILALRT+27
XMTO MAILALRT+6~, MAILALRT+27
XMTO("G.LMI" MAILALRT+26*
Y MAILALRT+6~, MAILALRT+22, CYWKLD+2~, CYWKLD+20
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 |  Naked Globals |  Local Variables  | All