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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ORELR5

Package: Order Entry Results Reporting

Routine: ORELR5


Information

ORELR5 ; slc/dcm - Check 69 against 100 ;

Source Information

Source file <ORELR5.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Order Entry Results Reporting 6 STATUS^ORCSAVE2  (S1,SET)^ORDD100  ACT1^ORDD100A  $$DATETIME^ORU  QUE^ORUTL1  ST^ORX  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Order Entry Results Reporting 1 ORELR  

Entry Points

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

External References

Name Field # of Occurrence
YN^DICN EN+6, UPD+2
STATUS^ORCSAVE2 STATUS+17
S1^ORDD100 LOOP+26
SET^ORDD100 LOOP+26
ACT1^ORDD100A LOOP+26
$$DATETIME^ORU DEQUE+3, DEQUE+10
QUE^ORUTL1 UPD+7
ST^ORX STATUS+16
$$FMADD^XLFDT LOOP+17
$$NOW^XLFDT DEQUE+3, DEQUE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will go through the LAB ORDER ENTRY file (69)"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"and check for inconsistencies between Lab files and CPRS files."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"This process could take several hours to complete."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Are you sure you want to continue"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Answer YES to continue"
  • Line Location: EN+7
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(100 STATUS+16, STATUS+17
^LAB(60 - [#60] STATUS+7
^LR - [#63] LOOP+1, LOOP+2, LOOP+3
^LRO(69 - [#69] DEQUE+7, LOOP+1!, LOOP+4, LOOP+6, LOOP+7!, LOOP+8, LOOP+9, LOOP+12*, STATUS+1, STATUS+8
^OR(100 - [#100] LOOP+12, LOOP+13, LOOP+19*, LOOP+20, LOOP+22!, LOOP+23!, LOOP+24!*, LOOP+25*, STATUS+11
^TMP("ORCHKLRO" STATUS+3!, STATUS+9, STATUS+18*, STATUS+19!

Label References

Name Line Occurrences
EN EN+7
LOOP DEQUE+7
STATUS LOOP+15
UPD UPD+3
WRT LOOP+1, LOOP+7, LOOP+12, LOOP+14

Naked Globals

Name Field # of Occurrence
^( LOOP+9, STATUS+7, STATUS+8
^("VR" STATUS+16, STATUS+17
^(0 LOOP+20, STATUS+1, STATUS+8
^(3 LOOP+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, EN+6*, EN+7, EN+8, UPD+2*, UPD+3, UPD+4, UPD+5
D0 LOOP+21~
DA LOOP+21~
DCNT DEQUE+5~, DEQUE+6*, DEQUE+12, LOOP+1*, LOOP+7*
>> DFN LOOP+3*, LOOP+14
DI LOOP+21~
DIC LOOP+21~
DIE LOOP+21~
DISYS LOOP+21~
DQ LOOP+21~
DR LOOP+21~
ENTCNT DEQUE+5~, DEQUE+6*, DEQUE+14, LOOP+18*
F STATUS+2~, STATUS+4*, STATUS+13, STATUS+14*
F100CNT DEQUE+5~, DEQUE+6*, DEQUE+13, LOOP+12*
FIXED WRT~
I STATUS~, STATUS+1, STATUS+8
IO DEQUE+1
IOF DEQUE+8
IOSL DEQUE+8
IOST WRT+1
J STATUS~, STATUS+1, STATUS+8
K STATUS~, STATUS+1
LRDFN DEQUE+5~, DEQUE+6*, DEQUE+7*, LOOP~, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+7
LRENT LOOP+5~, LOOP+8*, LOOP+16, LOOP+18, LOOP+19, LOOP+24, LOOP+25, LOOP+26
LRODT LOOP+5~, LOOP+6*, LOOP+7, LOOP+8, LOOP+9, LOOP+12, LOOP+14, LOOP+15, WRT~
LRSN LOOP+5~, LOOP+6*, LOOP+7, LOOP+8, LOOP+9, LOOP+12, LOOP+14, LOOP+15, WRT~
LRTI LOOP+5~, LOOP+9*, LOOP+12, LOOP+14, LOOP+15
LRTST LOOP+5~, LOOP+10*, WRT~
N STATUS+6~, STATUS+8*
ORAFIX DEQUE+5~, DEQUE+6*, LOOP~, LOOP+1, LOOP+7, LOOP+12, LOOP+15, LOOP+18
ORIFN LOOP+5~, LOOP+10*, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+19, LOOP+20, LOOP+22, LOOP+23
, LOOP+24, LOOP+25, LOOP+26, STATUS+2~, STATUS+16*
ORSTS STATUS+2~, STATUS+16*
ORX1 LOOP+5~, LOOP+17*, LOOP+18
ORX2 LOOP+5~, LOOP+17*, LOOP+18
PTCNT DEQUE+5~, DEQUE+6*, DEQUE+15, LOOP+14*
STCNT DEQUE+5~, DEQUE+6*, DEQUE+16, STATUS+13*
T STATUS+6~, STATUS+7*, STATUS+8*
TEXT WRT~
TOTCNT DEQUE+5~, DEQUE+6*, DEQUE+18, LOOP+1*, LOOP+7*, LOOP+12*, LOOP+14*, LOOP+18*, STATUS+13*
TST STATUS+6~
TST( STATUS+7*, STATUS+8
UPD EN+1~, UPD+5*, DEQUE+7, DEQUE+15
UPDATE STATUS~, STATUS+15
X LOOP+5~, LOOP+8*, LOOP+13*, LOOP+14, LOOP+16, LOOP+17, LOOP+20, LOOP+22, LOOP+23, LOOP+24
, STATUS+2~, STATUS+8*
X0 LOOP+5~, LOOP+9*, LOOP+10, LOOP+15
X1 STATUS+10~, STATUS+11*, STATUS+12, STATUS+16, STATUS+17
X2 STATUS+10~, STATUS+11*, STATUS+12
X3 LOOP+5~, LOOP+13*, LOOP+14
X7 STATUS+2~, STATUS+8*, STATUS+9, STATUS+11
X8O LOOP+5~, LOOP+20*, LOOP+22, LOOP+23, LOOP+24
Z STATUS~, STATUS+1*, STATUS+4, STATUS+5, STATUS+7
Z7 STATUS+2~, STATUS+4*, STATUS+9, STATUS+11, STATUS+16, STATUS+17, STATUS+18
>> ZTQUEUED DEQUE+19
>> ZTREQ DEQUE+19*
ZTSAVE EN+1~, UPD+7
ZTSAVE("UPD" UPD+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All