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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPR4LOP

Package: Prosthetics

Routine: RMPR4LOP


Information

RMPR4LOP ;PHX/HNB - LIST OPEN PURCHASE CARD TRANSACTIONS ;3/1/1996

Source Information

Source file <RMPR4LOP.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  C^%DTC  WAIT^DICD  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 3 $$DEC^RMPR4LI  DIV4^RMPRSIT  $$STA^RMPRUTIL  

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 RMPR4 LIST OPEN BY INIT  

Entry Points

Name Comments DBIA/ICR reference
START
PRINT
EXIT
EX
CK ;check record, apply screen
WRI
ITE
COST
HDR

External References

Name Field # of Occurrence
^%DT STARTSTART+1
DD^%DT START+2
C^%DTC PRINT
^%ZIS START+3
HOME^%ZIS START
^%ZISC EX
^%ZTLOAD START+6
WAIT^DICD PRINT
^DIR EXIT+1, COST+4, COST+9
$$DEC^RMPR4LI WRI+4
DIV4^RMPRSIT START
$$STA^RMPRUTIL HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report lists Open Purchase Card Transactions created in the"
  • Line Location: RMPR4LOP+3
Function Call: WRITE
  • Prompt: !,"Prosthetics Package."
  • Line Location: RMPR4LOP+4
Function Call: WRITE
  • Prompt: !!,"This report is sorted by Transaction Date and Initiator.",!
  • Line Location: RMPR4LOP+5
Function Call: WRITE
  • Prompt: !,"The PC # column is the abbreviated Purchase Card Transaction Number,"
  • Line Location: RMPR4LOP+6
Function Call: WRITE
  • Prompt: !,"Example: 644-PC546, would display as 546.",!!
  • Line Location: RMPR4LOP+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,?71,"=========",!,?65,"Total ",$J($FN(CNT,"P",2),9)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: $C(7),!!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"Initiator: ",INIB,!,"Patient",?14,"SSN",?19,"Purchase Card",?36,"Date",?43,"PC #",?50,"Vendor",?62,"Item",?70,"Item Cost",!,RMPR("L")
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: !,$E($P(^DPT($P(^RMPR(664,RP,0),U,2),0),U,1),1,12)
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: ?14,$E($P(^DPT($P(^RMPR(664,RP,0),U,2),0),U,9),6,9)
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: ?19
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: $$DEC^RMPR4LI($P(^RMPR(664,RP,4),U,1),$P(^RMPR(664,RP,0),U,9),RP)
  • Line Location: WRI+4
Function Call: WRITE
  • Prompt: "encrypted"
  • Line Location: WRI+5
Function Call: WRITE
  • Prompt: ?36,RD
  • Line Location: WRI+8
Function Call: WRITE
  • Prompt: "#"
  • Line Location: WRI+8
Function Call: WRITE
  • Prompt: ?43,$P(^RMPR(664,RP,4),U,5)
  • Line Location: WRI+9
Function Call: WRITE
  • Prompt: ?50
  • Line Location: WRI+10
Function Call: WRITE
  • Prompt: ?61,"*DELIVERY",?71,$J($FN($P(^RMPR(660,$P(^RMPR(664,RP,0),U,12),0),U,16),"P",2),9)
  • Line Location: ITE+0
Function Call: WRITE
  • Prompt: ?61,"*SHIPPING",?71,$J($FN($P(^RMPR(660,$P(^RMPR(664,RP,0),U,12),0),U,17),"P",2),9),!
  • Line Location: ITE+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IT>1
  • Line Location: ITE+5
Function Call: WRITE
  • Prompt: ?61,$E($P(^PRC(441,$P(^RMPR(661,$P(^RMPR(664,RP,1,IT,0),U,1),0),U,1),0),U,2),1,10)
  • Line Location: ITE+5
Function Call: WRITE
  • Prompt: ?71
  • Line Location: COST+0
Function Call: WRITE
  • Prompt: $J($FN($P(^RMPR(660,$P(^RMPR(664,RP,1,IT,0),U,13),0),U,16),"P",2),9)
  • Line Location: COST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: COST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: COST+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,RMPRX_"-",RMPRY," Open 2421PC Transactions "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,!,"# = PURCHASE CARD Order CANCELLED on IFCAP SYSTEM",!
  • Line Location: HDR+2
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • COST+4
    • COST+9
Routine Call
  • %ZIS
  • Line Location:
    • START+3
Routine Call
  • %ZIS
  • Line Location:
    • START

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WRI+1, WRI+2
^PRC(440 - [#440] WRI+11
^PRC(441 - [#441] ITE+5
^PRC(442 - [#442] WRI+8
^RMPR(660 - [#660] ITEITE+1, ITE+2, ITE+3, COST+1, COST+2
^RMPR(661 - [#661] ITE+5
^RMPR(664 - [#664] PRINT+1, PRINT+4, CK+1, CK+3, CK+4, CK+5, WRI+1, WRI+2, WRI+4, WRI+6
WRI+9, WRI+11, ITEITE+1, ITE+2, ITE+3, ITE+5, COST+1, COST+2
^TMP($J START!, PRINT+3, PRINT+4, EX!, CK+7*
^VA(200 - [#200] PRINT+4
^XUSEC("RMPR FCP MANAGER" WRI+4

Label References

Name Line Occurrences
CK PRINT+1
COST ITE+5
EX STARTSTART+1, START+3, START+6
EXIT HDR+1
HDR PRINT+5, WRIITE+1, COST+4
ITE WRI+12
PRINT START+4
START START+1
WRI PRINT+4

Naked Globals

Name Field # of Occurrence
^(0 CK+3, CK+4
^(4 CK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START*, START+1*, EX!
%DT("A" START*, START+1*
%ZIS START+3*, EX+1!
CNT PRINT+2*, PRINT+3*, EX+1!, ITE+1*, ITE+3*, COST+2*
DIR EX!
DIR(0 EXIT+1*, COST+4*, COST+9*
DTOUT EXIT+1, EX+1!, ITE+5, COST+4
DUOUT EXIT+1, EX!, ITE+5
DUZ WRI+4
INIB PRINT+4*, EX+1!, WRIWRI+13, COST+9
INIC PRINT*, EX+1!, WRIWRI+13*, COST+9
IO START+4
>> IO("Q" START+4
IOF PRINT+5, HDRHDR+1
IOP START+3!
IOSL ITE+1, COST+4, COST+5
IOST PRINTEXITEXIT+1, COST+4, COST+8, COST+9, HDRHDR+1
IT EX!, ITE+4*, ITE+5*, COST+1, COST+2
PAGE PRINT*, EX!, COST+9, HDRHDR+2*
>> POP START+3
PRCIEN EX!, WRI+6*, WRI+8
>> RD WRI+6*, WRI+7*, WRI+8
RMPR EX+1!
RMPR("L" WRI
RMPR("STA" CK+4
RMPRBDT START*, START+1, START+2, PRINT, EX!
RMPRCK EX!
RMPRCOUN START*, PRINT*, PRINT+5, EX!, CK+7*
RMPREDT START+2*, PRINT+1, PRINT+5, EXIT+1, EX!
RMPREND PRINT*, PRINT+3, PRINT+4, EXIT+1, EX!, COST+4*
RMPRFLG EX!, WRI, ITE*, COST+3*, COST+5!
RMPRFLL EXIT+1, EX!, COST+4*
RMPROBL PRINT+2*, PRINT+3*, PRINT+4, EX!, CK+5*, CK+6, CK+7
RMPRX START+2*, EX!, HDR+2
RMPRY START+2*, EX!, HDR+2
RO PRINT*, PRINT+1*, EX!
ROBL EX+1!
RP PRINT*, PRINT+1*, PRINT+2*, PRINT+4*, EX!, CK+1, CK+3, CK+4, CK+5, CK+7
WRI+1, WRI+2, WRI+4, WRI+6, WRI+9, WRI+11, ITEITE+1, ITE+2, ITE+3
ITE+5, COST+1, COST+2
U PRINT+4, CK+3, CK+4, CK+5, WRI+1, WRI+2, WRI+4, WRI+6, WRI+8, WRI+9
WRI+11, ITEITE+1, ITE+2, ITE+3, ITE+5, COST+1, COST+2
X STARTPRINT, EX!, HDR+1
X1 PRINT*, EX+1!
X2 PRINT*, EX+1!
Y STARTSTART+1, START+2*, EX!, COST+4
>> ZTDESC START+5*
>> ZTRTN START+5*
>> ZTSAVE("RMPR(" START+5*
>> ZTSAVE("RMPRBDT" START+5*
>> ZTSAVE("RMPREDT" START+5*
>> ZTSAVE("RMPRX" START+5*
>> ZTSAVE("RMPRY" START+5*
ZTSK START+6, EX!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All