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

Package: Integrated Billing

Routine: IBCEP9


Information

IBCEP9 ;ALB/TMP - MASS UPDATE OF PROVIDER ID FROM FILE OR MANUAL ;08-NOV-00

Source Information

Source file <IBCEP9.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ($$FTG,$$PWD,CLOSE)^%ZISH  $$EC^%ZOSV  ^%ZTER  ^%ZTLOAD  
Integrated Billing 4 $$PPTYP^IBCEP0  $$CAREUN^IBCEP3  ($$ADDID,$$DIR1,$$LOCK,DISP,MANUAL,PRTERR,READFILE,UNLOCK)^IBCEP9B  COPY^IBCEPCID  
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^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 IBCEP6  IBCEP9B  

Entry Points

Name Comments DBIA/ICR reference
EN ; Get parameters and mass input provider id by ins co
1 ; Select INSURANCE COMPANY NAME:
2 ; get data source
21 ; get parameters for file type
3 ; select external file name
4 ; select Provider ID Type
5 ; select Forms Type
6 ; select Bill Care Type
7 ; get Care Unit
P1 ;
ENQ ; Print report, exit
DUP(IBPRV,IBINS,IBCU,IBFT,IBCT,IBPTYP) ; Check if provider id record already exists in file 355.9
ERREOF ; Traps EOF error on file read for non-DSM systems
CLOSE(IBOPEN) ; Close file
DIR(DIR,IBQUIT,IBQUIT1,X,IBW1,IBW2) ; Standard call to ^DIR
; Inputs DIR array
; Returns IBQUIT,IBQUIT1,X if passed by reference
; AND
; FUNCTION returns the value of Y
; IBW1 = 1 if initial write ! should be done
; IBW2 = 1 if last write ! should be done
ERR ; Error list

External References

Name Field # of Occurrence
^%ZIS ENQ+8
HOME^%ZIS ENQ+9
$$FTG^%ZISH 3+17
$$PWD^%ZISH 3+5
CLOSE^%ZISH CLOSE+1
$$EC^%ZOSV ERREOF+1
^%ZTER ERREOF+3
^%ZTLOAD ENQ+9
^DIC 1+4
^DIE P1+9, P1+41
^DIK P1+11, P1+40
^DIR DIR+8
$$PPTYP^IBCEP0 4+4
$$CAREUN^IBCEP3 6+9
$$ADDID^IBCEP9B P1+8, P1+38
$$DIR1^IBCEP9B 7+21, 7+27, 7+36, 7+43
$$LOCK^IBCEP9B 1+7
DISP^IBCEP9B P1+4, P1+25
MANUAL^IBCEP9B 7+11
PRTERR^IBCEP9B ENQ+14
READFILE^IBCEP9B 7+48
UNLOCK^IBCEP9B 1+9, 2+5, ENQ+3
COPY^IBCEPCID ENQ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Unable to lock all associated insurance companies.",!,"Please try again later.",!!
  • Line Location: 1+11
Function Call: WRITE
  • Prompt: !,"FILE ",IBFILEP,IBFILEN," COULD NOT BE FOUND OR COULD NOT BE OPENED",!
  • Line Location: 3+18
Function Call: WRITE
  • Prompt: !!,$J("",22),"***** WARNING *****",!," YOU WILL NEED TO MANUALLY ENTER THE CARE UNIT FOR EACH PROVIDER",!!
  • Line Location: 7+8
Function Call: WRITE
  • Prompt: !
  • Line Location: 7+21
Function Call: WRITE
  • Prompt: !
  • Line Location: 7+34
Function Call: WRITE
  • Prompt: !,"PROVIDER ID: ",IBID
  • Line Location: P1+26
Routine Call
  • %ZIS
  • Line Location:
    • ENQ+8
Routine Call
  • %ZIS
  • Line Location:
    • ENQ+9
Routine Call
  • DIC
  • Line Location:
    • 1+4
Routine Call
  • DIE
  • Line Location:
    • P1+9
    • P1+41
Routine Call
  • DIR
  • Line Location:
    • DIR+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.9 - [#355.9] Classic Fileman Calls
^DIC(36 - [#36] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(355.9 - [#355.9] P1+10, P1+15, DUP+1
^IBE(355.97 - [#355.97] 4+4
^TMP("IBPID" EN+5!, ENQ+15!
^TMP("IBPID-ERR" EN+5!, P1+31*, P1+34*, ENQ+5, ENQ+15!
^TMP("IBPID_IN" EN+5!, P1+1, P1+16*, P1+17!, P1+18!, P1+22, P1+32*, ENQ+5, ENQ+15!
^TMP($J 3+16!, 3+17

Label References

Name Line Occurrences
$$DIR 2+4, 2+10, 21+4, 21+9, 21+13, 3+6, 3+13, 4+5, 5+4, 6+4
, 7+5, P1+13, P1+28
$$DUP P1+6
1 1+8, 2+5
2 2+8, 21+5, 3+3, 3+7, 3+14
21 21+7
3 3+18, 4+6
4 2+13, 5+5
5 5+6, 6+5
6 6+6, 7+3, 7+11, 7+13
7 7+13
CLOSE ERREOF+2
ENQ 1+1, 1+5, 2+8, 21+1, 3+1, 4+1, 5+1, 6+1, 7+1, P1+1
, ERREOF+2

Naked Globals

Name Field # of Occurrence
^( P1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ENQ+6~, ENQ+8*
A EN+1~
DA EN+1~, P1+9*, P1+11*, P1+40*, P1+41*, DIR+7~
DIC EN+1~, 1+4*
DIC("S" 1+3*
DIC(0 1+4*
DIE EN+1~, P1+9*, P1+41*
DIK EN+1~, P1+11*, P1+40*
DIR EN+1~, 2+4, 2+10, 21+4, 21+9, 21+13, 3+6, 3+13, 4+5, 5+4
, 6+4, 7+5, 7+21, 7+27, 7+36, 7+43, P1+13, P1+28, DIR~, DIR+8!
DIR("?" 3+12*, 7+42*, DIR+10*
DIR("A" 2+3*, 2+9*, 21+3*, 21+8*, 21+12*, 3+5*, 3+10*, 7+19*, 7+25*, 7+34*
, 7+40*, P1+12*, P1+27*
DIR("B" 2+3*, 21+3*, 21+8*, 21+12*, 3+5*, 4+4*, 5+3*, 6+3*, 7+39*, P1+12*
, P1+27*
DIR(0 2+2*, 2+9*, 21+3*, 21+8*, 21+12*, 3+4*, 3+9*, 4+3*, 5+3*, 6+3*
, 7+4*, 7+20*, 7+26*, 7+35*, 7+41*, P1+12*, P1+27*
DIROUT DIR+7~, DIR+11
DR EN+1~, P1+9*, P1+41*
DTOUT DIR+7~, DIR+12
DUOUT DIR+7~, DIR+12
DUZ ENQ+7
IBCND EN+2~, 6+9*, 7+3, 7+13
IBCT EN+2~, 6+7*, 6+9, P1+4, P1+6, P1+8, P1+25, P1+38, DUP~, DUP+1
IBCU EN+2~, 7+7*, 7+8, P1+4, P1+6, P1+8, P1+25, P1+38, DUP~, DUP+1
IBDELIM EN+2~
IBDUZ ENQ+6~, ENQ+7*
IBERROR ERREOF+1~*, ERREOF+2
IBFILE EN+2~, 3+19*
IBFILEN EN+2~, 3+15*, 3+17, 3+18
IBFILEP EN+2~, 3+8*, 3+17, 3+18
IBFORMAT EN+2~
IBFT EN+3~, 5+7*, 6+9, 7+17, 7+18, 7+32, 7+33, P1+4, P1+6, P1+8
, P1+23, P1+25, P1+38, DUP~, DUP+1
IBID P1+15*, P1+16, P1+17, P1+21~, P1+23*, P1+26, P1+31, P1+37, P1+41
IBINFILE EN+3~
IBINS EN+3~, 1+6*, 1+7, 1+8, 1+9, 1+10*, 2+5, 4+4, 6+9, P1+4
, P1+6, P1+8, P1+25, P1+38, ENQ+1, ENQ+2, ENQ+3, DUP~, DUP+1
IBL EN+3~
IBN EN+3~, P1+6*, P1+7, P1+8*, P1+9, P1+10, P1+11, P1+15, P1+38*, P1+39
, P1+40, P1+41
IBOK EN+3~, P1+20*, P1+30*, P1+35
IBOPEN EN+3~, ERREOF+2, CLOSE~, CLOSE+1*
IBPOS EN+3~, 21+6*, 21+7, 21+11*, 21+15*, 7+15, 7+31, 7+34, 7+40
IBPOS( 7+24*, 7+29*, 7+39*, 7+41, 7+45*
IBPRV DUP~, DUP+1
IBPT EN+3~
IBPTYP 4+7*, 6+9, P1+4, P1+6, P1+8, P1+25, P1+38, DUP~, DUP+1
IBQUIT EN+3~, EN+6*, 1+1, 1+7*, 1+8, 1+10*, 2+4, 2+8, 2+10, 21+1
, 21+4, 21+9, 21+13, 3+1, 3+6, 3+13, 4+1, 4+5, 5+1, 5+4
, 6+1, 6+4, 7+1, 7+5, 7+21, 7+27, 7+36, 7+43, P1+1, P1+7
, P1+8, P1+13, P1+14*, P1+18, P1+38, P1+39, DIR~, DIR+9*, DIR+11*
IBQUIT1 EN+4~, 1+2*, 2+1*, 2+4, 2+5, 2+10, 21+2*, 21+4, 21+5, 21+7
, 21+9, 21+10, 21+13, 21+14, 3+2*, 3+6, 3+7, 3+13, 3+14, 4+2*
, 4+5, 4+6, 5+2*, 5+4, 5+5, 6+2*, 6+4, 6+5, 7+2*, 7+3
, 7+5, 7+6, 7+11, 7+13, 7+14, 7+21, 7+22, 7+27, 7+28, 7+36
, 7+37, 7+43, 7+44, 7+47, P1+13, DIR~, DIR+9*, DIR+11*, DIR+12*
IBQUOTES EN+4~
IBRA EN+4~, 3+16!
IBS EN+4~
IBSA EN+4~
IBSA("*" 3+11*
IBSRC EN+4~, 2+6*, 2+13, 3+3, 4+4, 7+11, 7+13, P1+3, P1+4, P1+23
, P1+25, P1+36
IBSTART EN+4~
IBVERIFY EN+4~, 2+6*, 2+7*, 2+8, 2+11*, P1+24
IBVNAME EN+4~
IBW1 DIR~, DIR+8
IBW2 DIR~, DIR+8
IBX P1+21~, P1+22*, P1+31, P1+34
IBX( P1+34
IBX("INST_ID" P1+23
IBX("PROF_ID" P1+23
IO 3+19, ENQ+13
IO("Q" ENQ+9!
IO(0 ENQ+16
POP EN+1~, ENQ+8
Q EN+1~, P1+1*, P1+4, P1+25
Q0 EN+1~
U 21+11, 21+15, 3+8, 3+15, 4+4, 4+7, 5+7, 6+6, 6+7, 7+7
, 7+15, 7+17, 7+19, 7+20, 7+24, 7+25, 7+26, 7+29, 7+31, 7+32
, 7+34, 7+35, 7+39, 7+40, 7+41, 7+45, P1+10, P1+11, P1+15, P1+16
, P1+17, P1+18, P1+31, P1+32, P1+34
X EN+1~, 7+16~, 7+21*, 7+23, 7+24, 7+27*, 7+29, 7+36*, 7+38, 7+39
, DIR~
Y EN+1~, 1+5, 1+6, 2+4*, 2+5, 2+6, 2+7, 2+10*, 2+11, 21+4*
, 21+6, 21+9*, 21+11, 21+13*, 21+15, 3+6*, 3+8, 3+13*, 3+15, 3+17~*
, 3+18, 4+5*, 4+6, 4+7, 5+4*, 5+6, 5+7, 6+4*, 6+6, 6+7
, 7+5*, 7+7, 7+43*, 7+45, P1+10, P1+13*, P1+14, P1+28*, P1+29, DIR+13
Y3 EN+1~, 3+16!
Z EN+1~, 4+4*, 7+14*, 7+17*, 7+18, 7+19, 7+20, 7+21, 7+24, 7+25
, 7+26, 7+27, 7+29, 7+32*, 7+33, 7+34, 7+35, 7+36, 7+39, 7+40
, 7+41, 7+43, 7+45, P1+1*, P1+22
Z0 EN+1~, P1+1*, P1+6, P1+8, P1+16, P1+17, P1+18*, P1+22, P1+32, P1+38
Z1 P1+33~, P1+34*
ZTDESC ENQ+6~, ENQ+12*
ZTRTN ENQ+6~, ENQ+10*
ZTSAVE ENQ+6~
ZTSAVE("IB*" ENQ+11*
ZTSAVE("^TMP(""IBPID-ERR"",$J," ENQ+10*
ZTSAVE("^TMP(""IBPID_IN"",$J," ENQ+11*
ZTSK ENQ+9!
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