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 |  All
Print Page as PDF
Routine: BARPST3

Package: IHS Accounts Receivable

Routine: BARPST3


Information

BARPST3 ; IHS/SD/LSL - PAYMENT COMMAND PROCESSOR ; 12/29/2008

Source Information

Source file <BARPST3.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
IHS Accounts Receivable 10 HISTORY^BARBAD3  ASKLIN^BARFPST3  HIT1^BARPST2  SETTMP^BARPST3A  (,$$DSPLY)^BARPST4  EN^BARPST6  ($$AMT,COMHLP,POSTTX,SETHLP)^BARPSTU  EN^BARROLL  
($$IHS,$$NOTOPEN)^BARUFUT  ($$FIND3PB,$$UPC,EOP)^BARUTL  
VA Fileman 5 COMMA^%DTC  ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 (DIQ,VIEWR)^XBLM  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Accounts Receivable 5 BARPNP3  BARPRF3  BARPST  BARPST4  BARUFUT  

Entry Points

Name Comments DBIA/ICR reference
ASKCOM ;EP - select command
ASKAMT ;
FINISH ;
S1 ;
EN ;EP - command processor
ASKREV ;EP - ASK AGAIN
EXCHK(BARDA,TX) ; BAR*1.8*6 DD 4.2.6
; ENTERS WITH TRANSACTION DATE/TIME OF ORIGINAL PAYMENT
LNHLP ;
CKNEG(LIN) ;EP; CHECK FOR NEGATIVE BALANCE ;BAR*1.8*4 DD 4.1.7.2
ASKCOM1 ;
EN1 ;
GOQ ;
0 ;start new code IHS/SD/SDR bar*1.8*4 DD item 4.1.7.1
EN2 ;
REVERSAL() ;EP - GET THE ORIGINAL TRANSACTION
POST() ;
P1 ;
GOD ;
GOA ;
GOB ;
REVHDR ;EP - REVERSAL HEADER
CANCEL ;
COMHLP ;
FIN
GOP ;
PDIR ;
XYZ
ROLLE
ASKLIN ;
REDO
CKREV ; CHECK FOR PAYMENT PRECEDING REVERSAL ;BAR*1.8*4 DD 4.1.7.3
B
ROLL ;EP - tag a bill for rollback to 3P
; enable posting rollback

External References

Name Field # of Occurrence
COMMA^%DTC ASKREV+42, ASKREV+48
HISTORY^BARBAD3 0+40
ASKLIN^BARFPST3 ASKLIN+2
HIT1^BARPST2 EN1+4, ASKCOM+3, P1+1
SETTMP^BARPST3A B, S1+1
^BARPST4 GOB+4
$$DSPLY^BARPST4 0+38
EN^BARPST6 0+35
$$AMT^BARPSTU B+2, ASKAMT+10
COMHLP^BARPSTU COMHLP+1
POSTTX^BARPSTU FIN+4
SETHLP^BARPSTU EN2+3
EN^BARROLL FIN+8
$$IHS^BARUFUT ASKAMT+16, ASKAMT+25, CKNEG+1
$$NOTOPEN^BARUFUT ASKCOM1+1, FIN+6
$$FIND3PB^BARUTL 0+3
$$UPC^BARUTL XYZ+1
EOP^BARUTL 0+39, ASKAMT+27, P1+2, ROLL+13, ASKREV+5, ASKREV+61, REDO+6, CKREV+3, EXCHK+4, EXCHK+8
^DIC ASKAMT+38, ASKAMT+55
^DIE ROLL+9
$$GET1^DIQ 0+33, ASKREV+21, ASKREV+22, ASKREV+25, ASKREV+26, ASKREV+27, ASKREV+28, ASKREV+36, ASKREV+37, ASKREV+38
^DIR 0+13, ASKAMT+8, PDIR+4, ASKREV+67, ASKREV+74
DIQ^XBLM GOB+3
VIEWR^XBLM GOD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCOM+4
Function Call: WRITE
  • Prompt: !,"Select Command (Line # "_BARLIN_") : "
  • Line Location: ASKCOM1+3
Function Call: WRITE
  • Prompt: *7,*7,*7
  • Line Location: 0+24
Function Call: WRITE
  • Prompt: *7,*7,*7
  • Line Location: 0+25
Function Call: WRITE
  • Prompt: *7,*7,*7
  • Line Location: 0+26
Function Call: WRITE
  • Prompt: *7," (You must enter a valid number)"
  • Line Location: B+3
Function Call: WRITE
  • Prompt: *7
  • Line Location: B+7
Function Call: WRITE
  • Prompt: " Sorry.. ["_BARHLP(BARCOM(1))_"] not active!"
  • Line Location: B+8
Function Call: WRITE
  • Prompt: *7," Must be a valid number!"
  • Line Location: ASKAMT+12
Function Call: WRITE
  • Prompt: !!,"You can not post a payment of anything other than $0 if the TDN is NONPAYMENT"
  • Line Location: ASKAMT+26
Function Call: WRITE
  • Prompt: *7
  • Line Location: ASKAMT+40
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKAMT+40
Function Call: WRITE
  • Prompt: *7,!!
  • Line Location: ASKAMT+57
Function Call: WRITE
  • Prompt: *7
  • Line Location: PDIR+6
Function Call: WRITE
  • Prompt: !!,"PAYMENT REVERSALS ARE NO LONGER ALLOWED,"
  • Line Location: ASKREV+3
Function Call: WRITE
  • Prompt: !,"PLEASE USE THE 'PAYMENT CREDIT' TRANSACTION TYPE"
  • Line Location: ASKREV+4
Function Call: WRITE
  • Prompt: !!,"There are no transactions to reverse!"
  • Line Location: ASKREV+13
Function Call: WRITE
  • Prompt: !!,"NO TRANSACTIONS MATCH THE REVERSAL AMOUNT ENTERED!"
  • Line Location: ASKREV+62
Function Call: WRITE
  • Prompt: !!,BARDSH
  • Line Location: ASKREV+63
Function Call: WRITE
  • Prompt: !,"You have chosen "_TRANTYP_" dated "_EXTRDT_"."
  • Line Location: ASKREV+69
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REVHDR+1
Function Call: WRITE
  • Prompt: !!,"Which Original Payment does this apply to?"
  • Line Location: REVHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: REVHDR+3
Function Call: WRITE
  • Prompt: "TRANS DATE",?25,"TRANS TYPE",?50,"AMOUNT",?65,"BALANCE"
  • Line Location: REVHDR+4
Function Call: WRITE
  • Prompt: !,?10,"A/R ACCT",?25,"BATCH",?55,"BATCH ITEM"
  • Line Location: REVHDR+5
Function Call: WRITE
  • Prompt: !,BARDSH
  • Line Location: REVHDR+6
Function Call: WRITE
  • Prompt: !!,"<<YOU ARE ATTEMPTING TO POST A REVERSAL WHEN THERE IS NO PAYMENT ON THE BILL"
  • Line Location: CKREV+1
Function Call: WRITE
  • Prompt: !,"PLEASE CHECK YOUR TRANSACTION AND TRY AGAIN"
  • Line Location: CKREV+2
Routine Call
  • DIE
  • Line Location:
    • ROLL+9
Routine Call
  • DIC
  • Line Location:
    • ASKAMT+38
    • ASKAMT+55
Routine Call
  • DIR
  • Line Location:
    • 0+13
    • ASKAMT+8
    • PDIR+4
    • ASKREV+67
    • ASKREV+74

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARTR(2906 - [#90050.03] GET1^DIQ
90051.1101 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( 0+7
^BAR(90052.01 - [#90052.01] B+5, ASKAMT+30
^BAR(90052.06 EXCHK+5
^BARBL( 0+9
^BARTBL("D" ASKAMT+45
^BARTMP($J 0+2, 0+34, GOB+2, FIN+9!, ROLL+3, CANCEL+2!, ASKREV+12, REDO, REDO+1
^BARTR( ASKREV+20, EXCHK+12, EXCHK+13
^DD("DD" ASKREV+35
^TEMP($J EN+1!

Label References

Name Line Occurrences
$$EXCHK ASKREV+30
$$POST FIN
$$REVERSAL ASKAMT+18
ASKAMT GOP+1, GOP+2, GOA+1, GOA+2, ASKAMT+12, ASKAMT+40, ASKAMT+57
ASKCOM 0+1, 0+23, 0+28, 0+37, 0+40, GOP+3, GOD+1, GOB+1, B, B+9
, ASKAMT+11, ASKAMT+16, ASKAMT+25, S1+3
ASKCOM1 ASKLIN+1, ASKLIN+5, COMHLP+2
ASKREV ASKREV+76
CANCEL FINISH+1, FIN+2, FIN+6
CKNEG GOQ+3
CKREV ASKREV+14, ASKREV+58
COMHLP 0+27
EN1 GOQ+2, FIN+1
FIN FIN+7
FINISH ASKLIN+3, ASKLIN+4, GOQ+2
PDIR PDIR+6
REVHDR ASKREV+7
ROLL GOP+3
S1 ASKAMT+29, ASKAMT+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCT ASKREV+8~, ASKREV+36*, ASKREV+55
AMOUNT ASKREV+8~, ASKREV+44*, ASKREV+52
ARBILLIN ASKREV+8~, ASKREV+12*, ASKREV+14, ASKREV+20, ASKREV+30
ARRAY ASKREV+8~
ARRAY( ASKREV+32*, ASKREV+77
BALANCE ASKREV+8~, ASKREV+49*, ASKREV+53
BARACC 0+29~, 0+33*, 0+35
BARADJ EN+2*, FINISH+1, CANCEL+3!
BARAMT EN1+2!, EN2+2!, ASKCOM+1!, B, B+1*, B+4*, B+6, ASKAMT+13*, ASKAMT+16, ASKAMT+25
, ASKAMT+40!, ASKAMT+42*, ASKAMT+57!, S1+1, ASKREV+24
>> BARASK ASKAMT+2*, ASKAMT+6
BARATYP EN1+2!, ASKCOM+1!, ASKAMT+1*, ASKAMT+44!, ASKAMT+48*, ASKAMT+49, ASKAMT+58*, S1+1
BARB CKNEG+2~, REDO+1*, REDO+2, REDO+4
>> BARBAL ASKREV+16*, ASKREV+47*, ASKREV+48
BARBLDA 0+2*, 0+3, 0+9, 0+29~, 0+34*, 0+35, GOB+2*, GOB+3, ROLL+2~, ROLL+3*
, ROLL+4, ROLL+7
BARCAT EN1+2!, ASKCOM+1!, B, B+5*, ASKAMT+1*, ASKAMT+30*, ASKAMT+41*, ASKAMT+42, ASKAMT+45, S1+1
BARCK ASKREV+11~*, ASKREV+15*, ASKREV+23*, ASKREV+58
>> BARCNT ASKLIN+1, ASKLIN+5, GOQ+2
>> BARCOL 0+31, EXCHK+2
>> BARCOL(0 ASKAMT+25
BARCOM EN1+2!, EN2+2!, ASKCOM+1!, XYZ*, XYZ+1*, XYZ+2*, 0+1, 0+18
BARCOM( 0+18*, 0+19, 0+20!, 0+28, 0+37, 0+40, GOQ+2, GOP+1, GOP+2, GOP+3
, GOA+1, GOA+2, GOD+1, GOB+1, GOB+4
BARCOM(1 0+23, 0+24*, 0+25*, 0+26*, 0+27, B, B+8
BARCOM(2 B+2, B+4
BARDA CKNEG+2~, REDO*, REDO+1, EXCHK~, EXCHK+12
>> BARDFLT EN+3*, ASKLIN+1*
>> BARDSH ASKREV+63, REVHDR+6
>> BARDSP EN1+3*, ASKCOM+2*
>> BARHLP EN2+3
>> BARHLP( 0+27, B+8
>> BARITDA 0+30
>> BARITM EXCHK+2
>> BARJ ASKAMT+43*, ASKAMT+45, ASKAMT+46*, ASKAMT+47, ASKAMT+49
BARLIN EN1+2!, ASKLIN+1*, ASKLIN+3, ASKLIN+4, ASKLIN+5, ASKCOM1+3, 0+2, 0+34, 0+38, GOQ+3
, GOB+2, B, B+6, S1+1, ROLL+3, ASKREV+12, EXCHK+18, EXCHK+19
BARNOTZ ASKREV+19!, ASKREV+59, EXCHK+20*
>> BARPASS EN1+4, ASKCOM+3, P1+1
>> BARPAT 0+35, GOD+2
BARPMT EN+2*, FINISH+1, CANCEL+3!, ASKREV+15
>> BARQ FIN*, FIN+1, FIN+2, FIN+4
BARROLL FINISH+1, CANCEL+3!
BARROLL( ROLL+4*
>> BARSTAT 0+7*, 0+8
>> BARSTOP FIN+7
>> BARTPB 0+3*, 0+6, 0+7
BARTR EN+1!, FINISH+1, CANCEL+3!
BARTR( EXCHK+18, EXCHK+19
BARTYP EN1+2!, ASKCOM+1!, GOP+1*, GOP+2*, GOA+1*, GOA+2*, B, B+1*, ASKAMT+2, ASKAMT+16
, ASKAMT+25, ASKAMT+29, S1+1
>> BARX ASKAMT+43*, ASKAMT+45*, ASKAMT+48, ASKREV+39*, ASKREV+47
>> CNT ASKREV+18*, ASKREV+31*, ASKREV+32, ASKREV+33, ASKREV+59, ASKREV+62, ASKREV+65
>> COLBAT ASKREV+37*, ASKREV+56
COLDA ASKREV+9~, ASKREV+26*, ASKREV+28, EXCHK+2
>> COLITEM ASKREV+38*, ASKREV+57
CREDIT ASKREV+10~, ASKREV+22*, ASKREV+23, ASKREV+24, ASKREV+39
DA 0+5!, 0+29~, 0+30*, 0+33, ROLL+7*
DA(1 0+31*
DD ASKAMT+37!, ASKAMT+54!
DEBIT ASKREV+10~, ASKREV+21*, ASKREV+39
>> DFN GOD+2*
DIC 0+5!, 0+29~, 0+32*, 0+33, ASKAMT+33*, ASKAMT+39!, ASKAMT+50*, ASKAMT+56!, ROLL+5!, ROLL+10!
DIC("A" ASKAMT+35*, ASKAMT+52*
DIC("S" ASKAMT+36*, ASKAMT+53*
DIC(0 ASKAMT+34*, ASKAMT+51*
DIE 0+5!, ROLL+5!, ROLL+6*, ROLL+10!
DIR EN+1!, 0+5!, 0+13!, ASKAMT+4!, ASKAMT+9!, PDIR+1!, PDIR+5!, ROLL+11!, ASKREV+64!, ASKREV+70!
DIR("A" 0+11*, ASKAMT+6*, PDIR+3*, ROLL+12*, ASKREV+66*, ASKREV+73*
DIR("B" 0+12*, ASKREV+72*
DIR("T" ASKAMT+7*
DIR(0 0+10*, ASKAMT+5*, PDIR+2*, ASKREV+65*, ASKREV+71*
DIROUT 0+1, 0+4!
DIRUT 0+1, 0+4!
DO ASKAMT+37!, ASKAMT+54!
DR 0+5!, ROLL+8*, ROLL+10!
DTIME XYZ, ASKAMT+7
DTOUT 0+1, 0+4!, ASKAMT+16, ASKREV+68, ASKREV+75
DUOUT 0+1, 0+4!, ASKAMT+16, PDIR+6, ASKREV+68, ASKREV+75
DUZ ASKCOM1+1, FIN+6
DUZ(2 0+3, 0+9, ASKAMT+16, ASKAMT+25, ASKREV+20, CKNEG+1, EXCHK+5, EXCHK+12, EXCHK+13
EXTRDT ASKREV+8~, ASKREV+34*, ASKREV+35*, ASKREV+50, ASKREV+69
IOF REVHDR+1
ITEMDA ASKREV+9~, ASKREV+27*, ASKREV+28, EXCHK+2
>> J 0+16*, 0+18, 0+19, 0+20, 0+21*, 0+23, 0+28, 0+37, 0+40, GOQ+2
, GOP+1, GOP+2, GOP+3, GOA+1, GOA+2, GOD+1, GOB+1, GOB+4, B
LIN CKNEG~, REDO, REDO+1
>> Q 0+15*, 0+16, 0+22*
RETURN ASKREV+8~
REVERS ASKAMT+17!, ASKAMT+18*, ASKAMT+19, ASKAMT+20
REVERSAL EN1+2!, ASKCOM1+2!, ASKAMT+16, ASKAMT+17!, ASKAMT+19*
REVSCHED EN1+2!, ASKCOM1+2!, ASKAMT+17!, ASKAMT+20*, ASKREV+9~, ASKREV+28*, ASKREV+32
TRANDATE ASKREV+8~
TRANSDAT ASKREV+8~, ASKREV+17*, ASKREV+20*, ASKREV+21, ASKREV+22, ASKREV+25, ASKREV+26, ASKREV+27, ASKREV+30, ASKREV+32
, ASKREV+34, ASKREV+36, ASKREV+37, ASKREV+38
TRANTYP ASKREV+8~, ASKREV+25*, ASKREV+29, ASKREV+43, ASKREV+46, ASKREV+51, ASKREV+69
TX EXCHK~, EXCHK+3, EXCHK+5, EXCHK+6, EXCHK+14, EXCHK+19
U 0+7, 0+9, ASKAMT+19, ASKAMT+20, ASKAMT+25, ASKREV+32, REDO+1, EXCHK+5, EXCHK+13, EXCHK+19
>> UFMSESID ASKCOM1+1, FIN+6
X 0+5!, B+2*, B+3, ASKAMT+10*, ASKAMT+11, ASKAMT+12, ASKAMT+13, ROLL+10!, ASKREV+39*, ASKREV+43*
, ASKREV+44, ASKREV+45~, ASKREV+48*, ASKREV+49, EXCHK+9~, EXCHK+11*, EXCHK+12*, EXCHK+13, EXCHK+17*, EXCHK+18*
, EXCHK+19
>> X2 ASKREV+40*, ASKREV+48*
>> X3 ASKREV+41*, ASKREV+48*
Y 0+1, 0+5!, 0+38*, ASKAMT+16, ASKAMT+21*, ASKAMT+40, ASKAMT+41, ASKAMT+57, ASKAMT+58, PDIR+6
, PDIR+7, ROLL+10!, ASKREV+35*, ASKREV+68, ASKREV+76, ASKREV+77, EXCHK+9~, EXCHK+13*, EXCHK+14
Z EXCHK+9~, EXCHK+10*, EXCHK+15*, EXCHK+16, EXCHK+19*, EXCHK+20, EXCHK+21
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 |  All