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 |  Marked Items |  All
Print Page as PDF
Routine: MCARDCQ1

Package: Medicine

Routine: MCARDCQ1


Information

MCARDCQ1 ;WISC/TJK-HELP FROM DIC (MODIFIED FOR MEDICINE SCREENS) ;8/23/96 10:06

Source Information

Source file <MCARDCQ1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 EN1^XQH  
Medicine 1 DQ^MCARDCQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Medicine 1 MCARDCQ  

Entry Points

Name Comments DBIA/ICR reference
CONT
S
WOV
L
RCR
0 ;
LST
T
W1
V
Y ;I $D(^("OS",^DD("OS"),"XY")) S DIZ=^("XY") I DIZ?1U.E S (IOX,IOY)=0 X DIZ K IOX,IOY
DT
SCR

External References

Name Field # of Occurrence
DQ^MCARDCQ RCR+2
EN1^XQH 0+18

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: '^' to Quit: "
  • Formatting: "Press <RETURN> to Continue
  • Timeout: DTIME
  • Variable: MCPCTY
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13),?3
  • Line Location: LST+0
Function Call: READ
  • Prompt: '^' to Quit: "
  • Formatting: "Press <RETURN> to Continue
  • Timeout: DTIME
  • Variable: MCPCTY
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13),?3
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: ?DD
  • Line Location: L+1
Function Call: WRITE
  • Prompt: +$E(MCPCT,4,5)_"-"
  • Condition for execution: $E(MCPCT,4,5)
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: +$E(MCPCT,6,7)_"-"
  • Condition for execution: $E(MCPCT,6,7)
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: $E(MCPCT,1,3)+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: " ("_$E(MCPCT_0,9,10)_":"_$E(MCPCT_"000",11,12)_")"
  • Condition for execution: MCPCT["."
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>3
  • Line Location: 0+4
Function Call: WRITE
  • Prompt: ?3,"YOU MAY ENTER A NEW ",$P(DO,U,1),", IF YOU WISH"
  • Line Location: 0+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>3
  • Line Location: 0+7
Function Call: WRITE
  • Prompt: ?3,"YOU MAY ENTER A NEW ",$P(DO,U,1),", IF YOU WISH"
  • Line Location: 0+7
Function Call: WRITE
  • Prompt: !,$G(^(X,0))
  • Line Location: 0+31
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X
  • Line Location: V+0
Function Call: WRITE
  • Prompt: ?5,"Enter one of the following:",!?7
  • Line Location: V+0
Function Call: WRITE
  • Prompt: !?5,$E(X,4,99)
  • Line Location: T+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( W1, 0+9, 0+14, 0+16, 0+17, 0+22, 0+31, 0+42, RCR, V+1
^DIC - [#1] 0+2, V+1

Label References

Name Line Occurrences
0 LST, L
CONT S+5, 0+8, 0+10, 0+29, 0+31, 0+41, 0+42, RCR+3
L L+2
LST L+1
RCR 0+2
SCR S+1
V 0+43
W1 W1
Y MCARDCQ1+4, LST

Naked Globals

Name Field # of Occurrence
^( W1, 0+9, 0+31, V+1
^("LAYGO" 0+2
^(0 0+42, V+1
^(4 0+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D 0+43*, V+1
>> DD LST*, L+1*
>> DG 0+9*, T*
>> DIC MCARDCQ1+4, MCARDCQ1+5, WOV*, W1+1*, SCR, RCR*, RCR+2*
>> DIC( RCR+1!, RCR+2!*
>> DIC("S" S
>> DIC("V" V+1
>> DIC("W" MCARDCQ1+4, MCARDCQ1+5, LST
>> DIC(0 0+1, 0+13, 0+40*, RCR*, RCR+2*
DICS RCR+2!
DICW RCR+2!
DIW L+1*, 0+1!
>> DIX MCARDCQ1+4, L
>> DIY MCARDCQ1+2*, MCARDCQ1+4*, MCARDCQ1+5*, LST, L+1
DIZ MCARDCQ1+2, Y+1*, 0+1!
>> DJ4 0+40
>> DJCP LST, S+6, 0+8, 0+10, 0+29, 0+31, 0+41, 0+42
>> DLAYGO 0+2
DO MCARDCQ1+2, 0+7, 0+13, 0+40*, RCR+1!, RCR+2!
DO("SCR" S+1, SCR
DO(2 0+2, 0+9, 0+13, 0+14, 0+16, 0+17, 0+40*, 0+42, 0+43, RCR
DS MCARDCQ1+2*, MCARDCQ1+4*, MCARDCQ1+5*, L+1, 0+1!, RCR*, RCR+1, RCR+2
DS(1 S*, S+2
DS(2 S*, S+1, S+2
DTIME LST, CONT+1
>> DU 0+43*, V+1, V+2*
DUZ(0 0+2
DZ 0+1*, 0+6, 0+15, 0+42, V+2!, T+1!
DZ( RCR+1*, RCR+2
DZ(0 RCR*, RCR+2
DZ(1 RCR*, RCR+2
DZ(3 RCR+2!
DZ1 0+13*, 0+22, 0+31, 0+40!
DZ1(0 0+13*, 0+40
DZ1(1 0+13*, 0+40
>> MCBDIC MCARDCQ1+4, MCARDCQ1+5
>> MCDF MCARDCQ1+4
>> MCMASS LST*, CONT*
>> MCPCT W1*, DT, 0+9*
MCPCTDIC WOV*, W1+1!
MCPCTW W1, W1+1!
MCPCTWW WOV*, W1+1!
MCPCTX W1*, W1+1!
>> MCPCTY MCARDCQ1+2, LST*, L+1, WOV, W1, CONT+1*, S+6, 0+1, 0+6, 0+8
, 0+10, 0+29, 0+31, 0+39, 0+41, 0+42
MCPCTZ WOV, W1, W1+1!
U MCARDCQ1+2, L+1, CONT+1, S+6, 0+6, 0+7, 0+8, 0+10, 0+29, 0+31
, 0+39, 0+41, 0+42, RCR, V+1
X MCARDCQ1+2*, MCARDCQ1+3*, S, S+2*, 0+2*, 0+9*, 0+30*, 0+31*, 0+42*, RCR+1*
, RCR+2*, V+2!, T*, T+1!
>> XQH 0+1*, 0+17*, 0+22
>> Y MCARDCQ1+2*, MCARDCQ1+3*, WOV*, W1+1*, S, S+1*, S+2*, 0+2*, 0+42*, RCR+1*
, RCR+2*, V+1*
>> Y(0 V+1*

Marked Items

Name Field # of Occurrence
$T(T+DG T
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All