| EN2 |
POST A TRANSACTION Y=1 IF SUCCESSFUL, +Y=0 WHEN
FAILED AND Y CONTAINS ERROR MESSAGE
requires PRCSX=Sta-obl#^int. Date/time^est amt^act amt^reference^comments(up
to 78 characters)^interface id^complete payment flag PRCS("TYPE")= "FB" or
"COUNTER"
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PRCSX |
Input |
Sta-obl#^int. Date/time^est amt^act
amt^reference^comments(up to 78 characters)^interface id^complete payment flag
|
PRCS |
Input |
PRCS("TYPE") = "FB" or "COUNTER"
|
X |
Input |
X=FBAAOB_"^"_%_"^^"_FBAAMT_"^"_$S($L(FBAAB)<3:$$PADZ^FBAAV01(FBAAB,4),1:FB
AAB)_"^"_FBCOMM_"^"_FBN_"^"_1
|
FBAAOB |
Input |
FULL OBLIGATION NUMBER(STA-CXXXXX)
|
FBAAMT |
Input |
TOTAL AMOUNT OF BATCH
|
FBCOMM |
Input |
COMMENT FOR 1358
|
FBAAB |
Input |
BATCH NUMBER
|
FBN |
Input |
FBN added as 7th peice of 'X'. It is the interface ID
|
|
EN3 |
TAKE OBLIGATION#, CHECK IF AN OPEN 1358. IF OK Y=1
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PRCS |
Input |
PRCS("X")=FULL OBLIGATION NUMBER(STA-CXXXXX)
|
Y |
Output |
IF OK Y=1 (or Y=-1 ;NOT OK)
|
|
