Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRCENDEL

Package: Lab Service

Routine: LRCENDEL


Information

LRCENDEL ;SLC/CJS/DALOI/FHS - ORDER CANCELING NO TEST DELETE ;July 29, 2019@10:00

Source Information

Source file <LRCENDEL.m>

Entry Points

Name Comments DBIA/ICR reference
FIND
LOOK ;
MORE
ONE
PANEL ;
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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(69 - [#69] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call