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

Package: Medicine

Routine: MCARDCN


Information

MCARDCN ;WISC/TJK-MODIFIED DICN ROUTINE FOR MEDICINE SCREENS ;7/24/96 07:35

Source Information

Source file <MCARDCN.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Medicine 4 (A,Q,R)^MCARDC  (BAD,DO)^MCARDC1  Y^MCARDCM2  (,N,NUM,RIX)^MCARDCN1  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Medicine 7 MCARDC1  MCARDCM  MCARDCM1  MCARDCM2  MCARDCM3  MCARDCN1  MCARDCQ  

Entry Points

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

External References

Name Field # of Occurrence
A^MCARDC FILE
Q^MCARDC FILE
R^MCARDC D+1
BAD^MCARDC1 B
DO^MCARDC1 FILE
Y^MCARDCM2 I
^MCARDCN1 IX+1
N^MCARDCN1 MCARDCN+4, MCARDCN+5
NUM^MCARDCN1 F2+3
RIX^MCARDCN1 IX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ",U,MCPCT)
  • Line Location: YN+1
Function Call: READ
  • Timeout: DTIME
  • Variable: MCPCTY
  • 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,MCPCT)
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: !?7
  • Line Location: VAL+4
Function Call: WRITE
  • Prompt: "A NEW "_MCPCT
  • Line Location: VAL+4
Function Call: WRITE
  • Prompt: !?7
  • Line Location: I+0
Function Call: WRITE
  • Prompt: "A NEW "_MCPCT
  • Line Location: I+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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( MCARDCN+5, 1, DS, R+1, FILE, F2+3, IX, IX+1
^DIC - [#1] MCARDCN+3

Label References

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

Naked Globals

Name Field # of Occurrence
^( FILE, LOCK+3*, IX
^("LAYGO" MCARDCN+3
^("UP" 1
^(0 FILE, LOCK+4*, IX
^(1 IX
^(3 R+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D LOCK+3!*, D+1
>> DA LOCK+3*, LOCK+4, D+1*
>> DD MCARDCN+4, MCARDCN+5*, I, I+1, F2+1, LOCK+3*, IX*
>> DIC F2, LOCK, LOCK+4
>> DIC("DR" IX+1
>> DIC("S" 1
>> DIC(0 MCARDCN+5, I, F2+3, IX+1
>> DICR MCARDCN+5
>> DINUM VAL+1*, F1+1, F2
>> DIX MCARDCN+5*, MCARDCN+6, MCARDCN+7, FILE*, FILE+1*, LOCK+3
>> DIY F1, F2, INCR*
DJC I*!
>> DJCP I
>> DLAYGO MCARDCN+3
>> DO I, FILE, F1, F2+1, INCR
>> DO(1 MCARDCN+2*, FILE
>> DO(2 MCARDCN+3, MCARDCN+5, 1, DS, I, R+1, FILE, IX, IX+1
>> DS MCARDCN+5, DS*, VAL+1, VAL+2*, R, IX*
DTIME RX, R
>> DTOUT RX*
DUZ(0 MCARDCN+3, F2+2
>> MCPCT MCARDCN+3*, YN+1, RX+1*, RX+2, RX+3, VAL+2*, I*, INCR*
>> MCPCTY RX*, RX+1, RX+2
U MCARDCN+5, YN+1, RX, RX+3, VAL+1, VAL+2, I, R, R+1, F1
, INCR
X MCARDCN+4*, MCARDCN+5, MCARDCN+6*, MCARDCN+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