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

Package: Integrated Billing

Routine: IBCB


Information

IBCB ;ALB/MRL - BILLING BEGINNING POINT/SELECT BILL OR PATIENT ;01 JUN 88 12:00

Source Information

Source file <IBCB.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
HINQ
MT ;I $D(DFN) D ^DGMT1 K DGMTLL
HINQ1
ASK
DATE
CT
WRLINE
DATE1
WDATE
KEYOK(IBIFN,DUZ) ; Check if COB bill, does user have key
; IBIFN = ien of bill (file 399)
SET
SET2
ST ; Do not use the variable IBH when calling this entry point
ST1
ST2
Q ;
EDI
REV
AUT
GEN
VIEW

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter BILL NUMBER or PATIENT NAME: "
  • Variable: IBX
  • Timeout: DTIME
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?17,"*** ELIGIBILITY NOT VERIFIED ***"
  • Line Location: HINQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HINQ1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HINQ1+1
Function Call: WRITE
  • Prompt: !!,"DO YOU WANT TO ESTABLISH A NEW BILLING RECORD FOR '",$P(^DPT(DFN,0),"^",1),"'"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?4,"YES - To establish a new billing record in the billing file.",!?4,"NO - To discontinue this process immediately."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"No ",$S($D(^DGCR(399,"C",DFN)):"UNCANCELLED ",1:""),"billing records on file for this patient."
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CT+0
Function Call: WRITE
  • Prompt: !?2,K,?6
  • Line Location: WRLINE+1
Function Call: WRITE
  • Prompt: Y,?27,$P(IBX,"^",1),?35,$S($P(IBX,U,21)="S":"s",$P(IBX,U,21)="T":"t",1:""),?38,$P(IBDATA,"^",3),?59,$E($P(IBDATA,"^",4),1,10),?70,$E($P(IBDATA,"^",5),1,10)
  • Line Location: WRLINE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: "PRESS <RETURN> TO CONTINUE, OR",!
  • Condition for execution: K<CT
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: "CHOOSE 1",$S(CT=1:"",1:"-"_K),": "
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: "CHOOSE 1",$S(CT=1:"",1:"-"_K),": "
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: !!,"NOT A VALID CHOICE!!",*7
  • Line Location: WDATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: KEYOK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: KEYOK+7
Function Call: WRITE
  • Prompt: !,"No further processing of this record permitted at this time.",!,"Record locked by another user. Try again later."
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !,"This bill is requesting an MRA - can only view bill data"
  • Line Location: ST1+3
Function Call: WRITE
  • Prompt: !,"This bill has a transmit status of ",$$EXPAND^IBTRE(364,.03,Z)," - can only view bill data"
  • Line Location: ST1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls,  RECALL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call