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/CJS/RWF/FHS - ACCESSION SETUP ; 21-Jul-2015 06:30 ; MKK

Source Information

Source file <LRWLST1.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS Changes To Lab 4 ^BLREVTQ  REFLAB68^BLRLINKU  ENTRYAUD^BLRUTIL  IHSCOLS^BLRUTIL6  
VA Fileman 4 $$FIND1^DIC  (FILE,UPDATE,WP)^DIE  $$GET1^DIQ  ^DIR  
Lab Service 3 PSET^LRPEND  (,SICA)^LRWLST11  ($$LRUID,INF,PT)^LRX  
Kernel 2 $$FMADD^XLFDT  $$UP^XLFSTR  
Automated Lab Instruments 1 EN^LA7ADL  
MailMan 1 SENDMSG^XMXAPI  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 2 LRWLST  LRWLST11  
IHS Changes To Lab 1 BLRAG05B  

Entry Points

Name Comments DBIA/ICR reference
STORACCS(LRODT,LRSN,LRUID) ; EP
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
UPD696 ; Update file #69.6 if LEDI referral patient and no existing entry
SETAN(LRAA,LRAD,LRAN) ; Create stub entry in file #68 for this acession.
MAILALRT(MSGN) ; Send mail message alert when FileMan DBS errors returned - IHS/MSC/MKK - LR*5.2*1031
; ----- BEGIN IHS/MSC/MKK - LR*5.2*1031
; Known VA Bug. Ignore for now. See LR*5.2*331.
EP ; EP
CHECK68(LRAA,LRAD) ; Check for/set header node of ^LRO(68) 68.01 subfile.
SPLIT ;
ST2 ; Find next available node in LR global
ASK ;
; Don't ask if tasked or a "silent" call
GTWLN ;
IHSLOG ; EP -- Create entry for PCC transfer
; Q:'BLRLOG
STWLN ; Set accession number

External References

Name Field # of Occurrence
^BLREVTQ IHSLOG+4
REFLAB68^BLRLINKU STORACCS+12
ENTRYAUD^BLRUTIL STWLN+100
IHSCOLS^BLRUTIL6 STWLN+88
$$FIND1^DIC UPD696+6, STORACCS+21
FILE^DIE STWLN+47
UPDATE^DIE STWLN+89, ST2+24, CHECK68+15, SETAN+17, STORACCS+29
WP^DIE EP+7
$$GET1^DIQ STORACCS+3, STORACCS+4, STORACCS+5, STORACCS+7, STORACCS+17, STORACCS+18
^DIR ASK+10, ASK+28
EN^LA7ADL SPLIT+11, SPLIT+20
PSET^LRPEND UPD696+7
^LRWLST11 SPLIT+11, SPLIT+20
SICA^LRWLST11 SPLIT+12, SPLIT+20
$$LRUID^LRX STWLN+94
INF^LRX ASK+24
PT^LRX ASK+21
$$FMADD^XLFDT ST2+11, ST2+14
$$UP^XLFSTR MAILALRT+3
SENDMSG^XMXAPI MAILALRT+39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ACCESSION: ",LRACC," <",LRUID,">"
  • Line Location: STWLN+98
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+22
Function Call: WRITE
  • Prompt: !,"THIS NUMBER BELONGS TO ",!,PNM," HRCN: ",HRCN
  • Line Location: ASK+23
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
  • DIE
  • Line Location:
    • STWLN+89
    • ST2+24
    • CHECK68+15
    • SETAN+17
    • STORACCS+29
Routine Call
  • DIC
  • Line Location:
    • UPD696+6
    • STORACCS+21
Routine Call
  • DIE
  • Line Location:
    • STWLN+47
Routine Call
  • DIR
  • Line Location:
    • ASK+10
    • ASK+28
Routine Call
  • DIE
  • Line Location:
    • EP+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^LR - [#63] GET1^DIQ
^LAB(64.061 - [#64.061] FIND1^DIC
69.01 GET1^DIQ,  WP^DIE
^BLRRLO - [#9009026.3] FIND1^DIC
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRRLO - [#9009026.3] STORACCS+25
^DPT - [#2] STWLN+38
^LAB(69.9 - [#69.9] GTWLN+17
^LR - [#63] STWLN+4, ST2+10, ST2+12, ST2+13, ST2+36, ASK+20
^LR("A" GTWLN+15
^LRO(68 - [#68] STWLN+7, STWLN+10, STWLN+106, GTWLN+5, GTWLN+10, GTWLN+12, GTWLN+15, GTWLN+21, ASK+13, ASK+16
, ASK+20, ASK+33, CHECK68+10, CHECK68+12, CHECK68+13*, GETLOCK+4, GETLOCK+6, MAILALRT+9, STORACCS+13
^LRO(69 - [#69] STWLN+13, STWLN+28, STWLN+79, STWLN+83, STWLN+84
^LRO(69.6 - [#69.6] EP+5, UPD696+4
^SC - [#44] STWLN+16, STWLN+39
^TMP("LR" EP+12!
^TMP("LRWLST1" EP+13!, STWLN+101*
^XTMP("BLRLINKU" STORACCS+15

Label References

Name Line Occurrences
ASK GTWLN+17
CHECK68 STWLN+2, GTWLN+8
GETLOCK STWLN+1, GTWLN+7
GTWLN SPLIT+5, SPLIT+18
IHSLOG SPLIT+11, SPLIT+20
MAILALRT STWLN+49, STWLN+91, ST2+26, CHECK68+17, SETAN+23
SETAN STWLN+7, GTWLN+19
SPLIT EP+2
ST2 SPLIT+11, SPLIT+20
STORACCS STWLN+96
STWLN SPLIT+11, SPLIT+20
UPD696 STWLN+104

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRGUI STWLN+101
>> BLRLOG IHSLOG+2
>> BLROPT IHSLOG+4
>> BPCACC STWLN+101*
DA EP+9!
DFN STWLN+4*, STWLN+38, ASK+18~, ASK+20*, STORACCS+18*
DIC EP+9!
DIE EP+9!
>> DILOCKTM STORACCS+1
DIR ASK+4~, ASK+7!, ASK+26!
DIR("A" ASK+9*, ASK+27*
DIR("B" ASK+9*, ASK+27*
DIR(0 ASK+8*, ASK+27*
DIROUT ASK+4~
DIRUT ASK+4~, ASK+11, ASK+29
>> DISYS STORACCS+1
DLAYGO EP+9!
DR EP+9!
DT EP+2, STORACCS+1
DTIME STORACCS+1
DTOUT ASK+4~
DUOUT ASK+4~
DUZ STWLN+42, MAILALRT+24, MAILALRT+39, STORACCS+1
DUZ(2 STWLN+44, MAILALRT+25
ERRS STORACCS+27!
FDA STWLN+20~, STWLN+81~, ST2+2~, CHECK68+11~, SETAN+6~, STORACCS+27!
FDA( STWLN+85*, STORACCS+28*
FDA(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*
FDA(2 SETAN+10*
FDA(63 ST2+19*, ST2+20*, ST2+21*, ST2+22*, ST2+23*
FDAIEN STWLN+81~, ST2+2~, CHECK68+11~, SETAN+6~
FDAIEN(1 STWLN+84*, ST2+18*, CHECK68+14*, SETAN+9*
HRCN ASK+19~, ASK+23
IO STORACCS+1
>> IOBS STORACCS+1
IOF STORACCS+1
IOM STORACCS+1
ION STORACCS+1
>> IOS STORACCS+1
IOSL STORACCS+1
IOST STORACCS+1
>> IOT STORACCS+1
>> IOXY STORACCS+1
J MAILALRT+7~, MAILALRT+29*, MAILALRT+30, MAILALRT+31, MAILALRT+32*
LR68 MAILALRT+7~, MAILALRT+9*
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+85, SETAN+6~, SETAN+8*, SETAN+10
>> LR696 EP+5
LR696IEN UPD696+1!, UPD696+3*, UPD696+4*, UPD696+5
LRAA SPLIT+1~, SPLIT+7*, SPLIT+8*, SPLIT+9, SPLIT+15*, SPLIT+16*, SPLIT+17, SPLIT+18, IHSLOG+4, STWLN+1
, STWLN+2, STWLN+7, STWLN+10, STWLN+21, STWLN+94, STWLN+106, CHECK68~, CHECK68+10, CHECK68+12, CHECK68+13
, CHECK68+14, GETLOCK~, GETLOCK+4, GETLOCK+6, SETAN~, SETAN+8, MAILALRT+9, STORACCS+13*, STORACCS+15
>> LRACC IHSLOG+4, STWLN+10*, STWLN+43, STWLN+101, ST2+20
LRAD EP+2*, IHSLOG+4, STWLN+1, STWLN+2, STWLN+7, STWLN+10, STWLN+21, STWLN+24, STWLN+94, STWLN+106
, GTWLN+7, GTWLN+8, GTWLN+10, GTWLN+12, GTWLN+15, GTWLN+19, GTWLN+21, ASK+13, ASK+16, ASK+20
, ASK+33, CHECK68~, CHECK68+10, CHECK68+12, CHECK68+13, CHECK68+14, GETLOCK~, GETLOCK+4, SETAN~, SETAN+8
, MAILALRT+9
LRAN IHSLOG+4, STWLN+7, STWLN+10, STWLN+21, STWLN+94, GTWLN+4*, GTWLN+10*, GTWLN+12*, GTWLN+15*, GTWLN+19
, ASK+8, ASK+9, ASK+30*, SETAN~, SETAN+9, MAILALRT+9
LRANX ASK+4~, ASK+12*, ASK+13, ASK+16, ASK+20, ASK+30
>> LRASIEN STORACCS+25*
>> LRCAPLOC STWLN+16*, STWLN+17*, STWLN+45
>> LRCDT UPD696+7, ST2+9, ST2+11*, ST2+14*, ST2+19
LRCNT MAILALRT+7~, MAILALRT+20*, MAILALRT+24*, MAILALRT+25*, MAILALRT+26*, MAILALRT+31*, MAILALRT+32*
LRDFN STWLN+4, STWLN+22, ST2+10, ST2+12, ST2+13, ST2+19, ST2+20, ST2+21, ST2+22, ST2+23
, ST2+36, ASK+17, ASK+18~, ASK+20*, ASK+25, SETAN+10, STORACCS+17*, STORACCS+18
LRDFNX ASK+17~*, ASK+25
LRDIE EP+6~, STWLN+20~, ST2+2~, CHECK68+11~, SETAN+6~
LRDIE( STWLN+91, MAILALRT+3
LRDIE(1 STWLN+49, CHECK68+17
LRDIE(2 SETAN+16!, SETAN+18, SETAN+23
LRDIE(63 ST2+26
LRDPF STWLN+4*, STWLN+23, STWLN+31, STWLN+37, ASK+18~, ASK+20*
>> LREND SPLIT+3*, SPLIT+6, SPLIT+18, STWLN+9*, GTWLN+17, ASK+6, ASK+11*, ASK+29*, ASK+33
LRI STWLN+81~, STWLN+82*, STWLN+83*, STWLN+84, STWLN+85, STWLN+91
>> LRIDT ST2+5*, ST2+7*, ST2+8, ST2+12*, ST2+18, ST2+36
LRIXX EP+9!
>> LRLABKY ASK+8
>> LRLBLBP STWLN+9*
>> LRLLOC STWLN+27
LRLOCKOK SETAN+13~, SETAN+14*, SETAN+15, SETAN+18*, SETAN+19!
LRLOOPCT SETAN+13~, SETAN+15*, SETAN+19!
LRMTXT MAILALRT+7~
LRMTXT( MAILALRT+24*, MAILALRT+25*, MAILALRT+26*, MAILALRT+31*, MAILALRT+32*
LRMTXT(1 MAILALRT+11*
LRMTXT(2 MAILALRT+12*
LRMTXT(3 MAILALRT+17*, MAILALRT+18*
LRMTXT(4 MAILALRT+19*
>> LRNCWL GTWLN+17
LRNM EP+11!
>> LRNT STWLN+13, UPD696+7, ST2+21
LRODT EP+7, IHSLOG+4, STWLN+13, STWLN+25, STWLN+28, STWLN+79, STWLN+83, STWLN+84, STWLN+96, UPD696+7
, STORACCS~, STORACCS+1, STORACCS+3, STORACCS+7, STORACCS+17
LROK ASK+4~, ASK+5*, ASK+6, ASK+16, ASK+25*, ASK+30*
>> LROLLOC STWLN+16, STWLN+33, STWLN+39
>> LRORDR EP+10
>> LRORDRR EP+5, UPD696+2
>> LROT UPD696+7
>> LRPHSET STWLN+101, GTWLN+17
>> LRPRAC STWLN+12*, STWLN+13*, STWLN+32
>> LRQUIET STWLN+101, ASK+2, GETLOCK+5
>> LRRSITE("RSITE" UPD696+7
>> LRRSITE("SDT" UPD696+7
>> LRRSITE("SMID" UPD696+4
>> LRRSTAT(0 UPD696+6*, UPD696+7
>> LRSAMP UPD696+7
>> LRSD("RPSITE" UPD696+7
>> LRSD("RUID" UPD696+4, UPD696+7
LRSN EP+7, IHSLOG+4, STWLN+13, STWLN+26, STWLN+28, STWLN+79, STWLN+83, STWLN+84, STWLN+96, STORACCS~
, STORACCS+1, STORACCS+3, STORACCS+7, STORACCS+17
>> LRSPEC UPD696+7
>> LRSS SPLIT+9*, SPLIT+17*, STWLN+9*, ST2+5, ST2+10, ST2+12, ST2+13, ST2+17, ST2+21, ST2+22
, ST2+23, ST2+36, GTWLN+12, GTWLN+15
>> LRTREA STWLN+38*, STWLN+39*, STWLN+40
LRTSTS EP+11!
LRTSTS( EP+2, SPLIT+4, SPLIT+8, SPLIT+9, SPLIT+16, SPLIT+17, SPLIT+18
LRUID SPLIT+11, SPLIT+20, STWLN+94*, STWLN+96, STWLN+101, STORACCS~, STORACCS+1, STORACCS+10, STORACCS+13, STORACCS+28
>> LRUNQ SPLIT+3*, SPLIT+15*
>> LRWLC EP+1*, EP+2*, SPLIT+4, SPLIT+8, SPLIT+9, SPLIT+16, SPLIT+17, SPLIT+18, GTWLN+5, GTWLN+7
, GTWLN+8, GTWLN+10, GTWLN+12, GTWLN+15, GTWLN+19, GTWLN+21, ASK+13, ASK+16, ASK+20, ASK+33
LRX SPLIT+1~, STWLN+81~, STWLN+84*, STWLN+85, ST2+2~, ST2+17*, ST2+19, ST2+20, ST2+21, ST2+22
, ST2+23, ST2+24
LRXIDT ST2+2~, ST2+9*, ST2+10, ST2+12, ST2+13
MSGN MAILALRT~, MAILALRT+3, MAILALRT+17, MAILALRT+18, MAILALRT+35
>> ORDERN STORACCS+7*, STORACCS+8, STORACCS+21
>> ORDIEN STORACCS+21*, STORACCS+23, STORACCS+25, STORACCS+28
>> ORDLINST STORACCS+4*, STORACCS+5, STORACCS+15
>> ORDLOC STORACCS+3*, STORACCS+4
PNM ASK+18~, ASK+23
SSN ASK+18~
SSN(2 UPD696+7
U STWLN+4, STWLN+9, STWLN+10, STWLN+13, STWLN+16, STWLN+38, STWLN+39, UPD696+7, GTWLN+10, GTWLN+17
, ASK+8, ASK+13, ASK+20, STORACCS+1
X STWLN+28*, GTWLN+1~, GTWLN+5*, ASK+4~, CHECK68+11~, CHECK68+12*, CHECK68+13, MAILALRT+7~, MAILALRT+30*, MAILALRT+31
, STORACCS+13*
XMINSTR MAILALRT+7~, MAILALRT+39
XMINSTR("ADDR FLAGS" , MAILALRT+38*
XMINSTR("FROM" MAILALRT+37*
XMSUB MAILALRT+7~, MAILALRT+35*, MAILALRT+39
XMTO MAILALRT+7~, MAILALRT+39
XMTO("G.LMI" MAILALRT+36*
>> XPARSYS STORACCS+1
>> XQXFLG STORACCS+1
Y ASK+4~, ASK+12, ASK+30
>> 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