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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Medicine 2 $$RESPONSE^MCARDSE  $$INSERT^MCU  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Medicine 3 MCARDML  MCARDNJ2  MCARDSE  

Entry Points

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

External References

Name Field # of Occurrence
$$RESPONSE^MCARDSE MLH+1
$$INSERT^MCU PROCCHAR+9

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
  • Timeout: .001
  • Variable: *CHR
  • 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
  • Prompt: "Field Number: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: NUM
  • Line Location: JUMP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOFF" RESPONSE+4
^%ZOSF("EON" RESPONSE+18, JUMP+3
^%ZOSF("RM" RESPONSE+3, RESPONSE+17
^%ZOSF("UPPERCASE" UPPER+2

Label References

Name Line Occurrences
$$UPPER RESPONSE+19, RESPONSE+20
JUMP PCK+4, JUMP+6
PCK RESPONSE+10
PROC RESPONSE+10
PROCCHAR PROC+2
PROCDEL PROC+3
RD RESPONSE+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHR PCK+1~, PCK+2*
>> DJCP JUMP+3
>> DJJ( RESPONSE+20
>> DJJ("" JUMP+2
>> DJL JUMP+2
>> DJLIN JUMP+3
DTIME RD+1, JUMP+5
DX RESPONSE+1~, RESPONSE+5*, PROCCHAR+4*, PROCDEL+2*
DY RESPONSE+1~, RESPONSE+5*, PROCCHAR+4*, PROCDEL+2*
HI JUMP+1~, JUMP+2*, JUMP+4, JUMP+8
>> IOCUB PCK+5
>> IOCUD PCK+3
>> IOCUF PCK+5
>> IOCUU PCK+5
IOF MLH+1
>> IOKP1 PCK+5
>> IOKP3 PCK+5
>> IOKP4 PCK+4
>> IOKP5 PCK+5
>> IOKP6 PCK+5
>> IOKP7 PCK+5
>> IOKP9 PCK+5
IOM RESPONSE+17
>> IOPF1 PCK+5
>> IOPF2 PCK+5
>> IOPF3 PCK+5
>> IOPF4 PCK+5
>> IOXY RESPONSE+5, PROCCHAR+4, PROCDEL+2
LOW JUMP+1~, JUMP+2*, JUMP+4, JUMP+8
MCDID RESPONSE+12!, RESPONSE+13!, RESPONSE+14!, PCK+3!, JUMP+3!
MCHAR RESPONSE+1~, RESPONSE+10, RESPONSE+12, RD+1*, RD+2, RD+3, PROC+1, PROCCHAR+2, PROCCHAR+5, PROCCHAR+8
, PROCCHAR+9
>> MCMASS RESPONSE+12*, RESPONSE+13*, RESPONSE+14*, JUMP+3*
MHDX RESPONSE~, RESPONSE+5, PROCCHAR+3*, PROCCHAR+4*, PROCDEL+1*, PROCDEL+2*
MHDY RESPONSE~, RESPONSE+5, PROCCHAR+4*, PROCDEL+2*
MHFL RESPONSE~, PROCCHAR+1, PROCCHAR+9
MHX RESPONSE~, RESPONSE+16
MHY RESPONSE+1~, RESPONSE+6*, RESPONSE+12, RESPONSE+13, RESPONSE+14, RESPONSE+16*, RESPONSE+19*, RESPONSE+20*, RESPONSE+21, PROC+3
, PROCCHAR+1, PROCCHAR+5*, PROCCHAR+9*, PROCDEL+3*, PCK+5*, PCK+6, JUMP+8*, JUMP+9*
NUM JUMP+1~, JUMP+5*, JUMP+6, JUMP+7*, JUMP+8, JUMP+9
QUIT RESPONSE+1~, RESPONSE+9*, RESPONSE+10, RESPONSE+21, RD+3*, PCK+3*, PCK+6*, JUMP+5*, JUMP+8*, JUMP+9*
STR PCK+1~*, PCK+2*, PCK+3, PCK+4, PCK+5
>> TEST MLH+1*
U RESPONSE+12, RESPONSE+19, RESPONSE+20, JUMP+8
>> V RESPONSE+20, JUMP+8
X RESPONSE+1~, RESPONSE+3*, RESPONSE+17*, UPPER~
>> XY JUMP+3
Y UPPER+1~, UPPER+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All