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

Package: Prosthetics

Routine: RMPR21


Information

RMPR21 ;PHX/HNB/JLT - CREATE 1358 TRANSACTION, POST TO 2319 ;8/29/1994

Source Information

Source file <RMPR21.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Prosthetics 10 (CHKCPT,COT,P24,ZDSP)^RMPR21A  FILE^RMPR21B  POST^RMPR29U  DIS^RMPRAP  ^RMPRLI  EN2520^RMPRM  ^RMPRPAT  (BAL,EYE,PRCS)^RMPRPSC  
LINK^RMPRS  GETPAT^RMPRUTIL  
VA FileMan 5 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
IFCAP 1 EN1^PRCS58  
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: 8

Package Total Caller Graph
Prosthetics 7 RMPR21A  RMPR21B  RMPR22  RMPR29P  RMPRL9  RMPROP  RMPRPSC  
Prosthetics Vision 4 Sight II 1 RMPV0RMPROP  

Entry Points

Name Comments DBIA/ICR reference
ST
A
EN1
VIEW ;VIEW 10-2319
CON
CHK
ASK ;POST TRANSACTION QUESTION
DEL ;
L
H
CHK1 ;CHECK FOR EXISTENCE OF ITEMS ON PURCHASING FORMS
ERROR ;ERROR MESSAGE FOR FAILED POSTING
KILL ;DELETE PURCHASING ENTRY
TMP
EXIT ;EXIT AND KILL VARIABLES. SET UP OBLIGATION NUMBER QUESTION
EXT

External References

Name Field # of Occurrence
^DIC L+2
FILE^DICN EN1+6
YN^DICN A, ASK+2, DEL+1
^DIE CON+1, L+9, L+13
^DIK KILL+2, TMP+3
^DIR EXIT+1
EN1^PRCS58 RMPR21+5
CHKCPT^RMPR21A CHK1+6
COT^RMPR21A VIEW+7
P24^RMPR21A VIEW+6
ZDSP^RMPR21A L+1
FILE^RMPR21B ASK+2
POST^RMPR29U EXT+4
DIS^RMPRAP VIEW+3
^RMPRLI DEL+3
EN2520^RMPRM VIEW+2
^RMPRPAT VIEW+1
BAL^RMPRPSC RMPR21+6
EYE^RMPRPSC VIEW+8
PRCS^RMPRPSC EXT+6
LINK^RMPRS EXIT+2
GETPAT^RMPRUTIL EN1
DEM^VADPT EN1+8
KVAR^VADPT EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: "Do you wish to Continue" D YN^DICN G
  • Timeout: %=1
  • Line Location: A+0
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 IFCAP and 10-2319 NOW"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"This will Create a Daily Transaction in the 1358 Module of IFCAP,",!,"and 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+12
Function Call: WRITE
  • Prompt: !,"This will create a transaction, post to IFCAP, and update the 2319 report",!
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,MSG,!
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !,$C(7),?5,"***PLEASE CONTACT YOUR FISCAL SERVICE***",!,Y
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !,$C(7),?20,"Deleted..."
  • Line Location: KILL+2
Routine Call
  • DIC
  • Line Location:
    • L+2
Routine Call
  • DIE
  • Line Location:
    • CON+1
    • L+9
    • L+13
Routine Call
  • DIR
  • Line Location:
    • EXIT+1

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)
^RMPR(664 - [#664] CON+1, CHK+2*, CHK1+2, CHK1+4
^RMPR(664.2 - [#664.2] KILL+3, TMP+1
^TMP($J RMPR21+4!, EXT+1!

Label References

Name Line Occurrences
A H
ASK ASK+3, DEL+3, L+1
CHK L+11
CHK1 CHK
DEL DEL+2
EN1 A
EXIT RMPR21+5, A+1
EXT EN1+1
H A
KILL VIEW+1, VIEW+2, VIEW+3, CON+1, CHK+1, ASK+2, DEL+1, L, L+12
L L+1, L+3, L+13
ST EXT+6

Naked Globals

Name Field # of Occurrence
^( CHK1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% A*, ASK+1*, ASK+2, ASK+3, DEL+1*, DEL+2*, EXT!
B1 ST*, EXT!
B2 ST*, EXT!
D1 EXT!
DA VIEW+4*, L+3!, L+4*, L+13*, CHK1+6*, KILL+2*, TMP*, TMP+1*, EXT!
DA(1 L+4*, CHK1+6*, TMP+2*
DD EN1+5!
>> DFN EN1+8*
DIC EN1+2!, EN1+4*, EN1+6!, L+2*, L+4, EXT!
DIC("DR" EN1+2!, EN1+3*
DIC(0 EN1+4*, L+2*
DIE VIEW+4*, L+4*, L+13*, EXT+2!
DIK KILL+2*, KILL+3!, TMP+2*, EXT!
DINUM EN1+2!
>> DIR("A" EXIT+1*
>> DIR(0 EXIT+1*
DLAYGO EN1+4*, EN1+6!
DO EN1+5!
DR CON!, CON+1*, L+6*, L+9*, L+13*, EXT+2!
DT EN1+3
DTIME L
DTOUT ASK+2, DEL+1, EXIT+2, EXT+2!
DUZ CHK+2
FL CHK+1, L+12, CHK1+1*, CHK1+2*, CHK1+3*, CHK1+5*, EXT!
FL1 EXT!
HY EXT!
LINE EXT+3!
MSG ERROR+1, EXT+3!
NAME EXT+3!
PQTY EXT!
PRC EXT+7!
PRCS EXT!, EXT+7!
PRCS("A" RMPR21+5*
PRCSCPAN EXT!
PRCSIP EXT!
R1 ST*, EXT!
RA EXT+3!
RAC EXT!
>> RB CHK1+4*, CHK1+5
RBL EXT+7!
RD EXT!
RDA EXT+7!
RDP EXT+3!
RI CHK1+2*, CHK1+4, CHK1+6, EXT+3!
RMCAT EXT+3!
RMPR660 EXT+2!
RMPRA EN1+7*, VIEW+4, CON+1, CHK+2, DEL+1, L+2, L+4, L+13, CHK1+2, CHK1+4
, CHK1+6, TMP+1, EXIT+3, EXT+2!
RMPRAMIS EXT!
RMPRARD EXT!
RMPRBAC1 VIEW+1*!
RMPRCNT EXT!
RMPRCONT EXT!
RMPRCT ST*, EXT!
RMPRCTK EXT!
>> RMPRDA EXIT+3, EXT+5
RMPRDELN EXT+3!
RMPRDES EXT+2!
RMPRDFN EN1+1, EN1+8, EXT+2!
RMPRDIE VIEW+3, EXT+2!
RMPRDIS EXT+2!
RMPRDOB EXT+2!
RMPRDOD KILL+2!
RMPRDR VIEW+5*, VIEW+6, VIEW+7, VIEW+8, CON+1, L+9, EXT+2!
RMPRDS ST*, EXT!
RMPRF ST+1, VIEW+2, VIEW+3, VIEW+5, EXIT+3, EXT+7!
RMPRFLAG VIEW+3*, EXT!
RMPRG EXT!
RMPRGO EXT!
RMPRI EXT!
RMPRI1 EXT+3!
RMPRIN EXT!
RMPRIS ST*, EXT+2!
RMPRIT EXT!
RMPRIT1 EXT!
RMPRK EN1+7*, DEL+1*, KILL+1, KILL+2, EXT+2!
RMPRKILL VIEW+1, EXT+7!
RMPRNAM EXT+2!
RMPRNOB EXT!
RMPROB RMPR21+6*, A+1!, KILL+2!, EXT+6, EXT+7!
RMPRPC EXT!
RMPRPI EXT+3!
RMPRPSC EXT!
RMPRQT ST*, EXT!
RMPRR ST*, EXT+2!
RMPRS EXT+2!
>> RMPRSA EXIT+3*
RMPRSC EXT+2!
>> RMPRSDA EXIT+3*
RMPRSER EXT+3!
>> RMPRSF EXIT+3*
RMPRSH EXT!
RMPRSR EXT+2!, EXT+3!
RMPRSSN EXT+2!
RMPRSSNE EXT+3!
RMPRT EXT+3!
RMPRTN EXT+3!
RMPRTO ST*, EXT!
RMPRTRN EXT+2!
RMPRU EXT!
RMPRUP EXT+3!
RMPRV EXT+3!
>> RMPRWO KILL+3, TMP+1, TMP+2, EXT+4
RMPRX DEL+3, EXT+2!
RMSPE EXT+3!
RMTYP EXT+3!
RVA EXT+7!
RX EXT+7!
SR EXT!
TYPE EXT!
U RMPR21+6, CON+1, CHK+2, CHK1+5
>> X EN1+3*, L*, L+1, EXT+6
Y RMPR21+5, RMPR21+6, EN1+6, EN1+7, L+3!, L+4, ERROR+2, EXT+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