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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBOTR1

Package: Integrated Billing

Routine: IBOTR1


Information

IBOTR1 ;ALB/CPM - INSURANCE PAYMENT TREND REPORT - USER INTERFACE ;5-JUN-91

Source Information

Source file <IBOTR1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 3 INSOCAS^IBCNINSC  HELP^IBOTR11  ^IBOTR2  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  $$UP^XLFSTR  
VA FileMan 2 ^%DT  ^DIR  

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 IBOTR  

Entry Points

Name Comments DBIA/ICR reference
OUTPT
REPTY
ARST
CANC
QDATE
BEGDT
PRINT
INS
INSO ;S DIC="^DIC(36,",DIC(0)="AEQMZ",DIC("S")="I '$G(^(5))"
INSO1 ;
INSO2 ;
INSO3
EXRC
DEV
END
OUT() ; Prompt to allow users to select output format

External References

Name Field # of Occurrence
^%DT BEGDT+1, BEGDT+3
^%ZIS DEV+3
HOME^%ZIS DEV+8
^%ZTLOAD DEV+7
^DIR CANC+4, QDATE+5, INSO1+6, INSO2+5, EXRC+3, OUT+6
INSOCAS^IBCNINSC INSO+8
HELP^IBOTR11 OUTPT+2, REPTY+2, ARST+2, PRINT+2, INS+3, INSO3+4
^IBOTR2 DEV+12
$$UP^XLFSTR INSO1+10, INSO2+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select (I)NPATIENT, (O)UTPATIENT, or (B)OTH bill records: BOTH// "
  • Line Location: OUTPT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OUTPT+1
Function Call: WRITE
  • Prompt: " ",$S("Ii"[X:"INPATIENT","Oo"[X:"OUTPATIENT",1:"BOTH")
  • Line Location: OUTPT+3
Function Call: WRITE
  • Prompt: !,"Print (C)OMBINED or (S)EPARATE reports: COMBINED// "
  • Line Location: REPTY+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REPTY+1
Function Call: WRITE
  • Prompt: " ",$S("Cc"[X:"COMBINED",1:"SEPARATE")
  • Line Location: REPTY+3
Function Call: WRITE
  • Prompt: !,"Select (O)PEN, (C)LOSED, or (B)OTH types of bills: BOTH// "
  • Line Location: ARST+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ARST+1
Function Call: WRITE
  • Prompt: " ",$S("Oo"[X:"OPEN","Cc"[X:"CLOSED",1:"BOTH")
  • Line Location: ARST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QDATE+5
Function Call: WRITE
  • Prompt: *7,!!?3,"The END DATE must follow the BEGIN DATE.",!
  • Line Location: BEGDT+4
Function Call: WRITE
  • Prompt: !!,"Print (M)AIN REPORT, (S)UMMARY, or (G)RAND TOTALS: M// "
  • Line Location: PRINT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: " ",$S("Mm"[X:"MAIN REPORT","Ss"[X:"SUMMARY",1:"GRAND TOTALS")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"Run ",$S("MS"[IBPRNT:"report",1:"totals")
  • Line Location: INS+0
Function Call: WRITE
  • Prompt: " for (S)PECIFIC insurance companies or a (R)ANGE: RANGE// "
  • Line Location: INS+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: INS+2
Function Call: WRITE
  • Prompt: " ",$S("Ss"[X:"SPECIFIC",1:"RANGE")
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: !!,"Enter Start With value or Press <ENTER> to start at the beginning of the list.",!
  • Line Location: INSO1+2
Function Call: WRITE
  • Prompt: !!,"Enter Go To value or Press <ENTER> to finish at the end of the list.",!
  • Line Location: INSO2+1
Function Call: WRITE
  • Prompt: !,"Sort by AMOUNT (O)WED, AMOUNT (P)AID, or (I)NSURANCE CO.: I// "
  • Line Location: INSO3+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: INSO3+3
Function Call: WRITE
  • Prompt: " ",$S("Oo"[X:"AMOUNT OWED","Pp"[X:"AMOUNT PAID",1:"INSURANCE CO.")
  • Line Location: INSO3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXRC+3
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"To avoid undesired wrapping, please enter ""0;256;999"" at the 'DEVICE:' prompt.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Routine Call
  • DIR
  • Line Location:
    • CANC+4
    • QDATE+5
    • INSO1+6
    • INSO2+5
    • EXRC+3
    • OUT+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8

Label References

Name Line Occurrences
$$OUT EXRC+7
ARST OUTPT+4, ARST+2
BEGDT BEGDT+4
END OUTPT+1, REPTY+1, ARST+1, CANC+4, QDATE+5, BEGDT+1, BEGDT+3, PRINT+1, INS+2, INSO+9
, INSO1+7, INSO2+6, INSO3+3, EXRC+3, EXRC+8, DEV+3, DEV+4
EXRC INSO3, INSO3+1
INS INS+3
INSO1 INS+4, INSO2+16
INSO3 INSO+12, INSO2+10, INSO2+11, INSO3+4
OUTPT OUTPT+2
PRINT PRINT+2
QDATE CANC
REPTY REPTY+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEGDT*, BEGDT+1!, BEGDT+2*, BEGDT+3!
%DT("A" BEGDT*, BEGDT+2*
%ZIS DEV+2~, DEV+3*
DIR CANC+4!, QDATE+5!, INSO1+1~, EXRC+3!, OUT+1~
DIR("?" CANC+3*, QDATE+4*, INSO1+5*, INSO2+4*, EXRC+2*
DIR("??" CANC+3*
DIR("A" CANC+2*, QDATE+1*, INSO1+4*, INSO2+3*, EXRC+1*, OUT+4*
DIR("B" CANC+1*, QDATE+4*, EXRC*, OUT+5*
DIR(0 CANC+1*, QDATE*, INSO1+3*, INSO2+2*, EXRC*, OUT+3*
DIROUT INSO1+1~, INSO1+7, INSO2+6, END!, OUT+1~
DIRUT CANC+4, INSO1+1~, EXRC+3, END!, OUT+1~, OUT+6
DTIME OUTPT+1, REPTY+1, ARST+1, PRINT+1, INS+2, INSO3+3
DTOUT CANC+4, INSO1+1~, INSO1+7, INSO2+6, EXRC+3, END!, OUT+1~
DUOUT CANC+4, INSO1+1~, INSO1+7, INSO2+6, EXRC+3, END!, OUT+1~
>> IBAF CANC
>> IBARST ARST+4*
>> IBBDT BEGDT+1*, BEGDT+4
>> IBBRN REPTY+4*
>> IBBRT OUTPT+4*
>> IBBRTY OUTPT+4*
>> IBCANC CANC+4*
>> IBDF QDATE+5*
>> IBDFN QDATE+5*, BEGDT, BEGDT+2
>> IBEDT BEGDT+3*
>> IBG INSO3*
>> IBI INSO+10*
>> IBIC INSO2+10*, INSO2+11*, INSO3
>> IBICF INSO1+8*, INSO1+10, INSO2+10, INSO2+11
>> IBICFU INSO1+10*, INSO2+16
>> IBICL INSO2+10*, INSO2+11*, INSO2+19*
>> IBICLU INSO2+10*, INSO2+11*, INSO2+19*
IBICPT INS+4!, INSO+10*, INSO3, INSO3+1
IBICPT( INSO+10*
>> IBINRC EXRC+3*
>> IBOFF OUTPT+2*, REPTY+2*, ARST+2*, PRINT+2*, INS+3*, INSO3+4*
IBOUT EXRC+6!, EXRC+7*, EXRC+8, DEV, DEV+1
>> IBPRNT PRINT+4*, INS, INSO3
IBRET INSO+8, INSO+9, INSO+11!
IBRET( INSO+10
>> IBSCR INSO+7*, INSO+8
>> IBSORT INSO3*, INSO3+1*, INSO3+6*
IO DEV+9
IO("Q" DEV+4, DEV+8!
>> POP DEV+3
>> STOP OUT+6*
U OUT+6
X OUTPT+1*, OUTPT+2, OUTPT+3, OUTPT+4, REPTY+1*, REPTY+2, REPTY+3, REPTY+4, ARST+1*, ARST+2
, ARST+3, ARST+4, QDATE+5, PRINT+1*, PRINT+2, PRINT+3, PRINT+4, INS+2*, INS+3, INS+4
, INSO1+1~, INSO3+3*, INSO3+4, INSO3+5, INSO3+6, DEV+6*, OUT+1~
Y CANC+4, QDATE+5, BEGDT+1, BEGDT+3, BEGDT+4, INSO1+1~, INSO1+8, INSO2+10, INSO2+11, INSO2+13*
, INSO2+16, INSO2+19, EXRC+3, OUT+1~, OUT+6, OUT+7
Y(0 QDATE+5
ZTDESC DEV+2~, DEV+5*
ZTRTN DEV+2~, DEV+5*
ZTSAVE DEV+2~
ZTSAVE( DEV+6*
ZTSK DEV+2~, DEV+7, DEV+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All