|
Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
739 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
