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

Package: Medicine

Routine: MCARDNJ


Information

MCARDNJ ;WISC/TJK,JA-INPUT TO SCREEN ;8/31/92 15:28

Source Information

Source file <MCARDNJ.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Medicine 10 ^MCARD1  FUNC^MCARDBL  START^MCARDHLP  ^MCARDML  (,EN2,EN3,K1,T1,WP)^MCARDNJ1  (,COMPUTE,N,Z)^MCARDNJ2  ^MCARDNK  ^MCARDNQ  
FUNC^MCARDNQ2  (,N)^MCARDPL  
VA FileMan 2 %XY^%RCR  ^DIE  

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

Package Total Caller Graph
Medicine 5 MCARD  MCARDBL  MCARDML  MCARDNJ1  MCARDNJ2  

Entry Points

Name Comments DBIA/ICR reference
Q1
RETURN
KILL
HL
EN2 ;
LH
NX
LST
EN3
LS
TK
NXT ;
EN ;
T4 ;
T5
T3
REST
Q
P
R ; get input from user
U
LS1
SAVE
H2
H1
W(X) ;WRITE OUT A FIELD
OUT

External References

Name Field # of Occurrence
%XY^%RCR SAVE, REST
^DIE TK+3, TK+8
^MCARD1 LS1
FUNC^MCARDBL R+4
START^MCARDHLP TK
^MCARDML RETURN+2
^MCARDNJ1 EN3+4
EN2^MCARDNJ1 MCARDNJ+3
EN3^MCARDNJ1 TK+3, TK+8
K1^MCARDNJ1 EN3+1
T1^MCARDNJ1 EN3
WP^MCARDNJ1 TK+4
^MCARDNJ2 LST
COMPUTE^MCARDNJ2 NXT+3
N^MCARDNJ2 TK+3
Z^MCARDNJ2 R+1
^MCARDNK EN3+3
^MCARDNQ Q1
FUNC^MCARDNQ2 EN2+2
^MCARDPL EN+2, Q+1
N^MCARDPL P, LS1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: DJDB
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: $E(DJDB,1,80-DX),!,$E(DJDB,80-DX+1,$L(DJDB))
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: DJLIN
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: X
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: V(V)
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: $E(V(V),1,80-DX),!,$E(V(V),80-DX+1,$L(V(V)))
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: LH+0
Function Call: WRITE
  • Prompt: "DATA REQUIRED",DJLIN,*7
  • Line Location: LH+0
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: U+0
Function Call: WRITE
  • Prompt: K
  • Line Location: U+0
Function Call: WRITE
  • Prompt: *7,"Number is out of range or field is read only or computed."
  • Line Location: T5+2
Function Call: WRITE
  • Prompt: *7
  • Line Location: LS1+4
Function Call: WRITE
  • Prompt: X
  • Line Location: W+1
Function Call: WRITE
  • Prompt: $E(X,1,80-DX),!,$E(X,80-DX+1,$L(X))
  • Line Location: W+2
Routine Call
  • DIE
  • Line Location:
    • TK+3
    • TK+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( TK
^MCAR(697.3 - [#697.3] TK+6, TK+7, TK+8, P, Q, LS1
^TMP($J NXT+1*, EN3+3*

Label References

Name Line Occurrences
EN2 TK+2, NX, P, Q+1, LS1
H1 HL
H2 HL
HL R+1
LH TK+2
LS R+3, LS1+4
LS1 R+3, T5
LST NXT+3, TK+5
NX T5, NX
NXT NXT+3, TK+2, TK+3, TK+4, TK+7, T5+1, T5+2, NX, NX+1
OUT RETURN, EN3, LS1
P LS1+2
Q T3+1, LS, LS1+1
Q1 R+2, EN3+1, NX+1
R Q1
REST P
SAVE LS1
T3 EN3+3
T4 RETURN, EN3, EN3+1, T3+1
T5 T4+2, T4+5
TK EN+2, NXT+3, R+3, RETURN, EN3+2, EN3+3, LH, T4+1, P, LS1+3
U EN3+1
W EN3, H2, T4+4, T4+7, U

Naked Globals

Name Field # of Occurrence
^(2 TK+7
^(3 TK+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X SAVE*, REST*
>> %Y SAVE*, REST*
>> DA TK+3*, TK+8*, LS1*
DB KILL!
DIC TK+3, TK+8, OUT!
DIC("S" T5+1!
>> DIE TK+3*, TK+8*
DJ0 TK*, NX*, Q+1!, OUT!
DJ3 TK*, TK+3, Q+1!, OUT!
DJ4 TK*, TK+1, TK+3, TK+4, R+2, LH, Q+1!
DJAT NXT+1, TK*, TK+2, TK+8, R+2, RETURN, EN3, EN3+1, EN3+3, T3+1
, Q+1!, OUT!
>> DJCL LH, T5+2, LS
>> DJCP TK+3
DJDB EN3*!, H1*, H1+1, H1+2, H1+3!, H2*, H2+3!, T4+3*, T4+4!, T4+6*
, T4+7!, U*!
DJDD TK, OUT!
DJDIC OUT!
>> DJDIS TK+3, TK+4, TK+5, RETURN+1*, LST
DJDN MCARDNJ+2!, MCARDNJ+3, EN+1, NXT+3, TK+3, TK+5, TK+8, R+3, RETURN, EN3
, EN3+1, T4+1, T5, Q+1!, OUT!, LS1
>> DJDPL MCARDNJ+5*, EN+2, Q*
>> DJF EN2+3
>> DJFF P*, OUT*, LS1*, LS1+1*
DJFLAG NXT+4!
>> DJHIN H1, H2, LH, U
DJJ MCARDNJ+3, R+3, T5, P, OUT!, LS1, LS1+1
DJJ( NXT+2, NXT+3, TK, TK+2, TK+3, TK+4, TK+7, EN3, Q1, H1
, H2, LH, T4+1, T4+3, T4+6, U, T5+1, NX
DJK Q*, OUT!
DJKEY EN+1, OUT!
>> DJLIN H1+3, LH, T4+4, T4+7
>> DJMU EN+2*, TK*, TK+1*, RETURN+2
>> DJN TK+6, TK+7, TK+8, P*, Q*, LS1*
>> DJNM EN+2, Q*
DJNX EN+1*, NXT+2, TK!, TK+7, R+1
>> DJP EN+2*, LS
DJQ EN+2*, Q+1!, OUT!
DJSM RETURN, EN3, OUT!
>> DJST NXT+1, EN3+3
DJSV OUT!
DJSW1 RETURN+1!
>> DJW1 Q+1
>> DJXX R+3*, RETURN, EN3+1*
>> DJY T5+1*, LS1
DO OUT!
>> DR TK+3*, TK+8*
DX H1+2, H2+2, OUT!, W+2
DY OUT!
MCDID EN2+1!, TK+3!, TK+4!
>> MCHELPSW EN2+2
MCMASS EN2+1*, TK+3*, TK+4*, OUT!
U MCARDNJ+3, NXT+3, TK, TK+3, TK+4, TK+7, R+3, R+4, RETURN, Q1
, LH, T4+1, U, T5, T5+1, NX, P, Q, LS1, LS1+1
V EN2+3*, NXT+1, NXT+2*, NXT+3, NXT+4*, TK, TK+2, TK+3, TK+4, TK+6
, TK+7, TK+8, R+2, EN3, T3, T3+1, Q1, HL, H1, H2
, H2+1, H2+2, LH, T4+1, T4+2, T4+3, T4+5, T4+6, U, T5+1*
, T5+2*, NX*, Q+1!, OUT!, LS1, SAVE!, REST!
V( NXT+1, TK+8*, R+2, T3*, T3+1, HL, H2*, H2+1, H2+2, T4+2
, T4+5, U
>> W( LS1*
X R+2, R+3, R+4, RETURN, EN3, EN3+1, EN3+2, EN3+3, T3, T5
, T5+1, NX, NX+1, LST*, LS, LS1, LS1+1, LS1+2, W~, W+1
, W+2
>> XY TK+2, TK+7, EN3, Q1, H1, H1+3, H2, H2+3, LH, T4+1
, U
>> Y TK+3
>> Y(0 H2, H2+3!
>> YMLH TK+6*, TK+7, TK+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All