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

Package: Prosthetics

Routine: RMPRBIL


Information

RMPRBIL ;PHX/RFM/JLT-PROSTHETIC BILLINGS ;8/29/1994

Source Information

Source file <RMPRBIL.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
EXIT
EX
CK ;
; Patch 92 - line below modified from original
WRI
ITE ;
HCPCS
ICD9 ;
HDR
HDR1
ERRORD ; network error message
DISP ; mimics DISP^IBCNS
D1
HDR2 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: RMPRBIL+17
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: RMPRBIL+18
Function Call: WRITE
  • Prompt: !,"...PREPARING TO PRINT PROSTHETIC BILLING..."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!?32,"END OF REPORT"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: !,$E(RMPT,1,20),?22,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,9),6,9)
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: !,$E(RMPT,1,20),?22,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,9),6,9)
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: $$DAT1^RMPRUTL1($P($P(RMPRA,U,1),".",1))
  • Line Location: WRI+5
Function Call: WRITE
  • Prompt: ?9,$$DAT1^RMPRUTL1($P($P(RMPRA,U,12),".",1))
  • Line Location: WRI+7
Function Call: WRITE
  • Prompt: ?17,"*"
  • Line Location: WRI+8
Function Call: WRITE
  • Prompt: ?19,$E($P(^(1),U,2),1,30)
  • Line Location: ICD9+8
Function Call: WRITE
  • Prompt: ?19,RMPRITEM
  • Line Location: ICD9+9
Function Call: WRITE
  • Prompt: ?19,RMPRITEM
  • Line Location: ICD9+11
Function Call: WRITE
  • Prompt: !,"ICD-9 Message: ",$P(RMPRICD,U,2)
  • Line Location: ICD9+24
Function Call: WRITE
  • Prompt: !,"ICD-9 Code: "
  • Line Location: ICD9+25
Function Call: WRITE
  • Prompt: " ","** Inactive ** Date: "
  • Line Location: ICD9+26
Function Call: WRITE
  • Prompt: Y
  • Line Location: ICD9+26
Function Call: WRITE
  • Prompt: !,?4,$P(^RMPR(660,RP,"DES",RR,0),U)
  • Line Location: ICD9+30
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD9+31
Function Call: WRITE
  • Prompt: !,?5,"PATIENT NAME",?22,"SSN",?38," "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: Y,"-"
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: Y,"-"
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !,IZ
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !!,"AN ERROR WITH INSURANCE RETRIEVAL HAS CAUSED THIS OPTION TO BE TERMINATED. PLEASE TRY THIS REPORT AT A LATER TIME."
  • Line Location: ERRORD+1
Function Call: WRITE
  • Prompt: !," No Insurance Information"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !?3,$E($P(RMI("IBBAPI","INSUR",X,1),U,2),1,10)
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: ?16,$P("p^s^t",U,+(RMI("IBBAPI","INSUR",X,7)))
  • Line Location: D1+4
Function Call: WRITE
  • Prompt: ?19,$E(RMI("IBBAPI","INSUR",X,14),1,16)
  • Line Location: D1+5
Function Call: WRITE
  • Prompt: ?37,$E(Y,1,10)
  • Line Location: D1+7
Function Call: WRITE
  • Prompt: ?49,$P(RMI("IBBAPI","INSUR",X,12),U,2)
  • Line Location: D1+8
Function Call: WRITE
  • Prompt: ?75," *WNR*"
  • Line Location: D1+13
Function Call: WRITE
  • Prompt: !,?2,"Insurance",?15,"COB",?19,"Subscriber ID",?37,"Group",?49,"Holder",?57,"Effective",?67,"Expires"
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !?2,Z
  • Line Location: HDR2+2

FileMan Files Accessed Via FileMan Db Call

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