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

Package: Prosthetics

Routine: RMPR4C1


Information

RMPR4C1 ;PHX/HNB,RVD - PURCHASE CARD SUMMARY SHEET ;3/1/1996

Source Information

Source file <RMPR4C1.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 PC SUM  

Entry Points

Name Comments DBIA/ICR reference
START
PCRD ;ask purchase card number
PRINT
EXIT
EX
CK ;check record, apply screen
WRI
HDR

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Prosthetics Purchase Card Summary Sheet"
  • Line Location: RMPR4C1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: RMPR4C1+4
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: !,$C(7),$C(7),"Try Later!"
  • Line Location: PCRD+4
Function Call: WRITE
  • Prompt: !,"Must be 16 a Digit Number."
  • Line Location: PCRD+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: $C(7),!!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+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,RD,?26,$P($G(^RMPR(664,RP,4)),U,5)
  • Line Location: WRI+6
Function Call: WRITE
  • Prompt: ?36,$J(AACNT,9,2)
  • Line Location: WRI+25
Function Call: WRITE
  • Prompt: ?48,$J(RMAMEN,7,2)
  • Line Location: WRI+26
Function Call: WRITE
  • Prompt: ?57,$J(CLCNT,9,2)
  • Line Location: WRI+27
Function Call: WRITE
  • Prompt: ?69,$J(CNT,9,2)_RMAST
  • Line Location: WRI+28
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,RMPRX_"-",RMPRY," "_RMPRPCRD_" Summary "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Patient",?14,"SSN",?19,"Date",?26,"PC #",?37,"Auth Amt",?48,"Adj Amt",?59,"Liq Amt",?71,"Cum Amt",!,RMPR("L")
  • Line Location: HDR+2
Routine Call
  • DIR
  • Line Location:
    • PCRD+3
    • EXIT+1
    • WRI+30
Routine Call
  • %ZIS
  • Line Location:
    • PCRD+8
Routine Call
  • %ZIS
  • Line Location:
    • START

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WRI+1, WRI+2
^RMPR(660 - [#660] CK+8, CK+12
^RMPR(664 - [#664] PRINT+2, CK+1, CK+3, CK+4, CK+5, CK+6, CK+8, CK+9, CK+10, WRI+1
, WRI+2, WRI+4, WRI+6, WRI+12, WRI+13, WRI+14, WRI+15
^TMP($J START!, PRINT+9, EX!, CK+13*

Label References

Name Line Occurrences
CK PRINT+2
EX START, START+1, PCRD+4, PCRD+8, PCRD+13
HDR PRINT+10, WRI, WRI+30
PCRD PCRD+5
PRINT PCRD+9
START START+1
WRI PRINT+9

Naked Globals

Name Field # of Occurrence
^( PRINT+9, CK+10
^(0 CK+3, CK+4, CK+10, CK+12
^(2 CK+9
^(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 PCRD+8*, EX+1!
>> AACNT WRI+7*, WRI+13*, WRI+17, WRI+20, WRI+22, WRI+25
>> CLCNT WRI+7*, WRI+14*, WRI+21, WRI+22, WRI+27
CLODT EX+1!, WRI+15*, WRI+18
CNT PRINT+7*, PRINT+16, PRINT+18, PRINT+19, EX+1!, WRI+24*, WRI+28
DCT EX+1!, CK+8*, CK+9*, CK+11
DIR PCRD+1!, PCRD+3!, EX!
DIR("?" PCRD+2*
DIR("A" PCRD+1*
DIR(0 PCRD+1*, EXIT+1*, WRI+30*
DTOUT PCRD+4, EXIT+1, EX+1!, WRI+30
DUOUT PCRD+4, EXIT+1, EX!
>> I CK+10*
IO PCRD+9
IO("Q" PCRD+9
IOF PRINT+1, PRINT+10, HDR
IOP PCRD+8!
IOSL WRI+30, WRI+31
IOST PRINT+1, EXIT, EXIT+1, WRI+30
IT EX!
NL PRINT+7*, PRINT+13, EX+1!, WRI+20*
ORCNT1 PRINT+8*, PRINT+20, EX+1!, WRI+19*
ORCNT2 PRINT+8*, PRINT+21, EX+1!, WRI+18*
PAGE PRINT*, EX!, HDR, HDR+1*
>> POP PCRD+8
R660AC EX+1!, CK+8*, CK+12*
R660T EX+1!, CK+8*, CK+10*, CK+11*, CK+12
RD WRI+3~, WRI+4*, WRI+5*, WRI+6
RMACS EX+1!, CK+8*
RMAMEN EX+1!, WRI+7*, WRI+12*, WRI+16*, WRI+17*, WRI+20, WRI+22, WRI+26
RMAMTOT PRINT+7*, PRINT+14, EX+1!, WRI+20*
RMAST PRINT+9*, EX+1!, CK+8*, CK+12*, CK+13, WRI+28
RMCUM EX+1!, WRI+22*, WRI+24
RMIDA EX+1!, CK+12*
RMPR EX+1!
RMPR("L" PRINT+12, HDR+2
RMPR("STA" CK+4
RMPRBDT START*, START+1, START+2, PRINT, EX!
RMPRCK EX!
RMPRCOUN START*, PRINT*, PRINT+10, PRINT+11, EX!, CK+13*
RMPREDT START+2*, PRINT+2, PRINT+10, PRINT+11, EXIT+1, EX!
RMPREND PRINT*, PRINT+9, PRINT+11, EXIT+1, EX!, WRI+30*
RMPRFLG EX!, WRI, WRI+29*, WRI+31!
RMPRFLL EXIT+1, EX!, WRI+30*
RMPROBL PRINT+7*, PRINT+9*, EX!, CK+6*, CK+7, CK+13
>> RMPRPCRD PCRD+6*, CK+7, HDR+1
RMPRX START+2*, EX!, HDR+1
RMPRY START+2*, EX!, HDR+1
RMSHI EX+1!, CK+8*
RO PRINT*, PRINT+2*, EX!
ROBL EX+1!, CK+5*
RP PRINT*, PRINT+2*, PRINT+7*, PRINT+9*, EX!, CK+1, CK+3, CK+4, CK+5, CK+6
, CK+8, CK+9, CK+10, CK+13, WRI+1, WRI+2, WRI+4, WRI+6, WRI+12, WRI+13
, WRI+14, WRI+15
TCLCNT PRINT+7*, PRINT+15, PRINT+17, PRINT+18, EX+1!, WRI+21*
U CK+3, CK+4, CK+5, CK+6, CK+8, CK+9, CK+10, CK+12, WRI+1, WRI+2
, WRI+4, WRI+6, WRI+12, WRI+13, WRI+14, WRI+15
X START, PCRD+5, PRINT, EX!
X1 PRINT*, EX+1!
X2 PRINT*, EX+1!
Y START, START+1, START+2*, PCRD+6, EX!, WRI+30
>> ZTDESC PCRD+10*
>> ZTRTN PCRD+10*
>> ZTSAVE("RMPR(" PCRD+12*
>> ZTSAVE("RMPRBDT" PCRD+11*
>> ZTSAVE("RMPREDT" PCRD+11*
>> ZTSAVE("RMPRPCRD" PCRD+12*
>> ZTSAVE("RMPRX" PCRD+11*
>> ZTSAVE("RMPRY" PCRD+12*
ZTSK PCRD+13, EX!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All