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

Package: Dental

Routine: DENTDCN


Information

DENTDCN ;WASH ISC/TJK-MODIFIED DICN ROUTINE ;10:24 AM Jul 28, 1987;12/02/91 11:24 AM

Source Information

Source file <DENTDCN.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Dental 4 (A,Q,R)^DENTDC  (BAD,DO)^DENTDC1  Y^DENTDCM2  (,N,NUM,RIX)^DENTDCN1  

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

Package Total Caller Graph
Dental 7 DENTDC1  DENTDCM  DENTDCM1  DENTDCM2  DENTDCM3  DENTDCN1  DENTDCQ  

Entry Points

Name Comments DBIA/ICR reference
B
1
YN ;
RX
DS
VAL
I
R
FILE
F1
F2
LOCK
IX
D ;
INCR

External References

Name Field # of Occurrence
A^DENTDC FILE
Q^DENTDC FILE
R^DENTDC D+1
BAD^DENTDC1 B
DO^DENTDC1 FILE
Y^DENTDCM2 I
^DENTDCN1 IX+1
N^DENTDCN1 DENTDCN+4, DENTDCN+5
NUM^DENTDCN1 F2+3
RIX^DENTDCN1 IX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ",U,%)
  • Line Location: YN+1
Function Call: READ
  • Variable: %Y
  • Timeout: DTIME
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: *7,"??",!?4,"ANSWER 'YES' OR 'NO': "
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: $P(" (YES)^ (NO)",U,%)
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: !?7
  • Line Location: I+0
Function Call: WRITE
  • Prompt: "A NEW "_%
  • Line Location: I+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,^(3)
  • Condition for execution: $D(^DD(+DO(2),.01,3))
  • Line Location: R+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: LOCK+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DENTDCN+5, 1DSR+1, FILEF2+3, IXIX+1
^DIC - [#1] DENTDCN+3

Label References

Name Line Occurrences
1 I
B DENTDCN+3, DENTDCN+4, IR+1, F2
DS DENTDCN+5, R
F1 LOCK
F2 F2
FILE I+1
I DENTDCN+4, DENTDCN+5, DENTDCN+6
INCR F1F1+1
IX IX
LOCK F2+2
R R+1
RX RX+2
VAL DENTDCN+6, R+1

Naked Globals

Name Field # of Occurrence
^( FILELOCK+3*, IX
^("LAYGO" DENTDCN+3
^("UP" 1
^(0 FILELOCK+4*, IX
^(1 IX
^(3 R+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DENTDCN+3*, YN+1, RX+1*, RX+2, RX+3, VAL+2*, I*, INCR*
>> %Y RX*, RX+1, RX+2
D LOCK+3!*, D+1
>> DA LOCK+3*, LOCK+4, D+1*
>> DD DENTDCN+4, DENTDCN+5*, II+1, F2+1, LOCK+3*, IX*
>> DIC F2LOCKLOCK+4
>> DIC("DR" IX+1
>> DIC("S" 1
>> DIC(0 DENTDCN+5, IF2+3, IX+1
>> DICR DENTDCN+5
>> DINUM VAL+1*, F1+1, F2
>> DIX DENTDCN+5*, DENTDCN+6, DENTDCN+7, FILE*, FILE+1*, LOCK+3
>> DIY F1F2, INCR*
DJC I*!
>> DJCP I
>> DLAYGO DENTDCN+3
>> DO IFILEF1F2+1, INCR
>> DO(1 DENTDCN+2*, FILE
>> DO(2 DENTDCN+3, DENTDCN+5, 1DSIR+1, FILEIXIX+1
>> DS DENTDCN+5, DS*, VAL+1, VAL+2*, R, IX*
DTIME RXR
>> DTOUT RX*
DUZ(0 DENTDCN+3, F2+2
U DENTDCN+5, YN+1, RXRX+3, VAL+1, VAL+2, IRR+1, F1
INCR
X DENTDCN+4*, DENTDCN+5, DENTDCN+6*, DENTDCN+7*, VAL!, VAL+1, I, R*, R+1, FILE+1
, F1*, F1+1*, F2*, F2+1*, LOCK+3*, IX*, D+1, INCR
>> Y 1, I*, FILE*, F2+1*, F2+2, F2+3, D+1*
>> Y(0 B!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All