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

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 IBOUNP4  

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

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" REPORT+4, REPORT+12, 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($J LOOP+4, LOOP+5, LOOP+10, LOOP+11

Label References

Name Line Occurrences
CAT REPORT+9
HEADER LOOP+2, LOOP+4, LOOP+7, SUBTOT+2, TOTAL+2, CKSPACE+12, INS+1
ITEM LOOP+11
LOOP CATCAT+1, CAT+2
PAUSE CAT+4, HEADER+3
PHDL REPORT+9
Q CATCAT+1
SUBTOT LOOP+5
TOTAL LOOP+13
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+12*
BOT REPORT+1~, REPORT+2*, LOOP+4, LOOP+7, SUBTOT+2, TOTAL+2, 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+6, REPORT+14, CAT+4, HEADER+1
CTG REPORT+1~, CAT*, CAT+1*, CAT+2*, LOOP+4, LOOP+5, LOOP+10, LOOP+11
DFN REPORT+1~, LOOP+11*, CKSPACE+11, INS+1, XLINS+1
DIV REPORT+1~, LOOP+4*, LOOP+5, LOOP+10, LOOP+11
DTIME PAUSE+1
E REPORT+1~, REPORT+12*
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+3, 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+12
>> IBOEND REPORT+12
>> IBOEXP CAT+1
>> IBOPICK REPORT+12, REPORT+13
>> IBOUI CAT
>> IBOUK CAT+2
>> IBOUT REPORT+5*, REPORT+9, CAT+3, LOOP+2, LOOP+3, LOOP+4, LOOP+7, LOOP+8, LOOP+9, SUBTOT+1
TOTAL+1, CKSPACE+11
INS ITEM+1~, INS+1*, XLINS+1*
IOF REPORT+6, REPORT+14, HEADER+4
IOSL LOOP+4, LOOP+7, SUBTOT+2, TOTAL+2, CKSPACE+12, INS+1, PAUSE+1
IOST REPORT+2
J INS+1~*, XLINS+1~*
LINE1 REPORT+1~, REPORT+9*, REPORT+10*, LOOP+12, HEADER+8
LINE2 REPORT+1~, REPORT+9*, REPORT+11*, LOOP+4
MS ITEM+1~*, DATA+1*, PRINTXLPRINT+1
NAME REPORT+1~, LOOP+10*, LOOP+11, PRINTXLPRINT+1
NODE LOOP+1~, LOOP+11*
NOW REPORT+1~, REPORT+4*, HEADER+6
PAGE REPORT+1~, LOOP+2*, HEADER+6, HEADER+9*
PATINF REPORT+1~
PID ITEM+1~*, DATA+1*, PRINTXLPRINT+1
QUIT REPORT+1~, REPORT+2*, CATCAT+1, CAT+4, LOOP+2, LOOP+4, LOOP+5, LOOP+6, LOOP+7
LOOP+11, LOOP+13, TOTAL+2, CKSPACE+12, INS+1, HEADER+1, PAUSE+1*
SC ITEM+1~*, DATA+3*, PRINTXLPRINT+1
SUBTOT REPORT+1~, LOOP+2*, LOOP+4*, LOOP+5, SUBTOT+1, SUBTOT+4, ITEM+1*
T PAUSE+1~*
TIME REPORT+1~, LOOP+11*, DATA
TM ITEM+1~, DATA*, PRINTXLPRINT+1
TOTAL REPORT+1~, LOOP+2*, LOOP+4*, 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
WARD REPORT+1~, LOOP+11*, PRINT+1, XLPRINT+2
WRDN REPORT+1~, LOOP+5*, LOOP+6, LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+12
>> X REPORT+4
>> Y REPORT+4*, REPORT+12*, 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