Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls