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

Package: VA FileMan

Routine: DICN1


Information

DICN1 ;SFISC/GFT,TKW,SEA/TOAD-PROCESS DIC("DR") ;8MAR2006

Source Information

Source file <DICN1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 12 STORLIST^%RCR  CLRMSG^DDS  LIST^DDSU  REFRESH^DDSUTL  $$EZBLD^DIALOG  $$HELP^DIALOGZ  A^DIC  Q^DIC2  
INCR^DICN0  ^DIE  ^DIK  $$INTEG^DIKK  

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
VA FileMan 2 DICN  DICN0  

Entry Points

Name Comments DBIA/ICR reference
BAD
CKID
Q
W
H
RCR ;
A
ZAP
D
ASKP001 ; ask user to confirm new record's .001 field value
; NEW^DICN
EGP
IHSGL(X) ;----- CHECK GL NODE OF TOP LEVEL FILE FOR DUZ(2)
N ; test X as an IEN (apply input transform and numeric restrictions)
; USR^DICN, ASKP001

External References

Name Field # of Occurrence
STORLIST^%RCR DICN1+34, W+2
CLRMSG^DDS RCR+4, RCR+9
LIST^DDSU W+1, ZAP+1, ASKP001+35, EGP+4
REFRESH^DDSUTL RCR+10
$$EZBLD^DIALOG A+3
$$HELP^DIALOGZ EGP
A^DIC BAD+1
Q^DIC2 BAD
INCR^DICN0 EGP+5
^DIE RCR+7
^DIK ZAP+2
$$INTEG^DIKK A+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," ",$$EZBLD^DIALOG(741)
  • Line Location: A+3
Function Call: READ
  • Variable: Y
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: ASKP001+33
Function Call: WRITE
  • Prompt: !,DST
  • Line Location: ASKP001+33
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ASKP001+33
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ASKP001+45
Routine Call
  • DDS
  • Line Location:
    • RCR+4
    • RCR+9
Routine Call
  • DIALOG
  • Line Location:
    • A+3
Routine Call
  • DIC
  • Line Location:
    • BAD+1
Routine Call
  • DIE
  • Line Location:
    • RCR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DICN1+29, CKID, CKID+1, ASKP001+7, ASKP001+25, ASKP001+26, EGP, IHSGL+14, N+3
^DD("KEY" - [#.31] DICN1+24, DICN1+25, DICN1+31
^DD("SITE" ASKP001+20
^DIC - [#1] IHSGL+15
^DIC(3 ASKP001+18
^VA(200 - [#200] ASKP001+18

Label References

Name Line Occurrences
$$IHSGL A+1
BAD DICN1+10
CKID DICN1+26, DICN1+29
H W, W+1, ZAP+1, ASKP001+35, EGP+4
N ASKP001+27, ASKP001+42
W DICN1+10
ZAP D

Naked Globals

Name Field # of Occurrence
^("UP" IHSGL+14
^(0 CKID+1, W, N+3
^(1 ASKP001+18, ASKP001+19, ASKP001+20
^(4 EGP+2, EGP+4
^(9 CKID+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DICN1+10~*, DICN1+24, DICN1+28, DICN1+29, CKID, CKID+1*!, RCR+6!*, ASKP001+20*, ASKP001+26*, ASKP001+27*
, ASKP001+35!
%RCR DICN1+7!, DICN1+34*, W+2*
%RCR( DICN1+8*
%RCR("DIE(""NO^"")" RCR+2*
>> %Y ASKP001+26*, ASKP001+27*
A1 W*, W+1*, H!, H+1!, ZAP+1*, ASKP001+35*, EGP+4*
>> D BAD
>> DA DICN1+10, DICN1+35, BAD*, A, A+1
>> DD DICN1+11*, DICN1+13*, DICN1+14*, DICN1+15*, DICN1+18*, DICN1+19*, DICN1+20*, DICN1+21*, DICN1+22*, DICN1+31
, DICN1+33*, CKID+3, CKID+4*, RCR+1
>> DDH H*
>> DDH( H*
>> DDH("ID" EGP+4*
>> DDS W, W+1, H, RCR+4, RCR+8, ZAP+1, ASKP001+32, ASKP001+46, EGP+1
DE RCR+1!
DG RCR+1!
DIADD RCR+1!
DIC RCR+1!, D, ASKP001+16, ASKP001+43, N+4
DIC("DR" DICN1+22, DICN1+28
DIC("W" A+2
DIC(0 DICN1+15, DICN1+20, DICN1+23, DICN1+32, RCR+1, D, ASKP001+5
DICRS DICN1+7!
DIDA DICN1+7!
>> DIE RCR+1*, A+1, ZAP, D*
>> DIE("NO^" RCR+2, RCR+3*, RCR+4!
>> DIE("W" RCR+1*, RCR+4!
DIENS RCR+5~, A+1
>> DIENTRY ASKP001+16
DIFILEI RCR+5~, A+1
>> DIK ZAP*, ZAP+1
DINDEX RCR+5~
>> DINO01 DICN1+12
>> DINUM N+3
DIOPER RCR+5~, RCR+6*
DISAV0 RCR+1~*, RCR+5~, A+3, ZAP+1, D~*
DISUBVAL RCR+6~*
DISUBVAL( DICN1+14, DICN1+16!, DICN1+17, DICN1+19
DITOP IHSGL+10~, IHSGL+13*, IHSGL+14*, IHSGL+15
DIVAL RCR+5~
DIY ASKP001+19*, ASKP001+27, ASKP001+35~, EGP+4~
DO DICN1+9, BAD+1!, RCR+1!, ASKP001+6, ASKP001+25, EGP+5, N+3
DO(1 BAD
DO(2 DICN1+14, DICN1+15, DICN1+16, DICN1+17, DICN1+19, DICN1+21, DICN1+24, DICN1+25, DICN1+29, DICN1+31
, CKID, CKID+1, EGP
DO(3 ASKP001+16, ASKP001+17*
DQ RCR+1!
DR RCR+1!*, RCR+4
>> DS(0 BAD+1*
DST W*, W+1*, H!, H+1!, ZAP+1*, ZAP+2!, ASKP001+25*, ASKP001+28*, ASKP001+33!, ASKP001+35*
, EGP*, EGP+2!
DTIME ASKP001+33
>> DTOUT A+2, A+4, ASKP001+33*, ASKP001+35
>> DUOUT A+4*
DUZ ASKP001+18
DUZ(0 CKID, CKID+1
>> DZ DICN1+9*, RCR+1
I DICN1+11~, DICN1+14*, DICN1+17*, DICN1+18, DICN1+19, DICN1+21, DICN1+24*, DICN1+25, DICN1+32~*, DICN1+33
IOSL RCR+9
J DICN1+11~, DICN1+24*, DICN1+25
U DICN1+9, DICN1+25, DICN1+26, CKID+1, W, ZAP+1, ASKP001+6, ASKP001+18, ASKP001+19, ASKP001+25
, ASKP001+26, ASKP001+33, ASKP001+35, ASKP001+39, EGP+5, N+3
X DICN1+11~, DICN1+25*, DICN1+26, RCR+3~, A+1*, A+2, A+3, ASKP001+19*, ASKP001+20*, ASKP001+26*
, ASKP001+27*, ASKP001+28, ASKP001+42*, ASKP001+43!, EGP+5*, IHSGL~, IHSGL+12, IHSGL+13, N+4, N+5!
Y DICN1+7!, DICN1+8*, DICN1+10*, DICN1+11~, DICN1+26*, DICN1+29*, DICN1+35*, BAD!*, BAD+1*, CKID
, CKID+1, CKID+2, CKID+3, CKID+4, A+2, A+4, ASKP001+5*, ASKP001+6*, ASKP001+7*, ASKP001+16*
, ASKP001+25, ASKP001+26, ASKP001+33*, ASKP001+35*, ASKP001+39*, ASKP001+40*, ASKP001+41, ASKP001+42*, ASKP001+43*, EGP+6*
, IHSGL+10~, IHSGL+11*, IHSGL+15*, IHSGL+16
Y(0 A*, A+1*, ZAP+2*
>> ZTQUEUED H+1, ZAP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All