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 |  Marked Items |  All
Print Page as PDF
Routine: IBCEP9B

Package: Integrated Billing

Routine: IBCEP9B


Information

IBCEP9B ;ALB/TMP - UPDATE OF PROVIDER ID FROM FILE UTILITIES ;14-NOV-00

Source Information

Source file <IBCEP9B.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 4 $$NOPUNCT^IBCEF  DISP^IBCEP4  (,$$DIR)^IBCEP9  $$EXPAND^IBTRE  
VA FileMan 4 IX^DIC  FILE^DICN  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZISC  ($$FMTE,$$NOW)^XLFDT  $$LOOKUP^XUSER  

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 IBCEP9  

Entry Points

Name Comments DBIA/ICR reference
FSETUP(X,IBPOS,P) ;Set up the subscripted array P with the correct data
; from record data in X, based on the parameters in array IBPOS for a
; fixed length data field format
; RETURNED: P(data index)=data value (pass by reference)
LOCK(IBINS) ; Lock Parent and Children up
DIRQ
CSV(X,IBX,IBDEL,IBQUOTES) ; Parse out fields from a delimited file
; X = data string in CSV format to be parsed
; IBX = array returned if passed by reference, subscripted by field #
; IBDEL = the delimiter
; If IBQUOTES=1, quoted strings are double quoted within a field
HDRQ
UNLOCK(IBINS) ; Unlock the family
HDR(PG,IBSTOP,IBHDT) ; Prints error report header, function returns # of lines used
; PG = the last page # printed
; IBHDT = the run date of the report
MANUAL ; Manual entry to get providers from VistA
READFILE ; Read records stored in ^TMP($J
DISP(Q,IBID,IBINS,IBPTYP,IBFT,IBCT,IBCU,IBPID,IBSRC) ; Display provider data
; includes ID data if IBID=1
; Q = SSN^provider name from input^provider name from file #200
; IBPID = array of id numbers to be stored
DIR1(DIR,Z,IBQUIT,IBQUIT1) ; Ask position
ADDID(IB200,IBINS,IBCU,IBFT,IBCT,IBPTYP,IBQUIT,IBQUIT1) ; Add ID record (file 355.9) if not already there
FLEN(IBX) ; Strip out trailing spaces from field
; FUNCTION returns stripped data
PRTERR ; Prints error report
FILED ; Prints all filed records
DSETUP(IBX,IBPOS,P) ; Set up the subscripted array P with the correct data
; from IBX(pc #) based on the parameters in array IBPOS
; RETURNED: P(data index)=data value (pass by reference)

External References

Name Field # of Occurrence
^%ZISC FILED+13
IX^DIC READFILE+13
FILE^DICN ADDID+6
$$GET1^DIQ MANUAL+6, MANUAL+7
^DIR FILED+10, HDR+6
$$NOPUNCT^IBCEF READFILE+13
DISP^IBCEP4 DISP+9
^IBCEP9 PRTERR+5
$$DIR^IBCEP9 DIR1+2, ADDID+9
$$EXPAND^IBTRE HDR+13, HDR+14
$$FMTE^XLFDT HDR+5
$$NOW^XLFDT HDR+5
$$LOOKUP^XUSER MANUAL+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,Q0(A)
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !,$S(Z="TID":"TAX ID NUMBER",Z="INST_ID":"INSTITUTIONAL ID",Z="PROF_ID":"PROFESSIONAL ID",Z="UPIN":"UPIN",1:"PROV ID"),": ",IBPID(Z)
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !!,$P($T(ERR+Z^IBCEP9),";;",2)_":"
  • Line Location: PRTERR+5
Function Call: WRITE
  • Prompt: " "_$S(Z2="CU":"CARE UNIT",Z2="CRED":"CREDENTIALS",Z2="TID":"TAX ID #",Z2="LIC_ST":"LICENSE STATE",Z2="LIC":"LICENSE",Z2="UPIN":"UPIN",1:Z2)_": "_Z3
  • Line Location: PRTERR+10
Function Call: WRITE
  • Prompt: !!," RECORDS SELECTED FOR FILING:"
  • Line Location: FILED+3
Function Call: WRITE
  • Prompt: !,$P(Z,U,1),?12,$P(Z,U,2),?52,$G(^TMP("IBPID_IN",$J,U,Z0,"INST_ID"))
  • Line Location: FILED+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FILED+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FILED+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: $J("",23)_"BATCH UPDATE OF PROVIDER ID REPORT"_$J("",13)_"PAGE: ",PG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$J("",(80-$L($P($G(IBHDT),U)))\2),$P($G(IBHDT),U)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$J("",(80-$L($P($G(IBHDT),U,2)))\2),$P($G(IBHDT),U,2)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!," INSURANCE CO: "_$P($G(^DIC(36,+$G(IBINS),0)),U)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"PROVIDER ID TYPE: "_$P($G(^IBE(355.97,+$G(IBPTYP),0)),U)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !," FORM TYPE: "_$$EXPAND^IBTRE(355.91,.04,$G(IBFT))
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !," CARE TYPE: "_$$EXPAND^IBTRE(355.91,.05,$G(IBCT))
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,$J("",7)_"CARE UNIT: "_IBCU
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,Z
  • Line Location: HDR+18
Routine Call
  • DIR
  • Line Location:
    • FILED+10
    • HDR+6
Routine Call
  • DIC
  • Line Location:
    • READFILE+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^IBA(355.9 - [#355.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] HDR+11, LOCK+3, LOCK+4, LOCK+6, LOCK+7, UNLOCK+1, UNLOCK+2, UNLOCK+4, UNLOCK+5
^IBA(355.9 - [#355.9] ADDID+3
^IBE(355.97 - [#355.97] HDR+12
^TMP("IBPID-ERR" READFILE+16*, READFILE+19*, PRTERR+3, PRTERR+5, PRTERR+7, PRTERR+8, PRTERR+9
^TMP("IBPID_IN" READFILE+21*, READFILE+22*, MANUAL+8*, FILED+1, FILED+5, FILED+6, FILED+7, FILED+8
^TMP($J READFILE+6
^VA(200 - [#200] HDR+5

Label References

Name Line Occurrences
$$FLEN DISP+5, FSETUP+13
$$HDR PRTERR+4, PRTERR+7, FILED+2, FILED+5
CSV READFILE+9
DIRQ DIR1+3
DSETUP READFILE+10
FSETUP READFILE+11
HDRQ HDR+6

Naked Globals

Name Field # of Occurrence
^( READFILE+6, PRTERR+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A DISP+4~, DISP+12*
CHILD LOCK+5~, LOCK+6*, LOCK+7, UNLOCK+3~, UNLOCK+4*, UNLOCK+5
D READFILE+2~, READFILE+13*
DA READFILE+2~
DD ADDID+1~, ADDID+6!
DIC READFILE+2~, READFILE+13*, ADDID+1~, ADDID+5*, ADDID+6!
DIC("DR" ADDID+5*
DIC(0 READFILE+13*, ADDID+5*
DIR DIR1~, DIR1+2, ADDID+1~, ADDID+9, FILED+10!, HDR+6!
DIR("A" ADDID+8*
DIR(0 ADDID+8*, FILED+10*, HDR+6*
DLAYGO ADDID+1~, ADDID+5*, ADDID+6!
DO ADDID+1~, ADDID+6!
FC CSV+5~, CSV+6*, CSV+9*, CSV+10, CSV+18
I CSV+5~, CSV+17*
IB FLEN+2~, FLEN+3*, FLEN+4*, FLEN+5
IB1 FLEN+2~, FLEN+3*, FLEN+4
IB200 ADDID~, ADDID+2
IBCRED MANUAL+1~, MANUAL+7*, MANUAL+8
IBCT READFILE+2~, READFILE+3*, READFILE+6*, DISP~, DISP+9, ADDID~, ADDID+3, ADDID+5, HDR+14
IBCU DISP~, DISP+10, ADDID~, ADDID+3, ADDID+5, HDR+16
IBDA MANUAL+1~, MANUAL+5*, MANUAL+6, MANUAL+7, MANUAL+8
IBDEL CSV~, CSV+6, CSV+8, CSV+13
>> IBDUZ HDR+5
IBFT READFILE+18, DISP~, DISP+9, ADDID~, ADDID+3, ADDID+5, HDR+13
IBHDT PRTERR+1~, PRTERR+4, FILED+2, HDR~, HDR+5*, HDR+9, HDR+10
IBID READFILE+17~, READFILE+18*, READFILE+19, DISP~, DISP+13
IBINS DISP~, DISP+9, ADDID~, ADDID+3, ADDID+5, HDR+11, LOCK~, LOCK+3, LOCK+4, LOCK+6
, UNLOCK~, UNLOCK+1, UNLOCK+2, UNLOCK+4
IBL DISP+4~, DISP+8*, DISP+9, DISP+10
IBLCT PRTERR+1~, PRTERR+4*, PRTERR+7*, FILED+2*, FILED+5*, FILED+6*, HDR+3~, HDR+4*, HDR+15*, HDR+16*
, HDR+17*, HDRQ
>> IBN ADDID+10*, ADDID+11
IBNAM MANUAL+1~, MANUAL+5*, MANUAL+8
IBP READFILE+2~, READFILE+14*, READFILE+21, READFILE+22
IBPAGE PRTERR+1~, PRTERR+4, PRTERR+7, FILED+2, FILED+5
IBPID DISP~
IBPID( DISP+14, DISP+15
IBPID("" DISP+13
IBPOS READFILE+8, READFILE+9, READFILE+10, READFILE+11, DSETUP~, FSETUP~
IBPOS( DSETUP+9, FSETUP+11
IBPOS("NAM" DSETUP+6, FSETUP+8
IBPOS("SSN" DSETUP+4, FSETUP+6
IBPTYP DISP~, DISP+9, ADDID~, ADDID+3, ADDID+5, HDR+12
IBQUIT READFILE+2~, READFILE+3*, READFILE+6, READFILE+7, DIR1~, DIR1+2, DIR1+4*, ADDID~, ADDID+9, LOCK+1~
, LOCK+2*, LOCK+4*, LOCK+6, LOCK+7*, LOCK+8
IBQUIT1 READFILE+3*, MANUAL+4*, DIR1~, DIR1+2, DIR1+3, DIR1+4*, ADDID~, ADDID+9
IBQUOTES CSV~, CSV+16
IBS READFILE+2~, READFILE+3*
IBSRC DISP~, DISP+6, DISP+7
IBSSN MANUAL+1~, MANUAL+6*, MANUAL+8
IBSTOP PRTERR+1~, PRTERR+4*, PRTERR+7, FILED+2*, FILED+5, FILED+10, HDR~, HDR+6*
>> IBVNAME READFILE+14*, READFILE+21
IBX READFILE+2~, READFILE+9, READFILE+10!, CSV~, DSETUP~, FLEN~, FLEN+3
IBX( CSV+10*, CSV+18*, DSETUP+5, DSETUP+7, DSETUP+11
IBX(0 CSV+14*
IO(0 READFILE+4
IOF PRTERR+2, FILED+11, HDR+6
IOSL PRTERR+7, FILED+5
IOST PRTERR+2, FILED+10, HDR+6
P READFILE+2~, READFILE+10, READFILE+11, DSETUP~, FSETUP~
P( READFILE+22, DSETUP+9*, DSETUP+11*, FSETUP+11*, FSETUP+13*
P("INST_ID" READFILE+18
P("PROF_ID" READFILE+18
P(1 READFILE+13*, READFILE+15, READFILE+16, READFILE+19, READFILE+21, DSETUP+4*, DSETUP+5*, FSETUP+6*, FSETUP+7*
P(2 READFILE+16, READFILE+19, READFILE+21, DSETUP+6*, DSETUP+7*, FSETUP+8*, FSETUP+9*
P3 READFILE+2~
PC CSV+5~, CSV+7*, CSV+8, CSV+13*, CSV+14
PG HDR~, HDR+5, HDR+6, HDR+7*, HDR+8
Q DISP~, DISP+5*, DISP+6, DISP+7, DSETUP+3~, DSETUP+8*, DSETUP+9, DSETUP+11, FSETUP+5~, FSETUP+10*
, FSETUP+11, FSETUP+13
Q0 READFILE+22*, DISP+4~
Q0( DISP+10*, DISP+12
Q0(1 DISP+6*
Q0(2 DISP+7*
QCT CSV+5~, CSV+12*, CSV+13
QM CSV+5~, CSV+6*, CSV+11, CSV+12, CSV+15
QM2 CSV+5~, CSV+6*, CSV+10, CSV+16, CSV+17
QM4 CSV+5~, CSV+6*, CSV+10
STR CSV+5~, CSV+8*, CSV+10, CSV+11, CSV+12, CSV+13*, CSV+15*, CSV+16, CSV+17*, CSV+18
TPC CSV+5~, CSV+6*, CSV+7, CSV+13, CSV+14
U READFILE+8, READFILE+9, READFILE+11, READFILE+14, READFILE+21, READFILE+22, MANUAL+5, MANUAL+8, DIR1+4, DISP+5
, DISP+6, DISP+7, DSETUP+5, DSETUP+7, DSETUP+11, FSETUP+7, FSETUP+9, FSETUP+13, PRTERR+8, FILED+5
, FILED+6, FILED+7, FILED+8, HDR+5, HDR+9, HDR+10, HDR+11, HDR+12, LOCK+3, UNLOCK+1
X READFILE+2~, READFILE+6*, READFILE+9, READFILE+11, READFILE+13*, CSV~, CSV+6, CSV+8, CSV+13, MANUAL+3
, MANUAL+4, DIR1+1~, FSETUP~, FSETUP+7, FSETUP+9, FSETUP+13, ADDID+1~, ADDID+2*, ADDID+3
Y READFILE+2~, READFILE+14, READFILE+15, MANUAL+4*, MANUAL+5, DIR1+1~, DIR1+2*, DIR1+3*, DIR1+4*, DIR1+5*
, DIRQ, ADDID+1~, ADDID+3*, ADDID+4, ADDID+7, ADDID+9*, ADDID+10, HDR+6
Z READFILE+2~, DIR1~, DIR1+4, DISP+4~, DISP+14*, DISP+15, DSETUP+3~, DSETUP+4*, DSETUP+5, DSETUP+6*
, DSETUP+7, DSETUP+9*, DSETUP+10, DSETUP+11, FSETUP+5~, FSETUP+6*, FSETUP+7, FSETUP+8*, FSETUP+9, FSETUP+11*
, FSETUP+12, FSETUP+13, FLEN+2~, FLEN+4*, PRTERR+1~, PRTERR+5*, PRTERR+7, PRTERR+8, PRTERR+9, FILED+7*
, FILED+8, HDR+3~, HDR+17*, HDR+18
Z0 DSETUP+3~, DSETUP+5*, DSETUP+7*, DSETUP+11*, PRTERR+1~, PRTERR+6*, PRTERR+7*, PRTERR+8, PRTERR+9, FILED+4*
, FILED+5*, FILED+6, FILED+7, FILED+8
Z1 PRTERR+1~, PRTERR+8*, PRTERR+9
Z2 PRTERR+1~, PRTERR+9*, PRTERR+10
Z3 PRTERR+1~, PRTERR+9*, PRTERR+10
>> ZTQUEUED FILED+12, FILED+13
>> ZTREQ FILED+12*

Marked Items

Name Field # of Occurrence
$T(ERR+Z^IBCEP9 PRTERR+5
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 |  Marked Items |  All