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

Package: Integrated Billing

Routine: IBCNOR3


Information

IBCNOR3 ;AITC/DTG - IBCN EDI PAYER ID REPT ;10/18/23

Source Information

Source file <IBCNOR3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
ENRK ; come here if continue from ^ response
ENR ; ask question return point.
ENAQ ;
ISET ; if item save and set flag
OUT ; Prompt to allow users to select output format
; Returns: E - Output to excel
; R - Output to report
; IBSTOP=1 - No Selection made
OUTQ ;
EXIT ; quit point
DEVICE ;
COMPILE ; build output of payers
PRINT ; out put the compile in insurance co name order
NOD ; no info to print
QLINE ; cr to continue
WALK ; walk the indexes
HDRE ; excel header
HDRR ; report header
EXITC ; compile section exit
STOP() ; Determine if user wants to exit out of the whole option
; Initialize Variables
STOPX ; STOP Exit Point

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report allows the user to identify Insurance Companies with a specific",!,"EDI Payer ID."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENR+1
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: ENAQ+2
Function Call: WRITE
  • Prompt: *7," EDI Payer ID already selected"
  • Line Location: ISET+6
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report.",!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now.",!
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: "To avoid undesired wrapping of the data, please"
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !," enter '0;256;99999'.",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"Checking Insurance Companies for the EDI Payer number(s)",!
  • Line Location: COMPILE+25
Function Call: WRITE
  • Prompt: !,IBNM,U,IBADDR,U,IBW
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,IBNM,?32,$P(IBW,U,1),?64,$P(IBW,U,2),?96,$P(IBW,U,3),?128,$P(IBW,U,4)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !," ",IBADDR
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,IBEORMSG
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,IBNONEMSG,!,IBEORMSG
  • Line Location: NOD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QLINE+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: WALK+4
Function Call: WRITE
  • Prompt: !,IBHDRNAME,U,IBHDRDATE
  • Line Location: HDRE+2
Function Call: WRITE
  • Prompt: !,IBFILTER
  • Line Location: HDRE+3
Function Call: WRITE
  • Prompt: !,"INSURANCE COMPANY"_U_"ADDRESS"_U_"PROFESSIONAL ID"_U_"INSTITUTIONAL ID"_U_"DENTAL ID"_U_"A/I"
  • Line Location: HDRE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRR+4
Function Call: WRITE
  • Prompt: IBHDRNAME,?90,IBHDRDATE,?119,"Page: ",IBA,!
  • Line Location: HDRR+6
Function Call: WRITE
  • Prompt: IBFILTER,!!
  • Line Location: HDRR+7
Function Call: WRITE
  • Prompt: "INSURANCE COMPANY",?32,"PROFESSIONAL ID",?64,"INSTITUTIONAL ID",?96,"DENTAL ID",?128,"A/I"
  • Line Location: HDRR+8
Function Call: WRITE
  • Prompt: !,$E(IBDASHES,1,132)
  • Line Location: HDRR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+3

FileMan Files Accessed Via FileMan Db Call

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