Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 12 NOW^%DTC  EDIT^DDW  $$EZBLD^DIALOG  SNEW^DIBT  ^DIC  YN^DICN  OS^DII  $$UP^DILIBF  
DJ^DIP  (E1,E2)^DIP0  DPQ^DIP1  ENDIPT^DIP11  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 1 XPDCOMF  
VA FileMan 1 DITCP  

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

External References

Name Field # of Occurrence
NOW^%DTC NOW
EDIT^DDW DDW
$$EZBLD^DIALOG DDW+2
SNEW^DIBT NOW+3
^DIC DIBTED+8, SAVEAS+1, BUILDNEW+11, BUILDNEW+13
YN^DICN SAVEAS+2
OS^DII E+1
$$UP^DILIBF PROCESS+11
DJ^DIP PROCESS+12
E1^DIP0 GET+6
E2^DIP0 GET+6
DPQ^DIP1 Q+1
ENDIPT^DIP11 GET+4

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
Routine Call
  • DIALOG
  • Line Location:
    • DDW+2
Routine Call
  • DIC
  • Line Location:
    • DIBTED+8
    • SAVEAS+1
    • BUILDNEW+11
    • BUILDNEW+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( GET+14, GET+15
^DD("DD" FROMDATE, TODATE
^DD("OS" - [#.7] E+1, DDW+6
^DIBT - [#.401] E+2, E+7, GET+18, TODATE+1, SAVEAS+2, SAVEAS+3, SAVEAS+4*, SAVEAS+5, NOW*, NOW+1*
, BUILDNEW+14*
^DIC - [#1] E+4, PROCESS+3, BUILDNEW+3
^TMP("DIBTED" E+6, DDW+2!, DDW+8!
^UTILITY("DIBTED" K!, DDW+1!, Q+2*, PUT+1, SAVEFLDS+2, NOW+2, BUILDNEW+4!, BUILDNEW+7
^UTILITY($J DDW+1!, BUILDNEW+4!

Label References

Name Line Occurrences
$$LINE PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+11
$$STRIP GET+12, PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, G+3
B B+1
BUILDNEW TEST+3
DDW DDW+7
E DIBTED+9
GET E+6
K E+2, E+3, E+6
NL GET+9, GET+14, GET+15, GET+17, FROMDATE+2, TODATE+1
PROCESS DDW+5, BUILDNEW+7
PUT DIBTED+10
Q PROCESS+5
SAVEAS SAVEAS+2
SAVEFLDS SAVEAS+6, BUILDNEW+14
W GET+11, GET+14, GET+15, FROMDATE+1, FROMDATE+2, TODATE+1

Naked Globals

Name Field # of Occurrence
^("ASK" TODATE+1
^("BY0" E+3
^("NM" GET+15
^("T" GET+18
^(0 E+4, GET+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GET+6*, GET+8~, GET+10*, GET+11, GET+15*, FROMDATE+1*, SAVEAS+2*, NOW
%X GET+1~, GET+6*
%Y GET+1~, GET+8~, GET+18*, GET+19*, FROMDATE+1
A PROCESS+1~, Q+1!
A(1 Q+1
ARRAY BUILDNEW~, BUILDNEW+2, BUILDNEW+7
B E~
BY E~, PROCESS+1~, PROCESS+5*, PROCESS+7*
C E~, DDW+3*, GET+1~, GET+3*, BUILDNEW+1~, BUILDNEW+5*
D GET+1~, GET+3*
D0 E~, E+7, GET+3*, GET+18, TODATE+1
DA E~
DC PROCESS+1~, PROCESS+3*
DCC E~, E+4*, BUILDNEW+1~, BUILDNEW+3*
DCL E~
DDH E~
DDSCHG DIBTED+7~, DDW+9*
DE E~, DDW+4*, BUILDNEW+1~, BUILDNEW+6*
DHD E~
DI E~, DDW+4*, PROCESS+3*, BUILDNEW+1~, BUILDNEW+6*
DIBT0 DIBTED+7~, DIBTED+9*, EDIT~, E+2, GET+3, PUT+3
DIBT1 SAVEFLDS~, SAVEFLDS+2, NOW, NOW+1
DIBTA GET~, GET+2, NL, W, PROCESS~, G, G+1
DIBTAB PROCESS+1~, PROCESS+3*, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+11, GOODQ+1*
DIBTAD GET+1~, GET+5*, NL*, W
DIBTASK PROCESS+1~, PROCESS+11!*, GOODQ+2
DIBTED DIBTED+7~, EDIT+1~, E+4*, E+9, DDW+7, SAVEAS
DIBTEDER E~, DDW+7!, PROCESS+6*, PROCESS+10, GOODQ+3, BUILDNEW+1~
DIBTEDER( DDW+7, PROCESS+10*, GOODQ+3*
DIBTEDER(0 DDW+7, BUILDNEW+8
DIBTEDER(1 Q+1*
DIBTH E~, E+9*, DDW, DDW+7*
DIBTITLE GET+1~, GET+11, GET+12!*
DIBTLINE PROCESS+1~, PROCESS+3*, PROCESS+6, PROCESS+8*, G, G+1*
DIBTMORE PROCESS+1~, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10*, PROCESS+11, GOODQ+1, GOODQ+3*
, G*, G+2*
DIBTOLD GET+1~, SAVEFLDS+1~, NOW+3*
DIBTROW E~, E+9*, DDW, DDW+7*
DIBTRPT GET+1~, GET+3*
DIBTX E~
DIC DIBTED+7~, DIBTED+8*, PUT+2~, SAVEAS*, BUILDNEW+1~, BUILDNEW+11*, BUILDNEW+13!
DIC("A" SAVEAS*
DIC("B" PUT+3*, SAVEAS+2!
DIC("DR" BUILDNEW+12*
DIC("S" SAVEAS*, BUILDNEW+11*, BUILDNEW+12*
DIC(0 DIBTED+8*, SAVEAS*, BUILDNEW+11*, BUILDNEW+12*
DIJ GET+1~, GET+6*, GET+7*, GET+10, GET+11, GET+13, GET+14, GET+15, GET+16, GET+18
, FROMDATE, FROMDATE+2, TODATE+1, NL, PROCESS+1~, PROCESS+3*
DIJJ E~, GET+7!
DIL E~, DDW+4*, BUILDNEW+1~, BUILDNEW+6*
DINAME BUILDNEW~, BUILDNEW+9*, BUILDNEW+10, BUILDNEW+11, BUILDNEW+13*, BUILDNEW+15
DIPA E~
DIPP E~, GET+1~, PROCESS+1~
DIPP( GET+6*, GET+7, GET+10, GET+11, GET+13, GET+14!, GET+15, GET+16, FROMDATE, FROMDATE+2
DIPP(1 PROCESS+2*
DIPR GET+1~, PROCESS+1~
DIQUIET PROCESS+1~, PROCESS+3*
>> DISYS E+1, DDW+6
DJ E~, DDW+4*, GET+1~, GET+3*, GET+6*, PROCESS+1~, PROCESS+4*, PROCESS+6, PROCESS+8, PROCESS+9
, PROCESS+10, GOODQ, GOODQ+2, Q+1, BUILDNEW+1~, BUILDNEW+6*
DK E~, PROCESS+1~, PROCESS+3*
DL E~, DDW+4*, BUILDNEW+1~, BUILDNEW+6*
DM E~
DNP E~, DDW+4*, PROCESS+3*, BUILDNEW+1~, BUILDNEW+6*
DP E~
DPP E~, DDW+1!, GET+1~, GET+7!, PROCESS+2!, Q+2, SAVEFLDS+1~, NOW+2*, BUILDNEW+4!
DPP( GET+6, GET+11, GET+13*, GET+15*, GOODQ, GOODQ+2*
DPQ E~
DRK DIBTED+7~, EDIT+1~, E+4*, DDW, DDW+4, PROCESS+3, BUILDNEW~, BUILDNEW+2, BUILDNEW+3, BUILDNEW+6
, BUILDNEW+11, BUILDNEW+12
>> DTOUT DDW+2
DU E~
>> DUOUT DDW+2
DUZ NOW+1, BUILDNEW+12
DV E~, DDW+4*, BUILDNEW+1~, BUILDNEW+6*
DXS E~
ERR PROCESS+1~
FR PROCESS+1~
FR( PROCESS+6*, PROCESS+8*, PROCESS+10
G E~
GFT TEST!
GFT(1 TEST*
GFT(2 TEST+1*
GFT(3 TEST+2*
GFTOUT BUILDNEW~, BUILDNEW+2*, BUILDNEW+8*, BUILDNEW+11*, BUILDNEW+15*
I DIBTED+7~, EDIT+1~, DDW+1!, BUILDNEW+4!
J DIBTED+7~, EDIT+1~, DDW+1!, BUILDNEW+4!
J(0 SAVEAS+4
L E~, DDW+4*, BUILDNEW+1~, BUILDNEW+6*
N E~
>> OUT TEST+3
P E~, LINE~, G+1*, G+2, STRIP~*
Q E~, DDW+3*, BUILDNEW+1~, BUILDNEW+5*
R PROCESS+1~
S E~, E+4*, DDW+4*, BUILDNEW+1~, BUILDNEW+6*
TO PROCESS+1~
TO( PROCESS+6*, PROCESS+9*, PROCESS+10
U E+4, GET+10, GET+11, GET+13, GET+14, GET+15, GET+16, GET+18, FROMDATE, FROMDATE+2
, TODATE+1, SAVEAS+2, SAVEAS+4, NOW, NOW+1, BUILDNEW+3
X GET+1~, GET+3*, GET+5*, GET+14*, FROMDATE+1*, TODATE, W~, PROCESS+1~, PROCESS+7*, LINE~
, G*, G+3, STRIP~*, B, B+1*, BUILDNEW+1~, BUILDNEW+10*
Y DIBTED+8, DIBTED+9, E~, GET+8~, GET+10*, GET+11, GET+12, GET+18*, FROMDATE*, FROMDATE+1*
, FROMDATE+2*, TODATE*, TODATE+1*, SAVEAS+2, SAVEAS+3, SAVEAS+4, SAVEAS+5, SAVEAS+6, BUILDNEW+1~, BUILDNEW+8*
, BUILDNEW+11, BUILDNEW+13, BUILDNEW+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All