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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBFPTR

Package: Fee Basis

Routine: FBFPTR


Information

FBFPTR ;WOIFO/SAB-FPPS TRANSMIT REPORT ;9/8/2003

Source Information

Source file <FBFPTR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  

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 FB FPPS TRANSMIT REPORT  

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
GATHER ; collect and sort data
PRINT ; report data
EXIT ;
RSUM ; report summary
HD ; page header
HDSUM ; report summary header

External References

Name Field # of Occurrence
DD^%DT PRINT+1
NOW^%DTC PRINT+1
^%ZIS FBFPTR+15
HOME^%ZIS FBFPTR+19
^%ZISC PRINT+16
^%ZTLOAD FBFPTR+19
$$S^%ZTLOAD GATHER+12, HD+2
^DIR FBFPTR+6, FBFPTR+11, PRINT+15, HD+3
$$FMTE^XLFDT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option generates a report of transmissions to FPPS for a date range.",!
  • Line Location: FBFPTR+3
Function Call: WRITE
  • Prompt: !,"No invoices were transmitted during specified period."
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!,"SUMMARY OF EDI INVOICES TRANSMITTED TO FPPS"
  • Line Location: RSUM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RSUM+17
Function Call: WRITE
  • Prompt: !,FBSTA
  • Line Location: RSUM+29
Function Call: WRITE
  • Prompt: ?9,$S(FBFILE=3:"Outpatient/Ancillary",FBFILE=5:"Pharmacy",FBFILE=9:"Inpatient",1:"Unknown")
  • Line Location: RSUM+30
Function Call: WRITE
  • Prompt: ?31,$J($FN(FBCL+FBCC,","),9)
  • Line Location: RSUM+31
Function Call: WRITE
  • Prompt: ?42,$J($FN(FBCX,","),9)
  • Line Location: RSUM+32
Function Call: WRITE
  • Prompt: ?53,$J($FN(FBCL+FBCC+FBCX,","),9)
  • Line Location: RSUM+33
Function Call: WRITE
  • Prompt: ?64,$J($FN(FBCA,","),14)
  • Line Location: RSUM+34
Function Call: WRITE
  • Prompt: !,?31,"---------",?42,"---------",?53,"---------",?64,"--------------"
  • Line Location: RSUM+42
Function Call: WRITE
  • Prompt: !,FBSTA," Station Totals",?31,$J($FN($P(FBT(FBSTA),U),","),9)
  • Line Location: RSUM+43
Function Call: WRITE
  • Prompt: ?42,$J($FN($P(FBT(FBSTA),U,2),","),9)
  • Line Location: RSUM+44
Function Call: WRITE
  • Prompt: ?53,$J($FN($P(FBT(FBSTA),U)+$P(FBT(FBSTA),U,2),","),9)
  • Line Location: RSUM+45
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(FBT(FBSTA),U,3),","),14)
  • Line Location: RSUM+46
Function Call: WRITE
  • Prompt: !!,?31,"=========",?42,"=========",?53,"=========",?64,"=============="
  • Line Location: RSUM+56
Function Call: WRITE
  • Prompt: !,"Report Totals",?31,$J($FN($P(FBT,U),","),9)
  • Line Location: RSUM+57
Function Call: WRITE
  • Prompt: ?42,$J($FN($P(FBT,U,2),","),9)
  • Line Location: RSUM+58
Function Call: WRITE
  • Prompt: ?53,$J($FN($P(FBT,U)+$P(FBT,U,2),","),9)
  • Line Location: RSUM+59
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(FBT,U,3),","),14)
  • Line Location: RSUM+60
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"FPPS Transmission Report ",?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,FBHDT(FBI)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,?31,"------------- Transmission Counts -------------"
  • Line Location: HDSUM+1
Function Call: WRITE
  • Prompt: !,?31,"Payment",?42,"Payment",?64,"Accepted by"
  • Line Location: HDSUM+2
Function Call: WRITE
  • Prompt: !,"Station",?9,"Invoice Type",?31,"Confirmed",?42,"Cancelled",?53,"Total",?64,"Interface Eng."
  • Line Location: HDSUM+3
Function Call: WRITE
  • Prompt: !,"-------",?9,"------------",?31,"---------",?42,"---------",?53,"---------",?64,"--------------"
  • Line Location: HDSUM+4
Routine Call
  • DIR
  • Line Location:
    • FBFPTR+6
    • FBFPTR+11
    • PRINT+15
    • HD+3
Routine Call
  • %ZIS
  • Line Location:
    • FBFPTR+15
Routine Call
  • %ZIS
  • Line Location:
    • FBFPTR+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBHL(163.5 - [#163.5] GATHER+8, GATHER+9, GATHER+14

Label References

Name Line Occurrences
EXIT FBFPTR+6, FBFPTR+11, FBFPTR+15, FBFPTR+16
HD PRINT+7, RSUM+13
HDSUM RSUM+6, RSUM+13
RSUM PRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1, EXIT+4!
>> %ZIS FBFPTR+15*
DIC EXIT+4!
DIR FBFPTR+6!, FBFPTR+11!, PRINT+15!, EXIT+4!, HD+3!
DIR("A" FBFPTR+5*, FBFPTR+10*
DIR(0 FBFPTR+5*, FBFPTR+10*, PRINT+15*, HD+3*
DIROUT EXIT+4!
DIRUT FBFPTR+6, FBFPTR+11, EXIT+4!
DT FBFPTR+10
DTOUT EXIT+4!
DUOUT EXIT+4!
FBC GATHER+6*, GATHER+10*, GATHER+12, EXIT+2!
>> FBCA RSUM+26*, RSUM+34, RSUM+39
FBCC RSUM+1~, RSUM+23*, RSUM+31, RSUM+33, RSUM+37
FBCL RSUM+1~, RSUM+24*, RSUM+31, RSUM+33, RSUM+37
FBCX RSUM+1~, RSUM+25*, RSUM+32, RSUM+33, RSUM+38
FBDA GATHER+9*, GATHER+14, EXIT+2!
FBDL PRINT+2!*, EXIT+2!, HD+8
FBDT GATHER+7*, GATHER+8*, GATHER+9, EXIT+2!
FBDT1 FBFPTR+7*, FBFPTR+10, GATHER+7, PRINT+5, EXIT+2!
FBDT2 FBFPTR+12*, GATHER+8, PRINT+5, EXIT+2!
FBDTR PRINT+1*, EXIT+2!, HD+6
FBFILE GATHER+15*, GATHER+16*, GATHER+22, GATHER+24, EXIT+2!, RSUM+20*, RSUM+23, RSUM+24, RSUM+25, RSUM+26
, RSUM+30
FBHDT EXIT+2!
FBHDT( HD+7
FBHDT(1 PRINT+5*
FBI HD+1~, HD+7*
FBPG PRINT+1*, EXIT+2!, HD+3, HD+4, HD+5*, HD+6
FBQUIT GATHER+1*, GATHER+8, GATHER+9, GATHER+12*, PRINT+9, PRINT+11, PRINT+13, PRINT+15, EXIT+2!, RSUM+12
, RSUM+13, RSUM+20, RSUM+53, HD+2*, HD+3*
FBSTA GATHER+19*, GATHER+20*, GATHER+22, GATHER+24, EXIT+3!, RSUM+12*, RSUM+15, RSUM+20, RSUM+23, RSUM+24
, RSUM+25, RSUM+26, RSUM+29, RSUM+37, RSUM+38, RSUM+39, RSUM+43, RSUM+44, RSUM+45, RSUM+46
, RSUM+49, RSUM+50, RSUM+51
FBT GATHER+3!, PRINT+9, PRINT+11, EXIT+3!, RSUM+9*, RSUM+49*, RSUM+50*, RSUM+51*, RSUM+57, RSUM+58
, RSUM+59, RSUM+60
FBT( GATHER+22*, GATHER+24*, RSUM+12, RSUM+15*, RSUM+20, RSUM+23, RSUM+24, RSUM+25, RSUM+26, RSUM+37*
, RSUM+38*, RSUM+39*, RSUM+43, RSUM+44, RSUM+45, RSUM+46, RSUM+49, RSUM+50, RSUM+51
FBTTYP GATHER+17*, GATHER+18*, GATHER+22, GATHER+24, EXIT+3!
FBX FBFPTR+18*, EXIT+3!
FBY GATHER+14*, GATHER+15, GATHER+17, GATHER+19, GATHER+24, EXIT+3!
I EXIT+4!
IO QEN+1
IO("Q" FBFPTR+16
IOF HD+4
IOM PRINT+2
IOSL RSUM+13
IOST PRINT+15, HD+3, HD+4
J EXIT+4!
POP FBFPTR+15, EXIT+4!
U GATHER+15, GATHER+17, GATHER+19, GATHER+22, GATHER+24, RSUM+23, RSUM+24, RSUM+25, RSUM+26, RSUM+37
, RSUM+38, RSUM+39, RSUM+43, RSUM+44, RSUM+45, RSUM+46, RSUM+49, RSUM+50, RSUM+51, RSUM+57
, RSUM+58, RSUM+59, RSUM+60
X EXIT+4!
Y FBFPTR+7, FBFPTR+12, PRINT+1*, EXIT+4!, HD+3
>> ZTDESC FBFPTR+17*
>> ZTQUEUED GATHER+12, EXIT+1, HD+2
>> ZTREQ EXIT+1*
>> ZTRTN FBFPTR+17*
>> ZTSAVE( FBFPTR+18*
ZTSK FBFPTR+19!
>> ZTSTOP GATHER+12*, HD+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All