| 1 | VAQPST05 ;ALB/JFP - PDX, POST INIT ROUTINE ;01JUN93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | TERMTYP ; -- Displays a table to show what terminal attributes must be defined
|
|---|
| 4 | W !!,"In order to effectively use PDX, the following terminal type attributes"
|
|---|
| 5 | W !,"must be defined for each terminal type used. Please verify these attributes"
|
|---|
| 6 | W !,"against the TERMINAL TYPE file at your facility."
|
|---|
| 7 | W !!,?5,"Attribute",?35,"Value for a VT series terminal"
|
|---|
| 8 | W !,?5,"---------",?35,"------------------------------"
|
|---|
| 9 | F I=1:1 S VAQND=$T(ATT+I) Q:($P(VAQND,";;",2)="") D
|
|---|
| 10 | .W !,?5,$P(VAQND,U,2),?35,$P(VAQND,U,3)
|
|---|
| 11 | W !!
|
|---|
| 12 | K VAQND,I
|
|---|
| 13 | ATT ;
|
|---|
| 14 | ;; ^Form Feed^#,$C(27,91,50,74,27,91,72)
|
|---|
| 15 | ;; ^XY CRT^W $C(27,91)_(DY+1)_$C(59)_(DX+1)_$C(72)
|
|---|
| 16 | ;; ^Erase to End of Page^$C(27,91,74)
|
|---|
| 17 | ;; ^Insert Line^$C(27)_"[1L"
|
|---|
| 18 | ;; ^Underline On^$C(27,91,52,109)
|
|---|
| 19 | ;; ^Underline Off^$C(27,91,109)
|
|---|
| 20 | ;; ^High Intensity^$C(27,91,49,109)
|
|---|
| 21 | ;; ^Normal Intensity^$C(27,91,109)
|
|---|
| 22 | ;; ^Save Cursor Position^$C(27,55)
|
|---|
| 23 | ;; ^Restore Cursor Position^$C(27,56)
|
|---|
| 24 | ;; ^Set Top/Bottom Margin^$C(27,91)_(+IOTM)_$C(59)_(+IOBM)_$C(114)
|
|---|
| 25 | ;;
|
|---|
| 26 | END ; -- End of code
|
|---|
| 27 | QUIT
|
|---|
