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

Package: Medicine

Routine: MCARDCN1


Information

MCARDCN1 ;WISC/TJK-MODIFIED DICN1 ROUTINE FOR MEDICINE SCREENS ;7/22/96 08:12

Source Information

Source file <MCARDCN1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Medicine 3 (A,Q)^MCARDC  BAD^MCARDC1  (D,F1,F2,IX,LOCK)^MCARDCN  
VA FileMan 2 ^DIE  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Medicine 1 MCARDCN  

Entry Points

Name Comments DBIA/ICR reference
Q1
DOWN
G
D
RIX ;
S
MCARDJXY ;
RR
CKID
RCR ;
N
Q
BAD
NUM ;
CALL
O
STORLIST ;
INIT
N1
ZAP

External References

Name Field # of Occurrence
^DIE RCR+2
^DIK ZAP
A^MCARDC BAD+1
Q^MCARDC BAD
BAD^MCARDC1 NUM+5
D^MCARDCN MCARDCN1+15
F1^MCARDCN NUM+4, NUM+5
F2^MCARDCN NUM+1
IX^MCARDCN RIX+2
LOCK^MCARDCN NUM+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"SORRY! A VALUE FOR '"_$P(^(0),U,1)_"' MUST BE ENTERED,"
  • Line Location: MCARDCN1+8
Function Call: WRITE
  • Prompt: !?6,"BUT YOU DON'T HAVE 'WRITE ACCESS' FOR THIS FIELD"
  • Line Location: MCARDCN1+9
Function Call: WRITE
  • Prompt: !?6,"<'",*7,$P(@(DIK_"DA,0)"),U,1),"' DELETED>"
  • Line Location: ZAP+0
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: NUM+3
Function Call: WRITE
  • Prompt: !?3,$P(DO,U,1)_" "_$P(^DD(+Y,.001,0),U,1),": "
  • Line Location: NUM+3
Function Call: WRITE
  • Prompt: X,"// "
  • Condition for execution: X
  • Line Location: NUM+3
Function Call: WRITE
  • Prompt: *7
  • Line Location: NUM+3
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: NUM+5
Function Call: WRITE
  • Prompt: !,^(3)
  • Condition for execution: $D(^DD(+DO(2),.001,3))
  • Line Location: NUM+5
Routine Call
  • DIE
  • Line Location:
    • RCR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( MCARDCN1+6, CKID, RIX+2, NUM+2, NUM+3, NUM+4, NUM+5, N
^DD("SITE" NUM+1
^TMP("MCARDRCR" CALL+1, G+2, INIT*, INIT+1*

Label References

Name Line Occurrences
@( CALL
BAD MCARDCN1+6
CALL O
CKID MCARDCN1+6
DOWN N1+5
G G+5, G+6
INIT STORLIST+1
MCARDJXY O+2, G+6
N NUM+2, NUM+5
N1 N1+2, N1+4
O O+1, O+2
Q CKID
Q1 N1+2
S DOWN
STORLIST MCARDCN1+11, MCARDCN1+15, RIX+2
ZAP D

Naked Globals

Name Field # of Occurrence
^( G+5
^($J CALL+1*, G+2!, INIT+1!
^(0 MCARDCN1+8, CKID, N
^(1 NUM+1
^(3 NUM+4, NUM+5
^(4 NUM+4, NUM+5
^(9 CKID

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D BAD
>> D0 NUM+4
>> DA BAD*, RCR+2
>> DD MCARDCN1+5*, MCARDCN1+6*, CKID+1*, RCR+1, NUM+1
DE RCR+1!
DG RCR+1!
DIC RCR+1!, D, NUM+1, N
DIC("DR" MCARDCN1+5
DICRS MCARDCN1+2!
>> DIE RCR+1*, ZAP, D*
>> DIE("NO^" RCR+1, RCR+2*!
>> DIE("W" RCR+1*, RCR+2!
DIK ZAP*!
>> DIY NUM+2
DO MCARDCN1+4, BAD+1!, RCR+1!, NUM+3, N
DO(1 BAD
DO(2 MCARDCN1+6, CKID, RIX+2, NUM+5
DQ RCR+1!
DR RCR+1!*
DTIME NUM+3
>> DTOUT NUM+3*
DUZ(0 CKID
>> DZ MCARDCN1+4*, RCR+1, RIX+2*, RR
MCARDJA MCARDJXY+1*, N1, N1+2*, N1+3, N1+4, DOWN*, Q1!
MCARDJB S*, N1*, N1+1, N1+2, N1+5*, N1+6*, DOWN, Q1!
MCARDJC N1+1*, N1+5*, Q1!
MCARDJC( N1*, N1+1*, N1+2
MCARDJC(0 MCARDJXY+1*
MCARDJD O*, O+1, O+2, CALL+1*, G*, G+2!, G+3, G+5, G+6, INIT+1*
MCARDJE O+1, CALL*, CALL+1*, G, G+2!, INIT+1*
MCARDJX O+2*, CALL!, CALL+1*, G+2!, N1, N1+3, N1+4
MCARDJY CALL!, G+2!, G+6*, N1+3, INIT+1*
MCARDJZ MCARDJXY+1*, N1, N1+1, N1+2*, DOWN*, Q1!
MCARDRCR MCARDCN1+2!, MCARDCN1+10*, MCARDCN1+15*, RIX+1!, RIX+2*, CALL!
MCARDRCR( MCARDCN1+3*, RIX+1*, O
MCARDRCR("DIE(""NO^"")" RCR+1*
MCPCT MCARDCN1+6*, CKID*!, RIX+1*, NUM+2*
>> MCPCTY NUM+2*
U MCARDCN1+4, MCARDCN1+8, CKID, ZAP, NUM+2, NUM+3, NUM+4, NUM+5, N
X NUM+1*, NUM+2*, NUM+3, NUM+5*, N, N+1!
Y MCARDCN1+2!, MCARDCN1+3*, MCARDCN1+6*, MCARDCN1+15, BAD!*, CKID, CKID+1, RCR+3, NUM+2, NUM+3*
, NUM+4, NUM+5
Y(0 RCR+2*, ZAP*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All