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

Package: Integrated Billing

Routine: IBCNSC2


Information

IBCNSC2 ;ALB/NLR - INACTIVATE AND REPOINT INS STUFF ; 20-APR-93

Source Information

Source file <IBCNSC2.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; -- main flow control
MAINQ
START ; -- activate or inactivate insurance co. if necessary
STARTQ
AP ; -- ask if user wishes to print patients with inactivated insurance
PRINT ; -- print list of patients covered by inactivated insurance company
APQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Please note that Insurance Reviews have been conducted with this company!!",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"THERE "_$S(IBC=0:"ARE NO PATIENTS",IBC=1:"IS ONE PATIENT",IBC>20:"ARE MORE THAN 20 PATIENTS",1:"ARE "_IBC_" PATIENTS")_" COVERED BY THIS "_$S(+IBV=0:"(ACTIVE)",1:"(INACTIVE)")_" INSURANCE COMPANY...."
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !!,"*** You will need a 132 column printer for this report. ***",!
  • Line Location: AP+6
Info |  Source |  Entry Points |  Interaction Calls