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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCEM03

Package: Integrated Billing

Routine: IBCEM03


Information

IBCEM03 ;ALB/TMP - 837 EDI RESUBMIT INDIVIDUAL BILL PROCESSING ;17-SEP-96

Source Information

Source file <IBCEM03.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 7 ($$ADDTBILL,$$TX1,4)^IBCB1  ONE^IBCE837  ($$COBN,$$FT,$$INPAT)^IBCEF  ($$LAST364,$$TXMT)^IBCEF4  UPDEDI^IBCEM  $$NEEDMRA^IBEFUNC  $$EXPAND^IBTRE  
VA FileMan 5 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 3 ENS^%ZISS  STAT^%ZTLOAD  $$FMTE^XLFDT  
List Manager 1 PAUSE^VALM1  

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

Package Total Caller Graph
Integrated Billing 4 IBCE  IBCE TRANSMIT SELECTED BILLS  IBCECOB2  IBCECSA4  

Entry Points

Name Comments DBIA/ICR reference
BILL2 ; Resubmit a transmitted bill with a new batch #
ASK
PRINT1(IBIFN,IBDA,IB364,IBRESUB) ; Print bill, submit manually as resolution
; for a returned message
; IBIFN = ien of bill in file 399
; IBDA = array returned from selection of message
; IB364 = ien of transmit bill entry in file 364
; IBRESUB = flag to indicate if bill is being resubmitted via print
PRINT1Q
SUB1 ; Select bills in ready for extract status to transmit individually
SUB1Q

External References

Name Field # of Occurrence
ENS^%ZISS PRINT1+17
STAT^%ZTLOAD ASK+28
^DIC ASK+6
^DIE ASK+29
^DIK ASK+53
$$GET1^DIQ SUB1+42
^DIR BILL2+4, ASK+21, ASK+41, SUB1+9, SUB1+26, SUB1+36
$$ADDTBILL^IBCB1 ASK+47
$$TX1^IBCB1 ASK+49
4^IBCB1 PRINT1+17
ONE^IBCE837 ASK+11, SUB1+40
$$COBN^IBCEF ASK+19
$$FT^IBCEF SUB1+19
$$INPAT^IBCEF SUB1+19
$$LAST364^IBCEF4 ASK+15
$$TXMT^IBCEF4 SUB1+14
UPDEDI^IBCEM ASK+59, PRINT1+22
$$NEEDMRA^IBEFUNC SUB1+13
$$EXPAND^IBTRE ASK+33, ASK+34, ASK+37, SUB1+21, SUB1+22
PAUSE^VALM1 PRINT1+13, SUB1Q
$$FMTE^XLFDT ASK+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Bill does not exist in BILL TRANSMISSION file"
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !,"Bill already selected for test transmission"
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+21
Function Call: WRITE
  • Prompt: !,"Bill is currently awaiting extract - will be submitted with next batch run"
  • Line Location: ASK+24
Function Call: WRITE
  • Prompt: *7,!,"Cannot resubmit this bill.",!,"This bill's current batch is already ",$S("2"[ZTSK(1):"being resubmitted",1:"scheduled for resubmission")," - Task # is: ",IB,!
  • Line Location: ASK+30
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+32
Function Call: WRITE
  • Prompt: !,*7,"An error has occurred ... bill NOT re-submitted!!"
  • Line Location: ASK+52
Function Call: WRITE
  • Prompt: !,"Bill # ",$P($G(^DGCR(399,+IB0,0)),U)," was re-submitted in batch # ",$P($G(^IBA(364.1,+IBNEW,0)),U)
  • Line Location: ASK+61
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !,*7,"Bill status must be AUTHORIZED or PRNT/TX to print the bill"
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: !,*7,"This bill was last printed today. You must wait at least 1 day from the last",!,"print date to print this bill using this function."
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: !,"Bill was not printed"
  • Line Location: PRINT1+20
Function Call: WRITE
  • Prompt: !,$S(Z:"MRA",1:"EDI")_" TRANSMISSION PARAMETER HAS BEEN TURNED OFF",!!,"BILL CANNOT BE SELECTED"
  • Line Location: SUB1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+26
Function Call: WRITE
  • Prompt: !,"BILL NOT SELECTED"
  • Line Location: SUB1+27
Function Call: WRITE
  • Prompt: !,"Bills to be transmitted: "
  • Line Location: SUB1+33
Function Call: WRITE
  • Prompt: !,?8,$P($G(^DGCR(399,+$G(^IBA(364,Z,0)),0)),U)
  • Line Location: SUB1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+35
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB1+38
Function Call: WRITE
  • Prompt: !,"BILL(s) placed onto 837 FHIR Transaction list. They will be submitted shortly..."
  • Line Location: SUB1+43
Function Call: WRITE
  • Prompt: !,"BILL(s) TRANSMITTED ... BATCH #(s): "
  • Line Location: SUB1+44
Function Call: WRITE
  • Prompt: Z,$S($O(^(Z)):", ",1:"")
  • Line Location: SUB1+45
Function Call: WRITE
  • Prompt: !,"NO BILL(S) TRANSMITTED - CHECK ALERTS/MAIL FOR DETAILS"
  • Line Location: SUB1+46
Routine Call
  • DIC
  • Line Location:
    • ASK+6
Routine Call
  • DIE
  • Line Location:
    • ASK+29
Routine Call
  • DIR
  • Line Location:
    • BILL2+4
    • ASK+21
    • ASK+41
    • SUB1+9
    • SUB1+26
    • SUB1+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.9 - [#350.9] GET1^DIQ
^IBA(364 - [#364] Classic Fileman Calls
^IBA(364.1 - [#364.1] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] ASK+37, ASK+61, PRINT1+10, PRINT1+13, SUB1+12, SUB1+34
^DPT - [#2] SUB1+20
^IBA(364 - [#364] ASK+15, ASK+54, ASK+56, ASK+63, SUB1+12, SUB1+34
^IBA(364.1 - [#364.1] ASK+25, ASK+61
^TMP("IBCE-BATCH" SUB1+45, SUB1+46, SUB1Q+1!
^TMP("IBEDI_TEST_BATCH" BILL2+2!, BILL2+6*, ASK+1, ASK+9, ASK+10, ASK+13!, ASK+18, ASK+45*
^TMP("IBRESUBMIT" ASK+10*, ASK+13!
^TMP("IBSELX" SUB1+2!, SUB1+7, SUB1+10!, SUB1+29*, SUB1+31, SUB1+34, SUB1+39*, SUB1Q+1!

Label References

Name Line Occurrences
ASK ASK+17, ASK+18, ASK+19, ASK+24, ASK+27, ASK+43, ASK+45, ASK+51, ASK+64
PRINT1Q PRINT1+9, PRINT1+11, PRINT1+13, PRINT1+20
SUB1Q SUB1+31, SUB1+37, SUB1+42

Naked Globals

Name Field # of Occurrence
^( SUB1+45
^(0 SUB1+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA BILL2+1~, ASK+29*, ASK+53*, SUB1+1~
DFN PRINT1+7~, PRINT1+15*
DIC BILL2+1~, ASK+4*, ASK+6!, SUB1+1~
DIC("A" ASK+5*
DIC("S" ASK+4*
DIC(0 ASK+4*
DIE BILL2+1~, ASK+29*
>> DIK ASK+53*
DIR BILL2+1~, BILL2+4!, ASK+21!, ASK+41!, SUB1+1~, SUB1+9!, SUB1+26!, SUB1+36!
DIR("?" SUB1+8*, SUB1+23*, SUB1+24*
DIR("A" BILL2+4*, ASK+20*, ASK+33*, ASK+34*, ASK+35*, ASK+36*, ASK+37*, ASK+38*, ASK+39*, SUB1+7*
SUB1+19*, SUB1+20*, SUB1+21*, SUB1+22*, SUB1+24*, SUB1+25*, SUB1+36*
DIR("B" BILL2+4*, ASK+21*, ASK+40*, SUB1+26*, SUB1+36*
DIR("S" SUB1+6*
DIR(0 BILL2+4*, ASK+21*, ASK+40*, SUB1+7*, SUB1+26*, SUB1+36*
DPTNOFZY ASK~*
DR BILL2+1~, ASK+29*
DT PRINT1+13
>> DTOUT BILL2+5
>> DUOUT BILL2+5
IB BILL2+1~, ASK+25*, ASK+27, ASK+28, ASK+30
IB0 BILL2+1~, ASK+15*, ASK+17, ASK+25, ASK+33, ASK+35, ASK+61, SUB1+1~, SUB1+12*, SUB1+22
IB364 PRINT1~, PRINT1+22
IB399 PRINT1+7~, PRINT1+10*, PRINT1+11, PRINT1+15, SUB1+1~, SUB1+12*, SUB1+19, SUB1+20
IBAC PRINT1+7~, PRINT1+15*
IBBDA BILL2+1~, ASK+25*, ASK+29
IBDA BILL2+1~, ASK+15*, ASK+18, ASK+45, ASK+54, ASK+59, ASK+63, PRINT1~, PRINT1+9*, PRINT1+11*
, PRINT1+13*, PRINT1+16, PRINT1+18*, PRINT1+20*, SUB1+1~, SUB1+12*, SUB1+29
IBDA1 BILL2+1~, ASK+47*, ASK+49, ASK+53, ASK+56
IBE BILL2+1~
IBHOLD PRINT1+7~
IBHOLD("IBDA" PRINT1+16*, PRINT1+18
IBIFN ASK+15*, ASK+19, ASK+37, ASK+47, PRINT1~, PRINT1+9, PRINT1+10, PRINT1+13, SUB1+1~, SUB1+12*
SUB1+13, SUB1+14, SUB1+19
IBNEW BILL2+1~, ASK+56*, ASK+61
>> IBNOTX SUB1+14
IBOK BILL2+1~, ASK+19*, ASK+22*, ASK+27, ASK+28*, ASK+30*
IBRESUB PRINT1~
IBSEL SUB1+1~, SUB1+4*, SUB1+5, SUB1+10*, SUB1+11*
IBSTAT BILL2+1~, ASK+15*, ASK+24, ASK+34, ASK+38
IBTEST BILL2+1~, ASK+1*, ASK+4, ASK+5, ASK+8, ASK+18, ASK+19, ASK+24, ASK+27, ASK+38
ASK+39, ASK+45
IBTXPRT PRINT1+7~, PRINT1+15*, PRINT1+20
IBU SUB1+1~, SUB1+12*, SUB1+21
IBV PRINT1+7~, PRINT1+15*
PRCASV PRINT1+7~
U ASK+15, ASK+25, ASK+33, ASK+35, ASK+37, ASK+38, ASK+56, ASK+61, PRINT1+11, PRINT1+13
, PRINT1+15, SUB1+10, SUB1+19, SUB1+20, SUB1+21, SUB1+22, SUB1+34
X SUB1+1~
Y BILL2+1~, BILL2+6, ASK+7, ASK+15, ASK+22, ASK+43, ASK+49*, ASK+51, SUB1+1~, SUB1+10
SUB1+11, SUB1+12, SUB1+27, SUB1+37
Z SUB1+1~, SUB1+13*, SUB1+15, SUB1+34*, SUB1+45*
ZTSK BILL2+1~, ASK+28*, PRINT1+7~
ZTSK(0 ASK+29
ZTSK(1 ASK+30
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 |  Naked Globals |  Local Variables  | All