Routine: RMPOBIL4

Information

RMPOBIL4 ;NG/DUG-HOME OXYGEN BILLING TRANSACTIONS ;7/22/98 11:08

Name	Comments	DBIA/ICR reference
ACCEPT	;the vaiable RMPOTYPE is available. If '1',1358. If '2',purchase card.
PROS	;
POST	;locates item records for the "Post" option using CNT1(CNT1) array
POST1
POST2	;requires variable RMPOCAP which verifies successful posting
EXPIRE	;this subroutine is used to calculate the Rx expiration date for
EXPAT(X,Y)	;Entry for RMPOPED

Name	Line Occurrences
Function Call: READ	Variable: RET Timeout: DTIME Line Location: ACCEPT+6
Function Call: WRITE	Prompt: !!,"All transactions have been accepted.",!,"Press <RETURN> to continue." Line Location: ACCEPT+6
Function Call: READ	Formatting: !! Prompt: "Accept ? Y// " Variable: ANS1 Timeout: DTIME Line Location: ACCEPT+7
Function Call: WRITE	Prompt: !!,"Are you sure you want to ACCEPT these transactions (",ANS,") ? No // " Line Location: ACCEPT+8
Function Call: READ	Variable: ANS1 Timeout: DTIME Line Location: ACCEPT+9
Function Call: WRITE	Prompt: !,"Type 'Y' to accept the billing transactions for ",!,"the patients you selected. Press return to leave." Line Location: ACCEPT+10
Function Call: WRITE	Prompt: "." Line Location: PROS+8
Function Call: WRITE	Prompt: !,"No items listed for this patient. Record is incomplete." Line Location: POST+2
Function Call: WRITE	Prompt: !!,"Warning, transactions cannot be editted once they are posted." Line Location: POST1+1
Function Call: READ	Prompt: "Post ? No// " Variable: ANS1 Timeout: DTIME Line Location: POST1+2
Function Call: WRITE	Prompt: !!,"UNSUCCESSFUL POSTING!" Line Location: POST2+3
Function Call: WRITE	Prompt: !!,"." Line Location: POST2+6