Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BIVT100

BIVT100.m

Go to the documentation of this file. 
  1. BIVT100 ;IHS/CMI/MWR - UPDATE CODES FOR VT100; MAY 10, 2010
  1.  ;;8.5;IMMUNIZATION;;SEP 01,2011
  1.  ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1.  ;;  UPDATE SCREEN HANDLING CODES FOR C-VT100 IN TERMINAL TYPE FILE.
  1.  ;;  NOT CALLED FROM ANY MENU.
  1.  ;
  1.  ;---> Running this routine from START will update the Terminal Type
  1.  ;---> File entry for C-VT100.
  1.  ;---> Following the instructions at BUILD will store the C-VT100
  1.  ;---> Codes from the local ^%ZIS(2,9) entry into this routine.
  1.  ;
  1.  ;----------
  1. START ;EP
  1.  ;
  1.  Q:('$G(DT))
  1.  Q:(DT>3100101)
  1.  ;W !?3,"This step will update your VT100 Codes for Listmanager display"
  1.  N BITT,Y
  1.  ;D DIC^BIFMAN(3.2,"QEMA",.Y,"   Select VT100 Device: ","C-VT100")
  1.  ;Q:'Y
  1.  ;S BITT=+Y
  1.  S BITT=$O(^%ZIS(2,"B","C-VT100",0))
  1.  Q:'BITT  Q:$P($G(^%ZIS(2,BITT,0)),"^")'="C-VT100"
  1.  ;
  1.  ;---> Update C-VT100 Terminal Type entry.
  1.  N BIDONE S BIDONE=0
  1.  N I,X,Y,Z F I=1:1 S X=$T(@"CODES"+I) Q:X'[";;"  D
  1.  .S Y=$P(X,";;",2),Z=$P(X,";;",3)
  1.  .N BIX S BIX="^%"_$C(90)_$C(73)_"S(2,BITT,Y)",@BIX=Z,BIDONE=1
  1.  Q
  1.  ;
  1.  D
  1.  .I $G(BIDONE) W !!?3,"C-VT100 UPDATED!" Q
  1.  .W !!?3,"* NO CHANGES MADE!  (You must uncomment the ^%ZIS line.)"
  1.  D DIRZ^BIUTL3()
  1.  Q
  1.  ;
  1.  ;
  1.  ;
  1.  ;----------
  1. BUILD ;EP
  1.  ;---> Build routine rest of this routine, containing current
  1.  ;---> C-VT100 screen handling codes for updating the Terminal
  1.  ;---> Type File.
  1.  ;---> Used by package programmer only.  Not called by any option
  1.  ;---> or User action.
  1.  ;---> To use: 1) Load this routine and delete all lines after
  1.  ;--->            line label CODES, including the line label.
  1.  ;--->         2) At programmer prompt type:
  1.  ;--->            ZL BIVT100 D BUILD^BIVT100  X BIX0.
  1.  ;
  1.  D SETVARS^BIUTL5
  1.  S BIX0="N I F I=1:1 Q:'$D(@(""BIX""_I))  X @(""BIX""_I)"
  1.  S BIX1="ZI "" ;"","" ;"","" ;----------"",""CODES ;EP"""
  1.  S BIX2="N N S N=-1 F  S N=$O(^%ZIS(2,9,N)) Q:N=""""  "
  1.  S BIX2=BIX2_"ZI "" ;;""_N_"";;""_^(N)"
  1.  S BIX3="ZS BIVT100"
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. CODES ;EP
  1.  ;;0;;C-VT100^1
  1.  ;;1;;80^$C(27,91,50,74,27,91,72),#^24^$C(8)^W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)
  1.  ;;5;;^^$C(27,91,72)^$C(27,91,55,109)^$C(27,91,109)^$C(27,91,75)^$C(27,91,74)^$C(27,91,53,109)^$C(27,91,109)
  1.  ;;6;;$C(27,99)^^^$C(27,91,52,109)^$C(27,91,109)^^^$C(27,91,109)
  1.  ;;7;;$C(27,91,49,109)^$C(27,91,109)^$C(27,91,109)
  1.  ;;8;;$C(27)_"[A"^$C(27)_"[B"^$C(27)_"[C"^$C(27)_"[D"^3^^$C(27,91)_"1L"
  1.  ;;8.1;;$C(27)_"[?25h"^$C(27)_"[?25l"
  1.  ;;9;;Digital Equipment Corporation VT-100 video
  1.  ;;10;;W *27,"[5i"
  1.  ;;11;;H 1 W *27,"[4i"
  1.  ;;13;;$C(27,91,49,74)^$C(27,91,50,74)^$C(27,91,49,75)^$C(27,91,50,75)^^$C(27)_"7"_$J("",X)_$C(27)_"8"
  1.  ;;14;;$C(27)_"D"^$C(27)_"M"^$C(27,55)^$C(27,56)^$C(27)_"E"
  1.  ;;15;;$C(27,91,63,55,104)^$C(27,91,63,55,108)^$C(27,91,63,56,104)^$C(27,91,63,56,108)^$C(27,61)^$C(27,62)
  1.  ;;16;;$C(27,72)^$C(27,91,103)^$C(27,91,51,103)^$C(27,91)_(+IOTM)_$C(59)_(+IOBM)_$C(114)
  1.  ;;17;;$C(27,35,51)^$C(27,35,52)^$C(27,35,54)^$C(27,35,53)
  1.  ;;18;;$C(27)_"Op"^$C(27)_"Oq"^$C(27)_"Or"^$C(27)_"Os"^$C(27)_"Ot"^$C(27)_"Ou"^$C(27)_"Ov"^$C(27)_"Ow"^$C(27)_"Ox"^$C(27)_"Oy"
  1.  ;;19;;$C(27)_"OP"^$C(27)_"OQ"^$C(27)_"OR"^$C(27)_"OS"^$C(27)_"Om"^$C(27)_"Ol"^$C(27)_"OM"^$C(27)_"On"
  1.  ;;G;;"l"^"m"^"k"^"j"^"n"^"w"^"v"^"t"^"u"^"x"^"q"
  1.  ;;G0;;$C(27)_"(B"
  1.  ;;G1;;$C(27)_"(0"
  1.  ;;SY;;VT
  1.  ;;XY;;W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)