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

Package: Integrated Billing

Routine: IBOUNP3


Information

IBOUNP3 ;ALB/CJM - OUTPATIENT INSURANCE REPORT ;JAN 25,1991

Source Information

Source file <IBOUNP3.m>

Call Graph

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

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 IBOUNP1  

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
CAT
Q
LOOP ;
CLNTOT ; prints subtotal for clinic
DIVTOT ; prints subtotal for division
TOTAL ; prints total for all clinics
ITEM ; prints patient data for a single appt
DATA
CKSPACE ; tries to keep vet's data on same page
PRINT
INS ; writes insurance data
XLPRINT ; Excel data output
XLINS ; writes insurance data in Excel format
HEADER ; writes the report header
PAUSE ;
PHDL ; Print header for Excel format

External References

Name Field # of Occurrence
NOW^%DTC REPORT+4
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: !!,HDR1
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !!?6,"Division: ",?31,IBODIV,!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !!,"Division:^",IBODIV,!
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !,"________________________",!,"Clinic Subtotal : ",CLNTOT
  • Line Location: CLNTOT+1
Function Call: WRITE
  • Prompt: !?3,"________________________"
  • Line Location: CLNTOT+3
Function Call: WRITE
  • Prompt: !,?3,"Clinic Subtotal : ",CLNTOT
  • Line Location: CLNTOT+4
Function Call: WRITE
  • Prompt: !,"________________________",!,"Division Subtotal: ",DIVTOT
  • Line Location: DIVTOT+1
Function Call: WRITE
  • Prompt: !?3,"________________________"
  • Line Location: DIVTOT+3
Function Call: WRITE
  • Prompt: !,?3,"Division Subtotal: ",DIVTOT
  • Line Location: DIVTOT+4
Function Call: WRITE
  • Prompt: !,"________________________",!,"Total : ",TOTAL
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !?3,"________________________"
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !?3,"Total : ",TOTAL
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !?3,$E(NAME,1,25),?31,PID,?51,TM,?74,AGE,?81,SC,?87,$E(MS,1,15),?104,$E(ES,1,20)
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !?31,"Address:",?51,VAPA(1),?87,"Tele: ",?104,VAPA(8)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?51,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?51,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?51,VAPA(4)_","_$P($G(^DIC(5,+VAPA(5),0)),"^",2)_" "_VAPA(6)
  • Condition for execution: VAPA(4)]""
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?31,"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: !?31,"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: ?31,"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: ?31,"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: !,$E(NAME,1,25),"^",PID,"^",TM,"^",AGE,"^",SC,"^",$E(MS,1,15),"^",$E(ES,1,20)
  • Line Location: XLPRINT+1
Function Call: WRITE
  • Prompt: !,"^Address:^",VAPA(1),"^^^Tele:^",VAPA(8)
  • Line Location: XLPRINT+2
Function Call: WRITE
  • Prompt: !,"^^",VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: XLPRINT+2
Function Call: WRITE
  • Prompt: !,"^^",VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: XLPRINT+2
Function Call: WRITE
  • Prompt: !,"^^",VAPA(4)_","_$P($G(^DIC(5,+VAPA(5),0)),"^",2)_" "_VAPA(6)
  • Condition for execution: VAPA(4)]""
  • Line Location: XLPRINT+2
Function Call: WRITE
  • Prompt: !,"^Employer:^",E1,"^^^Tele:^",E1(8)
  • Line Location: XLPRINT+3
Function Call: WRITE
  • Prompt: !,"^^",E1(1)
  • Condition for execution: E1(1)]""
  • Line Location: XLPRINT+3
Function Call: WRITE
  • Prompt: !,"^^",E1(2)
  • Condition for execution: E1(2)]""
  • Line Location: XLPRINT+3
Function Call: WRITE
  • Prompt: !,"^^",E1(3)
  • Condition for execution: E1(3)]""
  • Line Location: XLPRINT+3
Function Call: WRITE
  • Prompt: !,"^^",E1(4)_","_$P($G(^DIC(5,+E1(5),0)),"^",2)_" "_E1(6)
  • Condition for execution: E1(4)]""
  • Line Location: XLPRINT+3
Function Call: WRITE
  • Prompt: !,"^Sps's Emplr:^",E2,"^^^Tele:^",E2(8)
  • Line Location: XLPRINT+4
Function Call: WRITE
  • Prompt: !,"^^",E2(1)
  • Condition for execution: E2(1)]""
  • Line Location: XLPRINT+4
Function Call: WRITE
  • Prompt: !,"^^",E2(2)
  • Condition for execution: E2(2)]""
  • Line Location: XLPRINT+4
Function Call: WRITE
  • Prompt: !,"^^",E2(3)
  • Condition for execution: E2(3)]""
  • Line Location: XLPRINT+4
Function Call: WRITE
  • Prompt: !,"^^",E2(4)_","_$P($G(^DIC(5,+E2(5),0)),"^",2)_" "_E2(6)
  • Condition for execution: E2(4)]""
  • Line Location: XLPRINT+4
Function Call: WRITE
  • Prompt: $P($G(^DIC(36,$P(INS,"^",1),0)),"^",1),"^^^"
  • Line Location: XLINS+1
Function Call: WRITE
  • Prompt: "Expiration:"
  • Condition for execution: J
  • Line Location: XLINS+1
Function Call: WRITE
  • Prompt: "^",Y
  • Line Location: XLINS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,HDR1,?104,NOW," PAGE ",PAGE,!,HDR2,!!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?3,"PATIENT NAME",?32,"PT ID",?51,"APPT DATE/TIME",?74,"AGE",?81,"%SC",?87,"MARITAL STATUS",?104,"EMPLOYMENT STATUS",!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: LINE
  • Line Location: HEADER+8
Function Call: READ
  • Prompt: " Press RETURN to continue"
  • Variable: T
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: "PATIENT NAME^PT ID^APPT DATE/TIME^AGE^%SC^MARITAL STATUS^EMPLOYMENT STATUS"
  • Line Location: PHDL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" REPORT+4, REPORT+10, REPORT+11, DATAINS+1, XLINS+1
^DIC(36 - [#36] INS+1, XLINS+1
^DIC(5 - [#5] PRINT+1, PRINT+2, PRINT+3, XLPRINT+2, XLPRINT+3, XLPRINT+4
^DPT - [#2] CKSPACE+11, INS+1, XLINS+1
^TMP("IBOUNP" LOOP+3, LOOP+7, LOOP+8, LOOP+9

Label References

Name Line Occurrences
CAT REPORT+9
CLNTOT LOOP+8
DIVTOT LOOP+3
HEADER LOOP+4, LOOP+7, CLNTOT+2, DIVTOT+2, TOTAL+2, CKSPACE+12, INS+1
ITEM LOOP+9
LOOP CATCAT+1, CAT+2
PAUSE CAT+4, HEADER+3
PHDL REPORT+9
Q CATCAT+1
TOTAL LOOP+10
XLPRINT CKSPACE+11

Naked Globals

Name Field # of Occurrence
^( INS+1, XLINS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE ITEM+1~*, DATA+1*, PRINTXLPRINT+1
B REPORT+1~, REPORT+10*, REPORT+12, REPORT+13
BOT REPORT+1~, REPORT+2*, LOOP+7, CLNTOT+2, DIVTOT+2, TOTAL+2, CKSPACE+12, INS+1
CLNC REPORT+1~, LOOP+3*, LOOP+7*, LOOP+8, LOOP+9
CLNTOT REPORT+1~, LOOP+1*, LOOP+7*, LOOP+8, CLNTOT+1, CLNTOT+4, ITEM+1*
CNT ITEM+1~*, CKSPACE+2*, CKSPACE+4*, CKSPACE+6*, CKSPACE+8*, CKSPACE+10*, CKSPACE+11*, CKSPACE+12
CRT REPORT+1~, REPORT+2*, REPORT+6, CAT+4, HEADER+1
CTG REPORT+1~, CAT*, CAT+1*, CAT+2*, LOOP+3, LOOP+7, LOOP+8, LOOP+9
DFN REPORT+1~, LOOP+9*, CKSPACE+11, INS+1, XLINS+1
DIVTOT REPORT+1~, LOOP+1*, LOOP+3*, LOOP+7*, DIVTOT+1, DIVTOT+4
DTIME PAUSE+1
E REPORT+1~, REPORT+11*, REPORT+12, REPORT+13
E1 ITEM+1~*, CKSPACE+3*, PRINT+2, XLPRINT+3
E1( CKSPACE+5*
E1(1 PRINT+2, XLPRINT+3
E1(2 PRINT+2, XLPRINT+3
E1(3 PRINT+2, XLPRINT+3
E1(4 PRINT+2, XLPRINT+3
E1(5 PRINT+2, XLPRINT+3
E1(6 PRINT+2, XLPRINT+3
E1(8 PRINT+2, XLPRINT+3
E2 ITEM+1~*, CKSPACE+7*, PRINT+3, XLPRINT+4
E2( CKSPACE+9*
E2(1 PRINT+3, XLPRINT+4
E2(2 PRINT+3, XLPRINT+4
E2(3 PRINT+3, XLPRINT+4
E2(4 PRINT+3, XLPRINT+4
E2(5 PRINT+3, XLPRINT+4
E2(6 PRINT+3, XLPRINT+4
E2(8 PRINT+3, XLPRINT+4
ES ITEM+1~*, DATA+2*, PRINTXLPRINT+1
FIRST REPORT+1~, REPORT+3*, HEADER+1, HEADER+4, HEADER+5*
HDR REPORT+1~, REPORT+8*, CATCAT+1, CAT+2
HDR1 REPORT+1~, REPORT+9*, CAT*, CAT+1*, CAT+2*, LOOP+2, HEADER+6
HDR2 REPORT+1~, REPORT+9*, REPORT+12*, REPORT+13*, HEADER+6
I ITEM+1~, CKSPACE+2*, CKSPACE+5*, CKSPACE+6*, CKSPACE+9*, CKSPACE+10*, INS+1~*, XLINS+1~*
>> IBOBEG REPORT+10
IBODIV REPORT+1~, LOOP+1*, LOOP+3*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9
>> IBOEND REPORT+11
>> IBOEXP CAT+1
>> IBOUI CAT
>> IBOUK CAT+2
>> IBOUT REPORT+5*, REPORT+9, CAT+3, LOOP+2, LOOP+4, LOOP+5, LOOP+6, LOOP+7, CLNTOT+1, DIVTOT+1
TOTAL+1, CKSPACE+11
INS ITEM+1~, INS+1*, XLINS+1*
IOF REPORT+6, HEADER+4
IOSL LOOP+7, CLNTOT+2, DIVTOT+2, TOTAL+2, CKSPACE+12, INS+1, PAUSE+1
IOST REPORT+2
J INS+1~*, XLINS+1~*
LINE REPORT+1~, REPORT+8*, HEADER+8
MS ITEM+1~*, DATA+1*, PRINTXLPRINT+1
NAME REPORT+1~, LOOP+7*, LOOP+8*, LOOP+9, PRINTXLPRINT+1
NOW REPORT+1~, REPORT+4*, HEADER+6
PAGE REPORT+1~, LOOP+1*, HEADER+6, HEADER+9*
PATINF REPORT+1~
PID ITEM+1~*, DATA+1*, PRINTXLPRINT+1
QUIT REPORT+1~, REPORT+2*, CATCAT+1, CAT+4, LOOP+3, LOOP+4, LOOP+7, LOOP+8, LOOP+9
LOOP+10, TOTAL+2, CKSPACE+12, INS+1, HEADER+1, PAUSE+1*
SC ITEM+1~*, DATA+3*, PRINTXLPRINT+1
T PAUSE+1~*
TIME REPORT+1~, LOOP+9*, DATA
TM ITEM+1~, DATA*, PRINTXLPRINT+1
TOTAL REPORT+1~, LOOP+1*, LOOP+3*, TOTAL+1, TOTAL+4
U REPORT+5
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, XLPRINT+2
VAPA(2 PRINT+1, XLPRINT+2
VAPA(3 PRINT+1, XLPRINT+2
VAPA(4 PRINT+1, XLPRINT+2
VAPA(5 PRINT+1, XLPRINT+2
VAPA(6 PRINT+1, XLPRINT+2
VAPA(8 PRINT+1, XLPRINT+2
>> VAPD(7 DATA+2
>> X REPORT+4
>> Y REPORT+4*, REPORT+10*, REPORT+11*, DATA*, INS+1*, XLINS+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All