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

Package: Integrated Billing

Routine: IBCSC4B


Information

IBCSC4B ;ALB/MJB - MCCR PTF SCREEN (CONT.) ;24 FEB 89 9:52

Source Information

Source file <IBCSC4B.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Integrated Billing 2 (EVEN,EVENP,ODD,ODDP)^IBCSC4A  SELD^IBCSC4C  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBCSC4  IBCSCE  IBXSC4  

Entry Points

Name Comments DBIA/ICR reference
WE
WRP
PRO
Q
WEP
WR
DX
ASK

External References

Name Field # of Occurrence
EVEN^IBCSC4A DX+3
EVENP^IBCSC4A PRO+4
ODD^IBCSC4A DX+3
ODDP^IBCSC4A PRO+4
SELD^IBCSC4C DX+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "="
  • Line Location: DX+1
Function Call: WRITE
  • Prompt: !!," * No DIAGNOSIS CODES in PTF record for this episode of care."
  • Line Location: DX+2
Function Call: WRITE
  • Prompt: $S($P(IBWO(0),U,4)]"":$P(IBWO(0),U,4)_" ",1:""),Y," "
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: $E($P(^DIC(42.4,$P(IBWO(0),U,3),0),U),1,12)
  • Condition for execution: $P(IBWO(0),"^",3)]""
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: " ",$P(IBWO(0),"^",5)
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: ?43,"Move: "
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: $S($P(IBWE(0),U,4)]"":$P(IBWE(0),U,4)_" ",1:""),Y," "
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: $E($P(^DIC(42.4,$P(IBWE(0),U,3),0),U),1,12)
  • Condition for execution: $P(IBWE(0),"^",3)]""
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: " ",$P(IBWE(0),"^",5)
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: ?43,"* ",IBNC
  • Line Location: WE+0
Function Call: WRITE
  • Prompt: ?43,IBAE,K," - ",$S(X]"":$J($P(X,U,1),6)_" "_$E($P(X,U,3),1,24),1:IBUC)
  • Line Location: WE+1
Function Call: READ
  • Timeout: DTIME
  • Variable: A
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?4,"Enter <RETURN> to view more ",$S($D(IBP):"operation/procedure",1:"movement dates and diagnosis")," codes",!?4,"or '^' to stop the display."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,@IOF,?(40-($L(A)\2)),A,!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: X
  • Line Location: PRO+2
Function Call: WRITE
  • Prompt: !!," * No PROCEDURE CODES in PTF record for this episode of care."
  • Line Location: PRO+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: WRP+1
Function Call: WRITE
  • Prompt: ?43,$S($P(IBWE(0),U,3)["*":IBNOR,1:IBSD)
  • Line Location: WRP+1
Function Call: WRITE
  • Prompt: ?43,$S($P(IBWE(0),U,3)["*":IBNOR,1:IBSD)
  • Line Location: WRP+1
Function Call: WRITE
  • Prompt: ?43,"* ",IBNC
  • Line Location: WEP+0
Function Call: WRITE
  • Prompt: ?43,IBAE,K," - ",$S(X]"":$J($P(X,U,1),6)_" "_$E($P(X,U,4),1,24),1:IBUC)
  • Line Location: WEP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WR+1, WR+2, WRP+1
^DGPT - [#45] DX
^DIC(42.4 - [#42.4] WR+1, WR+2
^ICD0 - [#80.1] WRP+3, WEP+1
^ICD9 - [#80] WR+4, WE+1
^UTILITY($J DX+2, DX+3, PRO+3, PRO+4

Label References

Name Line Occurrences
ASK DX+3, ASK+1, PRO+4
Q DX+2, DX+5, PRO+3
WE WR+3, WR+4
WEP WRP+2, WRP+3
WR DX+3
WRP PRO+4

Naked Globals

Name Field # of Occurrence
^(0 WR+4, WE+1, WRP+3, WEP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT Q+1!
A ASK*, ASK+1, ASK+2*, Q+1!
B WR*, Q+1!, WRP*
DIC Q+1!
DTIME ASK
F Q+1!
I DX+1*, DX+3*, PRO+4*, Q+1!
IB3 Q!
IB4 Q!
IB5 Q!
IB6 Q!
IB7 Q!
IB8 Q!
IB9 Q!
IBAE WE*, WE+1, Q!, WEP*, WEP+1
IBAO WR+3*, WR+4, Q!, WRP+2*, WRP+3
IBCT Q!
IBDIA DX+2*, DX+3*, DX+4*, WR+2, WR+3, WR+4, ASK*, Q!
IBDP Q!
IBDX Q!
IBDXC DX*, Q!
IBDXX WE*, Q!
IBDXY WR+3*, Q!
IBI Q!
IBNC DX*, WR+3, WE, PRO*, Q!, WRP+2, WEP
IBNOR PRO*, Q!, WRP+1
IBOP Q!
IBOPC PRO*, Q!
IBOPX Q!, WEP*
IBOPY Q!, WRP+2*
IBP ASK*, ASK+1, ASK+2, PRO+3*, PRO+4*, PRO+5*, Q!, WRP+1, WRP+2, WRP+3
IBPP Q!
>> IBPTF DX, PRO
IBPX Q!
IBPY Q!
IBSD PRO*, Q!, WRP+1
IBSP Q!
>> IBUC DX*, WR+4, WE+1, PRO*, WRP+3, WEP+1
IBWE DX!, PRO+1!, Q!
IBWE( WR*, WR+3, WR+4, WE+1, WRP*, WRP+3, WEP+1
IBWE(0 WR, WR+2, WE, WRP, WRP+1, WEP
IBWE(1 WE*, WEP*
IBWE(2 WE*, WEP*
IBWE(3 WE*, WEP*
IBWE(4 WE*, WEP*
IBWE(5 WE*, WEP*
IBWO DX!, PRO+1!, Q!
IBWO( WR+3*, WR+4, WRP+2*, WRP+3
IBWO(0 WR+1, WR+3, WRP+1, WRP+2
IOF DX+1, ASK+2, PRO+2
IOSL DX+3, PRO+4
J Q+1!
K WR+3*, WR+4*, WE+1, Q+1!, WRP+2*, WRP+3*, WEP+1
M Q+1!
S ASK+2*, Q+1!
U WR+1, WR+2, WR+3, WR+4, WE, WE+1, WRP+1, WRP+2, WRP+3, WEP
, WEP+1
X DX*, DX+1, WR+4*, WE+1*, PRO*, PRO+2*, Q+1!, WRP+3*, WEP+1*
Y WR+1*, WR+2*, Q+1!, WRP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All