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

Package: VA FileMan

Routine: DIKCP1


Information

DIKCP1 ;SFISC/MKO-PRINT INDEX(ES) ;2015-01-02 2:55 PM

Source Information

Source file <DIKCP1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINDEX ;Come here from PRINDEX^DIKCP
NOREIN
FL(XR0,WID,LM,TS,TYP,PAGE) ;Print first line
KEY(XR,WID,LM,TS,PAGE) ;Print keys that have XR as Uniqueness Index
LOGIC(XR,WID,LM,TS,FLAG,PAGE) ;Print set and kill logic
CRV(XR,WID,LM,TS,FLAG,PAGE) ;Print cross reference values
CRVOTH(CV0,TXT) ;Get other attributes of Cross Reference Value
ADDSTR(X,TXT) ;Add string X to the TXT array
WRPHI(TXT,WID,LM,TS,COD,PAGE) ;Write a paragraph with a hanging indent
WLP(LAB,TXT,WID,TAB,COD,PAGE,WFLAG) ;Write a labeled paragraph
WRLN(TXT,TAB,PAGE,KWN) ;Write a line of text
WRWP(ROOT,LM,WID,LAB,TS,PAGE) ;Call DIWP/DIWW to format a wp field.
WRWPQ ;Cleanup and quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?9,"NO RE-INDEXING ALLOWED!"
  • Line Location: NOREIN+0
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME,300)
  • Line Location: WRLN+9
Function Call: WRITE
  • Prompt: @$G(IOF,"#"),PAGE("H")
  • Line Location: WRLN+10
Function Call: WRITE
  • Prompt: !?$G(TAB),$TR($G(TXT),$C(0)," ")
  • Line Location: WRLN+13
Info |  Source |  Entry Points |  Interaction Calls