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

Package: Prosthetics

Routine: RMPRPSC


Information

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

Source Information

Source file <RMPRPSC.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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