BPSOSUD ;BHAM ISC/FCS/DRS/FLS - utils, some options ;06/01/2004
Source file <BPSOSUD.m>
Package | Total | Call Graph |
---|---|---|
E Claims Management Engine | 3 | $$FREETEXT^BPSOSU2 PRESSANY^BPSOSU5 IMPOSS^BPSOSUE |
VA FileMan | 1 | (C,H,NOW)^%DTC |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
INCSTAT(N1,P1,N2,P2,N3,P3) | ;EP - BPSBUTL,BPSOSQL
; increment the given N nodes at the P pieces |
|
ADDSTAT(N1,P1,Q1,N2,P2,Q2,N3,P3,Q3) | ;
; add Quantities to given Nodes,Pieces |
|
ADD1STAT(N,P,Q) | ;
|
|
DATETIME(Y) | ;EP - convert fileman date.time to printable
|
|
TIMEAGO(THEN) | ; external form for TIMEAGOI
|
|
TIMEAGOI(THEN) | ; how many seconds ago was it? returns positive value
|
|
TIMEDIFI(X1,X2) | ;EP - Computed field of BPS Log of Transactions and BPS Transactions
; time difference in seconds, negative if X1>X2 |
|
TIMEDIF(X1,X2) | ;EP - Computed field of BPS Log of Transactions and BPS Transactions
|
|
SECSDHMS(X) | ;EP - seconds -> # da # hr # min # sec
|
|
PRESSANY | ||
CONTINUE(DEF) | ;EP -
; returns a single character ; or returns DEF, the default |
|
CONT1 | ;
|
|
TT() | ||
SHOULDNT | ||
TDIFNOW(T) | ;EP - ; compute time difference between T and NOW
; returns # of seconds, positive if T precedes now (how long ago) ; negative if T follows NOW (countdown "T minus...") |
|
TDIF(T1,T2) | ; compute time difference T1-T2 = how many seconds
|
|
TADDSECS(T1,SECS) | ; add SECS seconds to T1
|
|
BADPARAM(VARNAME,ATLABEL) | ||
TADDNOWS(SECS) | ;EP - add SECS seconds to NOW
|
|
SECS2T2(SECS) | ; convert integer seconds into a fileman time format
|
|
TADDNOW(T2) | ;EP - ; add T2 time differential to NOW
|
|
TADD(T1,T2) | ;EP - ; add T2 time differential to T1
|
|
CDTC(X1,X2) |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BPSECX("S" - [#9002313.58] | ADD1STAT+1, ADD1STAT+2*, ADD1STAT+3*, ADD1STAT+4 |
^DD("DD" | DATETIME+1 |
Name | Line Occurrences |
---|---|
$$CDTC | TADD+6, TADD+15, TADD+16 |
$$SECS2T2 | TADDSECS+1, TADDNOWS+2 |
$$SECSDHMS | TIMEDIF+3 |
$$TADD | TADDSECS+2, TADDNOW+2 |
$$TADDNOW | TADDNOWS+3 |
$$TDIF | TDIFNOW+4 |
$$TIMEDIF | TIMEAGO+1 |
$$TIMEDIFI | TIMEAGOI+2, TIMEDIFI+2, TIMEDIF+1 |
ADD1STAT | INCSTAT+2, INCSTAT+3, INCSTAT+4, ADDSTAT+2, ADDSTAT+3, ADDSTAT+4 |
BADPARAM | TADDNOWS+1, TADD+1, TADD+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | TIMEAGO+1~, TIMEAGOI+1~, TIMEAGOI+2, TIMEDIFI+3~, SECSDHMS+1~*, SECSDHMS+2*, SECSDHMS+3*, SECSDHMS+4*, SECSDHMS+5*, SECSDHMS+6 , TDIFNOW+3~, TDIFNOW+4, SECS2T2+4~*, SECS2T2+5*, TADDNOW+1~, TADDNOW+2 |
%H | TIMEAGO+1~, TIMEAGOI+1~, TIMEDIFI+3~, TIMEDIFI+4, TIMEDIFI+5, TDIFNOW+3~, TADDNOW+1~, CDTC~ |
%I | TIMEAGO+1~, TIMEAGOI+1~, TDIFNOW+3~, TADDNOW+1~ |
%T | TIMEDIFI+3~, TIMEDIFI+4, TIMEDIFI+5 |
%Y | TIMEDIFI+3~ |
ATLABEL | BADPARAM~ |
D1 | TIMEDIFI+3~, TIMEDIFI+4*, TIMEDIFI+6 |
D2 | TIMEDIFI+3~, TIMEDIFI+5*, TIMEDIFI+6 |
DEF | CONTINUE~ |
N | ADD1STAT~, ADD1STAT+1, ADD1STAT+2, ADD1STAT+3, ADD1STAT+4 |
N1 | INCSTAT~, INCSTAT+2, ADDSTAT~, ADDSTAT+2 |
N2 | INCSTAT~, INCSTAT+3, ADDSTAT~, ADDSTAT+3 |
N3 | INCSTAT~, INCSTAT+4, ADDSTAT~, ADDSTAT+4 |
NEG | SECS2T2+1~*, SECS2T2+7 |
P | ADD1STAT~, ADD1STAT+3 |
P1 | INCSTAT~, INCSTAT+2, ADDSTAT~, ADDSTAT+2 |
P2 | INCSTAT~, INCSTAT+3, ADDSTAT~, ADDSTAT+3 |
P3 | INCSTAT~, INCSTAT+4, ADDSTAT~, ADDSTAT+4 |
Q | ADD1STAT~, ADD1STAT+3 |
Q1 | ADDSTAT~, ADDSTAT+2 |
Q2 | ADDSTAT~, ADDSTAT+3 |
Q3 | ADDSTAT~, ADDSTAT+4 |
R | TDIF+3~*, TDIF+9*, TDIF+10, TADD+5~, TADD+6*, TADD+15*, TADD+16*, TADD+18*, TADD+20*, TADD+22* , TADD+23*, TADD+24*, TADD+25 |
S | TADD+14~*, TADD+15*, TADD+16*, TADD+17*, TADD+19*, TADD+21*, TADD+23 |
SECS | TADDSECS~, TADDSECS+1, TADDNOWS~, TADDNOWS+1, TADDNOWS+2, SECS2T2~, SECS2T2+1*, SECS2T2+2*, SECS2T2+4*, SECS2T2+5* , SECS2T2+6* |
SGN | TIMEDIF+2~*, TIMEDIF+3, TADD+2~*, TADD+3, TADD+6, TADD+13 |
T | TDIFNOW~, TDIFNOW+4 |
T1 | TIMEDIFI+3~, TIMEDIFI+4*, TIMEDIFI+6, TDIF~, TDIF+2*, TDIF+3, TDIF+4*, TDIF+5*, TDIF+7*, TDIF+9 , TADDSECS~, TADDSECS+2, TADD~, TADD+1, TADD+3, TADD+4*, TADD+6, TADD+8*, TADD+9*, TADD+11* , TADD+14 |
T2 | TIMEDIFI+3~, TIMEDIFI+5*, TIMEDIFI+6, TDIF~, TDIF+2*, TDIF+3, TDIF+4*, TDIF+6*, TDIF+8*, TDIF+9 , TADDSECS+1~*, TADDSECS+2, TADDNOWS+2~*, TADDNOWS+3, SECS2T2+1~, SECS2T2+2*, SECS2T2+3*, SECS2T2+4*, SECS2T2+5*, SECS2T2+6* , SECS2T2+7, TADDNOW~, TADDNOW+2, TADD~, TADD+2*, TADD+3, TADD+4*, TADD+6, TADD+7*, TADD+10* , TADD+12*, TADD+13*, TADD+14, TADD+17*, TADD+18, TADD+19*, TADD+20, TADD+21*, TADD+22, TADD+23* |
THEN | TIMEAGO~, TIMEAGO+1, TIMEAGOI~, TIMEAGOI+2 |
U | ADD1STAT+3 |
VARNAME | BADPARAM~ |
X | TIMEAGO+1~, TIMEAGOI+1~, TIMEDIFI+3~, TIMEDIFI+4*, TIMEDIFI+5*, TIMEDIFI+6*, TIMEDIFI+7, TIMEDIF+1~*, TIMEDIF+2*, TIMEDIF+3 , SECSDHMS~, SECSDHMS+2*, SECSDHMS+3*, SECSDHMS+4*, SECSDHMS+5, CONT1+1*, CONT1+2, TDIFNOW+3~, TADDNOW+1~, CDTC~ |
X1 | TIMEDIFI~, TIMEDIFI+2, TIMEDIFI+4, TIMEDIF~, TIMEDIF+1, CDTC~ |
X2 | TIMEDIFI~, TIMEDIFI+2, TIMEDIFI+5, TIMEDIF~, TIMEDIF+1, CDTC~ |
Y | DATETIME~, DATETIME+1 |
Name | Field # of Occurrence |
---|---|
$T( | BADPARAM |