Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 10 $$OPT^IBATCM  $$FINDRT^IBATEI  ($$ADM,$$DIS,$$INPT,$$OUT,$$RMPR,$$RX,CANC)^IBATFILE  (CFP,CSP)^IBATLM0A  HDR^IBATLM1  ARRAY^IBATLM1A  RX^IBATRX  ($$EX,$$PIN,$$PPF,$$SITE,$$SLDR,$$SLPT,LMOPT)^IBATUTL  
$$ADSEL^IBECEA31  SCAN^IBSDU  
VA FileMan 2 YN^DICN  ^DIR  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 EN^VALM2  
Registration 1 IN5^VADPT  
Scheduling 1 GETCPT^SDOE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Integrated Billing 7 IBAT ADD TRANSACTION  IBAT CANCEL TRANSACTION  IBAT CHANGE DATE RANGE  IBAT CHANGE PATIENT  IBAT CHANGE PT FACILITY  IBAT CHANGE PT STATUS  IBATLM2B  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
YN^DICN CT+7, P+17, R+33
^DIR AT+4, O+3, O+16, P+16, R+32, H+2
$$OPT^IBATCM O+28
$$FINDRT^IBATEI I+12
$$ADM^IBATFILE I+7
$$DIS^IBATFILE I+10
$$INPT^IBATFILE I+14, I+15
$$OUT^IBATFILE O+30
$$RMPR^IBATFILE R+38
$$RX^IBATFILE P+24
CANC^IBATFILE CT+8
CFP^IBATLM0A CF+1
CSP^IBATLM0A CS+1
HDR^IBATLM1 CF+1, CS+1, CD+4, CP+6, AT+6
ARRAY^IBATLM1A CT+8, CD+4, CP+6, AT+6
RX^IBATRX P+4
$$EX^IBATUTL O+14, O+15, R+28
$$PIN^IBATUTL R+27
$$PPF^IBATUTL I+6, O+23, P+18, R+38
$$SITE^IBATUTL M+1, P+18, R+37
$$SLDR^IBATUTL CD+3, CP+4, P+3, R+4
$$SLPT^IBATUTL CP+3
LMOPT^IBATUTL CF+1, CS+1, CT+2, CD+2, CP+2, AT+2
$$ADSEL^IBECEA31 I+2
SCAN^IBSDU O+8
GETCPT^SDOE O+22
IN5^VADPT I+6
EN^VALM2 CT+2
$$FMTE^XLFDT O+13, P+10, R+26

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
Routine Call
  • DIR
  • Line Location:
    • AT+4
    • O+3
    • O+16
    • P+16
    • R+32
    • H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBAT(351.61 - [#351.61] CT+5, O+31, DUP+2, DUP+3
^RMPR(660 - [#660] R+7, R+10, R+16, R+28
^TMP("IBAT" O+2!, O+10, O+12, O+17, O+21, O+32!
^TMP("VALM DATA" CP+5!, AT+5!
^TMP("VALMAR" CP+5!, AT+5!

Label References

Name Line Occurrences
@( AT+5
DUP I+4, O+19, P+21, R+35
H CT+5, I+3, I+5, M+4, O+10, O+19, O+31, P+5, P+17, P+26
, R+21, R+33, R+36, R+40
M I+8, I+9, I+11, I+13, I+16, I+17

Naked Globals

Name Field # of Occurrence
^( O+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CT+1~, CT+7*, P+17*, R+1~, R+33*
CPTLIST O+1~
CPTLIST( O+25, O+27
DA CT+1~, CT+3*, CT+4*, CT+5, CT+8
>> DFN CF+1, CS+1, CP+5*, I+2, I+6, I+7, I+12, O+4, O+23, O+30
, P+4, P+18, P+24, R+7, R+38
DIE CT+1~
DIR O+1~, P+1~, H+1~
DIR("A" AT+4*, O+3*, O+16*, P+15*, R+32*
DIR(0 AT+3*, O+3*, O+16*, P+15*, R+31*, H+2*
DIROUT AT+1~, O+1~, H+1~
DIRUT AT+1~, AT+4, I+1~, I+4, I+5, O+1~, O+3, O+16, O+19, P+1~
, P+15!, P+16, R+1~, R+31!, R+32, R+35, R+36
DR CT+1~
DTOUT CT+1~, AT+1~, O+1~, H+1~
DUOUT AT+1~, O+1~, H+1~
IBADM I+1~, I+2*, I+3, I+4, I+6, I+7
IBBDT CD+1, CD+3*, P+1~, P+4, R+1~, R+13
IBC O+1~, O+12*, O+13, O+16, O+17*, R+1~, R+24*, R+25, R+26, R+27
, R+28, R+32*, R+34
IBCHARGE I+1~
IBCOUNT P+1~, P+2*, P+9*, P+10, P+14, P+15, R+1~, R+3*, R+19*, R+21
, R+24, R+31
IBCPT O+26~, O+27*, O+28, O+29
IBDA R+1~, R+7*, R+10, R+16, R+19, R+34*, R+35, R+38
>> IBDAT P+9*, P+10, P+11, P+12
IBDATA O+1~, O+8, O+12*, O+13, O+14, O+15, R+1~, R+10*, R+13, R+16
, R+19, R+25*, R+26, R+29, R+34*, R+38
IBDATA("BDT" O+4*
IBDATA("DFN" O+4*
IBDATA("EDT" O+4*
IBDATA1 R+1~, R+10*, R+16
IBDFN CP+1~, CP+3*, CP+5
>> IBDT P+8*, P+9, P+10, P+14
IBEDT CD+1, CD+3*, P+1~, P+4, R+1~, R+13
IBFAC O+1~, O+23*, O+28, O+30, P+18*, P+24
>> IBFINDRT I+12*, I+13, I+14, I+15
IBIEN I+1~, I+7*, I+8, I+9, I+10, I+11, I+13, I+14, I+15, I+16
, I+17, O+1~, O+25*, O+27, O+30*, O+31
IBIEN( O+29*
IBNUM P+1~, P+16*, P+19
IBNUM( P+14*, P+20, P+24
IBOUT P+1~, P+2*, P+7, P+8, R+1~, R+3*, R+24
IBP P+1~, P+19*, R+1~
IBP( R+19*, R+25, R+27, R+28, R+34
IBPPF I+1~, I+6*, I+7
IBPRICE O+26~, O+28*, O+29
IBPSRX P+1~, P+7*, P+8, P+9, P+14
IBQTY O+26~, O+27*, O+29
IBQUIT P+1~, P+21, P+22!, DUP~, DUP+2, DUP+4*
IBRES I+1~, I+10*, I+11, I+14*, I+15*, I+16
IBRX P+1~, P+4, P+5, P+19*, P+20, P+24
IBRX( P+7, P+8, P+9, P+20
IBRX(0 P+20*, P+21, P+24
IBSAVE CD+1~*, CD+3
IBSITE M+1~*, M+2, P+1~, P+18*, P+23
IBSOURCE DUP~, DUP+2, DUP+4
IBT DUP+1~*, DUP+2*, DUP+3
IBVAL CT+1~, CT+3*, CT+4
IBX O+1~, O+11*, O+12*, O+17*, O+19, O+21, O+22, O+30
IBX(0 O+21*, O+28, O+30
IBXA I+1~, I+2*
IOF P+6, R+23
U CT+5, R+27
VAIP I+1~
VAIP("E" I+6*
VAIP(12 I+10, I+12
VAIP(13 I+7, I+12
VAIP(17 I+9, I+10
>> VALMAR CT+4, CT+8, CD+4, CP+6, AT+6
>> VALMY( CT+3
X AT+1~, M~, M+2, O+1~, H+1~
>> XQORNOD(0 CT+2
Y AT+1~, AT+5, M~, M+3, O+1~, O+4, O+17, P+16, R+32, H+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All