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

Package: Integrated Billing

Routine: IBCNRPSI


Information

IBCNRPSI ;BHAM ISC/ALA - Group Plan Status Inquiry ;14-NOV-2003

Source Information

Source file <IBCNRPSI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 HOME^%ZIS  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Integrated Billing 1 EN^IBCNRPS2  

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

Package Total Caller Graph
Integrated Billing 2 IBCNR PLAN STATUS INQUIRY  IBCNRPS2  

Entry Points

Name Comments DBIA/ICR reference
EN ; Select an insurance company (inquiry entry point)
EN0 ;
TYPE ; Prompt to allow users to inquire for All group plans, Pharmacy group
; plans or Matched group plans
TYPEX ; TYPE exit point
EXIT
PRINT ; Entry pt.
EXIT3 ; Exit pt
PRINTDT(MAX,PGC) ; Print data
HEADER ; Print header info for each page
; Assumes vars from PRINT: CRT,PGC,IBPXT,MAX,SRT,BDT,EDT,PYR,RDTL,MAR
; Init vars
HEADERX ; HEADER exit pt
LINE ; Print line of data
; Assumes vars from PRINT: PGC,IBPXT,MAX
; Init vars
LINEX ; LINE exit pt
QUITX ;

External References

Name Field # of Occurrence
HOME^%ZIS PRINT+5
$$S^%ZTLOAD HEADER+9
$$GET1^DIQ HEADER+15
^DIR EN0+4, TYPE+10, PRINT+17, HEADER+7
EN^IBCNRPS2 TYPE+14
$$FMTE^XLFDT HEADER+12
$$NOW^XLFDT HEADER+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This company does not reimburse. "
  • Line Location: EN0+5
Function Call: WRITE
  • Prompt: !,*7,"Warning: Inactive Company"
  • Line Location: EN0+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: @IOF,!,?1,"ePHARM GROUP PLAN STATUS INQUIRY"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?OFFSET,HDR
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,?1,"Report for "_$S(IBCNTYP="A":"All",IBCNTYP="P":"Pharmacy Covered",1:"Matched")_" Group Plans for "_$$GET1^DIQ(36,IBCNSP_",",.01)
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !,?1,"Group Name",?20,"Group #",?38,"Plan Type",?52,"Plan ID"
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: ?71,"Pln Stat"
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: !,?1,DASHES
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: !,?1,^TMP("IBCNR",$J,"DSPDATA",II)
  • Line Location: LINE+9
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+5
Routine Call
  • DIR
  • Line Location:
    • EN0+4
    • TYPE+10
    • PRINT+17
    • HEADER+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] EN0+5, EN0+6
^TMP("IBCNR" PRINTDT+12!, LINE+5, LINE+9

Label References

Name Line Occurrences
EXIT EN0+4, EN0+6
EXIT3 PRINT+14
HEADER LINE+6, LINE+8
HEADERX HEADER+5, HEADER+9
LINE PRINTDT+11
LINEX LINE+6
PRINTDT PRINT+13
TYPEX TYPE+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CRT PRINT+3~, PRINT+10*, PRINT+11*, PRINT+15, HEADER+5
CT PRINTDT+3~, PRINTDT+8*, LINE+3~, LINE+5*, LINE+6, LINE+7
DASHES HEADER+3~, HEADER+18*, HEADER+19
DASHES2 HEADER+3~
DIR EN0+4!, TYPE+2~, TYPE+10!, PRINT+4~, PRINT+17!, HEADER+3~, HEADER+7!
DIR("?" EN0+3*, TYPE+7*, TYPE+8*, TYPE+9*
DIR("??" EN0+2*
DIR("A" EN0+2*, TYPE+5*
DIR("B" TYPE+6*
DIR(0 EN0+1*, TYPE+4*, PRINT+17*, HEADER+7*
DIRUT TYPE+2~, TYPE+11
DISPDATA PRINTDT+3~
DTOUT PRINT+4~, HEADER+3~, HEADER+8
DUOUT PRINT+4~, HEADER+3~, HEADER+8
EORMSG PRINTDT+3~, PRINTDT+5*
HDR HEADER+3~, HEADER+12*, HEADER+13, HEADER+14
IBALR EXIT!
IBBDT PRINT+3~
IBCNGP EXIT!
IBCNRRPT EN+1*, EXIT+1!
IBCNSP EN0+4*, EN0+5, EN0+6!, EXIT!, HEADER+15
IBCNTYP TYPE+12*, EXIT+1!, HEADER+15
IBCPOL EXIT!
IBDTL PRINT+3~
IBEDT PRINT+3~
IBGRP EXIT!
IBIND EXIT!
IBMULT EXIT!
IBPGC PRINT+3~, PRINT+7*, PRINT+13, PRINT+15
IBPXT PRINT+3~, PRINT+7*, PRINT+14, HEADER+5, HEADER+8*, HEADER+9*, LINE+6, LINE+7, LINE+8
IBPY PRINT+3~
IBSEL EXIT!
IBSRT PRINT+3~
IBW EXIT!
II LINE+3~, LINE+7*, LINE+9
IOF PRINT+5, HEADER+11
IOSL PRINT+10, PRINT+11
IOST PRINT+10
LIN PRINT+4~, PRINT+16*, HEADER+3~, HEADER+6*
MAX PRINTDT~, HEADER+6, LINE+6, LINE+8
MAXCNT PRINT+3~, PRINT+10*, PRINT+11*, PRINT+13, PRINT+16
NONEMSG PRINTDT+3~, PRINTDT+6*
OFFSET HEADER+3~, HEADER+13*, HEADER+14
PGC PRINTDT~, HEADER+5, HEADER+10*, HEADER+12, LINE+8
PRT1 PRINTDT+3~
PRT2 PRINTDT+3~
SORT PRINTDT+3~
TOTALS PRINT+4~
TOTDASHS PRINTDT+3~, PRINTDT+7*
X EXIT+1!, PRINT+4~, HEADER+3~
Y EN0+4, TYPE+12, EXIT+1!, PRINT+4~, HEADER+3~
ZTDESC EXIT+1!
>> ZTQUEUED PRINT+15, HEADER+5, HEADER+9
ZTSTOP EXIT+1!, PRINT+14, HEADER+9*, LINE+6, LINE+7, LINE+8
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