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 |  Local Variables  | All
Print Page as PDF
Routine: RMPRPAT3

Package: Prosthetics

Routine: RMPRPAT3


Information

RMPRPAT3 ;HINES-CIOFO/HNC,RVD - Detail Display Patient 10-2319 Transaction ;11/03/04

Source Information

Source file <RMPRPAT3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 DD^%DT  EN^DDIOL  EN^DIQ1  ^DIR  
Prosthetics 3 PARSE^RMPOPED  DISP^RMPR293  ^RMPRPAT7  
DRG Grouper 1 ($$ICDDX,$$SINFO,$$VLT)^ICDEX  

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

Package Total Caller Graph
Prosthetics 2 RMPOBIL5  RMPRPAT2  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;called from RMPRPAT2
HDR ;display heading
EXIT ;common exit point
EX1 ;back out through that point to clean up

External References

Name Field # of Occurrence
DD^%DT PRINT+146
EN^DDIOL PRINT+168
EN^DIQ1 PRINT+6, PRINT+7, PRINT+13, PRINT+60
^DIR PRINT+167, PRINT+170, PRINT+174, EXIT+2
$$ICDDX^ICDEX PRINT+130
$$SINFO^ICDEX PRINT+115
$$VLT^ICDEX PRINT+135
PARSE^RMPOPED PRINT+150
DISP^RMPR293 PRINT+178
^RMPRPAT7 PRINT+170

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+29
Function Call: WRITE
  • Prompt: !,"TYPE TRANS: ",$G(R19(660,RMPRDA,2,"E"))
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: ?30,"QTY: ",$G(R19(660,RMPRDA,5,"E"))
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: ?40,"SOURCE: ",$G(R19(660,RMPRDA,12,"E"))
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !,"VENDOR: ",?15,$G(R19(660,RMPRDA,7,"E"))
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !,"DELIVERY DATE: "
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: R19(660,RMPRDA,10,"E")
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: ?40,"SUSPENSE DATE: "
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: R19(660,RMPRDA,8.1,"E")
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: "$"_$J(R19(660,RMPRDA,14,"E"),2)
  • Line Location: PRINT+50
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+51
Function Call: WRITE
  • Prompt: ?30,"OBL: ",$G(R19(660,RMPRDA,23,"E"))
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !,"REMARKS: ",?15,$G(R19(660,RMPRDA,16,"E"))
  • Line Location: PRINT+70
Function Call: WRITE
  • Prompt: ?40,"RETURN STATUS: ",R19(660,RMPRDA,17.5,"E")
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: !,"DISABILITY SERVED: ",$G(R19(660,RMPRDA,62,"E"))
  • Line Location: PRINT+91
Function Call: WRITE
  • Prompt: !,"ITEM DESCRIPTION: ",$G(R19(660,RMPRDA,89,"E"))
  • Line Location: PRINT+94
Function Call: WRITE
  • Prompt: !,"*** See Above For Original Item Description ***"
  • Line Location: PRINT+96
Function Call: WRITE
  • Prompt: !,"APPLIANCE: ",$G(R19(660,RMPRDA,4,"E"))
  • Line Location: PRINT+97
Function Call: WRITE
  • Prompt: !,"CONTRACT #: ",$G(R19(660,RMPRDA,38.7,"E"))
  • Line Location: PRINT+98
Function Call: WRITE
  • Prompt: !,"EXCLUDED/WAIVER: ",$G(R19(660,RMPRDA,38.1,"E"))
  • Line Location: PRINT+99
Function Call: WRITE
  • Prompt: !,"PSAS HCPCS: ",$G(R19(660,RMPRDA,4.5,"E"))
  • Line Location: PRINT+100
Function Call: WRITE
  • Prompt: ?22,$P($G(^RMPR(661.1,$P(^RMPR(660,RMPRDA,1),U,4),0)),U,2)
  • Line Location: PRINT+101
Function Call: WRITE
  • Prompt: !,RMPRACS_"Message: "_$P(RMPRICD,U,2)
  • Line Location: PRINT+133
Function Call: WRITE
  • Prompt: !,RMPRTXT(RMPRCNT)
  • Line Location: PRINT+153
Function Call: WRITE
  • Prompt: !,"CPT MODIFIER: ",$G(R19(660,RMPRDA,4.7,"E"))
  • Line Location: PRINT+158
Function Call: WRITE
  • Prompt: !,"DESCRIPTION: ",DESCRPT
  • Line Location: PRINT+161
Function Call: WRITE
  • Prompt: !,"EXTENDED DESCRIPTION: ",!
  • Line Location: PRINT+162
Function Call: WRITE
  • Prompt: !,"EXTENDED DESCRIPTION: ",!
  • Line Location: PRINT+167
Function Call: WRITE
  • Prompt: !!,"*** Return For DETAIL REPORT ***"
  • Line Location: PRINT+170
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+170
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,"<4-",ANS,">",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EX1+1
Routine Call
  • DIR
  • Line Location:
    • PRINT+167
    • PRINT+170
    • PRINT+174
    • EXIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(660 - [#660] PRINT+9, PRINT+12, PRINT+55, PRINT+57, PRINT+101, PRINT+113, PRINT+121, PRINT+160, PRINT+167
^RMPR(661.1 - [#661.1] PRINT+101

Label References

Name Line Occurrences
EX1 PRINT+163, PRINT+170, PRINT+173
EXIT PRINT+181
HDR PRINT+23, PRINT+167, PRINT+170

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AN PRINT+48, PRINT+170
>> ANS PRINT+5, HDR+5
DA PRINT+3~, PRINT+5*, PRINT+9*, PRINT+10, PRINT+12*, PRINT+56~, PRINT+57*, PRINT+58
DESCRPT PRINT+3~, PRINT+160*, PRINT+161
DIC PRINT+3~, PRINT+4*, PRINT+11*, PRINT+56~, PRINT+59*, PRINT+176~
DIQ PRINT+3~, PRINT+4*, PRINT+7*, PRINT+11*, PRINT+56~, PRINT+59*
DIQ(0 PRINT+4*, PRINT+7*, PRINT+11*, PRINT+59*
DIR PRINT+167~, PRINT+170~, EXIT+2~
DIR(0 PRINT+167*, PRINT+170*, PRINT+174*, EXIT+2*
DR PRINT+3~, PRINT+4*, PRINT+7*, PRINT+11*, PRINT+56~, PRINT+59*
>> DTOUT PRINT+163, PRINT+167, PRINT+170, PRINT+174
>> DUOUT PRINT+163, PRINT+167, PRINT+170, PRINT+174
IOF PRINT+170, HDR+1, EX1+1
IOSL EXIT+1
>> IT( PRINT+5, PRINT+48, PRINT+170
L19 PRINT+56~
L19( PRINT+63
MSGICD EX1+1!
R19 EX1+1!
R19(660 PRINT+24, PRINT+25, PRINT+26, PRINT+29, PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+35, PRINT+36
, PRINT+37, PRINT+38, PRINT+45, PRINT+46, PRINT+50, PRINT+51, PRINT+52, PRINT+61, PRINT+62, PRINT+64
, PRINT+65, PRINT+66, PRINT+67, PRINT+68, PRINT+69, PRINT+70, PRINT+71, PRINT+74, PRINT+77, PRINT+78
, PRINT+79, PRINT+80, PRINT+81, PRINT+82, PRINT+85, PRINT+87, PRINT+89, PRINT+91, PRINT+94, PRINT+96
, PRINT+97, PRINT+98, PRINT+99, PRINT+100, PRINT+158, PRINT+160, PRINT+163, PRINT+166, PRINT+173, PRINT+177
, HDR+3
R28 PRINT+164~, PRINT+166*, PRINT+168
RMPRACS PRINT+108~, PRINT+110*, PRINT+115*, PRINT+116, PRINT+117*, PRINT+118*, PRINT+133, PRINT+138
RMPRACSI PRINT+108~, PRINT+110*, PRINT+116*, PRINT+130
RMPRBCK PRINT+175*, PRINT+177, PRINT+179!
RMPRCNT PRINT+108~, PRINT+153*
RMPRDA PRINT+3~, PRINT+5*, PRINT+9, PRINT+12, PRINT+24, PRINT+25, PRINT+26, PRINT+29, PRINT+30, PRINT+31
, PRINT+32, PRINT+33, PRINT+35, PRINT+36, PRINT+37, PRINT+38, PRINT+45, PRINT+46, PRINT+50, PRINT+51
, PRINT+52, PRINT+55, PRINT+57, PRINT+61, PRINT+62, PRINT+64, PRINT+65, PRINT+66, PRINT+67, PRINT+68
, PRINT+69, PRINT+70, PRINT+71, PRINT+74, PRINT+77, PRINT+78, PRINT+79, PRINT+80, PRINT+81, PRINT+82
, PRINT+85, PRINT+87, PRINT+89, PRINT+91, PRINT+94, PRINT+96, PRINT+97, PRINT+98, PRINT+99, PRINT+100
, PRINT+101, PRINT+113, PRINT+121, PRINT+158, PRINT+160, PRINT+163, PRINT+166, PRINT+167, PRINT+173, PRINT+175
, PRINT+177*, PRINT+178, PRINT+179*, HDR+3
RMPRDAT PRINT+108~, PRINT+110*, PRINT+113*, PRINT+115, PRINT+130, PRINT+135
RMPRDATA PRINT+108~, PRINT+110*, PRINT+121*, PRINT+122, PRINT+123, PRINT+124, PRINT+125
>> RMPRDOB HDR+4
RMPRERR PRINT+108~, PRINT+112*, PRINT+131*, PRINT+133, EX1+1!
RMPRICD PRINT+108~, PRINT+110*, PRINT+130*, PRINT+131, PRINT+133, PRINT+135, PRINT+141, PRINT+144, PRINT+145, EX1+1!
>> RMPRLA PRINT+57*, PRINT+63
>> RMPRNAM HDR+1
RMPRPROD PRINT+109~, PRINT+111*, PRINT+124*
RMPRSICD PRINT+108~, PRINT+110*, PRINT+125*, PRINT+128, PRINT+130, PRINT+138, PRINT+140
>> RMPRSSN HDR+2
RMPRTOR PRINT+109~, PRINT+111*, PRINT+123*, PRINT+138
RMPRTXT PRINT+150, PRINT+154!
RMPRTXT( PRINT+153
RMPRTXT(1 PRINT+138*, PRINT+141*
RMPRTXT(2 PRINT+135*
RMPRTXT(3 PRINT+147*
RMPRTXT1 PRINT+109~, PRINT+111*
RMPRV PRINT+3~, PRINT+12*, PRINT+40, PRINT+41, PRINT+42, PRINT+43
RV PRINT+3~, PRINT+39, EX1+1!
RV(440 PRINT+40, PRINT+41, PRINT+42, PRINT+43
U PRINT+9, PRINT+12, PRINT+48, PRINT+57, PRINT+101, PRINT+113, PRINT+116, PRINT+117, PRINT+123, PRINT+124
, PRINT+125, PRINT+131, PRINT+133, PRINT+141, PRINT+144, PRINT+145, PRINT+160, PRINT+167, PRINT+170
Y PRINT+145*, PRINT+147, EX1+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All