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

Package: Integrated Billing

Routine: IBCNRPSI


Information

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

Source Information

Source file <IBCNRPSI.m>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

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