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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  C^%DTC  WAIT^DICD  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 3 DIV4^RMPRSIT  $$STA^RMPRUTIL  $$DAT1^RMPRUTL1  
DRG Grouper 1 $$ICDDX^ICDCODE  
Integrated Billing 1 $$INSUR^IBBAPI  
Registration 1 KVAR^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Prosthetics 1 RMPR PRINT BILL  

Entry Points

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

External References

Name Field # of Occurrence
^%DT RMPRBIL+17, RMPRBIL+18
DD^%DT RMPRBIL+19, ICD9+26, HDR1
C^%DTC PRINT
^%ZIS RMPRBIL+20
HOME^%ZIS RMPRBIL+17, DISP+1
^%ZISC EX+2
^%ZTLOAD RMPRBIL+22
WAIT^DICD PRINT
$$GET1^DIQ D1+6
^DIR EXIT+1, WRI+1
$$INSUR^IBBAPI CK+5, WRI+3
$$ICDDX^ICDCODE ICD9+22
DIV4^RMPRSIT RMPRBIL+17
$$STA^RMPRUTIL HDR1
$$DAT1^RMPRUTL1 WRI+5, WRI+7
KVAR^VADPT EX+2

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
Routine Call
  • %ZIS
  • Line Location:
    • RMPRBIL+17
    • DISP+1
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • WRI+1
Routine Call
  • %ZIS
  • Line Location:
    • RMPRBIL+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CK+6, WRI+3
^PRC(441 - [#441] ICD9+2, ICD9+7
^RMPR(660 - [#660] PRINT+1, CK+2, CK+4, CK+5, CK+6, WRI+3, WRI+4, HCPCS+1, ICD9+1, ICD9+2
, ICD9+3, ICD9+7, ICD9+8, ICD9+9, ICD9+10, ICD9+11, ICD9+15, ICD9+16
^RMPR(661 - [#661] ICD9+2, ICD9+7
^RMPR(661.1 - [#661.1] HCPCS+2
^TMP($J RMPRBIL+15!, PRINT+2, EX!, CK+6*

Label References

Name Line Occurrences
CK PRINT+1
D1 DISP+5
DISP WRI+3
ERRORD WRI+3
EXIT RMPRBIL+17, RMPRBIL+19, RMPRBIL+20, RMPRBIL+22
HDR PRINT+3, WRI+1, WRI+2, ERRORD+1
HDR1 WRI
HDR2 DISP+2
PRINT RMPRBIL+21
RMPRBIL RMPRBIL+18
WRI PRINT+2

Naked Globals

Name Field # of Occurrence
^("AM" CK+2
^(0 CK+2
^(1 ICD9+8, ICD9+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT RMPRBIL+17*, RMPRBIL+18*, EX!
%DT("A" RMPRBIL+17*, RMPRBIL+18*
>> %ZIS RMPRBIL+20*
CAT D1~
DAT D1~, D1+9*, D1+10
DAT1 D1~, D1+11*, D1+12
DFN EX!, CK+5*, WRI+3*, DISP+1
DGCRDD EX!
DGCRINDT EX!
DGCRINS EX!
DGCROUTP EX!
DIR EX!
DIR(0 EXIT+1*, WRI+1*
>> DTOUT EXIT+1
DUOUT EXIT+1, EX!
FL PRINT+2*, EX!, WRI+3*, HDR1+1*
HDR2 RMPRBIL+16~*, HDR1+1*, HDR2+3*
IBINS EX!
IO RMPRBIL+21
IO("Q" RMPRBIL+21, RMPRBIL+22!
IOF PRINT+3, WRI, HDR, DISP+1
IOM HDR1+1
ION RMPRBIL+22
IOP RMPRBIL+20!
IOSL WRI+1, WRI+2, HDR
IOST PRINT, EXIT, EXIT+1, WRI, WRI+1
IT EX!
IZ EX!, HDR1+1*
J EX!, D1~, D1+3*
PAGE PRINT*, EX!, WRI, HDR1, HDR1+1*
>> POP RMPRBIL+20
RMHCDES EX+1!, HCPCS*, HCPCS+2*, ICD9+4, ICD9+12
RMHCIEN EX+1!, HCPCS!, HCPCS+1*, HCPCS+2
RMHCPCS EX+1!, HCPCS*, HCPCS+2*, ICD9+4, ICD9+12
RMI RMPRBIL+16~, CK+5!, WRI+3!, DISP+3
RMI("IBBAPI" ERRORD+1, DISP+5, D1, D1+1, D1+3, D1+4, D1+5, D1+6, D1+8, D1+9
, D1+11, D1+13
>> RMPR("STA" CK+4
RMPRA EX+1!, WRI+4*, WRI+5, WRI+7, WRI+8
RMPRBDT RMPRBIL+17*, RMPRBIL+18, RMPRBIL+19, PRINT, EX!, HDR1
RMPRCOD EX+1!, ICD9+14*
RMPRCOUN PRINT*, PRINT+3, PRINT+4, EX!, CK+6*
RMPRDAT EX+1!, ICD9+15*, ICD9+22
RMPREDT RMPRBIL+19*, PRINT+1, PRINT+3, PRINT+4, EXIT+1, EX!, HDR1
RMPREND PRINT+2*, PRINT+4, EXIT*, EXIT+1, EX!, WRI+1*
RMPRERR EX+1!, ICD9+14*, ICD9+23*, ICD9+24
RMPRERZ EX+1!, CK+2*
RMPRFLAG EX!, WRI+1, HDR1+1*
>> RMPRFLG WRI
RMPRFLL EXIT+1, EX!, WRI+1*
RMPRIC9 EX+1!, ICD9+14*, ICD9+16*, ICD9+21, ICD9+22
RMPRICC EX+1!
RMPRICD EX+1!, ICD9+14*, ICD9+22*, ICD9+23, ICD9+24, ICD9+26
RMPRITEM EX!, ICD9+7*, ICD9+9, ICD9+11
RMPRX RMPRBIL+19*, EX!
RMPRY RMPRBIL+19*, EX!
RMPT PRINT+2*, EX!, CK+6*, WRI+3
RO PRINT*, PRINT+1*, EX!, CK+5
ROI EX!
RP PRINT*, PRINT+1*, PRINT+2*, EX!, CK+2, CK+4, CK+5, CK+6, WRI+3, WRI+4
, HCPCS+1, ICD9+1, ICD9+2, ICD9+3, ICD9+7, ICD9+8, ICD9+9, ICD9+10, ICD9+11, ICD9+15
, ICD9+16
RR EX!
U CK+2, CK+4, CK+5, CK+6, WRI+3, WRI+5, WRI+7, WRI+8, HCPCS+1, HCPCS+2
, ICD9+1, ICD9+2, ICD9+3, ICD9+7, ICD9+8, ICD9+9, ICD9+10, ICD9+15, ICD9+16, ICD9+23
, ICD9+24, ICD9+26, D1+1, D1+3, D1+4, D1+8
X RMPRBIL+17, PRINT, EX!, WRI+3*, DISP+5*, D1, D1+1, D1+3, D1+4, D1+5
, D1+6, D1+8, D1+9, D1+11, D1+13
>> X1 PRINT*
>> X2 PRINT*
Y RMPRBIL+17, RMPRBIL+18, RMPRBIL+19*, EX!, WRI+1, ICD9+26*, HDR1*, D1~, D1+4*, D1+6*
, D1+7
Z D1~, D1+3*, HDR2+2~*
>> ZTDESC RMPRBIL+22*
>> ZTIO RMPRBIL+22*
>> ZTRTN RMPRBIL+22*
>> ZTSAVE("RMPR(""STA"")" RMPRBIL+22*
>> ZTSAVE("RMPRBDT" RMPRBIL+22*
>> ZTSAVE("RMPREDT" RMPRBIL+22*
>> ZTSAVE("RMPRX" RMPRBIL+22*
>> ZTSAVE("RMPRY" RMPRBIL+22*
ZTSK RMPRBIL+22, EX!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All