Routine: BARRQ

Information

BARRQ ; IHS/SD/TPF - Re-queue A/R Transactions for UFMS export ;

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS Accounts Receivable	5	^BARBAN (CBSEARCH,FNSEARCH,MSG1,OPENSESS,PROCESS,SETRQTYP,SSEARCH)^BARRQ1 ($$INDPAT,CLEARTX,CLRSESS,MSG,RESEND,SESSLOG)^BARRQ2 DISPLAYT^BARUFLOG ASKFORRT^BARUFUT
Kernel	3	HOME^%ZIS ^%ZISC ($$OPEN,$$STATUS,LIST)^%ZISH
VA Fileman	3	NOW^%DTC ^DIC ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARRQ1

Entry Points

Name	Comments	DBIA/ICR reference
FAGAIN	;EP - AGAIN
REQTYP	;CHOOSE METHOD
EN	;EP - RE-QUE TRANS
ASKFILE(TYPE)	;EP - CHOOSE UFMS FILE TO VIEW
ASKAGAIN	;EP
CLRSESS	;CLEAR THE SESS TRANSMISSION DATA
EN2	; EP - FOR TPBLIST (ENTER WITH BARTRIEN, DON'T NEW BARBILL OR BARBLIEN)
EN1	; EP - Entry point when A/R Trans not entered by user (BARTRIEN needed)
INIT	;
CLEARTX	;EP - CLEAR THE A/R TRANS TRANSMISSION DATA
ASKDIR	;EP - ASK DIR
TXFILE	;LOOP TO RE-Q FILE OF TXs
RESEND(UDUZ,SESSID,BARTRIEN)	;EP - ADD TO NEW CASHIER SESS
REQUEUE	;Re-queue based on TPB, A/R lists
BLLIST	;EP - ALLOW ENTRY OF 1+ BILLS ON THE FLY
PAYREV(BARTRIEN)	;EP - IS PYMT REV
AGAIN	;EP - ASK ANOTHER
TPBFILE	;EP - PROCESS FILE OF TPB BILLS

External References

Name	Field # of Occurrence
NOW^%DTC	REQUEUE+8, EN2+8
HOME^%ZIS	REQUEUE+5
^%ZISC	ASKDIR+54
$$OPEN^%ZISH	ASKDIR+50
$$STATUS^%ZISH	ASKDIR+52
LIST^%ZISH	ASKDIR+22
^BARBAN	REQUEUE+7
CBSEARCH^BARRQ1	REQTYP+25
FNSEARCH^BARRQ1	REQTYP+24
MSG1^BARRQ1	EN2+7, EN2+12, EN2+14, EN2+19, EN2+24, EN2+34, EN2+41, EN2+53, EN2+65
OPENSESS^BARRQ1	REQUEUE+11
PROCESS^BARRQ1	REQTYP+27
SETRQTYP^BARRQ1	REQTYP+4
SSEARCH^BARRQ1	REQTYP+26
$$INDPAT^BARRQ2	ASKAGAIN+27, TXFILE+9, TPBFILE+19, AGAIN+22
CLEARTX^BARRQ2	CLEARTX+1
CLRSESS^BARRQ2	CLRSESS+1
MSG^BARRQ2	REQUEUE+1
RESEND^BARRQ2	RESEND+1
SESSLOG^BARRQ2	CLEARTX+2
DISPLAYT^BARUFLOG	REQUEUE+22
ASKFORRT^BARUFUT	FAGAIN+18
^DIC	ASKAGAIN+9, AGAIN+8
^DIR	REQTYP+14, FAGAIN+8, ASKDIR+6, ASKDIR+16, ASKDIR+35, ASKDIR+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: REQUEUE+6
Function Call: WRITE	Prompt: !!!,"*** NEW OPEN SESSION NOT CREATED ***" Line Location: REQUEUE+15
Function Call: WRITE	Prompt: !! Line Location: REQTYP+1
Function Call: WRITE	Prompt: !,?6,"RE-QUEUE A/R TRANSACTIONS FOR UFMS EXPORT" Line Location: REQTYP+2
Function Call: WRITE	Prompt: !!,"THE PROMPT WILL BE PRESENTED OVER AND OVER" Line Location: ASKAGAIN+1
Function Call: WRITE	Prompt: !,"SO YOU CAN ENTER MORE THAN ONE A/R TRANSACTION." Line Location: ASKAGAIN+2
Function Call: WRITE	Prompt: !,"WHEN YOU ARE DONE ENTERING TRANSACTIONS PRESS RETURN." Line Location: ASKAGAIN+3
Function Call: WRITE	Prompt: ! Line Location: ASKAGAIN+4
Function Call: WRITE	Prompt: !,"INDIAN PAT OR NO INSURER TYPE" Line Location: ASKAGAIN+27
Function Call: WRITE	Prompt: " ??" Line Location: ASKDIR+23
Function Call: WRITE	Prompt: @IOF Line Location: ASKDIR+24
Function Call: WRITE	Prompt: !!!,"FILES FOUND: " Line Location: ASKDIR+25
Function Call: WRITE	Prompt: !,"CAN'T OPEN FILE" Line Location: ASKDIR+51
Function Call: READ	Timeout: 1 Variable: X Line Location: ASKDIR+52
Function Call: WRITE	Prompt: !,"INDIAN PAT OR NO INSURER TYPE" Line Location: TXFILE+9
Function Call: WRITE	Prompt: !,"BILL IEN NOT FOUND FOR A/R BILL: "_ARBILL Line Location: TPBFILE+14
Function Call: WRITE	Prompt: !,"INDIAN PAT OR NO INSURER TYPE" Line Location: TPBFILE+19
Function Call: WRITE	Prompt: !,DASHLINE Line Location: TPBFILE+38
Function Call: WRITE	Prompt: !!,"TOTAL 3P BILL'S PROCESSED:",?37,BARCNT3P Line Location: TPBFILE+39
Function Call: WRITE	Prompt: !,"TOTAL A/R TX'S ADDED TO SESSION ",NEWSESS," FOR (",NEWDUZ,") ",NEWUSRNM,": ",BARCNTS Line Location: TPBFILE+40
Function Call: WRITE	Prompt: !,"RE-QUEUE STATUS: ",$G(PROCMSG) Line Location: TPBFILE+41
Function Call: WRITE	Prompt: !!,"THE PROMPT WILL BE PRESENTED OVER AND OVER" Line Location: AGAIN+1
Function Call: WRITE	Prompt: !,"SO YOU CAN ENTER MORE THAN ONE TPB BILL." Line Location: AGAIN+2
Function Call: WRITE	Prompt: !,"WHEN YOU ARE DONE ENTERING TPB BILLS PRESS RETURN." Line Location: AGAIN+3
Function Call: WRITE	Prompt: ! Line Location: AGAIN+4
Function Call: WRITE	Prompt: !,"INDIAN PAT OR NO INSURER TYPE" Line Location: AGAIN+22
Routine Call	%ZIS Line Location: REQUEUE+5
Routine Call	DIC Line Location: ASKAGAIN+9 AGAIN+8
Routine Call	DIR Line Location: REQTYP+14 FAGAIN+8 ASKDIR+6 ASKDIR+16 ASKDIR+35 ASKDIR+43

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	FAGAIN+13
^BARBL(	TPBFILE+10, TPBFILE+13, AGAIN+13
^BARSESS(	ASKAGAIN+12, EN2+13, EN2+17, EN2+22, EN2+28, EN2+29, EN2+57, TXFILE+12, TPBFILE+22, AGAIN+23
^BARTR(	ASKAGAIN+18, PAYREV+1, EN2+10, EN2+27, TXFILE+15, TPBFILE+18, TPBFILE+25, AGAIN+16, AGAIN+19, AGAIN+26
^TMP($J	REQUEUE+16!, REQTYP+27!, ASKDIR+53*, TXFILE+1!, TXFILE+5, TXFILE+6, TXFILE+25!, TPBFILE+1!, TPBFILE+6, TPBFILE+7

Label References

Name	Line Occurrences
$$PAYREV	ASKAGAIN+16, TXFILE+10, TPBFILE+20, AGAIN+20
AGAIN	AGAIN+10
ASKAGAIN	ASKAGAIN+11
ASKFILE	TXFILE+3, TPBFILE+2
BLLIST	REQTYP+22
CLEARTX	EN2+15, EN2+20, EN2+25, EN2+64
CLRSESS	EN2+60
EN	REQTYP+20
EN1	ASKAGAIN+32, TXFILE+24
EN2	TPBFILE+36, AGAIN+37
FAGAIN	ASKDIR+8, ASKDIR+23, ASKDIR+51
INIT	REQUEUE+10
REQTYP	REQUEUE+17, REQTYP+17, REQTYP+20, REQTYP+21, REQTYP+22, REQTYP+23, REQTYP+24, REQTYP+25, REQTYP+26, REQTYP+28
REQUEUE	REQUEUE+13, REQUEUE+15, REQUEUE+23
RESEND	EN2+33, EN2+40, EN2+54
TPBFILE	REQTYP+23
TXFILE	REQTYP+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	REQUEUE+9, EN2+9
>> ARBILL	TPBFILE+7*, TPBFILE+8, TPBFILE+10, TPBFILE+12, TPBFILE+13, TPBFILE+14
ARGS	FAGAIN+2~
BAR3PB	INIT+1!, TPBFILE+3*
>> BARBILL	EN1+1*, AGAIN+38
>> BARBLIEN	EN1+1, TPBFILE+13, TPBFILE+14, TPBFILE+18, AGAIN+13*, AGAIN+16, AGAIN+19
BARCNT	REQUEUE+3~, INIT+3, TPBFILE+35, AGAIN+36*
>> BARCNT3P	TPBFILE+4, TPBFILE+15, TPBFILE+39, AGAIN+14*
>> BARCNT3X	TPBFILE+16, TPBFILE+34, TPBFILE+35, AGAIN+35, AGAIN+36
BARCNTE	REQUEUE+3~, INIT+3*
BARCNTS	REQUEUE+3~, INIT+3*, TPBFILE+40
>> BARCNTX	AGAIN+15, AGAIN+35
>> BARDIR	ASKDIR+48*, ASKDIR+50
>> BARFN	ASKDIR+49*, ASKDIR+50
>> BARMSG1	EN2+4, EN2+6, EN2+7, EN2+11, EN2+12, EN2+32, EN2+34, EN2+39, EN2+41, EN2+52 , EN2+53, EN2+59, EN2+63, EN2+65
BARRNAM	REQUEUE+2~, REQUEUE+16, INIT+4*, REQTYP+27, ASKDIR+53, TXFILE+1, TXFILE+5, TXFILE+6, TXFILE+25, TPBFILE+1 , TPBFILE+6, TPBFILE+7
BARRQDT	REQUEUE+2~, REQUEUE+9, EN2+9
>> BARSAVE	INIT+2*
BARSEL	REQUEUE+3~, REQTYP+16*, REQTYP+17, REQTYP+20, REQTYP+21, REQTYP+22, REQTYP+23, REQTYP+24, REQTYP+25, REQTYP+26 , REQTYP+27
>> BARTMP3P	TPBFILE+5, TPBFILE+6, TPBFILE+7
>> BARTR1	ASKAGAIN+18, ASKAGAIN+19, TXFILE+15, TXFILE+16, TPBFILE+25, TPBFILE+26, AGAIN+26, AGAIN+27
BARTRIEN	ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+18, ASKAGAIN+27, ASKAGAIN+28, ASKAGAIN+31, PAYREV~, PAYREV+1, EN2+5, EN2+10 , EN2+13, EN2+17, EN2+22, EN2+27, EN2+28, EN2+33, EN2+40, EN2+54, FAGAIN+3~, TXFILE+6* , TXFILE+7, TXFILE+9, TXFILE+10, TXFILE+12, TXFILE+15, TPBFILE+17, TPBFILE+18, TPBFILE+19, TPBFILE+20, TPBFILE+22 , TPBFILE+25, AGAIN+18, AGAIN+19, AGAIN+20, AGAIN+22, AGAIN+23, AGAIN+26, AGAIN+38, RESEND~, RESEND+1
>> BARTXADJ	ASKAGAIN+19, ASKAGAIN+24, ASKAGAIN+25, ASKAGAIN+26, TXFILE+16, TXFILE+21, TXFILE+22, TXFILE+23, TPBFILE+26, TPBFILE+31 , TPBFILE+32, TPBFILE+33, AGAIN+27, AGAIN+32, AGAIN+33, AGAIN+34
>> BARTXCNT	TXFILE+4, TXFILE+5, TXFILE+6
>> BARTXTYP	ASKAGAIN+19, ASKAGAIN+20, ASKAGAIN+21, ASKAGAIN+22, ASKAGAIN+23, TXFILE+16, TXFILE+17, TXFILE+18, TXFILE+19, TXFILE+20 , TPBFILE+26, TPBFILE+27, TPBFILE+28, TPBFILE+29, TPBFILE+30, AGAIN+27, AGAIN+28, AGAIN+29, AGAIN+30, AGAIN+31
BARUFMS	FAGAIN+2~
BLLIST	BLLIST+2~, AGAIN+9
BLLIST(	AGAIN+10*, AGAIN+12
CB	REQUEUE+3~, INIT+2*, REQTYP+10, REQTYP+25, REQTYP+27!
CHOICE	REQUEUE+2~, REQUEUE+21, ASKDIR+26, ASKDIR+28, ASKDIR+36, ASKDIR+39, ASKDIR+44, ASKDIR+47, ASKDIR+49
>> CNT	ASKDIR+28*, ASKDIR+31, ASKDIR+33, ASKDIR+41
DA	ASKAGAIN+5!, AGAIN+5!
>> DASH	FAGAIN+12*
>> DASHLINE	INIT+5*, TPBFILE+38
>> DELIM	FAGAIN+10, FAGAIN+11, ASKDIR+53
DELIMIT	FAGAIN+2~
DESTIP	FAGAIN+2~
DIC	ASKAGAIN+5!, ASKAGAIN+6, AGAIN+5!, AGAIN+6
DIC("S"	ASKAGAIN+8*
DIC(0	ASKAGAIN+7, AGAIN+7
DIE	ASKAGAIN+5!, AGAIN+5!
DIR	REQTYP+3!, REQTYP+4, ASKAGAIN+5!, FAGAIN+4!, ASKDIR+1!, ASKDIR+10!, ASKDIR+32!, ASKDIR+40!, AGAIN+5!
DIR("?"	ASKDIR+12, ASKDIR+13, ASKDIR+14*
DIR("A"	REQTYP+13, FAGAIN+7, ASKDIR+4, ASKDIR+5, ASKDIR+15, ASKDIR+34, ASKDIR+42*
DIR("B"	FAGAIN+6, ASKDIR+3
DIR(0	REQTYP+5, REQTYP+6, REQTYP+7, REQTYP+8, REQTYP+9, REQTYP+10, REQTYP+11, REQTYP+12, FAGAIN+5, ASKDIR+2 , ASKDIR+11, ASKDIR+33, ASKDIR+41*
DIREC	FAGAIN+2~, FAGAIN+13, FAGAIN+14, FAGAIN+19, ASKDIR+3, ASKDIR+4, ASKDIR+5, ASKDIR+7, ASKDIR+22, ASKDIR+48
>> DIROUT	REQTYP+15, FAGAIN+9, ASKDIR+8, ASKDIR+17
>> DIRUT	REQTYP+15
DR	ASKAGAIN+5!, AGAIN+5!
>> DTOUT	REQTYP+15, FAGAIN+9, ASKDIR+8, ASKDIR+17, ASKDIR+37, ASKDIR+45
>> DUOUT	REQTYP+15, FAGAIN+10, ASKDIR+8, ASKDIR+17, ASKDIR+37, ASKDIR+45
DUZ(2	ASKAGAIN+12, ASKAGAIN+18, PAYREV+1, EN2+10, EN2+13, EN2+17, EN2+22, EN2+27, EN2+28, EN2+29 , EN2+57, FAGAIN+13, TXFILE+12, TXFILE+15, TPBFILE+10, TPBFILE+13, TPBFILE+18, TPBFILE+22, TPBFILE+25, AGAIN+13 , AGAIN+16, AGAIN+19, AGAIN+23, AGAIN+26
ERASTA	REQUEUE+2~
>> ERATSTA	REQUEUE+18*, REQUEUE+22
ESC	REQUEUE+2~, REQUEUE+11, REQUEUE+12, INIT+3*
FARRAY	FAGAIN+2~, ASKDIR+21!, ASKDIR+22, ASKDIR+23
FARRAY(	ASKDIR+28, ASKDIR+30, ASKDIR+49
FILENM	FAGAIN+2~, ASKDIR+18, ASKDIR+19, ASKDIR+20*, ASKDIR+22
>> FIRST	ASKDIR+27*
FLAG	REQUEUE+2~, REQUEUE+4*, REQTYP+17
FN	REQUEUE+3~, INIT+2*, REQTYP+9, REQTYP+24, REQTYP+27!
I	FAGAIN+3~, ASKDIR+52*, ASKDIR+53
IO	ASKDIR+52
IOF	REQUEUE+6, ASKDIR+24
>> ITEM	ASKDIR+47*
>> KEY	ASKDIR+26, ASKDIR+28, ASKDIR+37, ASKDIR+38, ASKDIR+39, ASKDIR+45*
LIST	REQUEUE+2~
LIST(1	REQUEUE+20*
>> LN	ASKDIR+26, ASKDIR+28, ASKDIR+29, ASKDIR+30, ASKDIR+39
NEWDUZ	REQUEUE+2~, REQUEUE+14, REQUEUE+15, REQUEUE+20, REQUEUE+22, INIT+2*, TPBFILE+40
NEWSESS	REQUEUE+2~, REQUEUE+14, REQUEUE+20, REQUEUE+22, INIT+2*, TPBFILE+40
NEWUSRNM	REQUEUE+2~, REQUEUE+14, INIT+2*, TPBFILE+40
>> PROCMSG	TPBFILE+37*, TPBFILE+41
RECORDS	FAGAIN+3~
REJEC	REQUEUE+3~
REJECT	REQUEUE+2~, REQUEUE+11, REQUEUE+13, INIT+3*
>> SDUZ	EN2+2, EN2+48, EN2+57
SESSID	EN2+2, EN2+22, EN2+23, EN2+28, EN2+29, EN2+33, EN2+40, EN2+54, EN2+57, RESEND~ , RESEND+1
>> SESSTX	EN2+2, EN2+28, EN2+31, EN2+36, EN2+48, EN2+49
>> SESSXMIT	EN2+2, EN2+36, EN2+38, EN2+51, EN2+58, EN2+62
>> SESSXMT	EN2+29*
>> SFILE	EN2+2, EN2+55, EN2+57*
>> SID	EN2+49*
SS	REQUEUE+3~, INIT+2*, REQTYP+11, REQTYP+26, REQTYP+27!
>> TPBILL	AGAIN+11, AGAIN+12, AGAIN+13, AGAIN+17
>> TRDUZ	EN2+2, EN2+45
>> TRFILE	EN2+3, EN2+44
>> TRID	EN2+3, EN2+46
TRLIST	EN+2~, ASKAGAIN+10, ASKAGAIN+29, ASKAGAIN+30, ASKAGAIN+31
TRLIST(	ASKAGAIN+28*, ASKAGAIN+30
>> TRSESSID	EN2+3, EN2+35, EN2+38, EN2+51, EN2+58, EN2+62
>> TRXMIT	EN2+3, EN2+27, EN2+31, EN2+35, EN2+44, EN2+45, EN2+46
TYPE	ASKFILE~, ASKDIR+53
U	REQUEUE+12, REQUEUE+20, ASKAGAIN+19, ASKAGAIN+31, PAYREV+1, EN2+29, EN2+35, EN2+36, EN2+44, EN2+45 , EN2+46, EN2+48, EN2+49, EN2+57, FAGAIN+10, FAGAIN+13, TXFILE+16, TPBFILE+26, AGAIN+10, AGAIN+27
UDUZ	EN2+2, EN2+17, EN2+18, EN2+22, EN2+28, EN2+29, EN2+33, EN2+40, EN2+54, EN2+57 , RESEND~, RESEND+1
X	FAGAIN+3~, ASKDIR+52*, ASKDIR+53
Y	REQTYP+15, REQTYP+16, ASKAGAIN+10, ASKAGAIN+11, ASKAGAIN+12, ASKAGAIN+15, FAGAIN+3~, FAGAIN+11, ASKDIR+7, ASKDIR+17 , ASKDIR+18, ASKDIR+36, ASKDIR+44, ASKDIR+45, ASKDIR+50*, ASKDIR+51, AGAIN+9, AGAIN+10

Marked Items

Name	Field # of Occurrence
$T(	INIT+4

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRQ

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items