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

Package: Integrated Billing

Routine: IBCOC1


Information

IBCOC1 ;ALB/NLR - NEW, NOT VERIFIED INS. ENTRIES ;24-NOV-93

Source Information

Source file <IBCOC1.m>

Entry Points

Name Comments DBIA/ICR reference
END
ASK ;
OUT() ;
EXCEL ;
; Ask for Date Entered range
XLQUIT ;
NR ; Ask Name Range
NRR
QUE ; Ask Device for Excel Output
QUEQ ; Exit clean-up
COMPXL ; Compile Excel data
; Input variables:
; IBRF - Required. Name Range Start value
; IBRL - Required. Name Range Go To value
; IBBDT - Required. Begining Entered Date Range
; IBEDT - Required. Ending Entered Date Range
WRT ; Print Excel data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Print List of New, Not Verified Insurance Entries"
  • Line Location: IBCOC1+8
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!!
  • Line Location: IBCOC1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXCEL+9
Function Call: WRITE
  • Prompt: !!,?5,"* The Go to Patient Name must follow after the Start with Name. *",!
  • Line Location: NRR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+1
Function Call: WRITE
  • Prompt: "REPORT OF NEW, NOT VERIFIED INSURANCE ENTRIES FROM: ",$$DAT1^IBOUTL(IBBDT)," TO: ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: COMPXL+41
Function Call: WRITE
  • Prompt: !,"NAMES RANGING FROM ",$S(IBRF="A":"FIRST",1:IBRF)," TO ",$S(IBRL="zzzzzz":"LAST",1:IBRL)_"^"_$$FMTE^XLFDT($$NOW^XLFDT,"Z"),!
  • Line Location: COMPXL+42
Function Call: WRITE
  • Prompt: "PATIENT^PATIENT ID^INSURANCE CO^SUBSCRIBER ID^WHO ENTERED^DATE ENTERED"
  • Line Location: COMPXL+44
Function Call: WRITE
  • Prompt: !!,"** NO RECORDS FOUND **"
  • Line Location: COMPXL+45
Function Call: WRITE
  • Prompt: !,^TMP("IBCOC1",$J,IBPAT,IBINSTYP)
  • Line Location: WRT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
2.312 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call