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

Package: Order Entry Results Reporting

Routine: ORELR5


Information

ORELR5 ;slc/dcm - Check 69 against 100 ;Jul 08, 2019@12:17:53

Source Information

Source file <ORELR5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Check file 69 against 100 for inconsistencies
UPD
DEQUE ;Queued entry point
LOOP(LRDFN,ORAFIX) ;Loop on patient
WRT(LRODT,LRSN,LRTST,TEXT,FIXED) ;Write error message
STATUS(I,J,K,Z,UPDATE) ;Check status of exploded panels

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will go through the LAB ORDER ENTRY file (69)"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"and check for inconsistencies between Lab files and CPRS files."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"This process could take several hours to complete."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Are you sure you want to continue"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Answer YES to continue"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"You have the option of just checking the database, or updating the database."
  • Line Location: UPD+0
Function Call: WRITE
  • Prompt: !,"Do you want to update the database now"
  • Line Location: UPD+1
Function Call: WRITE
  • Prompt: !!,"Select YES to update the database"
  • Line Location: UPD+3
Function Call: WRITE
  • Prompt: !,"Inconsistency report between LAB (69) and OE/RR (100) files..."
  • Line Location: DEQUE+2
Function Call: WRITE
  • Prompt: !,"Date/time Started: "_$$DATETIME^ORU($$NOW^XLFDT())
  • Line Location: DEQUE+3
Function Call: WRITE
  • Prompt: !,"Now looking for data..."
  • Line Location: DEQUE+4
Function Call: WRITE
  • Prompt: !!,"Total Inconsistencies Found"
  • Line Location: DEQUE+9
Function Call: WRITE
  • Prompt: !,"Date/time Completed: "_$$DATETIME^ORU($$NOW^XLFDT())
  • Line Location: DEQUE+10
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------"
  • Line Location: DEQUE+11
Function Call: WRITE
  • Prompt: !,"Bad entry in ^LRO(69,""D""",?40,$J(DCNT,7)
  • Line Location: DEQUE+12
Function Call: WRITE
  • Prompt: !,"Broken pointer to 100",?40,$J(F100CNT,7)
  • Line Location: DEQUE+13
Function Call: WRITE
  • Prompt: !,"Inconsistent entry dates",?40,$J(ENTCNT,7)
  • Line Location: DEQUE+14
Function Call: WRITE
  • Prompt: !,"Patient mismatch"_$S(UPD:" (not fixed)",1:""),?40,$J(PTCNT,7)
  • Line Location: DEQUE+15
Function Call: WRITE
  • Prompt: !,"Status update on panel test",?40,$J(STCNT,7)
  • Line Location: DEQUE+16
Function Call: WRITE
  • Prompt: !,"================================================="
  • Line Location: DEQUE+17
Function Call: WRITE
  • Prompt: !,"Total: ",?40,$J(TOTCNT,7)
  • Line Location: DEQUE+18
Function Call: WRITE
  • Prompt: "."
  • Line Location: WRT+2
Info |  Source |  Entry Points |  Interaction Calls