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

Package: Integrated Billing

Routine: IBOUNP6


Information

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

Source Information

Source file <IBOUNP6.m>

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
CAT
Q
LOOP ;
SUBTOT ; prints subtotal for division
TOTAL ; prints total for all divisions
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: @IOF
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: !!,HDR1
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !!,?6,"Division: ",?31,DIV
  • Condition for execution: IBOUT="R"
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !!,"Division:^",DIV
  • Condition for execution: IBOUT="E"
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,LINE2,!
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,?6,"Ward: ",?31,WRDN,!
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !,"Ward:^",WRDN,!
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: !,LINE1
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: !,"_________________",!,"Subtotal: ",SUBTOT
  • Line Location: SUBTOT+1
Function Call: WRITE
  • Prompt: !?3,"_________________"
  • Line Location: SUBTOT+3
Function Call: WRITE
  • Prompt: !,?3,"Subtotal: ",SUBTOT
  • Line Location: SUBTOT+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: !?5,WARD,?34,"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: !?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: INS+2
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: !,WARD,"^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: XLINS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?104,NOW," PAGE ",PAGE,!?1,HDR1,HDR2,!!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?3,"PATIENT/WARD",?32,"PT ID",?51,"ADMISSION DATE",?74,"AGE",?81,"%SC",?87,"MARITAL STATUS",?104,"EMPLOYMENT STATUS",!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: LINE1
  • 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/WARD^PT ID^ADMISSION DATE^AGE^%SC^MARITAL STATUS^EMPLOYMENT STATUS"
  • Line Location: PHDL+1
Info |  Source |  Entry Points |  Interaction Calls