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

Package: Prosthetics

Routine: RMPRLI


Information

RMPRLI ;PHX/HNB,RVD-DISPLAY ITEMS ON 1358 TRANSACTION ;10/19/1993

Source Information

Source file <RMPRLI.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 HOME^%ZIS  

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

Package Total Caller Graph
Prosthetics 5 RMPR21  RMPR21A  RMPRC21  RMPRE21  RMPRL9  

Entry Points

Name Comments DBIA/ICR reference
LI
PRT
ASK
EXIT

External References

Name Field # of Occurrence
HOME^%ZIS RMPRLI+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,RMPRNAM,?35,$E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,9),?55,RMPROB,!
  • Line Location: RMPRLI+4
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: RMPRLI+6
Function Call: WRITE
  • Prompt: !!,?25,"SUB TOTAL: ",?65,"$",$J(RBO,7,2)
  • Line Location: LI+4
Function Call: WRITE
  • Prompt: !?25,"SHIPPING CHARGE: "
  • Line Location: LI+15
Function Call: WRITE
  • Prompt: ?65,"$",$J(R2,7,2)
  • Line Location: LI+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LI+16
Function Call: WRITE
  • Prompt: !,?25,"TOTAL COST: ",?65,"$",$J(R2+RBO,7,2)
  • Line Location: LI+17
Function Call: WRITE
  • Prompt: !,"NO ITEMS ON FILE"
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !!?5,"ITEM: "
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: $S(RMPRAMIS="":"NO CODE FOR THIS ITEM",1:$P(^RMPR(663,RMPRAMIS,0),U,1))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,?5,"PSAS HCPCS CODE: ",$P(RMPRCPT,U,1),?29,$P(RMPRCPT,U,2)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !,?5,"CPT MODIFIER: ",$P($G(^RMPR(664,RMPRA,1,RMPRI,4)),U,2)
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?5,"REMARKS: ",$P(^(0),U,8)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !!?5,"DELIVER TO: ",RMPRDELN
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!?5,"DESCRIPTION: ",$P(RMPRI1,U,2)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !?5,"SERIAL NUMBER: "
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: RMPRSER
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !,?5,"UNIT COST: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: R1,?25,"UNIT OF ISSUE: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !?5,"TYPE: ",$S($P(RMPRI1,U,9)="X":"REPAIR",$P(RMPRI1,U,9)="I":"INITIAL",$P(RMPRI1,U,9)="R":"REPLACE",$P(RMPRI1,U,9)="S":"SPARE",$P(RMPRI1,U,9)="5":"RENTAL",1:"")
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: ?25,"CATEGORY: ",$S($P(RMPRI1,U,10)=1:"SC/OP",$P(RMPRI1,U,10)=2:"SC/IP",$P(RMPRI1,U,10)=3:"NSC/IP",$P(RMPRI1,U,10)=4:"NSC/OP",1:"")
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: ?44,"SPECIAL CATEGORY: "
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: $S($P(RMPRI1,U,11)=1:"SPEC/LEG",$P(RMPRI1,U,11)=2:"A&A",$P(RMPRI1,U,11)=3:"PHC",$P(RMPRI1,U,11)=4:"ELIGIBILITY REFORM",1:"")
  • Line Location: PRT+23
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Routine Call
  • %ZIS
  • Line Location:
    • RMPRLI+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] PRT+3
^PRCD(420.5 - [#420.5] PRT+16
^RMPR(660 - [#660] PRT+13
^RMPR(661 - [#661] PRT+2, PRT+3
^RMPR(661.1 - [#661.1] PRT+6
^RMPR(663 - [#663] PRT+4
^RMPR(664 - [#664] LI, LI+2, LI+4, LI+5, LI+6, LI+16, PRT+5, PRT+8, PRT+10, PRT+13

Label References

Name Line Occurrences
EXIT LI, LI+18
PRT LI+3

Naked Globals

Name Field # of Occurrence
^(0 LI+16, PRT+3, PRT+10, PRT+13
^(2 LI+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DCT LI+5*, LI+8, LI+9, LI+10, LI+14!
DCTT LI+10*, LI+11, LI+12*, LI+13, LI+14!
DTIME ASK
IOF RMPRLI+3, ASK+1
OFF EXIT!
ON EXIT!
R1 PRT+15*, PRT+19, EXIT!
R2 LI+16*, LI+17, PRT+18*, PRT+19, EXIT!
RBO RMPRLI+5~*, LI+4, LI+10, LI+13*, LI+17, PRT+19*
RCPT PRT+5*, PRT+6, PRT+9!
>> RMPR("L" RMPRLI+6
>> RMPRA LI, LI+2, LI+4, LI+5, LI+6, LI+16, PRT+5, PRT+8, PRT+10, PRT+13
>> RMPRAMIS PRT+3*, PRT+4
>> RMPRCNT RMPRLI+3*, LI+1*, PRT
RMPRCPT PRT+6*, PRT+7, PRT+9!
>> RMPRDELN RMPRLI+3*, PRT+11
>> RMPRF LI+6, PRT+11
>> RMPRI RMPRLI+3*, LI*, LI+2, PRT+5, PRT+8, PRT+10, PRT+13
RMPRI1 LI+2*, PRT+2, PRT+3, PRT+12, PRT+15, PRT+16, PRT+18, PRT+20, PRT+21, PRT+23
, EXIT!
>> RMPRIT PRT+2*, PRT+3
>> RMPRIT1 PRT+2*, PRT+3
>> RMPRNAM RMPRLI+4
>> RMPROB RMPRLI+4
>> RMPRSER RMPRLI+3*, PRT+13*
>> RMPRSSN RMPRLI+4
>> RMPRU PRT+16*
>> RMPRX RMPRLI+3*, LI, ASK*
U LI+5, LI+16, PRT+2, PRT+3, PRT+4, PRT+5, PRT+7, PRT+8, PRT+10, PRT+12
, PRT+13, PRT+15, PRT+16, PRT+18, PRT+20, PRT+21, PRT+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All