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

Package: Prosthetics

Routine: RMPRSE1


Information

RMPRSE1 ;PHX/RFM-SEARCH FILE 660 ENTRIES FOR ITEM HISTORY ;8/29/1994

Source Information

Source file <RMPRSE1.m>

Entry Points

Name Comments DBIA/ICR reference
EN
ENDATE
PRINT ;ENTRY POINT FOR PRINTING REPORT
PRI
PRI1
EXIT ;EXIT FROM REPORT HERE
EXIT1
CK
CON
HEAD
REST
NONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate Item"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+0
Function Call: WRITE
  • Prompt: !!?32,"END OF REPORT"
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+2
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)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,"SERIAL NBR:",?12,$E($P(^RMPR(660,RP,0),U,11),1,12),?25,"QTY: ",$J($P(^(0),U,7),4),?38,"TOTAL COST: ",$J($FN($P(^(0),U,16),"P",2),8)
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: ?60,$S($P(^RMPR(660,RP,0),U,4)="I":"INITIAL ISSUE",$P(^(0),U,4)="R":"REPLACEMENT",$P(^(0),U,4)="S":"SPARE",$P(^(0),U,4)="X":"REPAIR",$P(^(0),U,4)="5":"RENTAL",1:"UNK"),!,"INITIATOR: "
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: ?15,$P(^(0),U),!
  • Line Location: CON+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+8
Function Call: WRITE
  • Prompt: !,"ITEM HISTORY:",?15,$E($P(^PRC(441,$P(^RMPR(661,$P(^RMPR(660,RP,0),U,6),0),U,1),0),U,2),1,39),?63,"STA ",RMPR("STA"),?72,"PAGE ",PAGE
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!,"REQUEST DATE",?15,"PATIENT NAME",?30,"SSN",?36,"VENDOR"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?55,Y,"-"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?55,Y,"-"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: @IOF,!!,"No Item History for this date range for:",!,$P(^PRC(441,$P(^RMPR(661,$P(RMPRARR(RQ),U),0),U),0),U,2)
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: NONE+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