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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGX5FD

Package: Registration

Routine: DGX5FD


Information

DGX5FD ; GENERATED FROM 'DG501F-10D' INPUT TEMPLATE(#1764), FILE 45;01/03/22

Source Information

Source file <DGX5FD.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 11 $$EZBLD^DIALOG  $$LABEL^DIALOGZ  E^DIE0  (,0,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17  Z^DIE2  ^DIE3  (AST,NOSCR,SET)^DIED  QQ^DIEQ  
$$GETTMP^DIKC1  $$SET^DIQ  RW^DIR2  
Registration 1 ($$CODESYS,CENSUS)^DGPTIC10  

Entry Points

Name Comments DBIA/ICR reference
DE
W
O
TR
A
B
RE
N
RD
T
P
V
UNIQ
Z
X
QS
D
Y
PR
R
RP
I
SAVEVALS
NKEY
KEYCHK()
BEGIN
1
X1
2
X2
3
X3
4
X4
5
X5
6
X6
7
X7
8
X8
9
X9
10
X10
11
X11
12
M12
R12
13

External References

Name Field # of Occurrence
$$CODESYS^DGPTIC10 X8
CENSUS^DGPTIC10 X6
$$EZBLD^DIALOG O+2, 12+1
$$LABEL^DIALOGZ 12+1
E^DIE0 I+1, M12+3
^DIE17 RD
0^DIE17 13
F^DIE17 12345678910
11
FIREREC^DIE17 12345678910
11
M^DIE17 T
N^DIE17 RPM12+3
OUT^DIE17 12345678910
11
UNIQFERR^DIE17 Z
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
AST^DIED P
NOSCR^DIED P
SET^DIED T
QQ^DIEQ QS
$$GETTMP^DIKC1 BEGIN+1
$$SET^DIQ R+2
RW^DIR2 O+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?DL+DL-2,DLB_": "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: W
  • Line Location: O+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: $X>45
  • Line Location: O+0
Function Call: WRITE
  • Prompt: " ("_$$EZBLD^DIALOG(710,.X)_")"
  • Line Location: O+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: " "_X
  • Line Location: RD+2
Function Call: WRITE
  • Prompt: !!,"Editing PTF Record "_DGPTF_" in VA FileManager."
  • Line Location: X3+0
Function Call: WRITE
  • Prompt: !!,"Editing Discharge Movement in VA FileManager"
  • Line Location: X4+0
Routine Call
  • DIALOG
  • Line Location:
    • O+2
    • 12+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( RR+1
^DD("DD" R+2
^DD("KEY" - [#.31] N
^DGPT - [#45] DEX5X8X912+3, M12
^DIE(1764 BEGIN+2
^DISV( RD+2, Z*

Label References

Name Line Occurrences
$$KEYCHK Z
@( BV
A RENZYRP12345
67891011M12+3, R12+1
B QS
BEGIN DGX5FD+1
D RDRD+1, P+1, QS
DE DGX5FD+1, 123456789
1011R12
M12 12+2
N Y
NKEY N
O YRP
P T
PR REI+1
QS RDNKEY
R RR+1
RD YII+1, M12+4
RE 12+2
RP PRRR+1
SAVEVALS Z
TR RE
V TP+1
W ORE
X NT+1, PY
X1 1
X10 10
X11 11
X2 2
X3 3
X4 4
X5 5
X6 6
X7 7
X8 8
X9 9
Z P+1

Naked Globals

Name Field # of Occurrence
^( RD+2, RR+1
^("F" SAVEVALS*
^(0 RR+1, 12+2, 12+3, M12
^(81 X9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UNIQ!*, R+2*
%( UNIQ!
%(0 UNIQ
%Z DE+1!
>> D N, D*, 12*, 12+1, 12+2*, 12+3*, M12
>> D0 BEGIN+3*, X3X5X8
>> DA DEUNIQBEGIN+3, X612+3, M12
DB DE!
DB( PXM12+3*
>> DC RP12+1*, M12*
DDER TT+1!
DE DE!
DE( O+2, REZYPRRPSAVEVALSSAVEVALS+1, KEYCHK, M12+3
DE(1 12!
DE(12 M12*
>> DFN X5*
DG DE!, PR*, R*, R+1*, R+2, 12345
67891011
DG( Z*
>> DGADD X10*
>> DGCODSYS X8*
>> DGDUP( X1*
>> DGHOLD X9*
>> DGHOLD1 X9*
>> DGJUMP X7*
>> DGMOV X4*, X9M12+1
>> DGNFLD X11*
>> DGO 12+1*
>> DGPTF X3*, X9
DGPTIT X2!
>> DGTYPE X8*
>> DGXX X8*
>> DIC DE*, P*
>> DIC("S" Z!
>> DIC(0 P*, 1*, 2*, 3*, 4*, 5*, 6*, 7*, 8*, 9*
, 10*, 11*
>> DICRREC BEGIN+2*
>> DIE DE*, PUNIQ
DIEBADK BEGIN+1!
DIEFIRE BEGIN+1!, 123456789
1011
>> DIEL DE*
>> DIEZ BEGIN+3*
DIEZAR BEGIN+1~, BEGIN+2*
DIEZRXR BEGIN+1~
DIEZTMP SAVEVALSSAVEVALS+1, SAVEVALS+2, BEGIN+1~*
>> DIFLD O+2, NUNIQDR+2, SAVEVALSSAVEVALS+1, SAVEVALS+2, 12+1*
DIIENS SAVEVALSSAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*
DIXR BEGIN+1~
>> DL DE*, W
DLAYGO P*, Z!
>> DLB WRD+2, ZD12+1*
>> DNM BEGIN*
>> DOW 12+1*
>> DP DE*, O+2, NR+2, SAVEVALSSAVEVALS+1, SAVEVALS+2, 12+1
>> DQ O+2, A*, BREPP+2, VXDY
PRRPSAVEVALS, BEGIN*, 1*, 2*, 3*, 4*, 5*, 6*
, 7*, 8*, 9*, 10*, 11*, M12+3
>> DQ( A!, P+2, D*, PR
>> DSC( 12+2
DTIME TRBEGIN+3*
>> DTOUT TR*
>> DU DE*, PDPR
DUZ RD+2, Z
DUZ("LANG" R+2
DUZ(0 TRRE
>> DV O+1, O+2, TRRENRD+2, TPP+1, UNIQ
ZDYPRRPI12+1*, M12+3
>> DW ZDSAVEVALS+1, KEYCHK, 1*, 2*, 3*, 4*, 5*, 6*
, 7*, 8*, 9*, 10*, 11*, 12+1*
>> DZ QS*
U TRPP+2, ZDRR+1, BEGIN+3*, 12
345678X891011
12+3, M12
X O+2!*, TR*, NRDRD+1, RD+2*, T, P*, P+1!, P+2*
, UNIQ!, ZX+1*, QS, Y*, PR*, R*, R+1*, R+2, RP*
I+1, NKEY*, 1*, X1*, 2*, 3*, 4*, 5*, 6*, 7*
, 8*, 9*, 10*, 11*, M12+1*, M12+2, M12+3*
X("FIELD" O+2*
X("FILE" O+2*
>> Y OO+1, O+2, PY, PR*, R*, R+1*, R+2*, 1*
, 2*, 3*, 4*, 5*, 6*, 7*, 8*, 9*, 10*, 11*
M12+2*, M12+3
YS V!
>> ZTQUEUED XNKEY

Marked Items

Name Field # of Occurrence
$T(@(3) D
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All