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

Package: Prosthetics

Routine: RMPR4LI


Information

RMPR4LI ;PHX/HNB,RVD-DISPLAY ITEMS ON PURCHASE CARD TRANSACTION ;3/1/1996

Source Information

Source file <RMPR4LI.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 HOME^%ZIS  (DE,EN)^XUSHSHP  
Prosthetics 1 $$STA^RMPRUTIL  

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

Package Total Caller Graph
Prosthetics 12 RMPR121B  RMPR421  RMPR421A  RMPR4C1  RMPR4C2  RMPR4C21  RMPR4E21  RMPR4LOP  
RMPR4OPN  RMPR4P22  RMPR9P22  RMPRET  

Entry Points

Name Comments DBIA/ICR reference
LI
PRT
ASK
EXIT
ENC(X,X1,X2) ;encrypt
DEC(X,X1,X2) ;decript

External References

Name Field # of Occurrence
HOME^%ZIS RMPR4LI+6
$$STA^RMPRUTIL RMPR4LI+9
DE^XUSHSHP DEC+4
EN^XUSHSHP ENC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,$G(RMPRSSNE)
  • Line Location: RMPR4LI+7
Function Call: WRITE
  • Prompt: ?55,"Purchase Card",!
  • Line Location: RMPR4LI+8
Function Call: WRITE
  • Prompt: ?5,$$STA^RMPRUTIL,"-",$P(^RMPR(664,RMPRA,4),U,5)
  • Line Location: RMPR4LI+9
Function Call: WRITE
  • Prompt: ?55,$$DEC($P(^RMPR(664,RMPRA,4),U,1),$P(^RMPR(664,RMPRA,0),U,9),RMPRA)
  • Line Location: RMPR4LI+10
Function Call: WRITE
  • Prompt: ?55,"encrypted"
  • Line Location: RMPR4LI+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPR4LI+12
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: RMPR4LI+14
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: !,?5,"BANK AUTHORIZATION: ",$P(^RMPR(664,RMPRA,4),U,2)
  • Line Location: LI+18
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,"VENDOR TRACKING: ",$P($G(^RMPR(664,RMPRA,1,RMPRI,4)),U,1)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,?5,"PSAS HCPCS CODE: ",$P(RMPRCPT,U,1),?31,$P(RMPRCPT,U,2)
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,?5,"CPT MODIFIER: ",$P($G(^RMPR(664,RMPRA,1,RMPRI,4)),U,2)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !?5,"REMARKS: ",$P(^(0),U,8)
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!?5,"DELIVER TO: ",RMPRDELN
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !!?5,"DESCRIPTION: ",$P(RMPRI1,U,2)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?5,"CONTRACT #: "
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: RMPRVAL
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !?5,"MODEL: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: RMPRVAL
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !?5,"SERIAL NUMBER: "
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: RMPRSER
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?5,"LOT #: "
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: RMPRVAL
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !,?5,"UNIT COST: "
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: R1,?25,"UNIT OF ISSUE: "
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+24
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+25
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+26
Function Call: WRITE
  • Prompt: ?44,"SPECIAL CATEGORY: "
  • Line Location: PRT+27
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+28
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Routine Call
  • %ZIS
  • Line Location:
    • RMPR4LI+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] PRT+3
^PRCD(420.5 - [#420.5] PRT+21
^RMPR(660 - [#660] PRT+14, PRT+15, PRT+16, PRT+17
^RMPR(661 - [#661] PRT+2, PRT+3
^RMPR(661.1 - [#661.1] PRT+7
^RMPR(663 - [#663] PRT+4
^RMPR(664 - [#664] RMPR4LI+9, RMPR4LI+10, LI, LI+2, LI+4, LI+5, LI+16, LI+18, PRT+5, PRT+6
, PRT+10, PRT+11, PRT+14, PRT+15, PRT+16, PRT+17
^XUSEC("RMPR FCP MANAGER" RMPR4LI+10

Label References

Name Line Occurrences
$$DEC RMPR4LI+10
EXIT LI, LI+19
PRT LI+3

Naked Globals

Name Field # of Occurrence
^(0 LI+16, PRT+3, PRT+11, PRT+14, PRT+15, PRT+16, PRT+17
^(2 LI+5, PRT+14, PRT+15, PRT+17
^(9 PRT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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