Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPOBIL2

Package: Prosthetics

Routine: RMPOBIL2


Information

RMPOBIL2 ;EDS/MDB - HOME OXYGEN BILLING TRANSACTIONS ;7/28/98

Source Information

Source file <RMPOBIL2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  ^DIE  ^DIK  GETS^DIQ  ^DIR  
Prosthetics 3 ^RMPOBIL5  $$GETFCP^RMPOBILU  ASK1^RMPRPAT  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Prosthetics 1 RMPRPAT  
Prosthetics Vision 4 Sight II 1 RMPV0RMPRPAT  

Entry Points

Name Comments DBIA/ICR reference
2319 ; SHOW PAGE 8 OF 2319
  • ICR #7560
    • Status: Active
    • Usage: Controlled Subscription
    QUIT()
    EQUIT()
    LJ(S,W,C) ; Left justify S in a field W wide padding with char C
    EDIT ;NEW billing transaction edit module
    EXIT
    QUIK ; QUICK ITEM EDIT
    ITEM ; Main edit loop
    ITEMLOOP ;
    OK2EDIT() ;
    LOCKED() ;
    ITEMD ; Display items
    BPI ; Build pt info hdr
    DPI ; Display pt info hdr
    BII ; Build item info array
    BIIL ;Build detail line
    DII ; Display item info array
    ; Patch RMPR*3.0*165 removes 910 total line and replaces with FCP breakout for those FCPs now associated with HO billing.
    ITEMO() ; Select action (A/E/D/Z)
    ITEMA ; Add an item
    SDICE ; Set DIC,DIE,DA for adding Trx items
    ITEMS ; Select an item
    ITEME ; Edit an item
    SACK
    ITEMZ ; Zero an item
    ITEMK ; Delete an item
    WAK

    External References

    Name Field # of Occurrence
    ^DIC ITEMA+2
    FILE^DICN ITEMA+5
    ^DIE QUIK+11, QUIK+14, ITEMA+6, ITEME+3, SACK, SACK+3, SACK+4, SACK+9, ITEMZ+2
    ^DIK WAK
    GETS^DIQ BPI+15, BII+4
    ^DIR 2319+4, QUIK+4, QUIK+6, QUIK+16, ITEM+4, ITEM+6, ITEMO+3, ITEMS+7, ITEMK+6
    ^RMPOBIL5 2319+5
    $$GETFCP^RMPOBILU SACK+7
    ASK1^RMPRPAT 2319+4
    DEM^VADPT BPI+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: wide
    • Line Location: LJ+0
    Function Call: WRITE
    • Prompt: !,$C(7)_"Cannot edit Accepted Transactions. "
    • Line Location: QUIK+3
    Function Call: WRITE
    • Prompt: "Please 'Unaccept' first."
    • Line Location: QUIK+4
    Function Call: WRITE
    • Prompt: !,$C(7)_"Record is locked. "
    • Line Location: QUIK+6
    Function Call: WRITE
    • Prompt: !,ITM(I)
    • Line Location: QUIK+9
    Function Call: WRITE
    • Prompt: !,$C(7)_"Cannot edit Accepted Transactions. "
    • Line Location: ITEM+3
    Function Call: WRITE
    • Prompt: "Please 'Unaccept' first."
    • Line Location: ITEM+4
    Function Call: WRITE
    • Prompt: !,$C(7)_"Record is locked. "
    • Line Location: ITEM+6
    Function Call: WRITE
    • Prompt: !,PTI(I)
    • Line Location: DPI+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: DII+4
    Function Call: WRITE
    • Prompt: !,ITM(I)
    • Line Location: DII+4
    Function Call: WRITE
    • Prompt: !!,"TOTAL COST",?72,$J(TOT,6,2),!
    • Line Location: DII+5
    Function Call: WRITE
    • Prompt: !,"Total ",$P($G(^PRC(420,RMPOSITE,1,RMPOFCP,0)),U)," Charges:",?72,$J(+$G(TOT(RMPOFCP)),6,2)
    • Line Location: DII+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: DII+8
    Function Call: WRITE
    • Prompt: !,$C(7)_"Item "_(+Y)_" has been POSTED!"
    • Line Location: ITEMS+9
    Function Call: WRITE
    • Prompt: !,"SUSPENDED AMT SHOULD NOT BE GREATER THAN TOTAL AMOUNT!"
    • Line Location: SACK+2
    Function Call: WRITE
    • Prompt: $C(7)_"REQUIRED FIELD!"
    • Line Location: SACK+8
    Function Call: WRITE
    • Prompt: !,"Can't delete PRIMARY ITEM!"
    • Line Location: ITEMK+4
    Function Call: WRITE
    • Prompt: " ...deleted!"
    • Line Location: WAK+0
    Routine Call
    • DIC
    • Line Location:
      • ITEMA+2
    Routine Call
    • DIE
    • Line Location:
      • QUIK+11
      • QUIK+14
      • ITEMA+6
      • ITEME+3
      • SACK
      • SACK+3
      • SACK+4
      • SACK+9
      • ITEMZ+2
    Routine Call
    • DIR
    • Line Location:
      • 2319+4
      • QUIK+4
      • QUIK+6
      • QUIK+16
      • ITEM+4
      • ITEM+6
      • ITEMO+3
      • ITEMS+7
      • ITEMK+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RMPR(661 - [#661] Classic Fileman Calls
    665.193 GETS^DIQ
    665.72319 GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" BPI+8, BPI+9
    ^PRC(420 - [#420] DII+7
    ^RMPO(665.72 - [#665.72] EDIT+7, EXIT, QUIK+12, OK2EDIT+2, LOCKED+2, ITEMS+10, ITEMS+11, SACK+5
    ^RMPR(665 - [#665] BPI+6, BPI+8, BPI+9, ITEMS+12
    ^RMPR(669.9 - [#669.9] DII+3

    Label References

    Name Line Occurrences
    $$EQUIT QUIK+11, QUIK+14, ITEMA+6, ITEME+3, SACK, SACK+3, SACK+4, SACK+9, ITEMZ+2
    $$ITEMO ITEMLOOP+5
    $$LJ BIIL+9, BIIL+10, BIIL+11, BIIL+12
    $$LOCKED QUIK+5, ITEM+5
    $$OK2EDIT QUIK+2, ITEM+2
    $$QUIT 2319+4, QUIK+16, ITEMLOOP+5, ITEMA+2, ITEMA+5, ITEMS+7, SACK+7
    BII QUIK+15, ITEMD+2
    BIIL BII+9, BII+19
    BPI 2319+3, ITEMD+2
    DII QUIK+15, ITEMD+2
    DPI 2319+3, ITEMD+2
    EXIT QUIK+17
    ITEM EDIT+10
    ITEMA ITEMLOOP+7
    ITEMD QUIK+7, ITEMLOOP+3
    ITEME ITEMLOOP+7, ITEMLOOP+11
    ITEMK ITEMLOOP+9
    ITEMLOOP ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, ITEMLOOP+14
    ITEMS ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, ITEMS+8
    ITEMZ ITEMLOOP+13
    SACK SACK+1
    SDICE QUIK+10, ITEMA+4, ITEME+1, ITEMZ+1, ITEMK+1, ITEMK+7
    WAK ITEMA+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A EXIT+1!
    BACKPTR EXIT+4!, BIIL+7*, ITEMS+11*, ITEMS+12
    C LJ~, LJ+2*, LJ+3, EXIT+4!
    CIEN EXIT+4!, BII+1!, BII+2*, BII+19*, BIIL+2, BIIL+3, BIIL+5, BIIL+9, BIIL+10, BIIL+11
    , BIIL+12, BIIL+13, BIIL+14, BIIL+15, BIIL+16, BIIL+24*
    DA EXIT+2!, QUIK+11*, QUIK+12, ITEMA+6*, ITEMA+10, SDICE+1!, ITEME+3*, SACK+5, ITEMZ+2*, ITEMK+7!*
    DA(1 QUIK+12, SDICE+3*, SDICE+4, SACK+5
    DA(2 QUIK+12, SDICE+3*, SDICE+4, SACK+5
    DA(3 QUIK+12, SDICE+3*, SDICE+4, SACK+5
    DA(4 QUIK+12, SDICE+3*, SDICE+4, SACK+5
    DD EXIT+2!, ITEMA+4!
    DFCP EXIT+4!, SACK+5*, SACK+7
    DFN 2319+6!, EXIT+3!, BPI+3*
    DIC EXIT+2!, ITEMA+2!*, SDICE+1!, SDICE+4*, SDICE+5, ITEMK+2, ITEMK+7
    DIC(0 ITEMA+2*, ITEMA+4*
    DIE EXIT+2!, ITEMA+6, SDICE+1!, SDICE+5*
    DIE("NO^" ITEME+2*
    DIK EXIT+2!, ITEMA+6*, ITEMK+7!*
    DIR 2319+4!, EXIT+2!, QUIK+4!, QUIK+6!, QUIK+16!, ITEM+4!, ITEM+6!, ITEMO+1!, ITEMS+2!, ITEMK+5!
    DIR("?" ITEMS+5*, ITEMS+6*
    DIR("A" ITEMO+3*, ITEMS+4*, ITEMK+5*
    DIR("B" ITEMK+6*
    DIR(0 2319+4*, QUIK+4*, QUIK+6*, QUIK+16*, ITEM+4*, ITEM+6*, ITEMO+2*, ITEMS+4*, ITEMK+5*
    DIROUT QUIT, EXIT+2!
    DO EXIT+2!, ITEMA+4!
    DR EXIT+2!, QUIK+10!, QUIK+11*, QUIK+14*, ITEMA+6*, ITEME+1!, ITEME+3*, SACK*, SACK+3*, SACK+4*
    , SACK+9*, ITEMZ+1!, ITEMZ+2*
    DT1 2319+6!, EXIT+1!, BPI+8*, BPI+11
    DT2 2319+6!, EXIT+1!, BPI+9*, BPI+11
    >> DTOUT QUIT, EQUIT
    DUOUT QUIT, EXIT+2!
    FCP EXIT+3!, BIIL+21*, BIIL+22, SACK+6, SACK+7*, SACK+8, SACK+9
    I 2319+6!, EXIT+3!, QUIK+8*, QUIK+9, QUIK+11, BPI+16*, BPI+17, DPI+1*, DII+4*
    IEN EXIT+1!, QUIK+8, BII+1!, BII+6*, DII+2, DII+4, ITEMA+10*, ITEMS+1, ITEMS+4
    IEN( QUIK+11, BIIL+2*, ITEMA+10*, ITEME+3, ITEMZ+2, ITEMK+2, ITEMK+7
    IENS 2319+6!, EXIT+1!, BPI+14*, BPI+15, BPI+16, BPI+17, BII+3*, BII+4
    ITEM EXIT+3!, ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, ITEMA+1*, ITEMA+10*, ITEMS+1*, ITEMS+3*, ITEMS+10*
    , ITEMS+11, ITEMS+12, ITEME+3, ITEMZ+2, ITEMK+2, ITEMK+7
    ITM EXIT+1!, BII+1!, ITEMS+6
    ITM( QUIK+9, BIIL+3*, BIIL+5*, BIIL+9*, BIIL+10*, BIIL+11*, BIIL+12*, BIIL+13*, BIIL+14*, BIIL+15*
    , BIIL+16*, DII+4
    ITMACT EXIT+1!, ITEMLOOP+5*, ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13
    NEW EXIT+3!, ITEMA+3*, ITEMA+4
    OTH EXIT+1!
    PITM EXIT+4!, BII+1!, ITEMS+10*, ITEMS+12*, ITEMK+2*, ITEMK+3
    POSTED EXIT+4!, BII+1!
    POSTED( BIIL+19*, ITEMS+8
    PSTFLG EXIT+4!, BIIL+6*, BIIL+9
    PTI 2319+6!, EXIT+1!, BPI+1!
    PTI( DPI+1
    PTI(1 BPI+4*
    PTI(2 BPI+10*
    PTI(3 BPI+11*, BPI+17*
    QUIT QUIT*, EQUIT*, EXIT+3!, QUIK+8, ITEMLOOP+2*, ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, SACK+6
    RMDIC EXIT+4!, ITEMK+2*
    RMIT EXIT+4!, ITEMK+2*
    >> RMPODFN 2319+2*, EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BPI+3, BPI+6, BPI+8, BPI+9
    , BPI+14, BII+3, SDICE+3, ITEMS+10, ITEMS+11, ITEMS+12
    RMPOFCP DII+3~*, DII+6*, DII+7
    >> RMPORVDT EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BII+3, SDICE+3, ITEMS+10, ITEMS+11
    RMPOSITE DII+3~*, DII+7
    >> RMPOVDR EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BII+3, SDICE+3, ITEMS+10, ITEMS+11
    >> RMPOXITE EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BII+3, DII+3, SDICE+3, ITEMS+10, ITEMS+11
    >> RMPRDFN 2319+2
    RX 2319+6!, EXIT+1!, BPI+6*, BPI+7, BPI+8, BPI+9, BPI+10, BPI+14
    S LJ~, LJ+3*, LJ+4, EXIT+4!
    SUSP EXIT+4!, BII+1!, BII+2*, BIIL+24*
    T910 EXIT+1!
    TIEN EXIT+3!, BII+9*, BII+19*, BIIL+2, BIIL+5, BIIL+18, BIIL+19
    TMP EXIT+1!, BII+7!*, BII+10!
    TMP( BII+8*, BII+12*, BIIL+8*, BIIL+11
    TMP(10 BII+18*, BIIL+15, BIIL+24
    TMP(12 BIIL+7
    TMP(2 BII+11*, BIIL+10
    TMP(3 BII+13*, BIIL+12, BIIL+21
    TMP(5 BII+15*, BIIL+14
    TMP(6 BII+16*, BIIL+16, BIIL+21
    TMP(7 BII+14*, BIIL+13
    TMP(8 BII+17*, BIIL+6, BIIL+19
    TOT EXIT+1!, BII+1!, BIIL+23*, DII+5
    TOT( BIIL+22*, DII+6, DII+7
    TOTAL EXIT+3!, BIIL+21*, BIIL+22, BIIL+23
    TRX 2319+6!, EXIT+1!, BPI+13!, BII+1!
    TRX( BPI+16, BPI+17, BII+6, BII+7
    U QUIK+13, OK2EDIT+2, BPI+4, BPI+8, BPI+9, DII+3, DII+7, ITEMS+10, ITEMS+11, ITEMS+12
    , SACK+5, SACK+7, ITEMK+2
    VADM EXIT+3!
    VADM(1 BPI+4
    VADM(2 BPI+4
    W LJ~, LJ+3, LJ+4, EXIT+4!
    X EXIT+3!, ITEMA+4*, SACK+3
    Y 2319+6!, EQUIT, EXIT+3!, BPI+8*, BPI+9*, ITEMO+4, ITEMA+2, ITEMA+3, ITEMA+5, ITEMA+6
    , ITEMS+7, ITEMS+8, ITEMS+9, ITEMS+10, ITEMK+6
    Z EXIT+3!, QUIK+12*, QUIK+13, BII+8*
    Z1 EXIT+3!, QUIK+13*, QUIK+14, SACK+1, SACK+4
    Z2 EXIT+3!, QUIK+13*, QUIK+14, SACK+1, SACK+4
    Z3 EXIT+3!, QUIK+13*, QUIK+14, SACK+1, SACK+4
    ZV EXIT+3!, SDICE+2*, SDICE+4
    ZX1 EXIT+1!, BII+5*, BII+6*, BII+7, BII+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All