Routine: RMPOPST0

Information

RMPOPST0 ;EDS/JAM - HOME OXYGEN BILLING TRANSACTIONS/POSTING,Part 1 ;7/24/98

Name	Comments	DBIA/ICR reference
POST	;main module to post billing transactions to IFCAP
EXIT
ANY2319()	;
BUILD	;Build array IFCAP with patient transactions to post
PROCESS	;process FCP data - ask for method of payment
PATLCK()	;Lock patient level in ^RMPO(665.72
FCPLCK()	;Lock fund control level in ^RPO(665.72
UNLKPAT	;Unlock patient level in ^RMPO(665.72
UNLKFCP	;Unlock fund contrl point level in ^RMPO(665.72
CLEANUP	;Display post messages for FCP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Posting Cancelled..." Line Location: POST+7
Function Call: WRITE	Prompt: !!,"Nothing to Post..." Line Location: POST+10
Function Call: WRITE	Prompt: !!,"Nothing to Post..." Line Location: POST+11
Function Call: WRITE	Prompt: ! Line Location: POST+14
Function Call: WRITE	Prompt: ! Line Location: POST+17
Function Call: WRITE	Prompt: !!,"Posting Cancelled..." Line Location: POST+18
Function Call: WRITE	Prompt: ! Line Location: ANY2319+3
Function Call: WRITE	Prompt: ! Line Location: ANY2319+13
Function Call: WRITE	Prompt: !,PATNAM," record locked by another user" Line Location: BUILD+16
Function Call: WRITE	Prompt: !!,"Fund Control Point: ",FCP Line Location: PROCESS+5
Function Call: WRITE	Prompt: " ",$P(^TMP($J,FCP),U,3) Line Location: PROCESS+17
Function Call: WRITE	Prompt: !!,"FCP Not Posted",?40,"Message" Line Location: CLEANUP+6
Function Call: WRITE	Prompt: !,"---------------",?40,"-------" Line Location: CLEANUP+7
Function Call: WRITE	Prompt: !,FCP,?40,$P(^TMP($J,FCP),U,3) Line Location: CLEANUP+8
Function Call: WRITE	Prompt: !! Line Location: CLEANUP+11
Function Call: WRITE	Prompt: "All Fund Control Points posted successfully" Line Location: CLEANUP+11