Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
739 bytes
|
Line | |
---|
1 | PRCOACT0 ;WISC - "ACT" & "PRJ" TRANSACTIONS CONT. ;8/5/96
|
---|
2 | ;;5.1;IFCAP;;Oct 20, 2000
|
---|
3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | ;called from routine PRCOACT
|
---|
6 | PERROR ;entry with PRCXM( array that contains error in processing
|
---|
7 | ;entry will send mail group defined in 423.5 the error
|
---|
8 | ;
|
---|
9 | I '$O(PRCXM(0)) Q
|
---|
10 | S PRCMG=$S('$D(PRCMG):.5,$E(PRCMG,1,2)'="G.":"G."_PRCMG,1:.5)
|
---|
11 | S XMY(PRCMG)=""
|
---|
12 | S XMDUZ="IFCAP SERVER PROCESSOR"
|
---|
13 | S XMTEXT="PRCXM("
|
---|
14 | S XMSUB="IFCAP EDI/RFQ MESSAGE ERROR"
|
---|
15 | D ^XMD
|
---|
16 | K XMY,XMDUZ,XMSUB,XMTEXT,PRCXM
|
---|
17 | Q
|
---|
18 | ;
|
---|
19 | EXTRL(V,T) ;Removes leading spaces or zeros.
|
---|
20 | ;V=variable to be parced
|
---|
21 | ;T=1 remove leading zeros, T="" remove leading spaces
|
---|
22 | S T=$S($G(T):0,1:" ")
|
---|
23 | F Q:$E(V)'=T S V=$E(V,2,$L(V))
|
---|
24 | Q V
|
---|
25 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.