26 lines
739 B
Mathematica
26 lines
739 B
Mathematica
PRCOACT0 ;WISC - "ACT" & "PRJ" TRANSACTIONS CONT. ;8/5/96
|
|
;;5.1;IFCAP;;Oct 20, 2000
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;
|
|
;called from routine PRCOACT
|
|
PERROR ;entry with PRCXM( array that contains error in processing
|
|
;entry will send mail group defined in 423.5 the error
|
|
;
|
|
I '$O(PRCXM(0)) Q
|
|
S PRCMG=$S('$D(PRCMG):.5,$E(PRCMG,1,2)'="G.":"G."_PRCMG,1:.5)
|
|
S XMY(PRCMG)=""
|
|
S XMDUZ="IFCAP SERVER PROCESSOR"
|
|
S XMTEXT="PRCXM("
|
|
S XMSUB="IFCAP EDI/RFQ MESSAGE ERROR"
|
|
D ^XMD
|
|
K XMY,XMDUZ,XMSUB,XMTEXT,PRCXM
|
|
Q
|
|
;
|
|
EXTRL(V,T) ;Removes leading spaces or zeros.
|
|
;V=variable to be parced
|
|
;T=1 remove leading zeros, T="" remove leading spaces
|
|
S T=$S($G(T):0,1:" ")
|
|
F Q:$E(V)'=T S V=$E(V,2,$L(V))
|
|
Q V
|
|
;
|