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

Package: Prosthetics

Routine: RMPR421


Information

RMPR421 ;PHX/HNB,RVD -CREATE PURCHASE CARD TRANSACTION, POST TO 2319 ;3/1/1996

Source Information

Source file <RMPR421.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Prosthetics 8 POST^RMPR29U  (P24,ZDSP)^RMPR421A  FILE^RMPR421B  ^RMPR4LI  ^RMPRPAT  LINK^RMPRS  DIV4^RMPRSIT  GETPAT^RMPRUTIL  
VA FileMan 5 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Kernel 1 KILL^XUSCLEAN  
Registration 1 (DEM,KVAR)^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 RMPR29P  RMPR421A  RMPR421B  

Entry Points

Name Comments DBIA/ICR reference
EN1
2529 ;called from RMPR29P init from lab
VIEW ;VIEW 10-2319
CHK
ASK ;POST TRANSACTION QUESTION
DEL ;
L
CHK1 ;CHECK FOR EXISTENCE OF ITEMS ON PURCHASING FORMS
KILL ;DELETE PURCHASING ENTRY
EXIT ;Common Exit Point
EXT ;K RMPRFLAG,RMPRG,RD,RMPRPSC,RMPRCONT,RMPRSH,RMPRDS,RMPRTO,RMPRCT,RMPRQT,R1,B2,D1,RMPRI,%,B1,DA,DIC,DIK,PRCS,PRCSCPAN,RMPRIN,RMPRPC,RMPRAMIS,RMPRARD,RMPRCNT,RMPRIT,RMPRIT1,RMPRU,SR,TYPE,RAC,FL,RMPRCTK,PRCSIP,PQTY,FL1,RMPRNOB,HY,RMPRGO

External References

Name Field # of Occurrence
^DIC L+2
FILE^DICN EN1+5
YN^DICN ASK+2, DEL+1
^DIE L+6, L+9
^DIK KILL+2, KILL+8
^DIR KILL+3
POST^RMPR29U EXT+3
P24^RMPR421A VIEW+7
ZDSP^RMPR421A L+1
FILE^RMPR421B ASK+2
^RMPR4LI DEL+3
^RMPRPAT VIEW+2
LINK^RMPRS EXIT+2
DIV4^RMPRSIT RMPR421+10
GETPAT^RMPRUTIL EN1
DEM^VADPT 2529+3
KVAR^VADPT EXIT+4
KILL^XUSCLEAN EXIT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are not an authorized Purchase Card User, CONTACT FISCAL!"
  • Line Location: RMPR421+9
Function Call: WRITE
  • Prompt: !!,"The IFCAP SITE has not been defined to Prosthetics yet!"
  • Line Location: RMPR421+11
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Please Try Later!"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,"Are you ready to POST to 10-2319 NOW"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"This will Create an Entry on the Prosthetic 10-2319 Record."
  • Line Location: ASK+3
Function Call: READ
  • Prompt: !
  • Variable: "Do you want to Delete this Transaction" D YN^DICN I $D(DTOUT)!(%=1) S
  • Timeout: $D(RMPRA)
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"ENTER YES OR NO!!",$C(7)
  • Line Location: DEL+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: L+8
Function Call: WRITE
  • Prompt: !,$C(7),?20,"Deleted..."
  • Line Location: KILL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: KILL+3
Routine Call
  • DIC
  • Line Location:
    • L+2
Routine Call
  • DIE
  • Line Location:
    • L+6
    • L+9
Routine Call
  • DIR
  • Line Location:
    • KILL+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440.5 - [#440.5] RMPR421+9
^RMPR(664 - [#664] 2529+2*, CHK+2*, CHK1+2, CHK1+4
^RMPR(664.2 - [#664.2] KILL+4, KILL+6
^RMPR(669.9 - [#669.9] RMPR421+11

Label References

Name Line Occurrences
ASK ASK+3, DEL+3, L+1
CHK L+7
CHK1 CHK
DEL DEL+2
EXT EN1+1
KILL VIEW+2, CHK+1, CHK+3, ASK+2, DEL+1, L, L+8
L L+1, L+3, L+9

Naked Globals

Name Field # of Occurrence
^( CHK1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, ASK+2, ASK+3, DEL+1*, DEL+2*
DA VIEW+6*, L+3!, L+4*, L+9*, KILL+2*, KILL+5*, KILL+6*
DA(1 L+4*, KILL+7*
DD EN1+5!
>> DFN 2529+3*
DIC EN1+2!, EN1+4*, EN1+5!, L+2*, L+4
DIC("DR" EN1+2!, EN1+3*
DIC(0 EN1+4*, L+2*
>> DIE VIEW+6*, L+4*, L+9*
DIK KILL+2*, KILL+4!, KILL+7*
DINUM EN1+2!
>> DIR(0 KILL+3*
DLAYGO EN1+4*, EN1+5!
DO EN1+5!
>> DR L+5*, L+6*, L+9*
DT EN1+3
DTIME L
>> DTOUT CHK+3, ASK+2, DEL+1, EXIT+2
DUZ RMPR421+9, CHK+2
>> FL CHK+1, L+8, CHK1+1*, CHK1+2*, CHK1+3*, CHK1+5*
IOST KILL+3
PRC EXT+5!
PRCS EXT+5!
>> RB CHK1+4*, CHK1+5
RBL EXT+5!
RDA EXT+5!
>> RI CHK1+2*, CHK1+4
RMPR EXIT+5~
>> RMPRA 2529+1*, 2529+2, VIEW+6, CHK+2, DEL+1, L+2, L+4, L+9, CHK1+2, CHK1+4
, KILL+6
RMPRBAC1 VIEW+2*!
>> RMPRDA EXT+4
>> RMPRDFN EN1+1, 2529+3
RMPRDOD KILL+2!
>> RMPRDR L+6
RMPRF EXT+5!
>> RMPRK 2529+1*, DEL+1*, KILL+1, KILL+2
RMPRKILL VIEW+2, EXT+5!
RMPRMDIV EXIT+5~
RMPROB KILL+2!, EXT+5!
RMPRSITE RMPR421+11, EXIT+5~
>> RMPRWO KILL+4, KILL+6, KILL+7, EXT+3
>> RMPRX DEL+3
RVA EXT+5!
RX EXT+5!
U 2529+2, CHK+2, CHK1+5
>> X RMPR421+10, EN1+3*, L*, L+1
Y EN1+5, 2529+1, L+3!, L+4
Y(0 CHK+3
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