MCARDSE ;WISC/MLH-MEDICINE SCREEN HANDLER-PROCESS FIELD ;5/2/96 13:31
Source file <MCARDSE.m>
Package | Total | Call Graph |
---|---|---|
Medicine | 2 | $$RESPONSE^MCARDSE $$INSERT^MCU |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
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 |
>> | 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 |