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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBOUNP5

Package: Integrated Billing

Routine: IBOUNP5


Information

IBOUNP5 ;ALB/CJM - INPATIENT INSURANCE REPORT ;JAN 25,1992

Source Information

Source file <IBOUNP5.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 ELIG^VADPT  
VA FileMan 1 (C,NOW)^%DTC  

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 IBOUNP4  

Entry Points

Name Comments DBIA/ICR reference
INDEX ; indexes appointment,also indexs vet so he won't be reported twice
VET ; checks if patient is a vet
DONE ; checks if patient already on report
EXP ; goes in expired category only if there is insurance and
; all of it expired before end of specified period + 30 days
UNI ; goes in unisured category if there is no insurance data and
; the field COVERED BY HEALTH INSURANCE was answered YES or NO
LOOP2 ; finds admissions during selected date range for selected divisions
LOOP1 ; finds current admissions for selected divisions
UNK ; goes in 'unknown' category if the field COVERED BY HEALTH INSURANCE
; was not answered, was answered unknown, and there is no insurance data
PROC ;
DIV ; checks if the division is on the list VAUTD()
LOOP ; loops through inpatients
CKINS ; checks if any insurance in insurance multiple of patient record

External References

Name Field # of Occurrence
C^%DTC LOOP1+2, LOOP2+2
NOW^%DTC LOOP1+2
ELIG^VADPT VET+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] INDEX+3
^DGPM - [#405] LOOP1+4, LOOP2+5
^DGPM("AMV1" LOOP2+4, LOOP2+5
^DIC(42 - [#42] LOOP1+3, LOOP2+5
^DPT - [#2] LOOP1+4, INDEX+6, UNK+2, EXP+3, UNI+2, CKINS+1
^DPT("CN" LOOP1+4
^TMP($J DONE+1, INDEX+7*, INDEX+8*

Label References

Name Line Occurrences
CKINS UNK+2, EXP+2, UNI+2
DIV LOOP1+3, PROC+1
DONE PROC+1
EXP PROC+1
INDEX PROC+1
LOOP1 LOOP+2
LOOP2 LOOP+3
PROC LOOP1+4, LOOP2+5
UNI PROC+1
UNK PROC+1
VET PROC+1

Naked Globals

Name Field # of Occurrence
^( LOOP1+3, LOOP1+4, EXP+3
^(0 LOOP1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM LOOP1+1~, LOOP1+4*
CTG LOOP+1~, INDEX+7, UNK+2*, EXP+3*, UNI+2*
D INDEX+1~, INDEX+2*, INDEX+3*, INDEX+4*, INDEX+7
DFN LOOP+1~, LOOP1+4*, LOOP2+5*, DONE+1, INDEX+6, INDEX+7, INDEX+8, UNK+2, EXP+3, UNI+2
, CKINS+1
DIV LOOP+1~, LOOP1+3*, LOOP2+5*, INDEX+3, DIV+2, DIV+3
DTH LOOP1+1~, LOOP1+4*
E EXP+2~, EXP+3*
END2 LOOP+1~, LOOP1+2*, LOOP2+2*, EXP+3
>> IBOBEG LOOP2+3
>> IBOBYWRD INDEX+7
>> IBOEND LOOP2+2, LOOP2+4
>> IBOEXP PROC+1
>> IBOPICK LOOP+2, LOOP+3, PROC+1
>> IBOUI PROC+1
>> IBOUK PROC+1
INS LOOP+1~, UNK+2, EXP+2, UNI+2, CKINS+1*
NAME INDEX+1~, INDEX+6*, INDEX+7
PAT LOOP+1~
QUIT LOOP+1~, LOOP1+3, LOOP2+5*, PROC+1, VET+1*, DONE+1*, DIV+1*, DIV+2*, DIV+3*
R LOOP1+1~, LOOP1+3*
RPTD LOOP+1~, PROC+1*, UNK+2*, EXP+2*, EXP+3*, UNI+2*
T LOOP2+2~, LOOP2+3*, LOOP2+4*, LOOP2+5, UNK+2~*, EXP+2~, EXP+3*, UNI+2~*
TDY LOOP1+1~, LOOP1+2*, LOOP1+4
TIME LOOP+1~, LOOP1+4*, LOOP2+5*, INDEX+7
U LOOP2+5
>> VAEL(4 VET+1
>> VAERR VET+1
>> VAUTD DIV+1
>> VAUTD( DIV+3
WRD LOOP1+1~*, LOOP1+3*
WRD0 LOOP2+1~, LOOP2+5*
WRDN LOOP1+1~, LOOP1+3*, LOOP1+4, LOOP2+1~, LOOP2+5*, INDEX+5*, INDEX+7
>> X LOOP1+2, LOOP2+2
>> X1 LOOP1+2*, LOOP2+2*
>> X2 LOOP1+2*, LOOP2+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All