PXBGPL2 ;ISL/JVS - DOUBLE ?? GATHERING OF PATIENT PROBLEM LIST;3/8/96 11:33 ;11/5/96 14:18
Source file <PXBGPL2.m>
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
|
|
PRMPT3 | ;---WRITE PROMPT HERE
|
|
VALL | ;-----Set the VAL equal to the value
|
|
EXITNEWW | ;--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 |
|