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 |  Local Variables  | All
Print Page as PDF
Routine: LR7ORB3

Package: Lab Service

Routine: LR7ORB3


Information

LR7ORB3 ;DALOI/JMC - Lab CPRS Notification Utility ;03/07/13 15:23

Source Information

Source file <LR7ORB3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 3 EN^DDIOL  ^DIC  ^DIR  
Registration 2 INP^VADPT  ADM^VADPT2  
Automated Lab Instruments 1 $$OK2SEND^LA7SRR  
Kernel 1 $$NAME^XUSER  
Lab Service 1 (,$$CHECKUID)^LRWU4  
Order Entry Results Reporting 1 EN^ORB3  
Scheduling 1 $$OUTPTPR^SDUTL3  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Lab Service 2 LRMIEDZ2  LRVER3  

Entry Points

Name Comments DBIA/ICR reference
SETUP(LRDFN,LRSS,LRIDT,LRUID) ; Setup a CPRS notification
; Call with LRDFN = file #63 IEN
; LRSS = file #63 subscript
; LRIDT = inverse d/t of entry in file #63
; LRUID = accession's UID
GETDOCS(LRDOCS,LRDFN,LRSS,LRIDT) ; Return PCP(inpatient PC/attending/outpt PC/outpt assoc PC/outpt attending) and ordering provider
MORE ; Add names or mail groups to the lookup list?
LOOKUP ; Add additional names or mail groups to alert list.
AHELP ; Help Frame
CURREC ; Build list of current recipients.
OR(LRTYPE,LRDFN,LRSS,LRIDT,LRUID,LRXQA,LRTST) ; Send OR notification
SELTEST(LRUID) ; Select test on accession for alert messsage - screen out workload tests
ASKXQA(LRDFN,LRSS,LRIDT,LRUID,LRDEFAULT) ; Ask if user wants to send a CPRS notification/alert for this accession.
; Call with LRDFN = file #63 IEN
; LRSS = file #63 subscript
; LRIDT = inverse d/t of entry in file #63
; LRUID = accession's UID
; LRDEFAULT = default answer for DIR call (1-NO,2-YES)
SENDOR ; Send a CPRS alert for an accession.
; - User is prompted to select the accession and tests.

External References

Name Field # of Occurrence
EN^DDIOL SETUP+29, SETUP+39, LOOKUP+34, AHELP+10
^DIC LOOKUP+24, SELTEST+31
^DIR SETUP+19, SETUP+42, MORE+12, LOOKUP+17, ASKXQA+12
$$OK2SEND^LA7SRR SENDOR+20
^LRWU4 SENDOR+7
$$CHECKUID^LRWU4 OR+20, SELTEST+10
EN^ORB3 OR+52
$$OUTPTPR^SDUTL3 GETDOCS+22, GETDOCS+24
INP^VADPT GETDOCS+19
ADM^VADPT2 GETDOCS+16
$$GET^XPAR MORE+9
$$NAME^XUSER GETDOCS+8, CURREC+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP+7
Function Call: WRITE
  • Prompt: " ...",$P(LRY,"^",2)
  • Line Location: ASKXQA+16
Function Call: WRITE
  • Prompt: !,"Doesn't exist."
  • Line Location: SENDOR+9
Function Call: WRITE
  • Prompt: !,"CPRS Alerts only support patients from the PATIENT file (#2)"
  • Line Location: SENDOR+13
Function Call: WRITE
  • Prompt: !,"Accession missing associated UID"
  • Line Location: SENDOR+15
Function Call: WRITE
  • Prompt: !,"Incomplete accession - unable to identify results."
  • Line Location: SENDOR+16
Function Call: WRITE
  • Prompt: !,"This option only supports CH and MI subscripted accessions."
  • Line Location: SENDOR+18
Function Call: WRITE
  • Prompt: !,"Use option 'Send an AP Alert' [LRAP ALERT] to send AP alerts"
  • Line Location: SENDOR+19
Function Call: WRITE
  • Prompt: !,"This accession has not been released."
  • Line Location: SENDOR+20
Function Call: WRITE
  • Prompt: " ...",$P(LRY,"^",2)
  • Line Location: SENDOR+22
Routine Call
  • DIC
  • Line Location:
    • LOOKUP+24
    • SELTEST+31
Routine Call
  • DIR
  • Line Location:
    • SETUP+19
    • SETUP+42
    • MORE+12
    • LOOKUP+17
    • ASKXQA+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] SELTEST+23
^LR - [#63] GETDOCS+7, GETDOCS+10, GETDOCS+14, OR+16, SENDOR+12
^LRO(68 - [#68] OR+22, SELTEST+17, SELTEST+22, SELTEST+23, SENDOR+9, SENDOR+11, SENDOR+14
^LRO(69 - [#69] OR+26, OR+27, OR+28, OR+29, OR+30

Label References

Name Line Occurrences
$$OR SETUP+44
$$SELTEST SETUP+13
$$SETUP ASKXQA+15, SENDOR+21
CURREC SETUP+29, SETUP+39, AHELP+8
GETDOCS SETUP+24
LOOKUP SETUP+32
MORE SETUP+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SENDOR+3~
DFN SETUP+8~, GETDOCS+2~, GETDOCS+10*, GETDOCS+22, GETDOCS+24, OR+2~, OR+16*, OR+52
DIC SETUP+8~, LOOKUP+1~, LOOKUP+21!, LOOKUP+22*, SELTEST+6~, SELTEST+29*, SENDOR+3~, SENDOR+10!
DIC("A" SELTEST+30*
DIC("S" LOOKUP+23*, SELTEST+30*
DIC(0 LOOKUP+22*, SELTEST+29*
DIR SETUP+8~, SETUP+40!, MORE+1~, LOOKUP+1~, LOOKUP+8!, SELTEST+6~, ASKXQA+7~, SENDOR+3~
DIR("?" MORE+11*, LOOKUP+12*, LOOKUP+13*, LOOKUP+14*
DIR("??" LOOKUP+15*
DIR("A" SETUP+41*, MORE+8*, LOOKUP+11*, ASKXQA+10*
DIR("B" SETUP+41*, MORE+10*, ASKXQA+11*
DIR("PRE" LOOKUP+16*
DIR(0 SETUP+18*, SETUP+41*, MORE+7*, LOOKUP+10*, ASKXQA+10*
DIROUT SELTEST+6~, SENDOR+3~
DIRUT SETUP+8~, SETUP+20, MORE+1~, LOOKUP+1~, LOOKUP+18, SELTEST+6~, ASKXQA+7~, SENDOR+3~
DT GETDOCS+15
DTOUT SETUP+8~, MORE+1~, MORE+14, LOOKUP+1~, ASKXQA+7~
DUOUT SETUP+8~, MORE+1~, MORE+14, LOOKUP+1~, SELTEST+6~, ASKXQA+7~, SENDOR+3~
LR6903 OR+25~, OR+26*, OR+27*, OR+28
LRAA SELTEST+6~, SELTEST+11*, SELTEST+17, SELTEST+22, SELTEST+23, SENDOR+3~, SENDOR+9, SENDOR+11, SENDOR+14
LRACC SENDOR+3~, SENDOR+7*
LRAD SELTEST+6~, SELTEST+11*, SELTEST+17, SELTEST+19, SELTEST+20*, SELTEST+22, SELTEST+23, SENDOR+3~, SENDOR+9, SENDOR+11
SENDOR+14
LRADL LOOKUP+1~, LOOKUP+19*, LOOKUP+20*, LOOKUP+22, LOOKUP+23, LOOKUP+27, LOOKUP+28, LOOKUP+30, LOOKUP+31, LOOKUP+33
LRADO SELTEST+6~, SELTEST+17*, SELTEST+19, SELTEST+20
LRAN SELTEST+6~, SELTEST+11*, SELTEST+17, SELTEST+22, SELTEST+23, SENDOR+3~, SENDOR+8, SENDOR+9, SENDOR+11, SENDOR+14
LRC SETUP+8~, SETUP+25*, SETUP+26*
LRDEFAULT ASKXQA~, ASKXQA+9*, ASKXQA+11
LRDELETE LOOKUP+1~, LOOKUP+9*, LOOKUP+26, LOOKUP+33
LRDFN SETUP~, SETUP+24, SETUP+44, GETDOCS~, GETDOCS+7, GETDOCS+10, GETDOCS+14, OR~, OR+16, ASKXQA~
, ASKXQA+15, SENDOR+3~, SENDOR+10!, SENDOR+11*, SENDOR+12, SENDOR+16, SENDOR+21
LRDOCS SETUP+8~, SETUP+24, GETDOCS~, GETDOCS+4*, GETDOCS+8*, GETDOCS+20*, GETDOCS+21*, GETDOCS+23*, GETDOCS+25*
LRDOCS( SETUP+26, GETDOCS+8*, GETDOCS+20*, GETDOCS+21*, GETDOCS+23*, GETDOCS+25*
LRDPF GETDOCS+2~, GETDOCS+10*, GETDOCS+11, SENDOR+3~, SENDOR+10!, SENDOR+12*, SENDOR+13
LRDT GETDOCS+12~, GETDOCS+14*, GETDOCS+15*, GETDOCS+16, GETDOCS+22, GETDOCS+24
LREND SENDOR+3~, SENDOR+5, SENDOR+6*, SENDOR+8*
LRI AHELP+1~, CURREC+2~, CURREC+10*, CURREC+11*, CURREC+12, CURREC+13, SELTEST+6~, SELTEST+21*, SELTEST+22*, SELTEST+23
LRIDT SETUP~, SETUP+24, SETUP+44, GETDOCS~, GETDOCS+7, GETDOCS+14, OR~, OR+32, ASKXQA~, ASKXQA+15
SENDOR+3~, SENDOR+10!, SENDOR+11*, SENDOR+16, SENDOR+21
LRIENS OR+2~, OR+32*, OR+52
LRJ SETUP+28~, SETUP+38~, CURREC+2~, CURREC+6*, CURREC+8*, CURREC+10*, CURREC+12*, CURREC+13, SELTEST+6~, SELTEST+18*
, SELTEST+19, SELTEST+20
LRLAB SENDOR+3~
LRMORE SETUP+8~, SETUP+31*, SETUP+32, MORE+6*, MORE+13*
LRMSG SETUP+28~, SETUP+29, SETUP+38~, SETUP+39, LOOKUP+1~, LOOKUP+32!, LOOKUP+33*, LOOKUP+34, AHELP+1~, AHELP+10
, OR+2~, OR+35*, OR+36*, OR+39*, OR+40*, OR+42*, OR+52
LRMSG( CURREC+8*, CURREC+10*, CURREC+12*, CURREC+13*
LRMSG("" CURREC+6
LRMSG(1 AHELP+3*
LRMSG(2 AHELP+4*
LRMSG(3 AHELP+5*
LRODT OR+2~, OR+23*, OR+24, OR+26, OR+27, OR+28, OR+29, OR+30, OR+32
LROE OR+2~, OR+23*, OR+30*, OR+32
LROIFN OR+2~, OR+23*, OR+28*, OR+29*, OR+32, OR+52
LRPCP GETDOCS+12~, GETDOCS+13*, GETDOCS+20*, GETDOCS+21*, GETDOCS+23*, GETDOCS+25*
LRPREFIX OR+2~, OR+18*, OR+35, OR+39
LRQUIT SETUP+8~, MORE+14*, LOOKUP+5*, LOOKUP+6, LOOKUP+18*
LRSN OR+2~, OR+23*, OR+24, OR+26, OR+27, OR+28, OR+29, OR+30, OR+32
LRSS SETUP~, SETUP+24, SETUP+44, GETDOCS~, GETDOCS+5, GETDOCS+7, GETDOCS+14, OR~, OR+14, OR+20
, OR+32, OR+34, OR+38, ASKXQA~, ASKXQA+15, SENDOR+3~, SENDOR+10!, SENDOR+11*, SENDOR+16, SENDOR+17
SENDOR+21
LRSTOP SENDOR+3~, SENDOR+5, SENDOR+6*
LRTEST SELTEST+6~, SELTEST+25
LRTEST( SELTEST+23*, SELTEST+34
LRTST SETUP+8~, SETUP+15*, SETUP+44, OR~, OR+26, OR+27, OR+42
LRTYPE SETUP+8~, SETUP+10*, SETUP+21*, SETUP+37, SETUP+44, OR~, OR+18, OR+35, OR+39, OR+52
LRUID SETUP~, SETUP+13, SETUP+44, OR~, OR+20, SELTEST~, SELTEST+10, ASKXQA~, ASKXQA+15, SENDOR+3~
SENDOR+14*, SENDOR+15, SENDOR+21
LRVBY SENDOR+3~, SENDOR+6*
LRX SETUP+8~, GETDOCS+2~, GETDOCS+7*, GETDOCS+8, GETDOCS+22*, GETDOCS+23, GETDOCS+24*, GETDOCS+25, OR+2~, OR+20*
, OR+21, OR+22, SELTEST+6~, SELTEST+10*, SELTEST+11
LRXQA SETUP+8~, SETUP+10*, SETUP+25*, SETUP+33*, SETUP+37, SETUP+44, CURREC+8, OR~, OR+52
LRXQA( SETUP+26*, LOOKUP+27!, LOOKUP+30*, CURREC+11, CURREC+13
LRXQA("" SETUP+27, SETUP+33
LRXQA("G." LOOKUP+28!, LOOKUP+31*
LRY SETUP+8~, SETUP+10*, SETUP+13*, SETUP+14, SETUP+15, SETUP+34*, SETUP+43*, SETUP+44*, SETUP+46, OR+2~
, OR+22*, OR+23, SELTEST+6~, SELTEST+8*, SELTEST+12*, SELTEST+13, SELTEST+25*, SELTEST+27, SELTEST+32*, SELTEST+33*
, SELTEST+34*, SELTEST+36, ASKXQA+7~, ASKXQA+15*, ASKXQA+16, SENDOR+3~, SENDOR+21*, SENDOR+22
VADMVT GETDOCS+12~, GETDOCS+17
VAHOW GETDOCS+18~
VAIN GETDOCS+18~
VAIN(11 GETDOCS+21
VAIN(2 GETDOCS+20
VAINDT GETDOCS+12~, GETDOCS+16*
VAROOT GETDOCS+18~
X SETUP+8~, GETDOCS+2~, MORE+1~, MORE+9*, MORE+10, LOOKUP+1~, LOOKUP+20*, SELTEST+6~, ASKXQA+7~, SENDOR+3~
Y SETUP+8~, SETUP+21, SETUP+43, MORE+1~, MORE+13, LOOKUP+1~, LOOKUP+20, LOOKUP+25, LOOKUP+27, LOOKUP+28
LOOKUP+30, LOOKUP+31, LOOKUP+33, SELTEST+6~, SELTEST+32, SELTEST+34, ASKXQA+7~, ASKXQA+13, SENDOR+3~
Y(0 SELTEST+33, SELTEST+34
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 |  Local Variables  | All