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

Package: Lab Service

Routine: LRCAPPHX


Information

LRCAPPHX ;DALOI/FHS - RESET AND RESUBMIT PCE WORKLOAD FOR EMPTY PCE NODES ;5/1/2001

Source Information

Source file <LRCAPPHX.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DATE ;Get date range
SW ;Exchange dates if out of sequence
LOOP ;Check entries to determine if appropriate to resend
SET ;Reset node if not canceled
RD ;
END ;Indicate if accessions were reset and process ^LRO(69,"AA" data
AA ;
FIN
LOOK ;Process only collected specimens
DQ ;Queue with START DATE(LRSDT) AND END DATE(LREDT) defined

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Resend PCE CPT Workload ",IOM)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Only orders that have NO recorded PCE workload will be rescanned",IOM)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(LRSDT),!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: LRCEX_" "
  • Line Location: AA+4
Info |  Source |  Entry Points |  Interaction Calls