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

Package: Prosthetics

Routine: RMPR4C2


Information

RMPR4C2 ;;HINES-OI/HNC - PURCHASE CARD VERIFY PC# FOR RECONCILIATION;10/29/2001

Source Information

Source file <RMPR4C2.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  C^%DTC  ^DIE  GETS^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
Prosthetics 4 $$DEC^RMPR4LI  DIV4^RMPRSIT  $$STA^RMPRUTIL  $$DAT1^RMPRUTL1  

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

Package Total Caller Graph
Prosthetics 1 RMPR VERIFY/REPAIR PC NUMBER  

Entry Points

Name Comments DBIA/ICR reference
CK ;set tmp of list to compare with 440.6
PCRD ;ask purchase card number
EN ;Entry Point
PCRDN
HDR ;header
COMP ;Enter RETURN to continue or '^' to exit:
ST ;continue if user didn't want out, or time out
EXIT ;Common Exit
PRINT

External References

Name Field # of Occurrence
^%DT EN+7, EN+9
DD^%DT EN+13
C^%DTC PRINT
^%ZIS PCRDN+8
HOME^%ZIS EN+5
^%ZISC EXIT+2
^%ZTLOAD PCRDN+15
^DIE ST+48
GETS^DIQ ST+23
^DIR PCRD+3, PCRDN+2, ST+37, EXIT+1
$$DEC^RMPR4LI CK+13
DIV4^RMPRSIT EN+4
$$STA^RMPRUTIL HDR+3
$$DAT1^RMPRUTL1 ST+13
KILL^XUSCLEAN EXIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Verify and Repair Purchase Card Number Associated with the"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,?5,"ORACLE Document for Reconciliation"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?5,"You Must Be the Card Holder of both OLD and NEW Cards!",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Try Later!"
  • Line Location: PCRD+4
Function Call: WRITE
  • Prompt: !,"Must be 16-Digit Number."
  • Line Location: PCRD+5
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Try Later!"
  • Line Location: PCRDN+3
Function Call: WRITE
  • Prompt: !,"Must be 16-Digit Number."
  • Line Location: PCRDN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"*** NO DATA TO PRINT ***",!!
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: ?63,"|"
  • Line Location: ST+7
Function Call: WRITE
  • Prompt: ?65,"Okay"
  • Line Location: ST+36
Function Call: WRITE
  • Prompt: ?65,"Diff Card #"
  • Line Location: ST+41
Function Call: WRITE
  • Prompt: !,"Record in use by another user. Try Later!"
  • Line Location: ST+47
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,RMPRX_"-",RMPRY," Verify PC# "_RMPRPCRD_" STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Order Date",?14,"Order Number",?28,"|",?30,"ORACLE PC #",?50,"VISA II",?63,"|",?65,"Record Status",!,RMPR("L")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+5
Routine Call
  • DIE
  • Line Location:
    • ST+48
Routine Call
  • DIR
  • Line Location:
    • PCRD+3
    • PCRDN+2
    • ST+37
    • EXIT+1
Routine Call
  • %ZIS
  • Line Location:
    • PCRDN+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCH(440.6 - [#440.6] Classic Fileman Calls,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(442 - [#442] ST+5
^PRCH(440.6 - [#440.6] ST+17, ST+19, ST+21, ST+47, ST+49
^RMPR(664 - [#664] PRINT+3, CK+1, CK+6, CK+7, CK+9, CK+12, CK+13, CK+15, ST+13, ST+43*
^TMP($J EN+4!, CK+17*, ST+2, ST+4, ST+10, ST+12, EXIT+1, EXIT+3!

Label References

Name Line Occurrences
CK PRINT+3
EN EN+11
EXIT EN+4, EN+8, EN+9, PCRD+4, PCRDN+3, PCRDN+8, PCRDN+15, PRINT+6
HDR PRINT+5, ST+37, ST+38
PCRD PCRD+5
PCRDN PCRDN+4
PRINT PCRDN+9
ST PRINT+5

Naked Globals

Name Field # of Occurrence
^(0 CK+6, CK+7
^(4 CK+6, ST+43*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT EN+7*, EN+9*
>> %DT("A" EN+7*, EN+9*
>> %ZIS PCRDN+8*
>> BDT ST+16*, ST+17*, ST+19
DA ST+46*, ST+47, ST+49, ST+50!
DIE ST+46*, ST+47!, ST+50!
DIR PCRD+1!, PCRD+3!, PCRDN!, PCRDN+2!
DIR("?" PCRD+2*, PCRDN+1*
DIR("A" PCRD+1*, PCRDN*
DIR(0 PCRD+1*, PCRDN*, ST+37*, EXIT+1*
DR ST+46*, ST+50!
DT ST+43
>> DTOUT PCRD+4, PCRDN+3, ST+37
>> DUOUT PCRD+4, PCRDN+3
DUZ ST+21
>> IFST ST+24*
IO PCRDN+9
IO("Q" PCRDN+9, PCRDN+10!
IOF PRINT+1, HDR+2
ION PCRDN+14
IOP PCRDN+8!
IOSL COMP+3, ST+37, ST+38
IOST PRINT+1, ST+37, ST+38, EXIT+1
>> ORDATE ST+13*, ST+14
>> PAGE PRINT*, HDR+2, HDR+3, HDR+4*
>> PC ST+24*, ST+33, ST+36, ST+39, ST+41, ST+43
>> PO ST+3*, ST+4*, ST+5, ST+10, ST+12
>> POE ST+5*, ST+6, ST+15, ST+28
>> POP PCRDN+8
>> PSASV2 ST+28*, ST+30
>> PSPC ST+9*, ST+10*, ST+12, ST+36, ST+39
>> RCNT ST+18*, ST+31*, ST+32
>> RD ST+11*, ST+12*, ST+13, ST+43
>> REC440 ST+18*, ST+19*, ST+21, ST+22, ST+43, ST+46
>> RECIEN40 ST+22*, ST+23, ST+24
RM440 ST+22!*
RM440( ST+24
RMPR EXIT+2~
RMPR("L" HDR+5
RMPR("STA" CK+7
>> RMPRBDT EN+8*, EN+11, EN+13, PRINT, PRINT+2, ST+16
>> RMPRCOUN EN+6*
>> RMPREDT EN+10*, EN+11, EN+13, PRINT+3
>> RMPREND PRINT*, PRINT+4*, ST+4, ST+10, ST+12, ST+19, ST+37*, ST+47*, HDR+1, EXIT+1
>> RMPRFLG PRINT*, PRINT+4*, COMP+2*, COMP+3*
>> RMPROBL CK+13*, CK+14, CK+17
>> RMPRODR CK+15*, CK+16, CK+17
>> RMPRPCNW PCRDN+5*, ST+41
>> RMPRPCRD PCRD+6*, CK+14, HDR+3
RMPRSITE EXIT+2~
>> RMPRX EN+13*, HDR+3
>> RMPRY EN+13*, HDR+3
>> RO PRINT+2*, PRINT+3*
>> ROBL CK+12*
>> RP PRINT+3*, CK+1, CK+6, CK+7, CK+9, CK+12, CK+13, CK+15, CK+17
U CK+6, CK+7, CK+9, CK+12, CK+13, CK+15, ST+5, ST+13, ST+21, ST+43
>> VISA2 ST+11*, ST+24*, ST+26*, ST+30, ST+34
>> X EN+4, PCRD+5, PCRDN+4
>> X1 PRINT*
>> X2 PRINT*
>> Y EN+8, EN+9, EN+10, EN+13*, PCRD+6, PCRDN+5, ST+37
>> ZTDESC PCRDN+11*
>> ZTIO PCRDN+14*
>> ZTRTN PCRDN+11*
>> ZTSAVE("RMPR(" PCRDN+13*
>> ZTSAVE("RMPRBDT" PCRDN+12*
>> ZTSAVE("RMPREDT" PCRDN+12*
>> ZTSAVE("RMPRPCNW" PCRDN+14*
>> ZTSAVE("RMPRPCRD" PCRDN+13*
>> ZTSAVE("RMPRX" PCRDN+14*
>> ZTSAVE("RMPRY" PCRDN+13*
>> ZTSK PCRDN+15
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