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

Package: Lab Service

Routine: LRCKPTR


Information

LRCKPTR ;SLC/RWF - CHECK ^LR & ^DPT CROSS POINTERS ; 8/30/87 17:20 ;

Source Information

Source file <LRCKPTR.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 YN^DICN  

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 LRCKF  LRCKPTR  

Entry Points

Name Comments DBIA/ICR reference
DQ
ENT ;from LRCKF
LRP
DPT
LRS
LR
END

External References

Name Field # of Occurrence
^%ZIS LRCKPTR+4
^%ZISC LRCKPTR+5
^%ZTLOAD LRCKPTR+5
YN^DICN LRCKPTR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"CHECK OF POINTERS TO/FROM THE ^LR FILE",!!,"Want me to add missing nodes. "
  • Line Location: LRCKPTR+2
Function Call: WRITE
  • Prompt: !!,"a 'yes' and I will add missing zero nodes that are reported,",!," and missing pointers to ^LR."
  • Condition for execution: %=0
  • Line Location: LRCKPTR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DQ+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: DQ+0
Function Call: WRITE
  • Prompt: !,"BAD ENTRY IN APPLICATION GROUP"
  • Line Location: LRP+0
Function Call: WRITE
  • Prompt: !,"CHECKING THE ",$P(^DIC(LRF,0),U)," FILE (#",LRF,") POINTERS.",!
  • Line Location: LRP+1
Function Call: WRITE
  • Prompt: !,"Entry: ",DFN," has a invalid LR Pointer: '",LR,"'."
  • Line Location: DPT+1
Function Call: WRITE
  • Prompt: !,"LR: ",LR," Is missing the zero node."
  • Line Location: DPT+3
Function Call: WRITE
  • Prompt: " added"
  • Condition for execution: LRFIX
  • Line Location: DPT+3
Function Call: WRITE
  • Prompt: !!,"CHECKING THE LAB DATA FILE POINTERS.",!
  • Line Location: LRS+0
Function Call: WRITE
  • Prompt: !,"LR: ",LR," Lacks a zero node."
  • Line Location: LR+0
Function Call: WRITE
  • Prompt: !,"LR: ",LR," has a BAD file or entry pointer. File: ",LRDPF," Entry: ",DFN
  • Line Location: LR+2
Function Call: WRITE
  • Prompt: !,"LR: ",LR,?11," Points to a BAD file: ",LRDPF
  • Line Location: LR+3
Function Call: WRITE
  • Prompt: !,"LR: ",LR,?11," Points to a missing ",$P(^DIC(LRDPF,0),U)," FILE ENTRY, Entry: ",DFN
  • Line Location: LR+4
Function Call: WRITE
  • Prompt: " added"
  • Condition for execution: LRFIX
  • Line Location: LR+4
Function Call: WRITE
  • Prompt: !,"LR: ",LR,?11," Points to file: ",LRDPF," Entry: ",DFN,", that doesn't have a pointer."
  • Line Location: LR+5
Function Call: WRITE
  • Prompt: " added"
  • Condition for execution: LRFIX
  • Line Location: LR+5
Function Call: WRITE
  • Prompt: !,"ALL DONE",!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: END+0
Routine Call
  • %ZIS
  • Line Location:
    • LRCKPTR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] LRP, LRP+1, LR+1, LR+3, LR+4
^DIC("AC" ENT+2
^LR - [#63] DPT+2, DPT+3*, DPT+4, LR, LR+1

Label References

Name Line Occurrences
DPT DPT, DPT+1, DPT+3, DPT+6
END DPT, LR
ENT DQ
LR LR, LR+2, LR+3, LR+4, LR+5, LR+7
LRCKPTR LRCKPTR+2
LRP ENT+2
LRS ENT+3

Naked Globals

Name Field # of Occurrence
^("GL" LRP, LR+1
^("LR" DPT, LR+6
^(0 LR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRCKPTR+2*, LRCKPTR+3
>> %ZIS LRCKPTR+4*
>> D DPT
>> DFN LRCKPTR+4*, LRP*, DPT, DPT+1, DPT+2, DPT+3, DPT+4, DPT+5, LR+1*, LR+2
, LR+4, LR+5, LR+6
>> DIC LRP*, DPT
IO ENT+1
IO("Q" LRCKPTR+5!
IOF DQ, END
IOST DQ, END
>> LR DPT*, DPT+1, DPT+2, DPT+3, DPT+4, LRS*, LR*, LR+1, LR+2, LR+3
, LR+4, LR+5, LR+6
>> LRDPF DPT+4*, LR+1*, LR+2, LR+3, LR+4, LR+5, LR+6
>> LRF ENT+2*, LRP, LRP+1, DPT+3, DPT+4
LRFIX LRCKPTR+3*, DQ!, ENT+1*, DPT+3, LR+4, LR+5
LRGBL LR+1*, LR+4, LR+5, LR+6, END!
>> POP LRCKPTR+4
U LRCKPTR+2*, LRP*, LRP+1, DPT+3, DPT+4, DPT+5, LR+1, LR+4
>> X DPT+4*, DPT+5
ZTDESC LRCKPTR+5*!
ZTIO LRCKPTR+5!
>> ZTQUEUED DQ
>> ZTREQ DQ*
ZTRTN LRCKPTR+5*!
ZTSAVE LRCKPTR+5!
ZTSAVE("LRFIX" LRCKPTR+5*
ZTSK LRCKPTR+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All