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

Package: VA FileMan

Routine: DIKCBLD


Information

DIKCBLD ;SFISC/MKO-AUTOBUILD A ROUTINE THAT CALLS CREIXN^DDMOD ;15NOV2012

Source Information

Source file <DIKCBLD.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ;Main process
Q1
Q2
Q3
Q4
BUILD(DIKCRTN,DIKCITL,NS,XR) ;Build routine DIKCRTN
BC(NS,XR,SUB,ND,PC) ;Build code that sets an array element
BCW(NS,XR,SUB,ND) ;Build code that sets array for wp field
BCC(NS,XR,CV,ON,SUB,ND,PC) ;Build code that sets an array element
QT(X) ;Return string X quoted, if noncanonic
AD(X) ;Add a routine line to ^UTILITY
SAVE(DIKCRTN) ;Save routine DIKCRTN
ASKRTN() ;Prompt for routine name; return ^ if timeout, null, or ^
ASKREPL(DIKCRTN) ;Ask whether to replace the existing routine
ASKITL() ;Ask for programmer initials
ASKNMSP() ;Prompt for a namespace
ASKXR() ;Prompt for file/xref
NOW() ;Return current time in external form

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$$EZBLD^DIALOG(820)
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: Q3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: Q4+0
Function Call: WRITE
  • Prompt: !!," Done!"
  • Line Location: Q4+7
Function Call: WRITE
  • Prompt: !!," Be sure to edit the routine to fill in the missing details,"
  • Line Location: Q4+8
Function Call: WRITE
  • Prompt: !," and to customize the call to CREIXN^DDMOD."
  • Line Location: Q4+9
Function Call: WRITE
  • Prompt: !
  • Line Location: Q4+10
Function Call: WRITE
  • Prompt: !!,$$EZBLD^DIALOG(8025,DIKCRTN)
  • Line Location: SAVE+4
Function Call: WRITE
  • Prompt: !!," Routine "_DIKCRTN_" already exists."
  • Line Location: ASKREPL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKREPL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKXR+7
Info |  Source |  Entry Points |  Interaction Calls