PXBGPRV3 ;ISL/JVS - DOUBLE ?? GATHERING OF CLINIC PROVIDER ;11/5/96 14:23
Source file <PXBGPRV3.m>
| 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 |
|---|---|---|
| DOUBLE1(FROM) | ;--Entry point
|
|
| NEW | ;
|
|
| START1 | ;--RECYCLE POINT
|
|
| LIST | ;-DISPLAY LIST TO THE SCREEN
|
|
| PRMPT | ;---WRITE PROMPT HERE
|
|
| VAL | ;-----Set the VAL equal to the value
|
|
| EXITNEW | ;--EXIT
|
|
| BACK | ;
|
|
| FORWARD | ;
|
|
| LOC | ;--LOCATE CURSOR
|
|
| HEAD | ;--HEAD
|
|
| SUB | ;--DISPLAY LIST TO THE SCREEN
|
|
| SETUP | ;-SETP VARIABLES
|
|
| PRMPT2 | ;-----Yes and No prompt if onlyi choice
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BACK | NEW+5* |
| >> CLINIC | START1+3 |
| CNT | NEW+2~, NEW+3~, START1+7*, START1+8, START1+9, START1+10, SUB+3* |
| CODE | NEW+2~ |
| CYCLE | NEW+2~ |
| >> DATA | NEW+6 |
| DATE | LIST+7~, LIST+8*, LIST+9 |
| DIR | EXITNEW+1! |
| DIR("?" | PRMPT+8* |
| DIR("A" | PRMPT+6*, PRMPT+7*, PRMPT2+3* |
| DIR("B" | PRMPT2+4* |
| DIR(0 | PRMPT+9*, PRMPT2+5* |
| DTIME | START1+15 |
| FIELD | NEW+2~, SETUP+1* |
| FILE | NEW+2~, SETUP+1* |
| FROM | DOUBLE1~ |
| HEADING | NEW+2~, START1+20*, LIST+2, SUB+2, SETUP+2* |
| INDEX | NEW+2~, NEW+5* |
| >> IOBON | HEAD+1 |
| >> IOCUU | START1+13, HEAD+1 |
| >> IOEDEOP | LOC+2 |
| >> IOELEOL | START1+13, HEAD+1 |
| >> IOINHI | HEAD+1 |
| >> IOINLOW | HEAD+1 |
| IOM | START1+15, HEAD+1 |
| >> IOSGR0 | HEAD+1 |
| NAME | NEW+2~, LIST+5*, LIST+11, SUB+4*, SUB+5 |
| >> NUM | LIST+4* |
| OK | NEW+2~, START1+15* |
| PRV | NEW+3~, START1+7*, START1+8, START1+9 |
| >> PXBCNT | PRMPT+1, PRMPT2+1 |
| PXBPMT | NEW+3~, START1+5, START1+6 |
| PXBPMT("PRV" | START1+7, START1+9 |
| >> PXBVST | LIST+6, LIST+8 |
| >> RESULTS | START1+15* |
| SCREEN | NEW+2~ |
| START | NEW+2~, NEW+6*, BACK+1*, FORWARD+1* |
| START("IEN" | BACK+2*, FORWARD+2* |
| SUB | NEW+2~, NEW+6*, LIST+3*, LIST+4*, LIST+5, LIST+6, LIST+11, PRMPT+4, PRMPT+6, PRMPT+11 , PRMPT+12, SUB+3*, SUB+4, SUB+5 |
| SUB2 | NEW+3~, NEW+6*, LIST+4*, PRMPT+9 |
| TANA | EXITNEW+2! |
| TITLE | NEW+2~, START1+1*, HEAD+1 |
| TOTAL | NEW+3~, START1+5*, START1+10*, START1+13, START1+16, LIST+14, PRMPT+5, EXITNEW+2! |
| >> TYPE | LIST+6*, LIST+9*, LIST+10*, LIST+11 |
| >> VAL | VAL+1*, EXITNEW+3 |
| >> X | PRMPT+11, PRMPT+12*, VAL+1, PRMPT2+7*, PRMPT2+8* |
| Y | LIST+7~, LIST+8*, PRMPT2+7, PRMPT2+8 |