Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
READFILE ; Read records stored in ^TMP($J
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
MANUAL ; Manual entry to get providers from VistA
DIR1(DIR,Z,IBQUIT,IBQUIT1) ; Ask position
DIRQ
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
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)
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)
FLEN(IBX) ; Strip out trailing spaces from field
; FUNCTION returns stripped data
ADDID(IB200,IBINS,IBCU,IBFT,IBCT,IBPTYP,IBQUIT,IBQUIT1) ; Add ID record (file 355.9) if not already there
PRTERR ; Prints error report
FILED ; Prints all filed records
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
HDRQ
LOCK(IBINS) ; Lock Parent and Children up
UNLOCK(IBINS) ; Unlock the family

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call