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

Package: Prosthetics

Routine: RMPR4P24


Information

RMPR4P24 ;PHX/HPL-Print patient PC notification letter ;10/31/1994

Source Information

Source file <RMPR4P24.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Prosthetics 3 ($$ITM,$$SIG)^RMPR31U  $$ROU^RMPRUTIL  ($$PARS,$$RAP)^RMPRUTL1  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
Registration 1 (ADD,DEM)^VADPT  

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

Package Total Caller Graph
Prosthetics 1 RMPR4P21  

Entry Points

Name Comments DBIA/ICR reference
EN(RDA) ;SETUP VARIABLES AND PRINT PATIENT NOTIFICATION LETTER
ITEMS

External References

Name Field # of Occurrence
$$ITM^RMPR31U ITEMS+4
$$SIG^RMPR31U EN+3
$$ROU^RMPRUTIL EN+18
$$PARS^RMPRUTL1 EN+14
$$RAP^RMPRUTL1 EN+35
ADD^VADPT EN+6
DEM^VADPT EN+6
$$FMTE^XLFDT EN+15, EN+31, EN+32
$$UP^XLFSTR EN+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!!,?IOM-$L(HEADING)\2,HEADING
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,?RMPRTAB,RMPR("NAME")
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,?RMPRTAB,RMPR("ADD")
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,?RMPRTAB,RMPR("CITY")
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,?44,$$FMTE^XLFDT(DT,"D")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,?RMPRTAB,$S($P(VADM(5),U,1)["M":"MR. ",$P(VADM(5),U,1)["F":"MS. ",1:"")_$$UP^XLFSTR(FIXDNAME)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: ?44,"In reply refer to: ",$P(^DIC(4,RMPR("STA"),99),U,1)_"/"_$$ROU^RMPRUTIL(RMPRSITE),!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: ?44,"Accounting Symbol ",$P(^RMPR(664,RDA,4),U,5),!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: ?44,"Veteran: ",VADM(1),!
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !!,?RMPRTAB,"Dear ",$S($P(VADM(5),"^",1)["M":"Mr. ",$P(VADM(5),"^",1)["F":"Ms. ",1:"")_FIXDNAME_","
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,?RMPRTAB+0
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: "This is to notify you that the items listed below were ordered"
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !,?RMPRTAB,"for you on "
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(^RMPR(664,RDA,0),U,1),"D")_". Delivery of this equipment is expected"
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !!,?RMPRTAB,"If you do not receive it within 5 days of the expected date,"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: $$RAP^RMPRUTL1(LINE,RMPRTAB)
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEMS+1
Function Call: WRITE
  • Prompt: !,?RMPRTAB+3,RMPRITEM(LP)
  • Line Location: ITEMS+3
Function Call: WRITE
  • Prompt: !,?RMPRTAB+3,$$ITM^RMPR31U(RMPRITM)
  • Line Location: ITEMS+4
Function Call: WRITE
  • Prompt: !!,?RMPRTAB,"Sincerely,"
  • Line Location: ITEMS+5
Function Call: WRITE
  • Prompt: !!!!!,?RMPRTAB,RMPR("SIG")
  • Line Location: ITEMS+6
Function Call: WRITE
  • Prompt: !,?RMPRTAB,RMPR("SBT")
  • Line Location: ITEMS+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ITEMS+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN+18
^RMPR(664 - [#664] EN+3, EN+5, EN+6, EN+8, EN+22, EN+31, EN+32, ITEMS+2
^VA(200 - [#200] EN+4, EN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ITEMS~
>> DFN EN+6*
DT EN+15
>> FIXDNAME EN+14*, EN+16*, EN+17, EN+27
>> HEADING EN+9*, EN+10
IOF ITEMS+8
IOM EN+10, EN+11, EN+12, EN+13
LINE EN+34*, EN+35, ITEMS+9!
>> LP EN+8*, ITEMS+2*, ITEMS+3, ITEMS+4
>> NAME EN+3*, EN+14*
RDA EN~, EN+3, EN+5, EN+6, EN+8, EN+22, EN+31, EN+32, ITEMS+2
>> RMPR("ADD" EN+12
>> RMPR("CITY" EN+13
>> RMPR("NAME" EN+11
>> RMPR("PHONE" EN+5
>> RMPR("SBT" ITEMS+7
>> RMPR("SIG" ITEMS+6
>> RMPR("STA" EN+18
RMPREMP EN+3*, EN+34, ITEMS+9!
>> RMPRINIT EN+3*, EN+4
>> RMPRITEM EN+7*
>> RMPRITEM( EN+8*, ITEMS+3
>> RMPRITM EN+8*, ITEMS+4*
>> RMPRITM( EN+8*, ITEMS+4
>> RMPRLAST ITEMS+2*
RMPRNAME ITEMS+9!
>> RMPRPHON EN+4*, EN+5*, EN+34
>> RMPRSITE EN+18
>> RMPRTAB EN+11*, EN+12*, EN+13*, EN+14*, EN+17, EN+20, EN+21, EN+23, EN+24, EN+27
, EN+28, EN+30, EN+32, EN+33, EN+35, ITEMS+3, ITEMS+4, ITEMS+5, ITEMS+6, ITEMS+7
U EN+3, EN+4, EN+5, EN+6, EN+8, EN+17, EN+18, EN+22, EN+31, EN+32
ITEMS+2
>> VADM(1 EN+14, EN+25
>> VADM(5 EN+17, EN+27
VAHOW EN+2~
>> VAPA(1 EN+20
>> VAPA(2 EN+21
>> VAPA(3 EN+23
>> VAPA(4 EN+24
>> VAPA(5 EN+24
>> VAPA(6 EN+24
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All