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

Package: Prosthetics

Routine: RMPRSTI


Information

RMPRSTI ;HINCIO/RVD-ISSUE FROM STOCK ;11/6/00

Source Information

Source file <RMPRSTI.m>

Entry Points

Name Comments DBIA/ICR reference
VIEW ;
RES ;ENTRY POINT TO ADD ADDITIONAL ITEMS FOR ISSUE FROM STOCK
1 ;ENTRY POINT TO EDIT ITEM ON ISSUE FROM STOCK
TRAN ;TYPE OF TRANSACTION
PCAT ;
SPE
2
LOC ;ask for location
HCPCS ;HCPCS code
CPT ;ask for CPT Modifier
ITEM ;ask for PSAS Item to edit.
VEN ;vendor
NODE2 ;set node2 of file #660
MESSI ;print message if COST is not defined in the inventory (661.3)
MESSO ;print message if SOURCE is not defined in the inventory (661.3)
INACT ;print message if HCPCS is inactive.
LOWBA ;print message if inventory balance is low.
LKP ;print a message if PSAS HCPCS not in PIP or invalid HCPCS.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRSTI+5
Function Call: WRITE
  • Prompt: $C(7),!,"Deleted..."
  • Line Location: VIEW+3
Function Call: WRITE
  • Prompt: @IOF,!?30,RMPRNAM,!
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TRAN+1
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: 2+5
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: LOC+10
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: HCPCS+8
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+8
Function Call: WRITE
  • Prompt: !,"PSAS Item was not selected!!"
  • Line Location: ITEM+21
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: VEN+9
Function Call: WRITE
  • Prompt: !!,"***ITEM COST is not defined @:"
  • Line Location: MESSI+2
Function Call: WRITE
  • Prompt: !," PSAS Item = ",RMIT
  • Line Location: MESSI+3
Function Call: WRITE
  • Prompt: !," Location = ",$P($G(^RMPR(661.3,RMLOC,0)),U,1)
  • Line Location: MESSI+4
Function Call: WRITE
  • Prompt: !,"***Fix your inventory or use a different PSAS ITEM!!",!!
  • Line Location: MESSI+5
Function Call: WRITE
  • Prompt: !!,"***PSAS ITEM has no SOURCE at this location..."
  • Line Location: MESSO+1
Function Call: WRITE
  • Prompt: !,"***Fix your inventory or use a different PSAS ITEM!!",!!
  • Line Location: MESSO+2
Function Call: WRITE
  • Prompt: !!,"*** You have selected an INACTIVE HCPCS..."
  • Line Location: INACT+1
Function Call: WRITE
  • Prompt: !,"*** Please REMOVE this HCPCS from inventory..."
  • Line Location: INACT+2
Function Call: WRITE
  • Prompt: !,"*** And use a different HCPCS!!!",!
  • Line Location: INACT+3
Function Call: WRITE
  • Prompt: !!,"*** PSAS Item ",RMIT," balance is = ",RMUBA
  • Line Location: LOWBA+2
Function Call: WRITE
  • Prompt: !,"*** You are unable to use this PSAS ITEM..."
  • Line Location: LOWBA+3
Function Call: WRITE
  • Prompt: !,"*** Please use a different Location, HCPCS or PSAS Item !!!!",!
  • Line Location: LOWBA+4

FileMan Files Accessed Via FileMan Db Call

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