Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RMPR(665 - [#665] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call