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

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

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