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

Package: Integrated Billing

Routine: IBCOC1


Information

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

Source Information

Source file <IBCOC1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Integrated Billing 3 $$ZND^IBCNS1  ASK^IBCOMC2  ($$DAT1,DATE)^IBOUTL  
VA FileMan 3 EN1^DIP  $$GET1^DIQ  ^DIR  
Registration 1 (ADD,DEM)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCN LIST NEW NOT VER  

Entry Points

Name Comments DBIA/ICR reference
END
EXCEL ;
; Ask for Date Entered range
QUEQ ; Exit clean-up
OUT() ;
WRT ; Print Excel data
QUE ; Ask Device for Excel Output
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
ASK ;
NRR
NR ; Ask Name Range
XLQUIT ;

External References

Name Field # of Occurrence
^%ZIS QUE+2
HOME^%ZIS QUE+7
^%ZISC %+18, QUEQ+1
^%ZTLOAD QUE+7
EN1^DIP %+15
$$GET1^DIQ COMPXL+31, COMPXL+32, COMPXL+33, COMPXL+34
^DIR OUT+6, NRR+1, NRR+4
$$ZND^IBCNS1 COMPXL+20
ASK^IBCOMC2 %+15, COMPXL+45, COMPXL+46
$$DAT1^IBOUTL ASK+5, COMPXL+41
DATE^IBOUTL ASK+2, EXCEL+4
ADD^VADPT COMPXL+12
DEM^VADPT COMPXL+12
$$FMTE^XLFDT COMPXL+35, COMPXL+42
$$NOW^XLFDT COMPXL+42

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
Routine Call
  • %ZIS
  • Line Location:
    • QUE+7
Routine Call
  • DIR
  • Line Location:
    • OUT+6
    • NRR+1
    • NRR+4
Routine Call
  • %ZIS
  • Line Location:
    • QUE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
2.312 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] COMPXL+23
^DPT("AB" COMPXL+9, COMPXL+10, COMPXL+19
^TMP("IBCOC1" QUEQ+1!, COMPXL+8!, COMPXL+38*, COMPXL+45, WRT+3, WRT+4

Label References

Name Line Occurrences
$$OUT %+7
ASK %+13
COMPXL QUE+10
END %+7, %+13
EXCEL %+8
NR EXCEL+7
NRR NRR+6
QUE EXCEL+9
QUEQ QUE+2, QUE+3
WRT COMPXL+46
XLQUIT EXCEL+5, EXCEL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE+1~, QUE+2*
BY %+12*, END!
DFN COMPXL+7~, COMPXL+10*, COMPXL+19, COMPXL+20, COMPXL+23, COMPXL+31, COMPXL+32, COMPXL+33, COMPXL+34
DHD %+14*, END!
DIC %+12*, END!
DIR OUT+1~, NR+1~
DIR("A" OUT+4*, NRR*, NRR+3*
DIR("B" OUT+5*, NRR*, NRR+3*
DIR(0 OUT+3*, NRR*, NRR+3*
DIROUT OUT+1~, NR+1~
DIRUT OUT+1~, OUT+6, NR+1~
DTOUT OUT+1~, NR+1~, NRR+1, NRR+4
DUOUT OUT+1~, NR+1~, NRR+1, NRR+4
FLDS %+12*, END!
FR END!, ASK+4*
FR(1 %+14, ASK+5*
IBBDT ASK+1~, ASK+3, ASK+4, ASK+5, EXCEL+2~, EXCEL+5, XLQUIT+1!, QUEQ+1!, COMPXL+28, COMPXL+41
IBC COMPXL+7~, COMPXL+9*, COMPXL+10, COMPXL+19
IBCDA COMPXL+7~, COMPXL+19*, COMPXL+20, COMPXL+23, COMPXL+32, COMPXL+33, COMPXL+34, COMPXL+38
IBCDA0 COMPXL+7~, COMPXL+20*
IBCDA1 COMPXL+7~, COMPXL+23*, COMPXL+24, COMPXL+27, COMPXL+28, COMPXL+35
IBEDT ASK+1~, ASK+3, ASK+4, ASK+5, EXCEL+2~, EXCEL+5, XLQUIT+1!, QUEQ+1!, COMPXL+27, COMPXL+41
IBENDT COMPXL+7~, COMPXL+35*, COMPXL+38
IBENUSR COMPXL+7~, COMPXL+34*, COMPXL+38
IBINS COMPXL+7~, COMPXL+32*, COMPXL+38
IBINSTYP WRT+1~, WRT+2*, WRT+4*
IBOUT %+7*, %+8, END!, XLQUIT+1!, QUEQ+1!
IBPAT WRT+1~, WRT+2*, WRT+3*, WRT+4
IBQ %+13, END!, ASK+3*
IBQUIT EXCEL+2~, EXCEL+3*, EXCEL+7, XLQUIT+1!, NRR+1*, NRR+4*
IBRF EXCEL+2~, XLQUIT+1!, NRR+2*, NRR+6, QUEQ+1!, COMPXL+17, COMPXL+42
IBRL EXCEL+2~, XLQUIT+1!, NRR+5*, NRR+6, QUEQ+1!, COMPXL+16, COMPXL+42
IBSSN COMPXL+7~, COMPXL+31*, COMPXL+38
IBSUBID COMPXL+7~, COMPXL+33*, COMPXL+38
IO QUE+9
IO("Q" QUE+3!
POP %+1~, QUE+2
TO END!, ASK+4*
TO(1 %+14, ASK+5*
U COMPXL+15, COMPXL+24, COMPXL+27, COMPXL+28, COMPXL+35, COMPXL+38
VA QUEQ+1!, COMPXL+7~, COMPXL+11!
VADM QUEQ+1!, COMPXL+7~, COMPXL+11!
VADM(1 COMPXL+15*, COMPXL+16, COMPXL+17, COMPXL+38
VAERR QUEQ+1!, COMPXL+7~, COMPXL+11!
VAPA QUEQ+1!, COMPXL+7~, COMPXL+11!
X OUT+1~, NR+1~
Y OUT+1~, OUT+7, NR+1~, NRR+2*, NRR+5*
ZTDESC QUE+1~, QUE+6*
ZTQUEUED %+1~, %+17
ZTREQ %+1~, %+17*
ZTRTN QUE+1~, QUE+4*
ZTSAVE QUE+1~
ZTSAVE("IBBDT" QUE+5*
ZTSAVE("IBEDT" QUE+5*
ZTSAVE("IBRF" QUE+4*
ZTSAVE("IBRL" QUE+4*
ZTSK QUE+7!
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