Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RMPRP24

Package: Prosthetics

Routine: RMPRP24


Information

RMPRP24 ;PHX/HPL-Print patient notification letter ; 1/2/04 11:30am

Source Information

Source file <RMPRP24.m>

Entry Points

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

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),?44,"In reply refer to: ",$P(^DIC(4,RMPR("STA"),99),U,1)_"/"_$$ROU^RMPRUTIL(RMPRSITE),!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!!,?RMPRTAB,"Dear ",$S($P(VADM(5),"^",1)["M":"Mr. ",$P(VADM(5),"^",1)["F":"Ms. ",1:"")_FIXDNAME_","
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,?RMPRTAB+0
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: "This is to notify you that the items listed below were ordered"
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !,?RMPRTAB,"for you on "
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(^RMPR(664,RDA,0),U,1),"D")_". Delivery of this equipment is expected"
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,?RMPRTAB,"If you do not receive it within 5 days of the expected date,"
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: $$RAP^RMPRUTL1(LINE,RMPRTAB)
  • Line Location: EN+31
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
Info |  Source |  Entry Points |  Interaction Calls