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

Package: Income Verification Match

Routine: IVMRBT


Information

IVMRBT ;ALB/CPM - IVM BILLING TRANSMISSION REPORT ; 13-JUN-94

Source Information

Source file <IVMRBT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Income Verification Match 2 $$EXPAND^IVMUFNC  ($$DAT1,$$PT)^IVMUFNC4  
VA FileMan 2 NOW^%DTC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Income Verification Match 1 IVM OUTPUT BILL TRANS  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point to generate the IVM Billing Transmission Report.
HDR ; Display report header.
ENQ1
CLSF(X) ; Return the bill classification.
; Input: X -- Internal value of classification in #301.61
; Output: I=Inpatient, O=Outpatient, R=Refill, P=Prosthetics
ENQ
DASH() ; Write dashed line.
PAUSE ; Pause for screen output.
DQ ; Tasked entry point.

External References

Name Field # of Occurrence
NOW^%DTC DQ+5
^%ZIS EN+10
^%ZISC ENQ+2
^%ZTLOAD EN+13
^DIR PAUSE+4
$$EXPAND^IVMUFNC DQ+19, DQ+25
$$DAT1^IVMUFNC4 DQ+5, DQ+20, DQ+21, DQ+24
$$PT^IVMUFNC4 DQ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will list all billing activity which has been, or will be,"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"transmitted to the IVM Center. This includes Means Test charges for"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"patients who have changed categories due to IVM-verified Means Tests,"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"as well as claims to insurance companies for patients who have"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"insurance policies identified by the IVM Center."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Please note that this output requires 132 columns. This report may not"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"run very quickly so you might choose to queue the report to a printer.",!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!?25,"There have been no recorded transmissions of billing data to the IVM Center."
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !!,$E($P(IVMNA,"^"),1,25),?27,$E($P(IVMNA,"^",2),1,14)
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Run Date: ",IVMHDRDT,?50,"IVM BILLING TRANSMISSION REPORT",?121,"Page: ",IVMPAG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,$$DASH,!,?53,"Bill",?92,"Date",?103,"Amt",?113,"Amt",?122,"Date",?128,"Last"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Patient Name",?27,"SSN",?40,"Ref #",?53,"Clsf",?59,"Bill Type",?70,"Bill From - To",?90,"Generated",?102,"Billed",?113,"Coll",?122,"Trans",?128,"Tran",!,$$DASH
  • Line Location: HDR+6
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IVM(301.61 - [#301.61] DQ+2, DQ+12, DQ+14
^TMP("IVMRBT" DQ+1!, DQ+2*, DQ+6, DQ+8, ENQ!

Label References

Name Line Occurrences
$$CLSF DQ+18
$$DASH HDR+5, HDR+6
ENQ EN+10, EN+11
ENQ1 DQ+6
HDR DQ+5, DQ+9, DQ+13
PAUSE DQ+9, DQ+13, DQ+28

Naked Globals

Name Field # of Occurrence
^( DQ+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+5
>> %ZIS EN+10*
>> DFN DQ+2*, DQ+8*, DQ+12
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT ENQ+3!, PAUSE+2~
DIRUT ENQ+3!, PAUSE+2~, PAUSE+4
DTOUT ENQ+3!, PAUSE+2~
DUOUT ENQ+3!, PAUSE+2~, PAUSE+4
I ENQ+3!
IO EN+16
IO("Q" EN+11, EN+14!
IOF HDR+2
IOSL DQ+9, DQ+13, PAUSE+3
IOST PAUSE+1, HDR+2
>> IVMF DQ+12*, DQ+13*, DQ+15, DQ+26*
>> IVMHDRDT DQ+5*, HDR+4
IVMI PAUSE+2~, PAUSE+3*
>> IVMN DQ+14*, DQ+16, DQ+17, DQ+18, DQ+19, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24
, DQ+25
>> IVMNA DQ+8*, DQ+10, DQ+13
IVMPAG DQ+5*, ENQ+3!, HDR+2, HDR+3*, HDR+4
IVMQ DQ+5*, DQ+8, DQ+9, DQ+12, DQ+13, DQ+28, ENQ+3!, PAUSE+4*
>> IVMTDA DQ+12*, DQ+14
>> POP EN+10
X HDR+1~, CLSF~, CLSF+3
Y HDR+1~
ZTDESC EN+12*, ENQ+3!
>> ZTQUEUED ENQ+1
ZTREQ ENQ+1*, ENQ+3!
ZTRTN EN+12*, ENQ+3!
ZTSAVE ENQ+3!
ZTSK EN+13, EN+14!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All