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

Package: Prosthetics

Routine: RMPRE29


Information

RMPRE29 ;PHX/JLT,RVD-EDIT 2319 ;10/2/03 13:04

Source Information

Source file <RMPRE29.m>

Entry Points

Name Comments DBIA/ICR reference
TYP1 ;edit type of transaction....
TRAN
PCAT
HCPC ;set type and ask item and HCPCS
QED2 ;
EXIT ;
SETED2 ;set 660
QUICK ;quick edit for HCPCS and type
SET
CHK ;check for transaction changes
DELRP ;logic for deleting 'RP' modifier with transaction change.
DELNU ;logic for deleting 'NU' modifier.
ADDRP ;logic for adding 'RP' modifier with transaction change.
ADDNU ;logic for adding 'NU' modifier.
UPD664 ; update file 664 for Lot Number, Model, Serial Number, and Contract # Changes
; -- get the changes from 660

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRE29+14
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRE29+16
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: RMPRE29+17
Function Call: WRITE
  • Prompt: !,"Please enter type of Transaction!!"
  • Line Location: TRAN+5
Function Call: WRITE
  • Prompt: !,"Please enter Patient Category!!"
  • Line Location: PCAT+4
Function Call: WRITE
  • Prompt: !,"OLD CPT MODIFER: ",$P(R1(1),U,6)
  • Line Location: HCPC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: QED2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QUICK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: QUICK+4
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: QUICK+5
Function Call: WRITE
  • Prompt: !,"OLD CPT MODIFER: ",$P(R1(1),U,6)
  • Line Location: QUICK+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+1

FileMan Files Accessed Via FileMan Db Call

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