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

Package Total Caller Graph
Prosthetics 1 RMPRPAT  

Entry Points

Name Comments DBIA/ICR reference
2319 ; SHOW PAGE 8 OF 2319
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