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