PXBGPOV3 ;ISL/JVS - DOUBLE ?? GATHERING OF CLINIC DIAGNOSES ;11/5/96 14:20
Source file <PXBGPOV3.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 3 | (LOC,WIN17)^PXBCC HELP1^PXBUTL1 POV^PXBUTL2 |
VA FileMan | 1 | ^DIR |
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 only 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, SUB+3* |
CODE | NEW+2~ |
CYCLE | NEW+2~ |
>> DATA | NEW+6 |
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+14 |
FIELD | NEW+2~, SETUP+1* |
FILE | NEW+2~, SETUP+1* |
FROM | DOUBLE1~ |
HEADING | NEW+2~, START1+19*, LIST+2, SUB+2, SETUP+2* |
INDEX | NEW+2~, NEW+5* |
>> IOBON | HEAD+1 |
>> IOCUU | START1+12, HEAD+1 |
>> IOEDEOP | LOC+2 |
>> IOELEOL | START1+12, HEAD+1 |
>> IOINHI | HEAD+1 |
>> IOINLOW | HEAD+1 |
IOM | START1+14, HEAD+1 |
>> IOSGR0 | HEAD+1 |
NAME | NEW+2~, LIST+5*, LIST+6, SUB+4*, SUB+5 |
>> NUM | LIST+4* |
OK | NEW+2~, START1+14* |
POV | NEW+3~, START1+7*, START1+8 |
>> PXBCNT | PRMPT+1, PRMPT2+1 |
PXBPMT | NEW+3~, START1+5, START1+6 |
PXBPMT("POV" | START1+7 |
>> RESULTS | START1+14* |
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, 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+9*, START1+12, START1+15, LIST+9, PRMPT+5, EXITNEW+2! |
>> VAL | VAL+1*, EXITNEW+3 |
>> X | PRMPT+11, PRMPT+12*, VAL+1, PRMPT2+7*, PRMPT2+8* |
>> Y | PRMPT2+7, PRMPT2+8 |