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

Package: VA FileMan

Routine: DIVRPTR


Information

DIVRPTR ;GFT/GFT - CHECK POINTER FIELDS (PROGRAMMER CALL) ;28FEB2004

Source Information

Source file <DIVRPTR.m>

Entry Points

Name Comments DBIA/ICR reference
CK(A,DIFLD,T) ;CHECK FIELD DIFLD, DATA DICTIONARY A, TYPE T
XEC
Q
0 ;
L
V ;VARIABLE POINTER
P ;REGULAR POINTER
X
LF ;Issue a line feed or EOP read
HDR ;Print header
SUBHD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"POINTED-TO FILE (#",+$P(DR,"P",2),") IS MISSING!!",!
  • Line Location: CK+5
Function Call: WRITE
  • Prompt: !,?V-J*2,$O(^DD(J(V-J),0,"NM",0)),": `",+$P(DG,",",J+1),?V-J*2+10," "
  • Line Location: X+3
Function Call: WRITE
  • Prompt: D
  • Line Location: X+3
Function Call: WRITE
  • Prompt: S
  • Line Location: X+3
Function Call: WRITE
  • Prompt: D
  • Line Location: X+3
Function Call: WRITE
  • Prompt: W
  • Line Location: X+4
Function Call: WRITE
  • Prompt: W
  • Line Location: X+4
Function Call: WRITE
  • Prompt: " "
  • Line Location: X+5
Function Call: WRITE
  • Prompt: !?30
  • Condition for execution: $X+$L(M)>IOM
  • Line Location: X+5
Function Call: WRITE
  • Prompt: M
  • Line Location: X+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LF+4
Function Call: WRITE
  • Prompt: "continued",!
  • Line Location: LF+5
Function Call: WRITE
  • Prompt: @IOF,"DANGLING POINTER REPORT",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!!,"FILE ",J(0)," '",$$LABEL^DIALOGZ(A,DIFLD),"' ("
  • Line Location: SUBHD+0
Function Call: WRITE
  • Prompt: Y,")"
  • Line Location: SUBHD+5
Info |  Source |  Entry Points |  Interaction Calls