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

Package: Integrated Billing

Routine: IBCNQ


Information

IBCNQ ;ALB/MJB - MCCR PATIENT BILLING INQUIRY ;13 JUN 88 13:52

Source Information

Source file <IBCNQ.m>

Entry Points

Name Comments DBIA/ICR reference
ASKPAT
VIEW ;
DISP ; The variable IBAC must be defined as input to this sub-routine.
DISPQ
DISP1
Q
RETN
HDR
HDR1
OPDATE ; List Outpatient Visit Dates.
PAUSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKPAT+0
Function Call: WRITE
  • Prompt: !,"Bill Status",?15,": ",$S(IBSTAT=1:"ENTERED/NOT REVIEWED",IBSTAT=2:"MRA REQUESTED",IBSTAT=3:"AUTHORIZED",IBSTAT=4:"PRINTED/TRANSMITTED",IBSTAT=7:"CANCELLED",1:IBUN)," - RECORD IS ",$S(IBSTAT=1:"",1:"UN"),"EDITABLE"
  • Line Location: VIEW+8
Function Call: WRITE
  • Prompt: !!,"Admission Date : ",Y
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !!,"Charges",?15,": "
  • Line Location: VIEW+14
Function Call: WRITE
  • Prompt: $S(X]"":X,1:IBUN)
  • Line Location: VIEW+14
Function Call: WRITE
  • Prompt: !,"LESS Offset",?15,": "
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: X," [",$P(IB("U1"),U,3),"]",!,"Bill Total",?15,": "
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: X," [",$P(IB("U1"),U,3),"]",!,"Bill Total",?15,": "
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: !,"Amount Paid",?15,": ",X
  • Line Location: VIEW+16
Function Call: WRITE
  • Prompt: !,"AR Status",?15,": ",$P(X,"^",2)
  • Line Location: VIEW+17
Function Call: WRITE
  • Prompt: !!,"Statement From",?15,": ",Y
  • Line Location: VIEW+18
Function Call: WRITE
  • Prompt: !,"Statement To",?15,": ",Y,!
  • Line Location: VIEW+18
Function Call: WRITE
  • Prompt: !!,"Statement From",?15,": ",IBUN,!,"Statement To",?15,": ",IBUN,!
  • Line Location: VIEW+19
Function Call: WRITE
  • Prompt: !,"Past actions of this billing record unspecified."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Copied"
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: ?15,": ",$$FMTE^XLFDT($P(IBX,U,1),"1Z")_" by "_$P(IBX,U,3)
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"Copied To",?15,": ",$P(IBX,U,2)
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !?TS1,"Copied",?TS2,": "
  • Line Location: DISP+29
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(IBX,U,1),"1Z")_" by "_$P(IBX,U,3)
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: !?TS1,"Copied From",?TS2,": ",$P(IBX,U,2)
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: !?TS1,"Reason Copied",?TS2,": ",$P(IBX,U,4)
  • Line Location: DISP+32
Function Call: WRITE
  • Prompt: !,"Returned to AR : "
  • Line Location: DISP+36
Function Call: WRITE
  • Prompt: Y,?28," by "
  • Line Location: RETN+0
Function Call: WRITE
  • Prompt: $P(^VA(200,IBN,0),"^")
  • Line Location: RETN+0
Function Call: WRITE
  • Prompt: $E($P(IBPT,"^"),1,20)," ",$P(IBPT,"^",2),?36,IBBNO,?51,IBNOW,?72,"PAGE: ",IBPAGE,!,L
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !!,"OP Visit Dates :"
  • Line Location: OPDATE+2
Function Call: WRITE
  • Prompt: ?($S(I#4:I#4,1:4)*14+3),Y
  • Line Location: OPDATE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1

FileMan Files Accessed Via FileMan Db Call

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