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 ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <LRCENDEL.m>

Call Graph

Call Graph Total: 11

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRCENDEL  LRPHITE1  LRPHITE3  

Entry Points

Name Comments DBIA/ICR reference
EN ;from LRPHITE3
END
LOOK ;
NAME ;S LRDFN=+^LRO(69,LRODT,1,$O(^LRO(69,"C",+LRORD,LRODT,0)),0),LRDPF=$P(^LR(LRDFN,0),U,2),DFN=$P(^(0),U,3) D PT^LRX W !,PNM,?30,SSN
TSET
ONE
EN1
UNL69 ;
ALLDEL ;D:BLRLOG ^BLRSLTL("M","D",$G(BLROPT),"ORDER") ;IHS/OIRM TUC/AAB 11/14/96
OUT
FIND
MORE

External References

Name Field # of Occurrence
YN^DICN LOOK+17
^DIE EN1+19
^DIR FIND+11, %+5
NEW^LR7OB1 EN1+17
CEN1^LRCENDE1 EN1+14
DC^LROR6 EN1+8
SHOW^LROS LOOK+3
^LRPARAM FIND
END^LRTSTOUT END+6
FX2^LRTSTOUT ONE+4, OUT+1
SET^LRTSTOUT EN1+11
DUZ^LRX EN1+21
PT^LRX NAME+2
$$CJ^XLFSTR LOOK+20, TSET+1, TSET+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRCENDEL+5
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: !?3,"If lab has received the sample (i.e. the test has an accession),",!,?3,"you can't change this order. If so, use the REMOVE AN ACCESSION option",!,?3,"to change the test."
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FIND+14
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+6
Function Call: WRITE
  • Prompt: !,"No order found with that number."
  • Line Location: LOOK+9
Function Call: WRITE
  • Prompt: !!,"[ * All tests on this order # have already been dispositoned. * ]"
  • Line Location: LOOK+10
Function Call: WRITE
  • Prompt: !!?5," You CAN NOT change the status of test(s) on this order."
  • Line Location: LOOK+12
Function Call: WRITE
  • Prompt: !,"Test sample(s) have already been received into the laboratory."
  • Line Location: LOOK+13
Function Call: WRITE
  • Prompt: !,"You must CONTACT the Laboratory to have test(s) status changed.",$C(7)
  • Line Location: LOOK+14
Function Call: WRITE
  • Prompt: !,"You must use the REMOVE AN ACCESSION option to have the test(s) status changed.",$C(7)
  • Line Location: LOOK+15
Function Call: WRITE
  • Prompt: !,"Change entire order"
  • Line Location: LOOK+17
Function Call: WRITE
  • Prompt: "Answer 'Y'es or 'N'o."
  • Line Location: LOOK+17
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Can't change status of test(s) on this order.",IOM),!
  • Line Location: LOOK+20
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
  • Prompt: "Change status of which entry: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRJ
  • 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+8
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry",!
  • Line Location: EN1+10
Function Call: READ
  • Timeout: DTIME
  • Variable: %
  • Line Location: ALLDEL+5
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: ALLDEL+5
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !,PNM,?30,HRCN
  • Line Location: NAME+2
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
Routine Call
  • DIE
  • Line Location:
    • EN1+19
Routine Call
  • DIR
  • Line Location:
    • FIND+11
    • %+5

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+7
^LR - [#63] EN1+10, EN1+11, NAME+2
^LRO(68 - [#68] EN1+3, EN1+9
^LRO(69 - [#69] LOOK+1, LOOK+3, LOOK+5, LOOK+6, LOOK+7, EN1+1, EN1+2, EN1+18*, OUT+6, OUT+7
, UNL69+1, NAME+2, EN+1, TSET, TSET+4, TSET+7
^XUSEC("LRLAB" EN1+14

Label References

Name Line Occurrences
EN1 ONE+5, OUT+3
END FIND, FIND+12, LOOK+8, LOOK+9, LOOK+11, LOOK+18, ONE+4, OUT+1
FIND FIND+14, EN1+23, ALLDEL+3
LOOK FIND+14, ONE+5
MORE ONE, ONE+2
NAME LOOK+10, LOOK+16
ONE ONE+1, EN1+23
OUT LOOK+18
TSET EN+1
UNL69 LOOK+8, LOOK+9, LOOK+11, LOOK+20, ONE+4, ONE+5, EN1+12, OUT+1, OUT+4, TSET+3

Naked Globals

Name Field # of Occurrence
^( LOOK+7, TSET+4
^(0 EN1+18*, NAME+2, TSET+7
^(3 LOOK+3, TSET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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