Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BARPMUP2

Package: IHS Accounts Receivable

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

Marked Items

Name Field # of Occurrence
$T( EN+2, EXIT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All