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 |  Marked Items  | All
Print Page as PDF
Routine: LRAPLG1

Package: Lab Service

Routine: LRAPLG1


Information

LRAPLG1 ;DALOI/CKA,JMC,PMK - LOG-IN CONT. ;02/17/17 13:42

Source Information

Source file <LRAPLG1.m>

Call Graph

Call Graph

Call Graph Total: 28

Package Total Call Graph
Lab Service 16 OERR^LR7OB63D  EN^LR7OFAO  ^LRAP  (,CK)^LRAPCWK  ^LRAPLG2  ^LRAPSWK  ^LRAUAW  ^LRSPGD  
(V,XR,YN)^LRU  SETREF^LRUEPR  EN1^LRUPS  ^LRUTELL  ^LRUWLF  CHECK68^LRWLST1  (ORUT,SLRSS)^LRWLST11  MAILALRT^LRWLST12  
VA FileMan 6 EN^DDIOL  (,UPDATE,WP)^DIE  ^DIK  LOCK^DILF  ($$GET1,EN)^DIQ  ^DIR  
Imaging 2 NEW^MAGT7MA  ADD^MAGTP005  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
Registration 1 KVA^VADPT  
Surgery 1 DISP^SROSPLG  
Toolkit 1 $$GET^XPAR  

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  LRAPLG  LRAPLG2  LRAUAW  

Entry Points

Name Comments DBIA/ICR reference
START ; Start logging in the specimens.
EN ;
AU ; Autopsy Specific
LR7OFA0 ;
TST ; Get the ordered test and store in temp array
LDSI ; LDSI tasks
LDSI1
UPD68 ; Update #68 with required test data
UPD63 ; Update ORUT Node in #63
X ; from LRAUAW
OS ; User choosing accession number
OSDIR ; Called from DIR call in OS above
ORDTST ; Prompt for ordered test(s); translate to NLT code for storage in ORUT
; Add NLT code to temp array LRXX (This code currently assumes one ordered test per accession)
GETSTCS ;Get spec top and coll samp
CRE868 ; Create accession number in file 68
CRE863 ; Create entry in file #63
SPMOVE ; Copy surgery information into lab package
; - store surgery package reference to retrieve surgeon/attending.
; - LRFLAG used to determine if data copied from Surgery packge and moved to Lab and generate notice.
; if no data before and data after call to SROSPLG then add disclaimer.
LRMSG(LRRNAME,LRFMERR) ;
; Filing error notification
; Inputs
; LRRNAME: Routine name (TAG~RTN)
; LRFMERR:<byref> FileMan error local array
OUT ;
; Exit point
END ; from LRAUAW, LRAPLG2
; Lock Accession file
FIX ; Entry point to delete an orphan AP entry in file #63

External References

Name Field # of Occurrence
EN^DDIOL START+7, START+13, END+3, FIX+35
^DIE LR7OFA0+11
UPDATE^DIE UPD68+9, UPD68+20, CRE868+6, CRE863+33
WP^DIE SPMOVE+32
^DIK LR7OFA0+30, TST+9, END+8, FIX+40
LOCK^DILF START+4, START+9, END+2, FIX+33
$$GET1^DIQ LDSI+16, LDSI+17, LDSI+19, LDSI+20
EN^DIQ FIX+21
^DIR OS+4, ORDTST+7, CRE863+6, LRMSG+12, FIX+24, FIX+29
OERR^LR7OB63D TST+28
EN^LR7OFAO LDSI1+7
^LRAP FIX+6
^LRAPCWK TST+21
CK^LRAPCWK TST+11
^LRAPLG2 EN+13, OS+18
^LRAPSWK TST+22
^LRAUAW AU+1
^LRSPGD TST+24
V^LRU FIX+36, FIX+57
XR^LRU FIX+7
YN^LRU EN+8
SETREF^LRUEPR SPMOVE+15, SPMOVE+36
EN1^LRUPS FIX+13
^LRUTELL EN+12, OSDIR+14
^LRUWLF TST+18
CHECK68^LRWLST1 START+16
ORUT^LRWLST11 UPD63+3
SLRSS^LRWLST11 UPD63+2
MAILALRT^LRWLST12 LRMSG+8
NEW^MAGT7MA TST+30
ADD^MAGTP005 TST+26
DISP^SROSPLG SPMOVE+18
KVA^VADPT FIX+36, FIX+57
$$FMADD^XLFDT CRE863+13
$$NOW^XLFDT LDSI+11, CRE863+18
$$GET^XPAR EN+5, SPMOVE+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Assign ",LRO(68)," (",LRABV,") accession #: ",LRAN
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: $C(7),!!,"All Prompts not answered - <ENTRY DELETED>"
  • Line Location: LR7OFA0+27
Function Call: WRITE
  • Prompt: $C(7),!!,"No ordered test selected - <ENTRY DELETED>"
  • Line Location: TST+7
Function Call: WRITE
  • Prompt: !!,?5,"This accession has already been logged in."
  • Line Location: OS+13
Function Call: WRITE
  • Prompt: !,?5,"""Log-in menu, anat path"" should NOT be used to edit an accession."
  • Line Location: OS+14
Function Call: WRITE
  • Prompt: !,?5,"Use ""Edit/modify data, anat path"" instead."
  • Line Location: OS+15
Function Call: WRITE
  • Prompt: !,"This program only supports SP, CY and EM subscripts",!
  • Line Location: FIX+9
Function Call: WRITE
  • Prompt: !,"Report has been released!",!
  • Line Location: FIX+14
Function Call: WRITE
  • Prompt: !,"Report has associated images in IMAGING package!"
  • Line Location: FIX+16
Function Call: WRITE
  • Prompt: !,"Disposition these images before deleting this entry!",!
  • Line Location: FIX+17
Function Call: WRITE
  • Prompt: !!,"Entry deleted",!
  • Line Location: FIX+56
Routine Call
  • DIE
  • Line Location:
    • LR7OFA0+11
Routine Call
  • DIE
  • Line Location:
    • UPD68+9
    • UPD68+20
    • CRE868+6
    • CRE863+33
Routine Call
  • DIE
  • Line Location:
    • SPMOVE+32
Routine Call
  • DIR
  • Line Location:
    • OS+4
    • ORDTST+7
    • CRE863+6
    • LRMSG+12
    • FIX+24
    • FIX+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls
63.08 WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SPMOVE+5
^LAB(60 - [#60] ORDTST+9
^LAB(69.9 - [#69.9] LDSI+5
^LAM - [#64] ORDTST+9
^LR - [#63] START+11, EN+9, EN+11, EN+14, EN+19, AU+2, LR7OFA0+19, LR7OFA0+20, LR7OFA0+26, TST+5
X+1!, X+3!, X+4!, X+5!, X+7!, OS+18, GETSTCS+4, GETSTCS+5, CRE863+12, CRE863+34
SPMOVE+16, SPMOVE+28, FIX+14, FIX+15, FIX+44!, FIX+45!, FIX+48!, FIX+49!, FIX+50!, FIX+54
^LR("AAU" X+6!, FIX+51!
^LR("AAUA" X+6!, FIX+51!
^LRO(68 - [#68] EN+6, EN+7, EN+9, EN+12, EN+14, EN+19, EN+21, EN+23, LDSI1+8, OS+12
OSDIR+5, OSDIR+8, END+10
^LRO(69 - [#69] LDSI1+9
^VA(200 - [#200] LR7OFA0+7

Label References

Name Line Occurrences
@( LR7OFA0+10
CRE863 LR7OFA0+1
CRE868 EN+17, OS+20
EN EN+17
END LR7OFA0+30, TST+9, CRE863+6
GETSTCS LR7OFA0+32
LDSI TST+28
LRMSG UPD68+10, UPD68+21, CRE868+7, CRE863+35
ORDTST TST+2
OS EN+19
SPMOVE TST+14
UPD63 LDSI1+10
UPD68 LDSI1+10
X LR7OFA0+30, TST+9

Naked Globals

Name Field # of Occurrence
^(0 EN+12, AU+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+8*, EN+9, EN+11, EN+15*, EN+17, EN+19
AGE FIX+4~
DA LR7OFA0+4!, LR7OFA0+8*, LR7OFA0+25~, LR7OFA0+28*, TST+6~, TST+8*, END+5~, END+6*, FIX+2~, FIX+20*
FIX+38!, FIX+39*
DA(1 LR7OFA0+8*, LR7OFA0+28*, LR7OFA0+29, TST+8*, END+6*, END+7, FIX+20*, FIX+39*
DA(2 END+6*, END+7
DFN FIX+2~
DIC FIX+2~, FIX+20*
DIC(0 LR7OFA0+9*
>> DIE LR7OFA0+9*
DIERR CRE863+17!
DIK LR7OFA0+25~, LR7OFA0+29*, TST+6~, TST+8*, END+5~, END+7*, FIX+2~, FIX+38!, FIX+39*
DIQ FIX+2~
DIQ(0 FIX+20*
DIR OS+1~, ORDTST+3~, CRE863+2~, CRE863+6!, LRMSG+5~, FIX+2~, FIX+27!
DIR("A" OS+3*, CRE863+4*, LRMSG+10*, LRMSG+11*, FIX+23*, FIX+28*
DIR("B" ORDTST+5*, CRE863+4*, FIX+23*, FIX+28*
DIR("S" ORDTST+6*
DIR(0 OS+2*, ORDTST+5*, CRE863+3*, LRMSG+9*, FIX+23*, FIX+28*
DIROUT OS+1~, ORDTST+3~, LRMSG+5~, FIX+2~
DIRUT OS+1~, OS+5, ORDTST+3~, ORDTST+8, CRE863+2~, LRMSG+5~, FIX+2~
DIWESUB LR7OFA0+4!
DLAYGO LR7OFA0+9*, LR7OFA0+11!
DR FIX+2~, FIX+19!
DTOUT LR7OFA0+4!, LR7OFA0+24, OS+1~, ORDTST+3~, CRE863+2~, LRMSG+5~, FIX+2~
DUOUT ORDTST+3~, CRE863+2~, LRMSG+5~
>> FDA(3 UPD68+4*, UPD68+5*, UPD68+7*
>> FDA(31 UPD68+18*, UPD68+19*
FDAIEN UPD68+14!, UPD68+17*, UPD68+18, UPD68+19
I LR7OFA0+17~, LR7OFA0+21*, SPMOVE+8~, SPMOVE+16*
IEN UPD68+1~, UPD68+14!
IEN(1 UPD68+2*
II TST+1~, TST+4, ORDTST+4*, ORDTST+8*, ORDTST+9*
>> LR( LR7OFA0+6*, LR7OFA0+7*
>> LR("L" LR7OFA0+10
LRAA START+16, EN+5, EN+6, EN+7, EN+9, EN+12, EN+14, EN+19, EN+21, EN+23
LDSI1+8, UPD68+3, UPD68+17, OS+12, OSDIR+5, OSDIR+8, CRE868+3, END+6, END+10, FIX+3~
LRABV EN+8, EN+11, X+1, X+6, OS+18, FIX+3~, FIX+44, FIX+51
LRAC EN+23*, TST+26, CRE863+18, FIX+3~
>> LRACC CRE863+18*, CRE863+23
LRAD START+16, EN+6, EN+7, EN+9, EN+12, EN+14, EN+19, EN+21, EN+23, LDSI1+8
UPD68+3, UPD68+17, OS+12, OSDIR+5, OSDIR+8, CRE868+3, CRE868+7, END+6, END+10, FIX+3~
FIX+11
>> LRADD LDSI1*
LRALOC LDSI+2~
LRAN EN+4*, EN+6*, EN+7*, EN+8, EN+11, EN+12, EN+23, LDSI1+8, UPD68+3, UPD68+17
X+1, X+6, OS+6*, OS+12, OS+18, CRE868+4, CRE868+8, END+6, FIX+3~, FIX+13
FIX+44, FIX+51
LRAPDAN EN+1~, EN+5*, EN+6
>> LRAPDIAL CRE863+6, CRE863+7, CRE863+25
>> LRC(5 TST+17*
>> LRCAPA TST+11, TST+20
>> LRCDT LDSI1+8*, LDSI1+9*, CRE863+7
>> LRCNT LDSI1*, LDSI1+11*, UPD68+17
LRDATA SPMOVE+11~, SPMOVE+15, SPMOVE+29~, SPMOVE+36
LRDATA( SPMOVE+12*, SPMOVE+13*, SPMOVE+15, SPMOVE+33*, SPMOVE+34*, SPMOVE+36
LRDATA(1 SPMOVE+14*, SPMOVE+35*
LRDFN START+11, EN+9, EN+14, EN+19, AU+2, LR7OFA0+8, LR7OFA0+19, LR7OFA0+20, LR7OFA0+26, LR7OFA0+28
TST+5, TST+8, LDSI+15, LDSI1+7, X+3, X+4, X+5, X+6, X+7, OSDIR+12
OSDIR+14, GETSTCS+4, GETSTCS+5, CRE868+5, CRE863+12, CRE863+21, CRE863+34, SPMOVE+12, SPMOVE+15, SPMOVE+16
SPMOVE+28, SPMOVE+32, SPMOVE+33, SPMOVE+36, FIX+3~, FIX+14, FIX+15, FIX+20, FIX+39, FIX+44
FIX+45, FIX+48, FIX+49, FIX+50, FIX+51, FIX+54
LRDIE SPMOVE+11~, SPMOVE+29~, LRMSG+5~, LRMSG+7*
LRDPA FIX+3~
LRDPF FIX+3~
>> LREAL LDSI1+8*, LDSI1+9*
LRERR UPD68+1~, UPD68+10, UPD68+21
LRERR(3 UPD68+10
LRERR(31 UPD68+21
LRFDA CRE868+1~, CRE863+16~
LRFDA(1 CRE868+5*
LRFDA(2 CRE863+22*, CRE863+23*, CRE863+26*, CRE863+27*, CRE863+28*, CRE863+29*, CRE863+30*
LRFDAIEN CRE868+1~, CRE863+16~
LRFDAIEN(1 CRE868+4*, CRE863+20*, CRE863+37
LRFIELD SPMOVE+8~, SPMOVE+30*, SPMOVE+31, SPMOVE+32
LRFIELD( SPMOVE+23*, SPMOVE+24*, SPMOVE+25*, SPMOVE+26*, SPMOVE+31
LRFILE LDSI+2~, LDSI+14*, LDSI+16, LDSI+17, LDSI+19, LDSI+20, UPD68+1~, UPD68+2*, UPD68+4, UPD68+5
UPD68+7, UPD68+14!, UPD68+15*, UPD68+18, UPD68+19, CRE863+16~, CRE863+19*, CRE863+22, CRE863+23, CRE863+26
CRE863+27, CRE863+28, CRE863+29, CRE863+30
LRFLAG SPMOVE+8~, SPMOVE+9*, SPMOVE+16*, SPMOVE+28
LRFMERR LRMSG~, LRMSG+7, LRMSG+8
LRFND START+1~, EN+11, EN+12*, EN+13, EN+14, EN+19!, OS+5*, OS+16*, OS+21*
LRH FIX+3~
LRH(2 EN+11, X+1, OS+18, FIX+11*, FIX+44
LRI EN+3*, LR7OFA0+2, LR7OFA0+8, LR7OFA0+19, LR7OFA0+20, LR7OFA0+26, LR7OFA0+28, TST+5, TST+8, LDSI+15
UPD63+1*, X+7, GETSTCS+1~, GETSTCS+3*, GETSTCS+4*, GETSTCS+5, CRE863+9*, CRE863+12, CRE863+14*, CRE863+20
CRE863+37*, SPMOVE+12, SPMOVE+16, SPMOVE+28, SPMOVE+32, SPMOVE+33, FIX+3~, FIX+14, FIX+15, FIX+20
FIX+39, FIX+44, FIX+45, FIX+54
>> LRIDT EN+3*, LR7OFA0+1, UPD63+1, GETSTCS+4, GETSTCS+5, CRE863+37*
LRIEN UPD68+1~, UPD68+3*, UPD68+4, UPD68+5, UPD68+7, CRE868+1~, CRE868+3*, CRE868+5, CRE863+16~, CRE863+21*
CRE863+22, CRE863+23, CRE863+26, CRE863+27, CRE863+28, CRE863+29, CRE863+30
LRIENS LDSI+2~, LDSI+15*, LDSI+16, LDSI+17, LDSI+19, LDSI+20
LRJ LR7OFA0+17~, LR7OFA0+18*, LR7OFA0+19*, LR7OFA0+20, SPMOVE+8~, SPMOVE+28*, SPMOVE+30, SPMOVE+33
LRLLOC LDSI+2~, LDSI+17*, LDSI+18*, LDSI1+7, CRE863+28
>> LRMD(1 LDSI+6
LRMSG START+1~, START+6*, START+7, START+12*, START+13, EN+17, OS+21, CRE868+2!, CRE868+7, CRE863+17!
CRE863+35
LRNLT LDSI1+3*, ORDTST+3~, ORDTST+4*, ORDTST+9*, ORDTST+11
LRNT LR7OFA0+12, LDSI+2~, LDSI+11*, LDSI+12, LDSI1+7, CRE863+18*, CRE863+30
>> LRO(68 EN+8
LRODT LDSI+2~, LDSI+12*, LDSI1+7, LDSI1+9
LROPL LDSI+2~
LRORD LDSI+2~, LDSI1*, LDSI1+7
>> LRORDR LDSI+9*, LDSI1+7
>> LRORPROV CRE863+27
>> LROT LDSI1*
LROUTINE LDSI+2~, LDSI+5*, UPD68+5
>> LRPHY CRE863+26
LRPRAC LDSI+2~, LDSI+16*, LDSI1+7
>> LRPROVL LDSI+6*
LRRC LR7OFA0+12*, X+6, X+7, X+8!, FIX+3~, FIX+45, FIX+51
LRRECINF LDSI1+2~, LDSI1+7
LRRNAME LRMSG~, LRMSG+6*, LRMSG+8, LRMSG+10
>> LRSAMP LDSI1*, LDSI1+3*, LDSI1+7, UPD68+19
>> LRSD CRE868+7*, CRE863+9*, CRE863+13*, CRE863+22
>> LRSDT LDSI+19*, LDSI1+7
>> LRSF AU+2
>> LRSN LDSI1+8*, LDSI1+9
LRSPEC LDSI1*, LDSI1+1*, LDSI1+3, LDSI1+7, UPD68+18, OS+1~
LRSRDT LDSI+2~, LDSI+20*
LRSREF SPMOVE+8~, SPMOVE+22*, SPMOVE+32
LRSRTN SPMOVE+8~, SPMOVE+9*, SPMOVE+10, SPMOVE+14, SPMOVE+31, SPMOVE+35
LRSS START+11, EN+9, EN+14, EN+19, AU+1, AU+2, LR7OFA0+16, LR7OFA0+19, LR7OFA0+20, LR7OFA0+26
LR7OFA0+29, TST+5, TST+8, TST+11, TST+14, TST+21, TST+22, TST+24, LDSI+14, LDSI1+7
X+1, X+2, X+7, GETSTCS+4, GETSTCS+5, CRE863+12, CRE863+19, CRE863+34, SPMOVE+12, SPMOVE+16
SPMOVE+28, SPMOVE+33, FIX+3~, FIX+9, FIX+14, FIX+15, FIX+20, FIX+39, FIX+43, FIX+47
FIX+54
>> LRSUBBY CRE863+29
>> LRTSORU UPD63+1*
LRTST LDSI+2~, LDSI1*, LDSI1+3*, LDSI1+4, LDSI1+7, UPD68+2, UPD68+4, UPD68+7, UPD63+1
LRTST(0 ORDTST+5
>> LRUID LDSI1+7
>> LRURG UPD63+1*
LRWHN FIX+3~, FIX+11*
LRWKCD ORDTST+3~, ORDTST+4*, ORDTST+9*
LRWP SPMOVE+8~
LRWP(1 SPMOVE+27*
LRWP(2 SPMOVE+31*, SPMOVE+35
LRX OSDIR+7~, OSDIR+8*, OSDIR+9, OSDIR+12, OSDIR+14
LRXR X+7, FIX+3~, FIX+45
LRXREF EN+11, X+1, OS+18, FIX+3~, FIX+44
LRXX START+1~, GETSTCS+2!, GETSTCS+3*
LRXX( LDSI1+1, LDSI1+3, ORDTST+11*, GETSTCS+6*
>> LRY CRE863+9*, CRE863+13*, CRE863+14
MAGNEWCASE TST+26~*
>> ORIFN LDSI+22*, LDSI1+7
PNM FIX+4~
SEX FIX+4~
SRDOC LR7OFA0+6!
>> SRTN SPMOVE+9
U EN+6, EN+12, EN+23, LDSI1+8, OSDIR+14
X EN+12*, LR7OFA0+17~, LR7OFA0+20*, LR7OFA0+21, OS+1~, OSDIR+5, OSDIR+8, OSDIR+9!, OSDIR+14*!, GETSTCS+3*
GETSTCS+5*, GETSTCS+6, CRE868+8*, CRE863+2~, SPMOVE+5*, FIX+4~
XX ORDTST+3~, ORDTST+10*, ORDTST+11*
Y LR7OFA0+19, LR7OFA0+21*, LR7OFA0+24, OS+1~, OS+6, ORDTST+9, ORDTST+11, CRE863+2~, CRE863+6, CRE863+7*
CRE863+9, FIX+4~, FIX+6, FIX+25, FIX+30

Marked Items

Name Field # of Occurrence
$T(ADD^MAGTP005 TST+26
$T(NEW^MAGT7MA TST+30
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 |  Marked Items  | All