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: FBFPCI

Package: Fee Basis

Routine: FBFPCI


Information

FBFPCI ;WOIFO/SAB-FPPS AUDIT REPORT ;8/6/2003

Source Information

Source file <FBFPCI.m>

Call Graph

Call Graph

Call Graph Total: 7

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

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 CLAIM INQ  

Entry Points

Name Comments DBIA/ICR reference
ASKCI ; ask FPPS CLAIM ID
QEN ; queued entry
GATHER ; collect and sort data
PRINT ; report data
EXIT ;
HD ; page header

External References

Name Field # of Occurrence
DD^%DT PRINT+1
NOW^%DTC PRINT+1
^%ZIS ASKCI+7
HOME^%ZIS ASKCI+11
^%ZISC PRINT+30
^%ZTLOAD ASKCI+11
$$S^%ZTLOAD HD+1
$$GET1^DIQ GATHER+33, GATHER+34, GATHER+35
^DIR ASKCI+3, PRINT+29, HD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Inpatient ("
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: $S(FBPROG=6:"CH",FBPROG=7:"CNH",1:"")
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ") Invoice: ",FBAAIN
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"Outpatient/Ancillary Invoice: ",FBAAIN
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"Pharmacy Invoice: ",FBAAIN
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"Unauthorized Claim: ",$P(FBX,U)," ",$P(FBX,U,2)," ",FBDT
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,"No VistA invoices found with specified FPPS CLAIM ID."
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"FPPS Claim Inquiry for ID: ",FBFPPSC,?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+6
Routine Call
  • DIR
  • Line Location:
    • ASKCI+3
    • PRINT+29
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • ASKCI+7
Routine Call
  • %ZIS
  • Line Location:
    • ASKCI+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FB583 - [#162.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB583 - [#162.7] GATHER+32
^FB583("AFC" GATHER+31
^FBAA(162.1 - [#162.1] GATHER+25, GATHER+26
^FBAAC - [#162] GATHER+20
^FBAAC("AFC" GATHER+13, GATHER+15, GATHER+17, GATHER+19
^FBAAI - [#162.5] GATHER+6
^FBAAI("AFC" GATHER+5
^TMP($J GATHER+2!, GATHER+9*, GATHER+22*, GATHER+28*, GATHER+36*, PRINT+8, PRINT+11, PRINT+19, PRINT+20, PRINT+22
, PRINT+25, EXIT+2!

Label References

Name Line Occurrences
ASKCI EXIT+6
EXIT ASKCI+3, ASKCI+7, ASKCI+8
HD PRINT+4, PRINT+9, PRINT+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1, EXIT+5!
>> %ZIS ASKCI+7*
DA ASKCI+1!
DIC EXIT+5!
DIR ASKCI+3!, PRINT+29!, EXIT+5!, HD+2!
DIR(0 ASKCI+2*, PRINT+29*, HD+2*
DIROUT EXIT+5!
DIRUT ASKCI+3, EXIT+5!
DTOUT EXIT+5!
DUOUT EXIT+5!
FBAAIN GATHER+7*, GATHER+9, GATHER+21*, GATHER+22, GATHER+27*, GATHER+28, PRINT+8*, PRINT+11, PRINT+14, PRINT+15
, PRINT+16, EXIT+3!
FBDA GATHER+5*, GATHER+6, GATHER+18*, GATHER+19*, GATHER+20, GATHER+22, GATHER+25*, GATHER+26, GATHER+31*, GATHER+32
, GATHER+33, GATHER+34, GATHER+35, GATHER+36, PRINT+20*, PRINT+22, EXIT+3!
FBDA1 GATHER+16*, GATHER+17*, GATHER+19, GATHER+20, GATHER+22, EXIT+3!
FBDA2 GATHER+14*, GATHER+15*, GATHER+17, GATHER+19, GATHER+20, GATHER+22, EXIT+3!
FBDA3 GATHER+12*, GATHER+13*, GATHER+15, GATHER+17, GATHER+19, GATHER+20, GATHER+22, EXIT+3!
FBDL PRINT+2!*, EXIT+3!, HD+6
FBDT GATHER+35*, GATHER+36, PRINT+19*, PRINT+20, PRINT+22, PRINT+23, EXIT+3!
FBDTR PRINT+1*, EXIT+3!, HD+5
FBFILE PRINT+7*, PRINT+8, PRINT+10, PRINT+11, PRINT+15, PRINT+16, EXIT+3!
FBFPPSC ASKCI+4*, GATHER+5, GATHER+13, GATHER+15, GATHER+17, GATHER+19, GATHER+25, GATHER+31, EXIT+4!, HD+5
FBPG PRINT+1*, EXIT+4!, HD+2, HD+3, HD+4*, HD+5
FBPN GATHER+33*, GATHER+36, EXIT+4!
FBPROG GATHER+8*, GATHER+9, PRINT+11*, PRINT+13, EXIT+4!
FBQUIT ASKCI+3*, ASKCI+7*, ASKCI+8*, GATHER+1*, PRINT+9, PRINT+21, PRINT+27, PRINT+29*, EXIT+6, EXIT+7!
, HD+1*, HD+2*
FBVN GATHER+34*, GATHER+36, EXIT+4!
FBX ASKCI+10*, PRINT+22*, PRINT+23, EXIT+4!
FBY0 GATHER+6*, GATHER+7, GATHER+8, GATHER+20*, GATHER+21, GATHER+26*, GATHER+27, GATHER+32*, EXIT+4!
I EXIT+5!
IO QEN+1
IO("Q" ASKCI+8
IOF HD+3
IOM PRINT+2
IOSL PRINT+9, PRINT+21
IOST PRINT+29, EXIT+6, HD+2, HD+3
J EXIT+5!
POP ASKCI+7, EXIT+5!
U GATHER+7, GATHER+8, GATHER+21, GATHER+27, GATHER+36, PRINT+11, PRINT+23
X EXIT+5!
Y ASKCI+4, PRINT+1*, PRINT+29, EXIT+5!, HD+2
>> ZTDESC ASKCI+9*
>> ZTQUEUED EXIT+1, HD+1
>> ZTREQ EXIT+1*
>> ZTRTN ASKCI+9*
>> ZTSAVE( ASKCI+10*
ZTSK ASKCI+11!
>> ZTSTOP HD+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 |  Local Variables  | All