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....
  • ICR #7568
    • Status: Active
    • Usage: Controlled Subscription
    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