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

Package: Integrated Billing

Routine: IBCNINSL


Information

IBCNINSL ;AITC/TAZ/VAD - GENERAL INSURANCE UTILITIES - LOOKUP ;8/20/20 12:46p.m.

Source Information

Source file <IBCNINSL.m>

Entry Points

Name Comments DBIA/ICR reference
DIVISION ;
CLINIC ;
PATIENT ;
INST(ARRAY,PROMPT) ; Institution/Facility Lookup
INSTS(IEN) ;Screen for Institution IA #2171
INSTSQ ;Exit Screen
PAYER(APP,ARRAY) ;Payer Lookup
LOOKUP(FILE,IBPROMPT,ARRAY,IBALL,IBONE,SCREEN) ; Perform a lookup on the selected Dictionary
FIRST
SET ;Set into or remove from ARRAY
SETQ ;
QQ ;Display Help
ERR
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,"...not on list...can't remove"
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: *7,"...removed from list..."
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !?3,*7,"You have already selected that ",IBPROMPT,". Try again."
  • Line Location: SET+7
Function Call: WRITE
  • Prompt: !,"ENTER:"
  • Line Location: QQ+3
Function Call: WRITE
  • Prompt: !?5,"- ALL (Default) for all ",PROMPT,", or"
  • Line Location: QQ+4
Function Call: WRITE
  • Prompt: !?5,"- Individual ",IBPROMPT
  • Line Location: QQ+5
Function Call: WRITE
  • Prompt: !?5,"- RETURN once all ",PROMPT," have been selected"
  • Line Location: QQ+6
Function Call: WRITE
  • Prompt: !?5,"- An entry preceeded by a minus [-] sign to remove that entry from list."
  • Line Location: QQ+8
Function Call: WRITE
  • Prompt: !!,"NOTE, you have already selected:"
  • Line Location: QQ+9
Function Call: WRITE
  • Prompt: !?8,$S(IBUTNI=1:IBJ,1:@ARRAY@(IBJ))
  • Line Location: QQ+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QQ+11
Info |  Source |  Entry Points |  Interaction Calls