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

Package: Prosthetics

Routine: RMPRSE21


Information

RMPRSE21 ;HINES CIOFO/HNB - SEARCH FILE 660 ENTRIES PSAS HCPCS HISTORY;1/23/1998

Source Information

Source file <RMPRSE21.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 PSAS 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: !,RMPRACS_"Message: "_$P(RMPRICD,U,2)
  • Line Location: CON+43
Function Call: WRITE
  • Prompt: !,RMPRTXT(RMPRCNT)
  • Line Location: CON+63
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+68
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+69
Function Call: WRITE
  • Prompt: ?55,Y,"-"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: HEAD+9
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(^RMPR(661.1,RMPRARR(RQ),0),U,1),"' PSAS 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+3
Function Call: WRITE
  • Prompt: !!,"Done"
  • Line Location: XREF+5

FileMan Files Accessed Via FileMan Db Call

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