Routine: BARPMUP2

Information

BARPMUP2 ; IHS/SD/LSL - MANUAL UPLOAD PROCESS ;

Source Information

Source file <BARPMUP2.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS Accounts Receivable	6	^BARDBQUE ($$DATE,$$SDT)^BARDUTL STAT^BARPMUP4 (EOP,INIT)^BARUTL $$EN^BARVDF ^BARVKL0
VA Fileman	4	DD^%DT NOW^%DTC $$GET1^DIQ ^DIR
Kernel	1	SIG^XUSESIG
Third Party Billing	1	EXT^ABMAPASS

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR UPLOAD APPROVAL DATES

Entry Points

Name	Comments	DBIA/ICR reference
FINDAR3	;
ERROR2	; ; Process bill already exists error.
EN	;EP - entry
CONT	; ; Continue previous run
LOOPBILL	;
G1	;
SCAN	;
FINDAR(BARBLNM)	; ; Find the 3P bill in A/R ; If it exists in any A/R environment, put on ERROR list ; Pass in Bill number ; Pass out 1 if found, 0 if not found
RESUME	; ; Loop DUZ(2)
LOOPDT	; ; Loop Date Approved x-ref on 3P bill for selected date range
ERROR	;PROCESS AN ERROR
GETDOS	;EP
FINDAR2	;
EXIT	;
DX	;
NEW	; ; Start new run
ASKNEW	; ; Previous run complete, ask if new one
DATA	; ; Gather data and upload to A/R
SCANMSG	;

External References

Name	Field # of Occurrence
DD^%DT	DATA+4
NOW^%DTC	DATA+2
EXT^ABMAPASS	DATA+23
^BARDBQUE	CONT+17, SCAN+12
$$DATE^BARDUTL	GETDOS+1, G1+1
$$SDT^BARDUTL	SCANMSG+2
STAT^BARPMUP4	EN+15, DX+3
EOP^BARUTL	EN+3, DX+6
INIT^BARUTL	EN+9
$$EN^BARVDF	EN+14, DX+2
^BARVKL0	EN+5, EXIT+2
$$GET1^DIQ	DATA+9, DATA+14, ERROR+4
^DIR	ASKNEW+7, ASKNEW+16, CONT+6, SCANMSG+9
SIG^XUSESIG	EN+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"THE UPLOAD OPTION IS BEING ACCESSED BY ANOTHER USER. TRY AGAIN LATER.",! Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: EN+12
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),!,"A PREVIOUS RUN HAS BEEN DETECTED",! Line Location: EN+14
Function Call: WRITE	Prompt: !,"The previous run has completed",! Line Location: ASKNEW+2
Function Call: WRITE	Prompt: !!,*7,"You MUST write down the BAD bills found for follow up!" Line Location: ASKNEW+10
Function Call: WRITE	Prompt: !,"They did not upload into A/R",! Line Location: ASKNEW+11
Function Call: WRITE	Prompt: ! Line Location: ASKNEW+19
Function Call: WRITE	Prompt: !,"NO RESTART OF UPLOAD",! Line Location: CONT+9
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),!,"This run is complete. Here's the status",! Line Location: DX+2
Function Call: WRITE	Prompt: !!,(+BARCNT-($O(^BARTMP("BARUP","ERRORS",""),-1)))_" 3P Bills updated to A/R" Line Location: DX+5
Function Call: WRITE	Prompt: ! Line Location: G1+2
Function Call: WRITE	Prompt: !!,"This process will scan the 3P BILL file and extract all bills with approval" Line Location: SCANMSG+1
Function Call: WRITE	Prompt: !,"dates between ",$$SDT^BARDUTL(BARSTART)," and ",$$SDT^BARDUTL(BAREND) Line Location: SCANMSG+2
Function Call: WRITE	Prompt: ". The process will check to make" Line Location: SCANMSG+3
Function Call: WRITE	Prompt: !,"sure that a bill that has already been uploaded will not be duplicated.",! Line Location: SCANMSG+4
Function Call: WRITE	Prompt: !!,"Starting scan process... " Line Location: SCAN+1
Function Call: WRITE	Prompt: !,"BILL # ",BARBLNM," NOT UPLOADED DUE TO: ",$G(^BARTMP("BARUP","ERROR",BARBLNM)) Line Location: DATA+17
Function Call: WRITE	Prompt: "." Line Location: DATA+26
Routine Call	DIR Line Location: ASKNEW+7 ASKNEW+16 CONT+6 SCANMSG+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^ABMDBILL(2906 - [#9002274.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	EXIT+1
^%ZOSF("TRAP"	RESUME+3, ERROR+8, ERROR2+4, EXIT+1
^ABMDBILL(	RESUME+10, RESUME+11, LOOPDT+3, LOOPDT+4, LOOPDT+5, LOOPBILL+6, DATA+7
^BARBL(	FINDAR+10, FINDAR2+2, FINDAR2+3, FINDAR3+2
^BARTMP("BARUP"	EN+13, ASKNEW+20!, DX+1, DX+5, SCAN+6, SCAN+7, RESUME+4, RESUME+6, RESUME+10, LOOPDT+2 , LOOPDT+4, LOOPBILL+2, LOOPBILL+5, DATA+5, DATA+6, DATA+16, DATA+17, DATA+19, DATA+25, ERROR+4 , ERROR+7, ERROR2+3
^BARTMP("STOP"	RESUME+2

Label References

Name	Line Occurrences
$$FINDAR	DATA+20
ASKNEW	EN+16
CONT	EN+17
DATA	LOOPBILL+6
DX	CONT+10
ERROR2	DATA+21
EXIT	EN+20, ASKNEW+22
FINDAR2	FINDAR+10
FINDAR3	FINDAR2+3
GETDOS	NEW+2, G1+2, G1+3
LOOPBILL	LOOPDT+5
LOOPDT	RESUME+11
NEW	EN+19, ASKNEW+21
RESUME	ERROR+9
SCAN	NEW+6
SCANMSG	NEW+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DATA+3
>> BAR("CONT"	EN+11, CONT+12, RESUME+10, LOOPDT+4
>> BARAPDT	LOOPDT+3, LOOPDT+4, LOOPDT+5*, LOOPBILL+2, LOOPBILL+6
BARBAL	SCAN+2~, DATA+8*
BARBLNM	SCAN+2~, SCAN+3, DATA+8, DATA+14*, DATA+16, DATA+17, DATA+19, DATA+20, FINDAR~, FINDAR+7 , FINDAR+8, ERROR+4, ERROR+6, ERROR2+3
BARBTMP	FINDAR+5~, FINDAR+6, FINDAR+10, FINDAR+11, FINDAR2+3, FINDAR3+2
>> BARCNT	DX+5, SCAN+3, DATA+24, DATA+25, DATA+26
BARDA	SCAN+2~, SCAN+3, LOOPBILL+3, LOOPBILL+5, LOOPBILL+6, DATA+6, DATA+7, DATA+9, DATA+14, DATA+22 , ERROR+4, ERROR+6, ERROR2+3
>> BARDATMP	FINDAR3+1, FINDAR3+2
BARDTMP	FINDAR+5~, FINDAR+9, FINDAR+10, FINDAR2+2, FINDAR2+3, FINDAR3+2
>> BARDTS	DATA+5*
>> BAREND	G1+1, G1+2, G1+3, SCANMSG+2, SCAN+5, SCAN+7, LOOPDT+5
>> BARERR	EN+11, RESUME+7, ERROR+1, ERROR+4, ERROR+7, ERROR2+2, ERROR2+3
>> BARESIG	EN+6*
>> BAREXIST	DATA+20*, DATA+21
>> BARHOLD	RESUME+5*, RESUME+12
BARNNM	FINDAR2+1~, FINDAR2+2, FINDAR2+3, FINDAR3+2
>> BAROPT	EN+10*
>> BARQ("NS"	CONT+15, SCAN+10
>> BARQ("RC"	CONT+13, SCAN+8
>> BARQ("RP"	CONT+14, SCAN+9
>> BARQ("RX"	CONT+16, SCAN+11
BARSNM	FINDAR+5~, FINDAR+7, FINDAR+8, FINDAR2+2, FINDAR2+3
>> BARSTART	NEW+3, GETDOS+1, GETDOS+2, G1+3, SCANMSG+2, SCAN+4, SCAN+6, LOOPDT+3
>> BARSTAT	DATA+9*, DATA+13
>> BARTMP	ERROR+3, ERROR+6, ERROR+7
>> BARUSR	EN+9
>> BARUSTAT	EN+16
>> DA	DATA+22*
DIC	SCAN+2~
DIR	ASKNEW+3!, ASKNEW+8!, ASKNEW+12!, ASKNEW+17!, CONT+2!, CONT+7!, SCANMSG+5!, SCANMSG+10!
DIR("A"	ASKNEW+4, ASKNEW+13, CONT+4, SCANMSG+6
DIR("B"	ASKNEW+5, ASKNEW+14, CONT+5, SCANMSG+7
DIR(0	ASKNEW+6, ASKNEW+15, CONT+3, SCANMSG+8
DUZ(2	RESUME+5, RESUME+6, RESUME+9, RESUME+10, RESUME+11, RESUME+12, LOOPDT+2, LOOPDT+3, LOOPDT+4, LOOPDT+5 , LOOPBILL+2, LOOPBILL+5, LOOPBILL+6, DATA+6, DATA+7, DATA+19, ERROR+4, ERROR+6
IOST	DATA+26
U	ERROR+4, ERROR+6, ERROR2+3
>> X	RESUME+3, ERROR+8, ERROR2+4, EXIT+1
>> X1	EN+8
>> Y	ASKNEW+9, ASKNEW+18, CONT+8, NEW+5, DATA+3*, DATA+5
>> ZTQUEUED	DATA+26

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPMUP2

Call Graph Total: 12

Caller Graph Total: 1