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

Package: Integrated Billing

Routine: IBCSC5


Information

IBCSC5 ;ALB/MJB - MCCR SCREEN 5 (OPT. EOC) ;27 MAY 88 10:15

Source Information

Source file <IBCSC5.m>

Entry Points

Name Comments DBIA/ICR reference
EN
OP
OCC
MORE
WRT ; -write out procedures codes on screen
MOD(IBM,PUNC) ; Returns modifier list from comma delimited ien's in string IBM
; PUNC = Punctuation to use as first character of output
PD() ;prints prosthetic device in external form, returns 0 if there are none
RX() ;prints RX REFILLS in external form, returns 0 if there are none

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Event Date : "
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !?4,"Other Diag.: ",$E($P(Y,U,4),1,47)_" - "_$P(Y,U,2)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !?4,"***There are more diagnoses associated with this bill.***"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: $X>67
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: Y_", "
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: IBU
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: !,?4,"Type : ",$$GET1^DIQ(399,IBIFN_",",158)
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: " Cod. Method: ",$S($P(IB(0),U,9)="":IBUN,$P(IB(0),U,9)=9:"ICD",$P(IB(0),U,9)=4:"CPT-4",1:"HCPCS")
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OP+7
Function Call: WRITE
  • Prompt: !?4,"Opt. Code : ",IBUN
  • Line Location: OCC+1
Function Call: WRITE
  • Prompt: !?4,*7,"***There are more procedures associated with this bill.***"
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: !?4,"ICD Code : ",$E($P(X,U,3),1,28)_" - "_$P(X,U,2)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?4,"CPT Code : "
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: Z
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?58,$P($$ICD9^IBACSV(Y,IBDATE),U)
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !,?17,"*** There are more Pros. Items associated with this bill.***"
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: ?17,$E($P(IBZ,U,5),1,40),?67,$$FMTE^XLFDT(+IBZ)
  • Line Location: PD+4
Function Call: WRITE
  • Prompt: !,?17,"*** There are more Rx. Refills associated with this bill.***"
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: ?17,IBN,?65,$$FMTE^XLFDT(+$P(IBZ,U,3))
  • Line Location: RX+5

FileMan Files Accessed Via FileMan Db Call

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