Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 3 $$FO^IBCNEUT1  PRINT^IBCNRP5P  (STATAR,STCHK)^IBCNRU1  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 HOME^%ZIS  ($$FMTE,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCNR PLAN STATUS REPORT  

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

External References

Name Field # of Occurrence
HOME^%ZIS EN+3
^DIC INSO+2
$$GET1^DIQ SETPLAN+11, SETPLAN+12, SETPLAN+13
^DIR RESORT+12, TYPE+8
$$FO^IBCNEUT1 SETPLAN+11, SETPLAN+12, SETPLAN+13, SETPLAN+22, SETPLAN+25
PRINT^IBCNRP5P P50
STATAR^IBCNRU1 SETPLAN+29
STCHK^IBCNRU1 SETPLAN+24
$$FMTE^XLFDT RESORT+5
$$NOW^XLFDT GIPF+5

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
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
Routine Call
  • DIC
  • Line Location:
    • INSO+2
Routine Call
  • DIR
  • Line Location:
    • RESORT+12
    • TYPE+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ
^DIC(36 - [#36] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] GIPF+7, GIPF+9, GIPF+11, INSEL+7, INSEL+10
^IBA(355.3 - [#355.3] GIPF+6, GIPF+13, GIPF+15, INIT+3, INIT+9, SETPLAN+14
^IBA(355.32 - [#355.32] GIPF+21, GIPF+22, GIPF+24
^IBCNR(366.03 - [#366.03] SETPLAN+21
^IBE(355.31 - [#355.31] GIPF+19
^TMP("IBCNRP5" P40+1, EXIT+7!, INSEL+2!, INIT+11*, INIT+12*, SETPLAN+17*, SETPLAN+18*, SETPLAN+19*, SETPLAN+26*, SETPLAN+32*
, SETPLAN+33*
^XTMP("IBCNRP5" EN+17, P10+2!, EXIT+1, RESORT+2, RESORT+3, GIPF+5*, GIPF+27*, INSEL+8, INSEL+16, INSEL+17
INIT+2

Label References

Name Line Occurrences
EXIT EN+17, P10P30P30+1, P40+1
GIPF P20
INIT INSEL+11, INSEL+19, INSEL+23
INS P30INS+6, INSO+2, INSO1+1
INSEL P40
INSO INSO+3, INSO+5
INSO1 INS+7, INSO1+2, INSO2+1, INSO2+2
INSO2 INSO2+4
P30 P10+1
RESORT P10
RESRTX RESORT+13
SETPLAN INIT+6, INIT+9
TYPE P30+1
TYPEX TYPE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY SETPLAN+24~
ARRAY(1 SETPLAN+25
ARRAY(6 SETPLAN+27, SETPLAN+30, SETPLAN+32
BDT RESORT+1~
DIC INSO*, INSO+2!
DIC("A" INSO+1*
DIC("S" INSO*
DIC(0 INSO*
DIR RESORT+1~, RESORT+12!, TYPE+1~, TYPE+8!
DIR("?" RESORT+10*, RESORT+11*, TYPE+6*, TYPE+7*
DIR("A" RESORT+8*, TYPE+4*
DIR("B" RESORT+9*, TYPE+5*
DIR(0 RESORT+7*, TYPE+3*
DIRUT RESORT+1~, RESORT+13, TYPE+1~, TYPE+9
DTIME INS+4, INSO1INSO2
EDT RESORT+1~
GP0 GIPF+2~, GIPF+15*, GIPF+16
GP6 GIPF+2~, GIPF+15*
GPIEN GIPF+3~, GIPF+4*, GIPF+13*, GIPF+15, GIPF+21, GIPF+27
GPNAM GIPF+3~
GPNUM GIPF+3~
GST1 GIPF+2~, GIPF+4*
HDR RESORT+1~, RESORT+5*, RESORT+6
I SETPLAN+3~, SETPLAN+30*, SETPLAN+32
IBALR EXIT+3!
IBCNGP EXIT+3!, INSEL+1*, INIT+2*, INIT+3, INIT+6, INIT+9, SETPLAN~, SETPLAN+11, SETPLAN+12, SETPLAN+13
, SETPLAN+14
IBCNRDEV EN+16~*, EXIT+4!
IBCNRGP EXIT+5!
IBCNRI EXIT+5!
IBCNRP EXIT+5!
IBCNRPP INIT+1~
IBCNRRPT EN+15*, EXIT+4!
IBCNRRTN EN+2~
IBCNRSPC EN+2~
IBCNRSPC("RESORT" RESORT+15*
IBCNSP EXIT+3!
IBCNTYP EN+2~, P30+1, EXIT+4!, TYPE+2*, TYPE+10*, INIT+5, INIT+8
IBCOV GIPF+2~, GIPF+19*, GIPF+22, INIT+1~
IBCPD6 INIT+1~
IBCPOL EXIT+3!
IBCPOLD INIT+1~
IBCVRD GIPF+2~, GIPF+20*, GIPF+24*, GIPF+25, INIT+1~
IBDT RESORT+1~
IBGP0 INIT+1~
IBGRP EXIT+3!
IBIC EXIT+6!, INSO2+3*, INSEL+19
IBICF EXIT+6!, INSO1+3*, INSO2+3, INSO2+4, INSEL+22
IBICL EXIT+6!, INSO2+3*, INSO2+6*, INSEL+14, INSEL+22
IBICPT EXIT+6!, INSO+1, INSO+2, INSO+5*, INSEL+4
IBICPT( INSO+3, INSO+5*, INSEL+6
IBIEN EXIT+6!, GIPF+2~, INSEL+5*, INSEL+6*, INSEL+7, INSEL+8, INSEL+10, INSEL+15*, INSEL+17*, INIT+2
INIT+11, SETPLAN+17, SETPLAN+18, SETPLAN+19, SETPLAN+26, SETPLAN+32, SETPLAN+33
IBINA EXIT+6!, GIPF+3~, GIPF+7*, GIPF+27, INSEL+5*, INSEL+7*, INSEL+8, INSEL+15*, INSEL+16*, INSEL+17
INSEL+22, INIT+2
IBIND EXIT+3!
IBMULT EXIT+3!
IBPLN SETPLAN+3~, SETPLAN+14*, SETPLAN+16, SETPLAN+21, SETPLAN+24
IBPLNA SETPLAN+3~, SETPLAN+21*, SETPLAN+22
IBPXT EN+5*, EXIT+2!
IBSEL EN+2~, P30EXIT+3!, INS+1*, INSO+2*, INSO2+3*, INSO2+6*
IBW EXIT+3!
INIEN EXIT+6!, GIPF+4*, GIPF+6*, GIPF+7, GIPF+9, GIPF+11, GIPF+13, GIPF+27
IOF EN+3, EN+6
LIM GIPF+2~, GIPF+20*, GIPF+21*, GIPF+22, GIPF+24, INIT+1~
LINE SETPLAN+3~, SETPLAN+4*, SETPLAN+19, SETPLAN+33
RDT RESORT+1~, RESORT+3*, RESORT+5
RESORT EN+2~, P10P10+1, RESORT~, RESORT+4*, RESORT+14*
STATAR SETPLAN+28~, SETPLAN+29
STATAR( SETPLAN+32
STOP EN+2~, EN+5*, P10, RESORT+13*
U RESORT+3, GIPF+7, GIPF+9, GIPF+11, GIPF+16, GIPF+22, GIPF+24, INSEL+7, INSEL+10, INIT+9
, SETPLAN+14, SETPLAN+21
>> VALMBG INSEL+1*
>> VALMCNT INSEL+1*, INIT+10, SETPLAN+4*, SETPLAN+17, SETPLAN+18*, SETPLAN+19*, SETPLAN+26, SETPLAN+31*, SETPLAN+32, SETPLAN+33*
X RESORT+1~, INS+4*, INS+5*, INS+6, INS+7, INSO1*, INSO1+1, INSO1+2, INSO1+3, INSO2*
INSO2+1, INSO2+2, INSO2+3, INSO2+4, INSO2+6, TYPE+1~, INSEL+10*, INIT+1~, SETPLAN+11*, SETPLAN+12*
, SETPLAN+13*, SETPLAN+17, SETPLAN+22*, SETPLAN+25*, SETPLAN+26
Y RESORT+1~, RESORT+14, RESORT+15, INSO+2, INSO+3, INSO+5, TYPE+1~, TYPE+10
ZTDESC EXIT+4!
ZTSTOP EXIT+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All