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

Package: Prosthetics

Routine: RMPRPAT5


Information

RMPRPAT5 ;PHX/RFM-DISPLAY/PRINT CRITICAL COMMENTS ;8/29/1994

Source Information

Source file <RMPRPAT5.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Prosthetics 3 EN^RMPRDIS  (ASK1,EXIT)^RMPRPAT  GETPAT^RMPRUTIL  
VA FileMan 3 YN^DICN  ^DIE  EN^DIWE  

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

Package Total Caller Graph
Prosthetics 1 RMPRPAT  
Prosthetics Vision 4 Sight II 1 RMPV0RMPRPAT  

Entry Points

Name Comments DBIA/ICR reference
CRI
WRI
EDIT
DIS
DISP ;DISPLAY DISABILITY CODES
  • ICR #7567
    • Status: Active
    • Usage: Controlled Subscription
    WRI1
    NPC ;CHECK ALL DISABILITY CODES MARKED DELETED
  • ICR #7567
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    YN^DICN CRI
    ^DIE EDIT
    EN^DIWE EDIT+1
    EN^RMPRDIS DIS+2
    ASK1^RMPRPAT CRI
    EXIT^RMPRPAT CRI
    GETPAT^RMPRUTIL RMPRPAT5+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"PATIENT: ",$P(^DPT(RMPRDFN,0),U),?60,"CRITICAL COMMENTS",!!,"No Patient Critical Comments Recorded for this patient!",!!
    • Line Location: RMPRPAT5+3
    Function Call: WRITE
    • Prompt: !,"PATIENT: ",$P(^DPT(RMPRDFN,0),U),?60,"CRITICAL COMMENTS",!!
    • Line Location: RMPRPAT5+4
    Function Call: WRITE
    • Prompt: !!,"Would you like to Add/Edit Patient Critical Comments"
    • Line Location: CRI+0
    Function Call: WRITE
    • Prompt: !,"Enter `YES or `NO`"
    • Condition for execution: %=0
    • Line Location: CRI+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CRI+0
    Function Call: WRITE
    • Prompt: !,^RMPR(665,RMPRDFN,8,RO,0)
    • Line Location: WRI+0
    Function Call: WRITE
    • Prompt: $C(7),$C(7),!!,"Disability Code has not been entered for this Patient! You must enter a"
    • Line Location: DIS+1
    Function Call: WRITE
    • Prompt: !!,"Current Disability Codes are: "
    • Line Location: DISP+2
    Function Call: WRITE
    • Prompt: !!,"*More Disability Codes on File, See Screen 1"
    • Line Location: WRI1+0
    Function Call: WRITE
    • Prompt: !,$P(^(0),U,1)
    • Line Location: WRI1+1
    Function Call: WRITE
    • Prompt: ?50,"Deleted..."
    • Line Location: WRI1+7
    Function Call: WRITE
    • Prompt: !!,$C(7),?5,"The Patient's Disability Codes have been Marked as Deleted.",!,?5,"No Purchasing may be done for this patient"
    • Line Location: NPC+2
    Routine Call
    • DIE
    • Line Location:
      • EDIT

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] RMPRPAT5+3, RMPRPAT5+4
    ^RMPR(662 - [#662] WRI1+1
    ^RMPR(665 - [#665] RMPRPAT5+3, RMPRPAT5+5, WRI, DIS+2, DIS+3, DISP+1, DISP+3, WRI1+1, WRI1+2, WRI1+4
    , WRI1+5, WRI1+7, NPC+1

    Label References

    Name Line Occurrences
    CRI RMPRPAT5+3, CRI
    EDIT CRI
    RMPRPAT5 EDIT, EDIT+1
    WRI RMPRPAT5+5
    WRI1 DISP+3

    Naked Globals

    Name Field # of Occurrence
    ^( NPC+1
    ^(0 DIS+3, DISP+1, WRI1+1, WRI1+4, NPC+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % CRI*
    >> DA EDIT*
    DIC EDIT+1!*
    >> DIE EDIT*
    >> DR EDIT*
    >> DTOUT CRI
    >> I DISP+3*, WRI1
    IOF RMPRPAT5+3, CRI
    IOST RMPRPAT5+3
    >> J WRI1+2*, WRI1+3, WRI1+5*, WRI1+6
    RA NPC+1!*, NPC+2
    >> RI NPC+1*
    >> RMPRCCO RMPRPAT5+3*, EDIT
    RMPRDD DIS!
    >> RMPRDFN RMPRPAT5+2, RMPRPAT5+3, RMPRPAT5+4, RMPRPAT5+5, WRI, EDIT, DIS, DIS+2, DIS+3, DISP+1
    , DISP+3, WRI1+1, WRI1+2, WRI1+4, WRI1+5, WRI1+7, NPC+1
    >> RMPRKILL DIS+2*, DIS+3*, NPC+2*
    >> RMPRQ DISP+3, WRI1*
    >> RO RMPRPAT5+5*, WRI, DISP+3*, WRI1+1, WRI1+2, WRI1+4, WRI1+5, WRI1+7
    U RMPRPAT5+3, RMPRPAT5+4, WRI1+1, WRI1+2, WRI1+4, WRI1+5, WRI1+7, NPC+1
    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