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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBCEQ2

Package: Integrated Billing

Routine: IBCEQ2


Information

IBCEQ2 ;ALB/TMK - PROVIDER/BILLING ID WORKSHEET ;18-AUG-04

Source Information

Source file <IBCEQ2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
Integrated Billing 1 (HDR1,WRTS)^IBCEQ2A  
VA FileMan 1 ^DIR  

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 IBCE PROVIDER ID WORKSHEET  IBCEQ2A  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1Q
ENQ ; Queued job enters here
BOX(IBINM,Z00,IBCTI) ;
HDR(IBINM,IBPG,IBSTOP) ; Ins Co info
ASK(IBSTOP) ; Ask continue
; If passed by ref, IBSTOP returned = 1 if print aborted
SOLUTION ; Solution text

External References

Name Field # of Occurrence
^%ZIS EN+13
HOME^%ZIS EN+18
^%ZISC ENQ+56
^%ZTLOAD EN+16
$$S^%ZTLOAD ENQ+19
^DIR EN+4, EN+8, EN+11, ASK+4
HDR1^IBCEQ2A ENQ+36
WRTS^IBCEQ2A ENQ+49, ENQ+53, ENQ+55
$$FMTE^XLFDT HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Task # "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENQ+35
Function Call: WRITE
  • Prompt: !
  • Line Location: ENQ+50
Function Call: WRITE
  • Prompt: IBTEXT
  • Line Location: ENQ+51
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+5
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U,2)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+6
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U,3)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+7
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U,4)_" "_$P($G(^DIC(5,+$P(Z00,U,5),0)),U,2)_" "_$P(Z00,U,6)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+8
Function Call: WRITE
  • Prompt: !,"!",$J("",30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+9
Function Call: WRITE
  • Prompt: !,X
  • Line Location: BOX+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(X)\2),X
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"**** ENTER THE SPECIAL PERFORMING AND BILLING PROVIDER ID REQUIREMENTS",!," FOR THE LISTED INSURANCE COMPANIES IN THE BOXES PROVIDED"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"**** ENTER THE NAMES OF ANY INSURANCE COMPANIES THAT HAVE SPECIAL ID",!," REQUIREMENTS FOR YOUR SITE AND THEN ENTER THE SPECIFIC REQUIREMENTS IN",!," THE BOXES PROVIDED."
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,X,!,"! !"_$J("",$S(IOM<132:1,1:14))_"SECONDARY PERFORMING"_$J("",$S(IOM<132:2,1:15))_"!"_$J("",$S(IOM<132:8,1:21))_"BILLING"_$J("",$S(IOM<132:8,1:21)),"!"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"! !"_$J("",$S(IOM<132:3,1:16))_"PROV. ID SPECIFIC"_$J("",$S(IOM<132:3,1:16))_"!"_$J("",$S(IOM<132:3,1:16))_"PROV. ID SPECIFIC"_$J("",$S(IOM<132:3,1:16))_"!"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"! INSURANCE COMPANY !"_$J("",$S(IOM<132:0,1:13))_"REQUIREMENTS (SCREEN 8)"_$J("",$S(IOM<132:0,1:13))_"!"_$J("",$S(IOM<132:0,1:13))_"REQUIREMENTS (SCREEN 3)"_$J("",$S(IOM<132:0,1:13))_"!"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,"!"_$J("",30)_"!"_$J("",$S(IOM<132:23,1:49))_"!"_$J("",$S(IOM<132:23,1:49))_"!"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,"!*** example: !"_$J("",$S(IOM<132:1,1:14))_"requires specific IDs"_$J("",$S(IOM<132:1,1:14))_"!"_$J("",$S(IOM<132:1,1:14))_"requires specific ids"_$J("",$S(IOM<132:1,1:14))_"!"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,"! insurance co name !"_$J("",$S(IOM<132:2,1:15))_"for each specialty"_$J("",$S(IOM<132:3,1:16))_"!"_$J("",$S(IOM<132:3,1:16))_"for each division"_$J("",$S(IOM<132:3,1:16))_"!"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+13
Routine Call
  • %ZIS
  • Line Location:
    • EN+18
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • EN+8
    • EN+11
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] ENQ+5, ENQ+6, ENQ+12
^DIC(5 - [#5] BOX+8
^IBE(355.2 - [#355.2] ENQ+9
^TMP($J ENQ+3!, ENQ+12*, ENQ+14*, ENQ+16*, ENQ+18, ENQ+20, ENQ+25, ENQ+28, ENQ+58!

Label References

Name Line Occurrences
ASK ENQ+35, ENQ+56, HDR+2
BOX ENQ+28, ENQ+30
EN1Q EN+13, EN+14
ENQ EN+20
HDR ENQ+22, ENQ+26

Naked Globals

Name Field # of Occurrence
^( ENQ+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+1~, EN+13*
DIR EN+1~, EN+4!, EN+8!, EN+11!, ASK+3~
DIR("A" EN+3*, EN+8*, EN+11*
DIR("B" EN+4*, EN+8*, EN+11*
DIR(0 EN+3*, EN+8*, EN+11*, ASK+4*
DIROUT ASK+3~
DIRUT ASK+3~, ASK+5
DT HDR+5
DTOUT EN+1~, EN+5, EN+7, EN+10, ASK+3~
DUOUT EN+1~, EN+5, EN+7, EN+10, ASK+3~, ASK+5
IBBL EN+1~, EN+6*, EN+9*, EN+10, EN+12*, ENQ+4, ENQ+16, ENQ+32, ENQ+35
IBCOPY ENQ+2~, ENQ+20*, ENQ+21
IBCT ENQ+2~, ENQ+25*, ENQ+26*, ENQ+27*, ENQ+30*
IBCTI ENQ+2~, ENQ+17*, ENQ+28, BOX~, BOX+3*, BOX+4
IBDONE ENQ+33~, ENQ+38*, ENQ+39, ENQ+41*, ENQ+49*, ENQ+53*
IBI0 ENQ+2~, ENQ+6*, ENQ+7, ENQ+8
IBINM BOX~, BOX+2*, BOX+3, BOX+4, HDR~, HDR+4*, HDR+5, HDR+6
IBINMX HDR+1~, HDR+4*, HDR+8, HDR+10
IBLINE ENQ+33~, ENQ+38*
IBLINE( ENQ+42*, ENQ+44, ENQ+45, ENQ+46
IBLINE(" " ENQ+42
IBLOOP ENQ+2~, ENQ+21*
>> IBOTYPE ENQ+38*, ENQ+48*, ENQ+49, ENQ+53, ENQ+54*, ENQ+55
IBPAYR ENQ+2~, ENQ+6*, ENQ+12
IBPG EN+1~, ENQ+2~, ENQ+17*, ENQ+19, ENQ+22, ENQ+26, ENQ+34*, ENQ+36, ENQ+56, HDR~
, HDR+2, HDR+3*, HDR+5
IBSTOP EN+1~, ENQ+2~, ENQ+17*, ENQ+18, ENQ+19*, ENQ+21, ENQ+22, ENQ+23, ENQ+26, ENQ+32
, ENQ+35, ENQ+49, ENQ+53, ENQ+55, ENQ+56, ENQ+57, HDR~, HDR+2, ASK~, ASK+5*
IBTEXT ENQ+33~, ENQ+46*, ENQ+49, ENQ+51, ENQ+53, ENQ+55*
IBTEXT("" ENQ+55
IBTYPE ENQ+2~, ENQ+38*, ENQ+45*, ENQ+46, ENQ+48, ENQ+50, ENQ+53, ENQ+54
IBZ ENQ+33~, ENQ+40*, ENQ+41, ENQ+42
IO EN+19
IO("Q" EN+14, EN+18!
IOF ENQ+35, HDR+2
IOM BOX+4, BOX+5, BOX+6, BOX+7, BOX+8, BOX+9, BOX+10, HDR+5, HDR+6, HDR+12
, HDR+13, HDR+14, HDR+15, HDR+17, HDR+18, HDR+19
IOST ASK+2
POP EN+1~, EN+13
Q ENQ+33~, ENQ+50*, BOX+1~, BOX+9*
TYPCOV ENQ+2~, ENQ+8*, ENQ+9
U EN+6, EN+7, EN+9, EN+10, EN+12, ENQ+4, ENQ+6, ENQ+7, ENQ+8, ENQ+9
, ENQ+12, ENQ+16, ENQ+20, ENQ+32, ENQ+35, ENQ+42, BOX+5, BOX+6, BOX+7, BOX+8
, HDR+4
X EN+1~, ENQ+2~, ENQ+11*, ENQ+12, ENQ+33~, BOX+1~, BOX+10*, HDR+1~, HDR+6*, HDR+12*
, HDR+13, HDR+16, HDR+20
Y EN+1~, EN+6, EN+7, EN+9, EN+12
Z EN+1~, ENQ+2~, ENQ+5*, ENQ+6, ENQ+12, ENQ+18*, ENQ+20, ENQ+22, ENQ+25, ENQ+26
, ENQ+28, ENQ+33~, ENQ+39*, ENQ+44*, ENQ+45, ENQ+46
Z0 ENQ+2~, ENQ+9*, ENQ+10, ENQ+11, ENQ+25*, ENQ+28
Z00 ENQ+2~, ENQ+25*, ENQ+28, BOX~, BOX+2, BOX+5, BOX+6, BOX+7, BOX+8
ZTDESC EN+1~, EN+15*
>> ZTQUEUED ENQ+19, ENQ+56, ENQ+57
ZTREQ ENQ+19!, ENQ+57*
ZTRTN EN+1~, EN+15*
ZTSAVE EN+1~
ZTSAVE("IBBL" EN+15*
ZTSK EN+1~, EN+17, EN+18!
>> ZTSTOP ENQ+19*

Marked Items

Name Field # of Occurrence
$T(SOLUTION+Z ENQ+40
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All