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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBUCPAY

Package: Fee Basis

Routine: FBUCPAY


Information

FBUCPAY ;ALBISC/TET - PAYMENT DRIVER ;12/17/2014

Source Information

Source file <FBUCPAY.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Fee Basis 10 EN583^FBAACO  ^FBAAPIE  2^FBAAUTL1  EN583^FBCHCO  EN583^FBCHEP  $$EXTRL^FBMRASVR  DISPX^FBUCUTL1  (LINE,PARSE)^FBUCUTL4  
DISP7^FBUCUTL5  $$UOKPAY^FBUTL9  
VA FileMan 2 EN^DIQ  ^DIR  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Fee Basis 1 FBUC PAYMENTS  

Entry Points

Name Comments DBIA/ICR reference
ASK ;ask to whom payment should be made, vendor and veteran (to narrow selection)
GET ;get claim for payment, only approved dispositioned claims, non cnh program, ven and vet must match
VET ;get vet info
VEN ;get vendor info
LOOKUP ;select claim
LOOP ;loop thru selection and make payments
PAY(FBVET,FBPAY,FBZ) ;determine payments
END ;kill variables and quit
WRITE ;write message
CR ;ask carriage return to continue
GO(X) ;X=counter from ^TMP("FBAR",$J,X)

External References

Name Field # of Occurrence
HOME^%ZIS PAY+18
EN^DIQ PAY+18
^DIR ASK+1, VET+1, VEN+1, PAY+4, CR+1
EN583^FBAACO PAY+22
^FBAAPIE PAY+24
2^FBAAUTL1 PAY+6
EN583^FBCHCO PAY+26
EN583^FBCHEP PAY+26
$$EXTRL^FBMRASVR LOOKUP+5
DISPX^FBUCUTL1 LOOKUP+7
LINE^FBUCUTL4 LOOP+3
PARSE^FBUCUTL4 LOOP+1
DISP7^FBUCUTL5 LOOKUP+1
$$UOKPAY^FBUTL9 PAY+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+1
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: PAY+3
Function Call: WRITE
  • Prompt: !!,"You cannot process a payment associated with authorization ",DFN,"-",FTP
  • Line Location: PAY+10
Function Call: WRITE
  • Prompt: !,"due to separation of duties."
  • Line Location: PAY+11
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+13
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+14
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+15
Function Call: WRITE
  • Prompt: @IOF,!?25,"< UNAUTHORIZED CLAIM >",!!
  • Line Location: PAY+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PAY+18
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: PAY+28
Function Call: WRITE
  • Prompt: !?5,FBMESS
  • Line Location: WRITE+1
Routine Call
  • %ZIS
  • Line Location:
    • PAY+18
Routine Call
  • DIR
  • Line Location:
    • ASK+1
    • VET+1
    • VEN+1
    • PAY+4
    • CR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FB583 - [#162.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB583 - [#162.7] LOOKUP+3, LOOP+2
^TMP("FBAR" LOOKUP+3, LOOKUP+4!, LOOKUP+5*, LOOKUP+6*!, LOOKUP+8!, GO+2
^TMP("FBARY" LOOP+2, END+3!

Label References

Name Line Occurrences
$$GO LOOKUP+4
ASK ASK+1, LOOP+5
CR PAY+17, PAY+19
END ASK+1, VET+1, VEN+1, LOOKUP+8, LOOP+5
PAY LOOP+4
VEN VEN+1
VET VET+1
WRITE PAY+1, PAY+3, PAY+13, PAY+15, PAY+28

Naked Globals

Name Field # of Occurrence
^( LOOKUP+3, LOOKUP+5, LOOP+2
^("FBAR" LOOKUP+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT PAY+6*, PAY+18!, END+3!
CNT( PAY+6*
D0 PAY+2*, END+3!
DA PAY+18*!
DFN PAY+2*, PAY+9, PAY+10, END+3!
DIC PAY+18*!, END+3!
DIQ PAY+18!
DIQ(0 PAY+18*
DIR ASK+1!, VET+1!, VEN+1!, PAY+4!, END+3!, CR+1!
DIR("A" ASK+1*, VET+1*, VEN+1*, PAY+4*
DIR("B" PAY+4*
DIR(0 ASK+1*, VET+1*, VEN+1*, PAY+4*, CR+1*
DIRUT ASK+1, VET+1, PAY+4, END+3!
DR PAY+18*!
DTOUT VEN+1, LOOP+4~, END+3!, CR+1
DUOUT VEN+1, LOOP+4~, PAY+6, END+3!, CR+1
FB END+1!
FB583 PAY+16, PAY+18, PAY+26, END+2!
FB7078 END+2!
FBAABDT END+1!
FBAAEDT END+1!
FBAAOUT END+1!
FBAAPTC PAY+2*, END+1!
FBAIEN PAY+2*, PAY+6, PAY+13, END+1!
FBANC PAY+4*, PAY+26, END+1!
FBARY LOOKUP+8, LOOP+1, LOOP+3, END+1!
FBASSOC END+1!
FBCNT LOOKUP+3*, LOOKUP+6*, END+1!
FBD1 END+1!
FBDA LOOP+1~, LOOP+2*, END+1!
FBDMRA END+2!
FBFDC END+1!
FBI LOOKUP+3*, LOOKUP+4, LOOKUP+5, LOOKUP+6, LOOP+1~, LOOP+2*, LOOP+3, LOOP+4~, END+1!
FBI7078 PAY+26*, END+1!
FBIEN LOOKUP+1*, END+1!
FBIX LOOKUP+1*, END+1!
FBMESS PAY+1*, PAY+3*, PAY+13*, PAY+15*, PAY+28*, END+2!, WRITE+1
FBMST END+1!
FBNODE LOOP+1~, LOOP+2*, LOOP+3
FBO LOOKUP+1*, END+1!
FBOUT LOOKUP+8, LOOP+2*, LOOP+4*, PAY+1*, PAY+3*, PAY+4*, PAY+6*, PAY+9*, PAY+13*, PAY+15*
, PAY+17, PAY+19, END+1!, CR+1*
FBP LOOP+1~
FBPAY ASK+2*, LOOP+4, PAY~, PAY+2, END+2!
FBPL LOOP+1~, LOOP+3
FBPOV END+2!
FBPROG PAY+5*, END+2!
FBPROG(1 PAY+2*, PAY+3, PAY+4, PAY+5, PAY+15, PAY+22, PAY+24, PAY+26, PAY+28
FBPSA END+2!
FBPT END+2!
FBRESUB PAY+26*, END+2!
FBSUBMIT PAY+2*, END+2!
FBTP END+2!
FBTT END+2!
FBTTYPE END+2!
FBTYPE PAY+15, END+2!
FBV583 PAY+16*, END+2!
FBVEN GET+1!, VEN+1*, LOOKUP+4, END+2!
FBVET GET+1!, VET+1*, LOOKUP+1, LOOP+4, PAY~, PAY+2, END+2!
FBW LOOP+1~, LOOP+3
FBZ LOOKUP+3*, LOOKUP+4, LOOKUP+5*!, LOOP+1~, LOOP+2*, LOOP+4, PAY~, PAY+1, PAY+2, PAY+26
, END+2!
FBZ(0 PAY+26*
FTP LOOP+4~, PAY+6, PAY+9, PAY+10, END+2!
IOF PAY+18
TA END+3!
U LOOKUP+4, LOOKUP+5, PAY+1, PAY+2, PAY+26, GO+2
X PAY+6*, PAY+18!, END+3!, GO~, GO+1, GO+2
Y ASK+1, ASK+2, VET+1, VEN+1, PAY+4, END+3!
Y(0 ASK+1
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 |  Naked Globals |  Local Variables  | All