Routine: RMPOBIL2

Information

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

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 RMPR3.0165 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

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