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

Package: Integrated Billing

Routine: IBRCON1


Information

IBRCON1 ;ALB/RJS - PASS CONVERTED INPATIENT CHARGES ; 28-APR-92

Source Information

Source file <IBRCON1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for stand-alone 'pass' option
ASK
RESUME
LOOP ;
END
HDR1 ; Display charge header.
HDR2 ; Display charge header.
LST1 ; Display individual IB Action.
LST2 ; Display individual IB Action.
ERR ; Display error message.
HLP ; Display basic help message.
HLP1 ; Display all patients with converted charges
HELP ; Help for the 'Select' prompt.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no patients with converted charges at this time.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"This option is used to pass Means Test charges which have been"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"converted. Please enter a patient with converted charges 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 converted charges",!
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: @IOF,VADM(1)," Pt ID: ",VA("PID"),!
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!,"The following IB Actions for this patient, are CONVERTED CHARGES:"
  • Line Location: RESUME+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter RETURN to continue or '^' to stop: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RESUME+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RESUME+6
Function Call: WRITE
  • Prompt: !!,"Passing charges to Accounts Receivable...",!
  • Line Location: RESUME+17
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+19
Function Call: WRITE
  • Prompt: !,IBLINE,!," REF Action ID Bill Type",?44,"From",?54,"To",?64,"Charge"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,IBLINE,!,?42,"Bill # or"
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !," REF Action ID Bill Type",?42,"On Hold",?53,"From",?64,"To",?73,"Charge"
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !?1,$J(IBNUM,2),?7,$J(+IBND,9),?18,$P($G(^IBE(350.1,+$P(IBND,"^",3),0)),"^",8)
  • Line Location: LST1+2
Function Call: WRITE
  • Prompt: ?42,$$DAT1^IBOUTL($P(IBND,"^",14)),?52,$$DAT1^IBOUTL($P(IBND,"^",15))
  • Line Location: LST1+3
Function Call: WRITE
  • Prompt: ?61,$J(+$P(IBND,"^",7),9,2)
  • Line Location: LST1+4
Function Call: WRITE
  • Prompt: !?1,$J(IBNUM,2),?7,$J(+IBND,9),?18,$P($G(^IBE(350.1,+$P(IBND,"^",3),0)),"^",8)
  • Line Location: LST2+2
Function Call: WRITE
  • Prompt: ?42,"On Hold"
  • Line Location: LST2+3
Function Call: WRITE
  • Prompt: ?42,$P($P(IBND,"^",11),"-",2)
  • Line Location: LST2+4
Function Call: WRITE
  • Prompt: ?51,$$DAT1^IBOUTL($P(IBND,"^",14)),?61,$$DAT1^IBOUTL($P(IBND,"^",15))
  • Line Location: LST2+5
Function Call: WRITE
  • Prompt: ?70,$J(+$P(IBND,"^",7),9,2)
  • Line Location: LST2+6
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 converted charges or"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !?10,"'??' -- to see all patients with converted charges 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 converted charges"
  • Line Location: HLP1+2
Function Call: WRITE
  • Prompt: !?3,$P($G(^DPT(DFN,0)),"^"),$J("",10),VA("PID")
  • 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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call