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

Package: Integrated Billing

Routine: IBRREL


Information

IBRREL ;ALB/CPM - RELEASE MEANS TEST CHARGES 'ON HOLD'; Sep 30, 2020@15:16:44

Source Information

Source file <IBRREL.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Integrated Billing 9 ($$DUPCPYCHK,CPYDISPLAY)^IBECEA1  UPDATE^IBECEA38  $$FNDVST^IBECEA4  ($$CDCHK,$$UPDATE,MESS2B)^IBECEAMH  $$PT^IBEFUNC  $$DAT1^IBOUTL  ^IBR  $$IB^IBRUTL  
($$FILE,$$SUBFILE)^IBRXUTL  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
E Claims Management Engine 1 $$CLAIM^BPSBUTL  
Kernel 1 HOME^%ZIS  
List Manager 1 PAUSE^VALM1  

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

Package Total Caller Graph
Integrated Billing 3 IB MT RELEASE CHARGES  IBNCPDPR  IBOHRL  
Accounts Receivable 2 PRCAY RELEASE HOLDS  RCDPEWL2  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for stand-alone 'release' option
ASK ;
RESUME ; - display header and list charges
END
HDR ; Display charge header.
LST ; Display individual IB Action.
ERR ; Display error message.
HLP ; Display basic help message.
HLP1 ; Display all patients with charges 'on hold.'
HELP ; Help for the 'Select' prompt.
AR ; Accounts Receivable entry point to release charges.
; Input: PRCABN -- ien of Bill/Accounts Receivable
UPDUCDB(IBN) ;Update the Visit Tracking DB with the bill Number
UPDMH(IBN) ; update MH Visit tracking DB IB*2.0*760

External References

Name Field # of Occurrence
HOME^%ZIS EN+3
$$CLAIM^BPSBUTL LST+7
^DIC ASK+5
$$GET1^DIQ UPDMH+6
^DIR RESUME+23, RESUME+40, RESUME+47, RESUME+49
$$DUPCPYCHK^IBECEA1 RESUME+31
CPYDISPLAY^IBECEA1 RESUME+33
UPDATE^IBECEA38 UPDUCDB+9
$$FNDVST^IBECEA4 UPDUCDB+7
$$CDCHK^IBECEAMH UPDMH+6
$$UPDATE^IBECEAMH UPDMH+9
MESS2B^IBECEAMH UPDMH+9
$$PT^IBEFUNC ASK+11, HLP1+3
$$DAT1^IBOUTL LST+15, LST+16
^IBR RESUME+44
$$IB^IBRUTL AR+2
$$FILE^IBRXUTL LST+9
$$SUBFILE^IBRXUTL LST+8
PAUSE^VALM1 RESUME+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no patients with charges 'on hold' at this time.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"This option is used to release Means Test charges which have been"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"placed 'on hold.' Please enter a patient with charges 'on hold,' and these"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"charges will be displayed and may be selected to be released to Accounts",!,"Receivable.",!
  • Line Location: EN+6
Function Call: READ
  • Formatting: !
  • Prompt: "Select PATIENT NAME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"This patient does not have any charges 'on hold.'",!
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: @IOF,$P(IBPT,"^")," Pt ID: ",$P(IBPT,"^",2),!
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: I
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!,"The following IB Actions ",$S($D(PRCABN):"associated with this bill",1:"for this patient")," are ON HOLD:"
  • Line Location: RESUME+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RESUME+23
Function Call: WRITE
  • Prompt: !
  • Line Location: RESUME+24
Function Call: WRITE
  • Prompt: !
  • Line Location: RESUME+40
Function Call: WRITE
  • Prompt: !!,"Passing charges to Accounts Receivable...",!
  • Line Location: RESUME+43
Function Call: WRITE
  • Prompt: !!,"The charge"_$E("s",$P(IBRANGE,",",2)>0)_" listed above "_$S($P(IBRANGE,",",2):"have",1:"has")_" been passed to Accounts Receivable.",!
  • Line Location: RESUME+45
Function Call: WRITE
  • Prompt: !!
  • Line Location: RESUME+47
Function Call: WRITE
  • Prompt: !!
  • Line Location: RESUME+49
Function Call: WRITE
  • Prompt: !
  • Line Location: RESUME+49
Function Call: WRITE
  • Prompt: !,IBLINE,!," REF Action ID Bill Type",?42,"Bill #",?51,"Fr/Fl Dt",?61,"To/Rls Dt",?73,"Charge"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?1,$J(IBNUM,2),?6,$J(+IBND,9)
  • Line Location: LST+12
Function Call: WRITE
  • Prompt: ?19,$S(IBRXN>0:"Rx #: "_IBRX_$S(IBRF>0:"("_IBRF_")",1:""),1:$P(IBND,"^",8))
  • Line Location: LST+13
Function Call: WRITE
  • Prompt: ?42,$P($P(IBND,"^",11),"-",2)
  • Line Location: LST+14
Function Call: WRITE
  • Prompt: ?51,$$DAT1^IBOUTL($S(IBRXN>0:IBRDT,1:$P(IBND,"^",14)))
  • Line Location: LST+15
Function Call: WRITE
  • Prompt: ?70,$J(+$P(IBND,"^",7),9,2)
  • Line Location: LST+17
Function Call: WRITE
  • Prompt: !?19,"ECME #: ",IBECME
  • Line Location: LST+18
Function Call: WRITE
  • Prompt: !?1,$J(IBNUM,2),?7,"Error encountered - a separate bulletin has been posted"
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !!,"Enter: the name of a patient with charges 'on hold,' or"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !?10,"'??' -- to see all patients with charges 'on hold,' or"
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !?10,"'^' -- to quit this option.",!
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: !!,"The following patients have charges 'on hold:'"
  • Line Location: HLP1+2
Function Call: WRITE
  • Prompt: !?3,$P(PID,"^"),$J("",10),$P(PID,"^",2)
  • Line Location: HLP1+3
Function Call: READ
  • Formatting: !
  • Prompt: "Enter RETURN to continue or '^' to stop: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: HLP1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP1+5
Function Call: WRITE
  • Prompt: !!?4,"Please enter a list or range of IB Actions (i.e. 1,3,5 or 2-4,8), none"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?4,"greater than ",IBNUM-1,", to be passed to Accounts Receivable, or '^' to quit."
  • Line Location: HELP+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
Routine Call
  • DIC
  • Line Location:
    • ASK+5
Routine Call
  • DIR
  • Line Location:
    • RESUME+23
    • RESUME+40
    • RESUME+47
    • RESUME+49

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBE(352.5 - [#352.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] LST+2, UPDUCDB+3, UPDMH+3
^IB("AH" EN+1, ASK+8, HLP1+3
^IBE(350.1 - [#350.1] UPDUCDB+5, UPDMH+5
^IBMH(351.83 - [#351.83] UPDMH+8

Label References

Name Line Occurrences
ASK ASK+2, ASK+3, ASK+5, ASK+9, RESUME+24, RESUME+40, RESUME+49
END ASK+1, RESUME+24, RESUME+40, RESUME+47, RESUME+49
ERR RESUME+44
HDR RESUME+10, RESUME+14, RESUME+43
HLP ASK+3
HLP1 ASK+2
LST RESUME+15, RESUME+44
RESUME AR+2
UPDMH RESUME+44
UPDUCDB RESUME+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN ASK+5*, ASK+8, ASK+11, END+3!, HLP1+1~, HLP1+3*
DIC ASK+5*!, END!
DIC(0 ASK+5*
DIR RESUME+23!, RESUME+40!, RESUME+47!, RESUME+49!
DIR("?" RESUME+22*
DIR("A" RESUME+20*, RESUME+39*
DIR("B" RESUME+21*
DIR(0 RESUME+19*, RESUME+39*, RESUME+47*, RESUME+49*
DIRUT RESUME+14, RESUME+24, RESUME+40, END!
DPTNOFZY ASK+4~*
DTIME ASK+1, HLP1+4
DTOUT END!
DUOUT RESUME+24, RESUME+40, END!
DUZ RESUME+26
I ASK+11*!, HLP1+1~, HLP1+3*
IBA ASK+7!, ASK+9, END!
IBA( ASK+8*, RESUME+13, RESUME+15, RESUME+30, RESUME+44
IBAFY END!
IBARTYP END!
IBATYP END!
IBATYPE UPDMH+1~, UPDMH+4*, UPDMH+5
IBBLNO UPDMH+1~, UPDMH+4*, UPDMH+7, UPDMH+9
IBCDCHK UPDMH+1~, UPDMH+4*, UPDMH+5*, UPDMH+6*, UPDMH+7
IBCNTR RESUME+28~, RESUME+30*
IBCTR RESUME+44*, END!
IBDA END!
IBDUPCPY RESUME+28~, RESUME+29*, RESUME+30, RESUME+31*, RESUME+33, RESUME+36
IBDUZ RESUME+26*, END!
IBECME LST+1~, LST+2*, LST+7*, LST+18
IBERROR UPDUCDB+9, UPDMH+1~, UPDMH+9
IBFAC END+1!
IBFR UPDMH+1~, UPDMH+4*, UPDMH+6
IBI ASK+8*, END+1!
IBIEN RESUME+28~, RESUME+30*
IBIENS RESUME+28~, RESUME+29*, RESUME+30*, RESUME+31, RESUME+33
IBIL END+1!
IBLINE HDR+1~*, HDR+2, HDR+3
IBMHVST UPDMH+1~, UPDMH+8*, UPDMH+9
IBN RESUME+15*, RESUME+44*, END!, LST+2, UPDUCDB~, UPDUCDB+2, UPDUCDB+3, UPDMH~, UPDMH+2, UPDMH+3
, UPDMH+8
>> IBNCPDPR RESUME+24, RESUME+40, RESUME+47
>> IBNCPDPRDEF RESUME+21
IBND LST+1~, LST+2*, LST+3, LST+4, LST+5, LST+6, LST+12, LST+13, LST+14, LST+15
, LST+16, LST+17, UPDUCDB+1~, UPDUCDB+3*, UPDUCDB+5, UPDUCDB+7, UPDUCDB+9, UPDMH+1~, UPDMH+3*, UPDMH+4
IBND1 LST+1~, LST+2*, LST+16
IBNOS RESUME+44*, END+1!
IBNUM ASK+8*, RESUME+13*, RESUME+15, RESUME+19, RESUME+20, RESUME+44*, END+1!, LST+12, ERR+1, HELP+2
IBPT ASK+11*, END+1!
IBQ RESUME+13*, RESUME+14*, END+1!, HLP1+1~, HLP1+3*, HLP1+4*
IBRANGE RESUME+26*, RESUME+44, RESUME+45, END+1!
IBRDT LST+1~, LST+2*, LST+8*, LST+9*, LST+15
IBRF LST+1~, LST+2*, LST+6*, LST+7, LST+8, LST+9, LST+13
IBRX LST+1~, LST+2*, LST+5*, LST+13
IBRXN LST+1~, LST+2*, LST+4*, LST+7, LST+8, LST+9, LST+13, LST+15
IBSEQNO RESUME+26*, END+1!
IBSERV END+1!
IBSITE END+1!
IBSTOPDA UPDMH+1~, UPDMH+4*, UPDMH+6
IBTOTL END+2!
IBTRAN END+2!
IBVSTIEN UPDUCDB+1~, UPDUCDB+7*, UPDUCDB+9
IBWHER END+2!
IENS LST+1~, LST+8*, LST+9*
IOF ASK+11
IOSL RESUME+14
PID HLP1+1~, HLP1+3*
PRCABN ASK+7!, RESUME+9, RESUME+24, RESUME+40, RESUME+49, END+3, AR+2
U LST+7, UPDUCDB+5, UPDUCDB+7, UPDUCDB+9, UPDMH+4, UPDMH+5
VA END+2!
VADM END+2!
VAERR END+2!
>> X ASK+1*, ASK+2, ASK+3, HLP1+4*
>> Y ASK+5, RESUME+26, RESUME+30, RESUME+39, RESUME+40, RESUME+44
Z UPDMH+1~, UPDMH+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 |  Local Variables  | All