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

Package: Lab Service

Routine: LRAPKOE


Information

LRAPKOE ;DSS/FHS - CRPS AP LAB ORDER ENTRY AND ACCESSION ;Jun 21, 2022@15:03:04

Source Information

Source file <LRAPKOE.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
; Called from EN^LRAPLG
; Process CPRS AP Orders
L5 ;
NEXT ;from LROE1
NEXT2 ;
SET68 ;Setup ^LRO(68,LRAA,1,LRAD,1,LRAN
MOVE(LRDFN,LRSS,LRI) ;Move CPRS AP Dialog to ^LR(LRDFN,LRSS,LRI)
ORDTST ; Ordered test
LROE2 ;
QMSG
END
GOT(ORD) ;See if all tests have been canceled
UPD68 ; Update #68 with required test data
SPEC68 ; Update #68 with specimen data
DOC(RET,LABEL) ; Return provider
DATE(RET,LABEL) ;
DA(Y) ; Returns date in eye-readable month format
LR7OB1 ;Update CPRS to active status
LR7OFAO ;Update ^LRO(69 with accession data.
DIS63(LRDFN,LRSS,LRIDT) ;Display ^LR(LRDFN,LRSS,LRIDT data
SPEC63(LRDFN,LRSS,LRIDT,LRAPSPEC) ;Load AP Specimens into ^LR(
LRCOM(LRDFN,LRSS,LRIDT,LRCOM) ;Store Comments into ^LR(
CLEAN ;Kill variable
WKLD ;Setup workload info
SET1
PAGE ;Page Prompt
UNLOCK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"ROLLOVER ",$S($P(^("RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.")," ACCESSIONING SHOULDN'T BE DONE NOW.",$C(7),!
  • Line Location: NEXT+7
Function Call: WRITE
  • Prompt: !,"OK, try later."
  • Line Location: NEXT+9
Function Call: READ
  • Variable: LRORD
  • Timeout: DTIME
  • Line Location: NEXT+12
Function Call: WRITE
  • Prompt: !!,"Select Order number: "
  • Line Location: NEXT+12
Function Call: WRITE
  • Prompt: !,"Wrong format"
  • Line Location: NEXT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEXT+13
Function Call: WRITE
  • Prompt: !?5,"No Order Number entered use standard Specimen Log-in process",!
  • Line Location: NEXT+13
Function Call: WRITE
  • Prompt: !,"The order number entered is too long."
  • Line Location: NEXT+14
Function Call: WRITE
  • Prompt: !!?10,LRORD_" Does not exist, select another ",$C(7),!
  • Line Location: NEXT+16
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this Order",!!,$C(7)
  • Line Location: NEXT+18
Function Call: WRITE
  • Prompt: !,!,?5,@LRVIDO,"Patient ",PNM," died on: ",Y,@LRVIDOF
  • Line Location: NEXT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXT+23
Function Call: WRITE
  • Prompt: !,"The order has already been partially accessioned."
  • Line Location: NEXT+30
Function Call: WRITE
  • Prompt: !,"The order has already been accessioned."
  • Line Location: NEXT+31
Function Call: WRITE
  • Prompt: !,"No order exists with that number."
  • Line Location: NEXT+32
Function Call: WRITE
  • Prompt: !!,"All tests for this order have been canceled.",!
  • Line Location: NEXT+33
Function Call: WRITE
  • Prompt: !?5,"Specimen already processed"
  • Line Location: NEXT+35
Function Call: WRITE
  • Prompt: !,"No Pathologist selected"
  • Line Location: NEXT+37
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(LRERR,IOM)
  • Line Location: NEXT2+17
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Log-in Aborted",IOM),!
  • Line Location: NEXT2+18
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("The order# "_LRORD_" has been "_ANS,IOM),!
  • Line Location: LROE2+6
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Select another order",IOM),!
  • Line Location: LROE2+7
Function Call: WRITE
  • Prompt: !?5,"No AP Dialog for this order"
  • Line Location: LROE2+16
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: LROE2+22
Function Call: WRITE
  • Prompt: ?45,"Requesting location: ",$P(LRZX,U,7)
  • Line Location: LROE2+23
Function Call: WRITE
  • Prompt: !,"Date/Time Ordered: ",Y,?45,"By: ",$S($D(^VA(200,+$P(LRZX,U,2),0)):$P(^(0),U),1:"")
  • Line Location: LROE2+23
Function Call: WRITE
  • Prompt: !,"Enter the order entry number assigned when the test was ordered."
  • Line Location: QMSG+0
Function Call: WRITE
  • Prompt: !,"To exit, type the ""^"" key and RETURN key."
  • Line Location: QMSG+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("**** Enter Next Order ****",IOM),!
  • Line Location: SPEC68+28
Function Call: WRITE
  • Prompt: @IOF,!!,$$CJ^XLFSTR("-------------------------------------",IOM),!
  • Line Location: DIS63+2
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Display of CPRS data in LAB DATA file",IOM),!
  • Line Location: DIS63+3
Function Call: WRITE
  • Prompt: !?5,ID_":"
  • Line Location: DIS63+12
Function Call: WRITE
  • Prompt: !,ANS(LRFILE,IEN,ID,CNT,0)
  • Line Location: DIS63+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+4
Info |  Source |  Entry Points |  Interaction Calls