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
Print Page as PDF
Routine: LRCE

Package: Lab Service

Routine: LRCE


Information

LRCE ;DALOI/JMC - LOOK-UP ON CENTRAL ENTRY # ; 12/20/17 8:51am

Source Information

Source file <LRCE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
NEXT
DIS ;
CAN(ORD) ;See if all tests have been canceled
ADDTST ;
ADDEND ;
LR2 ;
UNIV ; see if entry is UID
CHKPAGE ;
PT ;
HEAD ;
TST
NXT
SEL
LUPT ;
LU1 ;
FSN ;
TEST ;
REF ; If referred test, display status and manifest
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Enter a whole number for the order number."
  • Line Location: NEXT+4
Function Call: WRITE
  • Prompt: " NUMBER NOT FOUND"
  • Line Location: NEXT+7
Function Call: WRITE
  • Prompt: !!,?5,"This order has been canceled."
  • Line Location: NEXT+9
Function Call: WRITE
  • Prompt: !,?5,"Tests WILL NOT be added. A new order must be placed."
  • Line Location: NEXT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !!?15,"LISTING OF DATES "
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !?5,CNT,?10,$$FMTE^XLFDT(LRODT,"5FM")
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKPAGE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKPAGE+8
Function Call: WRITE
  • Prompt: " NO PATIENT"
  • Line Location: PT+5
Function Call: WRITE
  • Prompt: !!,"ORDER #: ",LRORD,?20,"PAT: ",PNM," SSN: ",SSN,!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: "WHO ENTERED: ",$E(LRWHOE,1,25)
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+24
Function Call: WRITE
  • Prompt: "TO BE DRAWN: ",$$FMTE^XLFDT($P(LROR,U,8),"ZM")
  • Line Location: HEAD+26
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+30
Function Call: WRITE
  • Prompt: " LAB ARRIVAL: ",$$FMTE^XLFDT(+$G(^(3)),"ZM")
  • Line Location: HEAD+31
Function Call: WRITE
  • Prompt: ?40,"PROVIDER: ",$E(LRMD,1,30)
  • Line Location: HEAD+37
Function Call: WRITE
  • Prompt: !,"COMMENT: ",$P(^LRO(69,LRODT,1,LRSN,1),U,6)
  • Line Location: TST+9
Function Call: WRITE
  • Prompt: !,?3,^(I,0)
  • Line Location: TST+11
Function Call: WRITE
  • Prompt: !,"Order has already been accessioned."
  • Line Location: NXT+1
Function Call: WRITE
  • Prompt: !,"Tests have been accessioned, call the lab to add tests to the same order."
  • Line Location: NXT+3
Function Call: WRITE
  • Prompt: !?5,"This Order was Merged "
  • Line Location: NXT+5
Function Call: WRITE
  • Prompt: !,"Is this the one"
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Order date to start from: T//"
  • Line Location: LU1+1
Function Call: WRITE
  • Prompt: !," TEST: ",$S($D(^LAB(60,+X,0)):$P(^(0),"^"),1:"UNKNOWN"),?28," "
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: $E($S($D(^LAB(62.05,LRURG,0)):$P(^(0),U),1:"ROUTINE"),1,15)
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: ?38," ",$S($D(^LRO(68,+$P(X,"^",4),0)):$P(^(0),"^"),1:""),?50," ",$P(X,"^",5),?55
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !?3,"Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^")
  • Line Location: TEST+10
Function Call: WRITE
  • Prompt: !?5,^(0)
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: !?5,^(0)
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: " <"_LRUID_">"
  • Line Location: REF+6
Function Call: WRITE
  • Prompt: !,?4,"REFERRAL STATUS: "_$P(LREVNT,"^")_" ("_$P(LREVNT,"^",2)_")"
  • Line Location: REF+15
Function Call: WRITE
  • Prompt: !,?4,"SHIPPING MANIFEST: "_$P(LREVNT,"^",3)
  • Line Location: REF+16
Function Call: WRITE
  • Prompt: " using shipping config "_LRSCFG(0)
  • Line Location: REF+17
Info |  Source |  Entry Points |  Interaction Calls