Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  ^DIC  ENALL^DIK  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 2 PARSE^RMPOPED  DIV4^RMPRSIT  
DRG Grouper 1 ($$ICDDX,$$SINFO,$$VLT)^ICDEX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Prosthetics 1 RMPR PSAS HCPCS HISTORY  

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

External References

Name Field # of Occurrence
^%DT EN+8, ENDATE+1
DD^%DT ENDATE+4, CON+2, CON+56, HEAD+8
^%ZIS ENDATE+5
HOME^%ZIS EN+2
^%ZISC EXIT1
^%ZTLOAD ENDATE+9
^DIC EN+5
ENALL^DIK XREF+4
^DIR EXIT+3, CON+68, REST+1, NONE+2
$$ICDDX^ICDEX CON+40
$$SINFO^ICDEX CON+25
$$VLT^ICDEX CON+45
PARSE^RMPOPED CON+60
DIV4^RMPRSIT EN+2

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
Routine Call
  • DIC
  • Line Location:
    • EN+5
Routine Call
  • DIR
  • Line Location:
    • EXIT+3
    • CON+68
    • REST+1
    • NONE+2
Routine Call
  • %ZIS
  • Line Location:
    • ENDATE+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(660 - [#660] Classic Fileman Calls
^RMPR(661.1 - [#661.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEAD+3
^DPT - [#2] CON+3
^PRC(440 - [#440] CON+4
^PRC(441 - [#441] CON+6
^RMPR(660 - [#660] PRINT+5, PRINT+8, CK, CK+2, CK+3, CK+5, CON+2, CON+3, CON+4, CON+5
, CON+8, CON+9, CON+10, CON+11, CON+12, CON+23, CON+31, HEAD+5
^RMPR(661 - [#661] CON+6
^RMPR(661.1 - [#661.1] HEAD+5, NONE, XREF+2*
^VA(200 - [#200] CON+12

Label References

Name Line Occurrences
CK PRINT+8
CON CK+5
ENDATE ENDATE+2
EXIT ENDATE+3, ENDATE+5, PRINT+9
EXIT1 EN+2, EN+5, EN+8, ENDATE+1, ENDATE+9
HEAD CON+1, CON+68, CON+69
NONE REST
PRINT ENDATE+6
REST PRINT+3

Naked Globals

Name Field # of Occurrence
^("LB" CON+9
^(0 CK+2, CON+9, CON+10, CON+11, CON+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+8*, ENDATE*, EXIT1!
%DT("A" EN+8*, ENDATE*
%DT("B" EN+8*, ENDATE*
>> %ZIS ENDATE+5*
>> BH HEAD+9*
COSTT PRINT+1*, EXIT1!, CON+9*, CON+10*, REST, REST+3*
DIC EN+4*, EXIT1!
DIC("A" EN+5*
DIC(0 EN+4*
>> DIK XREF+4*
>> DIK(1 XREF+4*
DIR EXIT+3!, EXIT1!, CON+68!, REST+1!, NONE+2!
DIR(0 EXIT+3*, CON+68*, REST+1*, NONE+2*
>> DTOUT EN+5, EXIT+3
>> DUOUT EXIT+3
ENDD PRINT+7!, EXIT+2, EXIT+3, EXIT1!, NONE+2*
GOTO EXIT1!
IO ENDATE+6
IO("Q" ENDATE+6, ENDATE+7!
IOF CON, CON+68, CON+69, REST+1, REST+2, NONE, NONE+2
IOM HEAD+9
ION ENDATE+7
IOP ENDATE+5!
IOSL CON, CON+68, CON+69
IOST EXIT+2, EXIT+3, CON+68, REST+1, REST+2, NONE+2
ITEM EN*, EN+5*, EN+6*, EN+7, EXIT1!
ITMP CON+5*, CON+6, CON+7!
KILL EN+1!, PRINT+3, PRINT+6, PRINT+8, EXIT+1, EXIT+3, EXIT1!, CON+68*, REST, REST+1*
, NONE+2*
PAGE PRINT+1*, EXIT1!, CON, HEAD, HEAD+6*
>> POP ENDATE+5
QTYT PRINT+1*, EXIT1!, CON+9*, CON+10*, REST, REST+3*
>> RMPR("STA" CK+3, HEAD+2
RMPRACS CON+18~, CON+20*, CON+25*, CON+26, CON+27*, CON+28*, CON+43, CON+48
RMPRACSI CON+18~, CON+20*, CON+26*, CON+40
RMPRARR EN*, EXIT1!
RMPRARR( EN+7*, PRINT+3, PRINT+4, PRINT+6, CK+5, REST+1, REST+2, NONE
RMPRBDT EN+8*, ENDATE+2, ENDATE+4, EXIT1!, CK+2, HEAD+8
RMPRCNT CON+18~, CON+63*
RMPRCOUN EN+8*, PRINT+1*, EXIT+1, EXIT1!, CON, CON+1*, REST, REST+3*
>> RMPRDA EN*, CON+2*
RMPRDAT CON+18~, CON+20*, CON+23*, CON+25, CON+40, CON+45
RMPRDATA CON+18~, CON+20*, CON+31*, CON+32, CON+33, CON+34, CON+35
RMPREDT ENDATE+4*, EXIT+1, EXIT+3, EXIT1!, CK+2, HEAD+8
RMPRERR CON+18~, CON+22*, CON+41*, CON+43
>> RMPRFLL EXIT+3
RMPRI EN*, EXIT1!
RMPRI( EN+6, EN+7*
RMPRICD CON+18~, CON+20*, CON+40*, CON+41, CON+43, CON+45, CON+51, CON+54, CON+55
RMPRPROD CON+19~, CON+21*, CON+34*
RMPRSE EXIT1!
RMPRSICD CON+18~, CON+20*, CON+35*, CON+38, CON+40, CON+48, CON+50
RMPRSTAW HEAD+1~, HEAD+2*, HEAD+3*, HEAD+6
RMPRTOR CON+19~, CON+21*, CON+33*, CON+48
RMPRTXT CON+60, CON+64!
RMPRTXT( CON+63
RMPRTXT(1 CON+48*, CON+51*
RMPRTXT(2 CON+45*
RMPRTXT(3 CON+57*
RMPRTXT1 CON+19~, CON+21*
RMPRX ENDATE+4*, EXIT1!
RMPRY ENDATE+4*, EXIT1!
RO PRINT+4*, PRINT+5*, PRINT+6, PRINT+8, EXIT1!
RP PRINT+1*, PRINT+8*, EXIT1!, CK, CK+2, CK+3, CK+5, CON+2, CON+3, CON+4
, CON+5, CON+8, CON+9, CON+10, CON+11, CON+12, CON+23, CON+31, HEAD+5
RQ PRINT+2*, PRINT+3*, PRINT+4, PRINT+6, EXIT1!, CK+5, REST+1, REST+2, NONE
U PRINT+4, PRINT+6, CK+2, CK+3, CK+5, CON+2, CON+3, CON+4, CON+5, CON+6
, CON+8, CON+9, CON+10, CON+11, CON+12, CON+23, CON+26, CON+27, CON+33, CON+34
, CON+35, CON+41, CON+43, CON+51, CON+54, CON+55, HEAD+3, HEAD+5, NONE, XREF+2
>> X EN+2, EN+5
>> Y EN+6, EN+7, EN+8, ENDATE+1, ENDATE+2, ENDATE+3, ENDATE+4*, CON+2*, CON+3, CON+55*
, CON+57, CON+68, HEAD+8*, REST+1, NONE+2
>> ZTDESC ENDATE+7*
>> ZTIO ENDATE+7*
>> ZTRTN ENDATE+7*
>> ZTSAVE("RMPR(" ENDATE+8*
>> ZTSAVE("RMPR(""STA"")" ENDATE+7*
>> ZTSAVE("RMPRARR(" ENDATE+7*
>> ZTSAVE("RMPRBDT" ENDATE+7*
>> ZTSAVE("RMPREDT" ENDATE+7*
>> ZTSAVE("RMPRI(" ENDATE+7*
>> ZTSAVE("RMPRSITE" ENDATE+8*
>> ZTSAVE("RMPRX" ENDATE+7*
>> ZTSAVE("RMPRY" ENDATE+7*
>> ZTSK ENDATE+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All