BARUFEX1 ; IHS/SD/TPF - MAIN EXTRACT RTN FOR UFMS (CONTINUED FROM BARUFEX) ; 10/31/2008
Source file <BARUFEX1.m>
Package | Total | Call Graph |
---|---|---|
IHS Accounts Receivable | 6 | $$REVERSAL^BARUFEX3 ($$GETBACC,$$GETDUZ2,$$GETPLOC,$$GETTPB,$$GETTRDT,ERR)^BARUFEXU $$IHS^BARUFUT SET^BARUFUT0 ($$FILLDOL,$$FILLSTR,$$GETSUFAC)^BARUFUT1 $$VALI^BARVPM |
VA Fileman | 2 | ^DIE $$GET1^DIQ |
Kernel | 1 | $$FMTE^XLFDT |
Third Party Billing | 1 | $$BILL^ABMUEAPI |
Name | Comments | DBIA/ICR reference |
---|---|---|
SET | ;EP -
|
|
CONT | ; ALL QUIT CONDITIONS HAVE BEEN MET
; LET'S UPDATE THE 'APPLY TO' FIELD IN THE SESSION LOG FILE |
|
ERR26 | ||
LCKTR(TRDATE,SESSID) | ;EP; LOCK A/R SESSION FILE
|
|
OK(A,B) | ;CHECK A/R TRANSACTION AND SESSION FILES FOR TRANSMISSION DATES;MRS:BAR*1.8*7 IM30562
|
|
MSG(X,Y,Z) | ;WRITE ERROR MESSAGE MRS:BAR*1.8*9 IM30945
|
|
UPTR(A,D,F,ID,Z) | ;UPDATE THE NEW FIELDS IN A/R TRANSACTION FILE ;MRS:BAR*1.8*7 IM30562
|
|
UPSTR(A,D,Z,ID) | ;UPDATE 'APPLY TO' AND THE TRANSMITTED? FIELD IN THE SESSION LOG FILE ;MRS:BAR*1.8*7 IM30562
|
|
ERR2 | ||
ERR1 | ||
DATA | ;LOCAL ENTRY POINT
|
|
DBCK(X) | ;DOUBLE CHECK UFMSSUFC
|
|
GETDATA(TRDATE,RECORD,TOTAMT,UDUZ,SESSID) | ;EP - PULL DATA FROM ONE TRANSACTION DATE/TIME
|
Name | Field # of Occurrence |
---|---|
$$BILL^ABMUEAPI | ERR1+16 |
$$REVERSAL^BARUFEX3 | ERR1+63 |
$$GETBACC^BARUFEXU | ERR1+19 |
$$GETDUZ2^BARUFEXU | ERR1+3 |
$$GETPLOC^BARUFEXU | ERR1+21 |
$$GETTPB^BARUFEXU | ERR1+5 |
$$GETTRDT^BARUFEXU | ERR1+34, DBCK+3 |
ERR^BARUFEXU | ERR1, ERR2 |
$$IHS^BARUFUT | ERR1+7 |
SET^BARUFUT0 | SET+13 |
$$FILLDOL^BARUFUT1 | CONT+23 |
$$FILLSTR^BARUFUT1 | CONT+21, CONT+22, CONT+26, CONT+27, CONT+28, CONT+29, CONT+30, CONT+31, CONT+33, CONT+40 , CONT+43 |
$$GETSUFAC^BARUFUT1 | CONT+35 |
$$VALI^BARVPM | ERR1+30 |
^DIE | CONT+11, UPSTR+15, UPTR+15 |
$$GET1^DIQ | DATA+10, DATA+12, DATA+13, DATA+14, DATA+16, DATA+17, ERR1+11, ERR1+23, ERR1+24, ERR1+25 , ERR1+27, ERR1+40, ERR1+41, ERR1+42, ERR1+46, ERR1+47, ERR1+68, CONT+4, CONT+16 |
$$FMTE^XLFDT | ERR1+43, ERR1+44, ERR1+45, CONT+19 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^BARBL(2906 - [#90050.01] | GET1^DIQ |
^BARTR(2906 - [#90050.03] | GET1^DIQ |
^BARCOL(2906 - [#90051.01] | GET1^DIQ |
90051.1101 | GET1^DIQ |
90057.110102 | GET1^DIQ |
^AUTTLOC - [#9999999.06] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BAR(90052.06 | DATA+5 |
^BARSESS( | OK+7, OK+20, LCKTR+3 |
^BARTR( | GETDATA+5, OK+6, OK+11 |
^BARUFERR - [#90057.1] | MSG+1 |
^BARUFEX($J | SET+2*, SET+3* |
^DD("DD" | DATA+9 |
Name | Line Occurrences |
---|---|
$$DBCK | CONT+24 |
$$LCKTR | GETDATA+3 |
$$OK | GETDATA+2 |
DATA | GETDATA+4 |
MSG | OK+18, OK+21, OK+22, ERR26+1 |
UPSTR | SET+4, OK+22 |
UPTR | SET+6, OK+21 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | UPSTR~, UPSTR+9, UPTR~, UPTR+9, OK~, OK+6, OK+7, OK+11, OK+20, OK+21 , OK+22 |
>> ADJCAT | ERR1+47* |
APPLYTO | DATA+3! |
ARASUFAC | DATA+3! |
ARBILL | DATA+2!, DATA+10*, DATA+11, ERR1+3, ERR1+9, ERR1+17, ERR1+64, CONT+13 |
>> ARBILLIN | DATA+16*, DATA+17, ERR1+3, ERR1+5, ERR1+11, ERR1+19, ERR1+21 |
ARCOL | DATA+3! |
>> ARCOLB | ERR1+24*, ERR1+40*, CONT+21 |
ARCOLDT | DATA+3!, ERR1+41*, ERR1+44*, CONT+30 |
ARCOLIN | DATA+3!, ERR1+25*, ERR1+40, ERR1+41, ERR1+42, ERR1+68 |
>> ARCOLITM | ERR1+23*, ERR1+68 |
ARCRDEB | DATA+4!, DATA+14*, DATA+15 |
ARCREDIT | DATA+2!, DATA+12*, ERR1+50 |
ARDEBIT | DATA+2!, DATA+13*, ERR1+50 |
B | OK~, OK+7, OK+20, OK+21 |
BARACCT | DATA+2!, ERR1+19*, ERR1+20, ERR1+29 |
BARAREA | DATA+3!, ERR1+27* |
>> BARFILE | SET+6 |
>> BARITYP | ERR1+30*, ERR1+31 |
>> BARNOW | SET+4 |
BARREAS | DATA+4! |
>> BARRIPAC | ERR1+63*, ERR1+71, ERR2+4 |
>> BILASUFA | ERR1+11*, CONT+37*, CONT+38 |
>> CURBLAMT | DATA+17*, DATA+20 |
D | UPSTR~, UPSTR+12, UPTR~, UPTR+11 |
>> D0 | ERR1+29* |
DA | CONT+5!, CONT+8*, CONT+12!, UPSTR+6!, UPSTR+9*, UPTR+8!, UPTR+9* |
DA(1 | CONT+7*, CONT+9, UPSTR+8*, UPSTR+14 |
DA(2 | CONT+6*, CONT+9, UPSTR+7*, UPSTR+14 |
DIC | CONT+5!, CONT+12!, UPSTR+6!, UPTR+8! |
DIE | CONT+5!, CONT+9*, CONT+12!, UPSTR+6!, UPSTR+14*, UPTR+8!, UPTR+14* |
DIR | CONT+5!, CONT+12!, UPSTR+6!, UPTR+8! |
DR | CONT+5!, CONT+10*, CONT+12!, UPSTR+6!, UPSTR+10*, UPSTR+11*, UPSTR+12*, UPSTR+13*, UPTR+8!, UPTR+10* , UPTR+11*, UPTR+12*, UPTR+13* |
DUZ | SET+4, SET+6 |
DUZ(2 | GETDATA+5, DATA+5, OK+6, OK+7, OK+11, OK+20, LCKTR+3 |
F | UPTR~, UPTR+10 |
>> I | LCKTR+3* |
ID | UPSTR~, UPSTR+13, UPTR~, UPTR+13 |
IENS | DATA+2!, DATA+8*, DATA+10, DATA+12, DATA+13, DATA+14, DATA+16, ERR1+23, ERR1+24, ERR1+25 , ERR1+46, ERR1+47 |
>> IPAC | ERR1+68*, ERR1+71, ERR2+2*, ERR2+3*, ERR2+4*, CONT+27 |
OK | OK+4~, OK+5* |
PARNTLOC | DATA+3!, ERR1+21*, ERR1+22, ERR1+27 |
PRELIV | DATA+4! |
PRELIVLM | DATA+4!, DATA+5* |
>> PRESUFAC | CONT+38*, CONT+40*, CONT+41 |
>> PSUFAC | CONT+35*, CONT+36*, CONT+38 |
RECORD | GETDATA~, SET+2, SET+3, SET+15* |
REVERSAL | DATA+4!, CONT+16*, CONT+18, CONT+19 |
>> RPMSADJ | CONT+28*, SET+2, SET+3 |
>> RPMSAMT | CONT+29*, SET+2, SET+3 |
S0 | OK+4~, OK+7*, OK+8, OK+10, OK+16, OK+17 |
SDT | OK+4~, OK+10*, OK+12, OK+18, OK+21, OK+22 |
SDUZ | OK+4~, OK+16*, OK+20, OK+21 |
SESSID | GETDATA~, GETDATA+2, GETDATA+3, ERR1+3, CONT+4, CONT+7, SET+6, SET+13, UPSTR+8, LCKTR~ , LCKTR+3, ERR26+1 |
SFILE | OK+4~, OK+19*, OK+20*, OK+21 |
SID | OK+4~, OK+17*, OK+21 |
>> TDNDATE | ERR1+42*, ERR1+43*, CONT+31*, SET+2 |
TOTAMT | GETDATA~, SET+17* |
>> TPBDUZ2 | ERR1+3*, ERR1+4, ERR1+7, ERR1+16, ERR1+34, DBCK+3 |
TPBIEN | DATA+2!, ERR1+5*, ERR1+6, ERR1+16, ERR1+34, CONT+38, DBCK+3 |
TPBLOC | DATA+2! |
TPBSTAT | DATA+2! |
TR0 | OK+4~, OK+6*, OK+8, OK+9, OK+13, OK+14, OK+15 |
TRANTYPE | DATA+3!, ERR1+46*, ERR1+51, ERR1+56 |
TRDATE | GETDATA~, GETDATA+2, GETDATA+3, GETDATA+5, DATA+8, DATA+9, ERR1+3, ERR1+45, CONT+4, CONT+8 , CONT+13, CONT+16, CONT+33, SET+4, SET+6, OK+18, LCKTR~, ERR26+1, DBCK+7 |
TRDT | OK+4~, OK+9*, OK+12, OK+18, OK+21, OK+22 |
TRDUZ | OK+4~, OK+14*, OK+22 |
TRFILE | OK+4~, OK+13* |
TRID | OK+4~, OK+15*, OK+22 |
U | DATA+5, OK+9, OK+10, OK+11, OK+13, OK+14, OK+15, OK+16, OK+17, OK+20 , MSG+1 |
UDUZ | GETDATA~, ERR1+3, CONT+4, CONT+6, SET+13, UPSTR+7, OK+7, OK+20, LCKTR+3 |
UFMSAMT | DATA+3!, ERR1+50*, ERR1+53, ERR1+58, CONT+23*, SET+2, SET+3, SET+16*, SET+17 |
UFMSBILL | DATA+2! |
>> UFMSCODT | CONT+30*, SET+2 |
>> UFMSCOLB | CONT+21*, SET+2, SET+3 |
>> UFMSIPAC | CONT+27*, SET+2, SET+3 |
>> UFMSSIGN | ERR1+53*, ERR1+58*, SET+2, SET+3, SET+16 |
UFMSSUFC | DATA+4!, ERR1+34*, ERR1+35, CONT+24*, CONT+26*, CONT+34, CONT+42, SET+2, SET+3 |
UFMSTRDT | DATA+2!, DATA+9*, ERR1+45*, CONT+19*, CONT+22*, SET+2, SET+3 |
UFMSTYPE | DATA+3!, ERR1+52*, ERR1+57*, ERR1+71, ERR2+3, SET+2, SET+3 |
>> UNIQUEID | CONT+33*, CONT+41*, CONT+42*, CONT+43*, SET+2, SET+3, SET+4, SET+6 |
X | MSG~, MSG+1, LCKTR+2~, LCKTR+3*, ERR26, ERR26+2, DBCK~, DBCK+4, DBCK+5, DBCK+6 |
Y | DATA+9*, MSG~, MSG+2 |
Z | UPSTR~, UPSTR+11, UPTR~, UPTR+12, MSG~, MSG+2, DBCK+2~, DBCK+3*, DBCK+4, DBCK+5 , DBCK+7, DBCK+8 |