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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPRSEA

Package: Prosthetics

Routine: RMPRSEA


Information

RMPRSEA ;PHX/RFM-SEARCH FILE 660 ENTRIES FOR RECALLED ITEM ;8/29/1994

Source Information

Source file <RMPRSEA.m>

Entry Points

Name Comments DBIA/ICR reference
ENDATE
PRINT
PRI
EXIT
EXIT1
CK
CON
HEAD
AUT ;AUTOMOTIVE EQUIPMENT SEARCH
PRINTA
CK1
INF
HDR
SERIAL
ITEM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: RMPRSEA+4
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!"
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: !!?32,"END OF REPORT"
  • Line Location: PRI+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: !,Y,?15,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,1),1,13),?30,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,9),6,9),?36,$E($P(^PRC(441,$P(^RMPR(661,$P(^RMPR(660,RP,0),U,6),0),U,1),0),U,2),1,17)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,"LOT NBR:",?10,$P(^RMPR(660,RP,0),U,24),?25,"SERIAL NBR:",?37,$P(^RMPR(660,RP,0),U,11),!
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+6
Function Call: WRITE
  • Prompt: !,?10,"RECALLED ITEM REPORT"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?39,Y_"-"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?39,Y_"-"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: AUT+1
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: AUT+2
Function Call: WRITE
  • Prompt: !!,"NO SELECTION MADE DURING THIS DATE RANGE!!"
  • Line Location: PRINTA+2
Function Call: WRITE
  • Prompt: !,Y,?15,$E($P(^DPT(RPAT,0),U,1),1,13),?30,$E($P(^DPT(RPAT,0),U,9),6,9),?36,$P(^RMPR(667.1,$P(RAUT,U,3),0),U,1)
  • Line Location: INF+1
Function Call: WRITE
  • Prompt: !,"VEHICLE ID# ",$P(^RMPR(667,$P(RAUT,U,2),0),U,1),?50,"SERIAL # ",$P(RAUT,U,6)
  • Line Location: INF+2
Function Call: WRITE
  • Prompt: !,LI
  • Line Location: INF+2
Function Call: WRITE
  • Prompt: @IOF,!,"REQUEST DATE",?15,"PATIENT NAME",?30,"SSN",?36,"ITEM",?70,"PAGE ",PAGE
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,LI
  • Line Location: HDR+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(661 - [#661] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call