BARUFUTZ ; IHS/SD/TPF - UTILITY TO CLEAR TRANSMITTED FLAGS ; 12/12/2008
Source file <BARUFUTZ.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | NOW^%DTC ^DIC ^DIE ^DIR |
IHS Accounts Receivable | 2 | $$ADDSTAT^BARUFUT EOP^BARUTL |
Name | Comments | DBIA/ICR reference |
---|---|---|
ASK(Z,Y) | ;
|
|
EN | ;EP; CLEAR TRANSMITTED FLAGS TO ALLOW RE-TRANSMISSION
; ******************************************************************** |
|
DIAG | ||
SESS(BARFILE) | ;FIND UDUZ AND SESSIONS IN FILE
|
|
CLEAR(UDUZ,SESSID) | ;CLEAR FLAGS
|
|
SETSESS(UDUZ,SESSID,BARSTAT) | ;EP - SET SESSION STATUS 'BARSTAT'
|
|
DIAG1 | ||
DELFLG(DA) | ;EP - DELETE SESSION 'TRANSMITTED DATE' FLAG
|
|
FILE() | ;
|
|
DELSFLG(UDUZ,SESSID,DA) | ;EP - DELETE SESSION 'TRANSMITTED DATE' FLAG
|
|
OPEN() | ||
MSG(Z) | ;MESSAGE CENTER
|
|
ADDSTAT(UDUZ,SESSID) | ; EP - ;CREATE A NEW STATUS CHANGE DATE/TIME
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BARSESS( | DIAG+6!, SESS+4, SESS+6, SESS+9, SESS+11, SESS+13, CLEAR+3 |
^BARTR( | CLEAR+4 |
^DD(90057.11 | ADDSTAT+6 |
Name | Line Occurrences |
---|---|
$$FILE | EN+4 |
$$OPEN | DIAG1+3 |
$$SETSESS | OPEN+7 |
ASK | FILE+10 |
CLEAR | DIAG+5 |
DELFLG | DIAG1+2 |
DELSFLG | DIAG1+1 |
MSG | EN+5, EN+8, SESS+4 |
SESS | EN+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ADDSTAT+3 |
ANS | FILE+1~, FILE+10, FILE+11 |
BAR | EN+2!, EN+8 |
BAR( | EN+11, EN+13, DIAG+2, DIAG+3, SESS+14* |
BARFILE | EN+3~, EN+4*, EN+5, EN+7, SESS~, SESS+7 |
BARFN | SESS+3~, SESS+5*, SESS+6*, SESS+7, SESS+9, SESS+11, SESS+13, SESS+14 |
>> BARFNM | DIAG+3*, DIAG+4, DIAG+6 |
BARID | EN+3~, EN+12*, EN+13*, DIAG, DIAG+2, DIAG+3, DIAG+5, DIAG+6, SESS+3~, SESS+8* , SESS+9*, SESS+11, SESS+13, SESS+14 |
BARN | EN+3~, DIAG+1*, DIAG+2*, DIAG+3, DIAG+6, SESS+3~, SESS+12*, SESS+13*, SESS+14 |
BAROK | CLEAR+1~, DIAG1+3*, DIAG1+4 |
BARSTAT | SETSESS~, SETSESS+1 |
BARTMP | CLEAR+1~, CLEAR+4*, DIAG1 |
BARZ | SESS+3~, SESS+10*, SESS+11*, SESS+13, SESS+14 |
DA | DELSFLG~, DELFLG~, OPEN!, SETSESS+8!, SETSESS+11*, SETSESS+15!, ADDSTAT+1! |
DA(1 | DELSFLG+4*, DELSFLG+6, OPEN+1*, OPEN+4, SETSESS+10*, SETSESS+13, ADDSTAT+5*, ADDSTAT+7 |
DA(2 | DELSFLG+3*, DELSFLG+6, SETSESS+9*, SETSESS+13, ADDSTAT+4*, ADDSTAT+7 |
DIC | DELSFLG+2!, DELFLG+2!, OPEN!, OPEN+4*, SETSESS+8!, SETSESS+15!, ADDSTAT+1!, ADDSTAT+7* |
DIC("P" | ADDSTAT+6* |
DIC(0 | OPEN+3*, ADDSTAT+8* |
DIE | DELSFLG+2!, DELSFLG+6*, DELFLG+2!, DELFLG+4*, OPEN!, SETSESS+8!, SETSESS+13*, SETSESS+15!, ADDSTAT+1! |
DIR | DELSFLG+2!, DELFLG+2!, OPEN!, FILE+2!, SETSESS+5!, SETSESS+8!, SETSESS+15!, ADDSTAT+1!, ASK+1! |
DIR("?" | FILE+4* |
DIR("A" | FILE+5*, ASK+3* |
DIR("B" | ASK+4* |
DIR(0 | FILE+3*, SETSESS+6*, ASK+2* |
>> DIROUT | FILE+7 |
DR | DELSFLG+2!, DELSFLG+5*, DELFLG+2!, DELFLG+3*, OPEN!, SETSESS+8!, SETSESS+12*, SETSESS+15!, ADDSTAT+1! |
>> DTOUT | FILE+7 |
>> DUOUT | FILE+7 |
DUZ(2 | DIAG+6, SESS+4, SESS+6, SESS+9, SESS+11, SESS+13, CLEAR+3, CLEAR+4 |
FN | FILE+1~, FILE+8*, FILE+9, FILE+12 |
>> MODE | SETSESS+16 |
SESSID | DELSFLG~, DELSFLG+4, CLEAR~, CLEAR+3, DIAG1+1, DIAG1+4, OPEN+2, OPEN+8, SETSESS~, SETSESS+2 , SETSESS+4, SETSESS+10, ADDSTAT~, ADDSTAT+5 |
>> STATCHG | SETSESS+2*, SETSESS+3, SETSESS+11 |
TRDATE | CLEAR+1~, CLEAR+2*, CLEAR+3*, CLEAR+4, DIAG1, DIAG1+1, DIAG1+2 |
U | DIAG1, OPEN+7, SETSESS+11, ADDSTAT+6 |
UDUZ | EN+3~, EN+10*, EN+11*, EN+13, DIAG, DIAG+2, DIAG+3, DIAG+5, DIAG+6, DELSFLG~ , DELSFLG+3, CLEAR~, CLEAR+3, DIAG1+1, OPEN+1, OPEN+7, SETSESS~, SETSESS+2, SETSESS+9, ADDSTAT~ , ADDSTAT+4 |
UFMSESID | SETSESS+16! |
>> X | OPEN+2*, OPEN+7*, ADDSTAT+3* |
Y | OPEN+6, OPEN+7, FILE+7, FILE+8, ADDSTAT+10, ADDSTAT+11, ASK~ |
Z | FILE+1~, FILE+9*, FILE+10, MSG~, MSG+1, MSG+2, MSG+3, ASK~, ASK+3 |