Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: "Press <RETURN> to Continue
  • Prompt: '^' to Quit: "
  • Variable: MCPCTY
  • Timeout: DTIME
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13),?3
  • Line Location: LST+0
Function Call: READ
  • Formatting: "Press <RETURN> to Continue
  • Prompt: '^' to Quit: "
  • Variable: MCPCTY
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls