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

Package: Lab Service

Routine: LRCENDEL


Information

LRCENDEL ;SLC/CJS/DALOI/FHS - ORDER CANCELING NO TEST DELETE ;04/12/12 13:14

Source Information

Source file <LRCENDEL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 7 NEW^LR7OB1  CEN1^LRCENDE1  DC^LROR6  SHOW^LROS  ^LRPARAM  ($$CHK63,END,FX2,LEDICHK,LEDISET,SET)^LRTSTOUT  (DUZ,PT)^LRX  
VA FileMan 3 YN^DICN  ^DIE  ^DIR  
Kernel 1 $$CJ^XLFSTR  

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

Package Total Caller Graph
Lab Service 3 LRCENDEL  LRPHITE1  LRPHITE3  

Entry Points

Name Comments DBIA/ICR reference
FIND
LOOK ;
MORE
ONE
EN1
OUT
UNL69 ;
NAME
EN ;from LRPHITE3
TSET
GET63 ;
L63 ;
L63ALL ;
UNL63 ;
CHK63(LRDFN,LRODT,LRSN,LRTSTI) ; ccr_5538n - Check if tests being NP already have results in file #63.
END

External References

Name Field # of Occurrence
YN^DICN LOOK+15
^DIE EN1+17
^DIR FIND+10
NEW^LR7OB1 EN1+15
CEN1^LRCENDE1 EN1+12
DC^LROR6 EN1+5
SHOW^LROS LOOK+3
^LRPARAM FIND
$$CHK63^LRTSTOUT CHK63+13
END^LRTSTOUT END+3
FX2^LRTSTOUT ONE+5, OUT+2
LEDICHK^LRTSTOUT EN1+9
LEDISET^LRTSTOUT ONE+8, OUT+6
SET^LRTSTOUT EN1+8
DUZ^LRX EN1+19
PT^LRX NAME
$$CJ^XLFSTR LOOK+18, TSET+1, TSET+2, TSET+12, TSET+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRCENDEL+3
Function Call: WRITE
  • Prompt: !?3,"If lab has received the sample (i.e. the test has an accession),",!,"you can't change this order. If so, call the lab to change the test."
  • Line Location: FIND+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FIND+13
Function Call: WRITE
  • Prompt: !,"Not found."
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !?5,"Someone Else is Editing this order, try later",!
  • Line Location: LOOK+5
Function Call: WRITE
  • Prompt: !,"No order found with that number."
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !!,"[ * All tests on this order # have already been dispositioned. * ]"
  • Line Location: LOOK+9
Function Call: WRITE
  • Prompt: !!?5," You CAN NOT change the status of test(s) on this order."
  • Line Location: LOOK+11
Function Call: WRITE
  • Prompt: !,"Test sample(s) have already been received into the laboratory."
  • Line Location: LOOK+12
Function Call: WRITE
  • Prompt: !,"You must CONTACT the Laboratory to have test(s) status changed.",$C(7)
  • Line Location: LOOK+13
Function Call: WRITE
  • Prompt: !,"Change entire order"
  • Line Location: LOOK+15
Function Call: WRITE
  • Prompt: "Answer 'Y'es or 'N'o."
  • Line Location: LOOK+15
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Can't change status of test(s) on this order.",IOM),!
  • Line Location: LOOK+18
Function Call: WRITE
  • Prompt: !,?8,"entry",?15,"test",?40,"sample"
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: !,?10,J,?15,$P(^LAB(60,$P(LRT(J),U,3),0),U),?40,$P(LRT(J),U,4)
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: !,"All have been dispositioned from that order."
  • Line Location: MORE+2
Function Call: READ
  • Formatting: !
  • Prompt: "Change status of which entry: "
  • Variable: LRJ
  • Timeout: DTIME
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and ",LRT,!
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !,"You've already dispositioned that one.",!
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !,"Does not exist ",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,$C(7),"NOTHING CHANGED"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry",!
  • Line Location: EN1+7
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Test(s) already verified for this order, cannot change ENTIRE order",IOM)
  • Line Location: TSET+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" You must select individual test using the 'Delete Test from Accession' option.",IOM),!!
  • Line Location: TSET+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Test result(s) already entered for this order; cannot change order.",IOM)
  • Line Location: TSET+12
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You must select individual test using the 'Delete test from accession' option.",IOM),!!
  • Line Location: TSET+13
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry",!
  • Line Location: L63+5
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry",!
  • Line Location: L63ALL+9
Routine Call
  • DIE
  • Line Location:
    • EN1+17
Routine Call
  • DIR
  • Line Location:
    • FIND+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(69 - [#69] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] MORE+1, EN1+4
^LAB(61 - [#61] TSET+19
^LR - [#63] NAME, L63+5, L63ALL+9, UNL63+6
^LRO(68 - [#68] EN1+3, EN1+6, GET63+5, GET63+7, CHK63+10, CHK63+12
^LRO(69 - [#69] LOOK+1, LOOK+3, LOOK+4, LOOK+5, LOOK+6, EN1+1, EN1+2, EN1+16*, OUT+9, OUT+10
, UNL69+1, NAME, EN+1, TSET, TSET+4, TSET+19, CHK63+4, CHK63+5
^XUSEC("LRLAB" EN1+12

Label References

Name Line Occurrences
$$CHK63 TSET+10
% %
EN1 ONE+7, OUT+5
END FIND, FIND+11, LOOK+7, LOOK+8, LOOK+10, LOOK+16, ONE+3, ONE+5, OUT+1, OUT+2
FIND FIND+15, EN1+21, OUT+11
GET63 TSET+19
L63 ONE+3
L63ALL OUT+1
LOOK FIND+15, ONE+10
MORE ONE, ONE+2
NAME LOOK+9, LOOK+14
ONE ONE+1, EN1+21
OUT LOOK+16
TSET EN+1
UNL63 ONE+3, ONE+5, ONE+9, OUT+2, OUT+7, L63ALL+10
UNL69 LOOK+7, LOOK+8, LOOK+10, LOOK+18, ONE+3, ONE+5, ONE+9, EN1+10, OUT+1, OUT+2
, OUT+7, TSET+3, TSET+14

Naked Globals

Name Field # of Occurrence
^( LOOK+6, TSET+4
^(0 EN1+16*, NAME, TSET+19
^(3 LOOK+3, TSET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOOK+15*, LOOK+16, %*, END!
A END!
AGE END!
>> DA EN1+17*
>> DA(1 EN1+17*
DFN NAME*, END!
DIC END!
DIE EN1+17*, END!
DIR FIND+4~
DIR("?" FIND+7*
DIR("??" FIND+8*
DIR("A" FIND+5*
DIR("S" FIND+9*
DIR(0 FIND+6*
>> DIROUT FIND+11
>> DIRUT FIND+11
DOB END!
DQ END!
DR EN1+17*, END!
DTIME ONE, %
>> DTOUT FIND+11
>> DUOUT FIND+11
DUZ EN1+12, EN1+16, EN1+19
DWLW END!
I LOOK+15*, TSET+4*, TSET+10, TSET+19, END!
IOF LRCENDEL+3, FIND+13
IOM LOOK+18, TSET+1, TSET+2, TSET+12, TSET+13
J LOOK+17*, MORE+1*, EN+1*, TSET+19*, GET63+2, GET63+4, GET63+6, GET63+8, GET63+9, END!
K END!
LR60 CHK63+2~, CHK63+6*, CHK63+11, CHK63+13
LR63DAT GET63+1~, GET63+7*, GET63+8, GET63+9
LR63LKCT FIND+14*, L63+6*, L63+7, L63ALL+11*, L63ALL+12, UNL63+2, UNL63+7*, END+5!
LR63LKS L63ALL+2!, L63ALL+10!, L63ALL+14!
LR63LKS( L63ALL+8, L63ALL+13*
LR63LOCK FIND+14!, UNL63+7!, END+5!
LR63LOCK( L63+7*, L63ALL+12*, UNL63+3
LRAA EN1+2*, EN1+3, EN1+6, OUT+10*, CHK63+2~, CHK63+8*, CHK63+10, CHK63+11, CHK63+12, END!
LRACC EN1+2*, EN1+12, OUT+10*, END!
LRACC3 GET63+1~, GET63+5*, GET63+6, GET63+7
LRACN END+4!
LRACN0 END!
LRAD EN1+2*, EN1+6, OUT+10*, CHK63+2~, CHK63+7*, CHK63+11, CHK63+12, END!
LRAN EN1+2*, EN1+6, OUT+10*, CHK63+2~, CHK63+9*, CHK63+11, CHK63+12, END!
LRAREA GET63+1~, GET63+3*, GET63+4, GET63+5, GET63+7
LRCANK LRCENDEL+3~, LOOK+2*, LOOK+6*, LOOK+9, END+3!
LRCCOM OUT+3, OUT+5*, END+3!
LRCCOM1 END+3!
LRCCOMX OUT+3*, OUT+5, OUT+7!
LRCL END!
LRCNT LOOK+1*, LOOK+3*, LOOK+8, END!
LRCOL LOOK+2*, LOOK+4*, LOOK+10, END!
LRDAY GET63+1~, GET63+3*, GET63+4, GET63+5
LRDFN FIND+1!, NAME*, TSET+10, GET63+9, L63+4, L63+5, L63+7, L63ALL+7, L63ALL+8, L63ALL+9
, L63ALL+12, L63ALL+13, UNL63+5, UNL63+6, CHK63~, CHK63+13
LRDOC END!
LRDPF NAME*, END!
LRDTM END!
LREND FIND*, LOOK+3, LOOK+5*, LOOK+7, ONE+3, ONE+5, EN1*, OUT+1, OUT+2, L63+5*
, L63ALL+4, L63ALL+9*, L63ALL+10, END!
LRI EN1+14~, EN1+15, EN1+18!, L63ALL+1~, L63ALL+3*, L63ALL+4*, L63ALL+5, UNL63+1~, UNL63+2*, UNL63+3
LRI( EN1+14*
LRIDAT L63+1~, L63+3*, L63+4, L63+5, L63+7, L63ALL+1~, L63ALL+6*, L63ALL+7, L63ALL+8, L63ALL+9
, L63ALL+12, L63ALL+13, UNL63+1~, UNL63+4*, UNL63+5, UNL63+6
LRIDT EN1+6*, CHK63+2~, CHK63+12*, CHK63+13, END!
LRJ ONE*, ONE+1, ONE+2, EN1, EN1+16, OUT*, OUT+5*, L63+2, END+4!
>> LRLABKY FIND+2, LOOK+4, TSET+6
LRLL END+1!
LRLLOC END+1!
LRMSTATI ONE+6!, EN1+15
LRNATURE FIND+1!, ONE+4!, EN1+5, EN1+15, OUT+11!, END+2!
LRNOP LOOK+15*, EN1+2*, EN1+13, EN1+21, OUT, OUT+10*, EN+1*, TSET+3*, TSET+4, TSET+15*
, CHK63+2~, CHK63+3*, CHK63+4, CHK63+11, CHK63+14*, CHK63+15, END+1!
LRNOW END+1!
LROD0 END+1!
LROD1 END+1!
LROD3 END+1!
LRODT LOOK+1*, LOOK+3, LOOK+4, LOOK+6, EN1+1, EN1+2, EN1+15, EN1+16, EN1+17, OUT+9
, OUT+10, NAME, EN+1, TSET, TSET+4, TSET+10, TSET+19, CHK63~, CHK63+4, CHK63+5
, END+1!
LRONE FIND+1!, EN1+2*, EN1+12!, OUT+10*
LROOS END+1!
LRORD FIND+12*, LOOK+1, LOOK+3, LOOK+5, OUT+9, UNL69+1, NAME, EN+1, END+1!
LROS END+1!
LROSD END+1!
LROT END+1!
LROTA ONE+6!, ONE+8, OUT+4!, OUT+6, END+4!
LROV LOOK+2*, LOOK+3*, LOOK+15, LOOK+16, TSET+16*, END+1!
LRROD END+1!
LRSCNXB END+2!
LRSEQ GET63+1~, GET63+3*, GET63+4, GET63+5
LRSN LOOK+2*, LOOK+3*, LOOK+4, LOOK+6, EN1*, EN1+1, EN1+2, EN1+15, EN1+16, OUT+9*
, OUT+10, EN+1*, TSET, TSET+4, TSET+10, TSET+19, CHK63~, CHK63+4, CHK63+5, END+2!
LRSPEC TSET+19*, END+2!
LRSS EN1+3*, CHK63+2~, CHK63+10*, CHK63+11, CHK63+13, END+2!
LRSUB GET63+1~, GET63+7*, GET63+8, GET63+9, L63+1~, L63+3*, L63+4, L63+5, L63+7, L63ALL+1~
, L63ALL+6*, L63ALL+7, L63ALL+8, L63ALL+9, L63ALL+12, L63ALL+13, UNL63+1~, UNL63+4*, UNL63+5, UNL63+6
LRT LOOK+17*, LOOK+18, MORE+1*, MORE+2, ONE+1, EN+1!, TSET+17!, END+2!
LRT( LOOK+17, MORE+1, ONE+2, EN1, OUT+5, TSET+19*, GET63+2
LRT(0 EN1+21
LRT63 EN+1!, TSET+17!, END+5!
LRT63( GET63+4*, GET63+6*, GET63+8*, GET63+9*, L63+2, L63ALL+4, L63ALL+5
LRTC END+2!
LRTN LRCENDEL+3~, LOOK+6*, END+3!
>> LRTNM EN1+4*
LRTP END+2!
>> LRTSN EN1+14
LRTSTI ONE+6!, EN1*, EN1+1, EN1+2, EN1+13, EN1+16, EN1+17, OUT+10, CHK63~, CHK63+4
, CHK63+5, END+4!
LRTSTS EN1*, EN1+4, END+2!
LRTT END+2!
LRURG END+2!
LRUSI END+2!
LRUSNM END+2!
LRWRD END+2!
LRX EN1+2*, OUT+10*, TSET+9~, TSET+10*, TSET+11, GET63+1~, GET63+2*, GET63+3, L63+1~, L63+2*
, L63+3, L63ALL+1~, L63ALL+5*, L63ALL+6, UNL63+1~, UNL63+3*, UNL63+4, CHK63+2~, CHK63+5*, CHK63+6
, CHK63+7, CHK63+8, CHK63+9, CHK63+13*, CHK63+14
ORIFN EN1+2*, OUT+10*, END+2!
PNM NAME, END+2!
SEX END+2!
SSN NAME, END+2!
T END+2!
T( EN1+16!
U LOOK+3, LOOK+4, MORE+1, EN1, EN1+2, EN1+3, EN1+4, EN1+6, OUT+10, NAME
, TSET+6, TSET+19, GET63+3, GET63+7, GET63+9, L63+3, L63+7, L63ALL+6, L63ALL+12, UNL63+4
, CHK63+6, CHK63+7, CHK63+8, CHK63+9, CHK63+10, CHK63+12
X FIND+12, LOOK+6*, EN1+19*, TSET+4*, TSET+5, TSET+6, TSET+19, END+2!
X1 END+2!
X2 END+2!
X3 END+2!
X4 END+2!
Y END+2!
Z END+2!
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