source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQPST05.m@ 1470

Last change on this file since 1470 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1VAQPST05 ;ALB/JFP - PDX, POST INIT ROUTINE ;01JUN93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3TERMTYP ; -- 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
13ATT ;
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 ;;
26END ; -- End of code
27 QUIT
Note: See TracBrowser for help on using the repository browser.