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

Package: Prosthetics

Routine: RMPRSTK


Information

RMPRSTK ;PHX/RFM,RVD-ISSUE FROM STOCK ;8/29/1994

Source Information

Source file <RMPRSTK.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
HCPCS ;HCPCS code
LOCDIC
GI
VEN
VEN0 ;set HCPCS when PSAS required fields are set
INV
INDIC
INVITEM
ITDIC
GIP ;gip on
V
DEF
HCPCG ;HCPCS code with GIP
CAUTION(SELSITE,NAME) ; issue a caution message only once during the option
; if GIP flag is not set for this division
DYNAMED() ; If this system is flagged as using DYNAMED for inventory,
; then inform user and then quit.
; DBIA 6394--Lookup DynaMed flag in IFCAP Sys param. Sites using
; DynaMed will continue to use Prosthetics Inventory Package (PIP)
; until a better solution is devised.
ASK(HOLD) ;ask user 2 continue function

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRSTK+9
Function Call: WRITE
  • Prompt: $C(7),!,"Deleted..."
  • Line Location: VIEW+2
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: !,"HCPCS CODE IS MANDATORY!"
  • Line Location: HCPCS+5
Function Call: WRITE
  • Prompt: !,"NEW CPT MODIFIER: ",$G(RMCPT)
  • Line Location: HCPCS+13
Function Call: WRITE
  • Prompt: !,"PSAS Item was not selected!!"
  • Line Location: LOCDIC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCDIC+7
Function Call: WRITE
  • Prompt: $C(7),!,"You are not an authorized user of any Inventory Point, please see your ADPAC."
  • Line Location: GI+0
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: VEN0+8
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: INDIC+3
Function Call: WRITE
  • Prompt: !!,"*** ITEM IS NOT IN GIP......."
  • Line Location: INVITEM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INVITEM+2
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: ITDIC+3
Function Call: WRITE
  • Prompt: !,"HCPCS CODE IS MANDATORY!"
  • Line Location: HCPCG+5
Function Call: WRITE
  • Prompt: !!,"CAUTION: This option is intended for use with GIP Inventory."
  • Line Location: CAUTION+6
Function Call: WRITE
  • Prompt: !," The Prosthetics Site Parameter [AUTOMATED INVENTORY (GIP)]"
  • Line Location: CAUTION+7
Function Call: WRITE
  • Prompt: !," is not set to 'YES' for the selected site, ",NAME,".",!
  • Line Location: CAUTION+8
Function Call: WRITE
  • Prompt: !!,"This system is flagged as using DYNAMED Inventory."
  • Line Location: DYNAMED+9
Function Call: WRITE
  • Prompt: !,"You can not use GIP for Prosthetics."
  • Line Location: DYNAMED+10
Function Call: WRITE
  • Prompt: !,"Please contact your Application Coordinator.",!
  • Line Location: DYNAMED+11

FileMan Files Accessed Via FileMan Db Call

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