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

Package: Integrated Billing

Routine: IBOUNP4


Information

IBOUNP4 ;ALB/CJM - INPATIENT INSURANCE REPORT ;JAN 25,1992

Source Information

Source file <IBOUNP4.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
QUEUED ; entry point if queued
EXIT ;
DRANGE ; select a date range for report
DEVICE ;
CATGRY ; allows user to select categories to include in report
DIVISION ; gets list of selected divisions,or sets VAUTC=1 if all select
PICK ; gets user's choice of all current inpatients or all admitted in range
SORTBY ;sets IBOBYWRD=1 if user wants the output sorted by ward
OUT() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"ENDING DATE must follow or be the same as the STARTING DATE"
  • Line Location: DRANGE+2
Function Call: WRITE
  • Prompt: !!,*7,"*** Margin width of this output is 132 ***"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"*** This output should be queued ***"
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Info |  Source |  Entry Points |  Interaction Calls