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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBE(352.5 - [#352.5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call