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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPREOPT

Package: Prosthetics

Routine: RMPREOPT


Information

RMPREOPT ;HINES-CIOFO/HNC,RVD - Detail Display Associated 10-2319 Transaction ;2-10-00

Source Information

Source file <RMPREOPT.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 EN^DDIOL  EN^DIQ1  ^DIR  
Prosthetics 1 DISP^RMPR293  

Entry Points

Name Comments DBIA/ICR reference
PRINT(DA) ;extrinsic function to display 660 record in detail
HDR ;display heading
EXIT ;common exit point

External References

Name Field # of Occurrence
EN^DDIOL PRINT+99
EN^DIQ1 PRINT+6, PRINT+7, PRINT+13, PRINT+57
^DIR PRINT+105, EXIT+2
DISP^RMPR293 PRINT+109

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"TYPE OF FORM: ",$G(R19(660,RMPRDA,11,"E"))
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: ?25,"INITIATOR: ",$G(R19(660,RMPRDA,27,"E"))
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?55,"DATE: ",$G(R19(660,RMPRDA,1,"E"))
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,"DELIVER TO: ",$G(R19(660,RMPRDA,25,"E"))
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,"TYPE TRANS: ",$G(R19(660,RMPRDA,2,"E"))
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: ?30,"QTY: ",$G(R19(660,RMPRDA,5,"E"))
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: ?40,"SOURCE: ",$G(R19(660,RMPRDA,12,"E"))
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !,"VENDOR: ",?15,$G(R19(660,RMPRDA,7,"E"))
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !,"DELIVERY DATE: "
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: R19(660,RMPRDA,10,"E")
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: "$"_$J(R19(660,RMPRDA,14,"E"),2)
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: $S($G(R19(660,RMPRDA,6,"E"))'="":"$"_$J(R19(660,RMPRDA,6,"E"),2),$G(R19(660,RMPRDA,48,"E"))'="":"$"_$J(R19(660,RMPRDA,48,"E"),2),1:"")
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: ?30,"OBL: ",$G(R19(660,RMPRDA,23,"E"))
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: !,"REMARKS: ",?15,$G(R19(660,RMPRDA,16,"E"))
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?40,"RETURN STATUS: ",R19(660,RMPRDA,17.5,"E")
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: !,"DISABILITY SERVED: ",$G(R19(660,RMPRDA,62,"E"))
  • Line Location: PRINT+88
Function Call: WRITE
  • Prompt: !,"APPLIANCE: ",$G(R19(660,RMPRDA,4,"E"))
  • Line Location: PRINT+90
Function Call: WRITE
  • Prompt: !,"PSAS HCPCS: ",$G(R19(660,RMPRDA,4.5,"E"))
  • Line Location: PRINT+91
Function Call: WRITE
  • Prompt: ?22,$P($G(^RMPR(661.1,$P(^RMPR(660,RMPRDA,1),U,4),0)),U,2)
  • Line Location: PRINT+92
Function Call: WRITE
  • Prompt: !,"DESCRIPTION: ",$G(R19(660,RMPRDA,24,"E"))
  • Line Location: PRINT+93
Function Call: WRITE
  • Prompt: !,"EXTENDED DESCRIPTION: ",!
  • Line Location: PRINT+94
Function Call: WRITE
  • Prompt: !!,"*** Return For DETAIL REPORT ***"
  • Line Location: PRINT+101
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+101
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+104
Function Call: WRITE
  • Prompt: @IOF,RMPRNAM,?30," SSN: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,10),?50
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $G(R19(660,RMPRDA,8,"E")),?70,"DOB: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $S(RMPRDOB:$E(RMPRDOB,4,5)_"-"_$E(RMPRDOB,6,7)_"-"_(1700+$E(RMPRDOB,1,3)),1:"Unknown")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?20,"APPLIANCE/REPAIR LINE ITEM DETAIL ",?70,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+5
Routine Call
  • DIR
  • Line Location:
    • PRINT+105
    • EXIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(660 - [#660] PRINT+9, PRINT+12, PRINT+52, PRINT+54, PRINT+92
^RMPR(661.1 - [#661.1] PRINT+92

Label References

Name Line Occurrences
EXIT PRINT+112
HDR PRINT+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PRINT~, PRINT+5, PRINT+9*, PRINT+10, PRINT+12*, PRINT+53~, PRINT+54*, PRINT+55
DIC PRINT+3~, PRINT+4*, PRINT+11*, PRINT+53~, PRINT+56*, PRINT+107~
DIQ PRINT+3~, PRINT+4*, PRINT+7*, PRINT+11*, PRINT+53~, PRINT+56*
DIQ(0 PRINT+4*, PRINT+7*, PRINT+11*, PRINT+56*
DIR EXIT+2~
DIR(0 PRINT+105*, EXIT+2*
DR PRINT+3~, PRINT+4*, PRINT+7*, PRINT+11*, PRINT+53~, PRINT+56*
IOF PRINT+104, HDR+1, EXIT+5
IOSL EXIT+1
L19 PRINT+53~
L19( PRINT+60
R19 PRINT+104!, EXIT+5!
R19(660 PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30, PRINT+31, PRINT+33, PRINT+34
, PRINT+35, PRINT+36, PRINT+43, PRINT+49, PRINT+58, PRINT+59, PRINT+61, PRINT+62, PRINT+63, PRINT+64
, PRINT+65, PRINT+66, PRINT+67, PRINT+68, PRINT+71, PRINT+74, PRINT+75, PRINT+76, PRINT+77, PRINT+78
, PRINT+79, PRINT+82, PRINT+84, PRINT+86, PRINT+88, PRINT+90, PRINT+91, PRINT+93, PRINT+95, PRINT+98
, PRINT+104, PRINT+108, HDR+3
R28 PRINT+96~, PRINT+98*, PRINT+99
RMPRBCK PRINT+106*, PRINT+108, PRINT+110!
RMPRDA PRINT+3~, PRINT+5*, PRINT+9, PRINT+12, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29
, PRINT+30, PRINT+31, PRINT+33, PRINT+34, PRINT+35, PRINT+36, PRINT+43, PRINT+49, PRINT+52, PRINT+54
, PRINT+58, PRINT+59, PRINT+61, PRINT+62, PRINT+63, PRINT+64, PRINT+65, PRINT+66, PRINT+67, PRINT+68
, PRINT+71, PRINT+74, PRINT+75, PRINT+76, PRINT+77, PRINT+78, PRINT+79, PRINT+82, PRINT+84, PRINT+86
, PRINT+88, PRINT+90, PRINT+91, PRINT+92, PRINT+93, PRINT+95, PRINT+98, PRINT+104, PRINT+106, PRINT+108*
, PRINT+109, PRINT+110*, HDR+3
>> RMPRDOB HDR+4
>> RMPRLA PRINT+54*, PRINT+60
>> RMPRNAM HDR+1
>> RMPRSSN HDR+2
RMPRV PRINT+3~, PRINT+12*, PRINT+38, PRINT+39, PRINT+40, PRINT+41
RV PRINT+3~, PRINT+37, PRINT+104!, EXIT+5!
RV(440 PRINT+38, PRINT+39, PRINT+40, PRINT+41
U PRINT+9, PRINT+12, PRINT+54, PRINT+92
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All