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

Package: Prosthetics

Routine: RMPRPSC


Information

RMPRPSC ;PHX/HNB-PRINT PSC LISTING ;8/29/1994

Source Information

Source file <RMPRPSC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIK  
Prosthetics 2 (CHK,KILL)^RMPR21  ($$ITM,$$VEN)^RMPR31U  
IFCAP 1 EN3^PRCSUT  

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 8 RMPR 2520  RMPR ADD PSC  RMPR21  RMPR29P  RMPR55  RMPRAP  RMPRDP  RMPRE21  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry to Prosthetic Service Card from purchasing
PRT ;print items
PSC ;ENTRY POINT FOR CREATING PSC ITEMS FOR A PATIENT
DT ;ENTER EDIT PSC CARD
EXIT ;common exit point
EYE ;EDIT FOR EYE GLASSES
AA
PRCS ;ENTRY POINT FOR DISPLAYING 1358 BALANCE
BAL ;check IFCAP version

External References

Name Field # of Occurrence
^DIC PSC+1, DT+4, AA+1, AA+2, PRCS+3
^DIE DT+6, DT+9, EYE+4, AA+4
^DIK DT+8
EN3^PRCSUT PRCS+1
CHK^RMPR21 AA+4
KILL^RMPR21 EYE+5, AA+1, AA+2
$$ITM^RMPR31U AA
$$VEN^RMPR31U EYE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?7,"NAME",?50,"SERIAL NUMBER",!
  • Line Location: EN+1
Function Call: READ
  • Formatting: !!
  • Prompt: "SELECT NUMBER: "
  • Variable: RMPRPC
  • Timeout: DTIME
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?5,$C(7),$C(7),"To obligate funds on this transaction, the veteran must",!?5,"have a PSC issued for that item."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,I_".",?7,$S($P(RMPRX,U,2)?1A.E:$P(RMPRX,U,2),1:RMPRIN),?50,$P(RMPRX,U,3)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone is Editing this entry!"
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Deleted..."
  • Line Location: DT+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRCS+2
Function Call: WRITE
  • Prompt: !!,?5,"Please Enter '^' to Exit"
  • Condition for execution: X["?"
  • Line Location: PRCS+2
Function Call: WRITE
  • Prompt: !,"1358 Balance is $",$FN($P(^PRC(442,$P(Y,U),8),U,3),"P",2)
  • Line Location: BAL+2
Function Call: WRITE
  • Prompt: !,"1358 Balance is $",$FN(RBL,"P",2)
  • Line Location: BAL+3
Routine Call
  • DIC
  • Line Location:
    • PSC+1
    • DT+4
    • AA+1
    • AA+2
    • PRCS+3
Routine Call
  • DIE
  • Line Location:
    • DT+6
    • DT+9
    • EYE+4
    • AA+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] BAL+1
^PRC(441 - [#441] PRT+1
^PRC(442 - [#442] BAL+2, BAL+3
^RMPR(660.5 EYE+2
^RMPR(661 - [#661] EN+7, PRT+1
^RMPR(665 - [#665] EN+2, EN+4, EN+5, EN+6, PRT+1, DT+1*, DT+5, DT+6, DT+7, DT+8
^RMPR(669.9 - [#669.9] AA

Label References

Name Line Occurrences
DT DT+7, DT+8, DT+9
EN EN+4, EN+5
EXIT PSC+1, DT+4, DT+5
PRCS PRCS+3
PRT EN+2
PSC DT+4

Naked Globals

Name Field # of Occurrence
^("VERSION" BAL+1
^(0 DT+8
^(8 BAL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DT+4!, DT+6*, DT+8!
DA(1 DT+6*, DT+8*
DIC PSC+1*, DT+2*, DT+4!, DT+6, DT+8!, EXIT+1!, AA+1!*, AA+2!*, AA+3!, PRCS+3*
DIC("A" AA+1*
DIC("B" AA*
DIC("S" AA+1*, AA+2*, PRCS+2*
DIC("W" DT+3*
DIC(0 PSC+1*, DT+2*, AA+1*, AA+2*, PRCS+3*
DIE DT+4!, DT+6*, DT+8!, EXIT+1!, AA+3!*
>> DIK DT+8*
DLAYGO DT+2*, DT+4!
DR DT+6*, DT+9*, EXIT+1!, EYE+4*, AA+3*
DTIME EN+3, PRCS+2
>> DTOUT EYE+5
>> I EN+2*, PRT+1, PRT+2
NEW DT+6*, DT+9, EXIT+1!
PRCS PRCS+2!
R90 EXIT+1!
RBL BAL+3*, BAL+4!
RDA DT+6*, DT+7, EXIT+1!, BAL+1*, BAL+4!
>> RFL DT+4
>> RMPRDA EYE+2
>> RMPRDFN EN+2, EN+4, EN+5, EN+6, PRT+1, PSC+1*, DT+1, DT+2, DT+5, DT+6
, DT+7, DT+8
>> RMPRFLAG EXIT+1
>> RMPRFLG EN+3*
RMPRI EN+9!, PRT+1*, PRT+2
RMPRIN EN+9!, PRT+1*, PRT+2
>> RMPROB PRCS+2, PRCS+3*
RMPRPC EN+3*, EN+4, EN+5, EN+6, EN+9!
>> RMPRPI EN+5*, EN+6, EN+7*, AA+3*
>> RMPRSITE AA
>> RMPRSR( EN+6*
RMPRX EN+2*, EN+9!, PRT+1*, PRT+2
RVA BAL+1*, BAL+2, BAL+3, BAL+4!
U EN+5, EN+6, EN+7, PRT+1, PRT+2, DT+6, DT+8, EYE+2, AA, AA+3
, PRCS+3, BAL+2, BAL+3
VENDOR EYE+2*, EYE+3*, EYE+4!
>> X AA*, AA+2*, PRCS+2*
Y PSC+1, DT+4!, DT+5, DT+6, EYE+5, AA+1!, AA+2!, AA+3, PRCS+1, PRCS+3
, BAL+2, BAL+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