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

Package: Integrated Billing

Routine: IBCIUT1


Information

IBCIUT1 ;DSI/SLM - MISC UTILITIES FOR CLAIMSMANAGER INTERFACE ;21-DEC-2000

Source Information

Source file <IBCIUT1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 6 $$ICD9^IBACSV  F^IBCEF  $$BILLSPEC^IBCEU3  UPDT^IBCIADD1  (ST1,ST2)^IBCIST  CAT^IBCIUT6  
VA FileMan 4 ^DIC  (,FILE)^DIE  ^DIK  ^DIR  
Kernel 1 $$NOW^XLFDT  

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

Package Total Caller Graph
Integrated Billing 26 IB20P203  IBCB2  IBCC  IBCIADD1  IBCIL0  IBCIMG  IBCIMSG  IBCIMSG1  
IBCISC  IBCIST  IBCIUT2  IBCIUT6  IBCIUT7  IBCIWK  IBCSC1  IBCSCH  
IBCSCP  IBOSTUS  IBXS3  IBXS6  IBXS7  IBXSC3  IBXSC6  IBXSC61  
IBXSC7  IBXSC74  

Entry Points

Name Comments DBIA/ICR reference
NOW ;get current (or specific) date/time and convert to ClaimsManager format
NOW1(X) ;change date from mmddyyyy to yyyymmdd
NAMSP ;split name into three pieces LAST^FIRST^MIDDLE
CM(IBIFN) ;
; ClaimsManager environment check for IB routines. Checks to make
; sure CM is running and that the bill is a HCFA 1500 form type bill.
; Any other condition will return false.
CK0() ;checks to see if running ClaimsManager
CK1(IBIFN) ;checks to see if it's a HCFA 1500 claim form
CK2() ;checks to see if ClaimsManager is working ok
ST(IBCIST) ;set status field to ibcist
STAT(IBIFN) ;return value of status field in 351.9
LITMS(IBIFN) ; Returns the number of line items
LSTA(IBCISNT) ; return the correct Ingenix line status based on the value
; of IBCISNT - where is the interface called from?
RPHY(IBIFN) ; Attending/rendering physician information
RPHYX ;
CKNER() ;check for no errors
CKLI(IBIFN) ;check for line items
CKFT(IBIFN) ; Check for a form type change by the user
CKFTX ;
DIAG(IBIFN) ;return array of diagnosis codes for each line item
EDATP(IBIFN,COMMCHG) ;edit assigned to person (ATP)
EDATPX ;
; Display a press return to continue message if coming in from
; the Listman screens

External References

Name Field # of Occurrence
^DIC EDATP+41
^DIE EDATP+19, EDATP+26
FILE^DIE ST+8
^DIK CKFT+14
^DIR EDATPX+3
$$ICD9^IBACSV DIAG+16
F^IBCEF LITMS+3, RPHY+15, DIAG+6, DIAG+7
$$BILLSPEC^IBCEU3 RPHY+19
UPDT^IBCIADD1 CKLI+2
ST1^IBCIST CKFT+7
ST2^IBCIST CKFT+13
CAT^IBCIUT6 EDATP+59
$$NOW^XLFDT NOW+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?2,"Please enter the person to whom this bill should be assigned.",!
  • Line Location: EDATP+14
Function Call: WRITE
  • Prompt: !!!?2,"Claim ",$P($G(^DGCR(399,IBIFN,0)),U,1)," has been assigned to "
  • Line Location: EDATP+31
Function Call: WRITE
  • Prompt: $P($G(^VA(200,IBCIATPN,0)),U,1),"."
  • Line Location: EDATP+32
Function Call: WRITE
  • Prompt: !!!?2,"If you want to send a MailMan message about this bill assignment"
  • Line Location: EDATP+38
Function Call: WRITE
  • Prompt: !?2,"to a specific Mail Group, then please choose that Mail Group here.",!
  • Line Location: EDATP+39
Function Call: WRITE
  • Prompt: !!?2,"A MailMan message has been sent to "
  • Line Location: EDATP+67
Function Call: WRITE
  • Prompt: CONMSG(X)
  • Line Location: EDATP+69
Function Call: WRITE
  • Prompt: !?30,"and to "
  • Line Location: EDATP+69
Function Call: WRITE
  • Prompt: "."
  • Line Location: EDATP+70
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDATPX+3
Routine Call
  • DIC
  • Line Location:
    • EDATP+41
Routine Call
  • DIE
  • Line Location:
    • EDATP+19
    • EDATP+26
Routine Call
  • DIE
  • Line Location:
    • ST+8
Routine Call
  • DIR
  • Line Location:
    • EDATPX+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] Classic Fileman Calls
^IBA(351.9 - [#351.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] CK1+4, EDATP+31
^IBA(351.9 - [#351.9] STAT+2, CKLI+2, CKLI+3, CKFT+7, CKFT+12, CKFT+13, EDATP+13, EDATP+25, EDATP+28
^IBE(350.9 - [#350.9] CK0+3, CK2+4
^TMP( DIAG+5!, DIAG+16*, DIAG+17*
^TMP("IBXSAVE" LITMS+2!, DIAG+3!, DIAG+18!
^VA(200 - [#200] RPHY+24, EDATP+18, EDATP+32, EDATP+63

Label References

Name Line Occurrences
$$CK0 CM+7, CKFT+4
$$CK1 CM+7, CKFT+7, CKFT+12
CKFTX CKFT+7
EDATPX EDATP+56
RPHYX RPHY+17, RPHY+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODES DIAG+2~, DIAG+12*, DIAG+13, DIAG+14
COMMCHG EDATP~
CONMSG EDATP+12~
CONMSG( EDATP+69
CONMSG(1 EDATP+63*
CONMSG(2 EDATP+64*
CT DIAG+2~, DIAG+10*, DIAG+17
D EDATP+11~
D0 CKFT+1~, EDATP+11~
DA CKFT+1~, CKFT+14*, EDATP+11~, EDATP+17*, EDATP+26*
DATE NOW1+1~, NOW1+3*, NOW1+4
DAY NOW+8~, NOW+10*, NOW+12*, NOW+15, NOW+16
DB CKFT+1~
DC CKFT+1~, DIAG+2~
DC( DIAG+14*, DIAG+15
DD NOW1+1~, NOW1+2*, NOW1+3
DE CKFT+1~
DH CKFT+1~
DI CKFT+1~
DIC CKFT+1~, EDATP+11~, EDATP+40*
DIC("A" EDATP+40*
DIC(0 EDATP+40*
DIE CKFT+1~, EDATP+11~, EDATP+17*, EDATP+26*
DIEL CKFT+1~
DIFLD CKFT+1~
DIG CKFT+1~
DIH CKFT+1~
DIK CKFT+2~, CKFT+14*
DIPA CKFT+2~
DIR EDATPX+3!
DIR("A" EDATPX+3*
DIR("T" EDATPX+3*
DIR(0 EDATPX+3*
DIV CKFT+2~
DK CKFT+2~
DL CKFT+2~
DM CKFT+2~
DNUM DIAG+2~, DIAG+13*, DIAG+14, DIAG+15, DIAG+16, DIAG+17
DP CKFT+2~
DQ CKFT+2~
DR CKFT+2~, EDATP+11~, EDATP+18*, EDATP+26*
DUZ EDATP+16, EDATP+26, EDATP+55, EDATP+59
FDA ST+9!
FDA( ST+7*
GRPONLY EDATP+12~, EDATP+55*, EDATP+56, EDATP+59, EDATP+63
HOUR NOW+8~, NOW+14*, NOW+15
I EDATP+11~
IBCIATPN EDATP+11~, EDATP+28*, EDATP+32, EDATP+55, EDATP+59, EDATP+63
IBCIATPO EDATP+11~, EDATP+13*, EDATP+15, EDATP+55
IBCIDEF EDATP+11~, EDATP+15*, EDATP+16*, EDATP+18
IBCIERR CKFT+3~
IBCIGRP EDATP+12~, EDATP+42*, EDATP+43*, EDATP+56, EDATP+59, EDATP+64
IBCIGRPN EDATP+12~, EDATP+42*, EDATP+43*, EDATP+64
>> IBCIMSG DIAG+4, DIAG+10, DIAG+17
IBCIREDT CKFT+3~
IBCISNT LSTA~, LSTA+2, CKFT+3~, CKFT+13*
IBCIST ST~, ST+6, ST+7
IBCIST1 STAT+1~, STAT+2*, STAT+3
IBCISTAT CKFT+3~
IBCIY CKNER+2~*, CKNER+4*, CKNER+5
>> IBCIZ("RL" CKNER+3, CKNER+4
IBIFN CM~, CM+7, CK1~, CK1+4, ST+5, ST+7, STAT~, STAT+2, LITMS~, LITMS+3
, RPHY~, RPHY+15, RPHY+19, CKLI~, CKLI+2, CKLI+3, CKFT~, CKFT+7, CKFT+12, CKFT+13
, CKFT+14, DIAG~, DIAG+5, DIAG+6, DIAG+7, DIAG+16, DIAG+17, EDATP~, EDATP+13, EDATP+17
, EDATP+25, EDATP+26, EDATP+28, EDATP+31, EDATP+59
IBPRV RPHY+13~, RPHY+16*, RPHY+17, RPHY+19, RPHY+22, RPHY+23, RPHY+24, RPHY+28
IBX CK1+3~, CK1+5*, CK1+6
IBXARRAY LITMS+1~, RPHY+13~, DIAG+1~
IBXARRY LITMS+1~, RPHY+13~, DIAG+1~
IBXDATA LITMS+1~, RPHY+13~, RPHY+16, RPHY+18, DIAG+1~
IBXDATA( DIAG+10, DIAG+11, DIAG+12
IBXDATA("" LITMS+4
IBXERR LITMS+1~, RPHY+13~, DIAG+1~
IBY CK1+3~, CK1+4*, CK1+5
IBZDC1 DIAG+2~
IBZDC1( DIAG+15
ICDIEN DIAG+2~, DIAG+15*, DIAG+16
IENS ST+7*, ST+9!
LITEM CKLI+1~, CKLI+3*, CKLI+4
LITM DIAG+2~, DIAG+10*, DIAG+11*, DIAG+12, DIAG+16, DIAG+17
LSEG CKNER+2~*, CKNER+3*, CKNER+4
MIN NOW+8~, NOW+14*, NOW+15
MM NOW1+1~, NOW1+2*, NOW1+3
MON NOW+8~, NOW+10*, NOW+11*, NOW+15, NOW+16
NAME NAMSP+6~
NAME(1 NAMSP+7*, NAMSP+10
NAME(2 NAMSP+7*, NAMSP+8, NAMSP+9*, NAMSP+10
NAME(3 NAMSP+8*, NAMSP+10
SEC NOW+8~, NOW+14*, NOW+15
SUB1 DIAG+2~, DIAG+4*, DIAG+5, DIAG+16, DIAG+17
U CK0+3, CK1+4, CK2+4, STAT+2, RPHY+16, RPHY+18, RPHY+19, RPHY+23, RPHY+24, RPHY+28
, RPHY+29, CKNER+4, CKLI+2, CKLI+3, CKFT+13, DIAG+12, DIAG+15, DIAG+16, DIAG+17, EDATP+13
, EDATP+18, EDATP+25, EDATP+28, EDATP+31, EDATP+32, EDATP+43, EDATP+63
>> VALMHDR EDATPX+3
X NOW+9*, NOW+10, NOW+13, NOW+14, NOW1~, NOW1+2, NAMSP+7, CKFT+2~, EDATP+11~, EDATP+68*
, EDATP+69*
Y NOW+15*, NOW+16*, NAMSP+6*, NAMSP+10*, CM+5~, CM+6*, CM+7*, CM+8, CK0+2~, CK0+3*
, CK0+4, CK2+3~, CK2+4*, CK2+5, RPHY+13~, RPHY+14*, RPHY+18*, RPHY+19*, RPHY+23*, RPHY+24*
, RPHY+28*, RPHY+29*, RPHYX+1, CKFT+2~, EDATP+11~, EDATP+43
YEAR NOW+8~, NOW+10*, NOW+15, NOW+16
YY NOW1+1~, NOW1+2*, NOW1+3
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