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

Package: Integrated Billing

Routine: IBJDI6


Information

IBJDI6 ;ALB/CPM - SC VETS W/ NSC EPISODES OF INPT CARE ; 18-DEC-96

Source Information

Source file <IBJDI6.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 5 $$INSURED^IBCNS1  DS^IBJD  E^IBJDE  $$TESTP^IBJDI1  ($$DAT1,$$DAT2,$$STOP,DATE)^IBOUTL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^DIR  
Registration 1 ELIG^VADPT  

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
Integrated Billing 1 IBJD INTAKE SC VETS  

Entry Points

Name Comments DBIA/ICR reference
DASH(X) ; - Return a dashed line.
EN ; - Option entry point.
PAT ; - Write the patient information.
SUM ; - Print the summary report.
PTFQ
DET ; - Print the detailed report.
DETQ
ENQ
PTF(IBPTF) ; - Does the PTF record have an NSC-related movement?
; Input: IBPTF = Pointer to the PTF record in file #45
; Output: IBNSC = 1 (NSC movement) or 0 (No NSC movement)
ENQ1
BILLQ
DATE
BILL(IBPTF,DFN,IBADM,IBDIS) ; - Has this episode of care been billed?
; Input: IBPTF = Pointer to the PTF record in file #45
; DFN = Pointer to the patient in file #2
; IBADM = Episode admission date
; IBDIS = Episode discharge date
; Output: BILL = 1 (Episode has been billed)
; 0 (Episode has not been billed)
SSN(X) ; - Format the SSN.
HDET ; - Write the detail report header.
PAUSE ; - Page break.
DQ ; - Tasked entry point.

External References

Name Field # of Occurrence
NOW^%DTC DQ+50
^%ZIS DATE+11
HOME^%ZIS DATE+17
^%ZISC ENQ+3
^%ZTLOAD DATE+15
^DIR PAUSE+4
$$INSURED^IBCNS1 DQ+18
DS^IBJD DATE+3
E^IBJDE DQ+2, DQ+47
$$TESTP^IBJDI1 DQ+14
$$DAT1^IBOUTL DET+10, HDET+4, SUM+5
$$DAT2^IBOUTL DQ+50
$$STOP^IBOUTL DQ+11, HDET+7
DATE^IBOUTL DATE
ELIG^VADPT DQ+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a number of the NSC inpatient episodes for SC veterans"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"which have and have not been billed.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !!,"All NSC episodes for SC veterans in the selected date range have been billed."
  • Line Location: DET+3
Function Call: WRITE
  • Prompt: $P(IBX,"@@"),?32,$$SSN(IBX1)
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+1
Function Call: WRITE
  • Prompt: !,"Insured SC Vets w/ Unbilled NSC Care",?38,"Run Date: ",IBRUN,?70,"Page: ",IBPAG
  • Line Location: HDET+3
Function Call: WRITE
  • Prompt: !,"For Patients discharged in the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !,"Patient",?32,"SSN",?46,"PTF Status",?59,"Adm Date",?69,"Disc Date"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,$$DASH(80)
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?13,"INSURED SC VETERANS W/ UNBILLED NSC INPATIENT EPISODES"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?33,"SUMMARY REPORT"
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!?16,"For Patients discharged from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?24,$$DASH(31),!!
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: ?9,"Number of Discharges of Insured SC Veterans:",?54,$J(IB("TOT"),4)
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !?5,"Discharges Which were totally Service-Connected:",?54,$J(IB("SC"),4),?62,"(",IBPER(1),"%)"
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !?10,"Number of NSC Discharges Which were Billed:",?54,$J(IB("NSCB"),4),?62,"(",IBPER(2),"%)"
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !?4,"Number of NSC Discharges Flagged as Non-Billable:",?54,$J(IB("NSCR"),4),?62,"(",IBPER(3),"%)"
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !,"Unbilled NSC Discharges w/ PTF Status of"
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • DATE+17
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • DATE+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] BILL+13, BILL+16, BILL+17
^DGPM - [#405] DQ+12, DQ+25
^DGPM("ATT3" DQ+9, DQ+10
^DGPT - [#45] DQ+26, PTF+9
^DPT - [#2] DQ+41
^IBT(356 - [#356] DQ+35, DQ+36
^TMP("IBJDI6" DQ+4!, DQ+42*, DQ+43*, ENQ!, DET+2, DET+6, DET+7

Label References

Name Line Occurrences
$$BILL DQ+32
$$DASH HDET+6, SUM+6
$$PTF DQ+27
$$SSN PAT+1
BILLQ BILL+12
DET DQ+51
DETQ DET+2
ENQ DATE, DATE+3, DATE+11, DATE+12, DQ+45, DQ+47
ENQ1 ENQ+1
HDET DET+1, DET+8
PAT DET+9
PAUSE DQ+54, DET+8, DETQ
PTFQ PTF+6
SUM DQ+52

Naked Globals

Name Field # of Occurrence
^( DET+6, DET+7, PTF+9
^("U" BILL+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+50, ENQ1+2!
%ZIS DATE+11*, ENQ1+2!
BILL BILL+8~, BILL+9*, BILL+12, BILL+13*, BILL+16, BILL+21*, BILLQ
DFN DQ+13*, DQ+14, DQ+18, DQ+32, DQ+41, DQ+42, DQ+43, ENQ1+2!, BILL~, BILL+16
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
>> I DATE+14*
IB DQ+4!, ENQ1!
IB( DQ+5*
IB("NSC" DQ+28*, DET+3, SUM+9, SUM+10, SUM+13, SUM+16
IB("NSCB" DQ+32*, SUM+9, SUM+14
IB("NSCR" DQ+36*, SUM+10, SUM+15
IB("NSCU" DQ+6*, DQ+38*, DQ+39*, SUM+16, SUM+19
IB("SC" DQ+27*, SUM+8, SUM+12
IB("TOT" DQ+22*, SUM+8, SUM+11, SUM+13
IBADM DQ+31*, DQ+32, DQ+43, ENQ1+1!, DET+7*, DET+10, BILL~, BILL+20
IBADMD DQ+25*, DQ+26, DQ+31, ENQ1+1!
IBBDT DATE, DQ+9, ENQ1!, HDET+4, SUM+5
IBCT DQ+35*, DQ+36, ENQ1+1!
IBD DQ+9*, DQ+10, ENQ1!
IBDIS DQ+15*, DQ+18, DQ+32, DQ+43, ENQ1+1!, BILL~
IBDN ENQ1!
IBEDT DATE, DQ+9, ENQ1!, HDET+4, SUM+5, BILL+20
IBH ENQ1+1!, DET+7*, DET+8*, DET+9*
IBNSC PTF+4~, PTF+5*, PTF+9*, PTFQ
IBPAG DQ+50*, ENQ1!, HDET+1, HDET+2*, HDET+3, SUM+1, SUM+2*
IBPER ENQ1+1!
IBPER(1 SUM+8*, SUM+12, SUM+13
IBPER(2 SUM+9*, SUM+14, SUM+16
IBPER(3 SUM+10*, SUM+15, SUM+16
IBPM DQ+10*, DQ+11, DQ+12, ENQ1+1!
IBPMD DQ+12*, DQ+13, DQ+15, DQ+25, DQ+35, ENQ1+1!
IBPMDT ENQ1+1!
IBPTF DQ+26*, DQ+27, DQ+32, ENQ1+1!, PTF~, PTF+6, PTF+9, BILL~, BILL+12, BILL+13
IBQ DQ+5*, DQ+9, DQ+10, DQ+11*, DQ+45, DQ+50*, DQ+52, DQ+54, ENQ1!, DET+1
, DET+6, DET+7, DET+8, DETQ, HDET+7*, PAUSE+4*
IBRPT DATE+3, DQ+40, DQ+51, ENQ1!
IBRUN DQ+50*, ENQ1!, HDET+3, SUM+6
IBSTAT DQ+26*, DQ+39, DQ+43, ENQ1+1!
IBX ENQ1!, DET+6*, DET+7, PAT+1, PAUSE+2~, PAUSE+3*
IBX1 ENQ1!, DET+6*, PAT+1
IBX2 ENQ1!, DET+7*, DET+10
>> IBXTRACT DQ+2, DQ+47
IO DATE+19
IO("Q" DATE+12, DATE+17!
IOF HDET+1, SUM+1
IOSL DET+8, PAUSE+3
IOST HDET+1, SUM+1, PAUSE+1
POP DATE+11, ENQ1+2!
U DQ+13, DQ+25, DQ+26, DQ+35, DQ+36, DQ+42, DQ+43, DET+10, PTF+9, BILL+13
, BILL+18, BILL+19, BILL+20
VA ENQ1+2!
VAEL ENQ1+2!
VAEL(3 DQ+19
VAERR ENQ1+2!
X DQ+5*, DQ+6*, DQ+41*, DQ+42, DQ+43, ENQ1+2!, SUM+17*, SUM+18, SUM+19, DASH~
, DASH+1, PAUSE+2~, SSN~, SSN+1, PTF+4~, PTF+5*, PTF+9*, BILL+8~, BILL+13*, BILL+16*
, BILL+17
X1 BILL+8~, BILL+17*, BILL+18, BILL+19
XU BILL+8~, BILL+17*, BILL+20
Y ENQ1+2!, PAUSE+2~, PTF+4~, PTF+9*, BILL+8~, BILL+13*
ZTDESC DATE+13*, ENQ1+2!
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN DATE+13*, ENQ1+2!
ZTSAVE ENQ1+2!
ZTSAVE( DATE+14*
ZTSK DATE+16, DATE+17!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All