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

Package: Medicine

Routine: MCARDCQ


Information

MCARDCQ ;WISC/TJK-MODIFIED DICQ ROUTINE FOR MEDICINE SCREENS ;8/23/96 12:33

Source Information

Source file <MCARDCQ.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Medicine 5 A^MCARDC  DO^MCARDC1  YN^MCARDCN  (,0,CONT)^MCARDCQ1  DCS^MCARDNQ  
VA FileMan 1 ^%DT  

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

Package Total Caller Graph
Medicine 4 MCARDC  MCARDCM2  MCARDCM3  MCARDCQ1  

Entry Points

Name Comments DBIA/ICR reference
DQ
IX
20
C
A
D
M
0
DIY
SOUNDEX
DS

External References

Name Field # of Occurrence
^%DT 20+2
A^MCARDC MCARDCQ+2
DO^MCARDC1 DQ
YN^MCARDCN 20
^MCARDCQ1 D, D+4, M
0^MCARDCQ1 0
CONT^MCARDCQ1 C
DCS^MCARDNQ 20, C+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Pointed-to File does not exist!"
  • Line Location: DQ+0
Function Call: WRITE
  • Prompt: " ANSWER WITH ",$P(DO,U,1)
  • Line Location: IX+5
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to Continue: "
  • Variable: MCPCTY
  • Timeout: DTIME
  • Line Location: IX+6
Function Call: WRITE
  • Prompt: $P(", OR",U,X>1)
  • Line Location: IX+6
Function Call: WRITE
  • Prompt: !?4
  • Condition for execution: $X+$L(DS(DS))>70
  • Line Location: IX+6
Function Call: WRITE
  • Prompt: " ",DS(DS)
  • Line Location: IX+6
Function Call: WRITE
  • Prompt: !," DO YOU WANT THE ENTIRE "
  • Line Location: 20+0
Function Call: WRITE
  • Prompt: S
  • Condition for execution: DO(2)'["s"&'$D(DIC("S"))&'$D(DF) Y,"-ENTRY " W $P(DO,U,1)," LIST" S MCPCT=0 D YN^MCARDCN S:MCPCT=1 MCPCTY=1 I MCPCTY'="??"
  • Line Location: 20+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: 20+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DQ+2, DQ+3, IX+1, DIY

Label References

Name Line Occurrences
0 20+1
20 20+2
@( DQ+3
A C+2
C IX+4, 20, 20+1
D D+1
DIY DQ+1, D+1
DQ MCARDCQ+2
DS DQ+3, IX+1
IX IX+3, SOUNDEX

Naked Globals

Name Field # of Occurrence
^( IX+1, IX+2
^("AZ" IX+3
^("QUES" DQ+3
^(0 DQ+2, IX+1, D+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT 20+2*!
>> D DQ+1
>> DD DQ+1*, IX+2*, IX+3, 20+2, C+3
>> DF 20
>> DIC IX, IX+2, IX+3, C+2, C+3
>> DIC("S" 20, C+1
>> DIC("W" C+3
>> DIC(0 MCARDCQ+2, DQ+2, IX+3, 0
DIW DQ+2*, DQ+3*, IX+2*, 20+2, D, D+1*, D+3, 0!
>> DIX DQ+1*, IX*, IX+1, IX+2, IX+3*, C+2*, C+3*
>> DIY DQ+1*, D*, D+1*, DIY*
DIZ DQ+2*, DQ+3, IX+2*, IX+3*, 20+2*, C+2, 0!
>> DJCP IX+6, C
DO DQ!, DQ+1, IX+5, 20, DS
DO("SCR" C+1
DO(2 DQ+2, DQ+3, IX+1, 20, C+2
DS DQ!, DQ+3*, IX+1*, IX+5*, IX+6*, IX+7!, 20+2*, C+2*, C+3*, 0!
, DS
DS( IX+6, DS*
DS(95 D+3*
DTIME IX+6
DZ MCARDCQ+2*!, IX+4, C+1
>> MCBDIC IX
>> MCDF IX
>> MCPCT IX+1*, IX+2, 20*, 20+1
MCPCTY DQ!, IX+6*, 20*, 20+1, 20+2*, C
U DQ+1, DQ+2, DQ+3, IX+1, IX+5, IX+6, 20, 20+2, C, C+1
, D, D+1, D+3, DIY
>> X MCARDCQ+2*, DQ+2*, IX+1*, IX+6*, 20+2*, C+1*, C+2, C+3, A*, D*
, D+1*, D+3*, D+4*, D+5*, DS
XQH MCARDCQ+2!
>> Y DQ+1*, IX+2*, IX+3*, IX+4*, IX+7, 20, 20+2*, C+1, D*, D+1
, D+3, D+4, SOUNDEX*
>> YMLH IX+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All