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

Package: Integrated Billing

Routine: IBATOP


Information

IBATOP ;ALB/CPM-TRANSFER PRICING PATIENT LISTING ;21-MAR-99

Source Information

Source file <IBATOP.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Integrated Billing 4 ($$FAC,$$INST,$$PPF,$$VISN)^IBATUTL  $$INSURED^IBCNS1  $$PT^IBEFUNC  ($$DAT1,$$DAT2)^IBOUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
Registration 2 $$LST^DGMTU  ELIG^VADPT  
Scheduling 2 $$SDAPI^SDAMA301  (ACTIVE,CLOSE,DATE,INDEX,OPEN,PAT,SCAN,SCANCB)^SDQ  
VA FileMan 2 NOW^%DTC  ^DIR  
Master Patient Index VistA 1 $$GETICN^MPIF001  

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
Integrated Billing 1 IBAT PATIENT LIST  

Entry Points

Name Comments DBIA/ICR reference
EN ; Option entry point.
DQ ; Tasked entry point.
PRINT ;
; now call scheduling to look up future appts
ENQ
ENQ1
SET(IBNET,IBSTA,DFN) ; Create the temporary sort file.
; Input: IBNET -- The network/VISN number
; IBSTA -- The Station number
; DFN -- Pointer to the patient in file #2
TXMT(DFN) ; Find the patient's last treatment date and next sched date
; Input: DFN -- Pointer to the patient in file #2
; Output: 1^2, where
; 1 => last treatment date, or null
; 2 => next scheduled treatment date, or null
; (not including scheduling)
TXMTN ; - find next scheduled treatment date
APPT(SDOE0) ; Determine if appt associated with encounter is valid
PAUSE ; Page break
HDR(IBNET) ; Write the detail report header.
DISFAC(X) ; Display the station number and name.
; Input: X -- The Station Number
; Variable input: IBFACN array
DASH(X) ; Return a dashed line.

External References

Name Field # of Occurrence
NOW^%DTC PRINT+11
^%ZIS EN+15
HOME^%ZIS EN+21
^%ZISC ENQ+3
^%ZTLOAD EN+19
$$LST^DGMTU SET+8
^DIR PAUSE+4
$$FAC^IBATUTL EN+7
$$INST^IBATUTL DQ+14, DQ+28
$$PPF^IBATUTL DQ+10
$$VISN^IBATUTL DQ+14, DQ+27
$$INSURED^IBCNS1 SET+8
$$PT^IBEFUNC SET+7
$$DAT1^IBOUTL PRINT+28, PRINT+31
$$DAT2^IBOUTL PRINT+11
$$GETICN^MPIF001 SET+14
$$SDAPI^SDAMA301 PRINT+7
ACTIVE^SDQ TXMT+29
CLOSE^SDQ TXMT+31
DATE^SDQ TXMT+28
INDEX^SDQ TXMT+24
OPEN^SDQ TXMT+23
PAT^SDQ TXMT+27
SCAN^SDQ TXMT+30
SCANCB^SDQ TXMT+25
ELIG^VADPT SET+11
$$NOW^XLFDT PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report creates a listing of all Transfer Pricing patients for"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"specific networks or facilities. Please enter all applicable networks"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"and facilities, specifying networks by VISN (i.e., 'VISN 1').",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"This report requires only an 80 column printer.",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!!,"There are no Transfer Pricing patients for the selected networks/facilities."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Transfer Pricing Patient Listing",?38,"Run Date: ",IBRUN,?72,"Page: ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Network: VISN ",IBNET
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?50,"MT",?55,"Act",?63,"Last",?71,"Nxt Sched"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Patient Name/ID",?28,"Primary Eligibility",?49,"Stat"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?55,"Ins",?63,"Seen",?71,"Visit/Adm"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$$DASH(IOM)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!?4,"Home Facility: ",$P(IBFACN(X),"^",2)," ",$P(IBFACN(X),"^"),!
  • Line Location: DISFAC+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+15
Routine Call
  • %ZIS
  • Line Location:
    • EN+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("ATID3" TXMT+14
^DGS(41.1 - [#41.1] TXMTN+2, TXMTN+3
^DPT - [#2] TXMT+11, TXMT+18
^IBAT(351.6 - [#351.6] DQ+7, DQ+33
^TMP("DIERR" TXMT+21!, TXMT+32!
^TMP("IBATOP" DQ+2!, PRINT+13, PRINT+15, PRINT+17, PRINT+22, ENQ!, SET+17*
^TMP("IBDFN" DQ+2!, SET+14*
^TMP($J DQ+2!, PRINT+29

Label References

Name Line Occurrences
$$DASH HDR+8
$$TXMT SET+10
DISFAC PRINT+20, PRINT+24
ENQ EN+15, EN+16, PRINT+13
ENQ1 ENQ+1
HDR PRINT+13, PRINT+16, PRINT+19, PRINT+24
PAUSE PRINT+16, PRINT+19, PRINT+24, PRINT+33
PRINT DQ+6
SET DQ+20, DQ+34
TXMTN TXMT+11

Naked Globals

Name Field # of Occurrence
^( DQ+7, PRINT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+11
>> %ZIS EN+15*
DFN DQ+7*, DQ+10, DQ+20, DQ+33*, DQ+34, ENQ1+1!, SET~, SET+7, SET+8, SET+10
, SET+14, SET+17, TXMT~, TXMT+11, TXMT+14, TXMT+18, TXMT+27, TXMTN+2
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DT TXMT+11, TXMT+15, TXMTN+5
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
IBALL EN+10*, DQ+6, ENQ1+1!
IBARR DQ+2!, ENQ1+1!
IBARR( DQ+12, DQ+16*, DQ+20
IBARRAY DQ+3~, PRINT+7
IBARRAY("FLDS" PRINT+6*
IBARRAY("SORT" PRINT+5*
IBARRAY(1 PRINT+2*
IBARRAY(3 PRINT+3*
IBARRAY(4 PRINT+4*
IBCOUNT DQ+3~, PRINT+7*
IBD DQ+7*, ENQ1!
IBDFN SET+5~, SET+7*, SET+17
IBDT TXMT+7~
IBFAC EN+10, EN+18, ENQ1+1!
IBFAC( DQ+23, DQ+24
IBFACN DQ+2!, ENQ1+1!
IBFACN( DQ+17*, DQ+30*, DISFAC+4
IBINS SET+5~, SET+8*, SET+17
IBLT TXMT+7~, TXMT+8*, TXMT+11*, TXMT+14*, TXMT+15*, TXMT+18*, TXMT+28, TXMTN+10
IBMT SET+5~, SET+8*, SET+9*, SET+17
IBNAM PRINT+22*, PRINT+26, PRINT+29, ENQ1!
IBNDT DQ+3~, PRINT+29*, PRINT+30
IBNET DQ+27*, DQ+34, PRINT+15*, PRINT+16, PRINT+17, PRINT+19, PRINT+22, PRINT+24, ENQ1!, SET~
, SET+17, HDR~, HDR+4
IBNEXT TXMT+7~, TXMT+8*, TXMTN+1*, TXMTN+8*, TXMTN+10
IBPAG PRINT+11*, PRINT+16, ENQ1!, HDR+1, HDR+2*, HDR+3
IBQ PRINT+11*, PRINT+15, PRINT+17, PRINT+19, PRINT+22, PRINT+24, PRINT+33, ENQ1!, TXMT+7~, TXMT+22
, TXMT+23, TXMT+24, TXMT+25, TXMT+27, TXMT+28, TXMT+29, TXMT+30, TXMT+31, PAUSE+4*
IBRUN PRINT+11*, ENQ1!, HDR+3
IBSTA SET~, SET+17
IBSTN DQ+10*, DQ+12, DQ+14, DQ+16, DQ+17, DQ+20, DQ+24*, DQ+27, DQ+28, DQ+30
, DQ+33, DQ+34, PRINT+17*, PRINT+20, PRINT+22, PRINT+24, ENQ1!
IBTXMT SET+5~, SET+10*, SET+17
IBX DQ+23*, DQ+24, ENQ1+1!, PAUSE+2~, PAUSE+3*
IBXX PRINT+22*, PRINT+26, PRINT+27, PRINT+28, PRINT+30*, PRINT+31, ENQ1!
IBY DQ+28*, DQ+29*, DQ+30, ENQ1!
IO EN+23
IO("Q" EN+16, EN+21!
IOF HDR+1
IOM HDR+8
IOSL PRINT+19, PRINT+24, PAUSE+3
IOST PAUSE+1, HDR+1
POP EN+15, ENQ1+1!
SDCNT ENQ1+1!
SDOE0 APPT~, APPT+1
U APPT+1
VAEL SET+5~
VAEL(1 SET+17
VAERR SET+5~
X DQ+13~, DQ+14*, DQ+16, ENQ1+1!, TXMT+7~, TXMT+18*, TXMTN+2*, TXMTN+3, PAUSE+2~, DISFAC~
, DISFAC+4, DASH~, DASH+1
X1 TXMT+7~, TXMTN+3*, TXMTN+4, TXMTN+6, TXMTN+7
X2 TXMT+7~, TXMTN+4*, TXMTN+5, TXMTN+8
Y DQ+13~, DQ+14*, DQ+15*, DQ+16, DQ+17, ENQ1+1!, PAUSE+2~
>> ZTDESC EN+17*
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
>> ZTRTN EN+17*
>> ZTSAVE("IBALL" EN+18*
>> ZTSAVE("IBFAC(" EN+18*
ZTSK EN+20, EN+21!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All