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

Package: Prosthetics

Routine: RMPRSE2


Information

RMPRSE2 ;PHX/RFM/HNB -SEARCH FILE 660 ENTRIES FOR HCPCS HISTORY ;1/23/1998

Source Information

Source file <RMPRSE2.m>

Entry Points

Name Comments DBIA/ICR reference
EN
ENDATE
PRINT ;ENTRY POINT FOR PRINTING REPORT
EXIT ;EXIT FROM REPORT HERE
EXIT1
CK
CON
HEAD
REST
NONE
XREF ;set new x-ref for the field HCPCS in 660

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$C(7)," ??",?40,"..Duplicate HCPCS"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+2
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+3
Function Call: WRITE
  • Prompt: !,"ITEM: "
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: ?27,"QTY: ",$J($P(^RMPR(660,RP,0),U,7),4),?38,"TOTAL COST: ",$J($FN($P(^(0),U,16),"P",2),8)
  • Line Location: CON+10
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+11
Function Call: WRITE
  • Prompt: ?15,$P(^(0),U),!
  • Line Location: CON+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+14
Function Call: WRITE
  • Prompt: ?55,Y,"-"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"TOTAL DOLLARS SPENT ON THIS HCPCS: ","$"_$J($FN(COSTT,"P",2),9),?45,"TOTAL QUANTITY ISSUED: ",$J(QTYT,4)
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: @IOF,!!,"No '",$P(^ICPT(RMPRARR(RQ),0),U,1),"' HCPCS History for this date range.",!
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !!,"New Cross Reference for HCPCS..."
  • Line Location: XREF+1

FileMan Files Accessed Via FileMan Db Call

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