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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls