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

Package: Lab Service

Routine: LRWLST1


Information

LRWLST1 ;DALOI/STAFF - ACCESSION SETUP ;11/20/12 16:10

Source Information

Source file <LRWLST1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 4 PSET^LRPEND  (,SICA)^LRWLST11  MAILALRT^LRWLST12  ($$LRUID,INF,PT)^LRX  
VA FileMan 3 $$FIND1^DIC  (FILE,UPDATE,WP)^DIE  ^DIR  
Automated Lab Instruments 1 EN^LA7ADL  
Kernel 1 $$FMADD^XLFDT  

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

Package Total Caller Graph
Lab Service 4 LRAPKOE  LRAPLG1  LRWLST  LRWLST11  

Entry Points

Name Comments DBIA/ICR reference
SPLIT ;
STWLN ; Set accession number
UPD696 ; Update file #69.6 if LEDI referral patient and no existing entry
ST2 ; Find next available node in LR global
GTWLN ;
ORIGAAOK() ; function to determine if the accession number under consideration
; is already in use in the originating accession area
ASK ;
; Don't ask if tasked or a "silent" call
CHECK68(LRAA,LRAD) ; Check for/set header node of ^LRO(68) 68.01 subfile.
GETLOCK(LRAA,LRAD) ; Obtain lock on zeroth node of this accession date
; Call with LRAA = ien of entry in file #68
; LRAD = accession date in fileman format
SETAN(LRAA,LRAD,LRAN) ; Create stub entry in file #68 for this accession.

External References

Name Field # of Occurrence
$$FIND1^DIC UPD696+6
FILE^DIE STWLN+46
UPDATE^DIE STWLN+60, STWLN+74, ST2+28, CHECK68+15, SETAN+14
WP^DIE LRWLST1+9
^DIR ASK+10, ASK+26
EN^LA7ADL SPLIT+11, SPLIT+19
PSET^LRPEND UPD696+7
^LRWLST11 SPLIT+11, SPLIT+19
SICA^LRWLST11 SPLIT+12, SPLIT+19
MAILALRT^LRWLST12 STWLN+47, STWLN+64, STWLN+75, ST2+29, CHECK68+16, SETAN+18
$$LRUID^LRX STWLN+78
INF^LRX ASK+22
PT^LRX ASK+20
$$FMADD^XLFDT ST2+10, ST2+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ACCESSION: ",LRACC," <",LRUID,">"
  • Line Location: STWLN+79
Function Call: WRITE
  • Prompt: !,"This accession number may be already assigned either in this "
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !,"area or a common accession area."
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !,"THIS NUMBER BELONGS TO ",!,PNM," SSN: ",SSN
  • Line Location: ASK+21
Function Call: WRITE
  • Prompt: !!?5,"Accession area ",$P(^LRO(68,LRAA,0),"^")," is locked by another user.",!,$C(7)
  • Line Location: GETLOCK+6
Routine Call
  • DIC
  • Line Location:
    • UPD696+6
Routine Call
  • DIE
  • Line Location:
    • STWLN+46
Routine Call
  • DIE
  • Line Location:
    • STWLN+60
    • STWLN+74
    • ST2+28
    • CHECK68+15
    • SETAN+14
Routine Call
  • DIE
  • Line Location:
    • LRWLST1+9
Routine Call
  • DIR
  • Line Location:
    • ASK+10
    • ASK+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.061 - [#64.061] FIND1^DIC
69.01 WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] STWLN+38
^LAB(69.9 - [#69.9] GTWLN+18
^LR - [#63] STWLN+5, ST2+9, ST2+11, ST2+12, ST2+39, ASK+19
^LR("A" GTWLN+16, ORIGAAOK+14
^LRO(68 - [#68] SPLIT+5, STWLN+8, STWLN+11, STWLN+51, STWLN+71, STWLN+82, GTWLN+5, GTWLN+11, GTWLN+12, GTWLN+15
, GTWLN+16, GTWLN+20, GTWLN+21, ORIGAAOK+10, ORIGAAOK+11, ASK+13, ASK+16, ASK+19, ASK+31, CHECK68+10
, CHECK68+12, CHECK68+13*, GETLOCK+4, GETLOCK+6
^LRO(69 - [#69] STWLN+13, STWLN+28, STWLN+67, STWLN+70, STWLN+72
^LRO(69.6 - [#69.6] LRWLST1+7, UPD696+4
^SC - [#44] STWLN+16, STWLN+39
^TMP("LR" LRWLST1+14!

Label References

Name Line Occurrences
$$ORIGAAOK GTWLN+12, GTWLN+16
ASK GTWLN+18
CHECK68 STWLN+3, GTWLN+8
GETLOCK STWLN+2, GTWLN+7
GTWLN SPLIT+6, SPLIT+18
SETAN STWLN+8, GTWLN+20
SPLIT LRWLST1+4
ST2 SPLIT+11, SPLIT+19
STWLN SPLIT+11, SPLIT+19
UPD696 STWLN+80

Naked Globals

Name Field # of Occurrence
^(0 STWLN+5, STWLN+13
^(3 STWLN+13*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LRWLST1+11!
DFN STWLN+5*, STWLN+38, ASK+18~, ASK+19*
DIC LRWLST1+11!
DIE LRWLST1+11!
DIR ASK+4~, ASK+7!, ASK+24!
DIR("A" ASK+9*, ASK+25*
DIR("B" ASK+9*, ASK+25*
DIR(0 ASK+8*, ASK+25*
DIROUT ASK+4~
DIRUT ASK+4~, ASK+11, ASK+27
DLAYGO LRWLST1+11!
DR LRWLST1+11!
DT LRWLST1+4
DTOUT ASK+4~
DUOUT ASK+4~
DUZ STWLN+42
DUZ(2 STWLN+44
LR6802 STWLN+20~, STWLN+21*, STWLN+22, STWLN+23, STWLN+24, STWLN+25, STWLN+26, STWLN+27, STWLN+28, STWLN+32
, STWLN+33, STWLN+40, STWLN+42, STWLN+43, STWLN+44, STWLN+45, STWLN+54, STWLN+55, STWLN+73, SETAN+6~
, SETAN+7*, SETAN+9
>> LR696 LRWLST1+7
LR696IEN UPD696+1!, UPD696+3*, UPD696+4*, UPD696+5
LRAA SPLIT+1~, SPLIT+8*, SPLIT+9*, SPLIT+10, SPLIT+15*, SPLIT+16*, SPLIT+17, SPLIT+18, STWLN+2, STWLN+3
, STWLN+8, STWLN+11, STWLN+21, STWLN+51, STWLN+71, STWLN+78, STWLN+82, CHECK68~, CHECK68+10, CHECK68+12
, CHECK68+13, CHECK68+14, GETLOCK~, GETLOCK+4, GETLOCK+6, SETAN~, SETAN+7
LRAA0 ORIGAAOK+6~, ORIGAAOK+11*, ORIGAAOK+13
LRAAOK ORIGAAOK+6~, ORIGAAOK+7*, ORIGAAOK+9, ORIGAAOK+10*, ORIGAAOK+14*, ORIGAAOK+16
LRAAX ORIGAAOK+6~, ORIGAAOK+7*, ORIGAAOK+9*, ORIGAAOK+10, ORIGAAOK+11
LRABV ST2+27~*, GTWLN+1~, GTWLN+15*, GTWLN+16
LRABVX ORIGAAOK+6~, ORIGAAOK+13*, ORIGAAOK+14
>> LRACC STWLN+11*, STWLN+43, STWLN+79, ST2+19, ST2+27
LRAD LRWLST1+4*, STWLN+2, STWLN+3, STWLN+8, STWLN+11, STWLN+21, STWLN+24, STWLN+51, STWLN+71, STWLN+78
, STWLN+82, GTWLN+7, GTWLN+8, GTWLN+11, GTWLN+12, GTWLN+16, GTWLN+20, GTWLN+21, ORIGAAOK+10, ORIGAAOK+14
, ASK+13, ASK+16, ASK+19, ASK+31, CHECK68~, CHECK68+10, CHECK68+12, CHECK68+13, CHECK68+14, GETLOCK~
, GETLOCK+4, SETAN~, SETAN+7
LRAN STWLN+8, STWLN+11, STWLN+21, STWLN+51, STWLN+71, STWLN+78, GTWLN+4*, GTWLN+11*, GTWLN+12*, GTWLN+16*
, GTWLN+20, ORIGAAOK+10, ORIGAAOK+14, ASK+8, ASK+9, ASK+28*, SETAN~, SETAN+8
LRANX ASK+4~, ASK+12*, ASK+13, ASK+16, ASK+19, ASK+28
>> LRCAPLOC STWLN+16*, STWLN+17*, STWLN+45
>> LRCDT UPD696+7, ST2+8, ST2+10*, ST2+13*, ST2+18
LRDFN STWLN+5, STWLN+22, ST2+9, ST2+11, ST2+12, ST2+18, ST2+19, ST2+21, ST2+22, ST2+24
, ST2+25, ST2+26, ST2+39, ASK+17, ASK+18~, ASK+19*, ASK+23, SETAN+9
LRDFNX ASK+17~*, ASK+23
LRDIE LRWLST1+8~, STWLN+20~, ST2+2~, CHECK68+11~, SETAN+6~
LRDIE( STWLN+75
LRDIE(1 STWLN+47, CHECK68+16
LRDIE(2 STWLN+61!, STWLN+64, SETAN+15!, SETAN+18
LRDIE(63 ST2+29
LRDPF STWLN+5*, STWLN+23, STWLN+31, STWLN+37, ASK+18~, ASK+19*
>> LREND SPLIT+3*, SPLIT+7, SPLIT+18, STWLN+10*, GTWLN+18, ASK+6, ASK+11*, ASK+27*, ASK+31
LRFDA STWLN+20~, STWLN+68~, ST2+2~, CHECK68+11~, SETAN+6~
LRFDA( STWLN+73*
LRFDA(1 STWLN+22*, STWLN+23*, STWLN+24*, STWLN+25*, STWLN+26*, STWLN+27*, STWLN+28*, STWLN+32*, STWLN+33*, STWLN+40*
, STWLN+42*, STWLN+43*, STWLN+44*, STWLN+45*, CHECK68+14*
LRFDA(2 STWLN+54*, STWLN+55*, SETAN+9*
LRFDA(63 ST2+18*, ST2+19*, ST2+21*, ST2+22*, ST2+24*, ST2+25*, ST2+26*
LRFDAIEN STWLN+52~, STWLN+68~, ST2+2~, CHECK68+11~, SETAN+6~
LRFDAIEN(1 STWLN+53*, STWLN+72*, ST2+17*, CHECK68+14*, SETAN+8*
LRI STWLN+68~, STWLN+69*, STWLN+70*, STWLN+71, STWLN+72, STWLN+73, STWLN+75
>> LRIDT ST2+4*, ST2+6*, ST2+7, ST2+11*, ST2+17, ST2+39
LRIXX LRWLST1+11!
>> LRLABKY ASK+8
>> LRLBLBP STWLN+10*
>> LRLLOC STWLN+27, ST2+22, ST2+25
LRLOCKOK STWLN+52~, STWLN+58*, STWLN+59, STWLN+62*, SETAN+6~, SETAN+12*, SETAN+13, SETAN+16*
LRLOOPCT STWLN+52~, STWLN+59*, STWLN+61, SETAN+6~, SETAN+13*, SETAN+15
>> LRNCWL GTWLN+18
LRNM LRWLST1+13!
>> LRNT STWLN+13, UPD696+7, ST2+21
>> LRODT LRWLST1+9, STWLN+13, STWLN+25, STWLN+28, STWLN+67, STWLN+70, STWLN+72, UPD696+7
LROK ASK+4~, ASK+5*, ASK+6, ASK+16, ASK+23*, ASK+28*
>> LROLLOC STWLN+16, STWLN+33, STWLN+39
>> LRORDR LRWLST1+12
>> LRORDRR LRWLST1+7, UPD696+2
>> LROT UPD696+7
>> LRPHSET STWLN+79, GTWLN+18
>> LRPRAC STWLN+12*, STWLN+13*, STWLN+32
>> LRQUIET STWLN+79, ASK+2, GETLOCK+5
>> LRRSITE("RSITE" UPD696+7
>> LRRSITE("SDT" UPD696+7
>> LRRSITE("SMID" UPD696+4
>> LRRSTAT(0 UPD696+6*, UPD696+7
>> LRSAMP STWLN+55, UPD696+7
>> LRSD("RPSITE" UPD696+7
>> LRSD("RUID" UPD696+4, UPD696+7
>> LRSN LRWLST1+9, STWLN+13, STWLN+26, STWLN+28, STWLN+67, STWLN+70, STWLN+72
>> LRSPEC STWLN+51, STWLN+54, STWLN+67, UPD696+7
>> LRSS SPLIT+5*, SPLIT+10*, SPLIT+17*, STWLN+10*, ST2+4, ST2+9, ST2+11, ST2+12, ST2+16, ST2+20
, ST2+23, ST2+26, ST2+27, ST2+39, GTWLN+12, GTWLN+16
LRSSX ORIGAAOK+6~, ORIGAAOK+11*, ORIGAAOK+12, ORIGAAOK+14
>> LRTREA STWLN+38*, STWLN+39*, STWLN+40
LRTSTS LRWLST1+13!
LRTSTS( LRWLST1+4, SPLIT+4, SPLIT+9, SPLIT+10, SPLIT+16, SPLIT+17, SPLIT+18, ORIGAAOK+9
>> LRUID SPLIT+11, SPLIT+19, STWLN+78*, STWLN+79
>> LRUNQ SPLIT+3*, SPLIT+15*, ORIGAAOK+9
>> LRWLC LRWLST1+3*, LRWLST1+4*, SPLIT+4, SPLIT+5, SPLIT+9, SPLIT+10, SPLIT+16, SPLIT+17, SPLIT+18, GTWLN+5
, GTWLN+7, GTWLN+8, GTWLN+11, GTWLN+12, GTWLN+15, GTWLN+16, GTWLN+20, GTWLN+21, ORIGAAOK+9, ASK+13
, ASK+16, ASK+19, ASK+31
LRX SPLIT+1~, STWLN+68~, STWLN+72*, STWLN+73, ST2+2~, ST2+16*, ST2+18, ST2+19, ST2+21, ST2+22
, ST2+24, ST2+25, ST2+26, ST2+28
LRXIDT ST2+2~, ST2+8*, ST2+9, ST2+11, ST2+12
PNM ASK+18~, ASK+21
SSN ASK+18~, ASK+21
SSN(2 UPD696+7
U STWLN+5, STWLN+10, STWLN+11, STWLN+13, STWLN+16, STWLN+38, STWLN+39, UPD696+7, GTWLN+11, GTWLN+15
, GTWLN+18, ASK+8, ASK+13, ASK+19
X STWLN+28*, GTWLN+1~, GTWLN+5*, ASK+4~, CHECK68+11~, CHECK68+12*, CHECK68+13
Y ASK+4~, ASK+12, ASK+28
>> ZTQUEUED ASK+2, GETLOCK+5
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