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

Package: VA FileMan

Routine: DIBTED


Information

DIBTED ;SFISC/GFT-SCREEN-EDIT A SORT TEMPLATE ;15NOV2012

Source Information

Source file <DIBTED.m>

Entry Points

Name Comments DBIA/ICR reference
K
EDIT(DIBT0) ; EDIT VIA VA FILEMAN SCREEN EDITOR
E
DDW
GET(DIBTA) ;put displayable template into @DIBTA
FROMDATE
TODATE
NL
W(X)
PROCESS(DIBTA) ;puts nodes into ^UTILITY("DIBTED")
GOODQ
Q
LINE()
G
STRIP(X)
B
PUT ;save template from ^UTILITY
SAVEAS
SAVEFLDS(DIBT1) ;
NOW
BUILDNEW(GFTOUT,DRK,ARRAY,DINAME) ;TAKE SORT TEMPLATE SPEC FOR FILE 'DRK' AND RETURN NEW SORT TEMPLATE NUMBER AND NAME
TEST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO TEMPLATE SELECTED",!
  • Line Location: E+2
Function Call: WRITE
  • Prompt: !,"CANNOT EDIT A ""BY(0)"" TEMPLATE WITH SCREEN EDITOR",!
  • Line Location: E+3
Function Call: WRITE
  • Prompt: "..."
  • Line Location: E+5
Function Call: WRITE
  • Prompt: !,"NO EDITABLE FIELDS EXIST IN THIS TEMPLATE.",!
  • Line Location: E+7
Function Call: WRITE
  • Prompt: !,"A SEARCH TEMPLATE HAS NO EDITABLE SORT FIELDS.",!
  • Line Location: E+8
Function Call: WRITE
  • Prompt: $C(7),$$EZBLD^DIALOG(8077)
  • Line Location: DDW+2
Function Call: WRITE
  • Prompt: " ",DIBTEDER(DIBTROW)
  • Line Location: DDW+7
Function Call: WRITE
  • Prompt: !,$C(7),"Are you sure you want to overwrite this '",$P(Y,U,2)," 'Template"
  • Line Location: SAVEAS+2
Function Call: WRITE
  • Prompt: !,OUT
  • Line Location: TEST+3
Info |  Source |  Entry Points |  Interaction Calls