Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRST2

Package: Prosthetics

Routine: RMPRST2


Information

RMPRST2 ;PHX/RFM,RVD-DISPLAY ISSUE FROM STOCK ;3/8/05 08:07

Source Information

Source file <RMPRST2.m>

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 RMPRED6  RMPRHISD  RMPRHISL  RMPRSTE  RMPRSTL  

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRST2+5
Function Call: WRITE
  • Prompt: !,HL
  • Line Location: RMPRST2+5
Function Call: WRITE
  • Prompt: !!?31,"***HISTORICAL DATA***"
  • Condition for execution: $D(RMPRHISD)
  • Line Location: RMPRST2+6
Function Call: WRITE
  • Prompt: !!?5,"PATIENT NAME: ",RMPRNAM,?50,"SSN: ",RMPRSSN
  • Line Location: RMPRST2+6
Function Call: WRITE
  • Prompt: !!?5,"TYPE OF TRANSACTION: ",$P(R3("D"),U,4),?43,"SOURCE: ",$P(R3("D"),U,14)
  • Line Location: RMPRST2+7
Function Call: WRITE
  • Prompt: !!?5,"PATIENT CATEGORY: ",$P(R4("D"),U,3),?43,"SPECIAL CATEGORY: ",$P(R4("D"),U,4)
  • Line Location: RMPRST2+8
Function Call: WRITE
  • Prompt: !!?5,"ITEM: ",$E($P(^PRC(441,$P(^RMPR(661,$P(R1(0),U,6),0),U,1),0),U,2),1,30),?43,"VENDOR: "
  • Line Location: RMPRST2+9
Function Call: WRITE
  • Prompt: $E($P(^PRC(440,+$P(R1(0),U,9),0),U,1),1,29)
  • Line Location: RMPRST2+9
Function Call: WRITE
  • Prompt: !!?5,"PSAS HCPCS: ",$P(^RMPR(661.1,$P(R1(1),U,4),0),U,1)," ",$P(^(0),U,2),!!?5,"CPT MODIFIER: ",$P(R1(1),U,6)
  • Line Location: RMPRST2+10
Function Call: WRITE
  • Prompt: !!?5,"HCPCS/ITEM: ",$P(R1(2),U,1)," ",$P(R1(2),U,2)
  • Line Location: RMPRST2+11
Function Call: WRITE
  • Prompt: !!?5,"QUANTITY: ",$P(R1(0),U,7),?23,"UNIT COST: ",$J(RUNICOST,0,2),?43,"TOTAL COST: ",$J(RTOTCOST,0,2)
  • Line Location: RMPRST2+15
Function Call: WRITE
  • Prompt: !!?5,"SERIAL NUMBER: ",$P(R1(0),U,11),?43,"LOT NUMBER: ",$P(R1(0),U,24),!?5,"REMARKS: ",$P(R1(0),U,18)
  • Line Location: RMPRST2+16
Function Call: WRITE
  • Prompt: !?5,"DATE OF SERVICE: ",$P($G(R1("D")),U,8)
  • Line Location: RMPRST2+17
Function Call: WRITE
  • Prompt: ?43,"Inventory Location: "
  • Line Location: RMPRST2+18
Function Call: WRITE
  • Prompt: $P($G(^RMPR(661.3,RMLOC,0)),U,1)
  • Line Location: RMPRST2+19
Function Call: WRITE
  • Prompt: $P($G(^RMPR(661.5,RMLOC,0)),U,1)
  • Line Location: RMPRST2+20
Function Call: WRITE
  • Prompt: !,HL
  • Line Location: RMPRST2+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] RMPRST2+9
^PRC(441 - [#441] RMPRST2+9
^RMPR(661 - [#661] RMPRST2+9
^RMPR(661.1 - [#661.1] RMPRST2+10
^RMPR(661.5 - [#661.5] RMPRST2+20

Naked Globals

Name Field # of Occurrence
^(0 RMPRST2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> HL RMPRST2+5*, RMPRST2+21
IOF RMPRST2+5
IOM RMPRST2+5
>> R1("D" RMPRST2+17
>> R1(0 RMPRST2+9, RMPRST2+13, RMPRST2+14, RMPRST2+15, RMPRST2+16
>> R1(1 RMPRST2+10
>> R1(2 RMPRST2+11
>> R3("D" RMPRST2+7
>> R4("D" RMPRST2+8
>> RMLACO RMPRST2+12*, RMPRST2+14
>> RMLOC RMPRST2+20
>> RMPRHISD RMPRST2+6
>> RMPRNAM RMPRST2+6
>> RMPRSSN RMPRST2+6
RTOTCOST RMPRST2+14*, RMPRST2+15, RMPRST2+22!
RUNICOST RMPRST2+13*, RMPRST2+15, RMPRST2+22!
U RMPRST2+7, RMPRST2+8, RMPRST2+9, RMPRST2+10, RMPRST2+11, RMPRST2+13, RMPRST2+14, RMPRST2+15, RMPRST2+16, RMPRST2+17
, RMPRST2+20
Info |  Source |  Caller Graph |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All