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

INHSZ0.m

Go to the documentation of this file.
  1. INHSZ0 ;JSH; 29 Jan 92 09:47;Interface Script compiler (cont'd)
  1. ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1. ;COPYRIGHT 1991-2000 SAIC
  1. ;
  1. L G L^INHSZ1
  1. ;
  1. GETLINE ;Returns next line of code in array LINE
  1. K LINE N I
  1. S CALL(CALL,0)=$O(^INRHS(CALL(CALL),1,CALL(CALL,0))) Q:'CALL(CALL,0)
  1. S LINE=^INRHS(CALL(CALL),1,CALL(CALL,0),0) I LINE["|CR|" S LINE=$$LBTB^UTIL($P(LINE,"|CR|")) Q
  1. S I=0
  1. G1 S CALL(CALL,0)=$O(^INRHS(CALL(CALL),1,CALL(CALL,0))) G:'CALL(CALL,0) GQ S I=I+1,LINE(I)=^(CALL(CALL,0),0) G GQ:LINE(I)["|CR|",G1
  1. GQ S:I LINE(I)=$P(LINE(I),"|CR|")
  1. S LINE=$$LB^UTIL(LINE) Q
  1. ;
  1. QCHK ;Add code to check for errors and quit
  1. S A=" I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)" D L
  1. Q
  1. ;
  1. SYNTAX(%L,%P) ;Check syntax of a line using pattern match
  1. ;%L = string to check %P = pattern match
  1. I $G(%P)="" Q 1
  1. I %L?@%P Q 1
  1. D ERROR("Statement syntax error.",1) Q 0
  1. ;
  1. ERROR(%M,%L) ;Report an error
  1. ;%M = message %L = print line (1=yes, 0=no)
  1. N I
  1. S ER=1
  1. W *7,!!,"ERROR: ",%M Q:'$G(%L)
  1. EDISP W !,LINE I $D(LINE)>9 F I=1:1 Q:'$D(LINE(I)) W LINE(I)
  1. Q
  1. ;
  1. WARN(%M,%L) ;Report a warning
  1. ;%M = message %L = print line (0=no, 1=yes)
  1. W *7,!!,"WARNING: ",%M
  1. S WARN=$G(WARN)+1 G:$G(%L) EDISP
  1. Q
  1. ;