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

Package: Integrated Billing

Routine: IBOUNP6


Information

IBOUNP6 ;ALB/CJM - INPATIENT INSURANCE REPORT ;JAN 25,1991

Source Information

Source file <IBOUNP6.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 (ADD,DEM,ELIG,KVAR,OAD,OPD)^VADPT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBOUNP4  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ;
SUBTOT ; prints subtotal for division
HEADER ; writes the report header
PRINT
INS ; writes insurance data
Q
ITEM ; prints patient data for a single appt
CKSPACE ; tries to keep vet's data on same page
REPORT ;
TOTAL ; prints total for all divisions
DATA
LOOP ;

External References

Name Field # of Occurrence
NOW^%DTC REPORT+8
ADD^VADPT CKSPACE+1
DEM^VADPT DATA+1
ELIG^VADPT DATA+3
KVAR^VADPT Q
OAD^VADPT CKSPACE+3, CKSPACE+7
OPD^VADPT DATA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORT+11
Function Call: WRITE
  • Prompt: !!,?6,"Division: ",?31,DIV,!,LINE2,!
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,LINE1
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !?34,"Employer:",?51,E1,?87,"Tele: ",?104,E1(8)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?51,E1(1)
  • Condition for execution: E1(1)]""
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?51,E1(2)
  • Condition for execution: E1(2)]""
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?51,E1(3)
  • Condition for execution: E1(3)]""
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?51,E1(4)_","_$P($G(^DIC(5,+E1(5),0)),"^",2)_" "_E1(6)
  • Condition for execution: E1(4)]""
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?34,"Sps's Emplr:",?51,E2,?87,"Tele: ",?104,E2(8)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?51,E2(1)
  • Condition for execution: E2(1)]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?51,E2(2)
  • Condition for execution: E2(2)]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?51,E2(3)
  • Condition for execution: E2(3)]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?51,E2(4)_","_$P($G(^DIC(5,+E2(5),0)),"^",2)_" "_E2(6)
  • Condition for execution: E2(4)]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+1
Function Call: WRITE
  • Prompt: ?34,"Insurance:"
  • Condition for execution: J
  • Line Location: INS+1
Function Call: WRITE
  • Prompt: ?51,$P($G(^DIC(36,$P(INS,"^",1),0)),"^",1),?87
  • Line Location: INS+1
Function Call: WRITE
  • Prompt: ?34,"Insurance:"
  • Condition for execution: J
  • Line Location: INS+1
Function Call: WRITE
  • Prompt: ?51,$P($G(^DIC(36,$P(INS,"^",1),0)),"^",1),?87
  • Line Location: INS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: READ
  • Prompt: " Press RETURN to continue"
  • Timeout: DTIME
  • Variable: T
  • Line Location: PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" REPORT+8, REPORT+9, DATA, INS+1
^DIC(36 - [#36] INS+1
^DIC(5 - [#5] PRINT+1, PRINT+2, PRINT+3
^DPT - [#2] CKSPACE+11, INS+1
^TMP($J LOOP+3, LOOP+4, LOOP+8, LOOP+9

Label References

Name Line Occurrences
HEADER LOOP+2, LOOP+3, LOOP+6, SUBTOT+1, TOTAL+1, CKSPACE+12, INS+1
ITEM LOOP+9
LOOP REPORT+12, REPORT+13, REPORT+14
PAUSE REPORT+15, HEADER+3
Q REPORT+12, REPORT+13
SUBTOT LOOP+4
TOTAL LOOP+11

Naked Globals

Name Field # of Occurrence
^( INS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE ITEM+1~*, DATA+1*, PRINT
B REPORT+1~, REPORT+9*
BOT REPORT+1~, REPORT+2*, LOOP+3, LOOP+6, SUBTOT+1, TOTAL+1, CKSPACE+12, INS+1
CNT ITEM+1~*, CKSPACE+2*, CKSPACE+4*, CKSPACE+6*, CKSPACE+8*, CKSPACE+10*, CKSPACE+11*, CKSPACE+12
CRT REPORT+1~, REPORT+2*, REPORT+4, REPORT+11, REPORT+15, HEADER+1
CTG REPORT+1~, REPORT+12*, REPORT+13*, REPORT+14*, LOOP+3, LOOP+4, LOOP+8, LOOP+9
DFN REPORT+1~, LOOP+9*, CKSPACE+11, INS+1
DIV REPORT+1~, LOOP+3*, LOOP+4, LOOP+8, LOOP+9
DTIME PAUSE+1
E REPORT+1~, REPORT+9*
E1 ITEM+1~*, CKSPACE+3*, PRINT+2
E1( CKSPACE+5*
E1(1 PRINT+2
E1(2 PRINT+2
E1(3 PRINT+2
E1(4 PRINT+2
E1(5 PRINT+2
E1(6 PRINT+2
E1(8 PRINT+2
E2 ITEM+1~*, CKSPACE+7*, PRINT+3
E2( CKSPACE+9*
E2(1 PRINT+3
E2(2 PRINT+3
E2(3 PRINT+3
E2(4 PRINT+3
E2(5 PRINT+3
E2(6 PRINT+3
E2(8 PRINT+3
ES ITEM+1~*, DATA+2*, PRINT
FIRST REPORT+1~, REPORT+3*, HEADER+1, HEADER+4, HEADER+5*
HDR REPORT+1~, REPORT+5*, REPORT+12, REPORT+13, REPORT+14
HDR1 REPORT+1~, REPORT+12*, REPORT+13*, REPORT+14*, HEADER+6
HDR2 REPORT+1~, REPORT+9*, REPORT+10*, HEADER+6
I ITEM+1~, CKSPACE+2*, CKSPACE+5*, CKSPACE+6*, CKSPACE+9*, CKSPACE+10*, INS+1~*
>> IBOBEG REPORT+9
>> IBOEND REPORT+9
>> IBOEXP REPORT+13
>> IBOPICK REPORT+9, REPORT+10
>> IBOUI REPORT+12
>> IBOUK REPORT+14
INS ITEM+1~, INS+1*
IOF REPORT+4, REPORT+11, HEADER+4
IOSL LOOP+3, LOOP+6, SUBTOT+1, TOTAL+1, TOTAL+4, CKSPACE+12, INS+1, HEADER+2
IOST REPORT+2
J INS+1~*
LINE1 REPORT+1~, REPORT+6*, LOOP+10, HEADER+8
LINE2 REPORT+1~, REPORT+7*, LOOP+3
MS ITEM+1~*, DATA+1*, PRINT
NAME REPORT+1~, LOOP+8*, LOOP+9, PRINT
NODE LOOP+1~, LOOP+9*
NOW REPORT+1~, REPORT+8*, HEADER+6
PAGE REPORT+1~, LOOP+2*, HEADER+6, HEADER+9*
PID ITEM+1~*, DATA+1*, PRINT
QUIT REPORT+1~, REPORT+2*, REPORT+12, REPORT+13, REPORT+15, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6
, LOOP+9, LOOP+11, TOTAL+1, CKSPACE+12, INS+1, HEADER+1, PAUSE+1*
SC ITEM+1~*, DATA+3*, PRINT
SUBTOT REPORT+1~, LOOP+2*, LOOP+3*, LOOP+4, SUBTOT+3, ITEM+1*
T PAUSE+1~*
TIME REPORT+1~, LOOP+9*, DATA
TM ITEM+1~, DATA*, PRINT
TOTAL REPORT+1~, LOOP+2*, LOOP+3*, TOTAL+3
VA Q!
VA("PID" DATA+1
>> VADM(10 DATA+1
>> VADM(4 DATA+1
>> VAEL(3 DATA+3
>> VAERR DATA+1, DATA+2, DATA+3, CKSPACE+1, CKSPACE+3, CKSPACE+7
>> VAOA( CKSPACE+5, CKSPACE+6, CKSPACE+9, CKSPACE+10
>> VAOA("A" CKSPACE+3*, CKSPACE+7*
>> VAOA(9 CKSPACE+3, CKSPACE+7
VAPA ITEM+1~
VAPA( CKSPACE+2
VAPA("P" CKSPACE+1*
VAPA(1 PRINT+1
VAPA(2 PRINT+1
VAPA(3 PRINT+1
VAPA(4 PRINT+1
VAPA(5 PRINT+1
VAPA(6 PRINT+1
VAPA(8 PRINT+1
>> VAPD(7 DATA+2
WARD REPORT+1~, LOOP+9*, PRINT+1
WRDN REPORT+1~, LOOP+4*, LOOP+5, LOOP+7, LOOP+8, LOOP+9, LOOP+10
>> X REPORT+8
>> Y REPORT+8*, REPORT+9*, DATA*, INS+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All