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
Print Page as PDF
Routine: RMPRPAT1

Package: Prosthetics

Routine: RMPRPAT1


Information

RMPRPAT1 ;PHX/HNB/RFM/JLT-DISPLAY PATIENT INFO ;8/29/1994

Source Information

Source file <RMPRPAT1.m>

Entry Points

Name Comments DBIA/ICR reference
WRIL ;ASK TO SEE MORE RETURNED ITEMS
OLD ;DISPLAY OLD RETURNED ITEMS
OLD1
RTNSTA ;DISPLAYS STATUS OF TRACKED ITEM ON PATIENT'S 10-2319
HELP ;DISPLAY HELP FOR SCREENS
ASK1 ;SET DIR AND FOR SCREEN NUMBER DISPLAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPAT1+2
Function Call: WRITE
  • Prompt: !,"<<<HOME OXYGEN PATIENT>>>>"
  • Line Location: RMPRPAT1+6
Function Call: WRITE
  • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2)
  • Line Location: RMPRPAT1+7
Function Call: WRITE
  • Prompt: ?42,"DOB: ",$P(VADM(3),U,2)
  • Line Location: RMPRPAT1+8
Function Call: WRITE
  • Prompt: ?61,"CLAIM# ",VAEL(7)
  • Line Location: RMPRPAT1+9
Function Call: WRITE
  • Prompt: !!,"PSC Issue Card: ",?17,"Appliance",?30,"Ht ",$P(R5(10),U,1),?37,"Wt ",$P(R5(10),U,2),?45,"Eyes ",$P(R5(10),U,3),?54,"Hair ",$P(R5(10),U,4),?66,"Serial Number"
  • Line Location: RMPRPAT1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRPAT1+12
Function Call: WRITE
  • Prompt: Y,?17,$S($P(R5(5,J,0),U,2)]"":$E($P(R5(5,J,0),U,2),1,47),1:$E($P(^PRC(441,$P(^RMPR(661,$P(R5(5,J,0),U,4),0),U,1),0),U,2),1,47)),?66,$E($P(R5(5,J,0),U,3),1,12)
  • Line Location: RMPRPAT1+13
Function Call: WRITE
  • Prompt: !!,"Clothing Allowance: "
  • Line Location: RMPRPAT1+14
Function Call: WRITE
  • Prompt: !,?22,"Date of Exam: ",Y
  • Line Location: RMPRPAT1+17
Function Call: WRITE
  • Prompt: " Examiner: ",$E($P(^VA(200,$P(RR5,U,6),0),U,1),1,30)
  • Condition for execution: $P(RR5,U,6)
  • Line Location: RMPRPAT1+17
Function Call: WRITE
  • Prompt: "NONE LISTED",!
  • Line Location: RMPRPAT1+20
Function Call: WRITE
  • Prompt: ?64,Y
  • Line Location: RMPRPAT1+24
Function Call: WRITE
  • Prompt: !!,"Items Returned: ",?16,"Date",?29,"Item",?56
  • Line Location: RMPRPAT1+26
Function Call: WRITE
  • Prompt: "Serial",?68,"Status"
  • Line Location: RMPRPAT1+27
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRPAT1+30
Function Call: WRITE
  • Prompt: !,"Would you like to see more returned items"
  • Line Location: WRIL+1
Function Call: WRITE
  • Prompt: !,"Enter `YES` or `NO`"
  • Line Location: WRIL+2
Function Call: WRITE
  • Prompt: !?16,Y
  • Line Location: WRIL+5
Function Call: WRITE
  • Prompt: ?56,$E($P(^RMPR(660.1,RO,0),U,6),1,10)
  • Line Location: WRIL+7
Function Call: WRITE
  • Prompt: !,"Would you like to see more returned items"
  • Line Location: OLD1+0
Function Call: WRITE
  • Prompt: !,"Enter `YES` or `NO`"
  • Line Location: OLD1+1
Function Call: WRITE
  • Prompt: !?16,$E(Y,1,12),?29,$E($P(^RMPR(665,RMPRDFN,7,RO,0),U,4),1,20)
  • Line Location: OLD1+2
Function Call: WRITE
  • Prompt: ?68,$S(R0=1:"RETURNED",R0=2:"CONDENMED",R0=3:"TURNED-IN",R0=4:"LOST",R0=5:"BROKEN",1:"UNKNOWN")
  • Line Location: RTNSTA+1
Function Call: WRITE
  • Prompt: !,"Select One of the Following: ",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,?5,$P($P(RMPR90DP,";",RMPR90I),":",1),?14,$P($P(RMPR90DP,";",RMPR90I),":",2)
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+2
Info |  Source |  Entry Points |  Interaction Calls