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

Package: Prosthetics

Routine: RMPRED6


Information

RMPRED6 ;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;9/29/1994

Source Information

Source file <RMPRED6.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;EDIT STOCK ISSUES
INVSE
CO ;DISPLAYS STOCK ISSUE
EDX ;POST
DEL ;
EDT ;edit patient 2319
EDU
2
LOC ;ask for location
HCPCS ;HCPCS code
CPT ;ask for CPT Modifier
ITEM ;ask for PSAS Item to to edit.
VEN0 ;process vendor
CP
SET ;set the original variables.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF,!?30,RMPRNAM,!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDU+1
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: LOC+8
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: HCPCS+6
Function Call: WRITE
  • Prompt: !,"NEW CPT MODIFIER: ",$G(RMCPT)
  • Line Location: CPT+8
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: !,"PSAS Item was not selected!!"
  • Line Location: ITEM+17

FileMan Files Accessed Via FileMan Db Call

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