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

Package: Medicine

Routine: MCARDSE


Information

MCARDSE ;WISC/MLH-MEDICINE SCREEN HANDLER-PROCESS FIELD ;5/2/96 13:31

Source Information

Source file <MCARDSE.m>

Entry Points

Name Comments DBIA/ICR reference
RESPONSE(MHX,MHFL,MHDX,MHDY) ; process a response from the user
UPPER(X) ;CONVERT TO UPPERCASE
RD ; read one character
PROC ; process one character
PROCCHAR ; process ordinary character
PROCDEL ; process <DELETE>
MLH ;TEST TAG
PCK ;WISC/DCB-Process the escape keys see bottom for mapping
JUMP ;This allow the user to type in a field number w/o pressing return

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(MCHAR)
  • Line Location: PROCCHAR+2
Function Call: WRITE
  • Prompt: $C(8,7),$C(MCHAR)
  • Line Location: PROCCHAR+8
Function Call: WRITE
  • Prompt: $C(8,32,8)
  • Line Location: PROCDEL+1
Function Call: WRITE
  • Prompt: " "
  • Line Location: PROCDEL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MLH+1
Function Call: READ
  • Variable: *CHR
  • Timeout: .001
  • Line Location: PCK+2
Function Call: WRITE
  • Prompt: DJLIN
  • Line Location: JUMP+3
Function Call: WRITE
  • Prompt: !,"Input a field number",LOW," to ",HI," to jump to."
  • Line Location: JUMP+4
Function Call: READ
  • Formatting: !
  • Prompt: "Field Number: "
  • Variable: NUM
  • Timeout: DTIME
  • Line Location: JUMP+5
Info |  Source |  Entry Points |  Interaction Calls