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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBSDU

Package: Integrated Billing

Routine: IBSDU


Information

IBSDU ;ALB/TMP - ACRP API UTILITIES ;16-SEP-97

Source Information

Source file <IBSDU.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Scheduling 3 $$SDAPI^SDAMA301  ($$ER,$$GETOE,GETGEN)^SDOE  (ACTIVE,CLOSE,DATE,FILTER,INDEX,OPEN,PAT,SCAN,SCANCB,VISIT)^SDQ  
Integrated Billing 1 $$EPTR^IBSDU  
Master Patient Index VistA 1 ($$GETICN,$$IFLOCAL)^MPIF001  

Caller Graph

Caller Graph Total: 54

Package Total Caller Graph
Integrated Billing 52 IBACUS2  IBAECU  IBAECU3  IBAMTEDU  IBAMTS2  IBAMTV1  IBATLM1B  IBATLM3A  
IBCC1  IBCCPT  IBCD2  IBCEMMR  IBCEP9A  IBCOMC1  IBCONS2  IBCONS3  
IBCOPV  IBCSC4D  IBCSCE  IBCU3  IBCU71  IBCU81  IBCU82  IBECEAU  
IBEFUNC  IBJD1  IBJDF2  IBJDI21  IBJDI3  IBJDI41  IBJDI5  IBJDI7  
IBJDIPR  IBJTRA1  IBNCPDP2  IBOCNC1  IBOEMP1  IBOVOP  IBOVOP1  IBRBUL  
IBRSUTL  IBSDU  IBTOBI  IBTOBI4  IBTRE20  IBTRED  IBTRKR4  IBTRKR41  
IBTRPR01  IBTUBOA  IBTUBOU  IBTUTL4  
Accounts Receivable 1 RCXVUTIL  
Automated Information Collection System 1 IBDFRPC3  

Entry Points

Name Comments DBIA/ICR reference
CLOSE(IBQUERY) ; Close the query
CLOSEQ
PAT ; Verify patient
VIS ; Verify visit
EPTR(IBOE) ; Function returns extended pointer for encounter (IBOE) 0-node
SCE(IBOE,PC,NODE,IBZXERR) ; Returns the specific piece or entire node of the enctr
; NODE = the node to return ... if undefined, the 0-node is assumed
; If PC is null or undefined, the whole node is returned, otherwise
; just the PC-piece is returned
; IBZXERR = the name of the array where errors should be passed back in
; (pass in quotes I.E.: "IBERR"). If no name passed, errors are
; not returned
SCAN(IBINDX,IBVAL,IBFILTER,IBCBK,IBCLOSE,IBQUERY,IBDIR,IBZXERR) ; Scan encountrs
; *** NOTE *** When using this call, the variable passed as IBQUERY
; must be newed or killed in the calling program
; IBINDX = index name property of the query object
; IBVAL = array of data elements for start/end of search
; IBVAL("DFN") = patient DFN
; IBVAL("BDT") = begin date
; IBVAL("EDT") = end date
; IBVAL("VIS") = encounter file ien
; IBFILTER = the executable code to use to screen entries
; IBCBK = the executable scan callback code to create the result set
; IBCLOSE = Flag that says whether or not to close the QUERY object
; 1 = Perform close 0 or null = Do not close object
; IBQUERY = the # of the current query, if not a new query. If passed
; by reference and query closed, this variable will be nulled
; IBDIR = the direction of the scan (optional)
; null, undefined or FORWARD : Scan forwards
; BACKWARD : Scan backwards
; IBZXERR = the name of the error array to be returned (or none if null)
  • ICR #2351
    • Status: Active
    • Usage: Private
    NEXT(IBDFN) ; Returns the patient's Next Appointment
    ; ARRAYS IN DFN MUST BE LOCAL or ^TMP or ^UTILITY
    ; pass in single DFN or an open array reference (local or global)
    ; for array of patients, array will = next appt
    ; if '$d(array(dfn)) returned then unknown for that patient
    ; Unknown - cannot be determined, N/A - patient has none
    ; Pass DATA by reference for list or $$ return for single
    ;
    DISND(IBOE,IBOE0,PC,NODE) ; Returns the specific piece or all pieces of "DIS"
    ; (disposition) of the PATIENT file entry for the encounter IBOE
    ; NODE = the node to return ... if undefined, the 0-node is assumed
    ; If PC is null or undefined, the whole node is returned, otherwise
    ; just the PC-piece is returned
    ; IBOE0 = 0-node of encounter file (optional)
    DATE ; Verify date range
    SCEQ
    NEXTQ
    LAST(IBDFN) ; Returns the patient's Last Appointment
    ; ARRAYS IN DFN MUST BE LOCAL or ^TMP or ^UTILITY
    ; pass in single DFN or an open array reference (local or global)
    ; for array of patients, array will = last appt
    ; if '$d(array(dfn)) returned then unknown for that patient
    ; Unknown - cannot be determined, N/A - patient has none
    ;
    SETINDX(IBQUERY,IBINDX) ;
    LASTQ

    External References

    Name Field # of Occurrence
    $$EPTR^IBSDU DISND+9
    $$GETICN^MPIF001 LAST+10, LAST+11, NEXT+11, NEXT+12
    $$IFLOCAL^MPIF001 LAST+10, LAST+11, NEXT+11, NEXT+12
    $$SDAPI^SDAMA301 LAST+20, NEXT+20
    $$ER^SDOE EPTR+1
    $$GETOE^SDOE SCE+9
    GETGEN^SDOE SCE+10
    ACTIVE^SDQ SCAN+29, SCAN+31
    CLOSE^SDQ CLOSE+3
    DATE^SDQ DATE+1
    FILTER^SDQ SCAN+27
    INDEX^SDQ SCAN+26
    OPEN^SDQ SCAN+25
    PAT^SDQ PAT+1
    SCAN^SDQ SCAN+33
    SCANCB^SDQ SCAN+28
    VISIT^SDQ VIS+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] DISND+9
    ^TMP("DIERR" SCAN+22!, SCAN+35!, SCEQ!
    ^TMP($J LAST+8!, LAST+21, LAST+22, LASTQ!, NEXT+9!, NEXT+21, NEXT+22, NEXTQ!

    Label References

    Name Line Occurrences
    $$SCE DISND+8
    CLOSE SCAN+34
    CLOSEQ CLOSE+2
    DATE SETINDX+1, SETINDX+2
    LASTQ LAST+9, LAST+10, LAST+12
    NEXTQ NEXT+10, NEXT+11, NEXT+13
    PAT SETINDX+1, SETINDX+3
    SCEQ SCE+9
    SETINDX SCAN+30
    VIS SETINDX+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DATA DISND+6~, DISND+9*, DISND+10*, DISND+11, LAST+8~, LAST+9*, LAST+10*, LAST+12*, LAST+20*, LAST+21*
    , LAST+22*, LASTQ+1, NEXT+9~, NEXT+10*, NEXT+11*, NEXT+13*, NEXT+20*, NEXT+21*, NEXT+22*, NEXTQ+1
    DFN LAST+8~, LAST+11*, LAST+22*, NEXT+9~, NEXT+12*, NEXT+22*
    DT LAST+13, NEXT+14
    IBARRAY LAST+8~, LAST+20, NEXT+9~, NEXT+20
    IBARRAY("FLDS" LAST+16*, NEXT+17*
    IBARRAY("MAX" LAST+17*, NEXT+18*
    IBARRAY("PURGED" LAST+18*
    IBARRAY("SORT" LAST+19*, NEXT+19*
    IBARRAY(1 LAST+13*, NEXT+14*
    IBARRAY(3 LAST+14*, NEXT+15*
    IBARRAY(4 LAST+15*, NEXT+16*
    IBCBK SCAN~, SCAN+28
    IBCLOSE SCAN~, SCAN+34
    IBDFN LAST~, LAST+9, LAST+10, LAST+11, LAST+12, LAST+15, LAST+17, LAST+21, LAST+22, NEXT~
    , NEXT+10, NEXT+11, NEXT+12, NEXT+13, NEXT+16, NEXT+18, NEXT+21, NEXT+22
    IBDIR SCAN~, SCAN+32*, SCAN+33
    IBERROR CLOSE+1~
    IBFILTER SCAN~, SCAN+27
    IBINDX SCAN~, SCAN+26, SCAN+30, SETINDX~, SETINDX+1, SETINDX+2, SETINDX+3, SETINDX+4
    IBOE EPTR~, EPTR+1, SCE~, SCE+9, SCE+10, DISND~, DISND+8, DISND+9
    IBOE0 DISND~, DISND+6~, DISND+8*, DISND+9
    IBQUERY SCAN~, SCAN+21, SCAN+25, SCAN+26, SCAN+27, SCAN+28, SCAN+29, SCAN+30, SCAN+31, SCAN+33
    , SCAN+34, CLOSE~, CLOSE+2, CLOSE+3, SETINDX~, PAT+1, DATE+1, VIS+1
    IBVAL SCAN~
    IBVAL("BDT" DATE+1
    IBVAL("DFN" PAT+1
    IBVAL("EDT" DATE+1
    IBVAL("VIS" VIS+1
    IBX SCE+7~, SCE+9*, SCE+11*, SCEQ+1
    IBX( SCE+11
    IBZXERR SCAN~, SCAN+22, SCAN+23, SCAN+25, SCAN+26, SCAN+27, SCAN+28, SCAN+29, SCAN+31, SCAN+33
    , SCAN+35, PAT+1, DATE+1, VIS+1, SCE~, SCE+9, SCE+10, SCEQ
    NODE SCE~, SCE+8*, SCE+9, SCE+11, DISND~, DISND+7*, DISND+9
    PC SCE~, SCE+9, SCE+11, DISND~, DISND+10
    QUERY SCAN+20~, SCAN+21*, SCAN+24, SCAN+29
    U SCE+11, DISND+9, DISND+10
    X LAST+8~, LAST+22*, NEXT+9~, NEXT+22*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All