Routine: RMPOBIL6

Information

RMPOBIL6 ;HINES/RVD - HOME OXYGEN BILLING TRANSACTIONS ;9/16/02 11:01

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
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+2
Function Call: WRITE	Prompt: !,ITM(I) Line Location: DII+2
Function Call: WRITE	Prompt: !!,"TOTAL COST",?72,$J(TOT,6,2),! Line Location: DII+3
Function Call: WRITE	Prompt: !,"Total 910 Charges:",?72,$J(+$G(TOT(910)),6,2),! Line Location: DII+4
Function Call: WRITE	Prompt: !,"Total Station FCP Charges:",?72,$J(TOT-$G(TOT(910)),6,2),! Line Location: DII+5
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