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

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.

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

FileMan Files Accessed Via FileMan Db Call

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