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

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  ^DIC  ENALL^DIK  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 2 DIV4^RMPRSIT  $$STA^RMPRUTIL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Prosthetics 3 RMPR HCPCS HISTORY  RMPRPST  RMPRPST1  

Entry Points

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

External References

Name Field # of Occurrence
^%DT EN+8, ENDATE+1
DD^%DT ENDATE+4, CON+2, HEAD+5
^%ZIS ENDATE+5
HOME^%ZIS EN+2
^%ZISC EXIT1
^%ZTLOAD ENDATE+9
^DIC EN+5
ENALL^DIK XREF+2
^DIR EXIT+3, CON+13, REST+1, NONE+2
DIV4^RMPRSIT EN+2
$$STA^RMPRUTIL HEAD+3

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CON+3
^ICPT - [#81] HEAD+2, NONE
^PRC(440 - [#440] CON+4
^PRC(441 - [#441] CON+6
^RMPR(660 - [#660] PRINT+5, PRINT+8, CK, CK+3, CK+5, CON+2, CON+3, CON+4, CON+5, CON+8
, CON+9, CON+10, CON+11, CON+12, HEAD+2
^RMPR(661 - [#661] CON+6
^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+13, CON+14
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+6*
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+2*
>> DIK(1 XREF+2*
DIR EXIT+3!, EXIT1!, CON+13!, REST+1!, NONE+2!
DIR(0 EXIT+3*, CON+13*, 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+13, CON+14, REST+1, REST+2, NONE, NONE+2
IOM HEAD+6
ION ENDATE+7
IOP ENDATE+5!
IOSL CON, CON+13, CON+14
IOST EXIT+2, EXIT+3, CON+13, 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+13*, REST, REST+1*
, NONE+2*
PAGE PRINT+1*, EXIT1!, CON, HEAD, HEAD+3*
>> POP ENDATE+5
QTYT PRINT+1*, EXIT1!, CON+9*, CON+10*, REST, REST+3*
>> RMPR("STA" CK+3
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+5
RMPRCOUN EN+8*, PRINT+1*, EXIT+1, EXIT1!, CON, CON+1*, REST, REST+3*
RMPREDT ENDATE+4*, EXIT+1, EXIT+3, EXIT1!, CK+2, HEAD+5
>> RMPRFLL EXIT+3
RMPRI EN*, EXIT1!
RMPRI( EN+6, EN+7*
RMPRSE EXIT1!
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+3, CK+5, CON+2, CON+3, CON+4, CON+5
, CON+8, CON+9, CON+10, CON+11, CON+12, HEAD+2
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, HEAD+2, NONE
>> 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+13
, HEAD+5*, REST+1, NONE+2
>> ZTDESC ENDATE+7*
>> ZTIO ENDATE+7*
>> ZTRTN ENDATE+7*
>> 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