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
Print Page as PDF
Routine: IBATLM1B

Package: Integrated Billing

Routine: IBATLM1B


Information

IBATLM1B ;LL/ELZ - TRANSFER PRICING TRANSACTION LIST MENU ; 15-SEP-1998

Source Information

Source file <IBATLM1B.m>

Entry Points

Name Comments DBIA/ICR reference
CF ; -- change facility from patient level
CS ; -- change status of patient from patient level
CT ; -- cancel a transaction
CD ; -- change the current date range for transactions displayed
CP ; -- change the currently selected patient
AT ; -- add a transaction
I ; -- select an inpatient stay and add
M(X,Y) ; Prints message and hangs
O ; -- select an outpatient stay
P ; -- select an rx
R ; -- select an prosthetic
H ; -- page reader
DUP(IBSOURCE,IBQUIT) ; -- checks for dups that are not cancelled

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Transaction already cancelled!"
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to cancel this transaction"
  • Line Location: CT+6
Function Call: WRITE
  • Prompt: !!,"Patient has no admissions on file."
  • Line Location: I+3
Function Call: WRITE
  • Prompt: !,"Transaction #",IBSITE,X," Added"
  • Line Location: M+2
Function Call: WRITE
  • Prompt: !,"Cannot complete, ",Y
  • Line Location: M+3
Function Call: WRITE
  • Prompt: !!,"No appointments exist for the date!"
  • Line Location: O+10
Function Call: WRITE
  • Prompt: !,?10,"Choose which Visit:"
  • Line Location: O+11
Function Call: WRITE
  • Prompt: !,?4,IBC,?10,$$FMTE^XLFDT($P(IBDATA,"^"),"1P")
  • Line Location: O+13
Function Call: WRITE
  • Prompt: ?35,$$EX^IBATUTL(409.68,.04,$P(IBDATA,"^",4))
  • Line Location: O+14
Function Call: WRITE
  • Prompt: ?55,$$EX^IBATUTL(409.68,.12,$P(IBDATA,"^",12))
  • Line Location: O+15
Function Call: WRITE
  • Prompt: !!,"Transaction Number ",$P(^IBAT(351.61,IBIEN,0),"^")," Added!"
  • Line Location: O+31
Function Call: WRITE
  • Prompt: !!,"No Rx's on file for date range selected."
  • Line Location: P+5
Function Call: WRITE
  • Prompt: @IOF,!,"Prescriptions Issued:",!
  • Line Location: P+6
Function Call: WRITE
  • Prompt: !,IBCOUNT,?4,$$FMTE^XLFDT(IBDT,"5D"),?18,$P(IBDAT,"^")
  • Line Location: P+10
Function Call: WRITE
  • Prompt: "(",$P(IBDAT,"^",2),")",?35,$E($P(IBDAT,"^",4),1,27)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: ?65,$J($FN($P(IBDAT,"^",5)*$P(IBDAT,"^",6),",",2),12)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !
  • Line Location: P+15
Function Call: WRITE
  • Prompt: !!,"Selected number(s): "_Y
  • Line Location: P+16
Function Call: WRITE
  • Prompt: !!,"Adding Transaction number ",IBSITE
  • Line Location: P+23
Function Call: WRITE
  • Prompt: $$RX^IBATFILE(DFN,$P(IBNUM(IBRX),"^",2),IBFAC,$P(IBRX(0),"^")_";PSRX(;"_$P(IBRX(0),"^",2),$P(IBRX(0),"^",3),$P(IBRX(0),"^",5),$P(IBRX(0),"^",6))
  • Line Location: P+24
Function Call: WRITE
  • Prompt: "!"
  • Line Location: P+25
Function Call: WRITE
  • Prompt: !!,"No Prosthetic Devices on file for date range selected."
  • Line Location: R+21
Function Call: WRITE
  • Prompt: @IOF,!,"Prosthetic Devices Issued:",!
  • Line Location: R+23
Function Call: WRITE
  • Prompt: !,IBC,?4,$$FMTE^XLFDT($P(IBDATA,"^",12),"5D")
  • Line Location: R+26
Function Call: WRITE
  • Prompt: ?20,$E($P($$PIN^IBATUTL($O(IBP(IBC,0))),U,2),1,28),?50,"("
  • Line Location: R+27
Function Call: WRITE
  • Prompt: $$EX^IBATUTL(660,62,$P(^RMPR(660,$O(IBP(IBC,0)),"AM"),"^",3)),")"
  • Line Location: R+28
Function Call: WRITE
  • Prompt: ?65,$J($FN($P(IBDATA,"^",16),",",2),12)
  • Line Location: R+29
Function Call: WRITE
  • Prompt: !
  • Line Location: R+31
Function Call: WRITE
  • Prompt: !!,"Adding Transaction number ",$$SITE^IBATUTL
  • Line Location: R+37
Function Call: WRITE
  • Prompt: $$RMPR^IBATFILE(DFN,$P(IBDATA,"^",12),$$PPF^IBATUTL(DFN),(IBDA_";RMPR(660,"),,$P(IBDATA,"^",16))
  • Line Location: R+38
Function Call: WRITE
  • Prompt: "!"
  • Line Location: R+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,$S(IBSOURCE["SCE(":"Visit",IBSOURCE["DGPM(":"Admission",IBSOURCE["RMPR(":"Prosthetic",1:"Prescription")," exists already!"
  • Line Location: DUP+4
Info |  Source |  Entry Points |  Interaction Calls