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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCNRP5

Package: Integrated Billing

Routine: IBCNRP5


Information

IBCNRP5 ;BHAM ISC/CMW - Group Plan Status Report ;01-NOV-2004

Source Information

Source file <IBCNRP5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; Initialize variables
P10
P20
P30
P40
P50
EXIT ; unlock global
RESORT(RESORT) ; check for prior compile
RESRTX ;RESORT EXIT
GIPF ; compiler valid insurance
INS ;
INSO
INSO1
INSO2
TYPE ; Prompt to allow users to inquire for All group plans, or Matched group plans
TYPEX
INSEL ; - Perform selection for insurance company.
INIT ; -- init variables and create list array or report array
SETPLAN(IBCNGP) ;
; create text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"ePHARM GROUP PLAN STATUS REPORT",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"NCPDP process requires that the users match Group Plans to Pharmacy Plans."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"This report will assist users in matching Group Insurance Plans to Pharmacy"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !," Plans by searching through GIPF file for Group Plans that "
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !," are linked to an Insurance with active Pharmacy Plan coverage."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"Sorry, Status Report in use."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"Current Insurance company list compiled on: ",HDR,!
  • Line Location: RESORT+6
Function Call: WRITE
  • Prompt: !,"*** COMPILING ......"
  • Line Location: GIPF+1
Function Call: WRITE
  • Prompt: !,"Run Report "
  • Line Location: INS+2
Function Call: WRITE
  • Prompt: " for (S)PECIFIC insurance companies or a (R)ANGE: RANGE// "
  • Line Location: INS+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: !,"Enter <CR> for Range; 'S' for specific insurance; '^' to quit."
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: " ",$S("Ss"[X:"SPECIFIC",1:"RANGE")
  • Line Location: INS+7
Function Call: WRITE
  • Prompt: !?3,"Start with INSURANCE COMPANY: FIRST// "
  • Line Location: INSO1+0
Function Call: WRITE
  • Prompt: !,"Enter value up to 40 char; <CR> to start with 'first' value; '^' to quit."
  • Line Location: INSO1+2
Function Call: WRITE
  • Prompt: !?8,"Go to INSURANCE COMPANY: LAST// "
  • Line Location: INSO2+0
Function Call: WRITE
  • Prompt: !,"Enter value up to 40 char; <CR> to go to 'last' value; '^' to quit."
  • Line Location: INSO2+2
Function Call: WRITE
  • Prompt: *7,!?3,"**NO pharmacy data found for "
  • Line Location: INSEL+9
Function Call: WRITE
  • Prompt: $P(^DIC(36,IBIEN,0),U)_" "_$P(^DIC(36,IBIEN,.11),U),!
  • Line Location: INSEL+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call