source: FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCOACT0.m@ 1641

Last change on this file since 1641 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 739 bytes
Line 
1PRCOACT0 ;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
6PERROR ;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 ;
19EXTRL(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.