Routine: BARCLU

Package	Total	Call Graph
IHS Accounts Receivable	10	(D2,PRINT)^BARCLRG EDITEM^BARCLU0 (BARCL,BARCLID,BARCLIT,DISPLAY,NEW)^BARCLU1 ^BARCLU2 ^BARCLU3 (DISPPAY,NEWITEM,PPUPDT,SELPPAY)^BARCLU4 PAZ^BARRUTL $$IHS^BARUFUT (EOP,INIT)^BARUTL $$EN^BARVDF
VA Fileman	5	^DIC ^DIE ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	1	($$DIC,ENPM)^XBDIQ1
Kernel	1	SIG^XUSESIG

Package	Total	Caller Graph
IHS Accounts Receivable	6	BAR COL ENTRY BARCLE BARCLU0 BARCLU2 BARCLU3 BAREBCH

Entry Points

Name	Comments	DBIA/ICR reference
SHOLIST(LIST)	;EP - SHOW LIST OF DUPES
EDITEM	;EP ; edit collection item
BARCL	;EP ; build BARCL array:uses current da in array of DA if no array
DUPHDR(CNT)	;EP - TDNDUP HEADER
CHECKDUP(NEWTDN,LIST)	;EP - CHECK FOR DUPLICATE TDN IN A/R COLLECTION BATCH
INREVIEW	;EP ; in REVIEW
FILE	; EP
NEW	; EP ; open a new batch
DR	;EP ; setup DR as to type of collection item
DISPLAY	;EP ; display item elements
SELECT	;EP ; select action
BFLAG(BARDA)	; (tag called by Fileman trigger for field: BATCH FLAG) ; Update BATCH FLAG field (triggered when BATCH field is updated)
G	;
BARCLID	;EP ; build BARCLID array:uses current da in array or BARDA if no array
ASK	;
BARCLIT	;EP ; build the BARCLIT array
ITEMTOT(BARCLDA)	;EP - get total of items
INUSE	;EP ; in use
ENTER	; EP ; Enter/Add new collection item
ENTRY	; ; lookup collection id I '$D(BARUSR) D INIT^BARUTL
TDN	;I $P($G(^BARCOL(DUZ(2),BARCLDA,0)),U,28)=""!($P($G(^BARCOL(DUZ(2),BARCLDA,0)),U,29)="")&(+$G(BARCLID(22,"I"))) D Q:$P($G(^BARCOL(DUZ(2),BARCLDA,0)),U,28)=""&($P($G(^BARCOL(DUZ(2),BARCLDA,0)),U,29)="")&($G(BARFLG)'=1)
REVIEW	;EP ; review item
EXIT	;EP ; exit program
NOMORE	;EP ; nomore entries backout last entry

External References

Name	Field # of Occurrence
D2^BARCLRG	NOMORE+12
PRINT^BARCLRG	NOMORE+12
EDITEM^BARCLU0	EDITEM+2
BARCL^BARCLU1	BARCL+2
BARCLID^BARCLU1	BARCLID+2
BARCLIT^BARCLU1	BARCLIT+2
DISPLAY^BARCLU1	DISPLAY+2
NEW^BARCLU1	NEW+2
^BARCLU2	SELECT+9
^BARCLU3	SELECT+10
DISPPAY^BARCLU4	G+11
NEWITEM^BARCLU4	TDN+70
PPUPDT^BARCLU4	FILE+11
SELPPAY^BARCLU4	DR+9
PAZ^BARRUTL	FILE+13
$$IHS^BARUFUT	TDN+12, TDN+31, TDN+69
EOP^BARUTL	ENTRY+7, INUSE+9, INUSE+11, INREVIEW+3
INIT^BARUTL	G+1
$$EN^BARVDF	ENTER+22, ASK+16
^DIC	G+6
^DIE	TDN+19, TDN+38, TDN+52, TDN+62, TDN+85, FILE+6
^DIK	ENTER+15, ASK+23, NOMORE+5
$$GET1^DIQ	ENTRY+3, ENTER+6, ENTER+25, TDN+45, CHECKDUP+10, CHECKDUP+11, CHECKDUP+12, BFLAG+2
^DIR	ENTER+19, TDN+57, ASK+14, SELECT+7, EXIT+16
$$DIC^XBDIQ1	ENTER+14, ASK+20, FILE+2, NOMORE+2
ENPM^XBDIQ1	INUSE+6
SIG^XUSESIG	ENTRY+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"NO ELECTRONIC SIGNATURE CODE ON FILE" Line Location: ENTRY+5
Function Call: WRITE	Prompt: !,"Use ^TBOX to give yourself one",! Line Location: ENTRY+6
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: ENTER+22
Function Call: WRITE	Prompt: !!,"ENTERING ",BARCL(.01) Line Location: ENTER+23
Function Call: WRITE	Prompt: ?35,"TYPE: ",BARCLID(2) Line Location: ENTER+24
Function Call: WRITE	Prompt: ?55,"BATCH TOTAL: ",$$GET1^DIQ(90051.01,BARCLDA,15) Line Location: ENTER+25
Function Call: WRITE	Prompt: ! Line Location: TDN+71
Function Call: WRITE	Prompt: "ITEM ",BARITDA Line Location: TDN+76
Function Call: WRITE	Prompt: !,"Up-Arrow at Transaction Type to exit loop and KILL New Entry" Line Location: TDN+83
Function Call: WRITE	Prompt: *7,!,"ERROR IN TRANSACTION TYPE" Line Location: DR+4
Function Call: WRITE	Prompt: !! Line Location: FILE+12
Function Call: WRITE	Prompt: !!,"GETTING READY TO RUN DETAIL REPORT." Line Location: NOMORE+10
Function Call: WRITE	Prompt: " PLEASE VALIDATE "_$S($G(BARCLID(22,"I")):"TREASURY DEPOSIT/IPAC AND ",1:"")_"AMOUNT FOR ACCURACY" Line Location: NOMORE+11
Function Call: WRITE	Prompt: !!,"Sorry ",BARCLID(.01)," is OPENED by : ",BARCLID(6.3),!! Line Location: INUSE+2
Function Call: WRITE	Prompt: !,"YOU ARE A SUPERVISOR SO YOU ARE ENTERING THE BATCH",! Line Location: INUSE+8
Function Call: WRITE	Prompt: !!,"Sorry ",BARCLID(.01)," is in REVIEW by >you< : ",BARCLID(6.3),!! Line Location: INREVIEW+2
Function Call: WRITE	Prompt: !!,"Checking for duplicate TDN/IPAC..." Line Location: CHECKDUP+1
Function Call: WRITE	Prompt: !!,"Duplicate TDN/IPAC detected in the following batches" Line Location: DUPHDR+1
Function Call: WRITE	Prompt: ! Line Location: SHOLIST+3
Function Call: WRITE	Prompt: !! Line Location: SHOLIST+10
Routine Call	DIE Line Location: TDN+19 TDN+38 TDN+52 TDN+62 TDN+85 FILE+6
Routine Call	DIC Line Location: G+6
Routine Call	DIR Line Location: ENTER+19 TDN+57 ASK+14 SELECT+7 EXIT+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^BARPPAY(2906 - [#90050.06]	GET1^DIQ
^BARCOL(2906 - [#90051.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARCOL(	ENTER+7, ENTER+26, ENTER+27, ENTER+28, TDN+1, TDN+22, TDN+40, TDN+43, TDN+44, TDN+47 , TDN+69, EXIT+4, EXIT+7, EXIT+9, EXIT+10, EXIT+12, EXIT+14, ITEMTOT+2, ITEMTOT+3, ITEMTOT+4 , CHECKDUP+7
^DD(90051.1101	ASK+8

Label References

Name	Line Occurrences
$$ITEMTOT	EXIT+6
ASK	REVIEW+2, REVIEW+3, ASK+24
BARCL	ENTER+5
BARCLID	G+10
BARCLIT	TDN+88, EDITEM+5
CHECKDUP	TDN+22
DISPLAY	ASK+1
DUPHDR	CHECKDUP+15
EDITEM	ASK+15
ENTER	G+15, G+18, ENTER+8, ASK+19, FILE+14, SELECT+8, INUSE+7, INREVIEW+4
EXIT	SELECT+11
FILE	REVIEW+4
INREVIEW	G+17
INUSE	G+16
NEW	G+12, G+13, G+14
NOMORE	TDN+87, DR+3, EDITEM+4
SELECT	SELECT+9, SELECT+10, NOMORE+12, NOMORE+14
SHOLIST	CHECKDUP+16
TDN	TDN+69

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMOUNT	CHECKDUP+3~, CHECKDUP+11*, CHECKDUP+13
>> BARBATCH	NOMORE+12*
>> BARBEX	NOMORE+12*
>> BARCL(	ENTER+23, ASK+17
>> BARCL(".01"	NOMORE+12
>> BARCL("ID"	FILE+4
>> BARCL(7	NOMORE+8*
BARCLDA	ENTER+4, ENTER+6, ENTER+7, ENTER+12, ENTER+25, ENTER+26, ENTER+27, ENTER+28, TDN+1, TDN+9 , TDN+22, TDN+40, TDN+43, TDN+44, TDN+45, TDN+47, TDN+50, TDN+60, TDN+69, TDN+72 , ASK+21, NOMORE+4, NOMORE+12, INUSE+5, EXIT+4, EXIT+6, EXIT+7, EXIT+9, EXIT+10, EXIT+12 , EXIT+14, ITEMTOT~, ITEMTOT+2, ITEMTOT+3, ITEMTOT+4, CHECKDUP+8, CHECKDUP+11, CHECKDUP+12
BARCLID	G+9!
BARCLID(	G+13, G+14, G+15, G+16, G+17, INUSE+2, INREVIEW+2
BARCLID("ID"	INUSE+4
BARCLID(2	ENTER+24, TDN+80
BARCLID(20	REVIEW+2
BARCLID(21	REVIEW+3
BARCLID(22	ENTER+26, TDN+1, TDN+69, ASK+6, NOMORE+11, EXIT+5
BARCLID(6	G+12, ENTER+4
>> BARCLIT(	ASK+7
>> BARCLIT(2	TDN+89, DR+2, REVIEW+2, REVIEW+3
>> BARCLIT(7	FILE+9
>> BARCLIT(8	FILE+10
BARDA	G+8, ENTER+4, FILE+8!, BFLAG~, BFLAG+2
>> BARDIC	ENTER+3*
>> BAREFLG	NOMORE+12
>> BARERROR	ASK+3, ASK+9, ASK+13, ASK+24
BARFLG	TDN+1, TDN+7!, TDN+63*
>> BARITAC	FILE+9*
>> BARITDA	TDN+73, TDN+76, ASK+18, ASK+22, NOMORE+3, ITEMTOT+1, ITEMTOT+2, ITEMTOT+3, ITEMTOT+4
>> BARITLC	FILE+10*
>> BARITTOT	EXIT+6, EXIT+7, EXIT+8, EXIT+12, EXIT+14, ITEMTOT+1, ITEMTOT+4*, ITEMTOT+5
>> BARITTYP	TDN+89*
>> BARPPSEL	FILE+11
BARQUIT	ENTER+2!, TDN+87, DR+5, EDITEM+4, NOMORE+6!
>> BARSEL	NOMORE+12*
BARSUP	INUSE+10!
BARSUP(	INUSE+7
>> BARTMP	BFLAG+2*, BFLAG+3
>> BARTMPX	BFLAG+3*, BFLAG+4
>> BARUSR	G+1
>> BARUSR(	G+14, G+15, G+16, G+17
>> BARX	DR+2*, DR+3
CHECK	CHECKDUP+3~
CHECNUM	CHECKDUP+3~
CNT	CHECKDUP+5, CHECKDUP+9, CHECKDUP+13, CHECKDUP+15, DUPHDR~, SHOLIST+1~, SHOLIST+2, SHOLIST+4, SHOLIST+5, SHOLIST+6 , SHOLIST+7, SHOLIST+8, SHOLIST+9
COLBAT	CHECKDUP+3~, CHECKDUP+6, CHECKDUP+7, CHECKDUP+8, CHECKDUP+10
COLNAM	CHECKDUP+3~, CHECKDUP+10*, CHECKDUP+13
COLSTATUS	CHECKDUP+3~, CHECKDUP+12*, CHECKDUP+13
DA	ENTER+2!, ENTER+13, TDN+6!, TDN+9, TDN+50, TDN+53!, TDN+60, TDN+73, ASK+22, FILE+1! , FILE+4, NOMORE+3, NOMORE+7!, INUSE+3*
DA(1	ENTER+12, TDN+72, TDN+74, ASK+21, NOMORE+4, INUSE+4*, INUSE+5
DIC	G+2!, G+3*, ENTER+2!, TDN+6!, TDN+53!
DIC("S"	G+5*
DIC(0	G+4*
DIDEL	TDN+84, TDN+86!, FILE+5, FILE+7!
DIE	TDN+6!, TDN+8, TDN+49, TDN+53!, TDN+59, TDN+74, FILE+1!, FILE+2, SELECT+3!, NOMORE+2 , NOMORE+7!
DIE("NO^"	TDN+13!, TDN+16, TDN+20!, TDN+32!, TDN+35, TDN+39!
DIK	ENTER+11!, ENTER+14, ENTER+16!, ASK+20, NOMORE+2*
DIR	ENTER+16!, ENTER+20!, TDN+24!, TDN+53!, TDN+57!, ASK+10!, SELECT+3!, EXIT+16!
DIR("A"	ENTER+18, TDN+55, SELECT+5, EXIT+16
DIR("B"	TDN+26, TDN+56, ASK+12, ASK+13, SELECT+6*
DIR(0	ENTER+17, TDN+25, TDN+54, ASK+11, SELECT+4, EXIT+16
DOCARE	TDN+21~, TDN+29!
DR	ENTER+2!, TDN+6!, TDN+14, TDN+17, TDN+33, TDN+36, TDN+51, TDN+53!, TDN+61, TDN+80* , TDN+82, FILE+1!, FILE+3, NOMORE+7!
DUPFDA	TDN+21~
DUZ	ENTRY+3, INUSE+7
DUZ(2	ENTER+7, ENTER+26, ENTER+27, ENTER+28, TDN+1, TDN+12, TDN+22, TDN+31, TDN+40, TDN+43 , TDN+44, TDN+47, TDN+69, EXIT+4, EXIT+7, EXIT+9, EXIT+10, EXIT+12, EXIT+14, ITEMTOT+2 , ITEMTOT+3, ITEMTOT+4, CHECKDUP+7
>> I	ASK+5*, ASK+6, ASK+7, ASK+8
ITEM	CHECKDUP+3~
LIST	TDN+21~, TDN+22, TDN+23, TDN+29!, CHECKDUP~, CHECKDUP+4!, CHECKDUP+14, CHECKDUP+16, SHOLIST~
LIST(	CHECKDUP+13*, SHOLIST+4, SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
NEWTDN	CHECKDUP~, CHECKDUP+2, CHECKDUP+7, CHECKDUP+13
U	ENTER+26, ENTER+27, ENTER+28, TDN+1, TDN+22, TDN+40, TDN+43, TDN+44, TDN+47, TDN+69 , ASK+8, EXIT+4, EXIT+7, EXIT+9, EXIT+10, EXIT+12, EXIT+14, ITEMTOT+3, ITEMTOT+4, CHECKDUP+13 , SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
X	ENTER+6*, ENTER+8, TDN+6!, TDN+53!
>> X1	ENTRY+3*, ENTRY+4, ENTRY+9
Y	G+7, G+8, ENTER+7*, ENTER+8, ENTER+9, ENTER+13, TDN+6!, TDN+53!, TDN+58, TDN+87 , ASK+15, ASK+19, SELECT+8, SELECT+9, SELECT+10, SELECT+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARCLU

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: