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

Package: Integrated Billing

Routine: IBOAMS


Information

IBOAMS ;ALB/AAS - PRINT REVENUE CODE TOTALS FOR MEANS TEST AMIS ; 10-SEP-91

Source Information

Source file <IBOAMS.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 ^%DT  (COMMA,NOW)^%DTC  ^DIC  (D,DT)^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 PID^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 1 IB REV CODE TOTALS  
Registration 1 DGCRAMS1  

Entry Points

Name Comments DBIA/ICR reference
DATE1
EN ; - Report of inpatient and nhcu per diems
HDR ; - patient data header
DEV
TOTALS ; - print revenue code totals
ENQ ;
PAUSE
DATE
BLD ;
BLD1
DQ ; - start report here

External References

Name Field # of Occurrence
^%DT DATE, DATE1
COMMA^%DTC BLD+8, TOTALS+5, TOTALS+6
NOW^%DTC DQ+3
^%ZIS DEV
HOME^%ZIS EN+4
^%ZISC ENQ+5
^%ZTLOAD DEV+1
^DIC EN+7
D^DIQ DQ+3
DT^DIQ HDR+4
^DIR DATE1+2, PAUSE+2
PID^VADPT BLD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?19,"Report of Revenue Code Totals by Rate Type",!!!
  • Line Location: EN+4
Function Call: READ
  • Prompt: "GO TO DATE FIRST PRINTED: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: !,"No Matches Found"
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),"^"),1,20),?23,VA("PID"),?38,$P(^DGCR(399,IBIFN,0),"^")
  • Line Location: BLD+7
Function Call: WRITE
  • Prompt: ?59,$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R),?67
  • Line Location: BLD+8
Function Call: WRITE
  • Prompt: X,!
  • Line Location: BLD+8
Function Call: WRITE
  • Prompt: !,"Revenue Code: ",$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R)," .........."
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: ?32,X,?50,$J(IBCNT(R),8)," Bills"
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !,?31,"--------------",!," ",?32,X,?50,$J(IBCNT,8)," Bills"
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+4
Routine Call
  • DIC
  • Line Location:
    • EN+7
Routine Call
  • DIR
  • Line Location:
    • DATE1+2
    • PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399.3 - [#399.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DQ+6, BLD+2, BLD+3, BLD+4, BLD+7, BLD1
^DGCR(399.2 - [#399.2] BLD+8, TOTALS+5
^DGCR(399.3 - [#399.3] EN+6, HDR+3
^DPT - [#2] BLD+7

Label References

Name Line Occurrences
BLD DQ+6
BLD1 BLD+3
DATE1 DATE1
ENQ EN+7, DATE, DATE1, DATE1+2, DEV, DEV+1
HDR DQ+4, BLD+6, TOTALS+2
PAUSE DQ+10, BLD+6, TOTALS+2
TOTALS DQ+8

Naked Globals

Name Field # of Occurrence
^( EN+6
^("S" BLD+2
^(0 BLD+8, TOTALS+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+3
%DT DATE*!, DATE1*!, ENQ+4!
%DT("A" DATE*
>> %ZIS DEV*
>> %ZIS("A" DEV*
DFN ENQ+4!, BLD+7*
DIC EN+5*, EN+7!, ENQ+4!
DIC("A" EN+5*
DIC("B" EN+6*
DIC(0 EN+5*
DIR DATE1+2!, ENQ+4!, PAUSE+2!
DIR("A" DATE1+2*
DIR("B" DATE1+2*
DIR(0 DATE1+2*, PAUSE+2*
DIRUT DATE1+2, PAUSE+2!
DTIME DATE1
DTOUT PAUSE+2!
DUOUT PAUSE+2!
IB ENQ+4!, BLD+1!, BLD1*
IB( BLD+8, BLD1*
IBBDT DATE*, DATE1, DQ+5, ENQ+4!, HDR+4
IBC ENQ+4!, BLD+3*, BLD+6, BLD1*
IBCNT DQ+3*, ENQ+4!, BLD+4*, TOTALS+6
IBCNT( BLD+4*, TOTALS+5
IBDT DQ+5*, DQ+6*, ENQ+4!
IBEDT DATE1*, DQ+6, ENQ+4!, HDR+4
IBGT ENQ+4!, TOTALS+3*, TOTALS+5*, TOTALS+6
IBIFN DQ+6*, ENQ+4!, BLD+2, BLD+3, BLD+4, BLD+7, BLD1
IBLINE ENQ+4!, HDR+6*
IBPAG DQ+3*, ENQ+4!, HDR+1*, HDR+2, HDR+3
IBPDT DQ+3*, ENQ+4!, HDR+3
IBQUIT DQ+3*, DQ+6, DQ+8, DQ+10, ENQ+4!, BLD+6, TOTALS+2, PAUSE+2*
IBRT EN+6*, EN+7*, ENQ+4!, BLD+2, HDR+3
IBSUM DATE1+2*, ENQ+4!, BLD+5, TOTALS+2*, TOTALS+4, HDR+5
IBT DQ+5!, DQ+9, ENQ+4!, TOTALS+1
IBT( BLD1*, TOTALS+5
IBTC DQ+3*, ENQ+4!, BLD1*, TOTALS+2
IBY ENQ+4!, PAUSE+1*
IO DEV+2
IO("Q" DEV+1!
IOF EN+4, HDR+2
IOM HDR+3, HDR+6
IOSL BLD+6, TOTALS+2, PAUSE+1
IOST HDR+2, PAUSE
>> POP DEV
R ENQ+4!, BLD+3*, BLD+4*, BLD+8*, BLD1, TOTALS+5*
VA ENQ+4!
VA("PID" BLD+7
VAERR ENQ+4!
X DATE1*, ENQ+4!, BLD+8*, TOTALS+5*, TOTALS+6*
X2 ENQ+4!, BLD+8*, TOTALS+5*, TOTALS+6*
X3 ENQ+4!, BLD+8*, TOTALS+5*, TOTALS+6*
Y EN+7, DATE, DATE1, DATE1+2, DQ+3*, ENQ+4!, HDR+4*
>> ZTDESC DEV+1*
>> ZTQUEUED ENQ+3
>> ZTREQ ENQ+3*
>> ZTRTN DEV+1*
>> ZTSAVE("IB*" DEV+1*
ZTSK DEV+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