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 ;VA/SLC/RWF - CHECK ^LR & ^DPT CROSS POINTERS ;JUL 06, 2010 3:14 PM;

Source Information

Source file <LRCKPTR.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS VA Utilities 1 ^XBFMK  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRCKF  LRCKPTR  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS LRCKPTR+13
^%ZISC LRCKPTR+14
^%ZTLOAD LRCKPTR+14
^DIR LRCKPTR+10
^XBFMK LRCKPTR+8

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+3
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+3
Function Call: WRITE
  • Prompt: !,"CHECK OF POINTERS TO/FROM THE ^LR FILE",!!
  • Line Location: LRCKPTR+6
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
  • DIR
  • Line Location:
    • LRCKPTR+10
Routine Call
  • %ZIS
  • Line Location:
    • LRCKPTR+13

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
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
>> %ZIS LRCKPTR+13*
>> D DPT
>> DFN LRCKPTR+13*, 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
>> DIR(0 LRCKPTR+9*
>> DIRUT LRCKPTR+11
IO ENT+1
IO("Q" LRCKPTR+14!
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+7*, DQ!, ENT+1*, DPT+3, LR+4, LR+5
LRGBL LR+1*, LR+4, LR+5, LR+6, END!
>> POP LRCKPTR+13
U LRP*, LRP+1, DPT+3, DPT+4, DPT+5, LR+1, LR+4
>> X DPT+4*, DPT+5
ZTDESC LRCKPTR+14*!
ZTIO LRCKPTR+14!
>> ZTQUEUED DQ
>> ZTREQ DQ*
ZTRTN LRCKPTR+14*!
ZTSAVE LRCKPTR+14!
ZTSAVE("LRFIX" LRCKPTR+14*
ZTSK LRCKPTR+14!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All