Last change
on this file since 1005 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
474 bytes
|
Line | |
---|
1 | PPPBLD2 ;ALB/DMB - BUILD FFX FROM CDROM : 3/4/92
|
---|
2 | ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
|
---|
3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | ADD2ERR(ARRYNM,ERRTXT) ; Add an error to the error list
|
---|
6 | ;
|
---|
7 | N IDX,PARMERR,LKUPERR,TMP
|
---|
8 | ;
|
---|
9 | S PARMERR=-9001
|
---|
10 | S LKUPERR=-9003
|
---|
11 | ;
|
---|
12 | ; Check Parameters
|
---|
13 | ;
|
---|
14 | I '$D(ARRYNM) Q PARMERR
|
---|
15 | I '$D(ERRTXT) S ERRTXT=""
|
---|
16 | ;
|
---|
17 | ; Set the array
|
---|
18 | ;
|
---|
19 | F IDX=1:1 S TMP=$O(@ARRYNM@(IDX)) Q:TMP=""
|
---|
20 | S @ARRYNM@(IDX+1)=ERRTXT
|
---|
21 | ;
|
---|
22 | Q 0
|
---|
Note:
See
TracBrowser
for help on using the repository browser.