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

Package: Prosthetics

Routine: RMPR4E21


Information

RMPR4E21 ;PHX/HNC - CLOSE OUT PURCHASE CARD TRANSACTION; MAR 1, 1996

Source Information

Source file <RMPR4E21.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Prosthetics 9 DA0^RMPR29M  POST^RMPR29U  ^RMPR4E23  ^RMPR4LI  POST2^RMPR4M  CHKCPT^RMPR4UTL  CHECK^RMPRCT  (AUTO,COL,MAN)^RMPRPCEL  
DIV4^RMPRSIT  
VA FileMan 6 NOW^%DTC  %XY^%RCR  ^DIC  ^DIE  (,IX1)^DIK  ^DIR  
IFCAP 1 (AMEND,RECON)^PRCH7C  
Kernel 1 KILL^XUSCLEAN  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Prosthetics 3 BILLING ITEM  RMPR4 CLOSE OUT  RMPR4M  

Entry Points

Name Comments DBIA/ICR reference
START
CL
L ;**** ask for final posting *****************************************
L1
IC() ;DETERMINE NUMBER OF ITEMS FOR PURCHASING AND CLOSE-OUT
IC1 ;DISPLAY TEXT FOR DELETE (@) ATTEMPTS FOR MULTIPLES OF ONLY 1 ITEM
PROC
FILE
ENT
CHK ;ADD DUPLICATE LINE ITEM
LKP
DS ;**** update shipping cost, % discount and bank authorization ********
CHK1 ;delete imcomplete items
POST1 ;SET AMOUNT FOR IFCAP AMENDMENT.
EX ;***reindex record in 664 here
EX1 ;
EXIT ;KILL VARIABLES AND EXIT ROUTINE
KTMP
BRK
UNK
M4
M6
M442

External References

Name Field # of Occurrence
NOW^%DTC EX+9
%XY^%RCR CL+16, KTMP+1
^DIC CL+5, L1+4
^DIE ENT+9, ENT+13, ENT+14, DS+3, POST1+28
^DIK CHK1+1, KTMP
IX1^DIK EX+12, EX+18
^DIR CL+10, L+4, L1+2, CHK+1, LKP+2
AMEND^PRCH7C POST1+19
RECON^PRCH7C EX+5
DA0^RMPR29M POST1+24
POST^RMPR29U POST1+24
^RMPR4E23 EX+20
^RMPR4LI L+1
POST2^RMPR4M POST1+23
CHKCPT^RMPR4UTL ENT+16
CHECK^RMPRCT POST1+10
AUTO^RMPRPCEL EX1+5
COL^RMPRPCEL CL+23
MAN^RMPRPCEL EX1+5
DIV4^RMPRSIT START
DEM^VADPT CL+13
KILL^XUSCLEAN EXIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are not an authorized Purchase Card User, CONTACT FISCAL!"
  • Line Location: RMPR4E21+9
Function Call: WRITE
  • Prompt: !!,"You may also make a selection by Purchase Card Transaction"
  • Line Location: CL+3
Function Call: WRITE
  • Prompt: !,"(Example, PO number), or Bank Authorization Number (6 digit number).",!
  • Line Location: CL+4
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: CL+7
Function Call: WRITE
  • Prompt: !!,$C(7),"ERROR** This transaction was not posted to 2319, please contact your IRM..",!!
  • Line Location: CL+10
Function Call: WRITE
  • Prompt: !,"Transaction NOT Closed-Out!"
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !,"** No Item selected.."
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: !!,"You may not delete the single remaining item in the BILLING ITEM"
  • Line Location: IC1+1
Function Call: WRITE
  • Prompt: !,"sub-file. If you want to change the existing item to a different"
  • Line Location: IC1+2
Function Call: WRITE
  • Prompt: !,"item, add the new item and then delete the desired item.",!!
  • Line Location: IC1+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: LKP+0
Function Call: WRITE
  • Prompt: !,"***** NOT CLOSED-OUT !!!!"
  • Line Location: POST1+10
Function Call: WRITE
  • Prompt: !!,"**** NOT CLOSED-OUT!! ****"
  • Line Location: POST1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: POST1+28
Function Call: WRITE
  • Prompt: !!,"**** TRANSACTION NOT CLOSED-OUT!! ****"
  • Line Location: EX+6
Function Call: WRITE
  • Prompt: !!,"Enter Next Transaction to Close-out, or <RETURN> to continue."
  • Line Location: EX1+8
Function Call: WRITE
  • Prompt: !,$C(7),"INCOMPLETE RECORD..file 664..entry..",RMPRA,"...PLEASE CONTACT YOUR IRM or CANCEL THIS ENTRY!!!"
  • Line Location: BRK+0
Function Call: WRITE
  • Prompt: !,$C(7),"UNKNOWN 2319 RECORD TO UPDATE, 2319 NOT UPDATED!"
  • Line Location: UNK+0
Function Call: WRITE
  • Prompt: !,$C(7),"This Transaction has already been CLOSED!"
  • Line Location: M4+0
Function Call: WRITE
  • Prompt: !,$C(7),"This Transaction has been CANCELED!"
  • Line Location: M6+0
Function Call: WRITE
  • Prompt: !,$C(7),"This order cannot be Reconciled. The Purchase Order no longer exists."
  • Line Location: M442+0
Routine Call
  • DIC
  • Line Location:
    • CL+5
    • L1+4
Routine Call
  • DIE
  • Line Location:
    • ENT+9
    • ENT+13
    • ENT+14
    • DS+3
    • POST1+28
Routine Call
  • DIR
  • Line Location:
    • CL+10
    • L+4
    • L1+2
    • CHK+1
    • LKP+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] LKP+1
^PRC(442 - [#442] EX+4
^RMPR(660 - [#660] CL+11, CL+22, POST1+31, EX+12*, EX+18*, EX1+3
^RMPR(661 - [#661] LKP+1
^RMPR(664 - [#664] CL+6, CL+7, CL+10, CL+12, CL+17, L1+3, IC+2, PROC, FILE*, ENT+2
ENT+3, ENT+8, ENT+10, ENT+11, ENT+14, CHK+2, LKP+1, DS+2, DS+4, DS+5
DS+6, DS+7, CHK1+1, POST1+2, POST1+3, POST1+5, POST1+9, POST1+16, POST1+18, POST1+20*
POST1+21*, POST1+28, POST1+29, EX+1, EX+3, EX+7*, EX+9*, EX+11*, EX+14, EX+16
EXIT+1
^RMPR(664.2 - [#664.2] POST1+24*
^TMP("RM" CL+15!, L+4, ENT+10*, ENT+11*, POST1+16, POST1+23, EXIT+2!, KTMP
^TMP($J CL!, EXIT+2!

Label References

Name Line Occurrences
BRK CL+10
CHK PROC
CL EX1+9
DS L1+2, L1+4
ENT LKP+3
EX1 EX+6, KTMP+1, BRK
EXIT CL+5, CL+7, CL+10, POST1+25, EX1+7, UNKM4M6M442
FILE CHK+1
KTMP L+4, POST1+10, POST1+16
L L1+2, L1+3, L1+5, CHK1+2
L1 L1+6
LKP LKP
M4 CL+6
M442 EX+4
M6 CL+6
POST1 L+4, L+5
PROC L1+6

Naked Globals

Name Field # of Occurrence
^( CHK1+1, POST1+29
^("AM" POST1+24*
^(0 CL+6, CL+12, FILE*, ENT+2*, ENT+11, DS+2*, DS+4*, DS+7, POST1+9, POST1+24
POST1+31*
^(2 CL+17, POST1+2, POST1+16
^(4 CL+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EX+9, EX+12
%X CL+16!*, KTMP+1*
%Y CL+16!*, KTMP+1*
>> AMT POST1+1*
DA CL+5*, PROC*, FILE*, ENT+2, ENT+3, ENT+4, ENT+10, ENT+11, ENT+13*, ENT+14*
ENT+17!, LKP+2*, DS+3*, CHK1+1*, POST1+28*, EX+11*, EX+12, EX+13*, EX+16*, EX+18
EX+20, KTMP*
DA(1 ENT*, CHK1+1*, KTMP*
>> DCT POST1+1*, POST1+2*, POST1+6, POST1+7
>> DFN CL+12*
DIC CL+1!*, CL+6!, L1+4*
DIC("A" CL+1*
DIC("S" CL+2*
DIC("W" CL+1*
DIC(0 CL+1*, L1+4*
DIE ENT*, ENT+13*, ENT+17!, DS+3*, POST1+28*
>> DIK CHK1+1*, EX+12*, EX+13*, KTMP*
DIR L+1~, L1!, CHK+1!, LKP+2!
DIR("?" L+3*, L1+1*
DIR("A" L+2*, L1*, CHK+1*
DIR("B" L+2*, CHK+1*
DIR(0 CL+10*, L+2*, L1*, CHK+1*, LKP+2*
>> DIRUT L1+3, CHK+1, LKP
DQ ENT!
DR ENT!, ENT+5*, ENT+6*, ENT+7*, ENT+8*, ENT+9*, ENT+13*, ENT+14*, ENT+17!, DS+3*
POST1+28*
DT EX+18
>> DTOUT L+4, L1+2, L1+5, ENT+17, CHK+1, LKP
>> DUOUT L1+5
DUZ POST1+20, EX+5, EX+11
>> HY PROC*, FILECHK+2, LKP+1
>> I CHK1+1*, EX1+2*, EX1+3, KTMP*
NEW PROC~, FILE*, ENT+2, ENT+3, ENT+7, ENT+10
NUM FILE*, ENT+17!
>> R1 POST1+1*, POST1+29*
R4DA ENT+4*, ENT+8, ENT+10, ENT+14, ENT+16, ENT+17!
>> RD CHK+2*, LKP
>> RD( LKPLKP+1*
RD660 ENT+11*, ENT+13, ENT+17!
>> RDA CHK+2*, LKP+1*
RDATA ENT+16*, ENT+17!
RFLG L+1!, L+4*, POST1+25
RGRP CL+9*, CL+10*, EXIT+3!
RGRP1 CL+9*, CL+11*, EXIT+3!
RGRPP CL+10*, CL+11, EXIT+3!
RHCED CL+15!, ENT+12*
RHCNEW ENT+8*, ENT+11, ENT+17!
RHCOLD ENT+11*, ENT+17!
>> RI POST1+3*, POST1+5
>> RM( CL+15!, CL+17*, CL+18, DS+2
>> RM60LINK EX1+1
>> RM60LINK( CL+22*, EX1+2, EX1+3!
RM660 POST1+30~, POST1+31*
>> RM68FG EX1+5
RMACT POST1+4~, POST1+5*, POST1+6, POST1+7
RMBAN CL+18*, DS+6, EXIT+3!
RMBANF DS+1*, DS+6*, POST1+23, EXIT+3!
>> RMDACA ENT+3*, ENT+11
>> RMPER CL+18*, DS+5
>> RMPERF DS+1*, DS+5*, POST1+23
RMPR STARTEXIT+4~
RMPR("AMT" POST1+1*, POST1+8*
>> RMPR442 POST1+18*, POST1+19, EX+3*, EX+4, EX+5, EX+6
>> RMPR660 EX+13*, EX+14*, EX+16
>> RMPRA CL+5*, CL+6, CL+7, CL+10, CL+12, CL+15, CL+17, CL+18, L1+3, IC+2
PROCFILEENTENT+2, ENT+3, ENT+8, ENT+10, ENT+11, ENT+14, ENT+16
CHK+2, LKP+1, DS+2, DS+3, DS+4, DS+5, DS+6, DS+7, CHK1+1, POST1+2
POST1+3, POST1+5, POST1+9, POST1+16, POST1+18, POST1+20, POST1+21, POST1+24, POST1+28, POST1+29
EX+1, EX+3, EX+7, EX+9, EX+11, EX+14, EX+16, EXIT+1, KTMPBRK
>> RMPRCC POST1+28*, POST1+31
>> RMPRDA CL+12*, POST1+24
>> RMPRDFN CL+12*
>> RMPRF CL+15*
>> RMPRI CHK1+1*
RMPRIC IC+1~, IC+2*, IC+3, IC1+5
RMPRICS IC+1~, IC+2*
>> RMPRNAM CL+13*
>> RMPRSH POST1+9*, POST1+16, POST1+19, POST1+20, POST1+24, EX+7
RMPRSITE EXIT+4~
>> RMPRSSN CL+13*
>> RMPRSSNE CL+13*
>> RMPRTO POST1+1*, POST1+8*, POST1+10, POST1+16, POST1+19, POST1+20, EX+7
>> RMPRWO CL+12*, POST1+24
>> RMQTY POST1+5*, POST1+6, POST1+7
>> RMSHI CL+18*, CL+19*, DS+7
>> RMSHIEN CL+18*, CL+22
>> RMSHIF DS+1*, DS+7*, POST1+23
>> RMTOT POST1+6*, POST1+7*, POST1+8
RMTYPE ENT+16, ENT+17!
>> RMX POST1+5*, POST1+6, POST1+7
SKPSHDT EX+20*!
U CL+6, CL+10, CL+11, CL+12, CL+18, FILEENT+2, ENT+3, ENT+8, ENT+11
ENT+14, LKP+1, DS+2, DS+4, DS+5, DS+6, DS+7, CHK1+1, POST1+2, POST1+5
POST1+6, POST1+7, POST1+9, POST1+16, POST1+18, POST1+20, POST1+21, POST1+24, POST1+28, POST1+31
EX+3, EX+7, EX+9, EX+11, EX+12, EX+16, EX+18
>> VA("PID" CL+13
VADM CL+13!
VADM(1 CL+13
VADM(2 CL+13
>> X STARTIC1+4*, CHK+1, POST1+16, POST1+20, POST1+21, EX+6
Y CL+5, L+4, L+5, L1+2, L1+4, PROC, FILE*, ENT+17!, CHK+1!, LKP
LKP+2!
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